Directory:  ./ 

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

Lines:  5026  5026  100.0% 
Branches:  9738  9816  99.2% 
Line  Branch  Exec  Source 

1  !pgi$r opt=0  
2  1  SUBROUTINE RRTM_KGB5  
3  
4  ! Originally by Eli J. Mlawer, Atmospheric & Environmental Research.  
5  ! BAND 5: 700820 cm1 (low  H2O,CO2; high  O3,CO2)  
6  ! Reformatted for F90 by JJMorcrette, ECMWF  
7  ! R. Elkhatib 12102005 Split for faster and more robust compilation  
8  
9  !   
10  
11  USE PARKIND1 ,ONLY : JPRB  
12  USE YOMHOOK ,ONLY : LHOOK, DR_HOOK  
13  
14  USE YOERRTO5 , ONLY : KAO ,KBO ,SELFREFO ,FRACREFAO ,&  
15  & FRACREFBO, CCL4O  
16  USE YOERRTA5 , ONLY : STRRAT1 ,STRRAT2  
17  
18  !   
19  
20  IMPLICIT NONE  
21  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
22  
23 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB5',0,ZHOOK_HANDLE) 
24  
25  1  CALL PART1  
26  1  CALL PART2  
27  1  CALL PART3  
28  1  CALL PART4  
29  1  CALL PART5  
30  1  CALL PART6  
31  1  CALL PART7  
32  1  CALL PART8  
33  1  CALL PART9  
34  1  CALL PART10  
35  1  CALL PART11  
36  1  CALL PART12  
37  1  CALL PART13  
38  1  CALL PART14  
39  1  CALL PART15  
40  1  CALL PART16  
41  1  CALL PART17  
42  1  CALL PART18  
43  1  CALL PART19  
44  1  CALL PART20  
45  1  CALL PART21  
46  1  CALL PART22  
47  1  CALL PART23  
48  1  CALL PART24  
49  1  CALL PART25  
50  1  CALL PART26  
51  1  CALL PART27  
52  1  CALL PART28  
53  1  CALL PART29  
54  1  CALL PART30  
55  1  CALL PART31  
56  1  CALL PART32  
57  1  CALL PART33  
58  1  CALL PART34  
59  1  CALL PART35  
60  1  CALL PART36  
61  1  CALL PART37  
62  1  CALL PART38  
63  
64 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB5',1,ZHOOK_HANDLE) 
65  
66  !   
67  
68  CONTAINS  
69  
70  
71  1  SUBROUTINE PART1  
72  
73  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
74 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART1',0,ZHOOK_HANDLE) 
75  
76  
77  CCL4O( :) = (/&  
78  & 26.1407_JPRB, 53.9776_JPRB, 63.8085_JPRB, 36.1701_JPRB,&  
79  & 15.4099_JPRB, 10.23116_JPRB, 4.82948_JPRB, 5.03836_JPRB,&  
80  & 1.75558_JPRB, 0.0_JPRB , 0.0_JPRB , 0.0_JPRB ,&  
81  1  & 0.0_JPRB , 0.0_JPRB , 0.0_JPRB , 0.0_JPRB /)  
82  
83  1  STRRAT1 = 90.4894_JPRB  
84  1  STRRAT2 = 0.900502_JPRB  
85  
86  !   
87  
88  ! The array KAO contains absorption coefs for each of the 16 gintervals  
89  ! for a range of pressure levels > ~100mb, temperatures, and ratios  
90  ! of water vapor to CO2. The first index in the array, JS, runs  
91  ! from 1 to 9 and corresponds to different water vapor to CO2 ratios,  
92  ! as expressed through the binary species parameter eta, defined as  
93  ! eta = h2o/(h20 + (rat) * co2), where rat is the ratio of the integrated  
94  ! line strength in the band of co2 to that of h2o. For instance,  
95  ! JS=1 refers to dry air (eta = 0), JS = 9 corresponds to eta = 1.0.  
96  ! The 2nd index in the array, JT, which runs from 1 to 5, corresponds  
97  ! to different temperatures. More specifically, JT = 3 means that the  
98  ! data are for the reference temperature TREF for this pressure  
99  ! level, JT = 2 refers to the temperature TREF15,  
100  ! JT = 1 is for TREF30, JT = 4 is for TREF+15, and JT = 5  
101  ! is for TREF+30. The third index, JP, runs from 1 to 13 and refers  
102  ! to the reference pressure level (e.g. JP = 1 is for a  
103  ! pressure of 1053.63 mb). The fourth index, IG, goes from 1 to 16,  
104  ! and tells us which ginterval the absorption coefficients are for.  
105  
106  KAO( :, 1, 1, 1) = (/&  
107  & 1.2281E06_JPRB,7.3444E06_JPRB,1.3802E05_JPRB,2.1363E05_JPRB,3.4026E05_JPRB,5.1149E05_JPRB,&  
108 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.6454E05_JPRB,1.1492E04_JPRB,5.1051E05_JPRB/) 
109  KAO( :, 2, 1, 1) = (/&  
110  & 1.6369E06_JPRB,8.9617E06_JPRB,1.6072E05_JPRB,2.4135E05_JPRB,3.4106E05_JPRB,4.9214E05_JPRB,&  
111 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.9048E05_JPRB,1.3905E04_JPRB,5.4063E05_JPRB/) 
112  KAO( :, 3, 1, 1) = (/&  
113  & 2.1611E06_JPRB,1.1094E05_JPRB,1.8726E05_JPRB,2.7825E05_JPRB,3.8281E05_JPRB,5.1592E05_JPRB,&  
114 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.6813E05_JPRB,1.3616E04_JPRB,6.0994E05_JPRB/) 
115  KAO( :, 4, 1, 1) = (/&  
116  & 2.8032E06_JPRB,1.3911E05_JPRB,2.1873E05_JPRB,3.1872E05_JPRB,4.3669E05_JPRB,5.8650E05_JPRB,&  
117 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.1107E05_JPRB,1.3247E04_JPRB,6.8413E05_JPRB/) 
118  KAO( :, 5, 1, 1) = (/&  
119  & 3.5749E06_JPRB,1.7399E05_JPRB,2.6270E05_JPRB,3.5363E05_JPRB,4.8470E05_JPRB,6.5479E05_JPRB,&  
120 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.0735E05_JPRB,1.4099E04_JPRB,5.7731E05_JPRB/) 
121  KAO( :, 1, 2, 1) = (/&  
122  & 9.2208E07_JPRB,5.6661E06_JPRB,1.0853E05_JPRB,1.7695E05_JPRB,2.8111E05_JPRB,4.1811E05_JPRB,&  
123 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.7766E05_JPRB,8.8171E05_JPRB,3.6499E05_JPRB/) 
124  KAO( :, 2, 2, 1) = (/&  
125  & 1.2339E06_JPRB,6.8718E06_JPRB,1.2450E05_JPRB,1.9038E05_JPRB,2.7428E05_JPRB,4.2214E05_JPRB,&  
126 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.5891E05_JPRB,1.0808E04_JPRB,3.9328E05_JPRB/) 
127  KAO( :, 3, 2, 1) = (/&  
128  & 1.6382E06_JPRB,8.4733E06_JPRB,1.4470E05_JPRB,2.1567E05_JPRB,3.0172E05_JPRB,4.1842E05_JPRB,&  
129 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.2761E05_JPRB,1.1359E04_JPRB,4.4926E05_JPRB/) 
130  KAO( :, 4, 2, 1) = (/&  
131  & 2.1437E06_JPRB,1.0582E05_JPRB,1.7090E05_JPRB,2.4961E05_JPRB,3.4319E05_JPRB,4.6334E05_JPRB,&  
132 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.4942E05_JPRB,1.0880E04_JPRB,4.8706E05_JPRB/) 
133  KAO( :, 5, 2, 1) = (/&  
134  & 2.7550E06_JPRB,1.3307E05_JPRB,2.0303E05_JPRB,2.7768E05_JPRB,3.8649E05_JPRB,5.3069E05_JPRB,&  
135 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.1656E05_JPRB,1.1174E04_JPRB,4.2264E05_JPRB/) 
136  KAO( :, 1, 3, 1) = (/&  
137  & 6.5681E07_JPRB,4.2928E06_JPRB,8.6206E06_JPRB,1.4813E05_JPRB,2.2795E05_JPRB,3.0956E05_JPRB,&  
138 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2159E05_JPRB,6.7143E05_JPRB,2.4558E05_JPRB/) 
139  KAO( :, 2, 3, 1) = (/&  
140  & 8.8032E07_JPRB,5.0858E06_JPRB,9.4979E06_JPRB,1.4908E05_JPRB,2.3302E05_JPRB,3.4761E05_JPRB,&  
141 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.2810E05_JPRB,7.8083E05_JPRB,2.7352E05_JPRB/) 
142  KAO( :, 3, 3, 1) = (/&  
143  & 1.1757E06_JPRB,6.2479E06_JPRB,1.1007E05_JPRB,1.6613E05_JPRB,2.3543E05_JPRB,3.3879E05_JPRB,&  
144 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.3064E05_JPRB,9.3905E05_JPRB,3.1433E05_JPRB/) 
145  KAO( :, 4, 3, 1) = (/&  
146  & 1.5541E06_JPRB,7.7549E06_JPRB,1.2987E05_JPRB,1.9178E05_JPRB,2.6197E05_JPRB,3.5750E05_JPRB,&  
147 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1915E05_JPRB,9.2229E05_JPRB,2.9423E05_JPRB/) 
148  KAO( :, 5, 3, 1) = (/&  
149  & 2.0193E06_JPRB,9.7639E06_JPRB,1.5167E05_JPRB,2.2031E05_JPRB,3.0010E05_JPRB,4.0258E05_JPRB,&  
150 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.5267E05_JPRB,9.0112E05_JPRB,2.9943E05_JPRB/) 
151  KAO( :, 1, 4, 1) = (/&  
152  & 4.6419E07_JPRB,3.2238E06_JPRB,7.0968E06_JPRB,1.2172E05_JPRB,1.6732E05_JPRB,2.2369E05_JPRB,&  
153 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.1463E05_JPRB,5.3229E05_JPRB,1.7381E05_JPRB/) 
154  KAO( :, 2, 4, 1) = (/&  
155  & 6.2245E07_JPRB,3.7726E06_JPRB,7.2766E06_JPRB,1.2504E05_JPRB,1.9255E05_JPRB,2.8079E05_JPRB,&  
156 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7485E05_JPRB,5.7403E05_JPRB,1.9667E05_JPRB/) 
157  KAO( :, 3, 4, 1) = (/&  
158  & 8.3351E07_JPRB,4.5653E06_JPRB,8.3036E06_JPRB,1.2777E05_JPRB,1.8816E05_JPRB,2.9030E05_JPRB,&  
159 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.4417E05_JPRB,7.0863E05_JPRB,2.1895E05_JPRB/) 
160  KAO( :, 4, 4, 1) = (/&  
161  & 1.1087E06_JPRB,5.6384E06_JPRB,9.6405E06_JPRB,1.4565E05_JPRB,2.0321E05_JPRB,2.8264E05_JPRB,&  
162 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.3444E05_JPRB,7.7444E05_JPRB,2.1414E05_JPRB/) 
163  KAO( :, 5, 4, 1) = (/&  
164  & 1.4581E06_JPRB,7.0726E06_JPRB,1.1402E05_JPRB,1.6579E05_JPRB,2.3011E05_JPRB,3.1009E05_JPRB,&  
165 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.3245E05_JPRB,7.3708E05_JPRB,2.2863E05_JPRB/) 
166  KAO( :, 1, 5, 1) = (/&  
167  & 3.3427E07_JPRB,2.5337E06_JPRB,5.7680E06_JPRB,8.9425E06_JPRB,1.2242E05_JPRB,1.6995E05_JPRB,&  
168 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4164E05_JPRB,4.4230E05_JPRB,1.3422E05_JPRB/) 
169  KAO( :, 2, 5, 1) = (/&  
170  & 4.4601E07_JPRB,2.8401E06_JPRB,5.8531E06_JPRB,1.0220E05_JPRB,1.5419E05_JPRB,2.0153E05_JPRB,&  
171 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.7336E05_JPRB,4.3727E05_JPRB,1.5115E05_JPRB/) 
172  KAO( :, 3, 5, 1) = (/&  
173  & 5.9812E07_JPRB,3.3532E06_JPRB,6.3191E06_JPRB,1.0031E05_JPRB,1.5953E05_JPRB,2.3950E05_JPRB,&  
174 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.4195E05_JPRB,5.0601E05_JPRB,1.6591E05_JPRB/) 
175  KAO( :, 4, 5, 1) = (/&  
176  & 7.9837E07_JPRB,4.1280E06_JPRB,7.3147E06_JPRB,1.1079E05_JPRB,1.5854E05_JPRB,2.3810E05_JPRB,&  
177 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6514E05_JPRB,6.2591E05_JPRB,1.7658E05_JPRB/) 
178  KAO( :, 5, 5, 1) = (/&  
179  & 1.0575E06_JPRB,5.1440E06_JPRB,8.5910E06_JPRB,1.2709E05_JPRB,1.7592E05_JPRB,2.4262E05_JPRB,&  
180 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5276E05_JPRB,6.2368E05_JPRB,1.9388E05_JPRB/) 
181  KAO( :, 1, 6, 1) = (/&  
182  & 2.4467E07_JPRB,2.0115E06_JPRB,4.4506E06_JPRB,6.5328E06_JPRB,9.2134E06_JPRB,1.2867E05_JPRB,&  
183 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9266E05_JPRB,3.4226E05_JPRB,1.1020E05_JPRB/) 
184  KAO( :, 2, 6, 1) = (/&  
185  & 3.2244E07_JPRB,2.1802E06_JPRB,4.7859E06_JPRB,8.3031E06_JPRB,1.1024E05_JPRB,1.4816E05_JPRB,&  
186 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0767E05_JPRB,3.3867E05_JPRB,1.2361E05_JPRB/) 
187  KAO( :, 3, 6, 1) = (/&  
188  & 4.3252E07_JPRB,2.5034E06_JPRB,4.8788E06_JPRB,8.5188E06_JPRB,1.3353E05_JPRB,1.8353E05_JPRB,&  
189 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4440E05_JPRB,3.7220E05_JPRB,1.3756E05_JPRB/) 
190  KAO( :, 4, 6, 1) = (/&  
191  & 5.7866E07_JPRB,3.0227E06_JPRB,5.4901E06_JPRB,8.5441E06_JPRB,1.3294E05_JPRB,1.9970E05_JPRB,&  
192 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0079E05_JPRB,4.5487E05_JPRB,1.5370E05_JPRB/) 
193  KAO( :, 5, 6, 1) = (/&  
194  & 7.6960E07_JPRB,3.7504E06_JPRB,6.3767E06_JPRB,9.6311E06_JPRB,1.3563E05_JPRB,1.9464E05_JPRB,&  
195 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0023E05_JPRB,5.3031E05_JPRB,1.7349E05_JPRB/) 
196  KAO( :, 1, 7, 1) = (/&  
197  & 1.8363E07_JPRB,1.6339E06_JPRB,3.2365E06_JPRB,4.8736E06_JPRB,7.0565E06_JPRB,1.0168E05_JPRB,&  
198 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5448E05_JPRB,2.6119E05_JPRB,9.9973E06_JPRB/) 
199  KAO( :, 2, 7, 1) = (/&  
200  & 2.3828E07_JPRB,1.7045E06_JPRB,3.9446E06_JPRB,5.9885E06_JPRB,8.1187E06_JPRB,1.1164E05_JPRB,&  
201 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5910E05_JPRB,2.7804E05_JPRB,1.1252E05_JPRB/) 
202  KAO( :, 3, 7, 1) = (/&  
203  & 3.1712E07_JPRB,1.8915E06_JPRB,4.0133E06_JPRB,6.9371E06_JPRB,1.0184E05_JPRB,1.3247E05_JPRB,&  
204 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8144E05_JPRB,2.8687E05_JPRB,1.2767E05_JPRB/) 
205  KAO( :, 4, 7, 1) = (/&  
206  & 4.2549E07_JPRB,2.2415E06_JPRB,4.2001E06_JPRB,7.0066E06_JPRB,1.0950E05_JPRB,1.6323E05_JPRB,&  
207 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2218E05_JPRB,3.2987E05_JPRB,1.4591E05_JPRB/) 
208  KAO( :, 5, 7, 1) = (/&  
209  & 5.6782E07_JPRB,2.7608E06_JPRB,4.8541E06_JPRB,7.3705E06_JPRB,1.0748E05_JPRB,1.6390E05_JPRB,&  
210 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.5035E05_JPRB,4.1583E05_JPRB,1.6759E05_JPRB/) 
211  KAO( :, 1, 8, 1) = (/&  
212  & 1.4297E07_JPRB,1.2986E06_JPRB,2.4296E06_JPRB,3.7740E06_JPRB,5.5717E06_JPRB,8.1007E06_JPRB,&  
213 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2269E05_JPRB,2.0668E05_JPRB,1.1224E05_JPRB/) 
214  KAO( :, 2, 8, 1) = (/&  
215  & 1.8237E07_JPRB,1.3796E06_JPRB,2.9841E06_JPRB,4.4232E06_JPRB,6.1625E06_JPRB,8.6070E06_JPRB,&  
216 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2749E05_JPRB,2.2374E05_JPRB,1.3050E05_JPRB/) 
217  KAO( :, 3, 8, 1) = (/&  
218  & 2.3995E07_JPRB,1.4828E06_JPRB,3.2302E06_JPRB,5.5721E06_JPRB,7.4009E06_JPRB,9.9584E06_JPRB,&  
219 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3793E05_JPRB,2.2720E05_JPRB,1.5037E05_JPRB/) 
220  KAO( :, 4, 8, 1) = (/&  
221  & 3.2109E07_JPRB,1.7086E06_JPRB,3.3052E06_JPRB,5.7552E06_JPRB,9.1163E06_JPRB,1.2137E05_JPRB,&  
222 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6200E05_JPRB,2.4932E05_JPRB,1.7316E05_JPRB/) 
223  KAO( :, 5, 8, 1) = (/&  
224  & 4.2933E07_JPRB,2.0665E06_JPRB,3.6851E06_JPRB,5.7093E06_JPRB,9.1231E06_JPRB,1.3616E05_JPRB,&  
225 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0240E05_JPRB,2.9795E05_JPRB,1.9811E05_JPRB/) 
226  KAO( :, 1, 9, 1) = (/&  
227  & 1.1391E07_JPRB,9.6607E07_JPRB,1.8596E06_JPRB,2.9960E06_JPRB,4.4278E06_JPRB,6.4496E06_JPRB,&  
228 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.3668E06_JPRB,1.6296E05_JPRB,2.3175E05_JPRB/) 
229  KAO( :, 2, 9, 1) = (/&  
230  & 1.4318E07_JPRB,1.1432E06_JPRB,2.1917E06_JPRB,3.3465E06_JPRB,4.7894E06_JPRB,6.8583E06_JPRB,&  
231 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0124E05_JPRB,1.7732E05_JPRB,2.8424E05_JPRB/) 
232  KAO( :, 3, 9, 1) = (/&  
233  & 1.8594E07_JPRB,1.1885E06_JPRB,2.6962E06_JPRB,4.0343E06_JPRB,5.5351E06_JPRB,7.5514E06_JPRB,&  
234 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0675E05_JPRB,1.8150E05_JPRB,3.4053E05_JPRB/) 
235  KAO( :, 4, 9, 1) = (/&  
236  & 2.4670E07_JPRB,1.3380E06_JPRB,2.7503E06_JPRB,4.7549E06_JPRB,6.8876E06_JPRB,8.9087E06_JPRB,&  
237 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2295E05_JPRB,1.9210E05_JPRB,3.9839E05_JPRB/) 
238  KAO( :, 5, 9, 1) = (/&  
239  & 3.3010E07_JPRB,1.5784E06_JPRB,2.8513E06_JPRB,4.8049E06_JPRB,7.4827E06_JPRB,1.1096E05_JPRB,&  
240 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4749E05_JPRB,2.1955E05_JPRB,4.5594E05_JPRB/) 
241  KAO( :, 1,10, 1) = (/&  
242  & 9.5530E08_JPRB,7.6103E07_JPRB,1.4822E06_JPRB,2.4013E06_JPRB,3.5241E06_JPRB,5.0863E06_JPRB,&  
243 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.7041E06_JPRB,1.2423E05_JPRB,8.9067E05_JPRB/) 
244  KAO( :, 2,10, 1) = (/&  
245  & 1.1882E07_JPRB,9.2450E07_JPRB,1.6979E06_JPRB,2.6207E06_JPRB,3.8503E06_JPRB,5.4657E06_JPRB,&  
246 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.9684E06_JPRB,1.3651E05_JPRB,1.1125E04_JPRB/) 
247  KAO( :, 3,10, 1) = (/&  
248  & 1.5289E07_JPRB,9.7942E07_JPRB,2.0846E06_JPRB,3.0524E06_JPRB,4.2640E06_JPRB,5.9216E06_JPRB,&  
249 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.6666E06_JPRB,1.4411E05_JPRB,1.3376E04_JPRB/) 
250  KAO( :, 4,10, 1) = (/&  
251  & 2.0094E07_JPRB,1.0816E06_JPRB,2.2331E06_JPRB,3.8855E06_JPRB,5.1239E06_JPRB,6.8144E06_JPRB,&  
252 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.5102E06_JPRB,1.5396E05_JPRB,1.5621E04_JPRB/) 
253  KAO( :, 5,10, 1) = (/&  
254  & 2.6711E07_JPRB,1.2572E06_JPRB,2.3283E06_JPRB,3.9502E06_JPRB,6.1703E06_JPRB,8.4471E06_JPRB,&  
255 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1047E05_JPRB,1.7057E05_JPRB,1.7815E04_JPRB/) 
256  KAO( :, 1,11, 1) = (/&  
257  & 8.8479E08_JPRB,6.5723E07_JPRB,1.2585E06_JPRB,2.0039E06_JPRB,2.9121E06_JPRB,4.1955E06_JPRB,&  
258 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.2637E06_JPRB,1.0419E05_JPRB,1.7219E04_JPRB/) 
259  KAO( :, 2,11, 1) = (/&  
260  & 1.1103E07_JPRB,7.9724E07_JPRB,1.4388E06_JPRB,2.1938E06_JPRB,3.2099E06_JPRB,4.5380E06_JPRB,&  
261 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.5334E06_JPRB,1.1529E05_JPRB,2.1393E04_JPRB/) 
262  KAO( :, 3,11, 1) = (/&  
263  & 1.4325E07_JPRB,8.5009E07_JPRB,1.7790E06_JPRB,2.5762E06_JPRB,3.5853E06_JPRB,4.9027E06_JPRB,&  
264 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.2087E06_JPRB,1.1783E05_JPRB,2.5548E04_JPRB/) 
265  KAO( :, 4,11, 1) = (/&  
266  & 1.8796E07_JPRB,9.4910E07_JPRB,1.8794E06_JPRB,3.2448E06_JPRB,4.3096E06_JPRB,5.7004E06_JPRB,&  
267 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.8146E06_JPRB,1.2759E05_JPRB,2.9570E04_JPRB/) 
268  KAO( :, 5,11, 1) = (/&  
269  & 2.4830E07_JPRB,1.0997E06_JPRB,1.9987E06_JPRB,3.2788E06_JPRB,5.0983E06_JPRB,7.0948E06_JPRB,&  
270 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.2185E06_JPRB,1.4157E05_JPRB,3.3417E04_JPRB/) 
271  KAO( :, 1,12, 1) = (/&  
272  & 7.8411E08_JPRB,5.6432E07_JPRB,1.0564E06_JPRB,1.6792E06_JPRB,2.4262E06_JPRB,3.3875E06_JPRB,&  
273 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1824E06_JPRB,8.5930E06_JPRB,2.1970E04_JPRB/) 
274  KAO( :, 2,12, 1) = (/&  
275  & 9.8958E08_JPRB,6.8328E07_JPRB,1.2215E06_JPRB,1.8350E06_JPRB,2.6716E06_JPRB,3.7787E06_JPRB,&  
276 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.3849E06_JPRB,9.1860E06_JPRB,2.7209E04_JPRB/) 
277  KAO( :, 3,12, 1) = (/&  
278  & 1.2797E07_JPRB,7.2421E07_JPRB,1.5209E06_JPRB,2.1711E06_JPRB,3.0040E06_JPRB,4.0829E06_JPRB,&  
279 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.0229E06_JPRB,9.7068E06_JPRB,3.2380E04_JPRB/) 
280  KAO( :, 4,12, 1) = (/&  
281  & 1.6772E07_JPRB,8.1500E07_JPRB,1.5843E06_JPRB,2.7212E06_JPRB,3.6141E06_JPRB,4.7595E06_JPRB,&  
282 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.4840E06_JPRB,1.0629E05_JPRB,3.7332E04_JPRB/) 
283  KAO( :, 5,12, 1) = (/&  
284  & 2.2081E07_JPRB,9.4887E07_JPRB,1.7061E06_JPRB,2.7338E06_JPRB,4.2409E06_JPRB,5.9628E06_JPRB,&  
285 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.7123E06_JPRB,1.1668E05_JPRB,4.2006E04_JPRB/) 
286  KAO( :, 1,13, 1) = (/&  
287  & 6.9984E08_JPRB,4.8746E07_JPRB,8.9934E07_JPRB,1.4101E06_JPRB,2.0188E06_JPRB,2.7991E06_JPRB,&  
288 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.1521E06_JPRB,7.2727E06_JPRB,2.2865E04_JPRB/) 
289  KAO( :, 2,13, 1) = (/&  
290  & 8.8821E08_JPRB,5.8672E07_JPRB,1.0421E06_JPRB,1.5517E06_JPRB,2.2340E06_JPRB,3.1346E06_JPRB,&  
291 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.4727E06_JPRB,7.4604E06_JPRB,2.8267E04_JPRB/) 
292  KAO( :, 3,13, 1) = (/&  
293  & 1.1504E07_JPRB,6.2137E07_JPRB,1.3015E06_JPRB,1.8350E06_JPRB,2.5305E06_JPRB,3.4076E06_JPRB,&  
294 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.9426E06_JPRB,8.0265E06_JPRB,3.3576E04_JPRB/) 
295  KAO( :, 4,13, 1) = (/&  
296  & 1.5036E07_JPRB,7.0084E07_JPRB,1.3483E06_JPRB,2.2875E06_JPRB,3.0337E06_JPRB,3.9839E06_JPRB,&  
297 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4210E06_JPRB,8.7755E06_JPRB,3.8637E04_JPRB/) 
298  KAO( :, 5,13, 1) = (/&  
299  & 1.9712E07_JPRB,8.1525E07_JPRB,1.4451E06_JPRB,2.3051E06_JPRB,3.5032E06_JPRB,5.0029E06_JPRB,&  
300 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.4407E06_JPRB,9.6564E06_JPRB,4.3385E04_JPRB/) 
301  KAO( :, 1, 1, 2) = (/&  
302  & 3.7010E06_JPRB,1.8091E05_JPRB,2.8711E05_JPRB,4.8863E05_JPRB,7.2307E05_JPRB,1.1413E04_JPRB,&  
303 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8771E04_JPRB,3.6122E04_JPRB,1.1281E04_JPRB/) 
304  KAO( :, 2, 1, 2) = (/&  
305  & 5.3266E06_JPRB,2.4423E05_JPRB,3.4269E05_JPRB,4.7704E05_JPRB,7.6078E05_JPRB,1.1442E04_JPRB,&  
306 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6436E04_JPRB,3.2838E04_JPRB,8.7847E05_JPRB/) 
307  KAO( :, 3, 1, 2) = (/&  
308  & 7.5177E06_JPRB,3.2854E05_JPRB,4.4289E05_JPRB,5.4913E05_JPRB,7.2779E05_JPRB,1.0814E04_JPRB,&  
309 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7906E04_JPRB,2.8467E04_JPRB,8.6883E05_JPRB/) 
310  KAO( :, 4, 1, 2) = (/&  
311  & 1.0391E05_JPRB,4.3522E05_JPRB,5.8544E05_JPRB,6.9693E05_JPRB,8.1288E05_JPRB,1.0220E04_JPRB,&  
312 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5047E04_JPRB,3.0285E04_JPRB,9.1049E05_JPRB/) 
313  KAO( :, 5, 1, 2) = (/&  
314  & 1.4024E05_JPRB,5.6758E05_JPRB,7.6016E05_JPRB,9.1662E05_JPRB,1.0372E04_JPRB,1.1700E04_JPRB,&  
315 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4991E04_JPRB,2.3704E04_JPRB,1.3000E04_JPRB/) 
316  KAO( :, 1, 2, 2) = (/&  
317  & 2.7903E06_JPRB,1.3902E05_JPRB,2.3771E05_JPRB,3.9190E05_JPRB,6.1137E05_JPRB,9.7231E05_JPRB,&  
318 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5250E04_JPRB,2.8746E04_JPRB,7.5943E05_JPRB/) 
319  KAO( :, 2, 2, 2) = (/&  
320  & 4.0561E06_JPRB,1.8720E05_JPRB,2.7225E05_JPRB,3.9741E05_JPRB,6.4537E05_JPRB,9.0899E05_JPRB,&  
321 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4609E04_JPRB,2.7008E04_JPRB,6.2612E05_JPRB/) 
322  KAO( :, 3, 2, 2) = (/&  
323  & 5.7887E06_JPRB,2.5353E05_JPRB,3.4446E05_JPRB,4.3750E05_JPRB,5.8352E05_JPRB,9.7668E05_JPRB,&  
324 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4210E04_JPRB,2.4211E04_JPRB,6.1269E05_JPRB/) 
325  KAO( :, 4, 2, 2) = (/&  
326  & 8.0784E06_JPRB,3.3950E05_JPRB,4.5325E05_JPRB,5.3921E05_JPRB,6.4280E05_JPRB,8.5665E05_JPRB,&  
327 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3688E04_JPRB,2.4556E04_JPRB,6.9568E05_JPRB/) 
328  KAO( :, 5, 2, 2) = (/&  
329  & 1.1019E05_JPRB,4.4672E05_JPRB,5.9575E05_JPRB,7.1166E05_JPRB,7.9595E05_JPRB,9.1088E05_JPRB,&  
330 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2520E04_JPRB,2.1802E04_JPRB,9.5557E05_JPRB/) 
331  KAO( :, 1, 3, 2) = (/&  
332  & 1.9479E06_JPRB,1.0095E05_JPRB,1.9141E05_JPRB,3.0705E05_JPRB,5.2363E05_JPRB,7.9991E05_JPRB,&  
333 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2823E04_JPRB,2.3806E04_JPRB,4.6992E05_JPRB/) 
334  KAO( :, 2, 3, 2) = (/&  
335  & 2.8509E06_JPRB,1.3413E05_JPRB,2.1137E05_JPRB,3.4101E05_JPRB,4.9706E05_JPRB,7.8708E05_JPRB,&  
336 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2808E04_JPRB,2.2769E04_JPRB,4.2012E05_JPRB/) 
337  KAO( :, 3, 3, 2) = (/&  
338  & 4.1189E06_JPRB,1.8265E05_JPRB,2.5419E05_JPRB,3.4683E05_JPRB,5.2513E05_JPRB,8.0240E05_JPRB,&  
339 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1481E04_JPRB,2.1816E04_JPRB,4.3174E05_JPRB/) 
340  KAO( :, 4, 3, 2) = (/&  
341  & 5.8233E06_JPRB,2.4801E05_JPRB,3.3200E05_JPRB,4.0180E05_JPRB,5.1786E05_JPRB,7.2468E05_JPRB,&  
342 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2549E04_JPRB,1.9856E04_JPRB,5.6282E05_JPRB/) 
343  KAO( :, 5, 3, 2) = (/&  
344  & 8.0612E06_JPRB,3.3094E05_JPRB,4.4191E05_JPRB,5.1801E05_JPRB,5.9300E05_JPRB,7.2075E05_JPRB,&  
345 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0386E04_JPRB,2.0859E04_JPRB,6.8039E05_JPRB/) 
346  KAO( :, 1, 4, 2) = (/&  
347  & 1.3432E06_JPRB,7.4538E06_JPRB,1.4964E05_JPRB,2.5625E05_JPRB,4.3243E05_JPRB,6.6019E05_JPRB,&  
348 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0530E04_JPRB,1.9952E04_JPRB,3.1575E05_JPRB/) 
349  KAO( :, 2, 4, 2) = (/&  
350  & 1.9591E06_JPRB,9.5155E06_JPRB,1.6737E05_JPRB,2.6791E05_JPRB,4.2345E05_JPRB,6.7439E05_JPRB,&  
351 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0271E04_JPRB,1.8871E04_JPRB,3.0704E05_JPRB/) 
352  KAO( :, 3, 4, 2) = (/&  
353  & 2.8537E06_JPRB,1.2845E05_JPRB,1.8934E05_JPRB,2.8752E05_JPRB,4.4199E05_JPRB,6.2430E05_JPRB,&  
354 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0202E04_JPRB,1.8062E04_JPRB,3.4088E05_JPRB/) 
355  KAO( :, 4, 4, 2) = (/&  
356  & 4.0888E06_JPRB,1.7612E05_JPRB,2.3922E05_JPRB,3.0749E05_JPRB,4.2010E05_JPRB,6.5728E05_JPRB,&  
357 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.6566E05_JPRB,1.7460E04_JPRB,4.3387E05_JPRB/) 
358  KAO( :, 5, 4, 2) = (/&  
359  & 5.7388E06_JPRB,2.3829E05_JPRB,3.1758E05_JPRB,3.7789E05_JPRB,4.5312E05_JPRB,5.9095E05_JPRB,&  
360 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0064E04_JPRB,1.6850E04_JPRB,5.1079E05_JPRB/) 
361  KAO( :, 1, 5, 2) = (/&  
362  & 9.4882E07_JPRB,5.7155E06_JPRB,1.1980E05_JPRB,2.2295E05_JPRB,3.5116E05_JPRB,5.3339E05_JPRB,&  
363 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.8729E05_JPRB,1.5937E04_JPRB,2.5456E05_JPRB/) 
364  KAO( :, 2, 5, 2) = (/&  
365  & 1.3669E06_JPRB,6.8739E06_JPRB,1.3459E05_JPRB,2.1396E05_JPRB,3.6297E05_JPRB,5.4282E05_JPRB,&  
366 
2/2✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.

10  & 8.6042E05_JPRB,1.6025E04_JPRB,2.6654E05_JPRB/) 
367  
368 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

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

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART2',0,ZHOOK_HANDLE) 
376  
377  
378  KAO( :, 3, 5, 2) = (/&  
379  & 1.9884E06_JPRB,9.0859E06_JPRB,1.4605E05_JPRB,2.3671E05_JPRB,3.4093E05_JPRB,5.5324E05_JPRB,&  
380 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.6463E05_JPRB,1.5363E04_JPRB,3.0684E05_JPRB/) 
381  KAO( :, 4, 5, 2) = (/&  
382  & 2.8701E06_JPRB,1.2430E05_JPRB,1.7294E05_JPRB,2.4580E05_JPRB,3.7203E05_JPRB,5.3154E05_JPRB,&  
383 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.1963E05_JPRB,1.5281E04_JPRB,3.6321E05_JPRB/) 
384  KAO( :, 5, 5, 2) = (/&  
385  & 4.0709E06_JPRB,1.7029E05_JPRB,2.2743E05_JPRB,2.7902E05_JPRB,3.6353E05_JPRB,5.3115E05_JPRB,&  
386 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.4864E05_JPRB,1.3732E04_JPRB,4.2547E05_JPRB/) 
387  KAO( :, 1, 6, 2) = (/&  
388  & 6.8988E07_JPRB,4.4652E06_JPRB,9.7580E06_JPRB,1.7678E05_JPRB,2.8332E05_JPRB,4.4145E05_JPRB,&  
389 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.0109E05_JPRB,1.2493E04_JPRB,2.3716E05_JPRB/) 
390  KAO( :, 2, 6, 2) = (/&  
391  & 9.7314E07_JPRB,5.0974E06_JPRB,1.0412E05_JPRB,1.7485E05_JPRB,2.9376E05_JPRB,4.4804E05_JPRB,&  
392 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.0122E05_JPRB,1.3276E04_JPRB,2.6375E05_JPRB/) 
393  KAO( :, 3, 6, 2) = (/&  
394  & 1.3972E06_JPRB,6.4724E06_JPRB,1.1564E05_JPRB,1.8858E05_JPRB,2.8568E05_JPRB,4.7043E05_JPRB,&  
395 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.0202E05_JPRB,1.2748E04_JPRB,3.0169E05_JPRB/) 
396  KAO( :, 4, 6, 2) = (/&  
397  & 2.0156E06_JPRB,8.7063E06_JPRB,1.3025E05_JPRB,2.0355E05_JPRB,3.0069E05_JPRB,4.4240E05_JPRB,&  
398 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.1336E05_JPRB,1.2324E04_JPRB,3.4994E05_JPRB/) 
399  KAO( :, 5, 6, 2) = (/&  
400  & 2.8756E06_JPRB,1.1976E05_JPRB,1.6242E05_JPRB,2.1147E05_JPRB,3.0629E05_JPRB,4.5526E05_JPRB,&  
401 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.5474E05_JPRB,1.2130E04_JPRB,4.0495E05_JPRB/) 
402  KAO( :, 1, 7, 2) = (/&  
403  & 5.2255E07_JPRB,3.4411E06_JPRB,7.7789E06_JPRB,1.4395E05_JPRB,2.2965E05_JPRB,3.5662E05_JPRB,&  
404 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.5652E05_JPRB,9.9078E05_JPRB,2.5677E05_JPRB/) 
405  KAO( :, 2, 7, 2) = (/&  
406  & 7.2172E07_JPRB,4.0179E06_JPRB,8.3376E06_JPRB,1.4853E05_JPRB,2.4331E05_JPRB,3.6364E05_JPRB,&  
407 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.7791E05_JPRB,1.0563E04_JPRB,2.9556E05_JPRB/) 
408  KAO( :, 3, 7, 2) = (/&  
409  & 1.0201E06_JPRB,4.7217E06_JPRB,9.3095E06_JPRB,1.5083E05_JPRB,2.5365E05_JPRB,3.7347E05_JPRB,&  
410 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.8190E05_JPRB,1.0603E04_JPRB,3.3998E05_JPRB/) 
411  KAO( :, 4, 7, 2) = (/&  
412  & 1.4537E06_JPRB,6.1748E06_JPRB,1.0020E05_JPRB,1.6138E05_JPRB,2.3962E05_JPRB,3.7967E05_JPRB,&  
413 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.8451E05_JPRB,1.0372E04_JPRB,3.9119E05_JPRB/) 
414  KAO( :, 5, 7, 2) = (/&  
415  & 2.0693E06_JPRB,8.4363E06_JPRB,1.1705E05_JPRB,1.7001E05_JPRB,2.5826E05_JPRB,3.5527E05_JPRB,&  
416 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.8296E05_JPRB,1.0385E04_JPRB,4.4936E05_JPRB/) 
417  KAO( :, 1, 8, 2) = (/&  
418  & 4.1700E07_JPRB,2.7639E06_JPRB,6.4938E06_JPRB,1.1630E05_JPRB,1.8371E05_JPRB,2.7706E05_JPRB,&  
419 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.4850E05_JPRB,8.0696E05_JPRB,3.5956E05_JPRB/) 
420  KAO( :, 2, 8, 2) = (/&  
421  & 5.6411E07_JPRB,3.1556E06_JPRB,6.9457E06_JPRB,1.2120E05_JPRB,1.9397E05_JPRB,2.9581E05_JPRB,&  
422 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.6513E05_JPRB,8.4727E05_JPRB,4.2511E05_JPRB/) 
423  KAO( :, 3, 8, 2) = (/&  
424  & 7.8647E07_JPRB,3.6535E06_JPRB,7.3255E06_JPRB,1.2353E05_JPRB,2.0079E05_JPRB,3.0844E05_JPRB,&  
425 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.7401E05_JPRB,8.6525E05_JPRB,4.9724E05_JPRB/) 
426  KAO( :, 4, 8, 2) = (/&  
427  & 1.1061E06_JPRB,4.5424E06_JPRB,7.9917E06_JPRB,1.3185E05_JPRB,1.9791E05_JPRB,3.2038E05_JPRB,&  
428 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.8054E05_JPRB,8.5457E05_JPRB,5.7233E05_JPRB/) 
429  KAO( :, 5, 8, 2) = (/&  
430  & 1.5569E06_JPRB,6.0599E06_JPRB,9.0209E06_JPRB,1.3990E05_JPRB,2.0815E05_JPRB,3.0475E05_JPRB,&  
431 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.9899E05_JPRB,8.4659E05_JPRB,6.5356E05_JPRB/) 
432  KAO( :, 1, 9, 2) = (/&  
433  & 3.4646E07_JPRB,2.3339E06_JPRB,5.2376E06_JPRB,9.2182E06_JPRB,1.4337E05_JPRB,2.2490E05_JPRB,&  
434 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6396E05_JPRB,6.1412E05_JPRB,1.0490E04_JPRB/) 
435  KAO( :, 2, 9, 2) = (/&  
436  & 4.5919E07_JPRB,2.4585E06_JPRB,5.5676E06_JPRB,9.8533E06_JPRB,1.5559E05_JPRB,2.3683E05_JPRB,&  
437 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6999E05_JPRB,7.0677E05_JPRB,1.2405E04_JPRB/) 
438  KAO( :, 3, 9, 2) = (/&  
439  & 6.2898E07_JPRB,2.9262E06_JPRB,5.8022E06_JPRB,1.0344E05_JPRB,1.6840E05_JPRB,2.4691E05_JPRB,&  
440 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8818E05_JPRB,7.0031E05_JPRB,1.4290E04_JPRB/) 
441  KAO( :, 4, 9, 2) = (/&  
442  & 8.7625E07_JPRB,3.4474E06_JPRB,6.4904E06_JPRB,1.0589E05_JPRB,1.7378E05_JPRB,2.5849E05_JPRB,&  
443 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.9400E05_JPRB,7.0716E05_JPRB,1.6112E04_JPRB/) 
444  KAO( :, 5, 9, 2) = (/&  
445  & 1.2209E06_JPRB,4.4922E06_JPRB,7.0958E06_JPRB,1.1298E05_JPRB,1.6936E05_JPRB,2.6020E05_JPRB,&  
446 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.0325E05_JPRB,7.2083E05_JPRB,1.7893E04_JPRB/) 
447  KAO( :, 1,10, 2) = (/&  
448  & 3.1214E07_JPRB,1.9536E06_JPRB,4.2576E06_JPRB,7.3396E06_JPRB,1.1621E05_JPRB,1.8021E05_JPRB,&  
449 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.8013E05_JPRB,4.7749E05_JPRB,4.9962E04_JPRB/) 
450  KAO( :, 2,10, 2) = (/&  
451  & 4.0887E07_JPRB,2.0598E06_JPRB,4.7149E06_JPRB,8.0606E06_JPRB,1.2573E05_JPRB,1.8809E05_JPRB,&  
452 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0275E05_JPRB,5.6188E05_JPRB,5.8548E04_JPRB/) 
453  KAO( :, 3,10, 2) = (/&  
454  & 5.5155E07_JPRB,2.4175E06_JPRB,4.9545E06_JPRB,8.5941E06_JPRB,1.3457E05_JPRB,2.0204E05_JPRB,&  
455 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.1138E05_JPRB,5.6286E05_JPRB,6.6291E04_JPRB/) 
456  KAO( :, 4,10, 2) = (/&  
457  & 7.5650E07_JPRB,2.8298E06_JPRB,5.3256E06_JPRB,8.7402E06_JPRB,1.3978E05_JPRB,2.1601E05_JPRB,&  
458 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2082E05_JPRB,5.7693E05_JPRB,7.2972E04_JPRB/) 
459  KAO( :, 5,10, 2) = (/&  
460  & 1.0427E06_JPRB,3.5400E06_JPRB,5.8501E06_JPRB,9.4137E06_JPRB,1.4055E05_JPRB,2.2092E05_JPRB,&  
461 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.3371E05_JPRB,5.7680E05_JPRB,7.8611E04_JPRB/) 
462  KAO( :, 1,11, 2) = (/&  
463  & 3.2074E07_JPRB,1.7276E06_JPRB,3.6239E06_JPRB,6.1854E06_JPRB,9.6607E06_JPRB,1.4993E05_JPRB,&  
464 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3443E05_JPRB,4.1061E05_JPRB,1.0142E03_JPRB/) 
465  KAO( :, 2,11, 2) = (/&  
466  & 4.2113E07_JPRB,1.8116E06_JPRB,4.1199E06_JPRB,6.7716E06_JPRB,1.0543E05_JPRB,1.5526E05_JPRB,&  
467 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4849E05_JPRB,4.5454E05_JPRB,1.1742E03_JPRB/) 
468  KAO( :, 3,11, 2) = (/&  
469  & 5.6514E07_JPRB,2.1552E06_JPRB,4.2148E06_JPRB,7.3585E06_JPRB,1.1239E05_JPRB,1.6846E05_JPRB,&  
470 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.5655E05_JPRB,4.5531E05_JPRB,1.3139E03_JPRB/) 
471  KAO( :, 4,11, 2) = (/&  
472  & 7.6814E07_JPRB,2.5322E06_JPRB,4.6852E06_JPRB,7.3538E06_JPRB,1.1830E05_JPRB,1.8155E05_JPRB,&  
473 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6824E05_JPRB,4.7139E05_JPRB,1.4305E03_JPRB/) 
474  KAO( :, 5,11, 2) = (/&  
475  & 1.0464E06_JPRB,3.2313E06_JPRB,5.0889E06_JPRB,8.1260E06_JPRB,1.1741E05_JPRB,1.8567E05_JPRB,&  
476 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.7673E05_JPRB,4.7684E05_JPRB,1.5261E03_JPRB/) 
477  KAO( :, 1,12, 2) = (/&  
478  & 3.0483E07_JPRB,1.4986E06_JPRB,3.1036E06_JPRB,5.2551E06_JPRB,7.9883E06_JPRB,1.2411E05_JPRB,&  
479 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9208E05_JPRB,3.3894E05_JPRB,1.3243E03_JPRB/) 
480  KAO( :, 2,12, 2) = (/&  
481  & 4.0026E07_JPRB,1.5746E06_JPRB,3.5034E06_JPRB,5.7409E06_JPRB,8.9248E06_JPRB,1.2928E05_JPRB,&  
482 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0014E05_JPRB,3.7406E05_JPRB,1.5202E03_JPRB/) 
483  KAO( :, 3,12, 2) = (/&  
484  & 5.3553E07_JPRB,1.8879E06_JPRB,3.5598E06_JPRB,6.2204E06_JPRB,9.4506E06_JPRB,1.4131E05_JPRB,&  
485 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.1193E05_JPRB,3.7290E05_JPRB,1.6892E03_JPRB/) 
486  KAO( :, 4,12, 2) = (/&  
487  & 7.2441E07_JPRB,2.2261E06_JPRB,4.0611E06_JPRB,6.2008E06_JPRB,9.9865E06_JPRB,1.4941E05_JPRB,&  
488 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2423E05_JPRB,3.8766E05_JPRB,1.8301E03_JPRB/) 
489  KAO( :, 5,12, 2) = (/&  
490  & 9.8233E07_JPRB,2.8782E06_JPRB,4.3585E06_JPRB,6.9707E06_JPRB,9.7990E06_JPRB,1.5463E05_JPRB,&  
491 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2949E05_JPRB,3.9658E05_JPRB,1.9441E03_JPRB/) 
492  KAO( :, 1,13, 2) = (/&  
493  & 2.9003E07_JPRB,1.3003E06_JPRB,2.6851E06_JPRB,4.4901E06_JPRB,6.6847E06_JPRB,1.0336E05_JPRB,&  
494 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6084E05_JPRB,2.8206E05_JPRB,1.3971E03_JPRB/) 
495  KAO( :, 2,13, 2) = (/&  
496  & 3.7990E07_JPRB,1.3887E06_JPRB,2.9888E06_JPRB,4.8895E06_JPRB,7.4887E06_JPRB,1.0848E05_JPRB,&  
497 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6497E05_JPRB,3.0927E05_JPRB,1.5951E03_JPRB/) 
498  KAO( :, 3,13, 2) = (/&  
499  & 5.0572E07_JPRB,1.6533E06_JPRB,3.0166E06_JPRB,5.2825E06_JPRB,8.0084E06_JPRB,1.1877E05_JPRB,&  
500 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7766E05_JPRB,3.0474E05_JPRB,1.7653E03_JPRB/) 
501  KAO( :, 4,13, 2) = (/&  
502  & 6.7947E07_JPRB,1.9700E06_JPRB,3.4410E06_JPRB,5.2325E06_JPRB,8.4395E06_JPRB,1.2460E05_JPRB,&  
503 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8625E05_JPRB,3.2158E05_JPRB,1.9067E03_JPRB/) 
504  KAO( :, 5,13, 2) = (/&  
505  & 9.1576E07_JPRB,2.5777E06_JPRB,3.7459E06_JPRB,5.9026E06_JPRB,8.2962E06_JPRB,1.2772E05_JPRB,&  
506 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8972E05_JPRB,3.2948E05_JPRB,2.0202E03_JPRB/) 
507  KAO( :, 1, 1, 3) = (/&  
508  & 1.2955E05_JPRB,5.0522E05_JPRB,7.1945E05_JPRB,8.6154E05_JPRB,1.0208E04_JPRB,1.2598E04_JPRB,&  
509 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9123E04_JPRB,3.6418E04_JPRB,1.3186E04_JPRB/) 
510  KAO( :, 2, 1, 3) = (/&  
511  & 1.9287E05_JPRB,7.0010E05_JPRB,9.9593E05_JPRB,1.2286E04_JPRB,1.3525E04_JPRB,1.5548E04_JPRB,&  
512 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0918E04_JPRB,3.4739E04_JPRB,1.7322E04_JPRB/) 
513  KAO( :, 3, 1, 3) = (/&  
514  & 2.7759E05_JPRB,9.4510E05_JPRB,1.3259E04_JPRB,1.6366E04_JPRB,1.8879E04_JPRB,2.0943E04_JPRB,&  
515 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3157E04_JPRB,3.4811E04_JPRB,1.6150E04_JPRB/) 
516  KAO( :, 4, 1, 3) = (/&  
517  & 3.8738E05_JPRB,1.2422E04_JPRB,1.7221E04_JPRB,2.0992E04_JPRB,2.4272E04_JPRB,2.7453E04_JPRB,&  
518 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.1488E04_JPRB,3.8180E04_JPRB,1.6247E04_JPRB/) 
519  KAO( :, 5, 1, 3) = (/&  
520  & 5.2551E05_JPRB,1.5948E04_JPRB,2.1800E04_JPRB,2.6091E04_JPRB,2.8985E04_JPRB,3.1670E04_JPRB,&  
521 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5730E04_JPRB,5.0275E04_JPRB,1.6769E04_JPRB/) 
522  KAO( :, 1, 2, 3) = (/&  
523  & 1.0215E05_JPRB,3.8380E05_JPRB,5.3048E05_JPRB,6.6381E05_JPRB,7.9446E05_JPRB,1.0242E04_JPRB,&  
524 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6771E04_JPRB,3.2794E04_JPRB,9.6316E05_JPRB/) 
525  KAO( :, 2, 2, 3) = (/&  
526  & 1.5451E05_JPRB,5.4104E05_JPRB,7.5600E05_JPRB,9.3324E05_JPRB,1.0289E04_JPRB,1.2339E04_JPRB,&  
527 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5508E04_JPRB,2.9561E04_JPRB,1.1950E04_JPRB/) 
528  KAO( :, 3, 2, 3) = (/&  
529  & 2.2597E05_JPRB,7.3963E05_JPRB,1.0253E04_JPRB,1.2549E04_JPRB,1.4695E04_JPRB,1.5501E04_JPRB,&  
530 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8766E04_JPRB,2.7580E04_JPRB,1.1963E04_JPRB/) 
531  KAO( :, 4, 2, 3) = (/&  
532  & 3.1981E05_JPRB,9.8266E05_JPRB,1.3455E04_JPRB,1.6363E04_JPRB,1.9057E04_JPRB,2.1405E04_JPRB,&  
533 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4009E04_JPRB,3.0871E04_JPRB,1.1944E04_JPRB/) 
534  KAO( :, 5, 2, 3) = (/&  
535  & 4.3949E05_JPRB,1.2724E04_JPRB,1.7210E04_JPRB,2.0576E04_JPRB,2.2967E04_JPRB,2.5641E04_JPRB,&  
536 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.9387E04_JPRB,3.8545E04_JPRB,1.2834E04_JPRB/) 
537  KAO( :, 1, 3, 3) = (/&  
538  & 7.2365E06_JPRB,2.6998E05_JPRB,3.6477E05_JPRB,4.7217E05_JPRB,5.6642E05_JPRB,8.7936E05_JPRB,&  
539 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4529E04_JPRB,2.7769E04_JPRB,6.9628E05_JPRB/) 
540  KAO( :, 2, 3, 3) = (/&  
541  & 1.1199E05_JPRB,3.9041E05_JPRB,5.3564E05_JPRB,6.4272E05_JPRB,7.6774E05_JPRB,9.0855E05_JPRB,&  
542 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2382E04_JPRB,2.6260E04_JPRB,7.7539E05_JPRB/) 
543  KAO( :, 3, 3, 3) = (/&  
544  & 1.6746E05_JPRB,5.4459E05_JPRB,7.4537E05_JPRB,8.9917E05_JPRB,1.0355E04_JPRB,1.1572E04_JPRB,&  
545 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4649E04_JPRB,2.2179E04_JPRB,7.9988E05_JPRB/) 
546  KAO( :, 4, 3, 3) = (/&  
547  & 2.4191E05_JPRB,7.3480E05_JPRB,9.9615E05_JPRB,1.2140E04_JPRB,1.3959E04_JPRB,1.5714E04_JPRB,&  
548 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6549E04_JPRB,2.4024E04_JPRB,8.5666E05_JPRB/) 
549  KAO( :, 5, 3, 3) = (/&  
550  & 3.3870E05_JPRB,9.6615E05_JPRB,1.2939E04_JPRB,1.5483E04_JPRB,1.7605E04_JPRB,2.0033E04_JPRB,&  
551 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2747E04_JPRB,2.7100E04_JPRB,9.7295E05_JPRB/) 
552  KAO( :, 1, 4, 3) = (/&  
553  & 4.9164E06_JPRB,1.8370E05_JPRB,2.4721E05_JPRB,3.3121E05_JPRB,4.7620E05_JPRB,7.5266E05_JPRB,&  
554 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2052E04_JPRB,2.1534E04_JPRB,5.2534E05_JPRB/) 
555  KAO( :, 2, 4, 3) = (/&  
556  & 7.7659E06_JPRB,2.7326E05_JPRB,3.6365E05_JPRB,4.5331E05_JPRB,5.4377E05_JPRB,7.0048E05_JPRB,&  
557 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1606E04_JPRB,2.2356E04_JPRB,5.6606E05_JPRB/) 
558  KAO( :, 3, 4, 3) = (/&  
559  & 1.1872E05_JPRB,3.9091E05_JPRB,5.2753E05_JPRB,6.2810E05_JPRB,7.2334E05_JPRB,8.5510E05_JPRB,&  
560 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0655E04_JPRB,2.0132E04_JPRB,6.1013E05_JPRB/) 
561  KAO( :, 4, 4, 3) = (/&  
562  & 1.7537E05_JPRB,5.3794E05_JPRB,7.2225E05_JPRB,8.6566E05_JPRB,1.0009E04_JPRB,1.0905E04_JPRB,&  
563 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2927E04_JPRB,1.7979E04_JPRB,6.7247E05_JPRB/) 
564  KAO( :, 5, 4, 3) = (/&  
565  & 2.5077E05_JPRB,7.1949E05_JPRB,9.5586E05_JPRB,1.1422E04_JPRB,1.3046E04_JPRB,1.4874E04_JPRB,&  
566 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6151E04_JPRB,2.1004E04_JPRB,7.8070E05_JPRB/) 
567  KAO( :, 1, 5, 3) = (/&  
568  & 3.3274E06_JPRB,1.2413E05_JPRB,1.6893E05_JPRB,2.5297E05_JPRB,3.9702E05_JPRB,6.2471E05_JPRB,&  
569 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.4799E05_JPRB,1.7379E04_JPRB,4.3352E05_JPRB/) 
570  KAO( :, 2, 5, 3) = (/&  
571  & 5.3144E06_JPRB,1.8924E05_JPRB,2.4595E05_JPRB,3.1378E05_JPRB,3.9382E05_JPRB,6.2226E05_JPRB,&  
572 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.6051E05_JPRB,1.8141E04_JPRB,4.9071E05_JPRB/) 
573  KAO( :, 3, 5, 3) = (/&  
574  & 8.2729E06_JPRB,2.7735E05_JPRB,3.6853E05_JPRB,4.3473E05_JPRB,5.3077E05_JPRB,6.0111E05_JPRB,&  
575 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.8205E05_JPRB,1.7170E04_JPRB,5.3581E05_JPRB/) 
576  KAO( :, 4, 5, 3) = (/&  
577  & 1.2483E05_JPRB,3.8936E05_JPRB,5.1944E05_JPRB,6.0771E05_JPRB,7.0416E05_JPRB,8.1406E05_JPRB,&  
578 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.7912E05_JPRB,1.4624E04_JPRB,6.0502E05_JPRB/) 
579  KAO( :, 5, 5, 3) = (/&  
580  & 1.8234E05_JPRB,5.2997E05_JPRB,7.0214E05_JPRB,8.3889E05_JPRB,9.4583E05_JPRB,1.0646E04_JPRB,&  
581 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1645E04_JPRB,1.6664E04_JPRB,6.9524E05_JPRB/) 
582  KAO( :, 1, 6, 3) = (/&  
583  & 2.2627E06_JPRB,8.2256E06_JPRB,1.2662E05_JPRB,2.0881E05_JPRB,3.2287E05_JPRB,4.9842E05_JPRB,&  
584 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.8514E05_JPRB,1.5143E04_JPRB,4.2185E05_JPRB/) 
585  KAO( :, 2, 6, 3) = (/&  
586  & 3.5902E06_JPRB,1.2715E05_JPRB,1.6777E05_JPRB,2.2883E05_JPRB,3.3890E05_JPRB,5.0807E05_JPRB,&  
587 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.0753E05_JPRB,1.4463E04_JPRB,4.8590E05_JPRB/) 
588  KAO( :, 3, 6, 3) = (/&  
589  & 5.6436E06_JPRB,1.9109E05_JPRB,2.4998E05_JPRB,3.0305E05_JPRB,3.7831E05_JPRB,4.7255E05_JPRB,&  
590 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.8945E05_JPRB,1.4406E04_JPRB,5.5296E05_JPRB/) 
591  KAO( :, 4, 6, 3) = (/&  
592  & 8.6680E06_JPRB,2.7468E05_JPRB,3.6416E05_JPRB,4.2070E05_JPRB,4.9055E05_JPRB,5.8245E05_JPRB,&  
593 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.2889E05_JPRB,1.3759E04_JPRB,6.2699E05_JPRB/) 
594  KAO( :, 5, 6, 3) = (/&  
595  & 1.2910E05_JPRB,3.8070E05_JPRB,5.0552E05_JPRB,5.9531E05_JPRB,6.5990E05_JPRB,7.5485E05_JPRB,&  
596 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.0151E05_JPRB,1.2519E04_JPRB,7.1158E05_JPRB/) 
597  KAO( :, 1, 7, 3) = (/&  
598  & 1.6260E06_JPRB,5.6512E06_JPRB,1.0534E05_JPRB,1.6548E05_JPRB,2.5722E05_JPRB,3.9212E05_JPRB,&  
599 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.5255E05_JPRB,1.1642E04_JPRB,4.8396E05_JPRB/) 
600  KAO( :, 2, 7, 3) = (/&  
601  & 2.4977E06_JPRB,8.5111E06_JPRB,1.1552E05_JPRB,1.8620E05_JPRB,2.6964E05_JPRB,4.1086E05_JPRB,&  
602 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.5326E05_JPRB,1.2038E04_JPRB,5.6755E05_JPRB/) 
603  KAO( :, 3, 7, 3) = (/&  
604  & 3.8937E06_JPRB,1.3083E05_JPRB,1.6837E05_JPRB,2.1037E05_JPRB,2.8103E05_JPRB,4.1971E05_JPRB,&  
605 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.4916E05_JPRB,1.2035E04_JPRB,6.5643E05_JPRB/) 
606  KAO( :, 4, 7, 3) = (/&  
607  & 6.0131E06_JPRB,1.9182E05_JPRB,2.5262E05_JPRB,2.9578E05_JPRB,3.5380E05_JPRB,4.1824E05_JPRB,&  
608 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.4389E05_JPRB,1.1625E04_JPRB,7.5112E05_JPRB/) 
609  KAO( :, 5, 7, 3) = (/&  
610  & 9.0775E06_JPRB,2.7049E05_JPRB,3.5910E05_JPRB,4.1673E05_JPRB,4.7430E05_JPRB,5.6675E05_JPRB,&  
611 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.4662E05_JPRB,1.0376E04_JPRB,8.5479E05_JPRB/) 
612  KAO( :, 1, 8, 3) = (/&  
613  & 1.2762E06_JPRB,4.2855E06_JPRB,8.2820E06_JPRB,1.3051E05_JPRB,1.9907E05_JPRB,3.3971E05_JPRB,&  
614 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.0446E05_JPRB,8.6971E05_JPRB,7.7745E05_JPRB/) 
615  KAO( :, 2, 8, 3) = (/&  
616  & 1.8844E06_JPRB,5.9050E06_JPRB,8.9489E06_JPRB,1.4806E05_JPRB,2.1839E05_JPRB,3.2608E05_JPRB,&  
617 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.2540E05_JPRB,9.7610E05_JPRB,8.9498E05_JPRB/) 
618  KAO( :, 3, 8, 3) = (/&  
619  & 2.8385E06_JPRB,8.9737E06_JPRB,1.1895E05_JPRB,1.5870E05_JPRB,2.4156E05_JPRB,3.3906E05_JPRB,&  
620 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.3605E05_JPRB,9.6849E05_JPRB,1.0287E04_JPRB/) 
621  KAO( :, 4, 8, 3) = (/&  
622  & 4.3106E06_JPRB,1.3404E05_JPRB,1.7498E05_JPRB,2.1009E05_JPRB,2.6036E05_JPRB,3.4758E05_JPRB,&  
623 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4115E05_JPRB,9.7671E05_JPRB,1.1774E04_JPRB/) 
624  KAO( :, 5, 8, 3) = (/&  
625  & 6.4933E06_JPRB,1.9198E05_JPRB,2.5108E05_JPRB,2.9532E05_JPRB,3.3547E05_JPRB,4.0870E05_JPRB,&  
626 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.0672E05_JPRB,9.4048E05_JPRB,1.3326E04_JPRB/) 
627  KAO( :, 1, 9, 3) = (/&  
628  & 1.0706E06_JPRB,3.3489E06_JPRB,6.5283E06_JPRB,1.0192E05_JPRB,1.7278E05_JPRB,2.6238E05_JPRB,&  
629 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.9041E05_JPRB,7.0346E05_JPRB,2.7103E04_JPRB/) 
630  KAO( :, 2, 9, 3) = (/&  
631  & 1.5238E06_JPRB,4.4647E06_JPRB,7.4896E06_JPRB,1.1805E05_JPRB,1.7404E05_JPRB,2.6241E05_JPRB,&  
632 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.5076E05_JPRB,7.3357E05_JPRB,3.0478E04_JPRB/) 
633  KAO( :, 3, 9, 3) = (/&  
634  & 2.2245E06_JPRB,6.3482E06_JPRB,8.7814E06_JPRB,1.3182E05_JPRB,1.8649E05_JPRB,2.8139E05_JPRB,&  
635 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2432E05_JPRB,8.1918E05_JPRB,3.3943E04_JPRB/) 
636  KAO( :, 4, 9, 3) = (/&  
637  & 3.2853E06_JPRB,9.5377E06_JPRB,1.2081E05_JPRB,1.5048E05_JPRB,2.0438E05_JPRB,2.9250E05_JPRB,&  
638 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.4492E05_JPRB,8.0054E05_JPRB,3.7569E04_JPRB/) 
639  KAO( :, 5, 9, 3) = (/&  
640  & 4.8340E06_JPRB,1.3704E05_JPRB,1.7727E05_JPRB,2.0846E05_JPRB,2.4389E05_JPRB,3.0169E05_JPRB,&  
641 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.5558E05_JPRB,7.6780E05_JPRB,4.1363E04_JPRB/) 
642  KAO( :, 1,10, 3) = (/&  
643  & 1.0087E06_JPRB,2.8522E06_JPRB,5.3847E06_JPRB,8.7589E06_JPRB,1.3656E05_JPRB,2.0793E05_JPRB,&  
644 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0265E05_JPRB,5.6466E05_JPRB,1.4467E03_JPRB/) 
645  KAO( :, 2,10, 3) = (/&  
646  & 1.3893E06_JPRB,3.6572E06_JPRB,6.0381E06_JPRB,9.5656E06_JPRB,1.3744E05_JPRB,2.2378E05_JPRB,&  
647 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6073E05_JPRB,5.8999E05_JPRB,1.6134E03_JPRB/) 
648  KAO( :, 3,10, 3) = (/&  
649  & 1.9601E06_JPRB,4.9746E06_JPRB,7.1675E06_JPRB,1.0782E05_JPRB,1.5548E05_JPRB,2.2425E05_JPRB,&  
650 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.4813E05_JPRB,6.8188E05_JPRB,1.7742E03_JPRB/) 
651  KAO( :, 4,10, 3) = (/&  
652  & 2.8046E06_JPRB,7.3061E06_JPRB,9.2760E06_JPRB,1.2016E05_JPRB,1.7674E05_JPRB,2.3526E05_JPRB,&  
653 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6626E05_JPRB,6.3451E05_JPRB,1.9257E03_JPRB/) 
654  KAO( :, 5,10, 3) = (/&  
655  & 4.0204E06_JPRB,1.0448E05_JPRB,1.3168E05_JPRB,1.5711E05_JPRB,1.8780E05_JPRB,2.5290E05_JPRB,&  
656 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7179E05_JPRB,6.5468E05_JPRB,2.0654E03_JPRB/) 
657  KAO( :, 1,11, 3) = (/&  
658  & 1.1167E06_JPRB,2.7196E06_JPRB,4.8414E06_JPRB,7.5750E06_JPRB,1.1619E05_JPRB,1.6844E05_JPRB,&  
659 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.5920E05_JPRB,4.2497E05_JPRB,3.0648E03_JPRB/) 
660  KAO( :, 2,11, 3) = (/&  
661  & 1.5177E06_JPRB,3.5342E06_JPRB,5.4336E06_JPRB,8.4346E06_JPRB,1.1729E05_JPRB,1.8362E05_JPRB,&  
662 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.9194E05_JPRB,5.0129E05_JPRB,3.3976E03_JPRB/) 
663  KAO( :, 3,11, 3) = (/&  
664  & 2.0984E06_JPRB,4.8006E06_JPRB,6.5451E06_JPRB,9.5029E06_JPRB,1.3465E05_JPRB,1.9020E05_JPRB,&  
665 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.8692E05_JPRB,5.7928E05_JPRB,3.7050E03_JPRB/) 
666  KAO( :, 4,11, 3) = (/&  
667  & 2.9335E06_JPRB,6.8708E06_JPRB,8.4101E06_JPRB,1.0863E05_JPRB,1.4762E05_JPRB,2.0091E05_JPRB,&  
668 
2/2✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.

10  & 3.0371E05_JPRB,5.2028E05_JPRB,3.9809E03_JPRB/) 
669  
670 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

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

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART3',0,ZHOOK_HANDLE) 
678  
679  
680  KAO( :, 5,11, 3) = (/&  
681  & 4.1000E06_JPRB,9.6543E06_JPRB,1.1857E05_JPRB,1.3714E05_JPRB,1.6526E05_JPRB,2.1427E05_JPRB,&  
682 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.1464E05_JPRB,5.4245E05_JPRB,4.2143E03_JPRB/) 
683  KAO( :, 1,12, 3) = (/&  
684  & 1.1265E06_JPRB,2.5186E06_JPRB,4.3674E06_JPRB,6.5192E06_JPRB,9.8193E06_JPRB,1.4195E05_JPRB,&  
685 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.1669E05_JPRB,3.5591E05_JPRB,4.1354E03_JPRB/) 
686  KAO( :, 2,12, 3) = (/&  
687  & 1.5273E06_JPRB,3.2471E06_JPRB,4.8453E06_JPRB,7.4929E06_JPRB,9.9333E06_JPRB,1.5224E05_JPRB,&  
688 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4490E05_JPRB,4.2520E05_JPRB,4.5631E03_JPRB/) 
689  KAO( :, 3,12, 3) = (/&  
690  & 2.0931E06_JPRB,4.4632E06_JPRB,5.8990E06_JPRB,8.1723E06_JPRB,1.1637E05_JPRB,1.5989E05_JPRB,&  
691 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3803E05_JPRB,4.4958E05_JPRB,4.9406E03_JPRB/) 
692  KAO( :, 4,12, 3) = (/&  
693  & 2.8927E06_JPRB,6.3250E06_JPRB,7.6186E06_JPRB,9.4669E06_JPRB,1.2563E05_JPRB,1.7445E05_JPRB,&  
694 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.5222E05_JPRB,4.2668E05_JPRB,5.2603E03_JPRB/) 
695  KAO( :, 5,12, 3) = (/&  
696  & 3.9848E06_JPRB,8.7921E06_JPRB,1.0605E05_JPRB,1.2004E05_JPRB,1.4341E05_JPRB,1.8049E05_JPRB,&  
697 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6521E05_JPRB,4.4754E05_JPRB,5.5165E03_JPRB/) 
698  KAO( :, 1,13, 3) = (/&  
699  & 1.1328E06_JPRB,2.3238E06_JPRB,3.9430E06_JPRB,5.6932E06_JPRB,8.4038E06_JPRB,1.1800E05_JPRB,&  
700 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7829E05_JPRB,3.0820E05_JPRB,4.4819E03_JPRB/) 
701  KAO( :, 2,13, 3) = (/&  
702  & 1.5311E06_JPRB,3.0098E06_JPRB,4.3521E06_JPRB,6.6679E06_JPRB,8.7081E06_JPRB,1.2897E05_JPRB,&  
703 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9883E05_JPRB,3.4493E05_JPRB,4.9164E03_JPRB/) 
704  KAO( :, 3,13, 3) = (/&  
705  & 2.0853E06_JPRB,4.1223E06_JPRB,5.4114E06_JPRB,7.2554E06_JPRB,1.0229E05_JPRB,1.3641E05_JPRB,&  
706 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9729E05_JPRB,3.6438E05_JPRB,5.2852E03_JPRB/) 
707  KAO( :, 4,13, 3) = (/&  
708  & 2.8506E06_JPRB,5.8568E06_JPRB,6.9938E06_JPRB,8.4840E06_JPRB,1.0942E05_JPRB,1.5066E05_JPRB,&  
709 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.1270E05_JPRB,3.5313E05_JPRB,5.5871E03_JPRB/) 
710  KAO( :, 5,13, 3) = (/&  
711  & 3.8711E06_JPRB,8.0712E06_JPRB,9.6159E06_JPRB,1.0719E05_JPRB,1.2561E05_JPRB,1.5293E05_JPRB,&  
712 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2681E05_JPRB,3.7058E05_JPRB,5.8266E03_JPRB/) 
713  KAO( :, 1, 1, 4) = (/&  
714  & 7.4893E05_JPRB,1.7660E04_JPRB,2.0743E04_JPRB,2.2345E04_JPRB,2.5541E04_JPRB,3.0113E04_JPRB,&  
715 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.0065E04_JPRB,5.1140E04_JPRB,1.9420E04_JPRB/) 
716  KAO( :, 2, 1, 4) = (/&  
717  & 1.0396E04_JPRB,2.3012E04_JPRB,2.6622E04_JPRB,2.8243E04_JPRB,2.9424E04_JPRB,3.3000E04_JPRB,&  
718 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.1387E04_JPRB,6.5618E04_JPRB,1.7248E04_JPRB/) 
719  KAO( :, 3, 1, 4) = (/&  
720  & 1.3874E04_JPRB,2.9171E04_JPRB,3.3413E04_JPRB,3.5198E04_JPRB,3.5734E04_JPRB,3.6401E04_JPRB,&  
721 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2489E04_JPRB,6.4403E04_JPRB,1.9641E04_JPRB/) 
722  KAO( :, 4, 1, 4) = (/&  
723  & 1.7941E04_JPRB,3.6434E04_JPRB,4.1317E04_JPRB,4.3271E04_JPRB,4.3728E04_JPRB,4.3279E04_JPRB,&  
724 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.4184E04_JPRB,6.1293E04_JPRB,2.4660E04_JPRB/) 
725  KAO( :, 5, 1, 4) = (/&  
726  & 2.2524E04_JPRB,4.4700E04_JPRB,5.0389E04_JPRB,5.2899E04_JPRB,5.4228E04_JPRB,5.4473E04_JPRB,&  
727 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.3368E04_JPRB,5.6423E04_JPRB,3.1492E04_JPRB/) 
728  KAO( :, 1, 2, 4) = (/&  
729  & 5.8910E05_JPRB,1.3730E04_JPRB,1.6111E04_JPRB,1.7338E04_JPRB,1.9974E04_JPRB,2.3614E04_JPRB,&  
730 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.1448E04_JPRB,3.8866E04_JPRB,1.4405E04_JPRB/) 
731  KAO( :, 2, 2, 4) = (/&  
732  & 8.3036E05_JPRB,1.8135E04_JPRB,2.0964E04_JPRB,2.2070E04_JPRB,2.3158E04_JPRB,2.7057E04_JPRB,&  
733 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.3372E04_JPRB,5.4726E04_JPRB,1.2817E04_JPRB/) 
734  KAO( :, 3, 2, 4) = (/&  
735  & 1.1213E04_JPRB,2.3284E04_JPRB,2.6662E04_JPRB,2.8050E04_JPRB,2.8374E04_JPRB,2.9072E04_JPRB,&  
736 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5956E04_JPRB,5.3062E04_JPRB,1.4567E04_JPRB/) 
737  KAO( :, 4, 2, 4) = (/&  
738  & 1.4639E04_JPRB,2.9331E04_JPRB,3.3229E04_JPRB,3.4773E04_JPRB,3.4771E04_JPRB,3.4598E04_JPRB,&  
739 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5609E04_JPRB,5.3796E04_JPRB,1.8917E04_JPRB/) 
740  KAO( :, 5, 2, 4) = (/&  
741  & 1.8573E04_JPRB,3.6333E04_JPRB,4.0899E04_JPRB,4.2805E04_JPRB,4.3596E04_JPRB,4.3023E04_JPRB,&  
742 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2036E04_JPRB,4.7310E04_JPRB,2.4106E04_JPRB/) 
743  KAO( :, 1, 3, 4) = (/&  
744  & 4.2697E05_JPRB,9.9737E05_JPRB,1.1762E04_JPRB,1.3175E04_JPRB,1.5206E04_JPRB,1.7738E04_JPRB,&  
745 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2461E04_JPRB,3.0012E04_JPRB,9.0760E05_JPRB/) 
746  KAO( :, 2, 3, 4) = (/&  
747  & 6.1628E05_JPRB,1.3453E04_JPRB,1.5553E04_JPRB,1.6395E04_JPRB,1.7863E04_JPRB,2.1026E04_JPRB,&  
748 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6559E04_JPRB,4.0665E04_JPRB,9.5213E05_JPRB/) 
749  KAO( :, 3, 3, 4) = (/&  
750  & 8.5155E05_JPRB,1.7580E04_JPRB,2.0156E04_JPRB,2.1203E04_JPRB,2.1267E04_JPRB,2.2935E04_JPRB,&  
751 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.8279E04_JPRB,4.3028E04_JPRB,1.1265E04_JPRB/) 
752  KAO( :, 4, 3, 4) = (/&  
753  & 1.1317E04_JPRB,2.2386E04_JPRB,2.5438E04_JPRB,2.6544E04_JPRB,2.6602E04_JPRB,2.6653E04_JPRB,&  
754 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.9745E04_JPRB,4.2745E04_JPRB,1.4173E04_JPRB/) 
755  KAO( :, 5, 3, 4) = (/&  
756  & 1.4597E04_JPRB,2.8045E04_JPRB,3.1649E04_JPRB,3.3077E04_JPRB,3.3240E04_JPRB,3.2175E04_JPRB,&  
757 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2192E04_JPRB,4.1153E04_JPRB,1.7765E04_JPRB/) 
758  KAO( :, 1, 4, 4) = (/&  
759  & 2.9896E05_JPRB,7.0709E05_JPRB,8.4360E05_JPRB,9.7466E05_JPRB,1.0874E04_JPRB,1.3074E04_JPRB,&  
760 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6227E04_JPRB,2.5464E04_JPRB,6.8134E05_JPRB/) 
761  KAO( :, 2, 4, 4) = (/&  
762  & 4.4341E05_JPRB,9.6962E05_JPRB,1.1247E04_JPRB,1.1929E04_JPRB,1.3785E04_JPRB,1.5834E04_JPRB,&  
763 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0071E04_JPRB,2.9189E04_JPRB,7.8206E05_JPRB/) 
764  KAO( :, 3, 4, 4) = (/&  
765  & 6.2914E05_JPRB,1.2902E04_JPRB,1.4817E04_JPRB,1.5527E04_JPRB,1.5849E04_JPRB,1.8569E04_JPRB,&  
766 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2497E04_JPRB,3.4124E04_JPRB,9.0845E05_JPRB/) 
767  KAO( :, 4, 4, 4) = (/&  
768  & 8.5677E05_JPRB,1.6689E04_JPRB,1.9068E04_JPRB,1.9916E04_JPRB,1.9978E04_JPRB,2.0155E04_JPRB,&  
769 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4936E04_JPRB,3.5340E04_JPRB,1.0988E04_JPRB/) 
770  KAO( :, 5, 4, 4) = (/&  
771  & 1.1242E04_JPRB,2.1149E04_JPRB,2.3915E04_JPRB,2.5028E04_JPRB,2.4989E04_JPRB,2.4272E04_JPRB,&  
772 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4831E04_JPRB,3.6709E04_JPRB,1.3381E04_JPRB/) 
773  KAO( :, 1, 5, 4) = (/&  
774  & 2.0688E05_JPRB,4.9203E05_JPRB,5.9785E05_JPRB,6.6990E05_JPRB,7.8124E05_JPRB,9.2624E05_JPRB,&  
775 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2472E04_JPRB,2.0745E04_JPRB,6.1812E05_JPRB/) 
776  KAO( :, 2, 5, 4) = (/&  
777  & 3.1637E05_JPRB,6.9271E05_JPRB,8.0604E05_JPRB,9.0077E05_JPRB,1.0181E04_JPRB,1.1707E04_JPRB,&  
778 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4853E04_JPRB,2.1722E04_JPRB,7.1005E05_JPRB/) 
779  KAO( :, 3, 5, 4) = (/&  
780  & 4.6076E05_JPRB,9.3625E05_JPRB,1.0769E04_JPRB,1.1334E04_JPRB,1.2174E04_JPRB,1.4414E04_JPRB,&  
781 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7668E04_JPRB,2.5800E04_JPRB,8.3094E05_JPRB/) 
782  KAO( :, 4, 5, 4) = (/&  
783  & 6.4341E05_JPRB,1.2346E04_JPRB,1.4103E04_JPRB,1.4850E04_JPRB,1.4693E04_JPRB,1.5815E04_JPRB,&  
784 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9286E04_JPRB,2.8817E04_JPRB,9.6701E05_JPRB/) 
785  KAO( :, 5, 5, 4) = (/&  
786  & 8.6238E05_JPRB,1.5868E04_JPRB,1.7942E04_JPRB,1.8707E04_JPRB,1.8806E04_JPRB,1.8319E04_JPRB,&  
787 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0554E04_JPRB,2.8611E04_JPRB,1.1287E04_JPRB/) 
788  KAO( :, 1, 6, 4) = (/&  
789  & 1.4006E05_JPRB,3.3343E05_JPRB,4.0079E05_JPRB,4.5588E05_JPRB,5.4107E05_JPRB,6.6418E05_JPRB,&  
790 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0066E04_JPRB,1.4196E04_JPRB,6.6243E05_JPRB/) 
791  KAO( :, 2, 6, 4) = (/&  
792  & 2.2071E05_JPRB,4.8614E05_JPRB,5.7228E05_JPRB,6.5093E05_JPRB,7.1721E05_JPRB,8.5635E05_JPRB,&  
793 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0856E04_JPRB,1.8021E04_JPRB,7.5554E05_JPRB/) 
794  KAO( :, 3, 6, 4) = (/&  
795  & 3.3040E05_JPRB,6.6682E05_JPRB,7.6698E05_JPRB,8.2380E05_JPRB,9.3552E05_JPRB,1.0700E04_JPRB,&  
796 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3596E04_JPRB,1.9405E04_JPRB,8.6063E05_JPRB/) 
797  KAO( :, 4, 6, 4) = (/&  
798  & 4.7386E05_JPRB,8.9793E05_JPRB,1.0237E04_JPRB,1.0759E04_JPRB,1.0965E04_JPRB,1.2726E04_JPRB,&  
799 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5398E04_JPRB,2.2704E04_JPRB,9.8696E05_JPRB/) 
800  KAO( :, 5, 6, 4) = (/&  
801  & 6.5121E05_JPRB,1.1757E04_JPRB,1.3268E04_JPRB,1.3869E04_JPRB,1.4006E04_JPRB,1.3836E04_JPRB,&  
802 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7051E04_JPRB,2.3669E04_JPRB,1.1305E04_JPRB/) 
803  KAO( :, 1, 7, 4) = (/&  
804  & 9.5061E06_JPRB,2.2311E05_JPRB,2.6088E05_JPRB,3.0162E05_JPRB,3.7877E05_JPRB,5.4505E05_JPRB,&  
805 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.5227E05_JPRB,1.1255E04_JPRB,8.3483E05_JPRB/) 
806  KAO( :, 2, 7, 4) = (/&  
807  & 1.5323E05_JPRB,3.3598E05_JPRB,4.0386E05_JPRB,4.3881E05_JPRB,5.0583E05_JPRB,6.2493E05_JPRB,&  
808 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.2842E05_JPRB,1.4322E04_JPRB,9.4311E05_JPRB/) 
809  KAO( :, 3, 7, 4) = (/&  
810  & 2.3596E05_JPRB,4.7494E05_JPRB,5.4556E05_JPRB,6.1372E05_JPRB,6.7015E05_JPRB,7.9350E05_JPRB,&  
811 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.7496E05_JPRB,1.4436E04_JPRB,1.0703E04_JPRB/) 
812  KAO( :, 4, 7, 4) = (/&  
813  & 3.4570E05_JPRB,6.4860E05_JPRB,7.3694E05_JPRB,7.7754E05_JPRB,8.4695E05_JPRB,9.7029E05_JPRB,&  
814 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1678E04_JPRB,1.6858E04_JPRB,1.2127E04_JPRB/) 
815  KAO( :, 5, 7, 4) = (/&  
816  & 4.8551E05_JPRB,8.6609E05_JPRB,9.7619E05_JPRB,1.0164E04_JPRB,1.0226E04_JPRB,1.0885E04_JPRB,&  
817 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3405E04_JPRB,1.9133E04_JPRB,1.3656E04_JPRB/) 
818  KAO( :, 1, 8, 4) = (/&  
819  & 6.7311E06_JPRB,1.4755E05_JPRB,1.6935E05_JPRB,2.1463E05_JPRB,3.1231E05_JPRB,4.0742E05_JPRB,&  
820 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.6656E05_JPRB,8.5927E05_JPRB,1.5049E04_JPRB/) 
821  KAO( :, 2, 8, 4) = (/&  
822  & 1.0838E05_JPRB,2.3183E05_JPRB,2.7453E05_JPRB,3.0553E05_JPRB,3.5694E05_JPRB,4.6374E05_JPRB,&  
823 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.9419E05_JPRB,1.0643E04_JPRB,1.6866E04_JPRB/) 
824  KAO( :, 3, 8, 4) = (/&  
825  & 1.6914E05_JPRB,3.3766E05_JPRB,3.8989E05_JPRB,4.4447E05_JPRB,4.8070E05_JPRB,5.7198E05_JPRB,&  
826 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.1116E05_JPRB,1.2478E04_JPRB,1.8779E04_JPRB/) 
827  KAO( :, 4, 8, 4) = (/&  
828  & 2.5195E05_JPRB,4.6972E05_JPRB,5.3026E05_JPRB,5.6927E05_JPRB,6.4565E05_JPRB,7.1923E05_JPRB,&  
829 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.0751E05_JPRB,1.2249E04_JPRB,2.0805E04_JPRB/) 
830  KAO( :, 5, 8, 4) = (/&  
831  & 3.5942E05_JPRB,6.3786E05_JPRB,7.1729E05_JPRB,7.3949E05_JPRB,7.6446E05_JPRB,8.8163E05_JPRB,&  
832 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0367E04_JPRB,1.5461E04_JPRB,2.3067E04_JPRB/) 
833  KAO( :, 1, 9, 4) = (/&  
834  & 5.1599E06_JPRB,1.0081E05_JPRB,1.1772E05_JPRB,1.6698E05_JPRB,2.2821E05_JPRB,2.9936E05_JPRB,&  
835 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2105E05_JPRB,6.2990E05_JPRB,5.8733E04_JPRB/) 
836  KAO( :, 2, 9, 4) = (/&  
837  & 8.0231E06_JPRB,1.6031E05_JPRB,1.8581E05_JPRB,2.0889E05_JPRB,2.6202E05_JPRB,3.8502E05_JPRB,&  
838 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1188E05_JPRB,8.2231E05_JPRB,6.4455E04_JPRB/) 
839  KAO( :, 3, 9, 4) = (/&  
840  & 1.2365E05_JPRB,2.3962E05_JPRB,2.7785E05_JPRB,3.0574E05_JPRB,3.4959E05_JPRB,4.1433E05_JPRB,&  
841 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.7939E05_JPRB,9.7311E05_JPRB,7.0196E04_JPRB/) 
842  KAO( :, 4, 9, 4) = (/&  
843  & 1.8494E05_JPRB,3.4148E05_JPRB,3.8522E05_JPRB,4.2610E05_JPRB,4.6125E05_JPRB,5.4566E05_JPRB,&  
844 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.5066E05_JPRB,9.3543E05_JPRB,7.5838E04_JPRB/) 
845  KAO( :, 5, 9, 4) = (/&  
846  & 2.6560E05_JPRB,4.6839E05_JPRB,5.2429E05_JPRB,5.4183E05_JPRB,5.9609E05_JPRB,6.7149E05_JPRB,&  
847 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.9436E05_JPRB,1.1417E04_JPRB,8.1247E04_JPRB/) 
848  KAO( :, 1,10, 4) = (/&  
849  & 4.5845E06_JPRB,7.8051E06_JPRB,9.3693E06_JPRB,1.2991E05_JPRB,1.7572E05_JPRB,2.3437E05_JPRB,&  
850 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.3813E05_JPRB,4.9188E05_JPRB,3.3674E03_JPRB/) 
851  KAO( :, 2,10, 4) = (/&  
852  & 6.8084E06_JPRB,1.2034E05_JPRB,1.3688E05_JPRB,1.5733E05_JPRB,2.1211E05_JPRB,2.9098E05_JPRB,&  
853 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8545E05_JPRB,6.3500E05_JPRB,3.6391E03_JPRB/) 
854  KAO( :, 3,10, 4) = (/&  
855  & 1.0062E05_JPRB,1.7982E05_JPRB,2.0409E05_JPRB,2.2663E05_JPRB,2.5613E05_JPRB,3.1784E05_JPRB,&  
856 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.7385E05_JPRB,7.3006E05_JPRB,3.8993E03_JPRB/) 
857  KAO( :, 4,10, 4) = (/&  
858  & 1.4658E05_JPRB,2.5727E05_JPRB,2.8782E05_JPRB,3.2310E05_JPRB,3.4485E05_JPRB,4.0752E05_JPRB,&  
859 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.8720E05_JPRB,8.2499E05_JPRB,4.1490E03_JPRB/) 
860  KAO( :, 5,10, 4) = (/&  
861  & 2.0786E05_JPRB,3.5657E05_JPRB,3.9659E05_JPRB,4.1123E05_JPRB,4.6983E05_JPRB,5.0556E05_JPRB,&  
862 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.3521E05_JPRB,8.4499E05_JPRB,4.3775E03_JPRB/) 
863  KAO( :, 1,11, 4) = (/&  
864  & 5.0356E06_JPRB,7.7353E06_JPRB,8.8833E06_JPRB,1.1452E05_JPRB,1.5243E05_JPRB,2.1044E05_JPRB,&  
865 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.8338E05_JPRB,4.9949E05_JPRB,7.2577E03_JPRB/) 
866  KAO( :, 2,11, 4) = (/&  
867  & 7.2423E06_JPRB,1.1514E05_JPRB,1.2798E05_JPRB,1.4086E05_JPRB,1.8007E05_JPRB,2.4558E05_JPRB,&  
868 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.3851E05_JPRB,5.2802E05_JPRB,7.8158E03_JPRB/) 
869  KAO( :, 3,11, 4) = (/&  
870  & 1.0309E05_JPRB,1.6653E05_JPRB,1.8407E05_JPRB,2.0089E05_JPRB,2.2296E05_JPRB,2.7018E05_JPRB,&  
871 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8586E05_JPRB,6.0068E05_JPRB,8.3354E03_JPRB/) 
872  KAO( :, 4,11, 4) = (/&  
873  & 1.4421E05_JPRB,2.3379E05_JPRB,2.5740E05_JPRB,2.7750E05_JPRB,3.0309E05_JPRB,3.4851E05_JPRB,&  
874 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.1245E05_JPRB,6.8211E05_JPRB,8.8296E03_JPRB/) 
875  KAO( :, 5,11, 4) = (/&  
876  & 1.9663E05_JPRB,3.1842E05_JPRB,3.4991E05_JPRB,3.6140E05_JPRB,3.9688E05_JPRB,4.2983E05_JPRB,&  
877 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.3776E05_JPRB,6.9907E05_JPRB,9.2688E03_JPRB/) 
878  KAO( :, 1,12, 4) = (/&  
879  & 5.1165E06_JPRB,7.4029E06_JPRB,8.1941E06_JPRB,1.0138E05_JPRB,1.3490E05_JPRB,1.7256E05_JPRB,&  
880 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4419E05_JPRB,4.0146E05_JPRB,9.9448E03_JPRB/) 
881  KAO( :, 2,12, 4) = (/&  
882  & 7.2283E06_JPRB,1.0802E05_JPRB,1.1887E05_JPRB,1.2642E05_JPRB,1.5734E05_JPRB,2.0542E05_JPRB,&  
883 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.7886E05_JPRB,4.3910E05_JPRB,1.0705E02_JPRB/) 
884  KAO( :, 3,12, 4) = (/&  
885  & 1.0065E05_JPRB,1.5284E05_JPRB,1.6642E05_JPRB,1.8157E05_JPRB,1.9448E05_JPRB,2.3207E05_JPRB,&  
886 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2168E05_JPRB,5.3905E05_JPRB,1.1409E02_JPRB/) 
887  KAO( :, 4,12, 4) = (/&  
888  & 1.3731E05_JPRB,2.1142E05_JPRB,2.2780E05_JPRB,2.4378E05_JPRB,2.6665E05_JPRB,2.9738E05_JPRB,&  
889 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5163E05_JPRB,5.5828E05_JPRB,1.2051E02_JPRB/) 
890  KAO( :, 5,12, 4) = (/&  
891  & 1.8328E05_JPRB,2.8382E05_JPRB,3.0850E05_JPRB,3.1430E05_JPRB,3.3929E05_JPRB,3.7016E05_JPRB,&  
892 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.5266E05_JPRB,5.8847E05_JPRB,1.2603E02_JPRB/) 
893  KAO( :, 1,13, 4) = (/&  
894  & 5.1628E06_JPRB,7.0476E06_JPRB,7.6783E06_JPRB,9.1901E06_JPRB,1.1659E05_JPRB,1.4990E05_JPRB,&  
895 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0746E05_JPRB,3.1591E05_JPRB,1.0979E02_JPRB/) 
896  KAO( :, 2,13, 4) = (/&  
897  & 7.1656E06_JPRB,1.0090E05_JPRB,1.0951E05_JPRB,1.1562E05_JPRB,1.3750E05_JPRB,1.7398E05_JPRB,&  
898 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3701E05_JPRB,3.7488E05_JPRB,1.1813E02_JPRB/) 
899  KAO( :, 3,13, 4) = (/&  
900  & 9.7810E06_JPRB,1.4159E05_JPRB,1.5003E05_JPRB,1.6207E05_JPRB,1.7175E05_JPRB,1.9965E05_JPRB,&  
901 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.7079E05_JPRB,4.3382E05_JPRB,1.2578E02_JPRB/) 
902  KAO( :, 4,13, 4) = (/&  
903  & 1.3104E05_JPRB,1.9253E05_JPRB,2.0395E05_JPRB,2.1436E05_JPRB,2.3261E05_JPRB,2.5640E05_JPRB,&  
904 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.9895E05_JPRB,4.6045E05_JPRB,1.3231E02_JPRB/) 
905  KAO( :, 5,13, 4) = (/&  
906  & 1.7208E05_JPRB,2.5546E05_JPRB,2.7424E05_JPRB,2.7535E05_JPRB,2.9380E05_JPRB,3.2546E05_JPRB,&  
907 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8040E05_JPRB,4.9840E05_JPRB,1.3742E02_JPRB/) 
908  KAO( :, 1, 1, 5) = (/&  
909  & 3.1090E04_JPRB,4.1312E04_JPRB,4.5176E04_JPRB,4.6856E04_JPRB,4.5586E04_JPRB,4.3213E04_JPRB,&  
910 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.5397E04_JPRB,7.8015E04_JPRB,2.0103E04_JPRB/) 
911  KAO( :, 2, 1, 5) = (/&  
912  & 3.8398E04_JPRB,5.2122E04_JPRB,5.7336E04_JPRB,6.0217E04_JPRB,6.0591E04_JPRB,5.7511E04_JPRB,&  
913 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.3422E04_JPRB,6.1896E04_JPRB,2.8351E04_JPRB/) 
914  KAO( :, 3, 1, 5) = (/&  
915  & 4.6534E04_JPRB,6.4382E04_JPRB,7.1301E04_JPRB,7.5438E04_JPRB,7.7134E04_JPRB,7.6006E04_JPRB,&  
916 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.0811E04_JPRB,7.4234E04_JPRB,3.7763E04_JPRB/) 
917  KAO( :, 4, 1, 5) = (/&  
918  & 5.5987E04_JPRB,7.8442E04_JPRB,8.7478E04_JPRB,9.3078E04_JPRB,9.6145E04_JPRB,9.6632E04_JPRB,&  
919 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.4057E04_JPRB,8.7094E04_JPRB,4.7321E04_JPRB/) 
920  KAO( :, 5, 1, 5) = (/&  
921  & 6.6579E04_JPRB,9.4348E04_JPRB,1.0594E03_JPRB,1.1323E03_JPRB,1.1769E03_JPRB,1.1973E03_JPRB,&  
922 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1941E03_JPRB,1.1720E03_JPRB,5.8670E04_JPRB/) 
923  KAO( :, 1, 2, 5) = (/&  
924  & 2.4736E04_JPRB,3.2724E04_JPRB,3.5306E04_JPRB,3.6178E04_JPRB,3.4912E04_JPRB,3.3979E04_JPRB,&  
925 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6882E04_JPRB,6.4661E04_JPRB,1.4637E04_JPRB/) 
926  KAO( :, 2, 2, 5) = (/&  
927  & 3.1002E04_JPRB,4.1717E04_JPRB,4.5359E04_JPRB,4.7283E04_JPRB,4.7168E04_JPRB,4.4103E04_JPRB,&  
928 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.4124E04_JPRB,5.1519E04_JPRB,2.1389E04_JPRB/) 
929  KAO( :, 3, 2, 5) = (/&  
930  & 3.8079E04_JPRB,5.2107E04_JPRB,5.7062E04_JPRB,5.9973E04_JPRB,6.0662E04_JPRB,5.9325E04_JPRB,&  
931 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.3745E04_JPRB,5.8652E04_JPRB,2.8633E04_JPRB/) 
932  KAO( :, 4, 2, 5) = (/&  
933  & 4.6210E04_JPRB,6.4094E04_JPRB,7.0763E04_JPRB,7.4776E04_JPRB,7.6652E04_JPRB,7.5984E04_JPRB,&  
934 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.3202E04_JPRB,6.4140E04_JPRB,3.5290E04_JPRB/) 
935  KAO( :, 5, 2, 5) = (/&  
936  & 5.5546E04_JPRB,7.7925E04_JPRB,8.6616E04_JPRB,9.1863E04_JPRB,9.4674E04_JPRB,9.5490E04_JPRB,&  
937 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.4094E04_JPRB,9.1867E04_JPRB,4.4201E04_JPRB/) 
938  KAO( :, 1, 3, 5) = (/&  
939  & 1.8639E04_JPRB,2.4387E04_JPRB,2.5915E04_JPRB,2.5906E04_JPRB,2.4918E04_JPRB,2.5967E04_JPRB,&  
940 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.1653E04_JPRB,4.7580E04_JPRB,1.1679E04_JPRB/) 
941  KAO( :, 2, 3, 5) = (/&  
942  & 2.3798E04_JPRB,3.1564E04_JPRB,3.3906E04_JPRB,3.5000E04_JPRB,3.4157E04_JPRB,3.1943E04_JPRB,&  
943 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2743E04_JPRB,4.5496E04_JPRB,1.5856E04_JPRB/) 
944  KAO( :, 3, 3, 5) = (/&  
945  & 2.9733E04_JPRB,4.0070E04_JPRB,4.3349E04_JPRB,4.5188E04_JPRB,4.5270E04_JPRB,4.3123E04_JPRB,&  
946 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.9880E04_JPRB,4.4081E04_JPRB,2.0446E04_JPRB/) 
947  KAO( :, 4, 3, 5) = (/&  
948  & 3.6501E04_JPRB,4.9946E04_JPRB,5.4499E04_JPRB,5.7170E04_JPRB,5.7932E04_JPRB,5.6633E04_JPRB,&  
949 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.2704E04_JPRB,5.1414E04_JPRB,2.5539E04_JPRB/) 
950  KAO( :, 5, 3, 5) = (/&  
951  & 4.4410E04_JPRB,6.1578E04_JPRB,6.7619E04_JPRB,7.1133E04_JPRB,7.2738E04_JPRB,7.2351E04_JPRB,&  
952 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.0138E04_JPRB,6.6673E04_JPRB,3.2169E04_JPRB/) 
953  KAO( :, 1, 4, 5) = (/&  
954  & 1.3808E04_JPRB,1.7775E04_JPRB,1.8565E04_JPRB,1.8174E04_JPRB,1.8202E04_JPRB,1.9738E04_JPRB,&  
955 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6854E04_JPRB,3.3980E04_JPRB,9.6622E05_JPRB/) 
956  KAO( :, 2, 4, 5) = (/&  
957  & 1.7835E04_JPRB,2.3331E04_JPRB,2.4753E04_JPRB,2.5139E04_JPRB,2.3877E04_JPRB,2.3221E04_JPRB,&  
958 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.5394E04_JPRB,4.0618E04_JPRB,1.2075E04_JPRB/) 
959  KAO( :, 3, 4, 5) = (/&  
960  & 2.2702E04_JPRB,3.0170E04_JPRB,3.2275E04_JPRB,3.3261E04_JPRB,3.2998E04_JPRB,3.0635E04_JPRB,&  
961 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0422E04_JPRB,3.7513E04_JPRB,1.4994E04_JPRB/) 
962  KAO( :, 4, 4, 5) = (/&  
963  & 2.8327E04_JPRB,3.8288E04_JPRB,4.1191E04_JPRB,4.2826E04_JPRB,4.2837E04_JPRB,4.1511E04_JPRB,&  
964 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7299E04_JPRB,4.1488E04_JPRB,1.8740E04_JPRB/) 
965  KAO( :, 5, 4, 5) = (/&  
966  & 3.4778E04_JPRB,4.7798E04_JPRB,5.1863E04_JPRB,5.4065E04_JPRB,5.4665E04_JPRB,5.3624E04_JPRB,&  
967 
2/2✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.

10  & 5.0550E04_JPRB,4.5874E04_JPRB,2.3509E04_JPRB/) 
968  
969 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

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

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART4',0,ZHOOK_HANDLE) 
977  
978  
979  KAO( :, 1, 5, 5) = (/&  
980  & 1.0090E04_JPRB,1.2840E04_JPRB,1.3222E04_JPRB,1.3092E04_JPRB,1.3649E04_JPRB,1.6019E04_JPRB,&  
981 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.1671E04_JPRB,2.5303E04_JPRB,9.1217E05_JPRB/) 
982  KAO( :, 2, 5, 5) = (/&  
983  & 1.3290E04_JPRB,1.7161E04_JPRB,1.7952E04_JPRB,1.7693E04_JPRB,1.6957E04_JPRB,1.7378E04_JPRB,&  
984 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2031E04_JPRB,3.2593E04_JPRB,1.0460E04_JPRB/) 
985  KAO( :, 3, 5, 5) = (/&  
986  & 1.7169E04_JPRB,2.2556E04_JPRB,2.3842E04_JPRB,2.4266E04_JPRB,2.3387E04_JPRB,2.1722E04_JPRB,&  
987 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2376E04_JPRB,3.3249E04_JPRB,1.2312E04_JPRB/) 
988  KAO( :, 4, 5, 5) = (/&  
989  & 2.1761E04_JPRB,2.9095E04_JPRB,3.1013E04_JPRB,3.1776E04_JPRB,3.1556E04_JPRB,2.9734E04_JPRB,&  
990 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.7621E04_JPRB,3.0674E04_JPRB,1.4846E04_JPRB/) 
991  KAO( :, 5, 5, 5) = (/&  
992  & 2.6974E04_JPRB,3.6873E04_JPRB,3.9640E04_JPRB,4.0873E04_JPRB,4.0796E04_JPRB,3.9425E04_JPRB,&  
993 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6157E04_JPRB,3.6174E04_JPRB,1.8146E04_JPRB/) 
994  KAO( :, 1, 6, 5) = (/&  
995  & 7.2092E05_JPRB,9.1048E05_JPRB,9.3429E05_JPRB,9.5226E05_JPRB,1.0150E04_JPRB,1.3173E04_JPRB,&  
996 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4984E04_JPRB,1.9196E04_JPRB,9.8397E05_JPRB/) 
997  KAO( :, 2, 6, 5) = (/&  
998  & 9.7448E05_JPRB,1.2423E04_JPRB,1.2792E04_JPRB,1.2413E04_JPRB,1.2424E04_JPRB,1.3383E04_JPRB,&  
999 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7960E04_JPRB,2.4434E04_JPRB,1.1133E04_JPRB/) 
1000  KAO( :, 3, 6, 5) = (/&  
1001  & 1.2736E04_JPRB,1.6584E04_JPRB,1.7360E04_JPRB,1.7200E04_JPRB,1.6167E04_JPRB,1.5892E04_JPRB,&  
1002 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7153E04_JPRB,2.8218E04_JPRB,1.2781E04_JPRB/) 
1003  KAO( :, 4, 6, 5) = (/&  
1004  & 1.6376E04_JPRB,2.1742E04_JPRB,2.3003E04_JPRB,2.3266E04_JPRB,2.2686E04_JPRB,2.0723E04_JPRB,&  
1005 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0538E04_JPRB,2.5489E04_JPRB,1.4690E04_JPRB/) 
1006  KAO( :, 5, 6, 5) = (/&  
1007  & 2.0555E04_JPRB,2.7960E04_JPRB,2.9861E04_JPRB,3.0501E04_JPRB,3.0003E04_JPRB,2.8746E04_JPRB,&  
1008 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.5983E04_JPRB,2.8313E04_JPRB,1.7007E04_JPRB/) 
1009  KAO( :, 1, 7, 5) = (/&  
1010  & 5.0915E05_JPRB,6.4096E05_JPRB,6.5839E05_JPRB,7.0435E05_JPRB,8.2474E05_JPRB,1.0016E04_JPRB,&  
1011 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1360E04_JPRB,1.4590E04_JPRB,1.4032E04_JPRB/) 
1012  KAO( :, 2, 7, 5) = (/&  
1013  & 7.0625E05_JPRB,8.9097E05_JPRB,9.0314E05_JPRB,8.9429E05_JPRB,9.3251E05_JPRB,1.0724E04_JPRB,&  
1014 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4912E04_JPRB,1.8863E04_JPRB,1.5518E04_JPRB/) 
1015  KAO( :, 3, 7, 5) = (/&  
1016  & 9.4098E05_JPRB,1.2125E04_JPRB,1.2537E04_JPRB,1.2091E04_JPRB,1.1603E04_JPRB,1.1857E04_JPRB,&  
1017 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4624E04_JPRB,2.2506E04_JPRB,1.7262E04_JPRB/) 
1018  KAO( :, 4, 7, 5) = (/&  
1019  & 1.2191E04_JPRB,1.6102E04_JPRB,1.6901E04_JPRB,1.6848E04_JPRB,1.5829E04_JPRB,1.4830E04_JPRB,&  
1020 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5156E04_JPRB,2.2031E04_JPRB,1.9339E04_JPRB/) 
1021  KAO( :, 5, 7, 5) = (/&  
1022  & 1.5529E04_JPRB,2.0973E04_JPRB,2.2297E04_JPRB,2.2562E04_JPRB,2.1894E04_JPRB,2.0410E04_JPRB,&  
1023 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8782E04_JPRB,2.1024E04_JPRB,2.1671E04_JPRB/) 
1024  KAO( :, 1, 8, 5) = (/&  
1025  & 3.6049E05_JPRB,4.5291E05_JPRB,4.7754E05_JPRB,5.1919E05_JPRB,6.1186E05_JPRB,6.9190E05_JPRB,&  
1026 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.4378E05_JPRB,1.1648E04_JPRB,2.7572E04_JPRB/) 
1027  KAO( :, 2, 8, 5) = (/&  
1028  & 5.1045E05_JPRB,6.3896E05_JPRB,6.4272E05_JPRB,6.5150E05_JPRB,6.9954E05_JPRB,8.8868E05_JPRB,&  
1029 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0162E04_JPRB,1.4598E04_JPRB,3.0000E04_JPRB/) 
1030  KAO( :, 3, 8, 5) = (/&  
1031  & 6.9216E05_JPRB,8.8252E05_JPRB,9.0050E05_JPRB,8.5873E05_JPRB,8.5359E05_JPRB,9.1693E05_JPRB,&  
1032 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2432E04_JPRB,1.5741E04_JPRB,3.2619E04_JPRB/) 
1033  KAO( :, 4, 8, 5) = (/&  
1034  & 9.0719E05_JPRB,1.1854E04_JPRB,1.2391E04_JPRB,1.2089E04_JPRB,1.1160E04_JPRB,1.0845E04_JPRB,&  
1035 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1912E04_JPRB,1.9063E04_JPRB,3.5459E04_JPRB/) 
1036  KAO( :, 5, 8, 5) = (/&  
1037  & 1.1702E04_JPRB,1.5606E04_JPRB,1.6531E04_JPRB,1.6622E04_JPRB,1.5932E04_JPRB,1.4248E04_JPRB,&  
1038 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4183E04_JPRB,1.7131E04_JPRB,3.8497E04_JPRB/) 
1039  KAO( :, 1, 9, 5) = (/&  
1040  & 2.5866E05_JPRB,3.2320E05_JPRB,3.4576E05_JPRB,3.8709E05_JPRB,4.6229E05_JPRB,5.2438E05_JPRB,&  
1041 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.5503E05_JPRB,9.3730E05_JPRB,1.1703E03_JPRB/) 
1042  KAO( :, 2, 9, 5) = (/&  
1043  & 3.7130E05_JPRB,4.6042E05_JPRB,4.6409E05_JPRB,4.8783E05_JPRB,5.6170E05_JPRB,6.7762E05_JPRB,&  
1044 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.7225E05_JPRB,1.1273E04_JPRB,1.2364E03_JPRB/) 
1045  KAO( :, 3, 9, 5) = (/&  
1046  & 5.1057E05_JPRB,6.4238E05_JPRB,6.4747E05_JPRB,6.3009E05_JPRB,6.3858E05_JPRB,7.4779E05_JPRB,&  
1047 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.9385E05_JPRB,1.2137E04_JPRB,1.3035E03_JPRB/) 
1048  KAO( :, 4, 9, 5) = (/&  
1049  & 6.7872E05_JPRB,8.7074E05_JPRB,9.0171E05_JPRB,8.6365E05_JPRB,8.1775E05_JPRB,8.1150E05_JPRB,&  
1050 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0091E04_JPRB,1.5846E04_JPRB,1.3706E03_JPRB/) 
1051  KAO( :, 5, 9, 5) = (/&  
1052  & 8.8212E05_JPRB,1.1565E04_JPRB,1.2170E04_JPRB,1.2148E04_JPRB,1.1255E04_JPRB,1.0392E04_JPRB,&  
1053 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0391E04_JPRB,1.5035E04_JPRB,1.4393E03_JPRB/) 
1054  KAO( :, 1,10, 5) = (/&  
1055  & 2.0052E05_JPRB,2.4599E05_JPRB,2.6224E05_JPRB,2.9775E05_JPRB,3.4377E05_JPRB,3.9753E05_JPRB,&  
1056 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1870E05_JPRB,7.0614E05_JPRB,6.9310E03_JPRB/) 
1057  KAO( :, 2,10, 5) = (/&  
1058  & 2.8642E05_JPRB,3.5006E05_JPRB,3.5601E05_JPRB,3.7670E05_JPRB,4.4192E05_JPRB,5.0297E05_JPRB,&  
1059 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.0753E05_JPRB,8.8409E05_JPRB,7.2473E03_JPRB/) 
1060  KAO( :, 3,10, 5) = (/&  
1061  & 3.9509E05_JPRB,4.8803E05_JPRB,4.8668E05_JPRB,4.7951E05_JPRB,5.0708E05_JPRB,6.1469E05_JPRB,&  
1062 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.4297E05_JPRB,9.6176E05_JPRB,7.5424E03_JPRB/) 
1063  KAO( :, 4,10, 5) = (/&  
1064  & 5.2822E05_JPRB,6.6323E05_JPRB,6.7918E05_JPRB,6.3993E05_JPRB,6.2062E05_JPRB,6.4519E05_JPRB,&  
1065 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.5147E05_JPRB,1.1230E04_JPRB,7.8121E03_JPRB/) 
1066  KAO( :, 5,10, 5) = (/&  
1067  & 6.8969E05_JPRB,8.8314E05_JPRB,9.1957E05_JPRB,9.0701E05_JPRB,8.2062E05_JPRB,7.8779E05_JPRB,&  
1068 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.1888E05_JPRB,1.3051E04_JPRB,8.0714E03_JPRB/) 
1069  KAO( :, 1,11, 5) = (/&  
1070  & 1.9311E05_JPRB,2.2943E05_JPRB,2.3712E05_JPRB,2.6076E05_JPRB,2.9763E05_JPRB,3.4761E05_JPRB,&  
1071 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2561E05_JPRB,5.7624E05_JPRB,1.5187E02_JPRB/) 
1072  KAO( :, 2,11, 5) = (/&  
1073  & 2.6757E05_JPRB,3.2178E05_JPRB,3.2098E05_JPRB,3.3425E05_JPRB,3.7561E05_JPRB,4.3432E05_JPRB,&  
1074 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1256E05_JPRB,7.3332E05_JPRB,1.5840E02_JPRB/) 
1075  KAO( :, 3,11, 5) = (/&  
1076  & 3.6196E05_JPRB,4.4102E05_JPRB,4.3948E05_JPRB,4.2431E05_JPRB,4.4099E05_JPRB,5.1811E05_JPRB,&  
1077 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.2145E05_JPRB,8.0656E05_JPRB,1.6449E02_JPRB/) 
1078  KAO( :, 4,11, 5) = (/&  
1079  & 4.7882E05_JPRB,5.9111E05_JPRB,6.0086E05_JPRB,5.7204E05_JPRB,5.4371E05_JPRB,5.5076E05_JPRB,&  
1080 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.0526E05_JPRB,9.2945E05_JPRB,1.6989E02_JPRB/) 
1081  KAO( :, 5,11, 5) = (/&  
1082  & 6.2068E05_JPRB,7.8174E05_JPRB,8.0859E05_JPRB,7.9258E05_JPRB,7.2738E05_JPRB,6.8607E05_JPRB,&  
1083 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.8925E05_JPRB,1.0616E04_JPRB,1.7481E02_JPRB/) 
1084  KAO( :, 1,12, 5) = (/&  
1085  & 1.8157E05_JPRB,2.1121E05_JPRB,2.1509E05_JPRB,2.2736E05_JPRB,2.6145E05_JPRB,3.0200E05_JPRB,&  
1086 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7064E05_JPRB,5.0458E05_JPRB,2.1164E02_JPRB/) 
1087  KAO( :, 2,12, 5) = (/&  
1088  & 2.4750E05_JPRB,2.9265E05_JPRB,2.8640E05_JPRB,2.9365E05_JPRB,3.1815E05_JPRB,3.7644E05_JPRB,&  
1089 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.4258E05_JPRB,6.0893E05_JPRB,2.2083E02_JPRB/) 
1090  KAO( :, 3,12, 5) = (/&  
1091  & 3.3051E05_JPRB,3.9669E05_JPRB,3.9323E05_JPRB,3.7322E05_JPRB,3.8330E05_JPRB,4.3268E05_JPRB,&  
1092 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.2953E05_JPRB,6.6459E05_JPRB,2.2904E02_JPRB/) 
1093  KAO( :, 4,12, 5) = (/&  
1094  & 4.3268E05_JPRB,5.2755E05_JPRB,5.3305E05_JPRB,5.0755E05_JPRB,4.7183E05_JPRB,4.7321E05_JPRB,&  
1095 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.8905E05_JPRB,7.8211E05_JPRB,2.3625E02_JPRB/) 
1096  KAO( :, 5,12, 5) = (/&  
1097  & 5.5712E05_JPRB,6.9313E05_JPRB,7.1134E05_JPRB,6.9400E05_JPRB,6.4153E05_JPRB,5.9244E05_JPRB,&  
1098 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.8683E05_JPRB,8.6772E05_JPRB,2.4304E02_JPRB/) 
1099  KAO( :, 1,13, 5) = (/&  
1100  & 1.7179E05_JPRB,1.9773E05_JPRB,1.9599E05_JPRB,2.0374E05_JPRB,2.3480E05_JPRB,2.5935E05_JPRB,&  
1101 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2097E05_JPRB,4.3807E05_JPRB,2.3722E02_JPRB/) 
1102  KAO( :, 2,13, 5) = (/&  
1103  & 2.3195E05_JPRB,2.7018E05_JPRB,2.6155E05_JPRB,2.6118E05_JPRB,2.7654E05_JPRB,3.2413E05_JPRB,&  
1104 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6439E05_JPRB,5.1480E05_JPRB,2.4748E02_JPRB/) 
1105  KAO( :, 3,13, 5) = (/&  
1106  & 3.0612E05_JPRB,3.6208E05_JPRB,3.5603E05_JPRB,3.3306E05_JPRB,3.3238E05_JPRB,3.6754E05_JPRB,&  
1107 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.5231E05_JPRB,5.7370E05_JPRB,2.5646E02_JPRB/) 
1108  KAO( :, 4,13, 5) = (/&  
1109  & 3.9626E05_JPRB,4.7737E05_JPRB,4.7941E05_JPRB,4.5252E05_JPRB,4.1653E05_JPRB,4.0753E05_JPRB,&  
1110 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.9320E05_JPRB,6.5660E05_JPRB,2.6492E02_JPRB/) 
1111  KAO( :, 5,13, 5) = (/&  
1112  & 5.0622E05_JPRB,6.2138E05_JPRB,6.3203E05_JPRB,6.1426E05_JPRB,5.6252E05_JPRB,5.1272E05_JPRB,&  
1113 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.0385E05_JPRB,7.0865E05_JPRB,2.7279E02_JPRB/) 
1114  KAO( :, 1, 1, 6) = (/&  
1115  & 7.6668E04_JPRB,9.5698E04_JPRB,1.0451E03_JPRB,1.0706E03_JPRB,1.0458E03_JPRB,9.8544E04_JPRB,&  
1116 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.4925E04_JPRB,7.0084E04_JPRB,3.6790E04_JPRB/) 
1117  KAO( :, 2, 1, 6) = (/&  
1118  & 9.3715E04_JPRB,1.2033E03_JPRB,1.3264E03_JPRB,1.3678E03_JPRB,1.3579E03_JPRB,1.2955E03_JPRB,&  
1119 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2019E03_JPRB,1.0530E03_JPRB,4.9374E04_JPRB/) 
1120  KAO( :, 3, 1, 6) = (/&  
1121  & 1.1259E03_JPRB,1.4892E03_JPRB,1.6507E03_JPRB,1.7086E03_JPRB,1.7099E03_JPRB,1.6660E03_JPRB,&  
1122 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5468E03_JPRB,1.3572E03_JPRB,6.9469E04_JPRB/) 
1123  KAO( :, 4, 1, 6) = (/&  
1124  & 1.3346E03_JPRB,1.8150E03_JPRB,2.0125E03_JPRB,2.0930E03_JPRB,2.1054E03_JPRB,2.0604E03_JPRB,&  
1125 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9461E03_JPRB,1.7694E03_JPRB,9.3629E04_JPRB/) 
1126  KAO( :, 5, 1, 6) = (/&  
1127  & 1.5631E03_JPRB,2.1751E03_JPRB,2.4107E03_JPRB,2.5177E03_JPRB,2.5412E03_JPRB,2.4997E03_JPRB,&  
1128 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4003E03_JPRB,2.2329E03_JPRB,1.1943E03_JPRB/) 
1129  KAO( :, 1, 2, 6) = (/&  
1130  & 6.1736E04_JPRB,7.7957E04_JPRB,8.4495E04_JPRB,8.5822E04_JPRB,8.3168E04_JPRB,7.6710E04_JPRB,&  
1131 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.8197E04_JPRB,6.1117E04_JPRB,2.7552E04_JPRB/) 
1132  KAO( :, 2, 2, 6) = (/&  
1133  & 7.6431E04_JPRB,9.9047E04_JPRB,1.0825E03_JPRB,1.1059E03_JPRB,1.0905E03_JPRB,1.0282E03_JPRB,&  
1134 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.1763E04_JPRB,8.3788E04_JPRB,3.8116E04_JPRB/) 
1135  KAO( :, 3, 2, 6) = (/&  
1136  & 9.2906E04_JPRB,1.2346E03_JPRB,1.3561E03_JPRB,1.3925E03_JPRB,1.3898E03_JPRB,1.3440E03_JPRB,&  
1137 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2411E03_JPRB,1.1007E03_JPRB,5.2777E04_JPRB/) 
1138  KAO( :, 4, 2, 6) = (/&  
1139  & 1.1126E03_JPRB,1.5138E03_JPRB,1.6623E03_JPRB,1.7166E03_JPRB,1.7237E03_JPRB,1.6799E03_JPRB,&  
1140 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5813E03_JPRB,1.4262E03_JPRB,7.0852E04_JPRB/) 
1141  KAO( :, 5, 2, 6) = (/&  
1142  & 1.3161E03_JPRB,1.8216E03_JPRB,2.0023E03_JPRB,2.0780E03_JPRB,2.0918E03_JPRB,2.0576E03_JPRB,&  
1143 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9689E03_JPRB,1.8083E03_JPRB,9.0055E04_JPRB/) 
1144  KAO( :, 1, 3, 6) = (/&  
1145  & 4.6874E04_JPRB,5.9508E04_JPRB,6.3781E04_JPRB,6.4117E04_JPRB,6.1436E04_JPRB,5.4822E04_JPRB,&  
1146 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.0421E04_JPRB,5.3533E04_JPRB,2.0334E04_JPRB/) 
1147  KAO( :, 2, 3, 6) = (/&  
1148  & 5.9055E04_JPRB,7.6700E04_JPRB,8.2890E04_JPRB,8.3946E04_JPRB,8.1795E04_JPRB,7.6034E04_JPRB,&  
1149 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.7368E04_JPRB,6.0816E04_JPRB,2.8145E04_JPRB/) 
1150  KAO( :, 3, 3, 6) = (/&  
1151  & 7.2955E04_JPRB,9.6821E04_JPRB,1.0493E03_JPRB,1.0696E03_JPRB,1.0616E03_JPRB,1.0150E03_JPRB,&  
1152 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.2112E04_JPRB,8.3960E04_JPRB,3.8605E04_JPRB/) 
1153  KAO( :, 4, 3, 6) = (/&  
1154  & 8.8621E04_JPRB,1.1995E03_JPRB,1.3001E03_JPRB,1.3322E03_JPRB,1.3333E03_JPRB,1.2938E03_JPRB,&  
1155 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2044E03_JPRB,1.0885E03_JPRB,5.0764E04_JPRB/) 
1156  KAO( :, 5, 3, 6) = (/&  
1157  & 1.0620E03_JPRB,1.4561E03_JPRB,1.5813E03_JPRB,1.6291E03_JPRB,1.6339E03_JPRB,1.6065E03_JPRB,&  
1158 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5265E03_JPRB,1.3705E03_JPRB,6.4701E04_JPRB/) 
1159  KAO( :, 1, 4, 6) = (/&  
1160  & 3.4631E04_JPRB,4.3892E04_JPRB,4.6539E04_JPRB,4.6252E04_JPRB,4.3395E04_JPRB,3.8559E04_JPRB,&  
1161 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5487E04_JPRB,4.4831E04_JPRB,1.5114E04_JPRB/) 
1162  KAO( :, 2, 4, 6) = (/&  
1163  & 4.4425E04_JPRB,5.7553E04_JPRB,6.1538E04_JPRB,6.1883E04_JPRB,5.9314E04_JPRB,5.4165E04_JPRB,&  
1164 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.8640E04_JPRB,4.4227E04_JPRB,2.0515E04_JPRB/) 
1165  KAO( :, 3, 4, 6) = (/&  
1166  & 5.5883E04_JPRB,7.3740E04_JPRB,7.9031E04_JPRB,7.9974E04_JPRB,7.8639E04_JPRB,7.3691E04_JPRB,&  
1167 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.4680E04_JPRB,6.1866E04_JPRB,2.7731E04_JPRB/) 
1168  KAO( :, 4, 4, 6) = (/&  
1169  & 6.8974E04_JPRB,9.2537E04_JPRB,9.9228E04_JPRB,1.0098E03_JPRB,1.0044E03_JPRB,9.6650E04_JPRB,&  
1170 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.8358E04_JPRB,7.6484E04_JPRB,3.6266E04_JPRB/) 
1171  KAO( :, 5, 4, 6) = (/&  
1172  & 8.3990E04_JPRB,1.1361E03_JPRB,1.2201E03_JPRB,1.2496E03_JPRB,1.2472E03_JPRB,1.2194E03_JPRB,&  
1173 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1540E03_JPRB,1.0325E03_JPRB,4.6430E04_JPRB/) 
1174  KAO( :, 1, 5, 6) = (/&  
1175  & 2.5250E04_JPRB,3.1808E04_JPRB,3.3386E04_JPRB,3.2714E04_JPRB,3.0037E04_JPRB,2.7399E04_JPRB,&  
1176 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6791E04_JPRB,3.5704E04_JPRB,1.2908E04_JPRB/) 
1177  KAO( :, 2, 5, 6) = (/&  
1178  & 3.3043E04_JPRB,4.2488E04_JPRB,4.5012E04_JPRB,4.4889E04_JPRB,4.2554E04_JPRB,3.8200E04_JPRB,&  
1179 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.3745E04_JPRB,3.7310E04_JPRB,1.6348E04_JPRB/) 
1180  KAO( :, 3, 5, 6) = (/&  
1181  & 4.2316E04_JPRB,5.5338E04_JPRB,5.8740E04_JPRB,5.9160E04_JPRB,5.7542E04_JPRB,5.3101E04_JPRB,&  
1182 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.6257E04_JPRB,4.4755E04_JPRB,2.1057E04_JPRB/) 
1183  KAO( :, 4, 5, 6) = (/&  
1184  & 5.3209E04_JPRB,7.0370E04_JPRB,7.4784E04_JPRB,7.5773E04_JPRB,7.4773E04_JPRB,7.1163E04_JPRB,&  
1185 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.4170E04_JPRB,5.6009E04_JPRB,2.6995E04_JPRB/) 
1186  KAO( :, 5, 5, 6) = (/&  
1187  & 6.5954E04_JPRB,8.7577E04_JPRB,9.3136E04_JPRB,9.4956E04_JPRB,9.4321E04_JPRB,9.1424E04_JPRB,&  
1188 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.5021E04_JPRB,7.6505E04_JPRB,3.4403E04_JPRB/) 
1189  KAO( :, 1, 6, 6) = (/&  
1190  & 1.8041E04_JPRB,2.2490E04_JPRB,2.3336E04_JPRB,2.2464E04_JPRB,2.0963E04_JPRB,1.9425E04_JPRB,&  
1191 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2107E04_JPRB,2.7984E04_JPRB,1.4894E04_JPRB/) 
1192  KAO( :, 2, 6, 6) = (/&  
1193  & 2.4129E04_JPRB,3.0664E04_JPRB,3.2201E04_JPRB,3.1753E04_JPRB,2.9432E04_JPRB,2.6424E04_JPRB,&  
1194 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4608E04_JPRB,3.2717E04_JPRB,1.7150E04_JPRB/) 
1195  KAO( :, 3, 6, 6) = (/&  
1196  & 3.1506E04_JPRB,4.0665E04_JPRB,4.2823E04_JPRB,4.2924E04_JPRB,4.1092E04_JPRB,3.7075E04_JPRB,&  
1197 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2608E04_JPRB,3.0715E04_JPRB,1.9997E04_JPRB/) 
1198  KAO( :, 4, 6, 6) = (/&  
1199  & 4.0467E04_JPRB,5.2530E04_JPRB,5.5383E04_JPRB,5.5842E04_JPRB,5.4724E04_JPRB,5.1243E04_JPRB,&  
1200 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.4254E04_JPRB,3.9888E04_JPRB,2.3767E04_JPRB/) 
1201  KAO( :, 5, 6, 6) = (/&  
1202  & 5.1106E04_JPRB,6.6417E04_JPRB,6.9974E04_JPRB,7.0967E04_JPRB,7.0212E04_JPRB,6.7161E04_JPRB,&  
1203 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.0464E04_JPRB,5.2589E04_JPRB,2.8598E04_JPRB/) 
1204  KAO( :, 1, 7, 6) = (/&  
1205  & 1.2786E04_JPRB,1.5741E04_JPRB,1.6149E04_JPRB,1.5385E04_JPRB,1.4113E04_JPRB,1.3717E04_JPRB,&  
1206 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7921E04_JPRB,2.1884E04_JPRB,2.2335E04_JPRB/) 
1207  KAO( :, 2, 7, 6) = (/&  
1208  & 1.7476E04_JPRB,2.1914E04_JPRB,2.2777E04_JPRB,2.2084E04_JPRB,2.0229E04_JPRB,1.8812E04_JPRB,&  
1209 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8018E04_JPRB,2.7538E04_JPRB,2.4653E04_JPRB/) 
1210  KAO( :, 3, 7, 6) = (/&  
1211  & 2.3335E04_JPRB,2.9589E04_JPRB,3.0942E04_JPRB,3.0765E04_JPRB,2.8977E04_JPRB,2.5625E04_JPRB,&  
1212 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3275E04_JPRB,2.5170E04_JPRB,2.7339E04_JPRB/) 
1213  KAO( :, 4, 7, 6) = (/&  
1214  & 3.0583E04_JPRB,3.8902E04_JPRB,4.0709E04_JPRB,4.0819E04_JPRB,3.9588E04_JPRB,3.6356E04_JPRB,&  
1215 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.1361E04_JPRB,2.9658E04_JPRB,3.0348E04_JPRB/) 
1216  KAO( :, 5, 7, 6) = (/&  
1217  & 3.9359E04_JPRB,5.0084E04_JPRB,5.2271E04_JPRB,5.2613E04_JPRB,5.1742E04_JPRB,4.8862E04_JPRB,&  
1218 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.3693E04_JPRB,3.8092E04_JPRB,3.3962E04_JPRB/) 
1219  KAO( :, 1, 8, 6) = (/&  
1220  & 9.0775E05_JPRB,1.1005E04_JPRB,1.1099E04_JPRB,1.0509E04_JPRB,9.9650E05_JPRB,1.1055E04_JPRB,&  
1221 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4832E04_JPRB,1.7530E04_JPRB,4.7525E04_JPRB/) 
1222  KAO( :, 2, 8, 6) = (/&  
1223  & 1.2669E04_JPRB,1.5629E04_JPRB,1.6068E04_JPRB,1.5361E04_JPRB,1.4250E04_JPRB,1.3452E04_JPRB,&  
1224 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4933E04_JPRB,2.0310E04_JPRB,5.0480E04_JPRB/) 
1225  KAO( :, 3, 8, 6) = (/&  
1226  & 1.7285E04_JPRB,2.1483E04_JPRB,2.2274E04_JPRB,2.1837E04_JPRB,2.0107E04_JPRB,1.8034E04_JPRB,&  
1227 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6967E04_JPRB,2.2418E04_JPRB,5.3971E04_JPRB/) 
1228  KAO( :, 4, 8, 6) = (/&  
1229  & 2.3078E04_JPRB,2.8784E04_JPRB,2.9834E04_JPRB,2.9682E04_JPRB,2.8348E04_JPRB,2.5378E04_JPRB,&  
1230 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.1967E04_JPRB,2.1775E04_JPRB,5.7949E04_JPRB/) 
1231  KAO( :, 5, 8, 6) = (/&  
1232  & 3.0207E04_JPRB,3.7730E04_JPRB,3.9003E04_JPRB,3.8941E04_JPRB,3.7851E04_JPRB,3.5314E04_JPRB,&  
1233 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0320E04_JPRB,2.7345E04_JPRB,6.2347E04_JPRB/) 
1234  KAO( :, 1, 9, 6) = (/&  
1235  & 6.4923E05_JPRB,7.7301E05_JPRB,7.6873E05_JPRB,7.2507E05_JPRB,7.2968E05_JPRB,8.8916E05_JPRB,&  
1236 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0626E04_JPRB,1.3047E04_JPRB,2.1479E03_JPRB/) 
1237  KAO( :, 2, 9, 6) = (/&  
1238  & 9.2060E05_JPRB,1.1144E04_JPRB,1.1301E04_JPRB,1.0673E04_JPRB,9.8741E05_JPRB,9.7585E05_JPRB,&  
1239 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2203E04_JPRB,1.5315E04_JPRB,2.2213E03_JPRB/) 
1240  KAO( :, 3, 9, 6) = (/&  
1241  & 1.2784E04_JPRB,1.5591E04_JPRB,1.5957E04_JPRB,1.5395E04_JPRB,1.4101E04_JPRB,1.2937E04_JPRB,&  
1242 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2902E04_JPRB,1.8269E04_JPRB,2.3004E03_JPRB/) 
1243  KAO( :, 4, 9, 6) = (/&  
1244  & 1.7362E04_JPRB,2.1265E04_JPRB,2.1819E04_JPRB,2.1460E04_JPRB,2.0088E04_JPRB,1.7687E04_JPRB,&  
1245 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6114E04_JPRB,1.7045E04_JPRB,2.3836E03_JPRB/) 
1246  KAO( :, 5, 9, 6) = (/&  
1247  & 2.3060E04_JPRB,2.8346E04_JPRB,2.9069E04_JPRB,2.8691E04_JPRB,2.7538E04_JPRB,2.5192E04_JPRB,&  
1248 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.1567E04_JPRB,2.0242E04_JPRB,2.4645E03_JPRB/) 
1249  KAO( :, 1,10, 6) = (/&  
1250  & 4.9625E05_JPRB,5.7572E05_JPRB,5.6443E05_JPRB,5.4999E05_JPRB,5.9435E05_JPRB,7.0786E05_JPRB,&  
1251 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.6295E05_JPRB,1.0573E04_JPRB,1.3224E02_JPRB/) 
1252  KAO( :, 2,10, 6) = (/&  
1253  & 7.0134E05_JPRB,8.3014E05_JPRB,8.2620E05_JPRB,7.7969E05_JPRB,7.3377E05_JPRB,8.0016E05_JPRB,&  
1254 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.8395E05_JPRB,1.2266E04_JPRB,1.3476E02_JPRB/) 
1255  KAO( :, 3,10, 6) = (/&  
1256  & 9.7838E05_JPRB,1.1716E04_JPRB,1.1840E04_JPRB,1.1257E04_JPRB,1.0247E04_JPRB,9.5389E05_JPRB,&  
1257 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0384E04_JPRB,1.4488E04_JPRB,1.3733E02_JPRB/) 
1258  KAO( :, 4,10, 6) = (/&  
1259  & 1.3411E04_JPRB,1.6175E04_JPRB,1.6407E04_JPRB,1.5918E04_JPRB,1.4592E04_JPRB,1.2914E04_JPRB,&  
1260 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2234E04_JPRB,1.5601E04_JPRB,1.4015E02_JPRB/) 
1261  KAO( :, 5,10, 6) = (/&  
1262  & 1.7947E04_JPRB,2.1813E04_JPRB,2.2167E04_JPRB,2.1661E04_JPRB,2.0497E04_JPRB,1.8308E04_JPRB,&  
1263 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5705E04_JPRB,1.5556E04_JPRB,1.4285E02_JPRB/) 
1264  KAO( :, 1,11, 6) = (/&  
1265  & 4.6838E05_JPRB,5.3188E05_JPRB,5.1940E05_JPRB,4.9560E05_JPRB,5.2867E05_JPRB,6.0471E05_JPRB,&  
1266 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.7131E05_JPRB,8.9235E05_JPRB,2.9682E02_JPRB/) 
1267  KAO( :, 2,11, 6) = (/&  
1268  & 6.4771E05_JPRB,7.4879E05_JPRB,7.3789E05_JPRB,6.9085E05_JPRB,6.5402E05_JPRB,6.9078E05_JPRB,&  
1269 
2/2✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.

10  & 8.2402E05_JPRB,9.7823E05_JPRB,3.0214E02_JPRB/) 
1270  
1271 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

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

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART5',0,ZHOOK_HANDLE) 
1279  
1280  
1281  KAO( :, 3,11, 6) = (/&  
1282  & 8.8977E05_JPRB,1.0443E04_JPRB,1.0449E04_JPRB,9.8837E05_JPRB,8.9325E05_JPRB,8.2564E05_JPRB,&  
1283 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.0256E05_JPRB,1.2264E04_JPRB,3.0751E02_JPRB/) 
1284  KAO( :, 4,11, 6) = (/&  
1285  & 1.2031E04_JPRB,1.4341E04_JPRB,1.4439E04_JPRB,1.3909E04_JPRB,1.2684E04_JPRB,1.1148E04_JPRB,&  
1286 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0343E04_JPRB,1.2710E04_JPRB,3.1294E02_JPRB/) 
1287  KAO( :, 5,11, 6) = (/&  
1288  & 1.5966E04_JPRB,1.9217E04_JPRB,1.9445E04_JPRB,1.8922E04_JPRB,1.7785E04_JPRB,1.5826E04_JPRB,&  
1289 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3426E04_JPRB,1.3572E04_JPRB,3.1828E02_JPRB/) 
1290  KAO( :, 1,12, 6) = (/&  
1291  & 4.4013E05_JPRB,4.9051E05_JPRB,4.7310E05_JPRB,4.5083E05_JPRB,4.5655E05_JPRB,5.3046E05_JPRB,&  
1292 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.5846E05_JPRB,7.3868E05_JPRB,4.2262E02_JPRB/) 
1293  KAO( :, 2,12, 6) = (/&  
1294  & 5.9811E05_JPRB,6.7905E05_JPRB,6.6450E05_JPRB,6.1482E05_JPRB,5.7471E05_JPRB,5.8427E05_JPRB,&  
1295 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.0235E05_JPRB,8.1755E05_JPRB,4.3100E02_JPRB/) 
1296  KAO( :, 3,12, 6) = (/&  
1297  & 8.0771E05_JPRB,9.3483E05_JPRB,9.2712E05_JPRB,8.7290E05_JPRB,7.8335E05_JPRB,7.2055E05_JPRB,&  
1298 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.5619E05_JPRB,1.0330E04_JPRB,4.3963E02_JPRB/) 
1299  KAO( :, 4,12, 6) = (/&  
1300  & 1.0778E04_JPRB,1.2684E04_JPRB,1.2706E04_JPRB,1.2188E04_JPRB,1.1092E04_JPRB,9.6993E05_JPRB,&  
1301 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.8534E05_JPRB,1.0545E04_JPRB,4.4781E02_JPRB/) 
1302  KAO( :, 5,12, 6) = (/&  
1303  & 1.4170E04_JPRB,1.6874E04_JPRB,1.7020E04_JPRB,1.6546E04_JPRB,1.5470E04_JPRB,1.3786E04_JPRB,&  
1304 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1554E04_JPRB,1.1534E04_JPRB,4.5542E02_JPRB/) 
1305  KAO( :, 1,13, 6) = (/&  
1306  & 4.2090E05_JPRB,4.6101E05_JPRB,4.3965E05_JPRB,4.1016E05_JPRB,4.0300E05_JPRB,4.5499E05_JPRB,&  
1307 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.8852E05_JPRB,6.1759E05_JPRB,4.8346E02_JPRB/) 
1308  KAO( :, 2,13, 6) = (/&  
1309  & 5.6243E05_JPRB,6.2753E05_JPRB,6.0819E05_JPRB,5.5713E05_JPRB,5.1322E05_JPRB,5.0494E05_JPRB,&  
1310 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.0604E05_JPRB,6.8003E05_JPRB,4.9462E02_JPRB/) 
1311  KAO( :, 3,13, 6) = (/&  
1312  & 7.4458E05_JPRB,8.4643E05_JPRB,8.3343E05_JPRB,7.8251E05_JPRB,6.9869E05_JPRB,6.3030E05_JPRB,&  
1313 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.3206E05_JPRB,8.7133E05_JPRB,5.0553E02_JPRB/) 
1314  KAO( :, 4,13, 6) = (/&  
1315  & 9.7702E05_JPRB,1.1298E04_JPRB,1.1246E04_JPRB,1.0753E04_JPRB,9.7507E05_JPRB,8.4857E05_JPRB,&  
1316 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.6788E05_JPRB,8.6167E05_JPRB,5.1568E02_JPRB/) 
1317  KAO( :, 5,13, 6) = (/&  
1318  & 1.2694E04_JPRB,1.4871E04_JPRB,1.4954E04_JPRB,1.4480E04_JPRB,1.3473E04_JPRB,1.1941E04_JPRB,&  
1319 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.9413E05_JPRB,9.9688E05_JPRB,5.2519E02_JPRB/) 
1320  KAO( :, 1, 1, 7) = (/&  
1321  & 2.0564E03_JPRB,2.2357E03_JPRB,2.2921E03_JPRB,2.2746E03_JPRB,2.1808E03_JPRB,2.0118E03_JPRB,&  
1322 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7401E03_JPRB,1.3032E03_JPRB,9.5552E04_JPRB/) 
1323  KAO( :, 2, 1, 7) = (/&  
1324  & 2.5245E03_JPRB,2.7780E03_JPRB,2.8722E03_JPRB,2.8575E03_JPRB,2.7633E03_JPRB,2.6046E03_JPRB,&  
1325 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3222E03_JPRB,1.8131E03_JPRB,1.3540E03_JPRB/) 
1326  KAO( :, 3, 1, 7) = (/&  
1327  & 3.0325E03_JPRB,3.3773E03_JPRB,3.5284E03_JPRB,3.5242E03_JPRB,3.4302E03_JPRB,3.2547E03_JPRB,&  
1328 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.9982E03_JPRB,2.6610E03_JPRB,1.7942E03_JPRB/) 
1329  KAO( :, 4, 1, 7) = (/&  
1330  & 3.5774E03_JPRB,4.0328E03_JPRB,4.2570E03_JPRB,4.2786E03_JPRB,4.1734E03_JPRB,3.9880E03_JPRB,&  
1331 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7418E03_JPRB,3.6443E03_JPRB,2.2977E03_JPRB/) 
1332  KAO( :, 5, 1, 7) = (/&  
1333  & 4.1551E03_JPRB,4.7493E03_JPRB,5.0612E03_JPRB,5.1084E03_JPRB,4.9896E03_JPRB,4.7828E03_JPRB,&  
1334 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.5388E03_JPRB,4.6729E03_JPRB,2.8901E03_JPRB/) 
1335  KAO( :, 1, 2, 7) = (/&  
1336  & 1.7021E03_JPRB,1.8729E03_JPRB,1.9247E03_JPRB,1.9078E03_JPRB,1.8213E03_JPRB,1.6737E03_JPRB,&  
1337 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4152E03_JPRB,1.0410E03_JPRB,7.2465E04_JPRB/) 
1338  KAO( :, 2, 2, 7) = (/&  
1339  & 2.1085E03_JPRB,2.3473E03_JPRB,2.4306E03_JPRB,2.4189E03_JPRB,2.3372E03_JPRB,2.1946E03_JPRB,&  
1340 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9650E03_JPRB,1.4507E03_JPRB,1.0070E03_JPRB/) 
1341  KAO( :, 3, 2, 7) = (/&  
1342  & 2.5539E03_JPRB,2.8790E03_JPRB,3.0056E03_JPRB,3.0096E03_JPRB,2.9218E03_JPRB,2.7596E03_JPRB,&  
1343 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.5256E03_JPRB,2.1562E03_JPRB,1.3358E03_JPRB/) 
1344  KAO( :, 4, 2, 7) = (/&  
1345  & 3.0381E03_JPRB,3.4689E03_JPRB,3.6518E03_JPRB,3.6778E03_JPRB,3.5757E03_JPRB,3.4032E03_JPRB,&  
1346 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.1678E03_JPRB,2.9648E03_JPRB,1.7229E03_JPRB/) 
1347  KAO( :, 5, 2, 7) = (/&  
1348  & 3.5521E03_JPRB,4.1214E03_JPRB,4.3704E03_JPRB,4.4118E03_JPRB,4.3015E03_JPRB,4.1082E03_JPRB,&  
1349 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8609E03_JPRB,3.8044E03_JPRB,2.1852E03_JPRB/) 
1350  KAO( :, 1, 3, 7) = (/&  
1351  & 1.3207E03_JPRB,1.4650E03_JPRB,1.5081E03_JPRB,1.4879E03_JPRB,1.4138E03_JPRB,1.2859E03_JPRB,&  
1352 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0511E03_JPRB,7.8811E04_JPRB,5.1479E04_JPRB/) 
1353  KAO( :, 2, 3, 7) = (/&  
1354  & 1.6600E03_JPRB,1.8649E03_JPRB,1.9312E03_JPRB,1.9179E03_JPRB,1.8422E03_JPRB,1.7178E03_JPRB,&  
1355 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5069E03_JPRB,1.1268E03_JPRB,7.0924E04_JPRB/) 
1356  KAO( :, 3, 3, 7) = (/&  
1357  & 2.0389E03_JPRB,2.3205E03_JPRB,2.4185E03_JPRB,2.4171E03_JPRB,2.3339E03_JPRB,2.1929E03_JPRB,&  
1358 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9846E03_JPRB,1.6361E03_JPRB,9.4601E04_JPRB/) 
1359  KAO( :, 4, 3, 7) = (/&  
1360  & 2.4547E03_JPRB,2.8320E03_JPRB,2.9726E03_JPRB,2.9883E03_JPRB,2.8925E03_JPRB,2.7393E03_JPRB,&  
1361 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.5305E03_JPRB,2.2455E03_JPRB,1.2306E03_JPRB/) 
1362  KAO( :, 5, 3, 7) = (/&  
1363  & 2.8997E03_JPRB,3.4059E03_JPRB,3.5906E03_JPRB,3.6183E03_JPRB,3.5177E03_JPRB,3.3454E03_JPRB,&  
1364 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.1285E03_JPRB,2.9519E03_JPRB,1.5729E03_JPRB/) 
1365  KAO( :, 1, 4, 7) = (/&  
1366  & 9.9106E04_JPRB,1.1077E03_JPRB,1.1376E03_JPRB,1.1157E03_JPRB,1.0521E03_JPRB,9.4148E04_JPRB,&  
1367 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.8510E04_JPRB,5.6824E04_JPRB,3.5975E04_JPRB/) 
1368  KAO( :, 2, 4, 7) = (/&  
1369  & 1.2690E03_JPRB,1.4351E03_JPRB,1.4835E03_JPRB,1.4646E03_JPRB,1.3997E03_JPRB,1.2889E03_JPRB,&  
1370 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0960E03_JPRB,8.9289E04_JPRB,4.9353E04_JPRB/) 
1371  KAO( :, 3, 4, 7) = (/&  
1372  & 1.5842E03_JPRB,1.8142E03_JPRB,1.8866E03_JPRB,1.8780E03_JPRB,1.8013E03_JPRB,1.6820E03_JPRB,&  
1373 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5023E03_JPRB,1.1830E03_JPRB,6.6203E04_JPRB/) 
1374  KAO( :, 4, 4, 7) = (/&  
1375  & 1.9340E03_JPRB,2.2471E03_JPRB,2.3499E03_JPRB,2.3511E03_JPRB,2.2648E03_JPRB,2.1322E03_JPRB,&  
1376 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9509E03_JPRB,1.6764E03_JPRB,8.7194E04_JPRB/) 
1377  KAO( :, 5, 4, 7) = (/&  
1378  & 2.3113E03_JPRB,2.7351E03_JPRB,2.8762E03_JPRB,2.8805E03_JPRB,2.7879E03_JPRB,2.6395E03_JPRB,&  
1379 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4567E03_JPRB,2.2403E03_JPRB,1.1262E03_JPRB/) 
1380  KAO( :, 1, 5, 7) = (/&  
1381  & 7.3127E04_JPRB,8.2296E04_JPRB,8.4087E04_JPRB,8.1934E04_JPRB,7.6237E04_JPRB,6.6355E04_JPRB,&  
1382 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.7712E04_JPRB,4.2586E04_JPRB,2.6106E04_JPRB/) 
1383  KAO( :, 2, 5, 7) = (/&  
1384  & 9.5564E04_JPRB,1.0866E03_JPRB,1.1175E03_JPRB,1.0975E03_JPRB,1.0423E03_JPRB,9.4115E04_JPRB,&  
1385 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.8089E04_JPRB,7.0271E04_JPRB,3.5186E04_JPRB/) 
1386  KAO( :, 3, 5, 7) = (/&  
1387  & 1.2139E03_JPRB,1.3968E03_JPRB,1.4447E03_JPRB,1.4289E03_JPRB,1.3656E03_JPRB,1.2642E03_JPRB,&  
1388 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1044E03_JPRB,8.5519E04_JPRB,4.7090E04_JPRB/) 
1389  KAO( :, 4, 5, 7) = (/&  
1390  & 1.5030E03_JPRB,1.7556E03_JPRB,1.8265E03_JPRB,1.8139E03_JPRB,1.7423E03_JPRB,1.6256E03_JPRB,&  
1391 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4668E03_JPRB,1.2302E03_JPRB,6.2262E04_JPRB/) 
1392  KAO( :, 5, 5, 7) = (/&  
1393  & 1.8204E03_JPRB,2.1651E03_JPRB,2.2625E03_JPRB,2.2502E03_JPRB,2.1716E03_JPRB,2.0469E03_JPRB,&  
1394 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8925E03_JPRB,1.6626E03_JPRB,8.1240E04_JPRB/) 
1395  KAO( :, 1, 6, 7) = (/&  
1396  & 5.2529E04_JPRB,5.9432E04_JPRB,6.0352E04_JPRB,5.8305E04_JPRB,5.3304E04_JPRB,4.5328E04_JPRB,&  
1397 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.1878E04_JPRB,3.5780E04_JPRB,2.4217E04_JPRB/) 
1398  KAO( :, 2, 6, 7) = (/&  
1399  & 7.0212E04_JPRB,8.0206E04_JPRB,8.1885E04_JPRB,8.0064E04_JPRB,7.5267E04_JPRB,6.6720E04_JPRB,&  
1400 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4925E04_JPRB,4.7137E04_JPRB,2.9304E04_JPRB/) 
1401  KAO( :, 3, 6, 7) = (/&  
1402  & 9.0974E04_JPRB,1.0505E03_JPRB,1.0784E03_JPRB,1.0608E03_JPRB,1.0082E03_JPRB,9.2191E04_JPRB,&  
1403 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.8184E04_JPRB,6.5554E04_JPRB,3.6650E04_JPRB/) 
1404  KAO( :, 4, 6, 7) = (/&  
1405  & 1.1453E03_JPRB,1.3423E03_JPRB,1.3852E03_JPRB,1.3677E03_JPRB,1.3077E03_JPRB,1.2097E03_JPRB,&  
1406 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0767E03_JPRB,8.5645E04_JPRB,4.6653E04_JPRB/) 
1407  KAO( :, 5, 6, 7) = (/&  
1408  & 1.4081E03_JPRB,1.6785E03_JPRB,1.7408E03_JPRB,1.7212E03_JPRB,1.6525E03_JPRB,1.5502E03_JPRB,&  
1409 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4183E03_JPRB,1.2157E03_JPRB,5.9973E04_JPRB/) 
1410  KAO( :, 1, 7, 7) = (/&  
1411  & 3.7120E04_JPRB,4.2080E04_JPRB,4.2477E04_JPRB,4.0604E04_JPRB,3.6355E04_JPRB,3.1468E04_JPRB,&  
1412 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.7452E04_JPRB,3.0003E04_JPRB,3.4329E04_JPRB/) 
1413  KAO( :, 2, 7, 7) = (/&  
1414  & 5.0811E04_JPRB,5.8113E04_JPRB,5.8975E04_JPRB,5.7433E04_JPRB,5.3282E04_JPRB,4.5716E04_JPRB,&  
1415 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8591E04_JPRB,3.1558E04_JPRB,3.8021E04_JPRB/) 
1416  KAO( :, 3, 7, 7) = (/&  
1417  & 6.7189E04_JPRB,7.7708E04_JPRB,7.9243E04_JPRB,7.7528E04_JPRB,7.3224E04_JPRB,6.5998E04_JPRB,&  
1418 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4384E04_JPRB,5.0808E04_JPRB,4.2510E04_JPRB/) 
1419  KAO( :, 4, 7, 7) = (/&  
1420  & 8.6172E04_JPRB,1.0111E03_JPRB,1.0357E03_JPRB,1.0171E03_JPRB,9.6771E04_JPRB,8.8863E04_JPRB,&  
1421 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.7053E04_JPRB,5.9901E04_JPRB,4.8327E04_JPRB/) 
1422  KAO( :, 5, 7, 7) = (/&  
1423  & 1.0762E03_JPRB,1.2838E03_JPRB,1.3208E03_JPRB,1.3007E03_JPRB,1.2428E03_JPRB,1.1566E03_JPRB,&  
1424 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0378E03_JPRB,8.6101E04_JPRB,5.6256E04_JPRB/) 
1425  KAO( :, 1, 8, 7) = (/&  
1426  & 2.6005E04_JPRB,2.9445E04_JPRB,2.9544E04_JPRB,2.7954E04_JPRB,2.4583E04_JPRB,2.1647E04_JPRB,&  
1427 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8002E04_JPRB,2.3598E04_JPRB,7.9092E04_JPRB/) 
1428  KAO( :, 2, 8, 7) = (/&  
1429  & 3.6459E04_JPRB,4.1637E04_JPRB,4.2010E04_JPRB,4.0556E04_JPRB,3.7047E04_JPRB,3.0940E04_JPRB,&  
1430 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.7524E04_JPRB,2.5435E04_JPRB,8.3476E04_JPRB/) 
1431  KAO( :, 3, 8, 7) = (/&  
1432  & 4.9221E04_JPRB,5.6877E04_JPRB,5.7633E04_JPRB,5.6089E04_JPRB,5.2598E04_JPRB,4.6466E04_JPRB,&  
1433 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7776E04_JPRB,3.4121E04_JPRB,8.7965E04_JPRB/) 
1434  KAO( :, 4, 8, 7) = (/&  
1435  & 6.4351E04_JPRB,7.5336E04_JPRB,7.6684E04_JPRB,7.4955E04_JPRB,7.0992E04_JPRB,6.4867E04_JPRB,&  
1436 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4671E04_JPRB,4.4943E04_JPRB,9.3048E04_JPRB/) 
1437  KAO( :, 5, 8, 7) = (/&  
1438  & 8.1696E04_JPRB,9.7167E04_JPRB,9.9275E04_JPRB,9.7485E04_JPRB,9.2841E04_JPRB,8.5440E04_JPRB,&  
1439 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.5642E04_JPRB,5.9342E04_JPRB,9.8996E04_JPRB/) 
1440  KAO( :, 1, 9, 7) = (/&  
1441  & 1.8087E04_JPRB,2.0393E04_JPRB,2.0319E04_JPRB,1.8996E04_JPRB,1.6599E04_JPRB,1.4845E04_JPRB,&  
1442 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4517E04_JPRB,1.8943E04_JPRB,3.7840E03_JPRB/) 
1443  KAO( :, 2, 9, 7) = (/&  
1444  & 2.5947E04_JPRB,2.9518E04_JPRB,2.9598E04_JPRB,2.8323E04_JPRB,2.5237E04_JPRB,2.1334E04_JPRB,&  
1445 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9297E04_JPRB,2.0265E04_JPRB,3.8746E03_JPRB/) 
1446  KAO( :, 3, 9, 7) = (/&  
1447  & 3.5788E04_JPRB,4.1170E04_JPRB,4.1507E04_JPRB,4.0085E04_JPRB,3.7117E04_JPRB,3.1718E04_JPRB,&  
1448 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6164E04_JPRB,2.2715E04_JPRB,3.9645E03_JPRB/) 
1449  KAO( :, 4, 9, 7) = (/&  
1450  & 4.7699E04_JPRB,5.5569E04_JPRB,5.6204E04_JPRB,5.4699E04_JPRB,5.1526E04_JPRB,4.6408E04_JPRB,&  
1451 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7784E04_JPRB,3.4199E04_JPRB,4.0560E03_JPRB/) 
1452  KAO( :, 5, 9, 7) = (/&  
1453  & 6.1621E04_JPRB,7.2836E04_JPRB,7.3953E04_JPRB,7.2389E04_JPRB,6.8675E04_JPRB,6.2690E04_JPRB,&  
1454 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4244E04_JPRB,4.1506E04_JPRB,4.1481E03_JPRB/) 
1455  KAO( :, 1,10, 7) = (/&  
1456  & 1.3094E04_JPRB,1.4617E04_JPRB,1.4409E04_JPRB,1.3166E04_JPRB,1.1671E04_JPRB,1.0840E04_JPRB,&  
1457 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1994E04_JPRB,1.5334E04_JPRB,2.4678E02_JPRB/) 
1458  KAO( :, 2,10, 7) = (/&  
1459  & 1.9036E04_JPRB,2.1493E04_JPRB,2.1399E04_JPRB,2.0239E04_JPRB,1.7779E04_JPRB,1.5202E04_JPRB,&  
1460 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3461E04_JPRB,1.6391E04_JPRB,2.4818E02_JPRB/) 
1461  KAO( :, 3,10, 7) = (/&  
1462  & 2.6670E04_JPRB,3.0451E04_JPRB,3.0518E04_JPRB,2.9252E04_JPRB,2.6713E04_JPRB,2.2545E04_JPRB,&  
1463 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9430E04_JPRB,1.7654E04_JPRB,2.4944E02_JPRB/) 
1464  KAO( :, 4,10, 7) = (/&  
1465  & 3.6077E04_JPRB,4.1729E04_JPRB,4.1982E04_JPRB,4.0619E04_JPRB,3.7979E04_JPRB,3.3605E04_JPRB,&  
1466 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6665E04_JPRB,2.5064E04_JPRB,2.5043E02_JPRB/) 
1467  KAO( :, 5,10, 7) = (/&  
1468  & 4.7368E04_JPRB,5.5457E04_JPRB,5.6006E04_JPRB,5.4560E04_JPRB,5.1520E04_JPRB,4.6682E04_JPRB,&  
1469 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.9587E04_JPRB,3.0490E04_JPRB,2.5182E02_JPRB/) 
1470  KAO( :, 1,11, 7) = (/&  
1471  & 1.1672E04_JPRB,1.2865E04_JPRB,1.2575E04_JPRB,1.1552E04_JPRB,1.0159E04_JPRB,9.2164E05_JPRB,&  
1472 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.9270E05_JPRB,1.2653E04_JPRB,5.7559E02_JPRB/) 
1473  KAO( :, 2,11, 7) = (/&  
1474  & 1.6732E04_JPRB,1.8741E04_JPRB,1.8550E04_JPRB,1.7442E04_JPRB,1.5354E04_JPRB,1.3133E04_JPRB,&  
1475 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1767E04_JPRB,1.4329E04_JPRB,5.7684E02_JPRB/) 
1476  KAO( :, 3,11, 7) = (/&  
1477  & 2.3276E04_JPRB,2.6444E04_JPRB,2.6342E04_JPRB,2.5118E04_JPRB,2.2884E04_JPRB,1.9264E04_JPRB,&  
1478 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6524E04_JPRB,1.4558E04_JPRB,5.7855E02_JPRB/) 
1479  KAO( :, 4,11, 7) = (/&  
1480  & 3.1443E04_JPRB,3.6154E04_JPRB,3.6203E04_JPRB,3.4857E04_JPRB,3.2499E04_JPRB,2.8713E04_JPRB,&  
1481 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2934E04_JPRB,2.1182E04_JPRB,5.7981E02_JPRB/) 
1482  KAO( :, 5,11, 7) = (/&  
1483  & 4.1392E04_JPRB,4.8111E04_JPRB,4.8318E04_JPRB,4.6852E04_JPRB,4.4073E04_JPRB,3.9804E04_JPRB,&  
1484 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.3719E04_JPRB,2.5664E04_JPRB,5.8015E02_JPRB/) 
1485  KAO( :, 1,12, 7) = (/&  
1486  & 1.0495E04_JPRB,1.1425E04_JPRB,1.1065E04_JPRB,1.0139E04_JPRB,8.8702E05_JPRB,8.0270E05_JPRB,&  
1487 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.3227E05_JPRB,1.1035E04_JPRB,8.4777E02_JPRB/) 
1488  KAO( :, 2,12, 7) = (/&  
1489  & 1.4811E04_JPRB,1.6444E04_JPRB,1.6133E04_JPRB,1.5088E04_JPRB,1.3304E04_JPRB,1.1329E04_JPRB,&  
1490 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0211E04_JPRB,1.1814E04_JPRB,8.5052E02_JPRB/) 
1491  KAO( :, 3,12, 7) = (/&  
1492  & 2.0461E04_JPRB,2.3053E04_JPRB,2.2799E04_JPRB,2.1647E04_JPRB,1.9655E04_JPRB,1.6510E04_JPRB,&  
1493 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3813E04_JPRB,1.2052E04_JPRB,8.5320E02_JPRB/) 
1494  KAO( :, 4,12, 7) = (/&  
1495  & 2.7614E04_JPRB,3.1483E04_JPRB,3.1311E04_JPRB,3.0005E04_JPRB,2.7866E04_JPRB,2.4569E04_JPRB,&  
1496 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9595E04_JPRB,1.7650E04_JPRB,8.5551E02_JPRB/) 
1497  KAO( :, 5,12, 7) = (/&  
1498  & 3.6369E04_JPRB,4.1945E04_JPRB,4.1876E04_JPRB,4.0374E04_JPRB,3.7792E04_JPRB,3.3990E04_JPRB,&  
1499 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.8821E04_JPRB,2.1660E04_JPRB,8.5586E02_JPRB/) 
1500  KAO( :, 1,13, 7) = (/&  
1501  & 9.6451E05_JPRB,1.0341E04_JPRB,9.9264E05_JPRB,9.0436E05_JPRB,7.8283E05_JPRB,7.1353E05_JPRB,&  
1502 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.0038E05_JPRB,8.7127E05_JPRB,1.0017E01_JPRB/) 
1503  KAO( :, 2,13, 7) = (/&  
1504  & 1.3353E04_JPRB,1.4634E04_JPRB,1.4212E04_JPRB,1.3211E04_JPRB,1.1628E04_JPRB,9.7846E05_JPRB,&  
1505 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.8593E05_JPRB,9.9520E05_JPRB,1.0066E01_JPRB/) 
1506  KAO( :, 3,13, 7) = (/&  
1507  & 1.8247E04_JPRB,2.0319E04_JPRB,1.9922E04_JPRB,1.8770E04_JPRB,1.6984E04_JPRB,1.4285E04_JPRB,&  
1508 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1822E04_JPRB,1.0096E04_JPRB,1.0114E01_JPRB/) 
1509  KAO( :, 4,13, 7) = (/&  
1510  & 2.4463E04_JPRB,2.7635E04_JPRB,2.7262E04_JPRB,2.5991E04_JPRB,2.4023E04_JPRB,2.1109E04_JPRB,&  
1511 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6739E04_JPRB,1.4711E04_JPRB,1.0151E01_JPRB/) 
1512  KAO( :, 5,13, 7) = (/&  
1513  & 3.2023E04_JPRB,3.6781E04_JPRB,3.6463E04_JPRB,3.4949E04_JPRB,3.2644E04_JPRB,2.9244E04_JPRB,&  
1514 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4737E04_JPRB,1.8188E04_JPRB,1.0162E01_JPRB/) 
1515  KAO( :, 1, 1, 8) = (/&  
1516  & 4.4239E03_JPRB,4.5519E03_JPRB,4.5724E03_JPRB,4.4178E03_JPRB,4.2198E03_JPRB,4.0058E03_JPRB,&  
1517 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6615E03_JPRB,3.0019E03_JPRB,2.7752E03_JPRB/) 
1518  KAO( :, 2, 1, 8) = (/&  
1519  & 5.3797E03_JPRB,5.6034E03_JPRB,5.6810E03_JPRB,5.5458E03_JPRB,5.3768E03_JPRB,5.2131E03_JPRB,&  
1520 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.0349E03_JPRB,4.6587E03_JPRB,3.8056E03_JPRB/) 
1521  KAO( :, 3, 1, 8) = (/&  
1522  & 6.4347E03_JPRB,6.7859E03_JPRB,6.9273E03_JPRB,6.8482E03_JPRB,6.7118E03_JPRB,6.6177E03_JPRB,&  
1523 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.6013E03_JPRB,6.5225E03_JPRB,5.0401E03_JPRB/) 
1524  KAO( :, 4, 1, 8) = (/&  
1525  & 7.5645E03_JPRB,8.0892E03_JPRB,8.3352E03_JPRB,8.3083E03_JPRB,8.2560E03_JPRB,8.2611E03_JPRB,&  
1526 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.3847E03_JPRB,8.5252E03_JPRB,6.4996E03_JPRB/) 
1527  KAO( :, 5, 1, 8) = (/&  
1528  & 8.7680E03_JPRB,9.5130E03_JPRB,9.8898E03_JPRB,9.9473E03_JPRB,1.0011E02_JPRB,1.0143E02_JPRB,&  
1529 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0425E02_JPRB,1.0769E02_JPRB,8.2076E03_JPRB/) 
1530  KAO( :, 1, 2, 8) = (/&  
1531  & 3.8956E03_JPRB,4.0502E03_JPRB,4.0603E03_JPRB,3.9353E03_JPRB,3.7465E03_JPRB,3.4739E03_JPRB,&  
1532 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0905E03_JPRB,2.3943E03_JPRB,2.1184E03_JPRB/) 
1533  KAO( :, 2, 2, 8) = (/&  
1534  & 4.7918E03_JPRB,5.0484E03_JPRB,5.0971E03_JPRB,4.9960E03_JPRB,4.7901E03_JPRB,4.5311E03_JPRB,&  
1535 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2459E03_JPRB,3.8455E03_JPRB,2.9268E03_JPRB/) 
1536  KAO( :, 3, 2, 8) = (/&  
1537  & 5.7854E03_JPRB,6.1757E03_JPRB,6.2838E03_JPRB,6.2127E03_JPRB,6.0071E03_JPRB,5.7828E03_JPRB,&  
1538 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.6083E03_JPRB,5.4427E03_JPRB,3.9021E03_JPRB/) 
1539  KAO( :, 4, 2, 8) = (/&  
1540  & 6.8580E03_JPRB,7.4217E03_JPRB,7.6327E03_JPRB,7.5901E03_JPRB,7.4062E03_JPRB,7.2358E03_JPRB,&  
1541 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.1625E03_JPRB,7.2397E03_JPRB,5.0676E03_JPRB/) 
1542  KAO( :, 5, 2, 8) = (/&  
1543  & 8.0102E03_JPRB,8.7860E03_JPRB,9.1257E03_JPRB,9.1299E03_JPRB,8.9977E03_JPRB,8.9056E03_JPRB,&  
1544 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.9466E03_JPRB,9.2132E03_JPRB,6.4234E03_JPRB/) 
1545  KAO( :, 1, 3, 8) = (/&  
1546  & 3.2185E03_JPRB,3.3667E03_JPRB,3.3683E03_JPRB,3.2709E03_JPRB,3.1158E03_JPRB,2.8506E03_JPRB,&  
1547 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4272E03_JPRB,1.7393E03_JPRB,1.4905E03_JPRB/) 
1548  KAO( :, 2, 3, 8) = (/&  
1549  & 4.0272E03_JPRB,4.2617E03_JPRB,4.2966E03_JPRB,4.2148E03_JPRB,4.0495E03_JPRB,3.7679E03_JPRB,&  
1550 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.4096E03_JPRB,2.8817E03_JPRB,2.0706E03_JPRB/) 
1551  KAO( :, 3, 3, 8) = (/&  
1552  & 4.9255E03_JPRB,5.2838E03_JPRB,5.3750E03_JPRB,5.3109E03_JPRB,5.1338E03_JPRB,4.8398E03_JPRB,&  
1553 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.5501E03_JPRB,4.1909E03_JPRB,2.7937E03_JPRB/) 
1554  KAO( :, 4, 3, 8) = (/&  
1555  & 5.9079E03_JPRB,6.4325E03_JPRB,6.6107E03_JPRB,6.5630E03_JPRB,6.3820E03_JPRB,6.0909E03_JPRB,&  
1556 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.8611E03_JPRB,5.7562E03_JPRB,3.6692E03_JPRB/) 
1557  KAO( :, 5, 3, 8) = (/&  
1558  & 6.9696E03_JPRB,7.6975E03_JPRB,7.9877E03_JPRB,7.9811E03_JPRB,7.8040E03_JPRB,7.5290E03_JPRB,&  
1559 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.3615E03_JPRB,7.4650E03_JPRB,4.7053E03_JPRB/) 
1560  KAO( :, 1, 4, 8) = (/&  
1561  & 2.5545E03_JPRB,2.6859E03_JPRB,2.6880E03_JPRB,2.6203E03_JPRB,2.4823E03_JPRB,2.2588E03_JPRB,&  
1562 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8322E03_JPRB,1.2713E03_JPRB,1.0214E03_JPRB/) 
1563  KAO( :, 2, 4, 8) = (/&  
1564  & 3.2572E03_JPRB,3.4677E03_JPRB,3.4957E03_JPRB,3.4378E03_JPRB,3.2931E03_JPRB,3.0601E03_JPRB,&  
1565 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6717E03_JPRB,2.0170E03_JPRB,1.4352E03_JPRB/) 
1566  KAO( :, 3, 4, 8) = (/&  
1567  & 4.0447E03_JPRB,4.3684E03_JPRB,4.4456E03_JPRB,4.3951E03_JPRB,4.2405E03_JPRB,3.9923E03_JPRB,&  
1568 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6333E03_JPRB,3.0944E03_JPRB,1.9579E03_JPRB/) 
1569  KAO( :, 4, 4, 8) = (/&  
1570  & 4.9198E03_JPRB,5.3921E03_JPRB,5.5389E03_JPRB,5.5062E03_JPRB,5.3434E03_JPRB,5.0807E03_JPRB,&  
1571 
2/2✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.

10  & 4.7402E03_JPRB,4.4587E03_JPRB,2.6028E03_JPRB/) 
1572  
1573 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

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

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART6',0,ZHOOK_HANDLE) 
1581  
1582  
1583  KAO( :, 5, 4, 8) = (/&  
1584  & 5.8819E03_JPRB,6.5317E03_JPRB,6.7822E03_JPRB,6.7765E03_JPRB,6.6162E03_JPRB,6.3253E03_JPRB,&  
1585 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.9954E03_JPRB,5.8840E03_JPRB,3.3755E03_JPRB/) 
1586  KAO( :, 1, 5, 8) = (/&  
1587  & 1.9756E03_JPRB,2.0856E03_JPRB,2.0921E03_JPRB,2.0392E03_JPRB,1.9309E03_JPRB,1.7377E03_JPRB,&  
1588 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3394E03_JPRB,9.1353E04_JPRB,7.0438E04_JPRB/) 
1589  KAO( :, 2, 5, 8) = (/&  
1590  & 2.5687E03_JPRB,2.7468E03_JPRB,2.7774E03_JPRB,2.7346E03_JPRB,2.6141E03_JPRB,2.4178E03_JPRB,&  
1591 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0843E03_JPRB,1.3471E03_JPRB,9.9854E04_JPRB/) 
1592  KAO( :, 3, 5, 8) = (/&  
1593  & 3.2454E03_JPRB,3.5226E03_JPRB,3.5942E03_JPRB,3.5589E03_JPRB,3.4246E03_JPRB,3.2139E03_JPRB,&  
1594 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.8968E03_JPRB,2.2808E03_JPRB,1.3756E03_JPRB/) 
1595  KAO( :, 4, 5, 8) = (/&  
1596  & 4.0078E03_JPRB,4.4135E03_JPRB,4.5464E03_JPRB,4.5227E03_JPRB,4.3801E03_JPRB,4.1565E03_JPRB,&  
1597 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8227E03_JPRB,3.4129E03_JPRB,1.8460E03_JPRB/) 
1598  KAO( :, 5, 5, 8) = (/&  
1599  & 4.8571E03_JPRB,5.4208E03_JPRB,5.6379E03_JPRB,5.6316E03_JPRB,5.4908E03_JPRB,5.2408E03_JPRB,&  
1600 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.8842E03_JPRB,4.5932E03_JPRB,2.4240E03_JPRB/) 
1601  KAO( :, 1, 6, 8) = (/&  
1602  & 1.4751E03_JPRB,1.5649E03_JPRB,1.5698E03_JPRB,1.5250E03_JPRB,1.4367E03_JPRB,1.2692E03_JPRB,&  
1603 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.2432E04_JPRB,6.8601E04_JPRB,5.0937E04_JPRB/) 
1604  KAO( :, 2, 6, 8) = (/&  
1605  & 1.9613E03_JPRB,2.1071E03_JPRB,2.1348E03_JPRB,2.0943E03_JPRB,1.9976E03_JPRB,1.8330E03_JPRB,&  
1606 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5334E03_JPRB,9.4512E04_JPRB,7.0634E04_JPRB/) 
1607  KAO( :, 3, 6, 8) = (/&  
1608  & 2.5283E03_JPRB,2.7572E03_JPRB,2.8184E03_JPRB,2.7830E03_JPRB,2.6756E03_JPRB,2.5003E03_JPRB,&  
1609 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2237E03_JPRB,1.6320E03_JPRB,9.7275E04_JPRB/) 
1610  KAO( :, 4, 6, 8) = (/&  
1611  & 3.1771E03_JPRB,3.5120E03_JPRB,3.6225E03_JPRB,3.5959E03_JPRB,3.4819E03_JPRB,3.2887E03_JPRB,&  
1612 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0155E03_JPRB,2.5468E03_JPRB,1.3152E03_JPRB/) 
1613  KAO( :, 5, 6, 8) = (/&  
1614  & 3.9082E03_JPRB,4.3796E03_JPRB,4.5491E03_JPRB,4.5475E03_JPRB,4.4280E03_JPRB,4.2073E03_JPRB,&  
1615 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.9106E03_JPRB,3.5240E03_JPRB,1.7410E03_JPRB/) 
1616  KAO( :, 1, 7, 8) = (/&  
1617  & 1.0756E03_JPRB,1.1457E03_JPRB,1.1474E03_JPRB,1.1092E03_JPRB,1.0328E03_JPRB,8.8328E04_JPRB,&  
1618 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.4847E04_JPRB,4.9589E04_JPRB,5.7093E04_JPRB/) 
1619  KAO( :, 2, 7, 8) = (/&  
1620  & 1.4649E03_JPRB,1.5820E03_JPRB,1.5990E03_JPRB,1.5629E03_JPRB,1.4809E03_JPRB,1.3423E03_JPRB,&  
1621 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0733E03_JPRB,6.5945E04_JPRB,6.7059E04_JPRB/) 
1622  KAO( :, 3, 7, 8) = (/&  
1623  & 1.9283E03_JPRB,2.1130E03_JPRB,2.1564E03_JPRB,2.1214E03_JPRB,2.0320E03_JPRB,1.8875E03_JPRB,&  
1624 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6475E03_JPRB,1.0998E03_JPRB,8.2028E04_JPRB/) 
1625  KAO( :, 4, 7, 8) = (/&  
1626  & 2.4693E03_JPRB,2.7409E03_JPRB,2.8220E03_JPRB,2.7928E03_JPRB,2.6936E03_JPRB,2.5390E03_JPRB,&  
1627 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3115E03_JPRB,1.8751E03_JPRB,1.0332E03_JPRB/) 
1628  KAO( :, 5, 7, 8) = (/&  
1629  & 3.0886E03_JPRB,3.4749E03_JPRB,3.5989E03_JPRB,3.5853E03_JPRB,3.4794E03_JPRB,3.3014E03_JPRB,&  
1630 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0555E03_JPRB,2.6855E03_JPRB,1.3202E03_JPRB/) 
1631  KAO( :, 1, 8, 8) = (/&  
1632  & 7.7013E04_JPRB,8.2269E04_JPRB,8.2096E04_JPRB,7.8766E04_JPRB,7.2051E04_JPRB,5.9734E04_JPRB,&  
1633 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.5221E04_JPRB,3.6815E04_JPRB,1.2465E03_JPRB/) 
1634  KAO( :, 2, 8, 8) = (/&  
1635  & 1.0761E03_JPRB,1.1666E03_JPRB,1.1753E03_JPRB,1.1418E03_JPRB,1.0747E03_JPRB,9.5486E04_JPRB,&  
1636 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.2722E04_JPRB,4.9024E04_JPRB,1.3265E03_JPRB/) 
1637  KAO( :, 3, 8, 8) = (/&  
1638  & 1.4486E03_JPRB,1.5933E03_JPRB,1.6206E03_JPRB,1.5872E03_JPRB,1.5112E03_JPRB,1.3931E03_JPRB,&  
1639 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1791E03_JPRB,7.7032E04_JPRB,1.4183E03_JPRB/) 
1640  KAO( :, 4, 8, 8) = (/&  
1641  & 1.8914E03_JPRB,2.1096E03_JPRB,2.1595E03_JPRB,2.1285E03_JPRB,2.0449E03_JPRB,1.9150E03_JPRB,&  
1642 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7248E03_JPRB,1.3234E03_JPRB,1.5297E03_JPRB/) 
1643  KAO( :, 5, 8, 8) = (/&  
1644  & 2.4078E03_JPRB,2.7196E03_JPRB,2.8008E03_JPRB,2.7757E03_JPRB,2.6827E03_JPRB,2.5404E03_JPRB,&  
1645 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3451E03_JPRB,2.0264E03_JPRB,1.6770E03_JPRB/) 
1646  KAO( :, 1, 9, 8) = (/&  
1647  & 5.4062E04_JPRB,5.7894E04_JPRB,5.7406E04_JPRB,5.4447E04_JPRB,4.8698E04_JPRB,3.9028E04_JPRB,&  
1648 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0735E04_JPRB,2.8186E04_JPRB,6.3377E03_JPRB/) 
1649  KAO( :, 2, 9, 8) = (/&  
1650  & 7.7655E04_JPRB,8.4391E04_JPRB,8.4599E04_JPRB,8.1629E04_JPRB,7.6016E04_JPRB,6.5450E04_JPRB,&  
1651 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.7980E04_JPRB,3.6416E04_JPRB,6.4305E03_JPRB/) 
1652  KAO( :, 3, 9, 8) = (/&  
1653  & 1.0705E03_JPRB,1.1799E03_JPRB,1.1936E03_JPRB,1.1638E03_JPRB,1.1017E03_JPRB,1.0023E03_JPRB,&  
1654 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.1517E04_JPRB,5.4679E04_JPRB,6.5495E03_JPRB/) 
1655  KAO( :, 4, 9, 8) = (/&  
1656  & 1.4270E03_JPRB,1.5951E03_JPRB,1.6232E03_JPRB,1.5910E03_JPRB,1.5219E03_JPRB,1.4168E03_JPRB,&  
1657 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2519E03_JPRB,8.7875E04_JPRB,6.6729E03_JPRB/) 
1658  KAO( :, 5, 9, 8) = (/&  
1659  & 1.8505E03_JPRB,2.0950E03_JPRB,2.1415E03_JPRB,2.1108E03_JPRB,2.0308E03_JPRB,1.9153E03_JPRB,&  
1660 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7561E03_JPRB,1.4678E03_JPRB,6.8190E03_JPRB/) 
1661  KAO( :, 1,10, 8) = (/&  
1662  & 3.8585E04_JPRB,4.1375E04_JPRB,4.0806E04_JPRB,3.8295E04_JPRB,3.3374E04_JPRB,2.6302E04_JPRB,&  
1663 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.1519E04_JPRB,2.1943E04_JPRB,4.4307E02_JPRB/) 
1664  KAO( :, 2,10, 8) = (/&  
1665  & 5.6783E04_JPRB,6.1776E04_JPRB,6.1659E04_JPRB,5.9118E04_JPRB,5.4276E04_JPRB,4.5386E04_JPRB,&  
1666 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.3714E04_JPRB,2.8172E04_JPRB,4.4039E02_JPRB/) 
1667  KAO( :, 3,10, 8) = (/&  
1668  & 7.9994E04_JPRB,8.8269E04_JPRB,8.8820E04_JPRB,8.6201E04_JPRB,8.1182E04_JPRB,7.2562E04_JPRB,&  
1669 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.6386E04_JPRB,3.8153E04_JPRB,4.3887E02_JPRB/) 
1670  KAO( :, 4,10, 8) = (/&  
1671  & 1.0873E03_JPRB,1.2167E03_JPRB,1.2305E03_JPRB,1.2016E03_JPRB,1.1439E03_JPRB,1.0569E03_JPRB,&  
1672 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.1489E04_JPRB,6.0012E04_JPRB,4.3695E02_JPRB/) 
1673  KAO( :, 5,10, 8) = (/&  
1674  & 1.4329E03_JPRB,1.6260E03_JPRB,1.6511E03_JPRB,1.6186E03_JPRB,1.5509E03_JPRB,1.4549E03_JPRB,&  
1675 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3198E03_JPRB,1.0619E03_JPRB,4.3454E02_JPRB/) 
1676  KAO( :, 1,11, 8) = (/&  
1677  & 3.3331E04_JPRB,3.5859E04_JPRB,3.5347E04_JPRB,3.3213E04_JPRB,2.8916E04_JPRB,2.2877E04_JPRB,&  
1678 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7900E04_JPRB,1.9967E04_JPRB,1.0878E01_JPRB/) 