Directory:  ./ 

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

Lines:  1129  1129  100.0% 
Branches:  2156  2182  98.8% 
Line  Branch  Exec  Source 

1  !OCL SCALAR  
2  !pgi$r opt=0  
3  1  SUBROUTINE RRTM_KGB16  
4  
5  ! Originally by Eli J. Mlawer, Atmospheric & Environmental Research.  
6  ! BAND 16: 26003000 cm1 (low  H2O,CH4; high  nothing)  
7  ! Reformatted for F90 by JJMorcrette, ECMWF  
8  ! R. Elkhatib 12102005 Split for faster and more robust compilation.  
9  
10  !   
11  
12  USE PARKIND1 ,ONLY : JPRB  
13  USE YOMHOOK ,ONLY : LHOOK, DR_HOOK  
14  
15  USE YOERRTO16, ONLY : KAO ,SELFREFO ,FRACREFAO  
16  USE YOERRTA16, ONLY : 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_KGB16',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  
38 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB16',1,ZHOOK_HANDLE) 
39  
40  !   
41  
42  CONTAINS  
43  
44  
45  1  SUBROUTINE PART1  
46  
47  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
48 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART1',0,ZHOOK_HANDLE) 
49  
50  
51  1  STRRAT = 830.411_JPRB  
52  
53  !   
54  
55  ! The array KAO contains absorption coefs at the 16 chosen gvalues  
56  ! for a range of pressure levels> ~100mb, temperatures, and binary  
57  ! species parameters (see taumol.f for definition). The first  
58  ! index in the array, JS, runs from 1 to 9, and corresponds to  
59  ! different values of the binary species parameter. For instance,  
60  ! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8,  
61  ! JS = 3 corresponds to the parameter value 2/8, etc. The second index  
62  ! in the array, JT, which runs from 1 to 5, corresponds to different  
63  ! temperatures. More specifically, JT = 3 means that the data are for  
64  ! the reference temperature TREF for this pressure level, JT = 2 refers  
65  ! to TREF15, JT = 1 is for TREF30, JT = 4 is for TREF+15, and JT = 5  
66  ! is for TREF+30. The third index, JP, runs from 1 to 13 and refers  
67  ! to the JPth reference pressure level (see taumol.f for these levels  
68  ! in mb). The fourth index, IG, goes from 1 to 16, and indicates  
69  ! which ginterval the absorption coefficients are for.  
70  
71  KAO( :, 1, 1, 1) = (/&  
72  & 1.9384E05_JPRB,2.9898E05_JPRB,3.4062E05_JPRB,3.6004E05_JPRB,3.6430E05_JPRB,3.5549E05_JPRB,&  
73 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.3320E05_JPRB,2.9615E05_JPRB,2.3873E05_JPRB/) 
74  KAO( :, 2, 1, 1) = (/&  
75  & 1.9436E05_JPRB,2.9740E05_JPRB,3.3708E05_JPRB,3.5476E05_JPRB,3.5843E05_JPRB,3.5033E05_JPRB,&  
76 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2962E05_JPRB,2.9462E05_JPRB,2.4055E05_JPRB/) 
77  KAO( :, 3, 1, 1) = (/&  
78  & 1.9464E05_JPRB,2.9570E05_JPRB,3.3324E05_JPRB,3.4974E05_JPRB,3.5304E05_JPRB,3.4544E05_JPRB,&  
79 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2637E05_JPRB,2.9289E05_JPRB,2.4237E05_JPRB/) 
80  KAO( :, 4, 1, 1) = (/&  
81  & 1.9302E05_JPRB,2.9247E05_JPRB,3.2832E05_JPRB,3.4416E05_JPRB,3.4737E05_JPRB,3.4031E05_JPRB,&  
82 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2272E05_JPRB,2.9080E05_JPRB,2.4364E05_JPRB/) 
83  KAO( :, 5, 1, 1) = (/&  
84  & 1.9123E05_JPRB,2.8885E05_JPRB,3.2360E05_JPRB,3.3877E05_JPRB,3.4211E05_JPRB,3.3554E05_JPRB,&  
85 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.1880E05_JPRB,2.8883E05_JPRB,2.4458E05_JPRB/) 
86  KAO( :, 1, 2, 1) = (/&  
87  & 1.6583E05_JPRB,2.6012E05_JPRB,2.9608E05_JPRB,3.1154E05_JPRB,3.1427E05_JPRB,3.0616E05_JPRB,&  
88 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.8665E05_JPRB,2.5368E05_JPRB,2.0615E05_JPRB/) 
89  KAO( :, 2, 2, 1) = (/&  
90  & 1.6630E05_JPRB,2.5863E05_JPRB,2.9249E05_JPRB,3.0678E05_JPRB,3.0941E05_JPRB,3.0197E05_JPRB,&  
91 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.8392E05_JPRB,2.5270E05_JPRB,2.0786E05_JPRB/) 
92  KAO( :, 3, 2, 1) = (/&  
93  & 1.6647E05_JPRB,2.5697E05_JPRB,2.8891E05_JPRB,3.0222E05_JPRB,3.0484E05_JPRB,2.9802E05_JPRB,&  
94 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.8138E05_JPRB,2.5165E05_JPRB,2.0933E05_JPRB/) 
95  KAO( :, 4, 2, 1) = (/&  
96  & 1.6540E05_JPRB,2.5405E05_JPRB,2.8466E05_JPRB,2.9745E05_JPRB,3.0011E05_JPRB,2.9400E05_JPRB,&  
97 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.7847E05_JPRB,2.5027E05_JPRB,2.1051E05_JPRB/) 
98  KAO( :, 5, 2, 1) = (/&  
99  & 1.6324E05_JPRB,2.5032E05_JPRB,2.7991E05_JPRB,2.9251E05_JPRB,2.9530E05_JPRB,2.8984E05_JPRB,&  
100 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.7519E05_JPRB,2.4864E05_JPRB,2.1134E05_JPRB/) 
101  KAO( :, 1, 3, 1) = (/&  
102  & 1.4086E05_JPRB,2.2526E05_JPRB,2.5577E05_JPRB,2.6862E05_JPRB,2.7021E05_JPRB,2.6302E05_JPRB,&  
103 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4576E05_JPRB,2.1643E05_JPRB,1.8751E05_JPRB/) 
104  KAO( :, 2, 3, 1) = (/&  
105  & 1.4131E05_JPRB,2.2392E05_JPRB,2.5264E05_JPRB,2.6452E05_JPRB,2.6617E05_JPRB,2.5964E05_JPRB,&  
106 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4370E05_JPRB,2.1595E05_JPRB,1.8898E05_JPRB/) 
107  KAO( :, 3, 3, 1) = (/&  
108  & 1.4113E05_JPRB,2.2191E05_JPRB,2.4900E05_JPRB,2.6018E05_JPRB,2.6215E05_JPRB,2.5621E05_JPRB,&  
109 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4158E05_JPRB,2.1540E05_JPRB,1.9048E05_JPRB/) 
110  KAO( :, 4, 3, 1) = (/&  
111  & 1.4058E05_JPRB,2.1961E05_JPRB,2.4548E05_JPRB,2.5623E05_JPRB,2.5838E05_JPRB,2.5312E05_JPRB,&  
112 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3952E05_JPRB,2.1469E05_JPRB,1.9182E05_JPRB/) 
113  KAO( :, 5, 3, 1) = (/&  
114  & 1.3863E05_JPRB,2.1619E05_JPRB,2.4113E05_JPRB,2.5184E05_JPRB,2.5419E05_JPRB,2.4957E05_JPRB,&  
115 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3697E05_JPRB,2.1357E05_JPRB,1.9265E05_JPRB/) 
116  KAO( :, 1, 4, 1) = (/&  
117  & 1.1900E05_JPRB,1.9396E05_JPRB,2.1993E05_JPRB,2.3049E05_JPRB,2.3163E05_JPRB,2.2508E05_JPRB,&  
118 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0982E05_JPRB,1.8407E05_JPRB,1.7094E05_JPRB/) 
119  KAO( :, 2, 4, 1) = (/&  
120  & 1.1936E05_JPRB,1.9289E05_JPRB,2.1740E05_JPRB,2.2712E05_JPRB,2.2827E05_JPRB,2.2234E05_JPRB,&  
121 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0833E05_JPRB,1.8390E05_JPRB,1.7367E05_JPRB/) 
122  KAO( :, 3, 4, 1) = (/&  
123  & 1.1914E05_JPRB,1.9113E05_JPRB,2.1420E05_JPRB,2.2348E05_JPRB,2.2488E05_JPRB,2.1958E05_JPRB,&  
124 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0668E05_JPRB,1.8368E05_JPRB,1.7624E05_JPRB/) 
125  KAO( :, 4, 4, 1) = (/&  
126  & 1.1850E05_JPRB,1.8882E05_JPRB,2.1069E05_JPRB,2.1971E05_JPRB,2.2145E05_JPRB,2.1684E05_JPRB,&  
127 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0493E05_JPRB,1.8332E05_JPRB,1.7862E05_JPRB/) 
128  KAO( :, 5, 4, 1) = (/&  
129  & 1.1744E05_JPRB,1.8626E05_JPRB,2.0733E05_JPRB,2.1634E05_JPRB,2.1819E05_JPRB,2.1414E05_JPRB,&  
130 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0321E05_JPRB,1.8279E05_JPRB,1.8065E05_JPRB/) 
131  KAO( :, 1, 5, 1) = (/&  
132  & 1.0007E05_JPRB,1.6633E05_JPRB,1.8846E05_JPRB,1.9714E05_JPRB,1.9792E05_JPRB,1.9192E05_JPRB,&  
133 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7849E05_JPRB,1.5620E05_JPRB,1.4831E05_JPRB/) 
134  KAO( :, 2, 5, 1) = (/&  
135  & 1.0036E05_JPRB,1.6537E05_JPRB,1.8619E05_JPRB,1.9430E05_JPRB,1.9510E05_JPRB,1.8974E05_JPRB,&  
136 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7727E05_JPRB,1.5597E05_JPRB,1.5243E05_JPRB/) 
137  KAO( :, 3, 5, 1) = (/&  
138  & 1.0020E05_JPRB,1.6382E05_JPRB,1.8357E05_JPRB,1.9125E05_JPRB,1.9225E05_JPRB,1.8747E05_JPRB,&  
139 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7610E05_JPRB,1.5596E05_JPRB,1.5694E05_JPRB/) 
140  KAO( :, 4, 5, 1) = (/&  
141  & 9.9655E06_JPRB,1.6185E05_JPRB,1.8047E05_JPRB,1.8806E05_JPRB,1.8930E05_JPRB,1.8511E05_JPRB,&  
142 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7475E05_JPRB,1.5592E05_JPRB,1.6134E05_JPRB/) 
143  KAO( :, 5, 5, 1) = (/&  
144  & 9.8924E06_JPRB,1.5961E05_JPRB,1.7750E05_JPRB,1.8511E05_JPRB,1.8653E05_JPRB,1.8287E05_JPRB,&  
145 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7340E05_JPRB,1.5571E05_JPRB,1.6528E05_JPRB/) 
146  KAO( :, 1, 6, 1) = (/&  
147  & 8.3773E06_JPRB,1.4205E05_JPRB,1.6091E05_JPRB,1.6810E05_JPRB,1.6854E05_JPRB,1.6312E05_JPRB,&  
148 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5134E05_JPRB,1.3227E05_JPRB,1.2806E05_JPRB/) 
149  KAO( :, 2, 6, 1) = (/&  
150  & 8.4040E06_JPRB,1.4116E05_JPRB,1.5890E05_JPRB,1.6565E05_JPRB,1.6618E05_JPRB,1.6134E05_JPRB,&  
151 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5030E05_JPRB,1.3175E05_JPRB,1.3188E05_JPRB/) 
152  KAO( :, 3, 6, 1) = (/&  
153  & 8.3967E06_JPRB,1.3982E05_JPRB,1.5670E05_JPRB,1.6315E05_JPRB,1.6378E05_JPRB,1.5948E05_JPRB,&  
154 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4938E05_JPRB,1.3181E05_JPRB,1.3640E05_JPRB/) 
155  KAO( :, 4, 6, 1) = (/&  
156  & 8.3520E06_JPRB,1.3808E05_JPRB,1.5410E05_JPRB,1.6041E05_JPRB,1.6129E05_JPRB,1.5748E05_JPRB,&  
157 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4840E05_JPRB,1.3187E05_JPRB,1.4105E05_JPRB/) 
158  KAO( :, 5, 6, 1) = (/&  
159  & 8.2808E06_JPRB,1.3600E05_JPRB,1.5125E05_JPRB,1.5766E05_JPRB,1.5873E05_JPRB,1.5546E05_JPRB,&  
160 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4725E05_JPRB,1.3184E05_JPRB,1.4585E05_JPRB/) 
161  KAO( :, 1, 7, 1) = (/&  
162  & 6.9702E06_JPRB,1.2049E05_JPRB,1.3655E05_JPRB,1.4254E05_JPRB,1.4272E05_JPRB,1.3786E05_JPRB,&  
163 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2775E05_JPRB,1.1193E05_JPRB,1.1151E05_JPRB/) 
164  KAO( :, 2, 7, 1) = (/&  
165  & 6.9954E06_JPRB,1.1967E05_JPRB,1.3478E05_JPRB,1.4043E05_JPRB,1.4073E05_JPRB,1.3643E05_JPRB,&  
166 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2677E05_JPRB,1.1085E05_JPRB,1.1514E05_JPRB/) 
167  KAO( :, 3, 7, 1) = (/&  
168  & 6.9926E06_JPRB,1.1851E05_JPRB,1.3284E05_JPRB,1.3826E05_JPRB,1.3871E05_JPRB,1.3488E05_JPRB,&  
169 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2600E05_JPRB,1.1081E05_JPRB,1.1911E05_JPRB/) 
170  KAO( :, 4, 7, 1) = (/&  
171  & 6.9597E06_JPRB,1.1700E05_JPRB,1.3068E05_JPRB,1.3600E05_JPRB,1.3659E05_JPRB,1.3321E05_JPRB,&  
172 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2522E05_JPRB,1.1091E05_JPRB,1.2356E05_JPRB/) 
173  KAO( :, 5, 7, 1) = (/&  
174  & 6.9051E06_JPRB,1.1522E05_JPRB,1.2825E05_JPRB,1.3359E05_JPRB,1.3444E05_JPRB,1.3151E05_JPRB,&  
175 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2435E05_JPRB,1.1100E05_JPRB,1.2847E05_JPRB/) 
176  KAO( :, 1, 8, 1) = (/&  
177  & 5.8087E06_JPRB,1.0208E05_JPRB,1.1579E05_JPRB,1.2087E05_JPRB,1.2081E05_JPRB,1.1640E05_JPRB,&  
178 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0763E05_JPRB,9.5182E06_JPRB,9.7914E06_JPRB/) 
179  KAO( :, 2, 8, 1) = (/&  
180  & 5.8314E06_JPRB,1.0134E05_JPRB,1.1429E05_JPRB,1.1911E05_JPRB,1.1918E05_JPRB,1.1522E05_JPRB,&  
181 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0685E05_JPRB,9.3144E06_JPRB,1.0107E05_JPRB/) 
182  KAO( :, 3, 8, 1) = (/&  
183  & 5.8306E06_JPRB,1.0039E05_JPRB,1.1263E05_JPRB,1.1721E05_JPRB,1.1741E05_JPRB,1.1392E05_JPRB,&  
184 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0611E05_JPRB,9.2970E06_JPRB,1.0491E05_JPRB/) 
185  KAO( :, 4, 8, 1) = (/&  
186  & 5.8084E06_JPRB,9.9094E06_JPRB,1.1082E05_JPRB,1.1528E05_JPRB,1.1564E05_JPRB,1.1253E05_JPRB,&  
187 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0543E05_JPRB,9.3028E06_JPRB,1.0943E05_JPRB/) 
188  KAO( :, 5, 8, 1) = (/&  
189  & 5.7671E06_JPRB,9.7597E06_JPRB,1.0878E05_JPRB,1.1322E05_JPRB,1.1380E05_JPRB,1.1112E05_JPRB,&  
190 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0475E05_JPRB,9.3153E06_JPRB,1.1451E05_JPRB/) 
191  KAO( :, 1, 9, 1) = (/&  
192  & 4.8301E06_JPRB,8.6067E06_JPRB,9.7714E06_JPRB,1.0210E05_JPRB,1.0192E05_JPRB,9.7977E06_JPRB,&  
193 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.0505E06_JPRB,8.2004E06_JPRB,9.1168E06_JPRB/) 
194  KAO( :, 2, 9, 1) = (/&  
195  & 4.8495E06_JPRB,8.5468E06_JPRB,9.6571E06_JPRB,1.0063E05_JPRB,1.0051E05_JPRB,9.6903E06_JPRB,&  
196 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.9660E06_JPRB,7.8251E06_JPRB,9.4876E06_JPRB/) 
197  KAO( :, 3, 9, 1) = (/&  
198  & 4.8497E06_JPRB,8.4643E06_JPRB,9.5144E06_JPRB,9.9014E06_JPRB,9.9028E06_JPRB,9.5821E06_JPRB,&  
199 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.9043E06_JPRB,7.7718E06_JPRB,9.9373E06_JPRB/) 
200  KAO( :, 4, 9, 1) = (/&  
201  & 4.8347E06_JPRB,8.3597E06_JPRB,9.3601E06_JPRB,9.7348E06_JPRB,9.7523E06_JPRB,9.4691E06_JPRB,&  
202 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.8479E06_JPRB,7.7751E06_JPRB,1.0480E05_JPRB/) 
203  KAO( :, 5, 9, 1) = (/&  
204  & 4.8060E06_JPRB,8.2344E06_JPRB,9.1913E06_JPRB,9.5624E06_JPRB,9.5965E06_JPRB,9.3522E06_JPRB,&  
205 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.7881E06_JPRB,7.7833E06_JPRB,1.1108E05_JPRB/) 
206  KAO( :, 1,10, 1) = (/&  
207  & 4.0064E06_JPRB,7.2194E06_JPRB,8.1998E06_JPRB,8.5791E06_JPRB,8.5570E06_JPRB,8.2127E06_JPRB,&  
208 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.5956E06_JPRB,7.1868E06_JPRB,1.0453E05_JPRB/) 
209  KAO( :, 2,10, 1) = (/&  
210  & 4.0197E06_JPRB,7.1679E06_JPRB,8.1105E06_JPRB,8.4531E06_JPRB,8.4331E06_JPRB,8.1149E06_JPRB,&  
211 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.4918E06_JPRB,6.5776E06_JPRB,1.0520E05_JPRB/) 
212  KAO( :, 3,10, 1) = (/&  
213  & 4.0198E06_JPRB,7.0974E06_JPRB,7.9934E06_JPRB,8.3195E06_JPRB,8.3088E06_JPRB,8.0216E06_JPRB,&  
214 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.4367E06_JPRB,6.4788E06_JPRB,1.0711E05_JPRB/) 
215  KAO( :, 4,10, 1) = (/&  
216  & 4.0097E06_JPRB,7.0130E06_JPRB,7.8610E06_JPRB,8.1737E06_JPRB,8.1778E06_JPRB,7.9289E06_JPRB,&  
217 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.3886E06_JPRB,6.4723E06_JPRB,1.1047E05_JPRB/) 
218  KAO( :, 5,10, 1) = (/&  
219  & 3.9884E06_JPRB,6.9092E06_JPRB,7.7198E06_JPRB,8.0283E06_JPRB,8.0487E06_JPRB,7.8282E06_JPRB,&  
220 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.3394E06_JPRB,6.4785E06_JPRB,1.1524E05_JPRB/) 
221  KAO( :, 1,11, 1) = (/&  
222  & 3.3235E06_JPRB,6.0184E06_JPRB,6.8284E06_JPRB,7.1399E06_JPRB,7.1176E06_JPRB,6.8268E06_JPRB,&  
223 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.3069E06_JPRB,5.9015E06_JPRB,1.0775E05_JPRB/) 
224  KAO( :, 2,11, 1) = (/&  
225  & 3.3290E06_JPRB,5.9691E06_JPRB,6.7492E06_JPRB,7.0301E06_JPRB,7.0090E06_JPRB,6.7423E06_JPRB,&  
226 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.2217E06_JPRB,5.4471E06_JPRB,1.0671E05_JPRB/) 
227  KAO( :, 3,11, 1) = (/&  
228  & 3.3251E06_JPRB,5.9052E06_JPRB,6.6470E06_JPRB,6.9153E06_JPRB,6.9027E06_JPRB,6.6631E06_JPRB,&  
229 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.1768E06_JPRB,5.3794E06_JPRB,1.0714E05_JPRB/) 
230  KAO( :, 4,11, 1) = (/&  
231  & 3.3144E06_JPRB,5.8297E06_JPRB,6.5309E06_JPRB,6.7910E06_JPRB,6.7926E06_JPRB,6.5831E06_JPRB,&  
232 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.1358E06_JPRB,5.3736E06_JPRB,1.0902E05_JPRB/) 
233  KAO( :, 5,11, 1) = (/&  
234  & 3.2953E06_JPRB,5.7419E06_JPRB,6.4131E06_JPRB,6.6688E06_JPRB,6.6812E06_JPRB,6.4951E06_JPRB,&  
235 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.0888E06_JPRB,5.3759E06_JPRB,1.1211E05_JPRB/) 
236  KAO( :, 1,12, 1) = (/&  
237  & 2.7539E06_JPRB,5.0055E06_JPRB,5.6748E06_JPRB,5.9323E06_JPRB,5.9106E06_JPRB,5.6659E06_JPRB,&  
238 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.2301E06_JPRB,4.8410E06_JPRB,1.0041E05_JPRB/) 
239  KAO( :, 2,12, 1) = (/&  
240  & 2.7540E06_JPRB,4.9609E06_JPRB,5.6055E06_JPRB,5.8388E06_JPRB,5.8173E06_JPRB,5.5933E06_JPRB,&  
241 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1585E06_JPRB,4.5035E06_JPRB,9.8783E06_JPRB/) 
242  KAO( :, 3,12, 1) = (/&  
243  & 2.7488E06_JPRB,4.9048E06_JPRB,5.5190E06_JPRB,5.7407E06_JPRB,5.7275E06_JPRB,5.5257E06_JPRB,&  
244 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1201E06_JPRB,4.4556E06_JPRB,9.8584E06_JPRB/) 
245  KAO( :, 4,12, 1) = (/&  
246  & 2.7385E06_JPRB,4.8395E06_JPRB,5.4207E06_JPRB,5.6356E06_JPRB,5.6337E06_JPRB,5.4559E06_JPRB,&  
247 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.0826E06_JPRB,4.4482E06_JPRB,9.9631E06_JPRB/) 
248  KAO( :, 5,12, 1) = (/&  
249  & 2.7214E06_JPRB,4.7654E06_JPRB,5.3225E06_JPRB,5.5318E06_JPRB,5.5373E06_JPRB,5.3782E06_JPRB,&  
250 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.0386E06_JPRB,4.4476E06_JPRB,1.0178E05_JPRB/) 
251  KAO( :, 1,13, 1) = (/&  
252  & 2.2801E06_JPRB,4.1555E06_JPRB,4.7093E06_JPRB,4.9224E06_JPRB,4.9034E06_JPRB,4.6982E06_JPRB,&  
253 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.3297E06_JPRB,3.9733E06_JPRB,8.4129E06_JPRB/) 
254  KAO( :, 2,13, 1) = (/&  
255  & 2.2770E06_JPRB,4.1173E06_JPRB,4.6509E06_JPRB,4.8443E06_JPRB,4.8245E06_JPRB,4.6351E06_JPRB,&  
256 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2708E06_JPRB,3.7196E06_JPRB,8.2708E06_JPRB/) 
257  KAO( :, 3,13, 1) = (/&  
258  & 2.2712E06_JPRB,4.0679E06_JPRB,4.5774E06_JPRB,4.7613E06_JPRB,4.7480E06_JPRB,4.5771E06_JPRB,&  
259 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2377E06_JPRB,3.6828E06_JPRB,8.2482E06_JPRB/) 
260  KAO( :, 4,13, 1) = (/&  
261  & 2.2616E06_JPRB,4.0128E06_JPRB,4.4962E06_JPRB,4.6740E06_JPRB,4.6674E06_JPRB,4.5144E06_JPRB,&  
262 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2021E06_JPRB,3.6746E06_JPRB,8.3289E06_JPRB/) 
263  KAO( :, 5,13, 1) = (/&  
264  & 2.2466E06_JPRB,3.9523E06_JPRB,4.4147E06_JPRB,4.5851E06_JPRB,4.5844E06_JPRB,4.4468E06_JPRB,&  
265 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.1612E06_JPRB,3.6696E06_JPRB,8.4982E06_JPRB/) 
266  KAO( :, 1, 1, 2) = (/&  
267  & 4.5009E05_JPRB,5.8537E05_JPRB,6.2677E05_JPRB,6.4420E05_JPRB,6.4899E05_JPRB,6.4046E05_JPRB,&  
268 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.1758E05_JPRB,5.7308E05_JPRB,4.4974E05_JPRB/) 
269  KAO( :, 2, 1, 2) = (/&  
270  & 4.4639E05_JPRB,5.7851E05_JPRB,6.2018E05_JPRB,6.3985E05_JPRB,6.4709E05_JPRB,6.3972E05_JPRB,&  
271 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.1776E05_JPRB,5.7584E05_JPRB,4.6032E05_JPRB/) 
272  KAO( :, 3, 1, 2) = (/&  
273  & 4.4183E05_JPRB,5.7134E05_JPRB,6.1429E05_JPRB,6.3594E05_JPRB,6.4467E05_JPRB,6.3906E05_JPRB,&  
274 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.1866E05_JPRB,5.7909E05_JPRB,4.7065E05_JPRB/) 
275  KAO( :, 4, 1, 2) = (/&  
276  & 4.3603E05_JPRB,5.6311E05_JPRB,6.0747E05_JPRB,6.3098E05_JPRB,6.4110E05_JPRB,6.3723E05_JPRB,&  
277 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.1859E05_JPRB,5.8107E05_JPRB,4.8038E05_JPRB/) 
278  KAO( :, 5, 1, 2) = (/&  
279  & 4.3016E05_JPRB,5.5575E05_JPRB,6.0089E05_JPRB,6.2604E05_JPRB,6.3758E05_JPRB,6.3526E05_JPRB,&  
280 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.1825E05_JPRB,5.8256E05_JPRB,4.8937E05_JPRB/) 
281  KAO( :, 1, 2, 2) = (/&  
282  & 3.8991E05_JPRB,5.1237E05_JPRB,5.5073E05_JPRB,5.6912E05_JPRB,5.7291E05_JPRB,5.6357E05_JPRB,&  
283 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4136E05_JPRB,4.9871E05_JPRB,3.8345E05_JPRB/) 
284  KAO( :, 2, 2, 2) = (/&  
285  & 3.8628E05_JPRB,5.0611E05_JPRB,5.4618E05_JPRB,5.6670E05_JPRB,5.7177E05_JPRB,5.6367E05_JPRB,&  
286 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4237E05_JPRB,5.0203E05_JPRB,3.9241E05_JPRB/) 
287  KAO( :, 3, 2, 2) = (/&  
288  & 3.8218E05_JPRB,5.0047E05_JPRB,5.4219E05_JPRB,5.6458E05_JPRB,5.7088E05_JPRB,5.6414E05_JPRB,&  
289 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4375E05_JPRB,5.0554E05_JPRB,4.0182E05_JPRB/) 
290  KAO( :, 4, 2, 2) = (/&  
291  & 3.7696E05_JPRB,4.9413E05_JPRB,5.3740E05_JPRB,5.6131E05_JPRB,5.6939E05_JPRB,5.6393E05_JPRB,&  
292 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4506E05_JPRB,5.0827E05_JPRB,4.1063E05_JPRB/) 
293  KAO( :, 5, 2, 2) = (/&  
294  & 3.7087E05_JPRB,4.8772E05_JPRB,5.3212E05_JPRB,5.5737E05_JPRB,5.6714E05_JPRB,5.6323E05_JPRB,&  
295 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4580E05_JPRB,5.1064E05_JPRB,4.1833E05_JPRB/) 
296  KAO( :, 1, 3, 2) = (/&  
297  & 3.3664E05_JPRB,4.4718E05_JPRB,4.8316E05_JPRB,5.0054E05_JPRB,5.0316E05_JPRB,4.9337E05_JPRB,&  
298 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.7131E05_JPRB,4.3067E05_JPRB,3.3821E05_JPRB/) 
299  KAO( :, 2, 3, 2) = (/&  
300  & 3.3332E05_JPRB,4.4193E05_JPRB,4.7982E05_JPRB,4.9921E05_JPRB,5.0286E05_JPRB,4.9400E05_JPRB,&  
301 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.7278E05_JPRB,4.3395E05_JPRB,3.4508E05_JPRB/) 
302  KAO( :, 3, 3, 2) = (/&  
303  & 3.2912E05_JPRB,4.3709E05_JPRB,4.7689E05_JPRB,4.9796E05_JPRB,5.0261E05_JPRB,4.9490E05_JPRB,&  
304 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.7455E05_JPRB,4.3769E05_JPRB,3.5275E05_JPRB/) 
305  KAO( :, 4, 3, 2) = (/&  
306  & 3.2477E05_JPRB,4.3262E05_JPRB,4.7404E05_JPRB,4.9658E05_JPRB,5.0286E05_JPRB,4.9612E05_JPRB,&  
307 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.7676E05_JPRB,4.4119E05_JPRB,3.6032E05_JPRB/) 
308  KAO( :, 5, 3, 2) = (/&  
309  & 3.1897E05_JPRB,4.2732E05_JPRB,4.7020E05_JPRB,4.9397E05_JPRB,5.0209E05_JPRB,4.9662E05_JPRB,&  
310 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.7863E05_JPRB,4.4408E05_JPRB,3.6739E05_JPRB/) 
311  KAO( :, 1, 4, 2) = (/&  
312  & 2.9034E05_JPRB,3.9020E05_JPRB,4.2255E05_JPRB,4.3779E05_JPRB,4.3941E05_JPRB,4.2940E05_JPRB,&  
313 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.0749E05_JPRB,3.6991E05_JPRB,3.2231E05_JPRB/) 
314  KAO( :, 2, 4, 2) = (/&  
315  & 2.8733E05_JPRB,3.8566E05_JPRB,4.1993E05_JPRB,4.3688E05_JPRB,4.3978E05_JPRB,4.3065E05_JPRB,&  
316 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.0955E05_JPRB,3.7298E05_JPRB,3.2530E05_JPRB/) 
317  KAO( :, 3, 4, 2) = (/&  
318  & 2.8365E05_JPRB,3.8166E05_JPRB,4.1800E05_JPRB,4.3640E05_JPRB,4.4034E05_JPRB,4.3186E05_JPRB,&  
319 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.1171E05_JPRB,3.7663E05_JPRB,3.3003E05_JPRB/) 
320  KAO( :, 4, 4, 2) = (/&  
321  & 2.7906E05_JPRB,3.7772E05_JPRB,4.1598E05_JPRB,4.3582E05_JPRB,4.4101E05_JPRB,4.3335E05_JPRB,&  
322 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.1429E05_JPRB,3.8018E05_JPRB,3.3543E05_JPRB/) 
323  KAO( :, 5, 4, 2) = (/&  
324  & 2.7464E05_JPRB,3.7412E05_JPRB,4.1395E05_JPRB,4.3505E05_JPRB,4.4180E05_JPRB,4.3547E05_JPRB,&  
325 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.1708E05_JPRB,3.8366E05_JPRB,3.4090E05_JPRB/) 
326  KAO( :, 1, 5, 2) = (/&  
327  & 2.5046E05_JPRB,3.4030E05_JPRB,3.6841E05_JPRB,3.8123E05_JPRB,3.8161E05_JPRB,3.7165E05_JPRB,&  
328 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5069E05_JPRB,3.1597E05_JPRB,3.1884E05_JPRB/) 
329  KAO( :, 2, 5, 2) = (/&  
330  & 2.4766E05_JPRB,3.3630E05_JPRB,3.6644E05_JPRB,3.8042E05_JPRB,3.8206E05_JPRB,3.7320E05_JPRB,&  
331 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5335E05_JPRB,3.1911E05_JPRB,3.2055E05_JPRB/) 
332  KAO( :, 3, 5, 2) = (/&  
333  & 2.4433E05_JPRB,3.3294E05_JPRB,3.6479E05_JPRB,3.8027E05_JPRB,3.8311E05_JPRB,3.7468E05_JPRB,&  
334 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5564E05_JPRB,3.2236E05_JPRB,3.2305E05_JPRB/) 
335  KAO( :, 4, 5, 2) = (/&  
336  & 2.4018E05_JPRB,3.2959E05_JPRB,3.6349E05_JPRB,3.8027E05_JPRB,3.8418E05_JPRB,3.7650E05_JPRB,&  
337 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5828E05_JPRB,3.2583E05_JPRB,3.2642E05_JPRB/) 
338  KAO( :, 5, 5, 2) = (/&  
339  & 2.3591E05_JPRB,3.2668E05_JPRB,3.6232E05_JPRB,3.8051E05_JPRB,3.8551E05_JPRB,3.7905E05_JPRB,&  
340 
2/2✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.

10  & 3.6128E05_JPRB,3.2939E05_JPRB,3.3008E05_JPRB/) 
341  
342 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART1',1,ZHOOK_HANDLE) 
343  1  END SUBROUTINE PART1  
344  
345  
346  1  SUBROUTINE PART2  
347  
348  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
349 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART2',0,ZHOOK_HANDLE) 
350  
351  
352  KAO( :, 1, 6, 2) = (/&  
353  & 2.1579E05_JPRB,2.9591E05_JPRB,3.1991E05_JPRB,3.3013E05_JPRB,3.2936E05_JPRB,3.1944E05_JPRB,&  
354 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0025E05_JPRB,2.6876E05_JPRB,2.9999E05_JPRB/) 
355  KAO( :, 2, 6, 2) = (/&  
356  & 2.1317E05_JPRB,2.9255E05_JPRB,3.1830E05_JPRB,3.2965E05_JPRB,3.2983E05_JPRB,3.2102E05_JPRB,&  
357 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0272E05_JPRB,2.7170E05_JPRB,3.0568E05_JPRB/) 
358  KAO( :, 3, 6, 2) = (/&  
359  & 2.1011E05_JPRB,2.8952E05_JPRB,3.1684E05_JPRB,3.2945E05_JPRB,3.3093E05_JPRB,3.2263E05_JPRB,&  
360 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0533E05_JPRB,2.7474E05_JPRB,3.1151E05_JPRB/) 
361  KAO( :, 4, 6, 2) = (/&  
362  & 2.0627E05_JPRB,2.8670E05_JPRB,3.1569E05_JPRB,3.2960E05_JPRB,3.3217E05_JPRB,3.2461E05_JPRB,&  
363 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0780E05_JPRB,2.7789E05_JPRB,3.1790E05_JPRB/) 
364  KAO( :, 5, 6, 2) = (/&  
365  & 2.0182E05_JPRB,2.8368E05_JPRB,3.1449E05_JPRB,3.2969E05_JPRB,3.3342E05_JPRB,3.2673E05_JPRB,&  
366 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.1052E05_JPRB,2.8119E05_JPRB,3.2386E05_JPRB/) 
367  KAO( :, 1, 7, 2) = (/&  
368  & 1.8452E05_JPRB,2.5532E05_JPRB,2.7551E05_JPRB,2.8351E05_JPRB,2.8204E05_JPRB,2.7262E05_JPRB,&  
369 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.5546E05_JPRB,2.2740E05_JPRB,2.8091E05_JPRB/) 
370  KAO( :, 2, 7, 2) = (/&  
371  & 1.8215E05_JPRB,2.5256E05_JPRB,2.7416E05_JPRB,2.8318E05_JPRB,2.8249E05_JPRB,2.7395E05_JPRB,&  
372 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.5765E05_JPRB,2.3002E05_JPRB,2.8720E05_JPRB/) 
373  KAO( :, 3, 7, 2) = (/&  
374  & 1.7931E05_JPRB,2.4972E05_JPRB,2.7294E05_JPRB,2.8314E05_JPRB,2.8348E05_JPRB,2.7572E05_JPRB,&  
375 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6008E05_JPRB,2.3291E05_JPRB,2.9431E05_JPRB/) 
376  KAO( :, 4, 7, 2) = (/&  
377  & 1.7583E05_JPRB,2.4714E05_JPRB,2.7183E05_JPRB,2.8322E05_JPRB,2.8484E05_JPRB,2.7765E05_JPRB,&  
378 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6265E05_JPRB,2.3586E05_JPRB,3.0235E05_JPRB/) 
379  KAO( :, 5, 7, 2) = (/&  
380  & 1.7179E05_JPRB,2.4453E05_JPRB,2.7076E05_JPRB,2.8339E05_JPRB,2.8609E05_JPRB,2.7972E05_JPRB,&  
381 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6510E05_JPRB,2.3882E05_JPRB,3.1083E05_JPRB/) 
382  KAO( :, 1, 8, 2) = (/&  
383  & 1.5794E05_JPRB,2.2020E05_JPRB,2.3670E05_JPRB,2.4259E05_JPRB,2.4056E05_JPRB,2.3178E05_JPRB,&  
384 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.1635E05_JPRB,1.9134E05_JPRB,2.7582E05_JPRB/) 
385  KAO( :, 2, 8, 2) = (/&  
386  & 1.5579E05_JPRB,2.1775E05_JPRB,2.3546E05_JPRB,2.4231E05_JPRB,2.4092E05_JPRB,2.3297E05_JPRB,&  
387 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.1816E05_JPRB,1.9397E05_JPRB,2.8313E05_JPRB/) 
388  KAO( :, 3, 8, 2) = (/&  
389  & 1.5328E05_JPRB,2.1517E05_JPRB,2.3429E05_JPRB,2.4220E05_JPRB,2.4175E05_JPRB,2.3443E05_JPRB,&  
390 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2039E05_JPRB,1.9642E05_JPRB,2.9205E05_JPRB/) 
391  KAO( :, 4, 8, 2) = (/&  
392  & 1.5023E05_JPRB,2.1268E05_JPRB,2.3319E05_JPRB,2.4225E05_JPRB,2.4291E05_JPRB,2.3637E05_JPRB,&  
393 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2285E05_JPRB,1.9922E05_JPRB,3.0174E05_JPRB/) 
394  KAO( :, 5, 8, 2) = (/&  
395  & 1.4668E05_JPRB,2.1020E05_JPRB,2.3208E05_JPRB,2.4227E05_JPRB,2.4407E05_JPRB,2.3824E05_JPRB,&  
396 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2528E05_JPRB,2.0191E05_JPRB,3.1226E05_JPRB/) 
397  KAO( :, 1, 9, 2) = (/&  
398  & 1.3453E05_JPRB,1.8874E05_JPRB,2.0200E05_JPRB,2.0614E05_JPRB,2.0394E05_JPRB,1.9585E05_JPRB,&  
399 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8218E05_JPRB,1.5952E05_JPRB,3.1081E05_JPRB/) 
400  KAO( :, 2, 9, 2) = (/&  
401  & 1.3262E05_JPRB,1.8651E05_JPRB,2.0085E05_JPRB,2.0598E05_JPRB,2.0424E05_JPRB,1.9696E05_JPRB,&  
402 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8380E05_JPRB,1.6281E05_JPRB,3.2467E05_JPRB/) 
403  KAO( :, 3, 9, 2) = (/&  
404  & 1.3038E05_JPRB,1.8418E05_JPRB,1.9972E05_JPRB,2.0581E05_JPRB,2.0487E05_JPRB,1.9824E05_JPRB,&  
405 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8572E05_JPRB,1.6491E05_JPRB,3.3986E05_JPRB/) 
406  KAO( :, 4, 9, 2) = (/&  
407  & 1.2776E05_JPRB,1.8181E05_JPRB,1.9859E05_JPRB,2.0572E05_JPRB,2.0585E05_JPRB,1.9985E05_JPRB,&  
408 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8794E05_JPRB,1.6733E05_JPRB,3.5607E05_JPRB/) 
409  KAO( :, 5, 9, 2) = (/&  
410  & 1.2471E05_JPRB,1.7952E05_JPRB,1.9753E05_JPRB,2.0569E05_JPRB,2.0679E05_JPRB,2.0158E05_JPRB,&  
411 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9021E05_JPRB,1.6980E05_JPRB,3.7340E05_JPRB/) 
412  KAO( :, 1,10, 2) = (/&  
413  & 1.1374E05_JPRB,1.6047E05_JPRB,1.7111E05_JPRB,1.7393E05_JPRB,1.7165E05_JPRB,1.6451E05_JPRB,&  
414 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5255E05_JPRB,1.3140E05_JPRB,3.4787E05_JPRB/) 
415  KAO( :, 2,10, 2) = (/&  
416  & 1.1208E05_JPRB,1.5847E05_JPRB,1.6997E05_JPRB,1.7386E05_JPRB,1.7209E05_JPRB,1.6555E05_JPRB,&  
417 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5407E05_JPRB,1.3598E05_JPRB,3.7476E05_JPRB/) 
418  KAO( :, 3,10, 2) = (/&  
419  & 1.1010E05_JPRB,1.5634E05_JPRB,1.6890E05_JPRB,1.7366E05_JPRB,1.7258E05_JPRB,1.6670E05_JPRB,&  
420 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5570E05_JPRB,1.3793E05_JPRB,4.0426E05_JPRB/) 
421  KAO( :, 4,10, 2) = (/&  
422  & 1.0782E05_JPRB,1.5423E05_JPRB,1.6783E05_JPRB,1.7341E05_JPRB,1.7331E05_JPRB,1.6806E05_JPRB,&  
423 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5764E05_JPRB,1.4000E05_JPRB,4.3679E05_JPRB/) 
424  KAO( :, 5,10, 2) = (/&  
425  & 1.0524E05_JPRB,1.5209E05_JPRB,1.6680E05_JPRB,1.7333E05_JPRB,1.7403E05_JPRB,1.6952E05_JPRB,&  
426 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5975E05_JPRB,1.4224E05_JPRB,4.7059E05_JPRB/) 
427  KAO( :, 1,11, 2) = (/&  
428  & 9.5209E06_JPRB,1.3499E05_JPRB,1.4375E05_JPRB,1.4600E05_JPRB,1.4393E05_JPRB,1.3793E05_JPRB,&  
429 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2781E05_JPRB,1.1038E05_JPRB,3.2865E05_JPRB/) 
430  KAO( :, 2,11, 2) = (/&  
431  & 9.3637E06_JPRB,1.3313E05_JPRB,1.4267E05_JPRB,1.4592E05_JPRB,1.4440E05_JPRB,1.3889E05_JPRB,&  
432 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2920E05_JPRB,1.1404E05_JPRB,3.5445E05_JPRB/) 
433  KAO( :, 3,11, 2) = (/&  
434  & 9.1833E06_JPRB,1.3123E05_JPRB,1.4166E05_JPRB,1.4568E05_JPRB,1.4482E05_JPRB,1.3996E05_JPRB,&  
435 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3070E05_JPRB,1.1568E05_JPRB,3.8218E05_JPRB/) 
436  KAO( :, 4,11, 2) = (/&  
437  & 8.9761E06_JPRB,1.2932E05_JPRB,1.4072E05_JPRB,1.4544E05_JPRB,1.4541E05_JPRB,1.4107E05_JPRB,&  
438 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3243E05_JPRB,1.1758E05_JPRB,4.1117E05_JPRB/) 
439  KAO( :, 5,11, 2) = (/&  
440  & 8.7519E06_JPRB,1.2738E05_JPRB,1.3974E05_JPRB,1.4523E05_JPRB,1.4594E05_JPRB,1.4232E05_JPRB,&  
441 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3426E05_JPRB,1.1955E05_JPRB,4.4210E05_JPRB/) 
442  KAO( :, 1,12, 2) = (/&  
443  & 7.9463E06_JPRB,1.1314E05_JPRB,1.2032E05_JPRB,1.2211E05_JPRB,1.2025E05_JPRB,1.1526E05_JPRB,&  
444 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0676E05_JPRB,9.2413E06_JPRB,2.9106E05_JPRB/) 
445  KAO( :, 2,12, 2) = (/&  
446  & 7.8042E06_JPRB,1.1141E05_JPRB,1.1931E05_JPRB,1.2198E05_JPRB,1.2069E05_JPRB,1.1610E05_JPRB,&  
447 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0799E05_JPRB,9.5264E06_JPRB,3.1349E05_JPRB/) 
448  KAO( :, 3,12, 2) = (/&  
449  & 7.6428E06_JPRB,1.0975E05_JPRB,1.1841E05_JPRB,1.2172E05_JPRB,1.2102E05_JPRB,1.1694E05_JPRB,&  
450 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0928E05_JPRB,9.6721E06_JPRB,3.3866E05_JPRB/) 
451  KAO( :, 4,12, 2) = (/&  
452  & 7.4623E06_JPRB,1.0806E05_JPRB,1.1756E05_JPRB,1.2145E05_JPRB,1.2145E05_JPRB,1.1788E05_JPRB,&  
453 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1076E05_JPRB,9.8394E06_JPRB,3.6457E05_JPRB/) 
454  KAO( :, 5,12, 2) = (/&  
455  & 7.2711E06_JPRB,1.0633E05_JPRB,1.1656E05_JPRB,1.2115E05_JPRB,1.2181E05_JPRB,1.1891E05_JPRB,&  
456 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1228E05_JPRB,1.0010E05_JPRB,3.9156E05_JPRB/) 
457  KAO( :, 1,13, 2) = (/&  
458  & 6.6184E06_JPRB,9.4565E06_JPRB,1.0043E05_JPRB,1.0182E05_JPRB,1.0021E05_JPRB,9.6035E06_JPRB,&  
459 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.8893E06_JPRB,7.7053E06_JPRB,2.4435E05_JPRB/) 
460  KAO( :, 2,13, 2) = (/&  
461  & 6.4936E06_JPRB,9.3020E06_JPRB,9.9506E06_JPRB,1.0164E05_JPRB,1.0053E05_JPRB,9.6688E06_JPRB,&  
462 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.9931E06_JPRB,7.9311E06_JPRB,2.6318E05_JPRB/) 
463  KAO( :, 3,13, 2) = (/&  
464  & 6.3517E06_JPRB,9.1558E06_JPRB,9.8692E06_JPRB,1.0135E05_JPRB,1.0076E05_JPRB,9.7347E06_JPRB,&  
465 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.1027E06_JPRB,8.0612E06_JPRB,2.8419E05_JPRB/) 
466  KAO( :, 4,13, 2) = (/&  
467  & 6.1987E06_JPRB,9.0085E06_JPRB,9.7873E06_JPRB,1.0106E05_JPRB,1.0104E05_JPRB,9.8108E06_JPRB,&  
468 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.2254E06_JPRB,8.2025E06_JPRB,3.0596E05_JPRB/) 
469  KAO( :, 5,13, 2) = (/&  
470  & 6.0390E06_JPRB,8.8585E06_JPRB,9.6966E06_JPRB,1.0071E05_JPRB,1.0127E05_JPRB,9.8907E06_JPRB,&  
471 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.3441E06_JPRB,8.3431E06_JPRB,3.2866E05_JPRB/) 
472  KAO( :, 1, 1, 3) = (/&  
473  & 7.0753E05_JPRB,8.7371E05_JPRB,9.5172E05_JPRB,9.9390E05_JPRB,1.0056E04_JPRB,9.9494E05_JPRB,&  
474 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.5837E05_JPRB,8.9326E05_JPRB,7.4323E05_JPRB/) 
475  KAO( :, 2, 1, 3) = (/&  
476  & 6.9795E05_JPRB,8.7509E05_JPRB,9.5691E05_JPRB,9.9950E05_JPRB,1.0125E04_JPRB,1.0041E04_JPRB,&  
477 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.7011E05_JPRB,9.0609E05_JPRB,7.5641E05_JPRB/) 
478  KAO( :, 3, 1, 3) = (/&  
479  & 6.9131E05_JPRB,8.7916E05_JPRB,9.6468E05_JPRB,1.0076E04_JPRB,1.0214E04_JPRB,1.0141E04_JPRB,&  
480 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.8247E05_JPRB,9.2085E05_JPRB,7.7357E05_JPRB/) 
481  KAO( :, 4, 1, 3) = (/&  
482  & 6.8482E05_JPRB,8.8338E05_JPRB,9.7157E05_JPRB,1.0153E04_JPRB,1.0307E04_JPRB,1.0249E04_JPRB,&  
483 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.9530E05_JPRB,9.3696E05_JPRB,7.9379E05_JPRB/) 
484  KAO( :, 5, 1, 3) = (/&  
485  & 6.7880E05_JPRB,8.8892E05_JPRB,9.7857E05_JPRB,1.0242E04_JPRB,1.0411E04_JPRB,1.0366E04_JPRB,&  
486 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0077E04_JPRB,9.5333E05_JPRB,8.1423E05_JPRB/) 
487  KAO( :, 1, 2, 3) = (/&  
488  & 6.2276E05_JPRB,7.8469E05_JPRB,8.5472E05_JPRB,8.8868E05_JPRB,8.9888E05_JPRB,8.8903E05_JPRB,&  
489 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.5409E05_JPRB,7.9146E05_JPRB,6.4309E05_JPRB/) 
490  KAO( :, 2, 2, 3) = (/&  
491  & 6.1522E05_JPRB,7.8775E05_JPRB,8.6027E05_JPRB,8.9487E05_JPRB,9.0686E05_JPRB,8.9927E05_JPRB,&  
492 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.6540E05_JPRB,8.0293E05_JPRB,6.5447E05_JPRB/) 
493  KAO( :, 3, 2, 3) = (/&  
494  & 6.1045E05_JPRB,7.9281E05_JPRB,8.6793E05_JPRB,9.0368E05_JPRB,9.1669E05_JPRB,9.0966E05_JPRB,&  
495 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.7713E05_JPRB,8.1579E05_JPRB,6.6858E05_JPRB/) 
496  KAO( :, 4, 2, 3) = (/&  
497  & 6.0651E05_JPRB,7.9924E05_JPRB,8.7586E05_JPRB,9.1281E05_JPRB,9.2660E05_JPRB,9.2033E05_JPRB,&  
498 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.8973E05_JPRB,8.3100E05_JPRB,6.8552E05_JPRB/) 
499  KAO( :, 5, 2, 3) = (/&  
500  & 6.0196E05_JPRB,8.0517E05_JPRB,8.8362E05_JPRB,9.2181E05_JPRB,9.3655E05_JPRB,9.3124E05_JPRB,&  
501 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.0231E05_JPRB,8.4620E05_JPRB,7.0321E05_JPRB/) 
502  KAO( :, 1, 3, 3) = (/&  
503  & 5.4594E05_JPRB,7.0140E05_JPRB,7.6291E05_JPRB,7.9103E05_JPRB,7.9908E05_JPRB,7.8825E05_JPRB,&  
504 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.5557E05_JPRB,6.9638E05_JPRB,5.6129E05_JPRB/) 
505  KAO( :, 2, 3, 3) = (/&  
506  & 5.3987E05_JPRB,7.0481E05_JPRB,7.6809E05_JPRB,7.9722E05_JPRB,8.0799E05_JPRB,7.9847E05_JPRB,&  
507 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.6636E05_JPRB,7.0746E05_JPRB,5.7083E05_JPRB/) 
508  KAO( :, 3, 3, 3) = (/&  
509  & 5.3598E05_JPRB,7.0935E05_JPRB,7.7478E05_JPRB,8.0559E05_JPRB,8.1742E05_JPRB,8.0926E05_JPRB,&  
510 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.7718E05_JPRB,7.1792E05_JPRB,5.8231E05_JPRB/) 
511  KAO( :, 4, 3, 3) = (/&  
512  & 5.3419E05_JPRB,7.1650E05_JPRB,7.8342E05_JPRB,8.1570E05_JPRB,8.2791E05_JPRB,8.1991E05_JPRB,&  
513 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.8849E05_JPRB,7.3062E05_JPRB,5.9633E05_JPRB/) 
514  KAO( :, 5, 3, 3) = (/&  
515  & 5.3129E05_JPRB,7.2273E05_JPRB,7.9178E05_JPRB,8.2486E05_JPRB,8.3759E05_JPRB,8.3022E05_JPRB,&  
516 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.0014E05_JPRB,7.4467E05_JPRB,6.1152E05_JPRB/) 
517  KAO( :, 1, 4, 3) = (/&  
518  & 4.7696E05_JPRB,6.2286E05_JPRB,6.7749E05_JPRB,7.0181E05_JPRB,7.0624E05_JPRB,6.9456E05_JPRB,&  
519 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.6381E05_JPRB,6.0701E05_JPRB,5.1576E05_JPRB/) 
520  KAO( :, 2, 4, 3) = (/&  
521  & 4.7208E05_JPRB,6.2637E05_JPRB,6.8240E05_JPRB,7.0849E05_JPRB,7.1530E05_JPRB,7.0423E05_JPRB,&  
522 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.7425E05_JPRB,6.1760E05_JPRB,5.2349E05_JPRB/) 
523  KAO( :, 3, 4, 3) = (/&  
524  & 4.6920E05_JPRB,6.3058E05_JPRB,6.8836E05_JPRB,7.1607E05_JPRB,7.2463E05_JPRB,7.1509E05_JPRB,&  
525 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.8509E05_JPRB,6.2750E05_JPRB,5.3224E05_JPRB/) 
526  KAO( :, 4, 4, 3) = (/&  
527  & 4.6776E05_JPRB,6.3606E05_JPRB,6.9601E05_JPRB,7.2517E05_JPRB,7.3446E05_JPRB,7.2570E05_JPRB,&  
528 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.9521E05_JPRB,6.3786E05_JPRB,5.4286E05_JPRB/) 
529  KAO( :, 5, 4, 3) = (/&  
530  & 4.6682E05_JPRB,6.4343E05_JPRB,7.0568E05_JPRB,7.3573E05_JPRB,7.4545E05_JPRB,7.3619E05_JPRB,&  
531 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.0604E05_JPRB,6.5003E05_JPRB,5.5521E05_JPRB/) 
532  KAO( :, 1, 5, 3) = (/&  
533  & 4.1581E05_JPRB,5.4899E05_JPRB,5.9799E05_JPRB,6.1832E05_JPRB,6.2136E05_JPRB,6.0898E05_JPRB,&  
534 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.7964E05_JPRB,5.2516E05_JPRB,5.0115E05_JPRB/) 
535  KAO( :, 2, 5, 3) = (/&  
536  & 4.1165E05_JPRB,5.5257E05_JPRB,6.0251E05_JPRB,6.2555E05_JPRB,6.3007E05_JPRB,6.1795E05_JPRB,&  
537 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.8864E05_JPRB,5.3500E05_JPRB,5.0524E05_JPRB/) 
538  KAO( :, 3, 5, 3) = (/&  
539  & 4.0905E05_JPRB,5.5656E05_JPRB,6.0839E05_JPRB,6.3322E05_JPRB,6.3891E05_JPRB,6.2840E05_JPRB,&  
540 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.9887E05_JPRB,5.4446E05_JPRB,5.1001E05_JPRB/) 
541  KAO( :, 4, 5, 3) = (/&  
542  & 4.0790E05_JPRB,5.6129E05_JPRB,6.1526E05_JPRB,6.4146E05_JPRB,6.4873E05_JPRB,6.3880E05_JPRB,&  
543 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.0934E05_JPRB,5.5421E05_JPRB,5.1576E05_JPRB/) 
544  KAO( :, 5, 5, 3) = (/&  
545  & 4.0741E05_JPRB,5.6811E05_JPRB,6.2419E05_JPRB,6.5146E05_JPRB,6.5947E05_JPRB,6.4915E05_JPRB,&  
546 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.1966E05_JPRB,5.6459E05_JPRB,5.2345E05_JPRB/) 
547  KAO( :, 1, 6, 3) = (/&  
548  & 3.6128E05_JPRB,4.8074E05_JPRB,5.2303E05_JPRB,5.4088E05_JPRB,5.4305E05_JPRB,5.3072E05_JPRB,&  
549 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.0232E05_JPRB,4.5105E05_JPRB,5.1680E05_JPRB/) 
550  KAO( :, 2, 6, 3) = (/&  
551  & 3.5776E05_JPRB,4.8378E05_JPRB,5.2790E05_JPRB,5.4763E05_JPRB,5.5146E05_JPRB,5.3920E05_JPRB,&  
552 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1041E05_JPRB,4.6023E05_JPRB,5.1519E05_JPRB/) 
553  KAO( :, 3, 6, 3) = (/&  
554  & 3.5527E05_JPRB,4.8788E05_JPRB,5.3350E05_JPRB,5.5505E05_JPRB,5.5990E05_JPRB,5.4859E05_JPRB,&  
555 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1952E05_JPRB,4.6910E05_JPRB,5.1451E05_JPRB/) 
556  KAO( :, 4, 6, 3) = (/&  
557  & 3.5393E05_JPRB,4.9227E05_JPRB,5.4029E05_JPRB,5.6316E05_JPRB,5.6902E05_JPRB,5.5852E05_JPRB,&  
558 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.2950E05_JPRB,4.7839E05_JPRB,5.1463E05_JPRB/) 
559  KAO( :, 5, 6, 3) = (/&  
560  & 3.5279E05_JPRB,4.9738E05_JPRB,5.4773E05_JPRB,5.7200E05_JPRB,5.7864E05_JPRB,5.6831E05_JPRB,&  
561 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.3962E05_JPRB,4.8775E05_JPRB,5.1664E05_JPRB/) 
562  KAO( :, 1, 7, 3) = (/&  
563  & 3.1175E05_JPRB,4.1797E05_JPRB,4.5353E05_JPRB,4.6878E05_JPRB,4.7045E05_JPRB,4.5914E05_JPRB,&  
564 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.3260E05_JPRB,3.8528E05_JPRB,5.5034E05_JPRB/) 
565  KAO( :, 2, 7, 3) = (/&  
566  & 3.0861E05_JPRB,4.2063E05_JPRB,4.5864E05_JPRB,4.7535E05_JPRB,4.7827E05_JPRB,4.6677E05_JPRB,&  
567 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.3974E05_JPRB,3.9350E05_JPRB,5.5182E05_JPRB/) 
568  KAO( :, 3, 7, 3) = (/&  
569  & 3.0632E05_JPRB,4.2441E05_JPRB,4.6427E05_JPRB,4.8241E05_JPRB,4.8620E05_JPRB,4.7526E05_JPRB,&  
570 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.4793E05_JPRB,4.0140E05_JPRB,5.5398E05_JPRB/) 
571  KAO( :, 4, 7, 3) = (/&  
572  & 3.0475E05_JPRB,4.2876E05_JPRB,4.7039E05_JPRB,4.9018E05_JPRB,4.9446E05_JPRB,4.8432E05_JPRB,&  
573 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.5701E05_JPRB,4.0986E05_JPRB,5.5585E05_JPRB/) 
574  KAO( :, 5, 7, 3) = (/&  
575  & 3.0340E05_JPRB,4.3333E05_JPRB,4.7753E05_JPRB,4.9874E05_JPRB,5.0366E05_JPRB,4.9368E05_JPRB,&  
576 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.6641E05_JPRB,4.1870E05_JPRB,5.5728E05_JPRB/) 
577  KAO( :, 1, 8, 3) = (/&  
578  & 2.6882E05_JPRB,3.6181E05_JPRB,3.9159E05_JPRB,4.0385E05_JPRB,4.0472E05_JPRB,3.9467E05_JPRB,&  
579 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7068E05_JPRB,3.2787E05_JPRB,6.0191E05_JPRB/) 
580  KAO( :, 2, 8, 3) = (/&  
581  & 2.6577E05_JPRB,3.6420E05_JPRB,3.9630E05_JPRB,4.1005E05_JPRB,4.1190E05_JPRB,4.0154E05_JPRB,&  
582 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7711E05_JPRB,3.3501E05_JPRB,6.0976E05_JPRB/) 
583  KAO( :, 3, 8, 3) = (/&  
584  & 2.6344E05_JPRB,3.6733E05_JPRB,4.0183E05_JPRB,4.1714E05_JPRB,4.1930E05_JPRB,4.0908E05_JPRB,&  
585 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8425E05_JPRB,3.4195E05_JPRB,6.1747E05_JPRB/) 
586  KAO( :, 4, 8, 3) = (/&  
587  & 2.6154E05_JPRB,3.7129E05_JPRB,4.0772E05_JPRB,4.2424E05_JPRB,4.2698E05_JPRB,4.1708E05_JPRB,&  
588 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.9208E05_JPRB,3.4923E05_JPRB,6.2436E05_JPRB/) 
589  KAO( :, 5, 8, 3) = (/&  
590  & 2.5969E05_JPRB,3.7541E05_JPRB,4.1396E05_JPRB,4.3205E05_JPRB,4.3544E05_JPRB,4.2561E05_JPRB,&  
591 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.0066E05_JPRB,3.5716E05_JPRB,6.2996E05_JPRB/) 
592  KAO( :, 1, 9, 3) = (/&  
593  & 2.3030E05_JPRB,3.1081E05_JPRB,3.3574E05_JPRB,3.4578E05_JPRB,3.4594E05_JPRB,3.3680E05_JPRB,&  
594 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.1564E05_JPRB,2.7753E05_JPRB,8.2972E05_JPRB/) 
595  KAO( :, 2, 9, 3) = (/&  
596  & 2.2745E05_JPRB,3.1301E05_JPRB,3.4001E05_JPRB,3.5099E05_JPRB,3.5210E05_JPRB,3.4293E05_JPRB,&  
597 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2147E05_JPRB,2.8418E05_JPRB,8.5573E05_JPRB/) 
598  KAO( :, 3, 9, 3) = (/&  
599  & 2.2504E05_JPRB,3.1575E05_JPRB,3.4507E05_JPRB,3.5759E05_JPRB,3.5892E05_JPRB,3.4957E05_JPRB,&  
600 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2777E05_JPRB,2.9021E05_JPRB,8.7692E05_JPRB/) 
601  KAO( :, 4, 9, 3) = (/&  
602  & 2.2288E05_JPRB,3.1903E05_JPRB,3.5055E05_JPRB,3.6460E05_JPRB,3.6616E05_JPRB,3.5667E05_JPRB,&  
603 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.3440E05_JPRB,2.9641E05_JPRB,8.9596E05_JPRB/) 
604  KAO( :, 5, 9, 3) = (/&  
605  & 2.2076E05_JPRB,3.2254E05_JPRB,3.5612E05_JPRB,3.7158E05_JPRB,3.7379E05_JPRB,3.6426E05_JPRB,&  
606 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.4185E05_JPRB,3.0329E05_JPRB,9.1172E05_JPRB/) 
607  KAO( :, 1,10, 3) = (/&  
608  & 1.9573E05_JPRB,2.6501E05_JPRB,2.8604E05_JPRB,2.9434E05_JPRB,2.9415E05_JPRB,2.8586E05_JPRB,&  
609 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6756E05_JPRB,2.3398E05_JPRB,1.1831E04_JPRB/) 
610  KAO( :, 2,10, 3) = (/&  
611  & 1.9311E05_JPRB,2.6696E05_JPRB,2.8987E05_JPRB,2.9871E05_JPRB,2.9930E05_JPRB,2.9131E05_JPRB,&  
612 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.7291E05_JPRB,2.4061E05_JPRB,1.2413E04_JPRB/) 
613  KAO( :, 3,10, 3) = (/&  
614  & 1.9064E05_JPRB,2.6931E05_JPRB,2.9433E05_JPRB,3.0442E05_JPRB,3.0524E05_JPRB,2.9723E05_JPRB,&  
615 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.7830E05_JPRB,2.4575E05_JPRB,1.2968E04_JPRB/) 
616  KAO( :, 4,10, 3) = (/&  
617  & 1.8838E05_JPRB,2.7200E05_JPRB,2.9911E05_JPRB,3.1092E05_JPRB,3.1189E05_JPRB,3.0347E05_JPRB,&  
618 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.8402E05_JPRB,2.5111E05_JPRB,1.3500E04_JPRB/) 
619  KAO( :, 5,10, 3) = (/&  
620  & 1.8619E05_JPRB,2.7473E05_JPRB,3.0391E05_JPRB,3.1737E05_JPRB,3.1883E05_JPRB,3.1020E05_JPRB,&  
621 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.9042E05_JPRB,2.5702E05_JPRB,1.4050E04_JPRB/) 
622  KAO( :, 1,11, 3) = (/&  
623  & 1.6456E05_JPRB,2.2515E05_JPRB,2.4353E05_JPRB,2.5062E05_JPRB,2.5054E05_JPRB,2.4348E05_JPRB,&  
624 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2780E05_JPRB,1.9929E05_JPRB,1.2447E04_JPRB/) 
625  KAO( :, 2,11, 3) = (/&  
626  & 1.6210E05_JPRB,2.2705E05_JPRB,2.4709E05_JPRB,2.5473E05_JPRB,2.5515E05_JPRB,2.4826E05_JPRB,&  
627 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3259E05_JPRB,2.0482E05_JPRB,1.3150E04_JPRB/) 
628  KAO( :, 3,11, 3) = (/&  
629  & 1.5971E05_JPRB,2.2902E05_JPRB,2.5095E05_JPRB,2.5990E05_JPRB,2.6068E05_JPRB,2.5361E05_JPRB,&  
630 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3741E05_JPRB,2.0933E05_JPRB,1.3833E04_JPRB/) 
631  KAO( :, 4,11, 3) = (/&  
632  & 1.5752E05_JPRB,2.3106E05_JPRB,2.5493E05_JPRB,2.6568E05_JPRB,2.6674E05_JPRB,2.5935E05_JPRB,&  
633 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4259E05_JPRB,2.1401E05_JPRB,1.4470E04_JPRB/) 
634  KAO( :, 5,11, 3) = (/&  
635  & 1.5528E05_JPRB,2.3318E05_JPRB,2.5901E05_JPRB,2.7141E05_JPRB,2.7302E05_JPRB,2.6558E05_JPRB,&  
636 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4843E05_JPRB,2.1914E05_JPRB,1.5074E04_JPRB/) 
637  KAO( :, 1,12, 3) = (/&  
638  & 1.3780E05_JPRB,1.9033E05_JPRB,2.0619E05_JPRB,2.1228E05_JPRB,2.1226E05_JPRB,2.0621E05_JPRB,&  
639 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9294E05_JPRB,1.6882E05_JPRB,1.1649E04_JPRB/) 
640  KAO( :, 2,12, 3) = (/&  
641  & 1.3548E05_JPRB,1.9199E05_JPRB,2.0913E05_JPRB,2.1600E05_JPRB,2.1645E05_JPRB,2.1053E05_JPRB,&  
642 
2/2✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.

10  & 1.9719E05_JPRB,1.7352E05_JPRB,1.2368E04_JPRB/) 
643  
644 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART2',1,ZHOOK_HANDLE) 
645  1  END SUBROUTINE PART2  
646  
647  
648  1  SUBROUTINE PART3  
649  
650  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
651 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART3',0,ZHOOK_HANDLE) 
652  
653  
654  KAO( :, 3,12, 3) = (/&  
655  & 1.3324E05_JPRB,1.9341E05_JPRB,2.1240E05_JPRB,2.2050E05_JPRB,2.2132E05_JPRB,2.1536E05_JPRB,&  
656 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0156E05_JPRB,1.7750E05_JPRB,1.3017E04_JPRB/) 
657  KAO( :, 4,12, 3) = (/&  
658  & 1.3111E05_JPRB,1.9487E05_JPRB,2.1558E05_JPRB,2.2533E05_JPRB,2.2665E05_JPRB,2.2056E05_JPRB,&  
659 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0628E05_JPRB,1.8158E05_JPRB,1.3659E04_JPRB/) 
660  KAO( :, 5,12, 3) = (/&  
661  & 1.2895E05_JPRB,1.9642E05_JPRB,2.1889E05_JPRB,2.3011E05_JPRB,2.3210E05_JPRB,2.2606E05_JPRB,&  
662 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.1150E05_JPRB,1.8610E05_JPRB,1.4251E04_JPRB/) 
663  KAO( :, 1,13, 3) = (/&  
664  & 1.1500E05_JPRB,1.6003E05_JPRB,1.7357E05_JPRB,1.7889E05_JPRB,1.7884E05_JPRB,1.7367E05_JPRB,&  
665 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6254E05_JPRB,1.4227E05_JPRB,9.8757E05_JPRB/) 
666  KAO( :, 2,13, 3) = (/&  
667  & 1.1286E05_JPRB,1.6126E05_JPRB,1.7594E05_JPRB,1.8210E05_JPRB,1.8252E05_JPRB,1.7751E05_JPRB,&  
668 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6632E05_JPRB,1.4641E05_JPRB,1.0488E04_JPRB/) 
669  KAO( :, 3,13, 3) = (/&  
670  & 1.1079E05_JPRB,1.6225E05_JPRB,1.7843E05_JPRB,1.8579E05_JPRB,1.8672E05_JPRB,1.8176E05_JPRB,&  
671 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7024E05_JPRB,1.4980E05_JPRB,1.1036E04_JPRB/) 
672  KAO( :, 4,13, 3) = (/&  
673  & 1.0876E05_JPRB,1.6327E05_JPRB,1.8099E05_JPRB,1.8965E05_JPRB,1.9122E05_JPRB,1.8629E05_JPRB,&  
674 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7445E05_JPRB,1.5339E05_JPRB,1.1580E04_JPRB/) 
675  KAO( :, 5,13, 3) = (/&  
676  & 1.0678E05_JPRB,1.6434E05_JPRB,1.8360E05_JPRB,1.9355E05_JPRB,1.9573E05_JPRB,1.9100E05_JPRB,&  
677 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7895E05_JPRB,1.5734E05_JPRB,1.2071E04_JPRB/) 
678  KAO( :, 1, 1, 4) = (/&  
679  & 1.0452E04_JPRB,1.3483E04_JPRB,1.4507E04_JPRB,1.5035E04_JPRB,1.5233E04_JPRB,1.5098E04_JPRB,&  
680 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4623E04_JPRB,1.3688E04_JPRB,1.1596E04_JPRB/) 
681  KAO( :, 2, 1, 4) = (/&  
682  & 1.0431E04_JPRB,1.3598E04_JPRB,1.4693E04_JPRB,1.5285E04_JPRB,1.5505E04_JPRB,1.5376E04_JPRB,&  
683 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4899E04_JPRB,1.4010E04_JPRB,1.1898E04_JPRB/) 
684  KAO( :, 3, 1, 4) = (/&  
685  & 1.0452E04_JPRB,1.3748E04_JPRB,1.4911E04_JPRB,1.5568E04_JPRB,1.5820E04_JPRB,1.5701E04_JPRB,&  
686 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5204E04_JPRB,1.4309E04_JPRB,1.2195E04_JPRB/) 
687  KAO( :, 4, 1, 4) = (/&  
688  & 1.0446E04_JPRB,1.3898E04_JPRB,1.5142E04_JPRB,1.5876E04_JPRB,1.6160E04_JPRB,1.6033E04_JPRB,&  
689 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5519E04_JPRB,1.4614E04_JPRB,1.2504E04_JPRB/) 
690  KAO( :, 5, 1, 4) = (/&  
691  & 1.0490E04_JPRB,1.4072E04_JPRB,1.5426E04_JPRB,1.6221E04_JPRB,1.6521E04_JPRB,1.6398E04_JPRB,&  
692 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5900E04_JPRB,1.4986E04_JPRB,1.2878E04_JPRB/) 
693  KAO( :, 1, 2, 4) = (/&  
694  & 9.4204E05_JPRB,1.2226E04_JPRB,1.3172E04_JPRB,1.3677E04_JPRB,1.3845E04_JPRB,1.3676E04_JPRB,&  
695 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3184E04_JPRB,1.2295E04_JPRB,1.0190E04_JPRB/) 
696  KAO( :, 2, 2, 4) = (/&  
697  & 9.4074E05_JPRB,1.2351E04_JPRB,1.3361E04_JPRB,1.3908E04_JPRB,1.4094E04_JPRB,1.3921E04_JPRB,&  
698 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3441E04_JPRB,1.2595E04_JPRB,1.0466E04_JPRB/) 
699  KAO( :, 3, 2, 4) = (/&  
700  & 9.4344E05_JPRB,1.2509E04_JPRB,1.3579E04_JPRB,1.4166E04_JPRB,1.4376E04_JPRB,1.4219E04_JPRB,&  
701 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3731E04_JPRB,1.2889E04_JPRB,1.0736E04_JPRB/) 
702  KAO( :, 4, 2, 4) = (/&  
703  & 9.4551E05_JPRB,1.2662E04_JPRB,1.3810E04_JPRB,1.4452E04_JPRB,1.4685E04_JPRB,1.4532E04_JPRB,&  
704 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4026E04_JPRB,1.3156E04_JPRB,1.1005E04_JPRB/) 
705  KAO( :, 5, 2, 4) = (/&  
706  & 9.4911E05_JPRB,1.2828E04_JPRB,1.4068E04_JPRB,1.4753E04_JPRB,1.5017E04_JPRB,1.4865E04_JPRB,&  
707 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4353E04_JPRB,1.3462E04_JPRB,1.1332E04_JPRB/) 
708  KAO( :, 1, 3, 4) = (/&  
709  & 8.4477E05_JPRB,1.0977E04_JPRB,1.1875E04_JPRB,1.2346E04_JPRB,1.2481E04_JPRB,1.2312E04_JPRB,&  
710 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1833E04_JPRB,1.0957E04_JPRB,8.9535E05_JPRB/) 
711  KAO( :, 2, 3, 4) = (/&  
712  & 8.4379E05_JPRB,1.1105E04_JPRB,1.2059E04_JPRB,1.2560E04_JPRB,1.2700E04_JPRB,1.2527E04_JPRB,&  
713 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2063E04_JPRB,1.1208E04_JPRB,9.1925E05_JPRB/) 
714  KAO( :, 3, 3, 4) = (/&  
715  & 8.4459E05_JPRB,1.1263E04_JPRB,1.2255E04_JPRB,1.2789E04_JPRB,1.2949E04_JPRB,1.2788E04_JPRB,&  
716 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2327E04_JPRB,1.1489E04_JPRB,9.4307E05_JPRB/) 
717  KAO( :, 4, 3, 4) = (/&  
718  & 8.4957E05_JPRB,1.1436E04_JPRB,1.2477E04_JPRB,1.3051E04_JPRB,1.3225E04_JPRB,1.3075E04_JPRB,&  
719 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2605E04_JPRB,1.1763E04_JPRB,9.6664E05_JPRB/) 
720  KAO( :, 5, 3, 4) = (/&  
721  & 8.5267E05_JPRB,1.1603E04_JPRB,1.2711E04_JPRB,1.3323E04_JPRB,1.3522E04_JPRB,1.3376E04_JPRB,&  
722 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2892E04_JPRB,1.2027E04_JPRB,9.9423E05_JPRB/) 
723  KAO( :, 1, 4, 4) = (/&  
724  & 7.5106E05_JPRB,9.8023E05_JPRB,1.0634E04_JPRB,1.1074E04_JPRB,1.1207E04_JPRB,1.1047E04_JPRB,&  
725 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0566E04_JPRB,9.7179E05_JPRB,8.0970E05_JPRB/) 
726  KAO( :, 2, 4, 4) = (/&  
727  & 7.5068E05_JPRB,9.9316E05_JPRB,1.0818E04_JPRB,1.1273E04_JPRB,1.1400E04_JPRB,1.1240E04_JPRB,&  
728 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0763E04_JPRB,9.9160E05_JPRB,8.2847E05_JPRB/) 
729  KAO( :, 3, 4, 4) = (/&  
730  & 7.5176E05_JPRB,1.0088E04_JPRB,1.1012E04_JPRB,1.1492E04_JPRB,1.1630E04_JPRB,1.1469E04_JPRB,&  
731 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0990E04_JPRB,1.0156E04_JPRB,8.4919E05_JPRB/) 
732  KAO( :, 4, 4, 4) = (/&  
733  & 7.5441E05_JPRB,1.0260E04_JPRB,1.1218E04_JPRB,1.1722E04_JPRB,1.1877E04_JPRB,1.1722E04_JPRB,&  
734 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1247E04_JPRB,1.0418E04_JPRB,8.7047E05_JPRB/) 
735  KAO( :, 5, 4, 4) = (/&  
736  & 7.6234E05_JPRB,1.0451E04_JPRB,1.1445E04_JPRB,1.1978E04_JPRB,1.2144E04_JPRB,1.1995E04_JPRB,&  
737 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1523E04_JPRB,1.0678E04_JPRB,8.9379E05_JPRB/) 
738  KAO( :, 1, 5, 4) = (/&  
739  & 6.6160E05_JPRB,8.7240E05_JPRB,9.4827E05_JPRB,9.8971E05_JPRB,1.0023E04_JPRB,9.8598E05_JPRB,&  
740 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.3977E05_JPRB,8.6015E05_JPRB,7.7683E05_JPRB/) 
741  KAO( :, 2, 5, 4) = (/&  
742  & 6.6183E05_JPRB,8.8517E05_JPRB,9.6624E05_JPRB,1.0080E04_JPRB,1.0196E04_JPRB,1.0036E04_JPRB,&  
743 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.5737E05_JPRB,8.7609E05_JPRB,7.8892E05_JPRB/) 
744  KAO( :, 3, 5, 4) = (/&  
745  & 6.6375E05_JPRB,9.0052E05_JPRB,9.8476E05_JPRB,1.0284E04_JPRB,1.0408E04_JPRB,1.0241E04_JPRB,&  
746 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.7689E05_JPRB,8.9585E05_JPRB,8.0494E05_JPRB/) 
747  KAO( :, 4, 5, 4) = (/&  
748  & 6.6706E05_JPRB,9.1731E05_JPRB,1.0049E04_JPRB,1.0501E04_JPRB,1.0639E04_JPRB,1.0469E04_JPRB,&  
749 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.9852E05_JPRB,9.1849E05_JPRB,8.2317E05_JPRB/) 
750  KAO( :, 5, 5, 4) = (/&  
751  & 6.7530E05_JPRB,9.3541E05_JPRB,1.0261E04_JPRB,1.0728E04_JPRB,1.0881E04_JPRB,1.0721E04_JPRB,&  
752 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0236E04_JPRB,9.4247E05_JPRB,8.4311E05_JPRB/) 
753  KAO( :, 1, 6, 4) = (/&  
754  & 5.7820E05_JPRB,7.7124E05_JPRB,8.4195E05_JPRB,8.7927E05_JPRB,8.8972E05_JPRB,8.7430E05_JPRB,&  
755 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.3132E05_JPRB,7.5650E05_JPRB,7.8327E05_JPRB/) 
756  KAO( :, 2, 6, 4) = (/&  
757  & 5.7858E05_JPRB,7.8413E05_JPRB,8.5775E05_JPRB,8.9605E05_JPRB,9.0590E05_JPRB,8.9122E05_JPRB,&  
758 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.4773E05_JPRB,7.7051E05_JPRB,7.8482E05_JPRB/) 
759  KAO( :, 3, 6, 4) = (/&  
760  & 5.8124E05_JPRB,7.9824E05_JPRB,8.7576E05_JPRB,9.1549E05_JPRB,9.2483E05_JPRB,9.0882E05_JPRB,&  
761 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.6480E05_JPRB,7.8637E05_JPRB,7.9105E05_JPRB/) 
762  KAO( :, 4, 6, 4) = (/&  
763  & 5.8563E05_JPRB,8.1362E05_JPRB,8.9405E05_JPRB,9.3593E05_JPRB,9.4634E05_JPRB,9.2868E05_JPRB,&  
764 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.8337E05_JPRB,8.0467E05_JPRB,8.0117E05_JPRB/) 
765  KAO( :, 5, 6, 4) = (/&  
766  & 5.9163E05_JPRB,8.2947E05_JPRB,9.1328E05_JPRB,9.5614E05_JPRB,9.6868E05_JPRB,9.5118E05_JPRB,&  
767 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.0461E05_JPRB,8.2517E05_JPRB,8.1395E05_JPRB/) 
768  KAO( :, 1, 7, 4) = (/&  
769  & 5.0089E05_JPRB,6.7496E05_JPRB,7.4227E05_JPRB,7.7520E05_JPRB,7.8410E05_JPRB,7.6863E05_JPRB,&  
770 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.2879E05_JPRB,6.5963E05_JPRB,8.6270E05_JPRB/) 
771  KAO( :, 2, 7, 4) = (/&  
772  & 5.0200E05_JPRB,6.8721E05_JPRB,7.5605E05_JPRB,7.9011E05_JPRB,7.9876E05_JPRB,7.8434E05_JPRB,&  
773 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.4469E05_JPRB,6.7323E05_JPRB,8.5543E05_JPRB/) 
774  KAO( :, 3, 7, 4) = (/&  
775  & 5.0465E05_JPRB,7.0073E05_JPRB,7.7198E05_JPRB,8.0725E05_JPRB,8.1573E05_JPRB,8.0081E05_JPRB,&  
776 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.6049E05_JPRB,6.8699E05_JPRB,8.4940E05_JPRB/) 
777  KAO( :, 4, 7, 4) = (/&  
778  & 5.0935E05_JPRB,7.1437E05_JPRB,7.8942E05_JPRB,8.2653E05_JPRB,8.3546E05_JPRB,8.1849E05_JPRB,&  
779 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.7644E05_JPRB,7.0190E05_JPRB,8.4597E05_JPRB/) 
780  KAO( :, 5, 7, 4) = (/&  
781  & 5.1558E05_JPRB,7.2909E05_JPRB,8.0657E05_JPRB,8.4558E05_JPRB,8.5533E05_JPRB,8.3860E05_JPRB,&  
782 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.9445E05_JPRB,7.1873E05_JPRB,8.4633E05_JPRB/) 
783  KAO( :, 1, 8, 4) = (/&  
784  & 4.3241E05_JPRB,5.8715E05_JPRB,6.4907E05_JPRB,6.7818E05_JPRB,6.8520E05_JPRB,6.7059E05_JPRB,&  
785 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.3436E05_JPRB,5.7025E05_JPRB,1.0556E04_JPRB/) 
786  KAO( :, 2, 8, 4) = (/&  
787  & 4.3396E05_JPRB,5.9829E05_JPRB,6.6154E05_JPRB,6.9172E05_JPRB,6.9903E05_JPRB,6.8506E05_JPRB,&  
788 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.4888E05_JPRB,5.8346E05_JPRB,1.0621E04_JPRB/) 
789  KAO( :, 3, 8, 4) = (/&  
790  & 4.3671E05_JPRB,6.1116E05_JPRB,6.7537E05_JPRB,7.0639E05_JPRB,7.1418E05_JPRB,7.0005E05_JPRB,&  
791 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.6322E05_JPRB,5.9628E05_JPRB,1.0623E04_JPRB/) 
792  KAO( :, 4, 8, 4) = (/&  
793  & 4.4098E05_JPRB,6.2393E05_JPRB,6.9085E05_JPRB,7.2351E05_JPRB,7.3148E05_JPRB,7.1679E05_JPRB,&  
794 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.7759E05_JPRB,6.0926E05_JPRB,1.0598E04_JPRB/) 
795  KAO( :, 5, 8, 4) = (/&  
796  & 4.4692E05_JPRB,6.3732E05_JPRB,7.0698E05_JPRB,7.4137E05_JPRB,7.4984E05_JPRB,7.3462E05_JPRB,&  
797 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.9302E05_JPRB,6.2346E05_JPRB,1.0567E04_JPRB/) 
798  KAO( :, 1, 9, 4) = (/&  
799  & 3.7132E05_JPRB,5.0817E05_JPRB,5.6256E05_JPRB,5.8754E05_JPRB,5.9255E05_JPRB,5.8002E05_JPRB,&  
800 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4741E05_JPRB,4.8907E05_JPRB,1.5932E04_JPRB/) 
801  KAO( :, 2, 9, 4) = (/&  
802  & 3.7275E05_JPRB,5.1787E05_JPRB,5.7392E05_JPRB,6.0022E05_JPRB,6.0595E05_JPRB,5.9356E05_JPRB,&  
803 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.6080E05_JPRB,5.0176E05_JPRB,1.6074E04_JPRB/) 
804  KAO( :, 3, 9, 4) = (/&  
805  & 3.7562E05_JPRB,5.2932E05_JPRB,5.8629E05_JPRB,6.1314E05_JPRB,6.1975E05_JPRB,6.0718E05_JPRB,&  
806 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.7380E05_JPRB,5.1383E05_JPRB,1.6208E04_JPRB/) 
807  KAO( :, 4, 9, 4) = (/&  
808  & 3.7959E05_JPRB,5.4161E05_JPRB,5.9989E05_JPRB,6.2778E05_JPRB,6.3464E05_JPRB,6.2208E05_JPRB,&  
809 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.8730E05_JPRB,5.2572E05_JPRB,1.6367E04_JPRB/) 
810  KAO( :, 5, 9, 4) = (/&  
811  & 3.8474E05_JPRB,5.5413E05_JPRB,6.1478E05_JPRB,6.4374E05_JPRB,6.5107E05_JPRB,6.3821E05_JPRB,&  
812 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.0122E05_JPRB,5.3780E05_JPRB,1.6576E04_JPRB/) 
813  KAO( :, 1,10, 4) = (/&  
814  & 3.1661E05_JPRB,4.3721E05_JPRB,4.8375E05_JPRB,5.0533E05_JPRB,5.0884E05_JPRB,4.9757E05_JPRB,&  
815 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.6933E05_JPRB,4.1760E05_JPRB,3.3288E04_JPRB/) 
816  KAO( :, 2,10, 4) = (/&  
817  & 3.1799E05_JPRB,4.4567E05_JPRB,4.9444E05_JPRB,5.1711E05_JPRB,5.2132E05_JPRB,5.1037E05_JPRB,&  
818 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.8202E05_JPRB,4.2932E05_JPRB,3.3259E04_JPRB/) 
819  KAO( :, 3,10, 4) = (/&  
820  & 3.2076E05_JPRB,4.5598E05_JPRB,5.0572E05_JPRB,5.2901E05_JPRB,5.3401E05_JPRB,5.2274E05_JPRB,&  
821 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.9410E05_JPRB,4.4046E05_JPRB,3.3116E04_JPRB/) 
822  KAO( :, 4,10, 4) = (/&  
823  & 3.2432E05_JPRB,4.6745E05_JPRB,5.1822E05_JPRB,5.4161E05_JPRB,5.4721E05_JPRB,5.3605E05_JPRB,&  
824 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.0657E05_JPRB,4.5130E05_JPRB,3.2908E04_JPRB/) 
825  KAO( :, 5,10, 4) = (/&  
826  & 3.2849E05_JPRB,4.7929E05_JPRB,5.3191E05_JPRB,5.5555E05_JPRB,5.6151E05_JPRB,5.5034E05_JPRB,&  
827 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1913E05_JPRB,4.6196E05_JPRB,3.2646E04_JPRB/) 
828  KAO( :, 1,11, 4) = (/&  
829  & 2.6856E05_JPRB,3.7683E05_JPRB,4.1693E05_JPRB,4.3606E05_JPRB,4.3883E05_JPRB,4.2891E05_JPRB,&  
830 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.0459E05_JPRB,3.5912E05_JPRB,4.0077E04_JPRB/) 
831  KAO( :, 2,11, 4) = (/&  
832  & 2.7039E05_JPRB,3.8497E05_JPRB,4.2726E05_JPRB,4.4727E05_JPRB,4.5037E05_JPRB,4.4055E05_JPRB,&  
833 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.1621E05_JPRB,3.6978E05_JPRB,3.9949E04_JPRB/) 
834  KAO( :, 3,11, 4) = (/&  
835  & 2.7307E05_JPRB,3.9484E05_JPRB,4.3818E05_JPRB,4.5808E05_JPRB,4.6194E05_JPRB,4.5211E05_JPRB,&  
836 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2730E05_JPRB,3.7986E05_JPRB,3.9696E04_JPRB/) 
837  KAO( :, 4,11, 4) = (/&  
838  & 2.7612E05_JPRB,4.0551E05_JPRB,4.5021E05_JPRB,4.6980E05_JPRB,4.7421E05_JPRB,4.6420E05_JPRB,&  
839 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.3860E05_JPRB,3.8943E05_JPRB,3.9400E04_JPRB/) 
840  KAO( :, 5,11, 4) = (/&  
841  & 2.7944E05_JPRB,4.1639E05_JPRB,4.6278E05_JPRB,4.8247E05_JPRB,4.8726E05_JPRB,4.7717E05_JPRB,&  
842 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.5010E05_JPRB,3.9912E05_JPRB,3.9021E04_JPRB/) 
843  KAO( :, 1,12, 4) = (/&  
844  & 2.2674E05_JPRB,3.2256E05_JPRB,3.5706E05_JPRB,3.7375E05_JPRB,3.7620E05_JPRB,3.6748E05_JPRB,&  
845 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.4672E05_JPRB,3.0753E05_JPRB,3.9801E04_JPRB/) 
846  KAO( :, 2,12, 4) = (/&  
847  & 2.2856E05_JPRB,3.3035E05_JPRB,3.6681E05_JPRB,3.8389E05_JPRB,3.8658E05_JPRB,3.7799E05_JPRB,&  
848 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5709E05_JPRB,3.1711E05_JPRB,3.9549E04_JPRB/) 
849  KAO( :, 3,12, 4) = (/&  
850  & 2.3070E05_JPRB,3.3949E05_JPRB,3.7724E05_JPRB,3.9400E05_JPRB,3.9718E05_JPRB,3.8860E05_JPRB,&  
851 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6712E05_JPRB,3.2588E05_JPRB,3.9241E04_JPRB/) 
852  KAO( :, 4,12, 4) = (/&  
853  & 2.3301E05_JPRB,3.4905E05_JPRB,3.8836E05_JPRB,4.0484E05_JPRB,4.0838E05_JPRB,3.9966E05_JPRB,&  
854 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7706E05_JPRB,3.3447E05_JPRB,3.8870E04_JPRB/) 
855  KAO( :, 5,12, 4) = (/&  
856  & 2.3543E05_JPRB,3.5840E05_JPRB,3.9948E05_JPRB,4.1657E05_JPRB,4.2028E05_JPRB,4.1130E05_JPRB,&  
857 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8770E05_JPRB,3.4320E05_JPRB,3.8474E04_JPRB/) 
858  KAO( :, 1,13, 4) = (/&  
859  & 1.9048E05_JPRB,2.7433E05_JPRB,3.0355E05_JPRB,3.1781E05_JPRB,3.2020E05_JPRB,3.1297E05_JPRB,&  
860 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.9545E05_JPRB,2.6213E05_JPRB,3.3572E04_JPRB/) 
861  KAO( :, 2,13, 4) = (/&  
862  & 1.9186E05_JPRB,2.8151E05_JPRB,3.1249E05_JPRB,3.2687E05_JPRB,3.2953E05_JPRB,3.2236E05_JPRB,&  
863 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0464E05_JPRB,2.7042E05_JPRB,3.3299E04_JPRB/) 
864  KAO( :, 3,13, 4) = (/&  
865  & 1.9336E05_JPRB,2.8946E05_JPRB,3.2213E05_JPRB,3.3632E05_JPRB,3.3925E05_JPRB,3.3202E05_JPRB,&  
866 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.1346E05_JPRB,2.7832E05_JPRB,3.2995E04_JPRB/) 
867  KAO( :, 4,13, 4) = (/&  
868  & 1.9500E05_JPRB,2.9752E05_JPRB,3.3189E05_JPRB,3.4641E05_JPRB,3.4936E05_JPRB,3.4186E05_JPRB,&  
869 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2242E05_JPRB,2.8586E05_JPRB,3.2636E04_JPRB/) 
870  KAO( :, 5,13, 4) = (/&  
871  & 1.9647E05_JPRB,3.0517E05_JPRB,3.4157E05_JPRB,3.5690E05_JPRB,3.6009E05_JPRB,3.5240E05_JPRB,&  
872 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.3224E05_JPRB,2.9383E05_JPRB,3.2302E04_JPRB/) 
873  KAO( :, 1, 1, 5) = (/&  
874  & 1.5710E04_JPRB,2.0320E04_JPRB,2.2809E04_JPRB,2.4127E04_JPRB,2.4664E04_JPRB,2.4637E04_JPRB,&  
875 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3954E04_JPRB,2.2558E04_JPRB,1.9226E04_JPRB/) 
876  KAO( :, 2, 1, 5) = (/&  
877  & 1.5763E04_JPRB,2.0602E04_JPRB,2.3252E04_JPRB,2.4654E04_JPRB,2.5266E04_JPRB,2.5275E04_JPRB,&  
878 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4636E04_JPRB,2.3254E04_JPRB,1.9836E04_JPRB/) 
879  KAO( :, 3, 1, 5) = (/&  
880  & 1.5885E04_JPRB,2.0936E04_JPRB,2.3726E04_JPRB,2.5211E04_JPRB,2.5917E04_JPRB,2.5987E04_JPRB,&  
881 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.5423E04_JPRB,2.4110E04_JPRB,2.0597E04_JPRB/) 
882  KAO( :, 4, 1, 5) = (/&  
883  & 1.6010E04_JPRB,2.1292E04_JPRB,2.4195E04_JPRB,2.5773E04_JPRB,2.6599E04_JPRB,2.6801E04_JPRB,&  
884 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6343E04_JPRB,2.5079E04_JPRB,2.1448E04_JPRB/) 
885  KAO( :, 5, 1, 5) = (/&  
886  & 1.6183E04_JPRB,2.1689E04_JPRB,2.4710E04_JPRB,2.6390E04_JPRB,2.7349E04_JPRB,2.7678E04_JPRB,&  
887 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.7286E04_JPRB,2.6055E04_JPRB,2.2334E04_JPRB/) 
888  KAO( :, 1, 2, 5) = (/&  
889  & 1.4264E04_JPRB,1.8747E04_JPRB,2.0916E04_JPRB,2.2048E04_JPRB,2.2542E04_JPRB,2.2467E04_JPRB,&  
890 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.1833E04_JPRB,2.0428E04_JPRB,1.7002E04_JPRB/) 
891  KAO( :, 2, 2, 5) = (/&  
892  & 1.4357E04_JPRB,1.9029E04_JPRB,2.1342E04_JPRB,2.2542E04_JPRB,2.3082E04_JPRB,2.3044E04_JPRB,&  
893 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2413E04_JPRB,2.1022E04_JPRB,1.7510E04_JPRB/) 
894  KAO( :, 3, 2, 5) = (/&  
895  & 1.4512E04_JPRB,1.9354E04_JPRB,2.1804E04_JPRB,2.3071E04_JPRB,2.3662E04_JPRB,2.3677E04_JPRB,&  
896 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3090E04_JPRB,2.1760E04_JPRB,1.8164E04_JPRB/) 
897  KAO( :, 4, 2, 5) = (/&  
898  & 1.4675E04_JPRB,1.9716E04_JPRB,2.2262E04_JPRB,2.3622E04_JPRB,2.4303E04_JPRB,2.4400E04_JPRB,&  
899 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3876E04_JPRB,2.2602E04_JPRB,1.8905E04_JPRB/) 
900  KAO( :, 5, 2, 5) = (/&  
901  & 1.4825E04_JPRB,2.0084E04_JPRB,2.2744E04_JPRB,2.4214E04_JPRB,2.4980E04_JPRB,2.5170E04_JPRB,&  
902 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4697E04_JPRB,2.3468E04_JPRB,1.9668E04_JPRB/) 
903  KAO( :, 1, 3, 5) = (/&  
904  & 1.2913E04_JPRB,1.7105E04_JPRB,1.8962E04_JPRB,1.9927E04_JPRB,2.0344E04_JPRB,2.0263E04_JPRB,&  
905 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9648E04_JPRB,1.8374E04_JPRB,1.5154E04_JPRB/) 
906  KAO( :, 2, 3, 5) = (/&  
907  & 1.3034E04_JPRB,1.7385E04_JPRB,1.9352E04_JPRB,2.0379E04_JPRB,2.0816E04_JPRB,2.0767E04_JPRB,&  
908 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0141E04_JPRB,1.8880E04_JPRB,1.5543E04_JPRB/) 
909  KAO( :, 3, 3, 5) = (/&  
910  & 1.3189E04_JPRB,1.7683E04_JPRB,1.9785E04_JPRB,2.0858E04_JPRB,2.1306E04_JPRB,2.1289E04_JPRB,&  
911 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0705E04_JPRB,1.9450E04_JPRB,1.6042E04_JPRB/) 
912  KAO( :, 4, 3, 5) = (/&  
913  & 1.3375E04_JPRB,1.8038E04_JPRB,2.0233E04_JPRB,2.1375E04_JPRB,2.1890E04_JPRB,2.1897E04_JPRB,&  
914 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.1362E04_JPRB,2.0111E04_JPRB,1.6638E04_JPRB/) 
915  KAO( :, 5, 3, 5) = (/&  
916  & 1.3531E04_JPRB,1.8393E04_JPRB,2.0677E04_JPRB,2.1903E04_JPRB,2.2516E04_JPRB,2.2557E04_JPRB,&  
917 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2073E04_JPRB,2.0849E04_JPRB,1.7278E04_JPRB/) 
918  KAO( :, 1, 4, 5) = (/&  
919  & 1.1675E04_JPRB,1.5471E04_JPRB,1.7086E04_JPRB,1.7907E04_JPRB,1.8234E04_JPRB,1.8104E04_JPRB,&  
920 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7606E04_JPRB,1.6488E04_JPRB,1.3686E04_JPRB/) 
921  KAO( :, 2, 4, 5) = (/&  
922  & 1.1811E04_JPRB,1.5738E04_JPRB,1.7430E04_JPRB,1.8299E04_JPRB,1.8662E04_JPRB,1.8551E04_JPRB,&  
923 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8028E04_JPRB,1.6914E04_JPRB,1.4021E04_JPRB/) 
924  KAO( :, 3, 4, 5) = (/&  
925  & 1.1971E04_JPRB,1.6033E04_JPRB,1.7826E04_JPRB,1.8706E04_JPRB,1.9073E04_JPRB,1.9003E04_JPRB,&  
926 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8491E04_JPRB,1.7381E04_JPRB,1.4440E04_JPRB/) 
927  KAO( :, 4, 4, 5) = (/&  
928  & 1.2145E04_JPRB,1.6360E04_JPRB,1.8232E04_JPRB,1.9160E04_JPRB,1.9546E04_JPRB,1.9520E04_JPRB,&  
929 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9032E04_JPRB,1.7913E04_JPRB,1.4919E04_JPRB/) 
930  KAO( :, 5, 4, 5) = (/&  
931  & 1.2345E04_JPRB,1.6734E04_JPRB,1.8679E04_JPRB,1.9667E04_JPRB,2.0102E04_JPRB,2.0119E04_JPRB,&  
932 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9631E04_JPRB,1.8511E04_JPRB,1.5453E04_JPRB/) 
933  KAO( :, 1, 5, 5) = (/&  
934  & 1.0534E04_JPRB,1.3892E04_JPRB,1.5318E04_JPRB,1.6013E04_JPRB,1.6249E04_JPRB,1.6140E04_JPRB,&  
935 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5677E04_JPRB,1.4673E04_JPRB,1.2734E04_JPRB/) 
936  KAO( :, 2, 5, 5) = (/&  
937  & 1.0682E04_JPRB,1.4149E04_JPRB,1.5615E04_JPRB,1.6351E04_JPRB,1.6643E04_JPRB,1.6536E04_JPRB,&  
938 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6060E04_JPRB,1.5077E04_JPRB,1.3032E04_JPRB/) 
939  KAO( :, 3, 5, 5) = (/&  
940  & 1.0832E04_JPRB,1.4437E04_JPRB,1.5968E04_JPRB,1.6719E04_JPRB,1.7007E04_JPRB,1.6925E04_JPRB,&  
941 
2/2✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.

10  & 1.6475E04_JPRB,1.5487E04_JPRB,1.3383E04_JPRB/) 
942  
943 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART3',1,ZHOOK_HANDLE) 
944  1  END SUBROUTINE PART3  
945  
946  
947  1  SUBROUTINE PART4  
948  
949  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
950 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART4',0,ZHOOK_HANDLE) 
951  
952  
953  KAO( :, 4, 5, 5) = (/&  
954  & 1.0998E04_JPRB,1.4759E04_JPRB,1.6348E04_JPRB,1.7115E04_JPRB,1.7411E04_JPRB,1.7355E04_JPRB,&  
955 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6947E04_JPRB,1.5945E04_JPRB,1.3787E04_JPRB/) 
956  KAO( :, 5, 5, 5) = (/&  
957  & 1.1196E04_JPRB,1.5129E04_JPRB,1.6770E04_JPRB,1.7586E04_JPRB,1.7902E04_JPRB,1.7859E04_JPRB,&  
958 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7456E04_JPRB,1.6452E04_JPRB,1.4233E04_JPRB/) 
959  KAO( :, 1, 6, 5) = (/&  
960  & 9.4514E05_JPRB,1.2412E04_JPRB,1.3657E04_JPRB,1.4247E04_JPRB,1.4441E04_JPRB,1.4315E04_JPRB,&  
961 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3838E04_JPRB,1.2929E04_JPRB,1.2327E04_JPRB/) 
962  KAO( :, 2, 6, 5) = (/&  
963  & 9.5941E05_JPRB,1.2645E04_JPRB,1.3931E04_JPRB,1.4558E04_JPRB,1.4789E04_JPRB,1.4670E04_JPRB,&  
964 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4200E04_JPRB,1.3303E04_JPRB,1.2601E04_JPRB/) 
965  KAO( :, 3, 6, 5) = (/&  
966  & 9.7365E05_JPRB,1.2920E04_JPRB,1.4235E04_JPRB,1.4876E04_JPRB,1.5129E04_JPRB,1.5035E04_JPRB,&  
967 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4574E04_JPRB,1.3687E04_JPRB,1.2924E04_JPRB/) 
968  KAO( :, 4, 6, 5) = (/&  
969  & 9.8894E05_JPRB,1.3238E04_JPRB,1.4586E04_JPRB,1.5224E04_JPRB,1.5484E04_JPRB,1.5423E04_JPRB,&  
970 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4989E04_JPRB,1.4089E04_JPRB,1.3292E04_JPRB/) 
971  KAO( :, 5, 6, 5) = (/&  
972  & 1.0059E04_JPRB,1.3577E04_JPRB,1.4967E04_JPRB,1.5644E04_JPRB,1.5902E04_JPRB,1.5844E04_JPRB,&  
973 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5428E04_JPRB,1.4522E04_JPRB,1.3684E04_JPRB/) 
974  KAO( :, 1, 7, 5) = (/&  
975  & 8.3817E05_JPRB,1.1024E04_JPRB,1.2069E04_JPRB,1.2606E04_JPRB,1.2762E04_JPRB,1.2601E04_JPRB,&  
976 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2142E04_JPRB,1.1275E04_JPRB,1.2580E04_JPRB/) 
977  KAO( :, 2, 7, 5) = (/&  
978  & 8.5049E05_JPRB,1.1240E04_JPRB,1.2345E04_JPRB,1.2908E04_JPRB,1.3088E04_JPRB,1.2946E04_JPRB,&  
979 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2489E04_JPRB,1.1643E04_JPRB,1.2769E04_JPRB/) 
980  KAO( :, 3, 7, 5) = (/&  
981  & 8.6443E05_JPRB,1.1489E04_JPRB,1.2631E04_JPRB,1.3210E04_JPRB,1.3408E04_JPRB,1.3284E04_JPRB,&  
982 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2822E04_JPRB,1.1996E04_JPRB,1.3009E04_JPRB/) 
983  KAO( :, 4, 7, 5) = (/&  
984  & 8.7868E05_JPRB,1.1787E04_JPRB,1.2952E04_JPRB,1.3521E04_JPRB,1.3734E04_JPRB,1.3637E04_JPRB,&  
985 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3189E04_JPRB,1.2366E04_JPRB,1.3307E04_JPRB/) 
986  KAO( :, 5, 7, 5) = (/&  
987  & 8.9520E05_JPRB,1.2113E04_JPRB,1.3311E04_JPRB,1.3890E04_JPRB,1.4111E04_JPRB,1.4019E04_JPRB,&  
988 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3574E04_JPRB,1.2746E04_JPRB,1.3629E04_JPRB/) 
989  KAO( :, 1, 8, 5) = (/&  
990  & 7.3739E05_JPRB,9.7315E05_JPRB,1.0630E04_JPRB,1.1091E04_JPRB,1.1210E04_JPRB,1.1034E04_JPRB,&  
991 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0576E04_JPRB,9.7435E05_JPRB,1.5219E04_JPRB/) 
992  KAO( :, 2, 8, 5) = (/&  
993  & 7.4739E05_JPRB,9.9339E05_JPRB,1.0888E04_JPRB,1.1385E04_JPRB,1.1515E04_JPRB,1.1361E04_JPRB,&  
994 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0914E04_JPRB,1.0091E04_JPRB,1.5078E04_JPRB/) 
995  KAO( :, 3, 8, 5) = (/&  
996  & 7.5979E05_JPRB,1.0158E04_JPRB,1.1168E04_JPRB,1.1676E04_JPRB,1.1825E04_JPRB,1.1684E04_JPRB,&  
997 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1240E04_JPRB,1.0417E04_JPRB,1.5044E04_JPRB/) 
998  KAO( :, 4, 8, 5) = (/&  
999  & 7.7389E05_JPRB,1.0425E04_JPRB,1.1460E04_JPRB,1.1977E04_JPRB,1.2131E04_JPRB,1.2000E04_JPRB,&  
1000 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1564E04_JPRB,1.0754E04_JPRB,1.5083E04_JPRB/) 
1001  KAO( :, 5, 8, 5) = (/&  
1002  & 7.8988E05_JPRB,1.0719E04_JPRB,1.1787E04_JPRB,1.2308E04_JPRB,1.2465E04_JPRB,1.2345E04_JPRB,&  
1003 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1918E04_JPRB,1.1099E04_JPRB,1.5186E04_JPRB/) 
1004  KAO( :, 1, 9, 5) = (/&  
1005  & 6.4327E05_JPRB,8.5194E05_JPRB,9.3124E05_JPRB,9.6906E05_JPRB,9.7902E05_JPRB,9.6087E05_JPRB,&  
1006 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.1486E05_JPRB,8.3530E05_JPRB,3.0559E04_JPRB/) 
1007  KAO( :, 2, 9, 5) = (/&  
1008  & 6.5169E05_JPRB,8.7114E05_JPRB,9.5498E05_JPRB,9.9699E05_JPRB,1.0078E04_JPRB,9.9075E05_JPRB,&  
1009 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.4585E05_JPRB,8.6649E05_JPRB,3.0376E04_JPRB/) 
1010  KAO( :, 3, 9, 5) = (/&  
1011  & 6.6228E05_JPRB,8.9174E05_JPRB,9.8080E05_JPRB,1.0257E04_JPRB,1.0373E04_JPRB,1.0212E04_JPRB,&  
1012 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.7761E05_JPRB,8.9715E05_JPRB,3.0205E04_JPRB/) 
1013  KAO( :, 4, 9, 5) = (/&  
1014  & 6.7560E05_JPRB,9.1493E05_JPRB,1.0085E04_JPRB,1.0546E04_JPRB,1.0670E04_JPRB,1.0511E04_JPRB,&  
1015 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0078E04_JPRB,9.2773E05_JPRB,2.9925E04_JPRB/) 
1016  KAO( :, 5, 9, 5) = (/&  
1017  & 6.9090E05_JPRB,9.4108E05_JPRB,1.0377E04_JPRB,1.0852E04_JPRB,1.0981E04_JPRB,1.0822E04_JPRB,&  
1018 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0396E04_JPRB,9.5948E05_JPRB,2.9560E04_JPRB/) 
1019  KAO( :, 1,10, 5) = (/&  
1020  & 5.5732E05_JPRB,7.4195E05_JPRB,8.1092E05_JPRB,8.4263E05_JPRB,8.5004E05_JPRB,8.3260E05_JPRB,&  
1021 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.8896E05_JPRB,7.1326E05_JPRB,7.3141E04_JPRB/) 
1022  KAO( :, 2,10, 5) = (/&  
1023  & 5.6464E05_JPRB,7.5996E05_JPRB,8.3306E05_JPRB,8.6877E05_JPRB,8.7776E05_JPRB,8.6058E05_JPRB,&  
1024 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.1636E05_JPRB,7.4082E05_JPRB,7.1679E04_JPRB/) 
1025  KAO( :, 3,10, 5) = (/&  
1026  & 5.7403E05_JPRB,7.7891E05_JPRB,8.5666E05_JPRB,8.9585E05_JPRB,9.0592E05_JPRB,8.8875E05_JPRB,&  
1027 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.4523E05_JPRB,7.6897E05_JPRB,7.0421E04_JPRB/) 
1028  KAO( :, 4,10, 5) = (/&  
1029  & 5.8620E05_JPRB,7.9933E05_JPRB,8.8213E05_JPRB,9.2386E05_JPRB,9.3433E05_JPRB,9.1667E05_JPRB,&  
1030 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.7388E05_JPRB,7.9742E05_JPRB,6.9385E04_JPRB/) 
1031  KAO( :, 5,10, 5) = (/&  
1032  & 6.0067E05_JPRB,8.2256E05_JPRB,9.0893E05_JPRB,9.5273E05_JPRB,9.6366E05_JPRB,9.4596E05_JPRB,&  
1033 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.0298E05_JPRB,8.2632E05_JPRB,6.8465E04_JPRB/) 
1034  KAO( :, 1,11, 5) = (/&  
1035  & 4.8186E05_JPRB,6.4983E05_JPRB,7.1108E05_JPRB,7.3858E05_JPRB,7.4401E05_JPRB,7.2817E05_JPRB,&  
1036 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.8716E05_JPRB,6.1721E05_JPRB,9.3137E04_JPRB/) 
1037  KAO( :, 2,11, 5) = (/&  
1038  & 4.8927E05_JPRB,6.6681E05_JPRB,7.3165E05_JPRB,7.6242E05_JPRB,7.7034E05_JPRB,7.5453E05_JPRB,&  
1039 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.1255E05_JPRB,6.4142E05_JPRB,9.0283E04_JPRB/) 
1040  KAO( :, 3,11, 5) = (/&  
1041  & 4.9906E05_JPRB,6.8442E05_JPRB,7.5379E05_JPRB,7.8833E05_JPRB,7.9706E05_JPRB,7.8052E05_JPRB,&  
1042 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.3833E05_JPRB,6.6698E05_JPRB,8.7896E04_JPRB/) 
1043  KAO( :, 4,11, 5) = (/&  
1044  & 5.1140E05_JPRB,7.0403E05_JPRB,7.7738E05_JPRB,8.1490E05_JPRB,8.2392E05_JPRB,8.0715E05_JPRB,&  
1045 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.6507E05_JPRB,6.9333E05_JPRB,8.5877E04_JPRB/) 
1046  KAO( :, 5,11, 5) = (/&  
1047  & 5.2547E05_JPRB,7.2595E05_JPRB,8.0310E05_JPRB,8.4272E05_JPRB,8.5190E05_JPRB,8.3479E05_JPRB,&  
1048 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.9204E05_JPRB,7.1956E05_JPRB,8.4129E04_JPRB/) 
1049  KAO( :, 1,12, 5) = (/&  
1050  & 4.1357E05_JPRB,5.6591E05_JPRB,6.2004E05_JPRB,6.4335E05_JPRB,6.4718E05_JPRB,6.3255E05_JPRB,&  
1051 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.9536E05_JPRB,5.3170E05_JPRB,9.4628E04_JPRB/) 
1052  KAO( :, 2,12, 5) = (/&  
1053  & 4.2117E05_JPRB,5.8142E05_JPRB,6.3912E05_JPRB,6.6563E05_JPRB,6.7175E05_JPRB,6.5721E05_JPRB,&  
1054 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.1864E05_JPRB,5.5283E05_JPRB,9.1448E04_JPRB/) 
1055  KAO( :, 3,12, 5) = (/&  
1056  & 4.3123E05_JPRB,5.9831E05_JPRB,6.5955E05_JPRB,6.8956E05_JPRB,6.9677E05_JPRB,6.8113E05_JPRB,&  
1057 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.4202E05_JPRB,5.7597E05_JPRB,8.8738E04_JPRB/) 
1058  KAO( :, 4,12, 5) = (/&  
1059  & 4.4308E05_JPRB,6.1719E05_JPRB,6.8165E05_JPRB,7.1448E05_JPRB,7.2209E05_JPRB,7.0617E05_JPRB,&  
1060 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.6651E05_JPRB,5.9974E05_JPRB,8.6370E04_JPRB/) 
1061  KAO( :, 5,12, 5) = (/&  
1062  & 4.5586E05_JPRB,6.3825E05_JPRB,7.0651E05_JPRB,7.4074E05_JPRB,7.4824E05_JPRB,7.3199E05_JPRB,&  
1063 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.9129E05_JPRB,6.2368E05_JPRB,8.4394E04_JPRB/) 
1064  KAO( :, 1,13, 5) = (/&  
1065  & 3.5199E05_JPRB,4.8904E05_JPRB,5.3685E05_JPRB,5.5708E05_JPRB,5.5958E05_JPRB,5.4602E05_JPRB,&  
1066 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1289E05_JPRB,4.5544E05_JPRB,7.9844E04_JPRB/) 
1067  KAO( :, 2,13, 5) = (/&  
1068  & 3.5968E05_JPRB,5.0359E05_JPRB,5.5441E05_JPRB,5.7776E05_JPRB,5.8210E05_JPRB,5.6833E05_JPRB,&  
1069 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.3406E05_JPRB,4.7437E05_JPRB,7.7225E04_JPRB/) 
1070  KAO( :, 3,13, 5) = (/&  
1071  & 3.6919E05_JPRB,5.1978E05_JPRB,5.7339E05_JPRB,5.9942E05_JPRB,6.0487E05_JPRB,5.9061E05_JPRB,&  
1072 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.5548E05_JPRB,4.9491E05_JPRB,7.4964E04_JPRB/) 
1073  KAO( :, 4,13, 5) = (/&  
1074  & 3.7983E05_JPRB,5.3790E05_JPRB,5.9444E05_JPRB,6.2256E05_JPRB,6.2844E05_JPRB,6.1377E05_JPRB,&  
1075 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.7755E05_JPRB,5.1611E05_JPRB,7.3016E04_JPRB/) 
1076  KAO( :, 5,13, 5) = (/&  
1077  & 3.9071E05_JPRB,5.5803E05_JPRB,6.1798E05_JPRB,6.4723E05_JPRB,6.5302E05_JPRB,6.3732E05_JPRB,&  
1078 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.9993E05_JPRB,5.3748E05_JPRB,7.1404E04_JPRB/) 
1079  KAO( :, 1, 1, 6) = (/&  
1080  & 2.5660E04_JPRB,3.1807E04_JPRB,3.6094E04_JPRB,3.8920E04_JPRB,4.0736E04_JPRB,4.1545E04_JPRB,&  
1081 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.1386E04_JPRB,4.0633E04_JPRB,3.6193E04_JPRB/) 
1082  KAO( :, 2, 1, 6) = (/&  
1083  & 2.5865E04_JPRB,3.2319E04_JPRB,3.6764E04_JPRB,3.9762E04_JPRB,4.1800E04_JPRB,4.2858E04_JPRB,&  
1084 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2847E04_JPRB,4.2235E04_JPRB,3.7675E04_JPRB/) 
1085  KAO( :, 3, 1, 6) = (/&  
1086  & 2.6137E04_JPRB,3.2915E04_JPRB,3.7535E04_JPRB,4.0750E04_JPRB,4.2970E04_JPRB,4.4147E04_JPRB,&  
1087 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.4293E04_JPRB,4.3843E04_JPRB,3.9233E04_JPRB/) 
1088  KAO( :, 4, 1, 6) = (/&  
1089  & 2.6360E04_JPRB,3.3488E04_JPRB,3.8404E04_JPRB,4.1788E04_JPRB,4.4114E04_JPRB,4.5427E04_JPRB,&  
1090 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.5738E04_JPRB,4.5544E04_JPRB,4.1003E04_JPRB/) 
1091  KAO( :, 5, 1, 6) = (/&  
1092  & 2.6660E04_JPRB,3.4173E04_JPRB,3.9350E04_JPRB,4.2919E04_JPRB,4.5400E04_JPRB,4.6894E04_JPRB,&  
1093 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.7415E04_JPRB,4.7523E04_JPRB,4.3058E04_JPRB/) 
1094  KAO( :, 1, 2, 6) = (/&  
1095  & 2.3631E04_JPRB,2.9631E04_JPRB,3.3525E04_JPRB,3.5919E04_JPRB,3.7267E04_JPRB,3.7835E04_JPRB,&  
1096 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7529E04_JPRB,3.6555E04_JPRB,3.2111E04_JPRB/) 
1097  KAO( :, 2, 2, 6) = (/&  
1098  & 2.3829E04_JPRB,3.0128E04_JPRB,3.4159E04_JPRB,3.6758E04_JPRB,3.8290E04_JPRB,3.9019E04_JPRB,&  
1099 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8891E04_JPRB,3.7964E04_JPRB,3.3378E04_JPRB/) 
1100  KAO( :, 3, 2, 6) = (/&  
1101  & 2.4092E04_JPRB,3.0698E04_JPRB,3.4893E04_JPRB,3.7703E04_JPRB,3.9429E04_JPRB,4.0240E04_JPRB,&  
1102 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.0189E04_JPRB,3.9363E04_JPRB,3.4730E04_JPRB/) 
1103  KAO( :, 4, 2, 6) = (/&  
1104  & 2.4353E04_JPRB,3.1280E04_JPRB,3.5757E04_JPRB,3.8697E04_JPRB,4.0550E04_JPRB,4.1447E04_JPRB,&  
1105 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.1496E04_JPRB,4.0890E04_JPRB,3.6318E04_JPRB/) 
1106  KAO( :, 5, 2, 6) = (/&  
1107  & 2.4646E04_JPRB,3.1930E04_JPRB,3.6666E04_JPRB,3.9774E04_JPRB,4.1741E04_JPRB,4.2801E04_JPRB,&  
1108 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2988E04_JPRB,4.2637E04_JPRB,3.8102E04_JPRB/) 
1109  KAO( :, 1, 3, 6) = (/&  
1110  & 2.1702E04_JPRB,2.7392E04_JPRB,3.0713E04_JPRB,3.2661E04_JPRB,3.3701E04_JPRB,3.4012E04_JPRB,&  
1111 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.3574E04_JPRB,3.2367E04_JPRB,2.7953E04_JPRB/) 
1112  KAO( :, 2, 3, 6) = (/&  
1113  & 2.1882E04_JPRB,2.7874E04_JPRB,3.1368E04_JPRB,3.3483E04_JPRB,3.4655E04_JPRB,3.5089E04_JPRB,&  
1114 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.4836E04_JPRB,3.3662E04_JPRB,2.9075E04_JPRB/) 
1115  KAO( :, 3, 3, 6) = (/&  
1116  & 2.2093E04_JPRB,2.8379E04_JPRB,3.2031E04_JPRB,3.4355E04_JPRB,3.5690E04_JPRB,3.6196E04_JPRB,&  
1117 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6029E04_JPRB,3.4924E04_JPRB,3.0255E04_JPRB/) 
1118  KAO( :, 4, 3, 6) = (/&  
1119  & 2.2391E04_JPRB,2.8964E04_JPRB,3.2857E04_JPRB,3.5322E04_JPRB,3.6741E04_JPRB,3.7364E04_JPRB,&  
1120 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7227E04_JPRB,3.6287E04_JPRB,3.1610E04_JPRB/) 
1121  KAO( :, 5, 3, 6) = (/&  
1122  & 2.2678E04_JPRB,2.9569E04_JPRB,3.3712E04_JPRB,3.6314E04_JPRB,3.7839E04_JPRB,3.8589E04_JPRB,&  
1123 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8538E04_JPRB,3.7808E04_JPRB,3.3103E04_JPRB/) 
1124  KAO( :, 1, 4, 6) = (/&  
1125  & 1.9893E04_JPRB,2.5184E04_JPRB,2.7904E04_JPRB,2.9424E04_JPRB,3.0215E04_JPRB,3.0353E04_JPRB,&  
1126 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.9750E04_JPRB,2.8367E04_JPRB,2.4378E04_JPRB/) 
1127  KAO( :, 2, 4, 6) = (/&  
1128  & 2.0039E04_JPRB,2.5636E04_JPRB,2.8551E04_JPRB,3.0218E04_JPRB,3.1138E04_JPRB,3.1364E04_JPRB,&  
1129 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0933E04_JPRB,2.9596E04_JPRB,2.5360E04_JPRB/) 
1130  KAO( :, 3, 4, 6) = (/&  
1131  & 2.0244E04_JPRB,2.6111E04_JPRB,2.9172E04_JPRB,3.1073E04_JPRB,3.2138E04_JPRB,3.2408E04_JPRB,&  
1132 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2030E04_JPRB,3.0766E04_JPRB,2.6380E04_JPRB/) 
1133  KAO( :, 4, 4, 6) = (/&  
1134  & 2.0501E04_JPRB,2.6640E04_JPRB,2.9889E04_JPRB,3.1956E04_JPRB,3.3116E04_JPRB,3.3435E04_JPRB,&  
1135 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.3120E04_JPRB,3.1983E04_JPRB,2.7551E04_JPRB/) 
1136  KAO( :, 5, 4, 6) = (/&  
1137  & 2.0836E04_JPRB,2.7264E04_JPRB,3.0721E04_JPRB,3.2917E04_JPRB,3.4139E04_JPRB,3.4585E04_JPRB,&  
1138 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.4342E04_JPRB,3.3321E04_JPRB,2.8833E04_JPRB/) 
1139  KAO( :, 1, 5, 6) = (/&  
1140  & 1.8177E04_JPRB,2.3005E04_JPRB,2.5216E04_JPRB,2.6400E04_JPRB,2.6980E04_JPRB,2.6977E04_JPRB,&  
1141 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6270E04_JPRB,2.4807E04_JPRB,2.1566E04_JPRB/) 
1142  KAO( :, 2, 5, 6) = (/&  
1143  & 1.8288E04_JPRB,2.3456E04_JPRB,2.5850E04_JPRB,2.7178E04_JPRB,2.7838E04_JPRB,2.7918E04_JPRB,&  
1144 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.7326E04_JPRB,2.5893E04_JPRB,2.2464E04_JPRB/) 
1145  KAO( :, 3, 5, 6) = (/&  
1146  & 1.8495E04_JPRB,2.3899E04_JPRB,2.6446E04_JPRB,2.7972E04_JPRB,2.8778E04_JPRB,2.8887E04_JPRB,&  
1147 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.8352E04_JPRB,2.6965E04_JPRB,2.3371E04_JPRB/) 
1148  KAO( :, 4, 5, 6) = (/&  
1149  & 1.8757E04_JPRB,2.4389E04_JPRB,2.7104E04_JPRB,2.8807E04_JPRB,2.9709E04_JPRB,2.9855E04_JPRB,&  
1150 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.9335E04_JPRB,2.8065E04_JPRB,2.4386E04_JPRB/) 
1151  KAO( :, 5, 5, 6) = (/&  
1152  & 1.9089E04_JPRB,2.4987E04_JPRB,2.7871E04_JPRB,2.9704E04_JPRB,3.0660E04_JPRB,3.0888E04_JPRB,&  
1153 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0414E04_JPRB,2.9240E04_JPRB,2.5489E04_JPRB/) 
1154  KAO( :, 1, 6, 6) = (/&  
1155  & 1.6548E04_JPRB,2.0845E04_JPRB,2.2667E04_JPRB,2.3621E04_JPRB,2.3998E04_JPRB,2.3852E04_JPRB,&  
1156 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3181E04_JPRB,2.1713E04_JPRB,1.9774E04_JPRB/) 
1157  KAO( :, 2, 6, 6) = (/&  
1158  & 1.6647E04_JPRB,2.1295E04_JPRB,2.3285E04_JPRB,2.4356E04_JPRB,2.4798E04_JPRB,2.4711E04_JPRB,&  
1159 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4086E04_JPRB,2.2656E04_JPRB,2.0619E04_JPRB/) 
1160  KAO( :, 3, 6, 6) = (/&  
1161  & 1.6832E04_JPRB,2.1735E04_JPRB,2.3897E04_JPRB,2.5101E04_JPRB,2.5638E04_JPRB,2.5608E04_JPRB,&  
1162 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.5005E04_JPRB,2.3612E04_JPRB,2.1472E04_JPRB/) 
1163  KAO( :, 4, 6, 6) = (/&  
1164  & 1.7090E04_JPRB,2.2192E04_JPRB,2.4527E04_JPRB,2.5863E04_JPRB,2.6479E04_JPRB,2.6498E04_JPRB,&  
1165 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.5909E04_JPRB,2.4595E04_JPRB,2.2382E04_JPRB/) 
1166  KAO( :, 5, 6, 6) = (/&  
1167  & 1.7392E04_JPRB,2.2728E04_JPRB,2.5204E04_JPRB,2.6653E04_JPRB,2.7329E04_JPRB,2.7417E04_JPRB,&  
1168 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6871E04_JPRB,2.5622E04_JPRB,2.3379E04_JPRB/) 
1169  KAO( :, 1, 7, 6) = (/&  
1170  & 1.4974E04_JPRB,1.8746E04_JPRB,2.0303E04_JPRB,2.1075E04_JPRB,2.1306E04_JPRB,2.1110E04_JPRB,&  
1171 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0431E04_JPRB,1.8998E04_JPRB,1.9358E04_JPRB/) 
1172  KAO( :, 2, 7, 6) = (/&  
1173  & 1.5089E04_JPRB,1.9183E04_JPRB,2.0895E04_JPRB,2.1750E04_JPRB,2.2044E04_JPRB,2.1873E04_JPRB,&  
1174 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.1228E04_JPRB,1.9808E04_JPRB,2.0012E04_JPRB/) 
1175  KAO( :, 3, 7, 6) = (/&  
1176  & 1.5257E04_JPRB,1.9611E04_JPRB,2.1478E04_JPRB,2.2448E04_JPRB,2.2805E04_JPRB,2.2660E04_JPRB,&  
1177 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2066E04_JPRB,2.0672E04_JPRB,2.0775E04_JPRB/) 
1178  KAO( :, 4, 7, 6) = (/&  
1179  & 1.5493E04_JPRB,2.0056E04_JPRB,2.2076E04_JPRB,2.3152E04_JPRB,2.3569E04_JPRB,2.3461E04_JPRB,&  
1180 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2897E04_JPRB,2.1559E04_JPRB,2.1605E04_JPRB/) 
1181  KAO( :, 5, 7, 6) = (/&  
1182  & 1.5774E04_JPRB,2.0562E04_JPRB,2.2715E04_JPRB,2.3878E04_JPRB,2.4330E04_JPRB,2.4290E04_JPRB,&  
1183 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3768E04_JPRB,2.2474E04_JPRB,2.2537E04_JPRB/) 
1184  KAO( :, 1, 8, 6) = (/&  
1185  & 1.3469E04_JPRB,1.6768E04_JPRB,1.8125E04_JPRB,1.8765E04_JPRB,1.8912E04_JPRB,1.8647E04_JPRB,&  
1186 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7925E04_JPRB,1.6551E04_JPRB,2.2549E04_JPRB/) 
1187  KAO( :, 2, 8, 6) = (/&  
1188  & 1.3601E04_JPRB,1.7179E04_JPRB,1.8676E04_JPRB,1.9388E04_JPRB,1.9601E04_JPRB,1.9365E04_JPRB,&  
1189 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8651E04_JPRB,1.7268E04_JPRB,2.2728E04_JPRB/) 
1190  KAO( :, 3, 8, 6) = (/&  
1191  & 1.3770E04_JPRB,1.7606E04_JPRB,1.9214E04_JPRB,2.0024E04_JPRB,2.0294E04_JPRB,2.0077E04_JPRB,&  
1192 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9394E04_JPRB,1.8025E04_JPRB,2.3037E04_JPRB/) 
1193  KAO( :, 4, 8, 6) = (/&  
1194  & 1.3980E04_JPRB,1.8052E04_JPRB,1.9782E04_JPRB,2.0667E04_JPRB,2.0985E04_JPRB,2.0804E04_JPRB,&  
1195 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0170E04_JPRB,1.8820E04_JPRB,2.3502E04_JPRB/) 
1196  KAO( :, 5, 8, 6) = (/&  
1197  & 1.4234E04_JPRB,1.8549E04_JPRB,2.0378E04_JPRB,2.1326E04_JPRB,2.1685E04_JPRB,2.1554E04_JPRB,&  
1198 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0965E04_JPRB,1.9644E04_JPRB,2.4136E04_JPRB/) 
1199  KAO( :, 1, 9, 6) = (/&  
1200  & 1.1992E04_JPRB,1.4933E04_JPRB,1.6105E04_JPRB,1.6671E04_JPRB,1.6730E04_JPRB,1.6393E04_JPRB,&  
1201 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5666E04_JPRB,1.4342E04_JPRB,4.8653E04_JPRB/) 
1202  KAO( :, 2, 9, 6) = (/&  
1203  & 1.2149E04_JPRB,1.5326E04_JPRB,1.6624E04_JPRB,1.7247E04_JPRB,1.7376E04_JPRB,1.7057E04_JPRB,&  
1204 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6339E04_JPRB,1.5015E04_JPRB,4.7263E04_JPRB/) 
1205  KAO( :, 3, 9, 6) = (/&  
1206  & 1.2314E04_JPRB,1.5738E04_JPRB,1.7131E04_JPRB,1.7818E04_JPRB,1.8004E04_JPRB,1.7724E04_JPRB,&  
1207 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6998E04_JPRB,1.5688E04_JPRB,4.6122E04_JPRB/) 
1208  KAO( :, 4, 9, 6) = (/&  
1209  & 1.2514E04_JPRB,1.6177E04_JPRB,1.7650E04_JPRB,1.8400E04_JPRB,1.8641E04_JPRB,1.8403E04_JPRB,&  
1210 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7684E04_JPRB,1.6385E04_JPRB,4.5149E04_JPRB/) 
1211  KAO( :, 5, 9, 6) = (/&  
1212  & 1.2748E04_JPRB,1.6660E04_JPRB,1.8214E04_JPRB,1.9005E04_JPRB,1.9284E04_JPRB,1.9097E04_JPRB,&  
1213 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8405E04_JPRB,1.7111E04_JPRB,4.4363E04_JPRB/) 
1214  KAO( :, 1,10, 6) = (/&  
1215  & 1.0584E04_JPRB,1.3236E04_JPRB,1.4288E04_JPRB,1.4761E04_JPRB,1.4780E04_JPRB,1.4423E04_JPRB,&  
1216 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3667E04_JPRB,1.2400E04_JPRB,1.5407E03_JPRB/) 
1217  KAO( :, 2,10, 6) = (/&  
1218  & 1.0748E04_JPRB,1.3619E04_JPRB,1.4771E04_JPRB,1.5305E04_JPRB,1.5361E04_JPRB,1.5017E04_JPRB,&  
1219 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4291E04_JPRB,1.3024E04_JPRB,1.4707E03_JPRB/) 
1220  KAO( :, 3,10, 6) = (/&  
1221  & 1.0916E04_JPRB,1.4012E04_JPRB,1.5258E04_JPRB,1.5840E04_JPRB,1.5929E04_JPRB,1.5625E04_JPRB,&  
1222 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4913E04_JPRB,1.3639E04_JPRB,1.4078E03_JPRB/) 
1223  KAO( :, 4,10, 6) = (/&  
1224  & 1.1108E04_JPRB,1.4432E04_JPRB,1.5744E04_JPRB,1.6378E04_JPRB,1.6514E04_JPRB,1.6251E04_JPRB,&  
1225 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5541E04_JPRB,1.4254E04_JPRB,1.3501E03_JPRB/) 
1226  KAO( :, 5,10, 6) = (/&  
1227  & 1.1328E04_JPRB,1.4893E04_JPRB,1.6265E04_JPRB,1.6934E04_JPRB,1.7119E04_JPRB,1.6880E04_JPRB,&  
1228 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6190E04_JPRB,1.4900E04_JPRB,1.2982E03_JPRB/) 
1229  KAO( :, 1,11, 6) = (/&  
1230  & 9.3489E05_JPRB,1.1825E04_JPRB,1.2805E04_JPRB,1.3224E04_JPRB,1.3232E04_JPRB,1.2873E04_JPRB,&  
1231 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2131E04_JPRB,1.0918E04_JPRB,2.0757E03_JPRB/) 
1232  KAO( :, 2,11, 6) = (/&  
1233  & 9.5099E05_JPRB,1.2195E04_JPRB,1.3268E04_JPRB,1.3732E04_JPRB,1.3748E04_JPRB,1.3414E04_JPRB,&  
1234 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2695E04_JPRB,1.1489E04_JPRB,1.9797E03_JPRB/) 
1235  KAO( :, 3,11, 6) = (/&  
1236  & 9.6804E05_JPRB,1.2575E04_JPRB,1.3731E04_JPRB,1.4230E04_JPRB,1.4278E04_JPRB,1.3973E04_JPRB,&  
1237 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3283E04_JPRB,1.2047E04_JPRB,1.8901E03_JPRB/) 
1238  KAO( :, 4,11, 6) = (/&  
1239  & 9.8710E05_JPRB,1.2986E04_JPRB,1.4205E04_JPRB,1.4740E04_JPRB,1.4826E04_JPRB,1.4548E04_JPRB,&  
1240 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3868E04_JPRB,1.2603E04_JPRB,1.8079E03_JPRB/) 
1241  KAO( :, 5,11, 6) = (/&  
1242  & 1.0095E04_JPRB,1.3435E04_JPRB,1.4704E04_JPRB,1.5275E04_JPRB,1.5397E04_JPRB,1.5141E04_JPRB,&  
1243 
2/2✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.

10  & 1.4471E04_JPRB,1.3186E04_JPRB,1.7340E03_JPRB/) 
1244  
1245 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART4',1,ZHOOK_HANDLE) 
1246  1  END SUBROUTINE PART4  
1247  
1248  
1249  1  SUBROUTINE PART5  
1250  
1251  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
1252 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART5',0,ZHOOK_HANDLE) 
1253  
1254  
1255  KAO( :, 1,12, 6) = (/&  
1256  & 8.2093E05_JPRB,1.0522E04_JPRB,1.1410E04_JPRB,1.1782E04_JPRB,1.1761E04_JPRB,1.1416E04_JPRB,&  
1257 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0724E04_JPRB,9.5735E05_JPRB,2.1586E03_JPRB/) 
1258  KAO( :, 2,12, 6) = (/&  
1259  & 8.3669E05_JPRB,1.0871E04_JPRB,1.1846E04_JPRB,1.2251E04_JPRB,1.2240E04_JPRB,1.1908E04_JPRB,&  
1260 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1234E04_JPRB,1.0091E04_JPRB,2.0547E03_JPRB/) 
1261  KAO( :, 3,12, 6) = (/&  
1262  & 8.5301E05_JPRB,1.1235E04_JPRB,1.2282E04_JPRB,1.2721E04_JPRB,1.2738E04_JPRB,1.2431E04_JPRB,&  
1263 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1770E04_JPRB,1.0601E04_JPRB,1.9599E03_JPRB/) 
1264  KAO( :, 4,12, 6) = (/&  
1265  & 8.7242E05_JPRB,1.1626E04_JPRB,1.2740E04_JPRB,1.3207E04_JPRB,1.3252E04_JPRB,1.2966E04_JPRB,&  
1266 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2318E04_JPRB,1.1105E04_JPRB,1.8736E03_JPRB/) 
1267  KAO( :, 5,12, 6) = (/&  
1268  & 8.9569E05_JPRB,1.2041E04_JPRB,1.3214E04_JPRB,1.3715E04_JPRB,1.3802E04_JPRB,1.3533E04_JPRB,&  
1269 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2876E04_JPRB,1.1627E04_JPRB,1.7949E03_JPRB/) 
1270  KAO( :, 1,13, 6) = (/&  
1271  & 7.1569E05_JPRB,9.3060E05_JPRB,1.0102E04_JPRB,1.0423E04_JPRB,1.0388E04_JPRB,1.0052E04_JPRB,&  
1272 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.4174E05_JPRB,8.3531E05_JPRB,1.8351E03_JPRB/) 
1273  KAO( :, 2,13, 6) = (/&  
1274  & 7.3011E05_JPRB,9.6373E05_JPRB,1.0503E04_JPRB,1.0856E04_JPRB,1.0834E04_JPRB,1.0508E04_JPRB,&  
1275 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.8836E05_JPRB,8.8176E05_JPRB,1.7459E03_JPRB/) 
1276  KAO( :, 3,13, 6) = (/&  
1277  & 7.4663E05_JPRB,9.9794E05_JPRB,1.0913E04_JPRB,1.1298E04_JPRB,1.1299E04_JPRB,1.0991E04_JPRB,&  
1278 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0372E04_JPRB,9.2787E05_JPRB,1.6660E03_JPRB/) 
1279  KAO( :, 4,13, 6) = (/&  
1280  & 7.6630E05_JPRB,1.0344E04_JPRB,1.1345E04_JPRB,1.1756E04_JPRB,1.1782E04_JPRB,1.1495E04_JPRB,&  
1281 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0877E04_JPRB,9.7412E05_JPRB,1.5932E03_JPRB/) 
1282  KAO( :, 5,13, 6) = (/&  
1283  & 7.9007E05_JPRB,1.0733E04_JPRB,1.1787E04_JPRB,1.2235E04_JPRB,1.2303E04_JPRB,1.2033E04_JPRB,&  
1284 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1390E04_JPRB,1.0206E04_JPRB,1.5265E03_JPRB/) 
1285  KAO( :, 1, 1, 7) = (/&  
1286  & 4.6305E04_JPRB,5.4556E04_JPRB,6.0200E04_JPRB,6.4863E04_JPRB,6.8107E04_JPRB,7.0420E04_JPRB,&  
1287 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.2199E04_JPRB,7.3085E04_JPRB,6.7646E04_JPRB/) 
1288  KAO( :, 2, 1, 7) = (/&  
1289  & 4.6301E04_JPRB,5.5700E04_JPRB,6.1674E04_JPRB,6.6918E04_JPRB,7.0683E04_JPRB,7.3382E04_JPRB,&  
1290 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.5720E04_JPRB,7.6870E04_JPRB,7.1353E04_JPRB/) 
1291  KAO( :, 3, 1, 7) = (/&  
1292  & 4.6454E04_JPRB,5.7050E04_JPRB,6.3324E04_JPRB,6.9016E04_JPRB,7.3249E04_JPRB,7.6632E04_JPRB,&  
1293 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.9567E04_JPRB,8.0915E04_JPRB,7.5224E04_JPRB/) 
1294  KAO( :, 4, 1, 7) = (/&  
1295  & 4.6651E04_JPRB,5.8405E04_JPRB,6.4895E04_JPRB,7.1069E04_JPRB,7.5837E04_JPRB,7.9949E04_JPRB,&  
1296 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.3506E04_JPRB,8.5087E04_JPRB,7.9164E04_JPRB/) 
1297  KAO( :, 5, 1, 7) = (/&  
1298  & 4.7034E04_JPRB,5.9930E04_JPRB,6.6683E04_JPRB,7.3355E04_JPRB,7.8609E04_JPRB,8.3312E04_JPRB,&  
1299 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.7517E04_JPRB,8.9333E04_JPRB,8.3199E04_JPRB/) 
1300  KAO( :, 1, 2, 7) = (/&  
1301  & 4.3178E04_JPRB,5.0967E04_JPRB,5.7208E04_JPRB,6.1793E04_JPRB,6.4678E04_JPRB,6.6138E04_JPRB,&  
1302 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.6815E04_JPRB,6.6568E04_JPRB,5.9744E04_JPRB/) 
1303  KAO( :, 2, 2, 7) = (/&  
1304  & 4.3227E04_JPRB,5.2067E04_JPRB,5.8785E04_JPRB,6.3795E04_JPRB,6.7133E04_JPRB,6.9007E04_JPRB,&  
1305 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.0100E04_JPRB,7.0211E04_JPRB,6.3355E04_JPRB/) 
1306  KAO( :, 3, 2, 7) = (/&  
1307  & 4.3414E04_JPRB,5.3362E04_JPRB,6.0473E04_JPRB,6.5841E04_JPRB,6.9567E04_JPRB,7.2097E04_JPRB,&  
1308 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.3754E04_JPRB,7.4189E04_JPRB,6.7066E04_JPRB/) 
1309  KAO( :, 4, 2, 7) = (/&  
1310  & 4.3688E04_JPRB,5.4677E04_JPRB,6.2106E04_JPRB,6.7900E04_JPRB,7.2053E04_JPRB,7.5255E04_JPRB,&  
1311 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.7596E04_JPRB,7.8317E04_JPRB,7.0771E04_JPRB/) 
1312  KAO( :, 5, 2, 7) = (/&  
1313  & 4.4026E04_JPRB,5.6009E04_JPRB,6.3723E04_JPRB,6.9996E04_JPRB,7.4621E04_JPRB,7.8382E04_JPRB,&  
1314 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.1411E04_JPRB,8.2479E04_JPRB,7.4663E04_JPRB/) 
1315  KAO( :, 1, 3, 7) = (/&  
1316  & 4.0042E04_JPRB,4.7588E04_JPRB,5.3737E04_JPRB,5.7848E04_JPRB,6.0266E04_JPRB,6.1092E04_JPRB,&  
1317 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.0756E04_JPRB,5.9389E04_JPRB,5.1726E04_JPRB/) 
1318  KAO( :, 2, 3, 7) = (/&  
1319  & 4.0139E04_JPRB,4.8636E04_JPRB,5.5256E04_JPRB,5.9842E04_JPRB,6.2668E04_JPRB,6.3795E04_JPRB,&  
1320 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.3723E04_JPRB,6.2673E04_JPRB,5.4890E04_JPRB/) 
1321  KAO( :, 3, 3, 7) = (/&  
1322  & 4.0264E04_JPRB,4.9818E04_JPRB,5.6878E04_JPRB,6.1775E04_JPRB,6.4985E04_JPRB,6.6625E04_JPRB,&  
1323 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.6960E04_JPRB,6.6297E04_JPRB,5.8203E04_JPRB/) 
1324  KAO( :, 4, 3, 7) = (/&  
1325  & 4.0594E04_JPRB,5.1098E04_JPRB,5.8559E04_JPRB,6.3812E04_JPRB,6.7417E04_JPRB,6.9560E04_JPRB,&  
1326 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.0436E04_JPRB,7.0139E04_JPRB,6.1550E04_JPRB/) 
1327  KAO( :, 5, 3, 7) = (/&  
1328  & 4.0942E04_JPRB,5.2279E04_JPRB,6.0106E04_JPRB,6.5810E04_JPRB,6.9804E04_JPRB,7.2431E04_JPRB,&  
1329 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.3907E04_JPRB,7.3980E04_JPRB,6.5087E04_JPRB/) 
1330  KAO( :, 1, 4, 7) = (/&  
1331  & 3.6954E04_JPRB,4.4390E04_JPRB,4.9967E04_JPRB,5.3490E04_JPRB,5.5341E04_JPRB,5.5728E04_JPRB,&  
1332 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4744E04_JPRB,5.2585E04_JPRB,4.5076E04_JPRB/) 
1333  KAO( :, 2, 4, 7) = (/&  
1334  & 3.7099E04_JPRB,4.5452E04_JPRB,5.1452E04_JPRB,5.5410E04_JPRB,5.7617E04_JPRB,5.8227E04_JPRB,&  
1335 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.7394E04_JPRB,5.5446E04_JPRB,4.7750E04_JPRB/) 
1336  KAO( :, 3, 4, 7) = (/&  
1337  & 3.7261E04_JPRB,4.6594E04_JPRB,5.3039E04_JPRB,5.7264E04_JPRB,5.9783E04_JPRB,6.0838E04_JPRB,&  
1338 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.0270E04_JPRB,5.8596E04_JPRB,5.0606E04_JPRB/) 
1339  KAO( :, 4, 4, 7) = (/&  
1340  & 3.7542E04_JPRB,4.7733E04_JPRB,5.4631E04_JPRB,5.9142E04_JPRB,6.2021E04_JPRB,6.3532E04_JPRB,&  
1341 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.3302E04_JPRB,6.1929E04_JPRB,5.3494E04_JPRB/) 
1342  KAO( :, 5, 4, 7) = (/&  
1343  & 3.7994E04_JPRB,4.8922E04_JPRB,5.6238E04_JPRB,6.1134E04_JPRB,6.4405E04_JPRB,6.6206E04_JPRB,&  
1344 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.6409E04_JPRB,6.5333E04_JPRB,5.6564E04_JPRB/) 
1345  KAO( :, 1, 5, 7) = (/&  
1346  & 3.4061E04_JPRB,4.1228E04_JPRB,4.6040E04_JPRB,4.8986E04_JPRB,5.0320E04_JPRB,5.0314E04_JPRB,&  
1347 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.9155E04_JPRB,4.6563E04_JPRB,3.9708E04_JPRB/) 
1348  KAO( :, 2, 5, 7) = (/&  
1349  & 3.4265E04_JPRB,4.2238E04_JPRB,4.7497E04_JPRB,5.0787E04_JPRB,5.2436E04_JPRB,5.2638E04_JPRB,&  
1350 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1586E04_JPRB,4.9074E04_JPRB,4.1980E04_JPRB/) 
1351  KAO( :, 3, 5, 7) = (/&  
1352  & 3.4457E04_JPRB,4.3316E04_JPRB,4.9022E04_JPRB,5.2547E04_JPRB,5.4476E04_JPRB,5.5018E04_JPRB,&  
1353 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4131E04_JPRB,5.1767E04_JPRB,4.4445E04_JPRB/) 
1354  KAO( :, 4, 5, 7) = (/&  
1355  & 3.4732E04_JPRB,4.4421E04_JPRB,5.0540E04_JPRB,5.4314E04_JPRB,5.6518E04_JPRB,5.7439E04_JPRB,&  
1356 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.6831E04_JPRB,5.4593E04_JPRB,4.6962E04_JPRB/) 
1357  KAO( :, 5, 5, 7) = (/&  
1358  & 3.5182E04_JPRB,4.5580E04_JPRB,5.2093E04_JPRB,5.6187E04_JPRB,5.8688E04_JPRB,5.9917E04_JPRB,&  
1359 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.9551E04_JPRB,5.7498E04_JPRB,4.9655E04_JPRB/) 
1360  KAO( :, 1, 6, 7) = (/&  
1361  & 3.1397E04_JPRB,3.8099E04_JPRB,4.2085E04_JPRB,4.4392E04_JPRB,4.5344E04_JPRB,4.5128E04_JPRB,&  
1362 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.3795E04_JPRB,4.1046E04_JPRB,3.5811E04_JPRB/) 
1363  KAO( :, 2, 6, 7) = (/&  
1364  & 3.1655E04_JPRB,3.9053E04_JPRB,4.3489E04_JPRB,4.6069E04_JPRB,4.7295E04_JPRB,4.7284E04_JPRB,&  
1365 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.6063E04_JPRB,4.3290E04_JPRB,3.7673E04_JPRB/) 
1366  KAO( :, 3, 6, 7) = (/&  
1367  & 3.1898E04_JPRB,4.0060E04_JPRB,4.4896E04_JPRB,4.7714E04_JPRB,4.9199E04_JPRB,4.9458E04_JPRB,&  
1368 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.8353E04_JPRB,4.5629E04_JPRB,3.9672E04_JPRB/) 
1369  KAO( :, 4, 6, 7) = (/&  
1370  & 3.2158E04_JPRB,4.1129E04_JPRB,4.6291E04_JPRB,4.9376E04_JPRB,5.1129E04_JPRB,5.1624E04_JPRB,&  
1371 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.0719E04_JPRB,4.8049E04_JPRB,4.1801E04_JPRB/) 
1372  KAO( :, 5, 6, 7) = (/&  
1373  & 3.2502E04_JPRB,4.2183E04_JPRB,4.7677E04_JPRB,5.1073E04_JPRB,5.3095E04_JPRB,5.3777E04_JPRB,&  
1374 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.3107E04_JPRB,5.0560E04_JPRB,4.4095E04_JPRB/) 
1375  KAO( :, 1, 7, 7) = (/&  
1376  & 2.8858E04_JPRB,3.5072E04_JPRB,3.8244E04_JPRB,3.9969E04_JPRB,4.0628E04_JPRB,4.0266E04_JPRB,&  
1377 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8820E04_JPRB,3.6095E04_JPRB,3.4917E04_JPRB/) 
1378  KAO( :, 2, 7, 7) = (/&  
1379  & 2.9154E04_JPRB,3.5995E04_JPRB,3.9513E04_JPRB,4.1562E04_JPRB,4.2428E04_JPRB,4.2225E04_JPRB,&  
1380 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.0848E04_JPRB,3.8100E04_JPRB,3.6556E04_JPRB/) 
1381  KAO( :, 3, 7, 7) = (/&  
1382  & 2.9427E04_JPRB,3.6955E04_JPRB,4.0818E04_JPRB,4.3070E04_JPRB,4.4206E04_JPRB,4.4209E04_JPRB,&  
1383 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2902E04_JPRB,4.0153E04_JPRB,3.8273E04_JPRB/) 
1384  KAO( :, 4, 7, 7) = (/&  
1385  & 2.9693E04_JPRB,3.7937E04_JPRB,4.2130E04_JPRB,4.4602E04_JPRB,4.5975E04_JPRB,4.6189E04_JPRB,&  
1386 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.5029E04_JPRB,4.2249E04_JPRB,4.0122E04_JPRB/) 
1387  KAO( :, 5, 7, 7) = (/&  
1388  & 3.0032E04_JPRB,3.8893E04_JPRB,4.3431E04_JPRB,4.6164E04_JPRB,4.7805E04_JPRB,4.8151E04_JPRB,&  
1389 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.7139E04_JPRB,4.4430E04_JPRB,4.2113E04_JPRB/) 
1390  KAO( :, 1, 8, 7) = (/&  
1391  & 2.6433E04_JPRB,3.2164E04_JPRB,3.4678E04_JPRB,3.5895E04_JPRB,3.6313E04_JPRB,3.5828E04_JPRB,&  
1392 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.4379E04_JPRB,3.1784E04_JPRB,3.8325E04_JPRB/) 
1393  KAO( :, 2, 8, 7) = (/&  
1394  & 2.6764E04_JPRB,3.3079E04_JPRB,3.5818E04_JPRB,3.7326E04_JPRB,3.7969E04_JPRB,3.7570E04_JPRB,&  
1395 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6173E04_JPRB,3.3531E04_JPRB,3.9627E04_JPRB/) 
1396  KAO( :, 3, 8, 7) = (/&  
1397  & 2.7049E04_JPRB,3.3967E04_JPRB,3.6984E04_JPRB,3.8764E04_JPRB,3.9567E04_JPRB,3.9347E04_JPRB,&  
1398 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7992E04_JPRB,3.5345E04_JPRB,4.1157E04_JPRB/) 
1399  KAO( :, 4, 8, 7) = (/&  
1400  & 2.7332E04_JPRB,3.4840E04_JPRB,3.8188E04_JPRB,4.0186E04_JPRB,4.1166E04_JPRB,4.1115E04_JPRB,&  
1401 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.9867E04_JPRB,3.7201E04_JPRB,4.2882E04_JPRB/) 
1402  KAO( :, 5, 8, 7) = (/&  
1403  & 2.7670E04_JPRB,3.5697E04_JPRB,3.9392E04_JPRB,4.1633E04_JPRB,4.2814E04_JPRB,4.2877E04_JPRB,&  
1404 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.1760E04_JPRB,3.9091E04_JPRB,4.4711E04_JPRB/) 
1405  KAO( :, 1, 9, 7) = (/&  
1406  & 2.4137E04_JPRB,2.9350E04_JPRB,3.1375E04_JPRB,3.2233E04_JPRB,3.2400E04_JPRB,3.1859E04_JPRB,&  
1407 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0441E04_JPRB,2.7946E04_JPRB,7.4112E04_JPRB/) 
1408  KAO( :, 2, 9, 7) = (/&  
1409  & 2.4480E04_JPRB,3.0210E04_JPRB,3.2420E04_JPRB,3.3517E04_JPRB,3.3871E04_JPRB,3.3414E04_JPRB,&  
1410 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2021E04_JPRB,2.9498E04_JPRB,7.2877E04_JPRB/) 
1411  KAO( :, 3, 9, 7) = (/&  
1412  & 2.4785E04_JPRB,3.1022E04_JPRB,3.3497E04_JPRB,3.4812E04_JPRB,3.5338E04_JPRB,3.4970E04_JPRB,&  
1413 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.3648E04_JPRB,3.1095E04_JPRB,7.2183E04_JPRB/) 
1414  KAO( :, 4, 9, 7) = (/&  
1415  & 2.5068E04_JPRB,3.1830E04_JPRB,3.4602E04_JPRB,3.6150E04_JPRB,3.6764E04_JPRB,3.6525E04_JPRB,&  
1416 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5301E04_JPRB,3.2741E04_JPRB,7.2069E04_JPRB/) 
1417  KAO( :, 5, 9, 7) = (/&  
1418  & 2.5395E04_JPRB,3.2629E04_JPRB,3.5706E04_JPRB,3.7496E04_JPRB,3.8230E04_JPRB,3.8101E04_JPRB,&  
1419 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6964E04_JPRB,3.4426E04_JPRB,7.2393E04_JPRB/) 
1420  KAO( :, 1,10, 7) = (/&  
1421  & 2.1916E04_JPRB,2.6728E04_JPRB,2.8357E04_JPRB,2.9003E04_JPRB,2.9019E04_JPRB,2.8394E04_JPRB,&  
1422 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6987E04_JPRB,2.4557E04_JPRB,2.2951E03_JPRB/) 
1423  KAO( :, 2,10, 7) = (/&  
1424  & 2.2269E04_JPRB,2.7508E04_JPRB,2.9328E04_JPRB,3.0170E04_JPRB,3.0330E04_JPRB,2.9810E04_JPRB,&  
1425 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.8439E04_JPRB,2.5963E04_JPRB,2.1937E03_JPRB/) 
1426  KAO( :, 3,10, 7) = (/&  
1427  & 2.2592E04_JPRB,2.8247E04_JPRB,3.0321E04_JPRB,3.1354E04_JPRB,3.1659E04_JPRB,3.1208E04_JPRB,&  
1428 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.9880E04_JPRB,2.7415E04_JPRB,2.1089E03_JPRB/) 
1429  KAO( :, 4,10, 7) = (/&  
1430  & 2.2891E04_JPRB,2.8992E04_JPRB,3.1332E04_JPRB,3.2558E04_JPRB,3.2968E04_JPRB,3.2576E04_JPRB,&  
1431 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.1353E04_JPRB,2.8898E04_JPRB,2.0353E03_JPRB/) 
1432  KAO( :, 5,10, 7) = (/&  
1433  & 2.3224E04_JPRB,2.9740E04_JPRB,3.2354E04_JPRB,3.3796E04_JPRB,3.4280E04_JPRB,3.3971E04_JPRB,&  
1434 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2827E04_JPRB,3.0414E04_JPRB,1.9694E03_JPRB/) 
1435  KAO( :, 1,11, 7) = (/&  
1436  & 1.9917E04_JPRB,2.4536E04_JPRB,2.5993E04_JPRB,2.6557E04_JPRB,2.6515E04_JPRB,2.5837E04_JPRB,&  
1437 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4462E04_JPRB,2.2066E04_JPRB,3.1341E03_JPRB/) 
1438  KAO( :, 2,11, 7) = (/&  
1439  & 2.0264E04_JPRB,2.5224E04_JPRB,2.6895E04_JPRB,2.7632E04_JPRB,2.7737E04_JPRB,2.7142E04_JPRB,&  
1440 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.5767E04_JPRB,2.3346E04_JPRB,2.9845E03_JPRB/) 
1441  KAO( :, 3,11, 7) = (/&  
1442  & 2.0597E04_JPRB,2.5913E04_JPRB,2.7799E04_JPRB,2.8723E04_JPRB,2.8930E04_JPRB,2.8411E04_JPRB,&  
1443 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.7068E04_JPRB,2.4666E04_JPRB,2.8531E03_JPRB/) 
1444  KAO( :, 4,11, 7) = (/&  
1445  & 2.0923E04_JPRB,2.6606E04_JPRB,2.8717E04_JPRB,2.9817E04_JPRB,3.0130E04_JPRB,2.9662E04_JPRB,&  
1446 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.8382E04_JPRB,2.6011E04_JPRB,2.7344E03_JPRB/) 
1447  KAO( :, 5,11, 7) = (/&  
1448  & 2.1283E04_JPRB,2.7325E04_JPRB,2.9677E04_JPRB,3.0938E04_JPRB,3.1326E04_JPRB,3.0919E04_JPRB,&  
1449 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.9712E04_JPRB,2.7384E04_JPRB,2.6277E03_JPRB/) 
1450  KAO( :, 1,12, 7) = (/&  
1451  & 1.7936E04_JPRB,2.2328E04_JPRB,2.3724E04_JPRB,2.4243E04_JPRB,2.4172E04_JPRB,2.3478E04_JPRB,&  
1452 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2093E04_JPRB,1.9737E04_JPRB,3.2835E03_JPRB/) 
1453  KAO( :, 2,12, 7) = (/&  
1454  & 1.8285E04_JPRB,2.2978E04_JPRB,2.4543E04_JPRB,2.5241E04_JPRB,2.5294E04_JPRB,2.4651E04_JPRB,&  
1455 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3266E04_JPRB,2.0912E04_JPRB,3.1216E03_JPRB/) 
1456  KAO( :, 3,12, 7) = (/&  
1457  & 1.8634E04_JPRB,2.3640E04_JPRB,2.5382E04_JPRB,2.6232E04_JPRB,2.6378E04_JPRB,2.5795E04_JPRB,&  
1458 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4444E04_JPRB,2.2095E04_JPRB,2.9752E03_JPRB/) 
1459  KAO( :, 4,12, 7) = (/&  
1460  & 1.8978E04_JPRB,2.4319E04_JPRB,2.6232E04_JPRB,2.7232E04_JPRB,2.7477E04_JPRB,2.6960E04_JPRB,&  
1461 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.5603E04_JPRB,2.3306E04_JPRB,2.8433E03_JPRB/) 
1462  KAO( :, 5,12, 7) = (/&  
1463  & 1.9368E04_JPRB,2.5043E04_JPRB,2.7137E04_JPRB,2.8261E04_JPRB,2.8588E04_JPRB,2.8109E04_JPRB,&  
1464 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6784E04_JPRB,2.4548E04_JPRB,2.7264E03_JPRB/) 
1465  KAO( :, 1,13, 7) = (/&  
1466  & 1.6014E04_JPRB,2.0144E04_JPRB,2.1482E04_JPRB,2.1993E04_JPRB,2.1918E04_JPRB,2.1245E04_JPRB,&  
1467 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9850E04_JPRB,1.7572E04_JPRB,2.8014E03_JPRB/) 
1468  KAO( :, 2,13, 7) = (/&  
1469  & 1.6372E04_JPRB,2.0772E04_JPRB,2.2263E04_JPRB,2.2918E04_JPRB,2.2929E04_JPRB,2.2295E04_JPRB,&  
1470 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0909E04_JPRB,1.8627E04_JPRB,2.6597E03_JPRB/) 
1471  KAO( :, 3,13, 7) = (/&  
1472  & 1.6711E04_JPRB,2.1423E04_JPRB,2.3053E04_JPRB,2.3833E04_JPRB,2.3922E04_JPRB,2.3334E04_JPRB,&  
1473 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.1968E04_JPRB,1.9695E04_JPRB,2.5327E03_JPRB/) 
1474  KAO( :, 4,13, 7) = (/&  
1475  & 1.7075E04_JPRB,2.2099E04_JPRB,2.3863E04_JPRB,2.4766E04_JPRB,2.4941E04_JPRB,2.4382E04_JPRB,&  
1476 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3022E04_JPRB,2.0776E04_JPRB,2.4204E03_JPRB/) 
1477  KAO( :, 5,13, 7) = (/&  
1478  & 1.7481E04_JPRB,2.2827E04_JPRB,2.4735E04_JPRB,2.5731E04_JPRB,2.5972E04_JPRB,2.5434E04_JPRB,&  
1479 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4101E04_JPRB,2.1916E04_JPRB,2.3207E03_JPRB/) 
1480  KAO( :, 1, 1, 8) = (/&  
1481  & 9.5608E04_JPRB,1.1137E03_JPRB,1.1928E03_JPRB,1.2676E03_JPRB,1.3453E03_JPRB,1.4201E03_JPRB,&  
1482 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4858E03_JPRB,1.4985E03_JPRB,1.3296E03_JPRB/) 
1483  KAO( :, 2, 1, 8) = (/&  
1484  & 9.5994E04_JPRB,1.1580E03_JPRB,1.2586E03_JPRB,1.3444E03_JPRB,1.4304E03_JPRB,1.5065E03_JPRB,&  
1485 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5698E03_JPRB,1.5822E03_JPRB,1.4127E03_JPRB/) 
1486  KAO( :, 3, 1, 8) = (/&  
1487  & 9.6434E04_JPRB,1.2039E03_JPRB,1.3295E03_JPRB,1.4283E03_JPRB,1.5240E03_JPRB,1.6021E03_JPRB,&  
1488 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6610E03_JPRB,1.6690E03_JPRB,1.4964E03_JPRB/) 
1489  KAO( :, 4, 1, 8) = (/&  
1490  & 9.6594E04_JPRB,1.2459E03_JPRB,1.3992E03_JPRB,1.5151E03_JPRB,1.6213E03_JPRB,1.7037E03_JPRB,&  
1491 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7586E03_JPRB,1.7581E03_JPRB,1.5822E03_JPRB/) 
1492  KAO( :, 5, 1, 8) = (/&  
1493  & 9.7112E04_JPRB,1.2922E03_JPRB,1.4733E03_JPRB,1.6088E03_JPRB,1.7251E03_JPRB,1.8137E03_JPRB,&  
1494 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8637E03_JPRB,1.8544E03_JPRB,1.6729E03_JPRB/) 
1495  KAO( :, 1, 2, 8) = (/&  
1496  & 9.2093E04_JPRB,1.0546E03_JPRB,1.1184E03_JPRB,1.1877E03_JPRB,1.2677E03_JPRB,1.3451E03_JPRB,&  
1497 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4085E03_JPRB,1.4282E03_JPRB,1.2587E03_JPRB/) 
1498  KAO( :, 2, 2, 8) = (/&  
1499  & 9.2391E04_JPRB,1.0934E03_JPRB,1.1705E03_JPRB,1.2485E03_JPRB,1.3345E03_JPRB,1.4205E03_JPRB,&  
1500 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4904E03_JPRB,1.5108E03_JPRB,1.3375E03_JPRB/) 
1501  KAO( :, 3, 2, 8) = (/&  
1502  & 9.2775E04_JPRB,1.1328E03_JPRB,1.2272E03_JPRB,1.3169E03_JPRB,1.4101E03_JPRB,1.5006E03_JPRB,&  
1503 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5743E03_JPRB,1.5928E03_JPRB,1.4152E03_JPRB/) 
1504  KAO( :, 4, 2, 8) = (/&  
1505  & 9.3033E04_JPRB,1.1705E03_JPRB,1.2842E03_JPRB,1.3889E03_JPRB,1.4909E03_JPRB,1.5847E03_JPRB,&  
1506 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6559E03_JPRB,1.6749E03_JPRB,1.4953E03_JPRB/) 
1507  KAO( :, 5, 2, 8) = (/&  
1508  & 9.3350E04_JPRB,1.2078E03_JPRB,1.3426E03_JPRB,1.4642E03_JPRB,1.5755E03_JPRB,1.6738E03_JPRB,&  
1509 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7416E03_JPRB,1.7599E03_JPRB,1.5794E03_JPRB/) 
1510  KAO( :, 1, 3, 8) = (/&  
1511  & 8.8225E04_JPRB,9.9524E04_JPRB,1.0564E03_JPRB,1.1307E03_JPRB,1.2003E03_JPRB,1.2591E03_JPRB,&  
1512 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3108E03_JPRB,1.3309E03_JPRB,1.1549E03_JPRB/) 
1513  KAO( :, 2, 3, 8) = (/&  
1514  & 8.8537E04_JPRB,1.0284E03_JPRB,1.0990E03_JPRB,1.1784E03_JPRB,1.2595E03_JPRB,1.3310E03_JPRB,&  
1515 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3892E03_JPRB,1.4138E03_JPRB,1.2306E03_JPRB/) 
1516  KAO( :, 3, 3, 8) = (/&  
1517  & 8.8781E04_JPRB,1.0600E03_JPRB,1.1442E03_JPRB,1.2314E03_JPRB,1.3222E03_JPRB,1.4061E03_JPRB,&  
1518 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4693E03_JPRB,1.4932E03_JPRB,1.3048E03_JPRB/) 
1519  KAO( :, 4, 3, 8) = (/&  
1520  & 8.9189E04_JPRB,1.0939E03_JPRB,1.1921E03_JPRB,1.2907E03_JPRB,1.3886E03_JPRB,1.4820E03_JPRB,&  
1521 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5492E03_JPRB,1.5703E03_JPRB,1.3811E03_JPRB/) 
1522  KAO( :, 5, 3, 8) = (/&  
1523  & 8.9438E04_JPRB,1.1258E03_JPRB,1.2397E03_JPRB,1.3504E03_JPRB,1.4556E03_JPRB,1.5581E03_JPRB,&  
1524 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6301E03_JPRB,1.6498E03_JPRB,1.4607E03_JPRB/) 
1525  KAO( :, 1, 4, 8) = (/&  
1526  & 8.3849E04_JPRB,9.3566E04_JPRB,1.0099E03_JPRB,1.0816E03_JPRB,1.1344E03_JPRB,1.1752E03_JPRB,&  
1527 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2048E03_JPRB,1.2139E03_JPRB,1.0399E03_JPRB/) 
1528  KAO( :, 2, 4, 8) = (/&  
1529  & 8.4244E04_JPRB,9.6570E04_JPRB,1.0454E03_JPRB,1.1259E03_JPRB,1.1888E03_JPRB,1.2423E03_JPRB,&  
1530 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2800E03_JPRB,1.2943E03_JPRB,1.1122E03_JPRB/) 
1531  KAO( :, 3, 4, 8) = (/&  
1532  & 8.4472E04_JPRB,9.9456E04_JPRB,1.0829E03_JPRB,1.1722E03_JPRB,1.2472E03_JPRB,1.3102E03_JPRB,&  
1533 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3565E03_JPRB,1.3722E03_JPRB,1.1831E03_JPRB/) 
1534  KAO( :, 4, 4, 8) = (/&  
1535  & 8.4703E04_JPRB,1.0229E03_JPRB,1.1215E03_JPRB,1.2221E03_JPRB,1.3077E03_JPRB,1.3778E03_JPRB,&  
1536 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4318E03_JPRB,1.4488E03_JPRB,1.2549E03_JPRB/) 
1537  KAO( :, 5, 4, 8) = (/&  
1538  & 8.5239E04_JPRB,1.0541E03_JPRB,1.1634E03_JPRB,1.2735E03_JPRB,1.3695E03_JPRB,1.4485E03_JPRB,&  
1539 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5090E03_JPRB,1.5277E03_JPRB,1.3292E03_JPRB/) 
1540  KAO( :, 1, 5, 8) = (/&  
1541  & 7.9083E04_JPRB,8.8170E04_JPRB,9.6674E04_JPRB,1.0299E03_JPRB,1.0698E03_JPRB,1.0915E03_JPRB,&  
1542 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0968E03_JPRB,1.0912E03_JPRB,9.3090E04_JPRB/) 
1543  KAO( :, 2, 5, 8) = (/&  
1544  & 7.9562E04_JPRB,9.0868E04_JPRB,9.9995E04_JPRB,1.0720E03_JPRB,1.1213E03_JPRB,1.1526E03_JPRB,&  
1545 
2/2✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.

10  & 1.1662E03_JPRB,1.1662E03_JPRB,9.9625E04_JPRB/) 
1546  
1547 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART5',1,ZHOOK_HANDLE) 
1548  1  END SUBROUTINE PART5  
1549  
1550  
1551  1  SUBROUTINE PART6  
1552  
1553  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
1554 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART6',0,ZHOOK_HANDLE) 
1555  
1556  
1557  KAO( :, 3, 5, 8) = (/&  
1558  & 7.9829E04_JPRB,9.3547E04_JPRB,1.0342E03_JPRB,1.1161E03_JPRB,1.1759E03_JPRB,1.2152E03_JPRB,&  
1559 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2368E03_JPRB,1.2405E03_JPRB,1.0609E03_JPRB/) 
1560  KAO( :, 4, 5, 8) = (/&  
1561  & 8.0091E04_JPRB,9.6089E04_JPRB,1.0686E03_JPRB,1.1624E03_JPRB,1.2313E03_JPRB,1.2778E03_JPRB,&  
1562 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3076E03_JPRB,1.3141E03_JPRB,1.1274E03_JPRB/) 
1563  KAO( :, 5, 5, 8) = (/&  
1564  & 8.0636E04_JPRB,9.8796E04_JPRB,1.1047E03_JPRB,1.2088E03_JPRB,1.2883E03_JPRB,1.3425E03_JPRB,&  
1565 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3805E03_JPRB,1.3900E03_JPRB,1.1960E03_JPRB/) 
1566  KAO( :, 1, 6, 8) = (/&  
1567  & 7.4042E04_JPRB,8.3357E04_JPRB,9.1717E04_JPRB,9.7114E04_JPRB,1.0002E03_JPRB,1.0057E03_JPRB,&  
1568 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.9270E04_JPRB,9.6792E04_JPRB,8.3659E04_JPRB/) 
1569  KAO( :, 2, 6, 8) = (/&  
1570  & 7.4565E04_JPRB,8.5743E04_JPRB,9.4912E04_JPRB,1.0119E03_JPRB,1.0480E03_JPRB,1.0602E03_JPRB,&  
1571 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0545E03_JPRB,1.0369E03_JPRB,8.9582E04_JPRB/) 
1572  KAO( :, 3, 6, 8) = (/&  
1573  & 7.4922E04_JPRB,8.8128E04_JPRB,9.8142E04_JPRB,1.0542E03_JPRB,1.0980E03_JPRB,1.1167E03_JPRB,&  
1574 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1185E03_JPRB,1.1056E03_JPRB,9.5443E04_JPRB/) 
1575  KAO( :, 4, 6, 8) = (/&  
1576  & 7.5232E04_JPRB,9.0308E04_JPRB,1.0141E03_JPRB,1.0981E03_JPRB,1.1486E03_JPRB,1.1744E03_JPRB,&  
1577 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1833E03_JPRB,1.1741E03_JPRB,1.0132E03_JPRB/) 
1578  KAO( :, 5, 6, 8) = (/&  
1579  & 7.5627E04_JPRB,9.2523E04_JPRB,1.0466E03_JPRB,1.1406E03_JPRB,1.2001E03_JPRB,1.2335E03_JPRB,&  
1580 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2490E03_JPRB,1.2439E03_JPRB,1.0736E03_JPRB/) 
1581  KAO( :, 1, 7, 8) = (/&  
1582  & 6.8964E04_JPRB,7.8723E04_JPRB,8.6407E04_JPRB,9.0570E04_JPRB,9.2461E04_JPRB,9.2134E04_JPRB,&  
1583 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.9655E04_JPRB,8.5470E04_JPRB,7.7227E04_JPRB/) 
1584  KAO( :, 2, 7, 8) = (/&  
1585  & 6.9565E04_JPRB,8.0904E04_JPRB,8.9444E04_JPRB,9.4366E04_JPRB,9.6915E04_JPRB,9.7063E04_JPRB,&  
1586 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.5066E04_JPRB,9.1508E04_JPRB,8.2464E04_JPRB/) 
1587  KAO( :, 3, 7, 8) = (/&  
1588  & 7.0042E04_JPRB,8.3032E04_JPRB,9.2461E04_JPRB,9.8296E04_JPRB,1.0152E03_JPRB,1.0214E03_JPRB,&  
1589 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0076E03_JPRB,9.7640E04_JPRB,8.7766E04_JPRB/) 
1590  KAO( :, 4, 7, 8) = (/&  
1591  & 7.0426E04_JPRB,8.4981E04_JPRB,9.5485E04_JPRB,1.0240E03_JPRB,1.0623E03_JPRB,1.0734E03_JPRB,&  
1592 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0651E03_JPRB,1.0378E03_JPRB,9.3187E04_JPRB/) 
1593  KAO( :, 5, 7, 8) = (/&  
1594  & 7.0821E04_JPRB,8.6946E04_JPRB,9.8537E04_JPRB,1.0646E03_JPRB,1.1098E03_JPRB,1.1263E03_JPRB,&  
1595 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1245E03_JPRB,1.1007E03_JPRB,9.8663E04_JPRB/) 
1596  KAO( :, 1, 8, 8) = (/&  
1597  & 6.4047E04_JPRB,7.3858E04_JPRB,8.0453E04_JPRB,8.3694E04_JPRB,8.4619E04_JPRB,8.3765E04_JPRB,&  
1598 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.0766E04_JPRB,7.5466E04_JPRB,8.2781E04_JPRB/) 
1599  KAO( :, 2, 8, 8) = (/&  
1600  & 6.4742E04_JPRB,7.5904E04_JPRB,8.3405E04_JPRB,8.7266E04_JPRB,8.8676E04_JPRB,8.8236E04_JPRB,&  
1601 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.5570E04_JPRB,8.0688E04_JPRB,8.7433E04_JPRB/) 
1602  KAO( :, 3, 8, 8) = (/&  
1603  & 6.5283E04_JPRB,7.7980E04_JPRB,8.6316E04_JPRB,9.0850E04_JPRB,9.2898E04_JPRB,9.2841E04_JPRB,&  
1604 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.0551E04_JPRB,8.6048E04_JPRB,9.2376E04_JPRB/) 
1605  KAO( :, 4, 8, 8) = (/&  
1606  & 6.5707E04_JPRB,7.9894E04_JPRB,8.9224E04_JPRB,9.4602E04_JPRB,9.7258E04_JPRB,9.7562E04_JPRB,&  
1607 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.5565E04_JPRB,9.1442E04_JPRB,9.7371E04_JPRB/) 
1608  KAO( :, 5, 8, 8) = (/&  
1609  & 6.6119E04_JPRB,8.1764E04_JPRB,9.2118E04_JPRB,9.8357E04_JPRB,1.0164E03_JPRB,1.0233E03_JPRB,&  
1610 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0075E03_JPRB,9.7011E04_JPRB,1.0250E03_JPRB/) 
1611  KAO( :, 1, 9, 8) = (/&  
1612  & 5.9304E04_JPRB,6.8835E04_JPRB,7.4179E04_JPRB,7.6634E04_JPRB,7.7050E04_JPRB,7.5604E04_JPRB,&  
1613 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.2393E04_JPRB,6.6767E04_JPRB,1.3527E03_JPRB/) 
1614  KAO( :, 2, 9, 8) = (/&  
1615  & 6.0061E04_JPRB,7.0826E04_JPRB,7.7005E04_JPRB,7.9970E04_JPRB,8.0682E04_JPRB,7.9622E04_JPRB,&  
1616 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.6713E04_JPRB,7.1229E04_JPRB,1.3810E03_JPRB/) 
1617  KAO( :, 3, 9, 8) = (/&  
1618  & 6.0690E04_JPRB,7.2826E04_JPRB,7.9782E04_JPRB,8.3277E04_JPRB,8.4414E04_JPRB,8.3763E04_JPRB,&  
1619 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.1182E04_JPRB,7.5863E04_JPRB,1.4228E03_JPRB/) 
1620  KAO( :, 4, 9, 8) = (/&  
1621  & 6.1167E04_JPRB,7.4710E04_JPRB,8.2533E04_JPRB,8.6687E04_JPRB,8.8342E04_JPRB,8.8028E04_JPRB,&  
1622 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.5678E04_JPRB,8.0590E04_JPRB,1.4759E03_JPRB/) 
1623  KAO( :, 5, 9, 8) = (/&  
1624  & 6.1627E04_JPRB,7.6539E04_JPRB,8.5255E04_JPRB,9.0125E04_JPRB,9.2320E04_JPRB,9.2321E04_JPRB,&  
1625 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.0266E04_JPRB,8.5442E04_JPRB,1.5365E03_JPRB/) 
1626  KAO( :, 1,10, 8) = (/&  
1627  & 5.4825E04_JPRB,6.3891E04_JPRB,6.8254E04_JPRB,7.0037E04_JPRB,6.9928E04_JPRB,6.8268E04_JPRB,&  
1628 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.4957E04_JPRB,5.9476E04_JPRB,3.8180E03_JPRB/) 
1629  KAO( :, 2,10, 8) = (/&  
1630  & 5.5676E04_JPRB,6.5829E04_JPRB,7.0890E04_JPRB,7.3100E04_JPRB,7.3257E04_JPRB,7.1817E04_JPRB,&  
1631 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.8748E04_JPRB,6.3344E04_JPRB,3.7319E03_JPRB/) 
1632  KAO( :, 3,10, 8) = (/&  
1633  & 5.6387E04_JPRB,6.7778E04_JPRB,7.3493E04_JPRB,7.6099E04_JPRB,7.6595E04_JPRB,7.5519E04_JPRB,&  
1634 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.2717E04_JPRB,6.7342E04_JPRB,3.6841E03_JPRB/) 
1635  KAO( :, 4,10, 8) = (/&  
1636  & 5.6965E04_JPRB,6.9628E04_JPRB,7.6095E04_JPRB,7.9168E04_JPRB,8.0061E04_JPRB,7.9369E04_JPRB,&  
1637 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.6769E04_JPRB,7.1402E04_JPRB,3.6718E03_JPRB/) 
1638  KAO( :, 5,10, 8) = (/&  
1639  & 5.7483E04_JPRB,7.1426E04_JPRB,7.8640E04_JPRB,8.2247E04_JPRB,8.3634E04_JPRB,8.3289E04_JPRB,&  
1640 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.0894E04_JPRB,7.5561E04_JPRB,3.6884E03_JPRB/) 
1641  KAO( :, 1,11, 8) = (/&  
1642  & 5.0971E04_JPRB,5.9908E04_JPRB,6.3716E04_JPRB,6.5075E04_JPRB,6.4646E04_JPRB,6.2883E04_JPRB,&  
1643 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.9611E04_JPRB,5.4516E04_JPRB,5.2044E03_JPRB/) 
1644  KAO( :, 2,11, 8) = (/&  
1645  & 5.1851E04_JPRB,6.1830E04_JPRB,6.6103E04_JPRB,6.7814E04_JPRB,6.7644E04_JPRB,6.6100E04_JPRB,&  
1646 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.3054E04_JPRB,5.7922E04_JPRB,5.0472E03_JPRB/) 
1647  KAO( :, 3,11, 8) = (/&  
1648  & 5.2576E04_JPRB,6.3685E04_JPRB,6.8508E04_JPRB,7.0561E04_JPRB,7.0702E04_JPRB,6.9454E04_JPRB,&  
1649 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.6622E04_JPRB,6.1448E04_JPRB,4.9485E03_JPRB/) 
1650  KAO( :, 4,11, 8) = (/&  
1651  & 5.3230E04_JPRB,6.5426E04_JPRB,7.0906E04_JPRB,7.3336E04_JPRB,7.3854E04_JPRB,7.2917E04_JPRB,&  
1652 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.0247E04_JPRB,6.5031E04_JPRB,4.8945E03_JPRB/) 
1653  KAO( :, 5,11, 8) = (/&  
1654  & 5.3825E04_JPRB,6.7152E04_JPRB,7.3265E04_JPRB,7.6088E04_JPRB,7.7057E04_JPRB,7.6479E04_JPRB,&  
1655 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.3945E04_JPRB,6.8664E04_JPRB,4.8718E03_JPRB/) 
1656  KAO( :, 1,12, 8) = (/&  
1657  & 4.7268E04_JPRB,5.5911E04_JPRB,5.9221E04_JPRB,6.0202E04_JPRB,5.9599E04_JPRB,5.7673E04_JPRB,&  
1658 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4567E04_JPRB,4.9766E04_JPRB,5.4784E03_JPRB/) 
1659  KAO( :, 2,12, 8) = (/&  
1660  & 4.8142E04_JPRB,5.7788E04_JPRB,6.1435E04_JPRB,6.2655E04_JPRB,6.2325E04_JPRB,6.0670E04_JPRB,&  
1661 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 