Directory:  ./ 

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

Lines:  1908  1908  100.0% 
Branches:  3670  3706  99.0% 
Line  Branch  Exec  Source 

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

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB7',0,ZHOOK_HANDLE) 
25  
26  1  CALL PART1  
27  1  CALL PART2  
28  1  CALL PART3  
29  1  CALL PART4  
30  1  CALL PART5  
31  1  CALL PART6  
32  1  CALL PART7  
33  1  CALL PART8  
34  1  CALL PART9  
35  1  CALL PART10  
36  1  CALL PART11  
37  1  CALL PART12  
38  1  CALL PART13  
39  1  CALL PART14  
40  1  CALL PART15  
41  1  CALL PART16  
42  1  CALL PART17  
43  
44 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB7',1,ZHOOK_HANDLE) 
45  
46  !   
47  
48  CONTAINS  
49  
50  
51  1  SUBROUTINE PART1  
52  
53  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
54 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART1',0,ZHOOK_HANDLE) 
55  
56  
57  FRACREFBO( :) = (/&  
58  & 0.15355594_JPRB,0.15310939_JPRB,0.14274909_JPRB,0.13129812_JPRB,&  
59  & 0.11736792_JPRB,0.10118213_JPRB,0.08215259_JPRB,0.06165591_JPRB,&  
60  & 0.04164486_JPRB,0.00451141_JPRB,0.00372837_JPRB,0.00294095_JPRB,&  
61  1  & 0.00215259_JPRB,0.00136792_JPRB,0.00051233_JPRB,0.00007075_JPRB/)  
62  
63  ABSCO2O( :) = (/&  
64  & 9.30038E05_JPRB, 1.74061E04_JPRB, 2.09293E04_JPRB, 2.52360E04_JPRB,&  
65  & 3.13404E04_JPRB, 4.16619E04_JPRB, 6.27394E04_JPRB, 1.29386E03_JPRB,&  
66  & 4.05192E03_JPRB, 3.97050E03_JPRB, 7.00634E04_JPRB, 6.06617E04_JPRB,&  
67  1  & 7.66978E04_JPRB, 6.70661E04_JPRB, 7.89971E04_JPRB, 7.55709E04_JPRB/)  
68  
69  1  STRRAT = 8.21104E+04_JPRB  
70  
71  !   
72  
73  ! The array KAO contains absorption coefs at the 16 chosen gvalues  
74  ! for a range of pressure levels> ~100mb, temperatures, and binary  
75  ! species parameters (see taumol.f for definition). The first  
76  ! index in the array, JS, runs from 1 to 9, and corresponds to  
77  ! different values of the binary species parameter. For instance,  
78  ! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8,  
79  ! JS = 3 corresponds to the parameter value 2/8, etc. The second index  
80  ! in the array, JT, which runs from 1 to 5, corresponds to different  
81  ! temperatures. More specifically, JT = 3 means that the data are for  
82  ! the reference temperature TREF for this pressure level, JT = 2 refers  
83  ! to TREF15, JT = 1 is for TREF30, JT = 4 is for TREF+15, and JT = 5  
84  ! is for TREF+30. The third index, JP, runs from 1 to 13 and refers  
85  ! to the JPth reference pressure level (see taumol.f for these levels  
86  ! in mb). The fourth index, IG, goes from 1 to 16, and indicates  
87  ! which ginterval the absorption coefficients are for.  
88  
89  KAO( :, 1, 1, 1) = (/&  
90  & 2.2177E05_JPRB,2.0513E05_JPRB,1.8414E05_JPRB,1.6282E05_JPRB,1.4597E05_JPRB,1.7000E05_JPRB,&  
91 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.1783E05_JPRB,2.9548E05_JPRB,2.0326E05_JPRB/) 
92  KAO( :, 2, 1, 1) = (/&  
93  & 2.9476E05_JPRB,2.7495E05_JPRB,2.4720E05_JPRB,2.1727E05_JPRB,1.8690E05_JPRB,1.6642E05_JPRB,&  
94 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2418E05_JPRB,3.4177E05_JPRB,1.9700E05_JPRB/) 
95  KAO( :, 3, 1, 1) = (/&  
96  & 3.7965E05_JPRB,3.5737E05_JPRB,3.2254E05_JPRB,2.8364E05_JPRB,2.4321E05_JPRB,2.0140E05_JPRB,&  
97 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9338E05_JPRB,3.5856E05_JPRB,1.9799E05_JPRB/) 
98  KAO( :, 4, 1, 1) = (/&  
99  & 4.7589E05_JPRB,4.5238E05_JPRB,4.1024E05_JPRB,3.6253E05_JPRB,3.0918E05_JPRB,2.5365E05_JPRB,&  
100 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0061E05_JPRB,3.1406E05_JPRB,1.8985E05_JPRB/) 
101  KAO( :, 5, 1, 1) = (/&  
102  & 5.8133E05_JPRB,5.5835E05_JPRB,5.0877E05_JPRB,4.5058E05_JPRB,3.8486E05_JPRB,3.1429E05_JPRB,&  
103 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4355E05_JPRB,2.3465E05_JPRB,1.9414E05_JPRB/) 
104  KAO( :, 1, 2, 1) = (/&  
105  & 1.7361E05_JPRB,1.6018E05_JPRB,1.4350E05_JPRB,1.2700E05_JPRB,1.2303E05_JPRB,1.7164E05_JPRB,&  
106 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.1474E05_JPRB,2.4947E05_JPRB,1.4706E05_JPRB/) 
107  KAO( :, 2, 2, 1) = (/&  
108  & 2.3361E05_JPRB,2.1726E05_JPRB,1.9465E05_JPRB,1.7053E05_JPRB,1.4815E05_JPRB,1.4858E05_JPRB,&  
109 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3603E05_JPRB,2.7767E05_JPRB,1.5833E05_JPRB/) 
110  KAO( :, 3, 2, 1) = (/&  
111  & 3.0408E05_JPRB,2.8494E05_JPRB,2.5606E05_JPRB,2.2430E05_JPRB,1.9084E05_JPRB,1.6104E05_JPRB,&  
112 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8012E05_JPRB,3.1460E05_JPRB,1.6197E05_JPRB/) 
113  KAO( :, 4, 2, 1) = (/&  
114  & 3.8408E05_JPRB,3.6296E05_JPRB,3.2790E05_JPRB,2.8865E05_JPRB,2.4498E05_JPRB,1.9967E05_JPRB,&  
115 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6925E05_JPRB,3.2098E05_JPRB,1.4117E05_JPRB/) 
116  KAO( :, 5, 2, 1) = (/&  
117  & 4.7278E05_JPRB,4.5107E05_JPRB,4.0996E05_JPRB,3.6211E05_JPRB,3.0776E05_JPRB,2.4989E05_JPRB,&  
118 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9312E05_JPRB,2.3551E05_JPRB,1.4164E05_JPRB/) 
119  KAO( :, 1, 3, 1) = (/&  
120  & 1.2199E05_JPRB,1.1359E05_JPRB,1.0200E05_JPRB,9.6275E06_JPRB,1.2031E05_JPRB,1.8466E05_JPRB,&  
121 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2967E05_JPRB,2.1740E05_JPRB,1.1424E05_JPRB/) 
122  KAO( :, 2, 3, 1) = (/&  
123  & 1.6733E05_JPRB,1.5628E05_JPRB,1.3980E05_JPRB,1.2308E05_JPRB,1.1642E05_JPRB,1.5244E05_JPRB,&  
124 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.7219E05_JPRB,2.2185E05_JPRB,1.1890E05_JPRB/) 
125  KAO( :, 3, 3, 1) = (/&  
126  & 2.2207E05_JPRB,2.0825E05_JPRB,1.8647E05_JPRB,1.6328E05_JPRB,1.4051E05_JPRB,1.3615E05_JPRB,&  
127 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0537E05_JPRB,2.5366E05_JPRB,1.0328E05_JPRB/) 
128  KAO( :, 4, 3, 1) = (/&  
129  & 2.8575E05_JPRB,2.6953E05_JPRB,2.4203E05_JPRB,2.1170E05_JPRB,1.7963E05_JPRB,1.5129E05_JPRB,&  
130 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6245E05_JPRB,2.7906E05_JPRB,8.9114E06_JPRB/) 
131  KAO( :, 5, 3, 1) = (/&  
132  & 3.5718E05_JPRB,3.3927E05_JPRB,3.0634E05_JPRB,2.6847E05_JPRB,2.2736E05_JPRB,1.8593E05_JPRB,&  
133 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5444E05_JPRB,2.7715E05_JPRB,7.5424E06_JPRB/) 
134  KAO( :, 1, 4, 1) = (/&  
135  & 8.2740E06_JPRB,7.8120E06_JPRB,7.3229E06_JPRB,7.9409E06_JPRB,1.1817E05_JPRB,2.0000E05_JPRB,&  
136 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7036E05_JPRB,1.6859E05_JPRB,8.3202E06_JPRB/) 
137  KAO( :, 2, 4, 1) = (/&  
138  & 1.1549E05_JPRB,1.0930E05_JPRB,9.8917E06_JPRB,9.2790E06_JPRB,1.0972E05_JPRB,1.6368E05_JPRB,&  
139 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0889E05_JPRB,1.9211E05_JPRB,7.1922E06_JPRB/) 
140  KAO( :, 3, 4, 1) = (/&  
141  & 1.5581E05_JPRB,1.4791E05_JPRB,1.3288E05_JPRB,1.1769E05_JPRB,1.1067E05_JPRB,1.3703E05_JPRB,&  
142 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3763E05_JPRB,1.9912E05_JPRB,5.4002E06_JPRB/) 
143  KAO( :, 4, 4, 1) = (/&  
144  & 2.0367E05_JPRB,1.9416E05_JPRB,1.7464E05_JPRB,1.5301E05_JPRB,1.3238E05_JPRB,1.2747E05_JPRB,&  
145 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8197E05_JPRB,2.2927E05_JPRB,4.7781E06_JPRB/) 
146  KAO( :, 5, 4, 1) = (/&  
147  & 2.5890E05_JPRB,2.4787E05_JPRB,2.2347E05_JPRB,1.9553E05_JPRB,1.6603E05_JPRB,1.3957E05_JPRB,&  
148 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4873E05_JPRB,2.4745E05_JPRB,6.3734E06_JPRB/) 
149  KAO( :, 1, 5, 1) = (/&  
150  & 5.5869E06_JPRB,5.3398E06_JPRB,5.3975E06_JPRB,7.5444E06_JPRB,1.2793E05_JPRB,1.5045E05_JPRB,&  
151 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3730E05_JPRB,1.2376E05_JPRB,4.7266E06_JPRB/) 
152  KAO( :, 2, 5, 1) = (/&  
153  & 7.8874E06_JPRB,7.5569E06_JPRB,7.0693E06_JPRB,7.4130E06_JPRB,1.0864E05_JPRB,1.7853E05_JPRB,&  
154 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5643E05_JPRB,1.6221E05_JPRB,3.5143E06_JPRB/) 
155  KAO( :, 3, 5, 1) = (/&  
156  & 1.0780E05_JPRB,1.0380E05_JPRB,9.4898E06_JPRB,8.8724E06_JPRB,9.9994E06_JPRB,1.4704E05_JPRB,&  
157 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8972E05_JPRB,1.7347E05_JPRB,2.8694E06_JPRB/) 
158  KAO( :, 4, 5, 1) = (/&  
159  & 1.4284E05_JPRB,1.3812E05_JPRB,1.2569E05_JPRB,1.1246E05_JPRB,1.0513E05_JPRB,1.2455E05_JPRB,&  
160 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.1138E05_JPRB,1.8036E05_JPRB,3.9174E06_JPRB/) 
161  KAO( :, 5, 5, 1) = (/&  
162  & 1.8381E05_JPRB,1.7863E05_JPRB,1.6238E05_JPRB,1.4332E05_JPRB,1.2479E05_JPRB,1.1807E05_JPRB,&  
163 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6766E05_JPRB,2.0636E05_JPRB,5.6357E06_JPRB/) 
164  KAO( :, 1, 6, 1) = (/&  
165  & 3.7614E06_JPRB,3.6612E06_JPRB,4.2770E06_JPRB,7.9260E06_JPRB,1.2929E05_JPRB,1.1264E05_JPRB,&  
166 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2098E05_JPRB,9.0224E06_JPRB,2.4844E06_JPRB/) 
167  KAO( :, 2, 6, 1) = (/&  
168  & 5.3574E06_JPRB,5.1717E06_JPRB,5.1909E06_JPRB,6.9736E06_JPRB,1.1707E05_JPRB,1.3896E05_JPRB,&  
169 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2589E05_JPRB,1.2103E05_JPRB,1.8407E06_JPRB/) 
170  KAO( :, 3, 6, 1) = (/&  
171  & 7.3957E06_JPRB,7.1617E06_JPRB,6.7263E06_JPRB,7.0062E06_JPRB,1.0148E05_JPRB,1.6269E05_JPRB,&  
172 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4268E05_JPRB,1.5386E05_JPRB,2.1237E06_JPRB/) 
173  KAO( :, 4, 6, 1) = (/&  
174  & 9.9154E06_JPRB,9.6620E06_JPRB,8.9048E06_JPRB,8.3244E06_JPRB,9.2342E06_JPRB,1.3655E05_JPRB,&  
175 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7166E05_JPRB,1.5743E05_JPRB,3.1741E06_JPRB/) 
176  KAO( :, 5, 6, 1) = (/&  
177  & 1.2917E05_JPRB,1.2663E05_JPRB,1.1620E05_JPRB,1.0475E05_JPRB,9.8347E06_JPRB,1.1480E05_JPRB,&  
178 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8999E05_JPRB,1.6296E05_JPRB,4.8288E06_JPRB/) 
179  KAO( :, 1, 7, 1) = (/&  
180  & 2.5698E06_JPRB,2.6225E06_JPRB,4.3229E06_JPRB,9.1260E06_JPRB,9.6331E06_JPRB,9.4890E06_JPRB,&  
181 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.7898E06_JPRB,6.9652E06_JPRB,1.3336E06_JPRB/) 
182  KAO( :, 2, 7, 1) = (/&  
183  & 3.6949E06_JPRB,3.6079E06_JPRB,4.1418E06_JPRB,7.5616E06_JPRB,1.2142E05_JPRB,1.0521E05_JPRB,&  
184 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1728E05_JPRB,8.9866E06_JPRB,1.2052E06_JPRB/) 
185  KAO( :, 3, 7, 1) = (/&  
186  & 5.1506E06_JPRB,5.0082E06_JPRB,4.9832E06_JPRB,6.5372E06_JPRB,1.0639E05_JPRB,1.2818E05_JPRB,&  
187 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1491E05_JPRB,1.1845E05_JPRB,1.7476E06_JPRB/) 
188  KAO( :, 4, 7, 1) = (/&  
189  & 6.9721E06_JPRB,6.8111E06_JPRB,6.4221E06_JPRB,6.6314E06_JPRB,9.5364E06_JPRB,1.4735E05_JPRB,&  
190 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3056E05_JPRB,1.4613E05_JPRB,2.7527E06_JPRB/) 
191  KAO( :, 5, 7, 1) = (/&  
192  & 9.1741E06_JPRB,9.0313E06_JPRB,8.3715E06_JPRB,7.8432E06_JPRB,8.4495E06_JPRB,1.2715E05_JPRB,&  
193 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5629E05_JPRB,1.4305E05_JPRB,4.3096E06_JPRB/) 
194  KAO( :, 1, 8, 1) = (/&  
195  & 1.7756E06_JPRB,2.0634E06_JPRB,5.0880E06_JPRB,8.2373E06_JPRB,7.8177E06_JPRB,7.9286E06_JPRB,&  
196 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.3775E06_JPRB,5.4113E06_JPRB,9.3762E07_JPRB/) 
197  KAO( :, 2, 8, 1) = (/&  
198  & 2.5589E06_JPRB,2.6026E06_JPRB,4.1994E06_JPRB,8.7611E06_JPRB,9.1501E06_JPRB,8.9485E06_JPRB,&  
199 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.8743E06_JPRB,7.1784E06_JPRB,1.1824E06_JPRB/) 
200  KAO( :, 3, 8, 1) = (/&  
201  & 3.5966E06_JPRB,3.5351E06_JPRB,4.0408E06_JPRB,7.3057E06_JPRB,1.1311E05_JPRB,9.8836E06_JPRB,&  
202 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0943E05_JPRB,9.1050E06_JPRB,1.7854E06_JPRB/) 
203  KAO( :, 4, 8, 1) = (/&  
204  & 4.9051E06_JPRB,4.8155E06_JPRB,4.7641E06_JPRB,6.2802E06_JPRB,1.0233E05_JPRB,1.1811E05_JPRB,&  
205 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0660E05_JPRB,1.1545E05_JPRB,2.8335E06_JPRB/) 
206  KAO( :, 5, 8, 1) = (/&  
207  & 6.5079E06_JPRB,6.4275E06_JPRB,6.0806E06_JPRB,6.2850E06_JPRB,8.9855E06_JPRB,1.3690E05_JPRB,&  
208 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2091E05_JPRB,1.3991E05_JPRB,4.4905E06_JPRB/) 
209  KAO( :, 1, 9, 1) = (/&  
210  & 1.2486E06_JPRB,2.0772E06_JPRB,6.3261E06_JPRB,6.5239E06_JPRB,6.7379E06_JPRB,5.7685E06_JPRB,&  
211 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.7923E06_JPRB,4.4775E06_JPRB,2.0431E06_JPRB/) 
212  KAO( :, 2, 9, 1) = (/&  
213  & 1.8028E06_JPRB,2.0516E06_JPRB,4.9892E06_JPRB,7.9160E06_JPRB,7.4534E06_JPRB,8.0589E06_JPRB,&  
214 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.6119E06_JPRB,5.7051E06_JPRB,2.4856E06_JPRB/) 
215  KAO( :, 3, 9, 1) = (/&  
216  & 2.5445E06_JPRB,2.5819E06_JPRB,4.1305E06_JPRB,8.3727E06_JPRB,8.7276E06_JPRB,8.5620E06_JPRB,&  
217 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.8118E06_JPRB,7.4196E06_JPRB,3.4314E06_JPRB/) 
218  KAO( :, 4, 9, 1) = (/&  
219  & 3.4959E06_JPRB,3.4634E06_JPRB,3.9749E06_JPRB,7.0571E06_JPRB,1.0574E05_JPRB,9.2822E06_JPRB,&  
220 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0319E05_JPRB,9.2300E06_JPRB,5.1599E06_JPRB/) 
221  KAO( :, 5, 9, 1) = (/&  
222  & 4.6733E06_JPRB,4.6321E06_JPRB,4.5821E06_JPRB,6.0749E06_JPRB,9.9333E06_JPRB,1.0979E05_JPRB,&  
223 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0111E05_JPRB,1.1271E05_JPRB,8.0274E06_JPRB/) 
224  KAO( :, 1,10, 1) = (/&  
225  & 9.1025E07_JPRB,2.4528E06_JPRB,5.5726E06_JPRB,5.5107E06_JPRB,5.1975E06_JPRB,4.4519E06_JPRB,&  
226 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8745E06_JPRB,3.7574E06_JPRB,7.2814E06_JPRB/) 
227  KAO( :, 2,10, 1) = (/&  
228  & 1.3156E06_JPRB,2.0527E06_JPRB,6.2782E06_JPRB,6.4430E06_JPRB,6.8843E06_JPRB,6.1546E06_JPRB,&  
229 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1800E06_JPRB,4.8780E06_JPRB,8.0238E06_JPRB/) 
230  KAO( :, 3,10, 1) = (/&  
231  & 1.8603E06_JPRB,2.0830E06_JPRB,5.0693E06_JPRB,7.7258E06_JPRB,7.2719E06_JPRB,8.2740E06_JPRB,&  
232 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.9520E06_JPRB,6.2927E06_JPRB,9.9400E06_JPRB/) 
233  KAO( :, 4,10, 1) = (/&  
234  & 2.5643E06_JPRB,2.6119E06_JPRB,4.1284E06_JPRB,8.2194E06_JPRB,8.3768E06_JPRB,8.2923E06_JPRB,&  
235 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.9244E06_JPRB,7.7919E06_JPRB,1.3755E05_JPRB/) 
236  KAO( :, 5,10, 1) = (/&  
237  & 3.4396E06_JPRB,3.4402E06_JPRB,3.9520E06_JPRB,6.9781E06_JPRB,9.9688E06_JPRB,8.9208E06_JPRB,&  
238 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0073E05_JPRB,9.4585E06_JPRB,2.0482E05_JPRB/) 
239  KAO( :, 1,11, 1) = (/&  
240  & 7.9990E07_JPRB,2.6784E06_JPRB,5.0182E06_JPRB,5.2703E06_JPRB,4.7427E06_JPRB,4.1219E06_JPRB,&  
241 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7030E06_JPRB,3.7980E06_JPRB,1.0212E05_JPRB/) 
242  KAO( :, 2,11, 1) = (/&  
243  & 1.1506E06_JPRB,2.1675E06_JPRB,6.1676E06_JPRB,5.9511E06_JPRB,6.4671E06_JPRB,5.5707E06_JPRB,&  
244 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.8102E06_JPRB,4.7946E06_JPRB,1.1170E05_JPRB/) 
245  KAO( :, 3,11, 1) = (/&  
246  & 1.6161E06_JPRB,1.9795E06_JPRB,5.4689E06_JPRB,6.8567E06_JPRB,6.9277E06_JPRB,7.3643E06_JPRB,&  
247 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.3255E06_JPRB,6.0154E06_JPRB,1.3679E05_JPRB/) 
248  KAO( :, 4,11, 1) = (/&  
249  & 2.2097E06_JPRB,2.3135E06_JPRB,4.4934E06_JPRB,8.2433E06_JPRB,7.5005E06_JPRB,8.0757E06_JPRB,&  
250 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.0043E06_JPRB,7.4062E06_JPRB,1.8725E05_JPRB/) 
251  KAO( :, 5,11, 1) = (/&  
252  & 2.9383E06_JPRB,2.9710E06_JPRB,3.8010E06_JPRB,7.4323E06_JPRB,8.7355E06_JPRB,8.0970E06_JPRB,&  
253 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.6640E06_JPRB,8.8290E06_JPRB,2.7664E05_JPRB/) 
254  KAO( :, 1,12, 1) = (/&  
255  & 7.0941E07_JPRB,2.6297E06_JPRB,4.5700E06_JPRB,4.9667E06_JPRB,4.3747E06_JPRB,3.8263E06_JPRB,&  
256 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.4506E06_JPRB,3.6352E06_JPRB,1.0764E05_JPRB/) 
257  KAO( :, 2,12, 1) = (/&  
258  & 1.0191E06_JPRB,2.0344E06_JPRB,5.5461E06_JPRB,5.4627E06_JPRB,5.8842E06_JPRB,5.0801E06_JPRB,&  
259 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.4391E06_JPRB,4.4109E06_JPRB,1.1741E05_JPRB/) 
260  KAO( :, 3,12, 1) = (/&  
261  & 1.4279E06_JPRB,1.8013E06_JPRB,5.3154E06_JPRB,6.1728E06_JPRB,6.3556E06_JPRB,6.6152E06_JPRB,&  
262 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.7465E06_JPRB,5.5323E06_JPRB,1.4320E05_JPRB/) 
263  KAO( :, 4,12, 1) = (/&  
264  & 1.9430E06_JPRB,2.0642E06_JPRB,4.3928E06_JPRB,7.3526E06_JPRB,6.7817E06_JPRB,7.5948E06_JPRB,&  
265 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.1609E06_JPRB,6.7682E06_JPRB,1.9523E05_JPRB/) 
266  KAO( :, 5,12, 1) = (/&  
267  & 2.5711E06_JPRB,2.6172E06_JPRB,3.5411E06_JPRB,7.1217E06_JPRB,7.7996E06_JPRB,7.3436E06_JPRB,&  
268 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.5622E06_JPRB,7.9225E06_JPRB,2.8755E05_JPRB/) 
269  KAO( :, 1,13, 1) = (/&  
270  & 6.2420E07_JPRB,2.5595E06_JPRB,4.1789E06_JPRB,4.5948E06_JPRB,4.0362E06_JPRB,3.5472E06_JPRB,&  
271 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2436E06_JPRB,3.4107E06_JPRB,9.1608E06_JPRB/) 
272  KAO( :, 2,13, 1) = (/&  
273  & 8.9615E07_JPRB,1.9079E06_JPRB,4.9940E06_JPRB,5.0423E06_JPRB,5.3353E06_JPRB,4.6287E06_JPRB,&  
274 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.1017E06_JPRB,4.1244E06_JPRB,9.9901E06_JPRB/) 
275  KAO( :, 3,13, 1) = (/&  
276  & 1.2529E06_JPRB,1.6490E06_JPRB,5.1498E06_JPRB,5.5689E06_JPRB,5.8865E06_JPRB,5.9318E06_JPRB,&  
277 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1860E06_JPRB,5.1003E06_JPRB,1.2178E05_JPRB/) 
278  KAO( :, 4,13, 1) = (/&  
279  & 1.6987E06_JPRB,1.8380E06_JPRB,4.2684E06_JPRB,6.5744E06_JPRB,6.1601E06_JPRB,7.0815E06_JPRB,&  
280 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.4247E06_JPRB,6.1421E06_JPRB,1.6600E05_JPRB/) 
281  KAO( :, 5,13, 1) = (/&  
282  & 2.2352E06_JPRB,2.2950E06_JPRB,3.3070E06_JPRB,6.8297E06_JPRB,6.9887E06_JPRB,6.7633E06_JPRB,&  
283 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.6284E06_JPRB,7.1420E06_JPRB,2.4442E05_JPRB/) 
284  KAO( :, 1, 1, 2) = (/&  
285  & 5.4151E05_JPRB,5.1620E05_JPRB,4.7151E05_JPRB,4.1642E05_JPRB,3.5398E05_JPRB,2.6235E05_JPRB,&  
286 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.1071E05_JPRB,5.8698E05_JPRB,2.4321E05_JPRB/) 
287  KAO( :, 2, 1, 2) = (/&  
288  & 6.7514E05_JPRB,6.4760E05_JPRB,5.9233E05_JPRB,5.2524E05_JPRB,4.5074E05_JPRB,3.6408E05_JPRB,&  
289 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4335E05_JPRB,5.6829E05_JPRB,2.7514E05_JPRB/) 
290  KAO( :, 3, 1, 2) = (/&  
291  & 8.2149E05_JPRB,7.9291E05_JPRB,7.2593E05_JPRB,6.4606E05_JPRB,5.5728E05_JPRB,4.6152E05_JPRB,&  
292 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.4241E05_JPRB,4.5420E05_JPRB,2.4336E05_JPRB/) 
293  KAO( :, 4, 1, 2) = (/&  
294  & 9.7723E05_JPRB,9.4880E05_JPRB,8.7232E05_JPRB,7.7947E05_JPRB,6.7833E05_JPRB,5.6842E05_JPRB,&  
295 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.4766E05_JPRB,2.6532E05_JPRB,2.9870E05_JPRB/) 
296  KAO( :, 5, 1, 2) = (/&  
297  & 1.1394E04_JPRB,1.1139E04_JPRB,1.0299E04_JPRB,9.2684E05_JPRB,8.1155E05_JPRB,6.8389E05_JPRB,&  
298 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.3823E05_JPRB,3.3217E05_JPRB,2.3434E05_JPRB/) 
299  KAO( :, 1, 2, 2) = (/&  
300  & 4.2753E05_JPRB,4.0882E05_JPRB,3.7362E05_JPRB,3.3159E05_JPRB,2.7615E05_JPRB,1.8637E05_JPRB,&  
301 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2134E05_JPRB,5.3399E05_JPRB,1.8302E05_JPRB/) 
302  KAO( :, 2, 2, 2) = (/&  
303  & 5.3879E05_JPRB,5.1846E05_JPRB,4.7574E05_JPRB,4.2472E05_JPRB,3.6451E05_JPRB,2.8399E05_JPRB,&  
304 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9335E05_JPRB,5.2953E05_JPRB,1.7179E05_JPRB/) 
305  KAO( :, 3, 2, 2) = (/&  
306  & 6.6088E05_JPRB,6.4132E05_JPRB,5.9087E05_JPRB,5.2832E05_JPRB,4.5668E05_JPRB,3.7676E05_JPRB,&  
307 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6673E05_JPRB,4.9047E05_JPRB,2.0200E05_JPRB/) 
308  KAO( :, 4, 2, 2) = (/&  
309  & 7.9313E05_JPRB,7.7493E05_JPRB,7.1541E05_JPRB,6.4098E05_JPRB,5.5769E05_JPRB,4.6664E05_JPRB,&  
310 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6034E05_JPRB,2.7239E05_JPRB,1.9971E05_JPRB/) 
311  KAO( :, 5, 2, 2) = (/&  
312  & 9.3172E05_JPRB,9.1802E05_JPRB,8.4933E05_JPRB,7.6462E05_JPRB,6.6920E05_JPRB,5.6293E05_JPRB,&  
313 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.4283E05_JPRB,2.5633E05_JPRB,1.6128E05_JPRB/) 
314  KAO( :, 1, 3, 2) = (/&  
315  & 3.1637E05_JPRB,3.0177E05_JPRB,2.7541E05_JPRB,2.3988E05_JPRB,1.7787E05_JPRB,1.3073E05_JPRB,&  
316 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.0575E05_JPRB,4.8194E05_JPRB,1.2505E05_JPRB/) 
317  KAO( :, 2, 3, 2) = (/&  
318  & 4.0410E05_JPRB,3.8878E05_JPRB,3.5667E05_JPRB,3.1901E05_JPRB,2.6742E05_JPRB,1.8595E05_JPRB,&  
319 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9446E05_JPRB,5.0395E05_JPRB,1.3203E05_JPRB/) 
320  KAO( :, 3, 3, 2) = (/&  
321  & 5.0197E05_JPRB,4.8688E05_JPRB,4.4913E05_JPRB,4.0333E05_JPRB,3.4912E05_JPRB,2.7673E05_JPRB,&  
322 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8085E05_JPRB,4.8586E05_JPRB,1.3602E05_JPRB/) 
323  KAO( :, 4, 3, 2) = (/&  
324  & 6.0782E05_JPRB,5.9537E05_JPRB,5.5167E05_JPRB,4.9672E05_JPRB,4.3304E05_JPRB,3.6088E05_JPRB,&  
325 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.5607E05_JPRB,4.2696E05_JPRB,1.2094E05_JPRB/) 
326  KAO( :, 5, 3, 2) = (/&  
327  & 7.2122E05_JPRB,7.1291E05_JPRB,6.6301E05_JPRB,5.9947E05_JPRB,5.2623E05_JPRB,4.4244E05_JPRB,&  
328 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.4126E05_JPRB,2.2584E05_JPRB,1.6766E05_JPRB/) 
329  KAO( :, 1, 4, 2) = (/&  
330  & 2.3214E05_JPRB,2.2012E05_JPRB,1.9759E05_JPRB,1.6356E05_JPRB,1.1177E05_JPRB,1.3102E05_JPRB,&  
331 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4531E05_JPRB,4.5521E05_JPRB,8.5704E06_JPRB/) 
332  KAO( :, 2, 4, 2) = (/&  
333  & 2.9987E05_JPRB,2.8729E05_JPRB,2.6188E05_JPRB,2.2885E05_JPRB,1.7414E05_JPRB,1.2331E05_JPRB,&  
334 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.4914E05_JPRB,4.5109E05_JPRB,8.5816E06_JPRB/) 
335  KAO( :, 3, 4, 2) = (/&  
336  & 3.7737E05_JPRB,3.6418E05_JPRB,3.3481E05_JPRB,2.9943E05_JPRB,2.5212E05_JPRB,1.8076E05_JPRB,&  
337 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7776E05_JPRB,4.6705E05_JPRB,7.7341E06_JPRB/) 
338  KAO( :, 4, 4, 2) = (/&  
339  & 4.6237E05_JPRB,4.5035E05_JPRB,4.1706E05_JPRB,3.7594E05_JPRB,3.2675E05_JPRB,2.6052E05_JPRB,&  
340 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7191E05_JPRB,4.4501E05_JPRB,1.1430E05_JPRB/) 
341  KAO( :, 5, 4, 2) = (/&  
342  & 5.5394E05_JPRB,5.4566E05_JPRB,5.0800E05_JPRB,4.6060E05_JPRB,4.0396E05_JPRB,3.3727E05_JPRB,&  
343 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3835E05_JPRB,3.7336E05_JPRB,1.6242E05_JPRB/) 
344  KAO( :, 1, 5, 2) = (/&  
345  & 1.7110E05_JPRB,1.6145E05_JPRB,1.4165E05_JPRB,1.0426E05_JPRB,7.9870E06_JPRB,2.4744E05_JPRB,&  
346 
2/2✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.

10  & 5.4612E05_JPRB,4.2211E05_JPRB,5.8558E06_JPRB/) 
347  
348 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART1',1,ZHOOK_HANDLE) 
349  1  END SUBROUTINE PART1  
350  
351  
352  1  SUBROUTINE PART2  
353  
354  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
355 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART2',0,ZHOOK_HANDLE) 
356  
357  
358  KAO( :, 2, 5, 2) = (/&  
359  & 2.2350E05_JPRB,2.1312E05_JPRB,1.9197E05_JPRB,1.6194E05_JPRB,1.1081E05_JPRB,1.1593E05_JPRB,&  
360 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.7643E05_JPRB,4.2913E05_JPRB,4.4739E06_JPRB/) 
361  KAO( :, 3, 5, 2) = (/&  
362  & 2.8416E05_JPRB,2.7289E05_JPRB,2.4884E05_JPRB,2.1811E05_JPRB,1.7120E05_JPRB,1.1847E05_JPRB,&  
363 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.1141E05_JPRB,4.2424E05_JPRB,6.9636E06_JPRB/) 
364  KAO( :, 4, 5, 2) = (/&  
365  & 3.5202E05_JPRB,3.4084E05_JPRB,3.1336E05_JPRB,2.8012E05_JPRB,2.3757E05_JPRB,1.7453E05_JPRB,&  
366 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5962E05_JPRB,4.2655E05_JPRB,1.0597E05_JPRB/) 
367  KAO( :, 5, 5, 2) = (/&  
368  & 4.2592E05_JPRB,4.1680E05_JPRB,3.8616E05_JPRB,3.4875E05_JPRB,3.0427E05_JPRB,2.4423E05_JPRB,&  
369 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5902E05_JPRB,4.0629E05_JPRB,1.5906E05_JPRB/) 
370  KAO( :, 1, 6, 2) = (/&  
371  & 1.2522E05_JPRB,1.1758E05_JPRB,9.8897E06_JPRB,6.3513E06_JPRB,1.0585E05_JPRB,4.0712E05_JPRB,&  
372 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.0160E05_JPRB,4.0760E05_JPRB,3.1679E06_JPRB/) 
373  KAO( :, 2, 6, 2) = (/&  
374  & 1.6573E05_JPRB,1.5756E05_JPRB,1.3865E05_JPRB,1.0569E05_JPRB,7.4971E06_JPRB,2.3617E05_JPRB,&  
375 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.0226E05_JPRB,4.0741E05_JPRB,3.5969E06_JPRB/) 
376  KAO( :, 3, 6, 2) = (/&  
377  & 2.1308E05_JPRB,2.0432E05_JPRB,1.8454E05_JPRB,1.5643E05_JPRB,1.0753E05_JPRB,1.1262E05_JPRB,&  
378 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2958E05_JPRB,3.9589E05_JPRB,5.9975E06_JPRB/) 
379  KAO( :, 4, 6, 2) = (/&  
380  & 2.6653E05_JPRB,2.5731E05_JPRB,2.3505E05_JPRB,2.0714E05_JPRB,1.6401E05_JPRB,1.1347E05_JPRB,&  
381 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.9347E05_JPRB,3.9364E05_JPRB,9.7407E06_JPRB/) 
382  KAO( :, 5, 6, 2) = (/&  
383  & 3.2562E05_JPRB,3.1730E05_JPRB,2.9223E05_JPRB,2.6148E05_JPRB,2.2224E05_JPRB,1.6477E05_JPRB,&  
384 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5448E05_JPRB,3.9356E05_JPRB,1.5151E05_JPRB/) 
385  KAO( :, 1, 7, 2) = (/&  
386  & 9.2632E06_JPRB,8.5835E06_JPRB,6.2688E06_JPRB,5.7491E06_JPRB,2.0750E05_JPRB,4.7549E05_JPRB,&  
387 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.9746E05_JPRB,4.3221E05_JPRB,1.9173E06_JPRB/) 
388  KAO( :, 2, 7, 2) = (/&  
389  & 1.2411E05_JPRB,1.1741E05_JPRB,9.9384E06_JPRB,6.3308E06_JPRB,9.8932E06_JPRB,3.7604E05_JPRB,&  
390 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.5915E05_JPRB,3.8224E05_JPRB,3.1404E06_JPRB/) 
391  KAO( :, 3, 7, 2) = (/&  
392  & 1.6131E05_JPRB,1.5426E05_JPRB,1.3668E05_JPRB,1.0538E05_JPRB,7.5655E06_JPRB,2.2395E05_JPRB,&  
393 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.5385E05_JPRB,3.8777E05_JPRB,5.5259E06_JPRB/) 
394  KAO( :, 4, 7, 2) = (/&  
395  & 2.0394E05_JPRB,1.9668E05_JPRB,1.7772E05_JPRB,1.5135E05_JPRB,1.0480E05_JPRB,1.1695E05_JPRB,&  
396 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8455E05_JPRB,3.6049E05_JPRB,9.3488E06_JPRB/) 
397  KAO( :, 5, 7, 2) = (/&  
398  & 2.5104E05_JPRB,2.4438E05_JPRB,2.2345E05_JPRB,1.9724E05_JPRB,1.5920E05_JPRB,1.0909E05_JPRB,&  
399 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.7780E05_JPRB,3.6976E05_JPRB,1.5076E05_JPRB/) 
400  KAO( :, 1, 8, 2) = (/&  
401  & 6.9226E06_JPRB,6.1974E06_JPRB,3.6925E06_JPRB,9.7107E06_JPRB,3.1400E05_JPRB,5.1217E05_JPRB,&  
402 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1133E05_JPRB,4.7405E05_JPRB,1.8023E06_JPRB/) 
403  KAO( :, 2, 8, 2) = (/&  
404  & 9.3730E06_JPRB,8.7696E06_JPRB,6.5222E06_JPRB,5.5338E06_JPRB,2.0725E05_JPRB,4.5311E05_JPRB,&  
405 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.6330E05_JPRB,3.9950E05_JPRB,3.2574E06_JPRB/) 
406  KAO( :, 3, 8, 2) = (/&  
407  & 1.2271E05_JPRB,1.1705E05_JPRB,9.9611E06_JPRB,6.4477E06_JPRB,1.0502E05_JPRB,3.6242E05_JPRB,&  
408 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2814E05_JPRB,3.6156E05_JPRB,5.9101E06_JPRB/) 
409  KAO( :, 4, 8, 2) = (/&  
410  & 1.5653E05_JPRB,1.5070E05_JPRB,1.3408E05_JPRB,1.0377E05_JPRB,7.4564E06_JPRB,2.3003E05_JPRB,&  
411 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.1378E05_JPRB,3.6628E05_JPRB,1.0378E05_JPRB/) 
412  KAO( :, 5, 8, 2) = (/&  
413  & 1.9451E05_JPRB,1.8892E05_JPRB,1.7102E05_JPRB,1.4623E05_JPRB,1.0332E05_JPRB,1.2287E05_JPRB,&  
414 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5601E05_JPRB,3.3798E05_JPRB,1.7377E05_JPRB/) 
415  KAO( :, 1, 9, 2) = (/&  
416  & 5.2610E06_JPRB,4.1633E06_JPRB,4.0647E06_JPRB,1.6473E05_JPRB,4.2753E05_JPRB,5.1385E05_JPRB,&  
417 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.7611E05_JPRB,4.8409E05_JPRB,3.6172E06_JPRB/) 
418  KAO( :, 2, 9, 2) = (/&  
419  & 7.1572E06_JPRB,6.5056E06_JPRB,3.9269E06_JPRB,9.8251E06_JPRB,3.2469E05_JPRB,4.6277E05_JPRB,&  
420 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.7279E05_JPRB,4.4658E05_JPRB,6.1285E06_JPRB/) 
421  KAO( :, 3, 9, 2) = (/&  
422  & 9.4513E06_JPRB,8.9266E06_JPRB,6.7478E06_JPRB,5.5531E06_JPRB,2.0823E05_JPRB,4.1922E05_JPRB,&  
423 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.3117E05_JPRB,3.6857E05_JPRB,1.1095E05_JPRB/) 
424  KAO( :, 4, 9, 2) = (/&  
425  & 1.2144E05_JPRB,1.1656E05_JPRB,9.9211E06_JPRB,6.5681E06_JPRB,1.1366E05_JPRB,3.4298E05_JPRB,&  
426 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.9570E05_JPRB,3.4386E05_JPRB,2.0048E05_JPRB/) 
427  KAO( :, 5, 9, 2) = (/&  
428  & 1.5214E05_JPRB,1.4744E05_JPRB,1.3136E05_JPRB,1.0200E05_JPRB,7.5939E06_JPRB,2.3119E05_JPRB,&  
429 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7419E05_JPRB,3.3965E05_JPRB,3.4968E05_JPRB/) 
430  KAO( :, 1,10, 2) = (/&  
431  & 4.1564E06_JPRB,2.6079E06_JPRB,6.9218E06_JPRB,2.7859E05_JPRB,4.8834E05_JPRB,5.2686E05_JPRB,&  
432 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.6389E05_JPRB,4.9087E05_JPRB,1.0652E05_JPRB/) 
433  KAO( :, 2,10, 2) = (/&  
434  & 5.6598E06_JPRB,4.6524E06_JPRB,4.2303E06_JPRB,1.7606E05_JPRB,4.1116E05_JPRB,4.7567E05_JPRB,&  
435 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.5264E05_JPRB,4.6736E05_JPRB,1.6225E05_JPRB/) 
436  KAO( :, 3,10, 2) = (/&  
437  & 7.4935E06_JPRB,6.8980E06_JPRB,4.2539E06_JPRB,1.0638E05_JPRB,3.2709E05_JPRB,4.2416E05_JPRB,&  
438 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.4544E05_JPRB,4.1212E05_JPRB,2.8258E05_JPRB/) 
439  KAO( :, 4,10, 2) = (/&  
440  & 9.6635E06_JPRB,9.2067E06_JPRB,7.0228E06_JPRB,5.8835E06_JPRB,2.2271E05_JPRB,3.9179E05_JPRB,&  
441 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.0535E05_JPRB,3.4910E05_JPRB,5.1242E05_JPRB/) 
442  KAO( :, 5,10, 2) = (/&  
443  & 1.2158E05_JPRB,1.1756E05_JPRB,1.0040E05_JPRB,6.8113E06_JPRB,1.2737E05_JPRB,3.2445E05_JPRB,&  
444 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6666E05_JPRB,3.2986E05_JPRB,9.1455E05_JPRB/) 
445  KAO( :, 1,11, 2) = (/&  
446  & 3.8505E06_JPRB,2.2272E06_JPRB,9.0452E06_JPRB,3.3373E05_JPRB,4.6563E05_JPRB,5.1119E05_JPRB,&  
447 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.6293E05_JPRB,4.7828E05_JPRB,1.4850E05_JPRB/) 
448  KAO( :, 2,11, 2) = (/&  
449  & 5.1974E06_JPRB,4.0087E06_JPRB,5.3940E06_JPRB,2.3158E05_JPRB,4.1599E05_JPRB,4.6146E05_JPRB,&  
450 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2299E05_JPRB,4.6208E05_JPRB,2.2452E05_JPRB/) 
451  KAO( :, 3,11, 2) = (/&  
452  & 6.8266E06_JPRB,6.1648E06_JPRB,4.0224E06_JPRB,1.4825E05_JPRB,3.4779E05_JPRB,4.0817E05_JPRB,&  
453 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2127E05_JPRB,4.1473E05_JPRB,3.8968E05_JPRB/) 
454  KAO( :, 4,11, 2) = (/&  
455  & 8.7559E06_JPRB,8.2911E06_JPRB,5.8154E06_JPRB,8.1179E06_JPRB,2.7292E05_JPRB,3.7470E05_JPRB,&  
456 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8829E05_JPRB,3.4450E05_JPRB,7.0589E05_JPRB/) 
457  KAO( :, 5,11, 2) = (/&  
458  & 1.0954E05_JPRB,1.0574E05_JPRB,8.7742E06_JPRB,6.0446E06_JPRB,1.8157E05_JPRB,3.3048E05_JPRB,&  
459 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5168E05_JPRB,3.1159E05_JPRB,1.2578E04_JPRB/) 
460  KAO( :, 1,12, 2) = (/&  
461  & 3.5781E06_JPRB,2.0859E06_JPRB,9.5195E06_JPRB,3.1787E05_JPRB,4.2342E05_JPRB,4.6653E05_JPRB,&  
462 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2689E05_JPRB,4.4370E05_JPRB,1.5650E05_JPRB/) 
463  KAO( :, 2,12, 2) = (/&  
464  & 4.8068E06_JPRB,3.6887E06_JPRB,5.7939E06_JPRB,2.3796E05_JPRB,3.7779E05_JPRB,4.1997E05_JPRB,&  
465 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8426E05_JPRB,4.2634E05_JPRB,2.3652E05_JPRB/) 
466  KAO( :, 3,12, 2) = (/&  
467  & 6.2948E06_JPRB,5.6556E06_JPRB,3.7630E06_JPRB,1.5847E05_JPRB,3.2542E05_JPRB,3.7297E05_JPRB,&  
468 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8083E05_JPRB,3.7879E05_JPRB,4.1024E05_JPRB/) 
469  KAO( :, 4,12, 2) = (/&  
470  & 8.0397E06_JPRB,7.5827E06_JPRB,5.0870E06_JPRB,9.0305E06_JPRB,2.6555E05_JPRB,3.3515E05_JPRB,&  
471 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5502E05_JPRB,3.1529E05_JPRB,7.4223E05_JPRB/) 
472  KAO( :, 5,12, 2) = (/&  
473  & 1.0028E05_JPRB,9.6397E06_JPRB,7.9012E06_JPRB,5.7864E06_JPRB,1.8461E05_JPRB,3.0406E05_JPRB,&  
474 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2113E05_JPRB,2.8581E05_JPRB,1.3214E04_JPRB/) 
475  KAO( :, 1,13, 2) = (/&  
476  & 3.3027E06_JPRB,1.9849E06_JPRB,1.0579E05_JPRB,3.0102E05_JPRB,3.8661E05_JPRB,4.2078E05_JPRB,&  
477 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.9451E05_JPRB,4.0882E05_JPRB,1.3351E05_JPRB/) 
478  KAO( :, 2,13, 2) = (/&  
479  & 4.4219E06_JPRB,3.3751E06_JPRB,6.3222E06_JPRB,2.3724E05_JPRB,3.3992E05_JPRB,3.8161E05_JPRB,&  
480 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.4651E05_JPRB,3.8910E05_JPRB,2.0209E05_JPRB/) 
481  KAO( :, 3,13, 2) = (/&  
482  & 5.7740E06_JPRB,5.1371E06_JPRB,3.6294E06_JPRB,1.6612E05_JPRB,3.0054E05_JPRB,3.4084E05_JPRB,&  
483 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.4363E05_JPRB,3.4522E05_JPRB,3.5082E05_JPRB/) 
484  KAO( :, 4,13, 2) = (/&  
485  & 7.3436E06_JPRB,6.8959E06_JPRB,4.5387E06_JPRB,1.0066E05_JPRB,2.5028E05_JPRB,3.0345E05_JPRB,&  
486 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2120E05_JPRB,2.8785E05_JPRB,6.3433E05_JPRB/) 
487  KAO( :, 5,13, 2) = (/&  
488  & 9.1271E06_JPRB,8.7491E06_JPRB,7.0983E06_JPRB,6.0072E06_JPRB,1.8622E05_JPRB,2.7834E05_JPRB,&  
489 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.8936E05_JPRB,2.5906E05_JPRB,1.1287E04_JPRB/) 
490  KAO( :, 1, 1, 3) = (/&  
491  & 1.0561E04_JPRB,9.9580E05_JPRB,9.1881E05_JPRB,8.2381E05_JPRB,7.1375E05_JPRB,5.7989E05_JPRB,&  
492 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5664E05_JPRB,6.4412E05_JPRB,3.1092E05_JPRB/) 
493  KAO( :, 2, 1, 3) = (/&  
494  & 1.2338E04_JPRB,1.1773E04_JPRB,1.0902E04_JPRB,9.8327E05_JPRB,8.5823E05_JPRB,7.1198E05_JPRB,&  
495 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.2267E05_JPRB,4.7983E05_JPRB,3.3217E05_JPRB/) 
496  KAO( :, 3, 1, 3) = (/&  
497  & 1.4195E04_JPRB,1.3687E04_JPRB,1.2720E04_JPRB,1.1513E04_JPRB,1.0071E04_JPRB,8.3744E05_JPRB,&  
498 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.2834E05_JPRB,3.3890E05_JPRB,3.3867E05_JPRB/) 
499  KAO( :, 4, 1, 3) = (/&  
500  & 1.6072E04_JPRB,1.5621E04_JPRB,1.4581E04_JPRB,1.3254E04_JPRB,1.1572E04_JPRB,9.6056E05_JPRB,&  
501 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.3269E05_JPRB,4.4619E05_JPRB,2.4444E05_JPRB/) 
502  KAO( :, 5, 1, 3) = (/&  
503  & 1.7870E04_JPRB,1.7588E04_JPRB,1.6519E04_JPRB,1.5017E04_JPRB,1.3146E04_JPRB,1.0980E04_JPRB,&  
504 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.4775E05_JPRB,5.5831E05_JPRB,2.9607E05_JPRB/) 
505  KAO( :, 1, 2, 3) = (/&  
506  & 9.0935E05_JPRB,8.5722E05_JPRB,7.8558E05_JPRB,6.9752E05_JPRB,5.9712E05_JPRB,4.7385E05_JPRB,&  
507 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.8063E05_JPRB,6.1629E05_JPRB,2.1541E05_JPRB/) 
508  KAO( :, 2, 2, 3) = (/&  
509  & 1.0613E04_JPRB,1.0109E04_JPRB,9.2923E05_JPRB,8.2896E05_JPRB,7.1836E05_JPRB,5.9001E05_JPRB,&  
510 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.0531E05_JPRB,5.4238E05_JPRB,2.6282E05_JPRB/) 
511  KAO( :, 3, 2, 3) = (/&  
512  & 1.2220E04_JPRB,1.1726E04_JPRB,1.0800E04_JPRB,9.6883E05_JPRB,8.4549E05_JPRB,7.0132E05_JPRB,&  
513 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.2211E05_JPRB,3.5371E05_JPRB,2.0831E05_JPRB/) 
514  KAO( :, 4, 2, 3) = (/&  
515  & 1.3840E04_JPRB,1.3383E04_JPRB,1.2384E04_JPRB,1.1185E04_JPRB,9.7762E05_JPRB,8.1196E05_JPRB,&  
516 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.1844E05_JPRB,3.5901E05_JPRB,1.8797E05_JPRB/) 
517  KAO( :, 5, 2, 3) = (/&  
518  & 1.5419E04_JPRB,1.5072E04_JPRB,1.4069E04_JPRB,1.2749E04_JPRB,1.1156E04_JPRB,9.3151E05_JPRB,&  
519 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.1896E05_JPRB,4.6407E05_JPRB,2.8564E05_JPRB/) 
520  KAO( :, 1, 3, 3) = (/&  
521  & 7.5234E05_JPRB,7.0905E05_JPRB,6.4619E05_JPRB,5.6937E05_JPRB,4.7925E05_JPRB,3.4057E05_JPRB,&  
522 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.9471E05_JPRB,6.0714E05_JPRB,1.5353E05_JPRB/) 
523  KAO( :, 2, 3, 3) = (/&  
524  & 8.8054E05_JPRB,8.3720E05_JPRB,7.6548E05_JPRB,6.7694E05_JPRB,5.7920E05_JPRB,4.6422E05_JPRB,&  
525 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6506E05_JPRB,5.8794E05_JPRB,1.3222E05_JPRB/) 
526  KAO( :, 3, 3, 3) = (/&  
527  & 1.0142E04_JPRB,9.7129E05_JPRB,8.9011E05_JPRB,7.9094E05_JPRB,6.8344E05_JPRB,5.6044E05_JPRB,&  
528 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.9469E05_JPRB,4.5819E05_JPRB,1.2529E05_JPRB/) 
529  KAO( :, 4, 3, 3) = (/&  
530  & 1.1514E04_JPRB,1.1089E04_JPRB,1.0189E04_JPRB,9.1196E05_JPRB,7.9328E05_JPRB,6.5564E05_JPRB,&  
531 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.9536E05_JPRB,2.9992E05_JPRB,2.0006E05_JPRB/) 
532  KAO( :, 5, 3, 3) = (/&  
533  & 1.2867E04_JPRB,1.2511E04_JPRB,1.1573E04_JPRB,1.0413E04_JPRB,9.0747E05_JPRB,7.5488E05_JPRB,&  
534 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.8137E05_JPRB,3.3705E05_JPRB,2.9649E05_JPRB/) 
535  KAO( :, 1, 4, 3) = (/&  
536  & 6.1778E05_JPRB,5.8294E05_JPRB,5.2798E05_JPRB,4.6202E05_JPRB,3.7473E05_JPRB,2.1169E05_JPRB,&  
537 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.9527E05_JPRB,6.1900E05_JPRB,9.6628E06_JPRB/) 
538  KAO( :, 2, 4, 3) = (/&  
539  & 7.2880E05_JPRB,6.9141E05_JPRB,6.2841E05_JPRB,5.5219E05_JPRB,4.6442E05_JPRB,3.4307E05_JPRB,&  
540 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4540E05_JPRB,5.8099E05_JPRB,8.2774E06_JPRB/) 
541  KAO( :, 3, 4, 3) = (/&  
542  & 8.4189E05_JPRB,8.0422E05_JPRB,7.3326E05_JPRB,6.4671E05_JPRB,5.5214E05_JPRB,4.4201E05_JPRB,&  
543 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.5763E05_JPRB,5.4305E05_JPRB,1.4320E05_JPRB/) 
544  KAO( :, 4, 4, 3) = (/&  
545  & 9.5731E05_JPRB,9.1993E05_JPRB,8.4010E05_JPRB,7.4439E05_JPRB,6.4080E05_JPRB,5.2536E05_JPRB,&  
546 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7772E05_JPRB,4.0812E05_JPRB,2.1667E05_JPRB/) 
547  KAO( :, 5, 4, 3) = (/&  
548  & 1.0722E04_JPRB,1.0376E04_JPRB,9.5138E05_JPRB,8.4789E05_JPRB,7.3585E05_JPRB,6.0982E05_JPRB,&  
549 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.6442E05_JPRB,2.6775E05_JPRB,3.0897E05_JPRB/) 
550  KAO( :, 1, 5, 3) = (/&  
551  & 5.0693E05_JPRB,4.7899E05_JPRB,4.3078E05_JPRB,3.7149E05_JPRB,2.7343E05_JPRB,1.8823E05_JPRB,&  
552 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.3113E05_JPRB,6.4247E05_JPRB,5.8413E06_JPRB/) 
553  KAO( :, 2, 5, 3) = (/&  
554  & 6.0292E05_JPRB,5.7244E05_JPRB,5.1699E05_JPRB,4.5062E05_JPRB,3.6934E05_JPRB,2.2807E05_JPRB,&  
555 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5085E05_JPRB,5.8430E05_JPRB,9.0461E06_JPRB/) 
556  KAO( :, 3, 5, 3) = (/&  
557  & 7.0130E05_JPRB,6.6900E05_JPRB,6.0628E05_JPRB,5.3145E05_JPRB,4.4673E05_JPRB,3.3772E05_JPRB,&  
558 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2961E05_JPRB,5.4725E05_JPRB,1.4542E05_JPRB/) 
559  KAO( :, 4, 5, 3) = (/&  
560  & 7.9880E05_JPRB,7.6664E05_JPRB,6.9684E05_JPRB,6.1301E05_JPRB,5.2150E05_JPRB,4.1916E05_JPRB,&  
561 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.5438E05_JPRB,4.9130E05_JPRB,2.2207E05_JPRB/) 
562  KAO( :, 5, 5, 3) = (/&  
563  & 8.9549E05_JPRB,8.6422E05_JPRB,7.8834E05_JPRB,6.9694E05_JPRB,5.9898E05_JPRB,4.9265E05_JPRB,&  
564 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5529E05_JPRB,3.7520E05_JPRB,3.2469E05_JPRB/) 
565  KAO( :, 1, 6, 3) = (/&  
566  & 4.1241E05_JPRB,3.8825E05_JPRB,3.4760E05_JPRB,2.8889E05_JPRB,1.6124E05_JPRB,2.3998E05_JPRB,&  
567 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.9344E05_JPRB,6.4810E05_JPRB,4.4340E06_JPRB/) 
568  KAO( :, 2, 6, 3) = (/&  
569  & 4.9399E05_JPRB,4.6917E05_JPRB,4.2198E05_JPRB,3.6346E05_JPRB,2.7704E05_JPRB,1.8853E05_JPRB,&  
570 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.8135E05_JPRB,6.0892E05_JPRB,8.2681E06_JPRB/) 
571  KAO( :, 3, 6, 3) = (/&  
572  & 5.7861E05_JPRB,5.5206E05_JPRB,4.9718E05_JPRB,4.3299E05_JPRB,3.5690E05_JPRB,2.2202E05_JPRB,&  
573 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.1528E05_JPRB,5.5484E05_JPRB,1.3906E05_JPRB/) 
574  KAO( :, 4, 6, 3) = (/&  
575  & 6.6294E05_JPRB,6.3463E05_JPRB,5.7396E05_JPRB,5.0239E05_JPRB,4.2302E05_JPRB,3.1945E05_JPRB,&  
576 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0634E05_JPRB,5.2274E05_JPRB,2.1920E05_JPRB/) 
577  KAO( :, 5, 6, 3) = (/&  
578  & 7.4664E05_JPRB,7.1784E05_JPRB,6.5151E05_JPRB,5.7238E05_JPRB,4.8740E05_JPRB,3.9314E05_JPRB,&  
579 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3437E05_JPRB,4.4846E05_JPRB,3.3007E05_JPRB/) 
580  KAO( :, 1, 7, 3) = (/&  
581  & 3.3565E05_JPRB,3.1356E05_JPRB,2.7729E05_JPRB,1.9350E05_JPRB,1.4415E05_JPRB,3.7753E05_JPRB,&  
582 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.9102E05_JPRB,6.2223E05_JPRB,4.1072E06_JPRB/) 
583  KAO( :, 2, 7, 3) = (/&  
584  & 4.0432E05_JPRB,3.8210E05_JPRB,3.4263E05_JPRB,2.8707E05_JPRB,1.6576E05_JPRB,2.4516E05_JPRB,&  
585 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.1614E05_JPRB,6.3419E05_JPRB,8.0365E06_JPRB/) 
586  KAO( :, 3, 7, 3) = (/&  
587  & 4.7650E05_JPRB,4.5423E05_JPRB,4.0777E05_JPRB,3.5184E05_JPRB,2.7131E05_JPRB,1.8290E05_JPRB,&  
588 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.3600E05_JPRB,5.7557E05_JPRB,1.3883E05_JPRB/) 
589  KAO( :, 4, 7, 3) = (/&  
590  & 5.4916E05_JPRB,5.2553E05_JPRB,4.7306E05_JPRB,4.1198E05_JPRB,3.3969E05_JPRB,2.0841E05_JPRB,&  
591 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.8970E05_JPRB,5.2203E05_JPRB,2.2718E05_JPRB/) 
592  KAO( :, 5, 7, 3) = (/&  
593  & 6.2191E05_JPRB,5.9624E05_JPRB,5.3859E05_JPRB,4.7059E05_JPRB,3.9626E05_JPRB,3.0110E05_JPRB,&  
594 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8574E05_JPRB,4.8026E05_JPRB,3.5441E05_JPRB/) 
595  KAO( :, 1, 8, 3) = (/&  
596  & 2.7226E05_JPRB,2.5212E05_JPRB,2.1382E05_JPRB,1.0543E05_JPRB,2.2029E05_JPRB,5.3627E05_JPRB,&  
597 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.2097E05_JPRB,5.8785E05_JPRB,4.6971E06_JPRB/) 
598  KAO( :, 2, 8, 3) = (/&  
599  & 3.3008E05_JPRB,3.0976E05_JPRB,2.7464E05_JPRB,1.9851E05_JPRB,1.5586E05_JPRB,3.6260E05_JPRB,&  
600 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.0608E05_JPRB,6.2688E05_JPRB,9.0473E06_JPRB/) 
601  KAO( :, 3, 8, 3) = (/&  
602  & 3.9152E05_JPRB,3.7119E05_JPRB,3.3223E05_JPRB,2.7933E05_JPRB,1.6165E05_JPRB,2.3754E05_JPRB,&  
603 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.6757E05_JPRB,6.1667E05_JPRB,1.6403E05_JPRB/) 
604  KAO( :, 4, 8, 3) = (/&  
605  & 4.5401E05_JPRB,4.3320E05_JPRB,3.8890E05_JPRB,3.3512E05_JPRB,2.5986E05_JPRB,1.7686E05_JPRB,&  
606 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.1699E05_JPRB,5.5000E05_JPRB,2.8038E05_JPRB/) 
607  KAO( :, 5, 8, 3) = (/&  
608  & 5.1574E05_JPRB,4.9405E05_JPRB,4.4463E05_JPRB,3.8672E05_JPRB,3.1838E05_JPRB,1.9274E05_JPRB,&  
609 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.7957E05_JPRB,4.8608E05_JPRB,4.5414E05_JPRB/) 
610  KAO( :, 1, 9, 3) = (/&  
611  & 2.1974E05_JPRB,2.0130E05_JPRB,1.3358E05_JPRB,1.2253E05_JPRB,3.2656E05_JPRB,7.0337E05_JPRB,&  
612 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.9242E05_JPRB,5.7837E05_JPRB,9.3121E06_JPRB/) 
613  KAO( :, 2, 9, 3) = (/&  
614  & 2.6942E05_JPRB,2.5061E05_JPRB,2.1391E05_JPRB,1.1226E05_JPRB,2.1710E05_JPRB,5.1789E05_JPRB,&  
615 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.4746E05_JPRB,5.8409E05_JPRB,1.8445E05_JPRB/) 
616  KAO( :, 3, 9, 3) = (/&  
617  & 3.2174E05_JPRB,3.0300E05_JPRB,2.6794E05_JPRB,1.9848E05_JPRB,1.5650E05_JPRB,3.5796E05_JPRB,&  
618 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.3518E05_JPRB,6.2556E05_JPRB,3.5097E05_JPRB/) 
619  KAO( :, 4, 9, 3) = (/&  
620  & 3.7549E05_JPRB,3.5640E05_JPRB,3.1882E05_JPRB,2.6804E05_JPRB,1.5301E05_JPRB,2.3066E05_JPRB,&  
621 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1951E05_JPRB,5.9042E05_JPRB,6.2870E05_JPRB/) 
622  KAO( :, 5, 9, 3) = (/&  
623  & 4.2852E05_JPRB,4.0889E05_JPRB,3.6715E05_JPRB,3.1666E05_JPRB,2.4183E05_JPRB,1.7177E05_JPRB,&  
624 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.0166E05_JPRB,5.1290E05_JPRB,1.0621E04_JPRB/) 
625  KAO( :, 1,10, 3) = (/&  
626  & 1.7885E05_JPRB,1.6093E05_JPRB,7.4609E06_JPRB,1.9809E05_JPRB,4.8743E05_JPRB,8.4191E05_JPRB,&  
627 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.7811E05_JPRB,5.7087E05_JPRB,2.4684E05_JPRB/) 
628  KAO( :, 2,10, 3) = (/&  
629  & 2.2205E05_JPRB,2.0473E05_JPRB,1.4192E05_JPRB,1.3653E05_JPRB,3.3673E05_JPRB,6.6332E05_JPRB,&  
630 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.1889E05_JPRB,5.8933E05_JPRB,4.8726E05_JPRB/) 
631  KAO( :, 3,10, 3) = (/&  
632  & 2.6710E05_JPRB,2.4979E05_JPRB,2.1384E05_JPRB,1.1205E05_JPRB,2.2836E05_JPRB,5.0904E05_JPRB,&  
633 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.7817E05_JPRB,6.0017E05_JPRB,9.5318E05_JPRB/) 
634  KAO( :, 4,10, 3) = (/&  
635  & 3.1308E05_JPRB,2.9540E05_JPRB,2.6146E05_JPRB,1.9462E05_JPRB,1.5742E05_JPRB,3.6775E05_JPRB,&  
636 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.7447E05_JPRB,6.0670E05_JPRB,1.7750E04_JPRB/) 
637  KAO( :, 5,10, 3) = (/&  
638  & 3.5884E05_JPRB,3.4076E05_JPRB,3.0469E05_JPRB,2.5574E05_JPRB,1.4532E05_JPRB,2.3848E05_JPRB,&  
639 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.8505E05_JPRB,5.5852E05_JPRB,3.1067E04_JPRB/) 
640  KAO( :, 1,11, 3) = (/&  
641  & 1.6247E05_JPRB,1.4357E05_JPRB,6.7662E06_JPRB,2.3639E05_JPRB,5.5683E05_JPRB,8.1956E05_JPRB,&  
642 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.4483E05_JPRB,5.8077E05_JPRB,3.4483E05_JPRB/) 
643  KAO( :, 2,11, 3) = (/&  
644  & 2.0083E05_JPRB,1.8438E05_JPRB,1.1223E05_JPRB,1.6583E05_JPRB,3.8809E05_JPRB,6.7379E05_JPRB,&  
645 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.0717E05_JPRB,5.8833E05_JPRB,6.8180E05_JPRB/) 
646  KAO( :, 3,11, 3) = (/&  
647  & 2.4035E05_JPRB,2.2414E05_JPRB,1.8252E05_JPRB,1.1545E05_JPRB,2.7168E05_JPRB,5.4230E05_JPRB,&  
648 
2/2✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.

10  & 6.6296E05_JPRB,5.8218E05_JPRB,1.3381E04_JPRB/) 
649  
650 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART2',1,ZHOOK_HANDLE) 
651  1  END SUBROUTINE PART2  
652  
653  
654  1  SUBROUTINE PART3  
655  
656  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
657 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART3',0,ZHOOK_HANDLE) 
658  
659  
660  KAO( :, 4,11, 3) = (/&  
661  & 2.8028E05_JPRB,2.6371E05_JPRB,2.3077E05_JPRB,1.4565E05_JPRB,1.8361E05_JPRB,4.2537E05_JPRB,&  
662 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.6345E05_JPRB,5.9076E05_JPRB,2.5000E04_JPRB/) 
663  KAO( :, 5,11, 3) = (/&  
664  & 3.1996E05_JPRB,3.0330E05_JPRB,2.7020E05_JPRB,2.1917E05_JPRB,1.3395E05_JPRB,2.9523E05_JPRB,&  
665 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.8541E05_JPRB,5.5094E05_JPRB,4.3853E04_JPRB/) 
666  KAO( :, 1,12, 3) = (/&  
667  & 1.4787E05_JPRB,1.2868E05_JPRB,7.7779E06_JPRB,2.3775E05_JPRB,5.3535E05_JPRB,7.5004E05_JPRB,&  
668 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.6201E05_JPRB,6.0383E05_JPRB,3.6484E05_JPRB/) 
669  KAO( :, 2,12, 3) = (/&  
670  & 1.8188E05_JPRB,1.6624E05_JPRB,9.6989E06_JPRB,1.6809E05_JPRB,3.8801E05_JPRB,6.1756E05_JPRB,&  
671 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.3880E05_JPRB,5.7828E05_JPRB,7.2267E05_JPRB/) 
672  KAO( :, 3,12, 3) = (/&  
673  & 2.1698E05_JPRB,2.0162E05_JPRB,1.6039E05_JPRB,1.1681E05_JPRB,2.6941E05_JPRB,5.0140E05_JPRB,&  
674 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.0455E05_JPRB,5.6955E05_JPRB,1.4213E04_JPRB/) 
675  KAO( :, 4,12, 3) = (/&  
676  & 2.5223E05_JPRB,2.3667E05_JPRB,2.0595E05_JPRB,1.1968E05_JPRB,1.8179E05_JPRB,4.0062E05_JPRB,&  
677 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.0860E05_JPRB,5.5338E05_JPRB,2.6585E04_JPRB/) 
678  KAO( :, 5,12, 3) = (/&  
679  & 2.8679E05_JPRB,2.7160E05_JPRB,2.4085E05_JPRB,1.8993E05_JPRB,1.3232E05_JPRB,3.0080E05_JPRB,&  
680 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.4162E05_JPRB,5.0190E05_JPRB,4.6593E04_JPRB/) 
681  KAO( :, 1,13, 3) = (/&  
682  & 1.3378E05_JPRB,1.1412E05_JPRB,8.0344E06_JPRB,2.3863E05_JPRB,5.0631E05_JPRB,6.7851E05_JPRB,&  
683 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.7279E05_JPRB,5.9944E05_JPRB,3.1248E05_JPRB/) 
684  KAO( :, 2,13, 3) = (/&  
685  & 1.6405E05_JPRB,1.4918E05_JPRB,8.1452E06_JPRB,1.7072E05_JPRB,3.8399E05_JPRB,5.6349E05_JPRB,&  
686 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.7351E05_JPRB,5.6397E05_JPRB,6.1993E05_JPRB/) 
687  KAO( :, 3,13, 3) = (/&  
688  & 1.9514E05_JPRB,1.8083E05_JPRB,1.3959E05_JPRB,1.1780E05_JPRB,2.7506E05_JPRB,4.6033E05_JPRB,&  
689 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.5011E05_JPRB,5.3246E05_JPRB,1.2205E04_JPRB/) 
690  KAO( :, 4,13, 3) = (/&  
691  & 2.2612E05_JPRB,2.1175E05_JPRB,1.8198E05_JPRB,9.8216E06_JPRB,1.8940E05_JPRB,3.7116E05_JPRB,&  
692 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.6044E05_JPRB,5.0287E05_JPRB,2.2822E04_JPRB/) 
693  KAO( :, 5,13, 3) = (/&  
694  & 2.5652E05_JPRB,2.4254E05_JPRB,2.1392E05_JPRB,1.5930E05_JPRB,1.2761E05_JPRB,2.9362E05_JPRB,&  
695 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.0037E05_JPRB,4.5639E05_JPRB,3.9941E04_JPRB/) 
696  KAO( :, 1, 1, 4) = (/&  
697  & 1.9325E04_JPRB,1.8065E04_JPRB,1.6180E04_JPRB,1.4199E04_JPRB,1.2006E04_JPRB,9.6342E05_JPRB,&  
698 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.5622E05_JPRB,4.8423E05_JPRB,3.6972E05_JPRB/) 
699  KAO( :, 2, 1, 4) = (/&  
700  & 2.0819E04_JPRB,1.9606E04_JPRB,1.7737E04_JPRB,1.5604E04_JPRB,1.3291E04_JPRB,1.0794E04_JPRB,&  
701 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.9216E05_JPRB,4.1605E05_JPRB,3.5731E05_JPRB/) 
702  KAO( :, 3, 1, 4) = (/&  
703  & 2.2206E04_JPRB,2.1170E04_JPRB,1.9336E04_JPRB,1.7130E04_JPRB,1.4701E04_JPRB,1.2089E04_JPRB,&  
704 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.0968E05_JPRB,4.3271E05_JPRB,3.0303E05_JPRB/) 
705  KAO( :, 4, 1, 4) = (/&  
706  & 2.3676E04_JPRB,2.2953E04_JPRB,2.1085E04_JPRB,1.8785E04_JPRB,1.6294E04_JPRB,1.3496E04_JPRB,&  
707 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0281E04_JPRB,6.1284E05_JPRB,3.2172E05_JPRB/) 
708  KAO( :, 5, 1, 4) = (/&  
709  & 2.5437E04_JPRB,2.4947E04_JPRB,2.3011E04_JPRB,2.0700E04_JPRB,1.8097E04_JPRB,1.5051E04_JPRB,&  
710 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1633E04_JPRB,7.7203E05_JPRB,5.3094E05_JPRB/) 
711  KAO( :, 1, 2, 4) = (/&  
712  & 1.7573E04_JPRB,1.6392E04_JPRB,1.4659E04_JPRB,1.2809E04_JPRB,1.0782E04_JPRB,8.5648E05_JPRB,&  
713 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.2006E05_JPRB,5.2667E05_JPRB,2.6840E05_JPRB/) 
714  KAO( :, 2, 2, 4) = (/&  
715  & 1.8913E04_JPRB,1.7769E04_JPRB,1.6041E04_JPRB,1.4067E04_JPRB,1.1911E04_JPRB,9.5721E05_JPRB,&  
716 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.8639E05_JPRB,4.4992E05_JPRB,2.4069E05_JPRB/) 
717  KAO( :, 3, 2, 4) = (/&  
718  & 2.0133E04_JPRB,1.9150E04_JPRB,1.7426E04_JPRB,1.5374E04_JPRB,1.3095E04_JPRB,1.0674E04_JPRB,&  
719 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.9754E05_JPRB,3.2688E05_JPRB,1.8110E05_JPRB/) 
720  KAO( :, 4, 2, 4) = (/&  
721  & 2.1403E04_JPRB,2.0644E04_JPRB,1.8885E04_JPRB,1.6750E04_JPRB,1.4394E04_JPRB,1.1875E04_JPRB,&  
722 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.9867E05_JPRB,4.7809E05_JPRB,3.1086E05_JPRB/) 
723  KAO( :, 5, 2, 4) = (/&  
724  & 2.2856E04_JPRB,2.2298E04_JPRB,2.0481E04_JPRB,1.8286E04_JPRB,1.5862E04_JPRB,1.3164E04_JPRB,&  
725 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0114E04_JPRB,6.3503E05_JPRB,4.8865E05_JPRB/) 
726  KAO( :, 1, 3, 4) = (/&  
727  & 1.5562E04_JPRB,1.4484E04_JPRB,1.2927E04_JPRB,1.1236E04_JPRB,9.3995E05_JPRB,7.3269E05_JPRB,&  
728 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7797E05_JPRB,5.7431E05_JPRB,1.5095E05_JPRB/) 
729  KAO( :, 2, 3, 4) = (/&  
730  & 1.6743E04_JPRB,1.5710E04_JPRB,1.4113E04_JPRB,1.2321E04_JPRB,1.0375E04_JPRB,8.2299E05_JPRB,&  
731 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.2915E05_JPRB,4.4705E05_JPRB,1.4179E05_JPRB/) 
732  KAO( :, 3, 3, 4) = (/&  
733  & 1.7855E04_JPRB,1.6918E04_JPRB,1.5296E04_JPRB,1.3430E04_JPRB,1.1381E04_JPRB,9.1766E05_JPRB,&  
734 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.6891E05_JPRB,3.9451E05_JPRB,2.0319E05_JPRB/) 
735  KAO( :, 4, 3, 4) = (/&  
736  & 1.8934E04_JPRB,1.8180E04_JPRB,1.6533E04_JPRB,1.4585E04_JPRB,1.2452E04_JPRB,1.0168E04_JPRB,&  
737 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.6248E05_JPRB,3.2208E05_JPRB,3.3927E05_JPRB/) 
738  KAO( :, 5, 3, 4) = (/&  
739  & 2.0107E04_JPRB,1.9484E04_JPRB,1.7806E04_JPRB,1.5818E04_JPRB,1.3631E04_JPRB,1.1252E04_JPRB,&  
740 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.5478E05_JPRB,4.8964E05_JPRB,4.8647E05_JPRB/) 
741  KAO( :, 1, 4, 4) = (/&  
742  & 1.3687E04_JPRB,1.2644E04_JPRB,1.1299E04_JPRB,9.7757E05_JPRB,8.1171E05_JPRB,6.0079E05_JPRB,&  
743 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.3581E05_JPRB,5.5796E05_JPRB,9.0880E06_JPRB/) 
744  KAO( :, 2, 4, 4) = (/&  
745  & 1.4693E04_JPRB,1.3749E04_JPRB,1.2327E04_JPRB,1.0708E04_JPRB,8.9715E05_JPRB,7.0113E05_JPRB,&  
746 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5389E05_JPRB,5.3371E05_JPRB,1.3014E05_JPRB/) 
747  KAO( :, 3, 4, 4) = (/&  
748  & 1.5672E04_JPRB,1.4837E04_JPRB,1.3344E04_JPRB,1.1660E04_JPRB,9.8197E05_JPRB,7.8371E05_JPRB,&  
749 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1608E05_JPRB,4.1358E05_JPRB,2.3902E05_JPRB/) 
750  KAO( :, 4, 4, 4) = (/&  
751  & 1.6639E04_JPRB,1.5936E04_JPRB,1.4405E04_JPRB,1.2651E04_JPRB,1.0733E04_JPRB,8.6606E05_JPRB,&  
752 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.3258E05_JPRB,3.2371E05_JPRB,3.6595E05_JPRB/) 
753  KAO( :, 5, 4, 4) = (/&  
754  & 1.7628E04_JPRB,1.7040E04_JPRB,1.5502E04_JPRB,1.3697E04_JPRB,1.1689E04_JPRB,9.5499E05_JPRB,&  
755 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.1870E05_JPRB,3.2326E05_JPRB,5.1692E05_JPRB/) 
756  KAO( :, 1, 5, 4) = (/&  
757  & 1.2014E04_JPRB,1.0999E04_JPRB,9.8155E05_JPRB,8.4680E05_JPRB,6.9013E05_JPRB,3.7866E05_JPRB,&  
758 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.6216E05_JPRB,5.4078E05_JPRB,7.0562E06_JPRB/) 
759  KAO( :, 2, 5, 4) = (/&  
760  & 1.2869E04_JPRB,1.1940E04_JPRB,1.0711E04_JPRB,9.2677E05_JPRB,7.7027E05_JPRB,5.7820E05_JPRB,&  
761 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.1601E05_JPRB,5.4237E05_JPRB,1.5420E05_JPRB/) 
762  KAO( :, 3, 5, 4) = (/&  
763  & 1.3705E04_JPRB,1.2928E04_JPRB,1.1605E04_JPRB,1.0090E04_JPRB,8.4608E05_JPRB,6.6395E05_JPRB,&  
764 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0335E05_JPRB,4.8756E05_JPRB,2.5527E05_JPRB/) 
765  KAO( :, 4, 5, 4) = (/&  
766  & 1.4539E04_JPRB,1.3907E04_JPRB,1.2508E04_JPRB,1.0941E04_JPRB,9.2394E05_JPRB,7.3775E05_JPRB,&  
767 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.9339E05_JPRB,4.0777E05_JPRB,3.8427E05_JPRB/) 
768  KAO( :, 5, 5, 4) = (/&  
769  & 1.5402E04_JPRB,1.4864E04_JPRB,1.3443E04_JPRB,1.1832E04_JPRB,1.0042E04_JPRB,8.1145E05_JPRB,&  
770 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.9883E05_JPRB,2.8598E05_JPRB,5.5173E05_JPRB/) 
771  KAO( :, 1, 6, 4) = (/&  
772  & 1.0508E04_JPRB,9.5482E05_JPRB,8.4601E05_JPRB,7.2633E05_JPRB,5.7469E05_JPRB,2.8022E05_JPRB,&  
773 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.0470E05_JPRB,5.5709E05_JPRB,8.4537E06_JPRB/) 
774  KAO( :, 2, 6, 4) = (/&  
775  & 1.1254E04_JPRB,1.0355E04_JPRB,9.2576E05_JPRB,7.9894E05_JPRB,6.5248E05_JPRB,3.5620E05_JPRB,&  
776 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.1186E05_JPRB,5.3203E05_JPRB,1.5781E05_JPRB/) 
777  KAO( :, 3, 6, 4) = (/&  
778  & 1.1968E04_JPRB,1.1191E04_JPRB,1.0054E04_JPRB,8.6961E05_JPRB,7.2380E05_JPRB,5.4688E05_JPRB,&  
779 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.8839E05_JPRB,5.2690E05_JPRB,2.5759E05_JPRB/) 
780  KAO( :, 4, 6, 4) = (/&  
781  & 1.2668E04_JPRB,1.2066E04_JPRB,1.0839E04_JPRB,9.4280E05_JPRB,7.9174E05_JPRB,6.2217E05_JPRB,&  
782 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.9595E05_JPRB,4.6245E05_JPRB,3.9594E05_JPRB/) 
783  KAO( :, 5, 6, 4) = (/&  
784  & 1.3386E04_JPRB,1.2916E04_JPRB,1.1625E04_JPRB,1.0183E04_JPRB,8.5941E05_JPRB,6.8663E05_JPRB,&  
785 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.7108E05_JPRB,3.8925E05_JPRB,5.8371E05_JPRB/) 
786  KAO( :, 1, 7, 4) = (/&  
787  & 9.1290E05_JPRB,8.2455E05_JPRB,7.2640E05_JPRB,6.1602E05_JPRB,3.5951E05_JPRB,3.2065E05_JPRB,&  
788 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.9438E05_JPRB,5.4588E05_JPRB,8.8732E06_JPRB/) 
789  KAO( :, 2, 7, 4) = (/&  
790  & 9.8266E05_JPRB,8.9923E05_JPRB,7.9846E05_JPRB,6.8611E05_JPRB,5.4855E05_JPRB,2.5347E05_JPRB,&  
791 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.3484E05_JPRB,5.4646E05_JPRB,1.6319E05_JPRB/) 
792  KAO( :, 3, 7, 4) = (/&  
793  & 1.0452E04_JPRB,9.6912E05_JPRB,8.6790E05_JPRB,7.4880E05_JPRB,6.1588E05_JPRB,3.4215E05_JPRB,&  
794 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8465E05_JPRB,5.3097E05_JPRB,2.7544E05_JPRB/) 
795  KAO( :, 4, 7, 4) = (/&  
796  & 1.1064E04_JPRB,1.0436E04_JPRB,9.3727E05_JPRB,8.1191E05_JPRB,6.7704E05_JPRB,5.1369E05_JPRB,&  
797 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6755E05_JPRB,5.1792E05_JPRB,4.3707E05_JPRB/) 
798  KAO( :, 5, 7, 4) = (/&  
799  & 1.1674E04_JPRB,1.1189E04_JPRB,1.0064E04_JPRB,8.7738E05_JPRB,7.3682E05_JPRB,5.8032E05_JPRB,&  
800 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.8026E05_JPRB,4.3741E05_JPRB,6.6125E05_JPRB/) 
801  KAO( :, 1, 8, 4) = (/&  
802  & 7.8671E05_JPRB,7.0723E05_JPRB,6.1903E05_JPRB,5.0899E05_JPRB,2.5388E05_JPRB,4.7045E05_JPRB,&  
803 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.3139E05_JPRB,5.2475E05_JPRB,1.0506E05_JPRB/) 
804  KAO( :, 2, 8, 4) = (/&  
805  & 8.5114E05_JPRB,7.7503E05_JPRB,6.8369E05_JPRB,5.8071E05_JPRB,3.2941E05_JPRB,3.1252E05_JPRB,&  
806 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.5972E05_JPRB,5.4053E05_JPRB,1.9913E05_JPRB/) 
807  KAO( :, 3, 8, 4) = (/&  
808  & 9.0774E05_JPRB,8.3700E05_JPRB,7.4489E05_JPRB,6.3931E05_JPRB,5.1217E05_JPRB,2.3975E05_JPRB,&  
809 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.9768E05_JPRB,5.3114E05_JPRB,3.5011E05_JPRB/) 
810  KAO( :, 4, 8, 4) = (/&  
811  & 9.6188E05_JPRB,9.0023E05_JPRB,8.0588E05_JPRB,6.9637E05_JPRB,5.7276E05_JPRB,3.0654E05_JPRB,&  
812 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6814E05_JPRB,5.0886E05_JPRB,5.7647E05_JPRB/) 
813  KAO( :, 5, 8, 4) = (/&  
814  & 1.0147E04_JPRB,9.6459E05_JPRB,8.6744E05_JPRB,7.5335E05_JPRB,6.2848E05_JPRB,4.7544E05_JPRB,&  
815 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4830E05_JPRB,4.9742E05_JPRB,8.9972E05_JPRB/) 
816  KAO( :, 1, 9, 4) = (/&  
817  & 6.7736E05_JPRB,6.0618E05_JPRB,5.2744E05_JPRB,3.0920E05_JPRB,2.9239E05_JPRB,6.2840E05_JPRB,&  
818 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.2889E05_JPRB,5.0470E05_JPRB,2.2355E05_JPRB/) 
819  KAO( :, 2, 9, 4) = (/&  
820  & 7.3171E05_JPRB,6.6259E05_JPRB,5.8117E05_JPRB,4.7578E05_JPRB,2.3188E05_JPRB,4.4116E05_JPRB,&  
821 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.7151E05_JPRB,5.4835E05_JPRB,4.4341E05_JPRB/) 
822  KAO( :, 3, 9, 4) = (/&  
823  & 7.8488E05_JPRB,7.2012E05_JPRB,6.3679E05_JPRB,5.4052E05_JPRB,2.9892E05_JPRB,3.0664E05_JPRB,&  
824 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.0561E05_JPRB,5.3817E05_JPRB,8.1564E05_JPRB/) 
825  KAO( :, 4, 9, 4) = (/&  
826  & 8.3263E05_JPRB,7.7446E05_JPRB,6.8972E05_JPRB,5.9229E05_JPRB,4.7000E05_JPRB,2.3105E05_JPRB,&  
827 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.7608E05_JPRB,5.0373E05_JPRB,1.4008E04_JPRB/) 
828  KAO( :, 5, 9, 4) = (/&  
829  & 8.7956E05_JPRB,8.2925E05_JPRB,7.4329E05_JPRB,6.4343E05_JPRB,5.3101E05_JPRB,2.7223E05_JPRB,&  
830 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.3997E05_JPRB,5.1225E05_JPRB,2.2664E04_JPRB/) 
831  KAO( :, 1,10, 4) = (/&  
832  & 5.8447E05_JPRB,5.2123E05_JPRB,4.4386E05_JPRB,2.1253E05_JPRB,4.1633E05_JPRB,7.5363E05_JPRB,&  
833 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.7685E05_JPRB,4.9222E05_JPRB,5.9155E05_JPRB/) 
834  KAO( :, 2,10, 4) = (/&  
835  & 6.2971E05_JPRB,5.6773E05_JPRB,4.9349E05_JPRB,2.7108E05_JPRB,2.8492E05_JPRB,5.8974E05_JPRB,&  
836 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.8305E05_JPRB,5.1607E05_JPRB,1.2250E04_JPRB/) 
837  KAO( :, 3,10, 4) = (/&  
838  & 6.7713E05_JPRB,6.1803E05_JPRB,5.4313E05_JPRB,4.4294E05_JPRB,2.2166E05_JPRB,4.3639E05_JPRB,&  
839 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.2310E05_JPRB,5.3792E05_JPRB,2.3595E04_JPRB/) 
840  KAO( :, 4,10, 4) = (/&  
841  & 7.2017E05_JPRB,6.6651E05_JPRB,5.9032E05_JPRB,5.0145E05_JPRB,2.5984E05_JPRB,3.1163E05_JPRB,&  
842 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.5814E05_JPRB,5.4096E05_JPRB,4.2155E04_JPRB/) 
843  KAO( :, 5,10, 4) = (/&  
844  & 7.6122E05_JPRB,7.1340E05_JPRB,6.3672E05_JPRB,5.4807E05_JPRB,4.2703E05_JPRB,2.2571E05_JPRB,&  
845 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.5447E05_JPRB,5.0941E05_JPRB,7.0536E04_JPRB/) 
846  KAO( :, 1,11, 4) = (/&  
847  & 5.1997E05_JPRB,4.6399E05_JPRB,3.7006E05_JPRB,2.2118E05_JPRB,4.9070E05_JPRB,8.0297E05_JPRB,&  
848 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.7665E05_JPRB,4.9036E05_JPRB,8.3819E05_JPRB/) 
849  KAO( :, 2,11, 4) = (/&  
850  & 5.5995E05_JPRB,5.0499E05_JPRB,4.3536E05_JPRB,1.8160E05_JPRB,3.3942E05_JPRB,6.1798E05_JPRB,&  
851 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.7929E05_JPRB,5.1899E05_JPRB,1.7378E04_JPRB/) 
852  KAO( :, 3,11, 4) = (/&  
853  & 6.0050E05_JPRB,5.4855E05_JPRB,4.8042E05_JPRB,3.2999E05_JPRB,2.4599E05_JPRB,4.8087E05_JPRB,&  
854 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.2580E05_JPRB,5.4376E05_JPRB,3.3527E04_JPRB/) 
855  KAO( :, 4,11, 4) = (/&  
856  & 6.3834E05_JPRB,5.9102E05_JPRB,5.2252E05_JPRB,4.3696E05_JPRB,1.9003E05_JPRB,3.4301E05_JPRB,&  
857 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.7788E05_JPRB,5.3890E05_JPRB,5.9988E04_JPRB/) 
858  KAO( :, 5,11, 4) = (/&  
859  & 6.7488E05_JPRB,6.3205E05_JPRB,5.6377E05_JPRB,4.8245E05_JPRB,3.1229E05_JPRB,2.6140E05_JPRB,&  
860 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.5484E05_JPRB,5.1296E05_JPRB,1.0059E03_JPRB/) 
861  KAO( :, 1,12, 4) = (/&  
862  & 4.6056E05_JPRB,4.1083E05_JPRB,2.9802E05_JPRB,2.2251E05_JPRB,4.6624E05_JPRB,7.2962E05_JPRB,&  
863 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.3907E05_JPRB,4.7563E05_JPRB,8.9454E05_JPRB/) 
864  KAO( :, 2,12, 4) = (/&  
865  & 4.9615E05_JPRB,4.4762E05_JPRB,3.8254E05_JPRB,1.6590E05_JPRB,3.3432E05_JPRB,5.6542E05_JPRB,&  
866 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.1508E05_JPRB,5.1901E05_JPRB,1.8559E04_JPRB/) 
867  KAO( :, 3,12, 4) = (/&  
868  & 5.3180E05_JPRB,4.8610E05_JPRB,4.2465E05_JPRB,2.5666E05_JPRB,2.4567E05_JPRB,4.4887E05_JPRB,&  
869 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.5994E05_JPRB,5.4335E05_JPRB,3.5825E04_JPRB/) 
870  KAO( :, 4,12, 4) = (/&  
871  & 5.6562E05_JPRB,5.2350E05_JPRB,4.6232E05_JPRB,3.8181E05_JPRB,1.8227E05_JPRB,3.2932E05_JPRB,&  
872 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.2904E05_JPRB,5.3475E05_JPRB,6.4181E04_JPRB/) 
873  KAO( :, 5,12, 4) = (/&  
874  & 5.9903E05_JPRB,5.6017E05_JPRB,4.9962E05_JPRB,4.2621E05_JPRB,2.4691E05_JPRB,2.4714E05_JPRB,&  
875 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.1916E05_JPRB,5.0025E05_JPRB,1.0767E03_JPRB/) 
876  KAO( :, 1,13, 4) = (/&  
877  & 4.0560E05_JPRB,3.6160E05_JPRB,2.3255E05_JPRB,2.2093E05_JPRB,4.4020E05_JPRB,6.7810E05_JPRB,&  
878 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.9069E05_JPRB,4.8857E05_JPRB,7.6979E05_JPRB/) 
879  KAO( :, 2,13, 4) = (/&  
880  & 4.3721E05_JPRB,3.9447E05_JPRB,3.3315E05_JPRB,1.5735E05_JPRB,3.2401E05_JPRB,5.2990E05_JPRB,&  
881 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.4939E05_JPRB,5.2762E05_JPRB,1.5983E04_JPRB/) 
882  KAO( :, 3,13, 4) = (/&  
883  & 4.6874E05_JPRB,4.2856E05_JPRB,3.7307E05_JPRB,1.9448E05_JPRB,2.3246E05_JPRB,4.1872E05_JPRB,&  
884 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.0127E05_JPRB,5.4225E05_JPRB,3.0871E04_JPRB/) 
885  KAO( :, 4,13, 4) = (/&  
886  & 4.9922E05_JPRB,4.6146E05_JPRB,4.0717E05_JPRB,3.2736E05_JPRB,1.7797E05_JPRB,3.1779E05_JPRB,&  
887 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.8971E05_JPRB,5.3750E05_JPRB,5.5309E04_JPRB/) 
888  KAO( :, 5,13, 4) = (/&  
889  & 5.3030E05_JPRB,4.9529E05_JPRB,4.4121E05_JPRB,3.7423E05_JPRB,1.9634E05_JPRB,2.2842E05_JPRB,&  
890 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.9348E05_JPRB,4.8274E05_JPRB,9.2736E04_JPRB/) 
891  KAO( :, 1, 1, 5) = (/&  
892  & 2.7778E04_JPRB,2.5521E04_JPRB,2.2685E04_JPRB,1.9591E04_JPRB,1.6332E04_JPRB,1.2879E04_JPRB,&  
893 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.0596E05_JPRB,4.4043E05_JPRB,3.2346E05_JPRB/) 
894  KAO( :, 2, 1, 5) = (/&  
895  & 2.9066E04_JPRB,2.6987E04_JPRB,2.4077E04_JPRB,2.0932E04_JPRB,1.7577E04_JPRB,1.4048E04_JPRB,&  
896 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0294E04_JPRB,3.8809E05_JPRB,2.9426E05_JPRB/) 
897  KAO( :, 3, 1, 5) = (/&  
898  & 3.0544E04_JPRB,2.8616E04_JPRB,2.5754E04_JPRB,2.2525E04_JPRB,1.9101E04_JPRB,1.5455E04_JPRB,&  
899 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1678E04_JPRB,5.7173E05_JPRB,3.3954E05_JPRB/) 
900  KAO( :, 4, 1, 5) = (/&  
901  & 3.2184E04_JPRB,3.0525E04_JPRB,2.7707E04_JPRB,2.4441E04_JPRB,2.0932E04_JPRB,1.7239E04_JPRB,&  
902 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3430E04_JPRB,8.9432E05_JPRB,5.9307E05_JPRB/) 
903  KAO( :, 5, 1, 5) = (/&  
904  & 3.3997E04_JPRB,3.2768E04_JPRB,2.9971E04_JPRB,2.6685E04_JPRB,2.3158E04_JPRB,1.9537E04_JPRB,&  
905 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5650E04_JPRB,1.1300E04_JPRB,9.1458E05_JPRB/) 
906  KAO( :, 1, 2, 5) = (/&  
907  & 2.6036E04_JPRB,2.3849E04_JPRB,2.1215E04_JPRB,1.8325E04_JPRB,1.5238E04_JPRB,1.1978E04_JPRB,&  
908 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.1666E05_JPRB,4.4295E05_JPRB,2.4496E05_JPRB/) 
909  KAO( :, 2, 2, 5) = (/&  
910  & 2.7147E04_JPRB,2.5141E04_JPRB,2.2439E04_JPRB,1.9462E04_JPRB,1.6271E04_JPRB,1.2925E04_JPRB,&  
911 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.2973E05_JPRB,3.2500E05_JPRB,1.9528E05_JPRB/) 
912  KAO( :, 3, 2, 5) = (/&  
913  & 2.8407E04_JPRB,2.6548E04_JPRB,2.3846E04_JPRB,2.0759E04_JPRB,1.7524E04_JPRB,1.4054E04_JPRB,&  
914 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0396E04_JPRB,4.5395E05_JPRB,3.3431E05_JPRB/) 
915  KAO( :, 4, 2, 5) = (/&  
916  & 2.9719E04_JPRB,2.8128E04_JPRB,2.5423E04_JPRB,2.2320E04_JPRB,1.8996E04_JPRB,1.5400E04_JPRB,&  
917 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1668E04_JPRB,6.9584E05_JPRB,5.7490E05_JPRB/) 
918  KAO( :, 5, 2, 5) = (/&  
919  & 3.1122E04_JPRB,2.9870E04_JPRB,2.7220E04_JPRB,2.4100E04_JPRB,2.0649E04_JPRB,1.7035E04_JPRB,&  
920 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3266E04_JPRB,9.1999E05_JPRB,8.3000E05_JPRB/) 
921  KAO( :, 1, 3, 5) = (/&  
922  & 2.4050E04_JPRB,2.1900E04_JPRB,1.9501E04_JPRB,1.6859E04_JPRB,1.4005E04_JPRB,1.0947E04_JPRB,&  
923 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4416E05_JPRB,3.5695E05_JPRB,1.3250E05_JPRB/) 
924  KAO( :, 2, 3, 5) = (/&  
925  & 2.4980E04_JPRB,2.3024E04_JPRB,2.0600E04_JPRB,1.7839E04_JPRB,1.4857E04_JPRB,1.1723E04_JPRB,&  
926 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.2222E05_JPRB,4.3756E05_JPRB,1.9778E05_JPRB/) 
927  KAO( :, 3, 3, 5) = (/&  
928  & 2.5986E04_JPRB,2.4240E04_JPRB,2.1776E04_JPRB,1.8907E04_JPRB,1.5831E04_JPRB,1.2594E04_JPRB,&  
929 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.1156E05_JPRB,3.2284E05_JPRB,3.8343E05_JPRB/) 
930  KAO( :, 4, 3, 5) = (/&  
931  & 2.7050E04_JPRB,2.5528E04_JPRB,2.3027E04_JPRB,2.0105E04_JPRB,1.6973E04_JPRB,1.3628E04_JPRB,&  
932 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0110E04_JPRB,4.6885E05_JPRB,5.9630E05_JPRB/) 
933  KAO( :, 5, 3, 5) = (/&  
934  & 2.8151E04_JPRB,2.6949E04_JPRB,2.4440E04_JPRB,2.1478E04_JPRB,1.8246E04_JPRB,1.4822E04_JPRB,&  
935 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1296E04_JPRB,7.0463E05_JPRB,8.2542E05_JPRB/) 
936  KAO( :, 1, 4, 5) = (/&  
937  & 2.2167E04_JPRB,2.0054E04_JPRB,1.7755E04_JPRB,1.5346E04_JPRB,1.2760E04_JPRB,9.8873E05_JPRB,&  
938 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.0720E05_JPRB,3.6076E05_JPRB,1.0820E05_JPRB/) 
939  KAO( :, 2, 4, 5) = (/&  
940  & 2.2949E04_JPRB,2.0991E04_JPRB,1.8792E04_JPRB,1.6318E04_JPRB,1.3546E04_JPRB,1.0612E04_JPRB,&  
941 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.1178E05_JPRB,4.0667E05_JPRB,2.5683E05_JPRB/) 
942  KAO( :, 3, 4, 5) = (/&  
943  & 2.3807E04_JPRB,2.2061E04_JPRB,1.9870E04_JPRB,1.7224E04_JPRB,1.4361E04_JPRB,1.1345E04_JPRB,&  
944 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.0170E05_JPRB,3.9940E05_JPRB,4.2610E05_JPRB/) 
945  KAO( :, 4, 4, 5) = (/&  
946  & 2.4662E04_JPRB,2.3181E04_JPRB,2.0905E04_JPRB,1.8202E04_JPRB,1.5268E04_JPRB,1.2186E04_JPRB,&  
947 
2/2✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.

10  & 8.8749E05_JPRB,3.2893E05_JPRB,6.1830E05_JPRB/) 
948  
949 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART3',1,ZHOOK_HANDLE) 
950  1  END SUBROUTINE PART3  
951  
952  
953  1  SUBROUTINE PART4  
954  
955  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
956 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART4',0,ZHOOK_HANDLE) 
957  
958  
959  KAO( :, 5, 4, 5) = (/&  
960  & 2.5546E04_JPRB,2.4342E04_JPRB,2.2022E04_JPRB,1.9281E04_JPRB,1.6313E04_JPRB,1.3125E04_JPRB,&  
961 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.8124E05_JPRB,4.6973E05_JPRB,8.6084E05_JPRB/) 
962  KAO( :, 1, 5, 5) = (/&  
963  & 2.0312E04_JPRB,1.8300E04_JPRB,1.6095E04_JPRB,1.3872E04_JPRB,1.1510E04_JPRB,8.6738E05_JPRB,&  
964 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.3892E05_JPRB,4.1155E05_JPRB,1.4610E05_JPRB/) 
965  KAO( :, 2, 5, 5) = (/&  
966  & 2.1032E04_JPRB,1.9153E04_JPRB,1.7045E04_JPRB,1.4818E04_JPRB,1.2310E04_JPRB,9.5120E05_JPRB,&  
967 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7530E05_JPRB,4.0109E05_JPRB,2.7956E05_JPRB/) 
968  KAO( :, 3, 5, 5) = (/&  
969  & 2.1754E04_JPRB,2.0013E04_JPRB,1.8048E04_JPRB,1.5683E04_JPRB,1.3036E04_JPRB,1.0212E04_JPRB,&  
970 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.5559E05_JPRB,4.4646E05_JPRB,4.3990E05_JPRB/) 
971  KAO( :, 4, 5, 5) = (/&  
972  & 2.2506E04_JPRB,2.1008E04_JPRB,1.8992E04_JPRB,1.6512E04_JPRB,1.3787E04_JPRB,1.0933E04_JPRB,&  
973 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.7878E05_JPRB,3.3941E05_JPRB,6.4638E05_JPRB/) 
974  KAO( :, 5, 5, 5) = (/&  
975  & 2.3238E04_JPRB,2.2040E04_JPRB,1.9936E04_JPRB,1.7403E04_JPRB,1.4649E04_JPRB,1.1721E04_JPRB,&  
976 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.5745E05_JPRB,3.1943E05_JPRB,9.1486E05_JPRB/) 
977  KAO( :, 1, 6, 5) = (/&  
978  & 1.8420E04_JPRB,1.6521E04_JPRB,1.4487E04_JPRB,1.2401E04_JPRB,1.0200E04_JPRB,5.1119E05_JPRB,&  
979 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.2764E05_JPRB,4.0912E05_JPRB,1.5202E05_JPRB/) 
980  KAO( :, 2, 6, 5) = (/&  
981  & 1.9125E04_JPRB,1.7344E04_JPRB,1.5331E04_JPRB,1.3274E04_JPRB,1.1039E04_JPRB,8.3040E05_JPRB,&  
982 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.0684E05_JPRB,4.1198E05_JPRB,2.7867E05_JPRB/) 
983  KAO( :, 3, 6, 5) = (/&  
984  & 1.9735E04_JPRB,1.8080E04_JPRB,1.6199E04_JPRB,1.4097E04_JPRB,1.1727E04_JPRB,9.0932E05_JPRB,&  
985 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7180E05_JPRB,4.3495E05_JPRB,4.4553E05_JPRB/) 
986  KAO( :, 4, 6, 5) = (/&  
987  & 2.0383E04_JPRB,1.8894E04_JPRB,1.7073E04_JPRB,1.4876E04_JPRB,1.2398E04_JPRB,9.7753E05_JPRB,&  
988 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.3121E05_JPRB,4.1277E05_JPRB,6.7315E05_JPRB/) 
989  KAO( :, 5, 6, 5) = (/&  
990  & 2.1033E04_JPRB,1.9804E04_JPRB,1.7951E04_JPRB,1.5655E04_JPRB,1.3146E04_JPRB,1.0454E04_JPRB,&  
991 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.4462E05_JPRB,2.9067E05_JPRB,9.7382E05_JPRB/) 
992  KAO( :, 1, 7, 5) = (/&  
993  & 1.6701E04_JPRB,1.4912E04_JPRB,1.3042E04_JPRB,1.1101E04_JPRB,8.9476E05_JPRB,4.0710E05_JPRB,&  
994 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.0855E05_JPRB,4.0116E05_JPRB,1.6644E05_JPRB/) 
995  KAO( :, 2, 7, 5) = (/&  
996  & 1.7267E04_JPRB,1.5557E04_JPRB,1.3718E04_JPRB,1.1786E04_JPRB,9.7049E05_JPRB,4.9928E05_JPRB,&  
997 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.8787E05_JPRB,4.5062E05_JPRB,2.9556E05_JPRB/) 
998  KAO( :, 3, 7, 5) = (/&  
999  & 1.7837E04_JPRB,1.6263E04_JPRB,1.4469E04_JPRB,1.2545E04_JPRB,1.0416E04_JPRB,7.8620E05_JPRB,&  
1000 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6425E05_JPRB,4.0796E05_JPRB,4.8760E05_JPRB/) 
1001  KAO( :, 4, 7, 5) = (/&  
1002  & 1.8378E04_JPRB,1.6956E04_JPRB,1.5235E04_JPRB,1.3267E04_JPRB,1.1063E04_JPRB,8.6254E05_JPRB,&  
1003 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2851E05_JPRB,4.0620E05_JPRB,7.6055E05_JPRB/) 
1004  KAO( :, 5, 7, 5) = (/&  
1005  & 1.8944E04_JPRB,1.7724E04_JPRB,1.6021E04_JPRB,1.4001E04_JPRB,1.1733E04_JPRB,9.2830E05_JPRB,&  
1006 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.1065E05_JPRB,3.8081E05_JPRB,1.1312E04_JPRB/) 
1007  KAO( :, 1, 8, 5) = (/&  
1008  & 1.5130E04_JPRB,1.3448E04_JPRB,1.1721E04_JPRB,9.9034E05_JPRB,5.7155E05_JPRB,4.5775E05_JPRB,&  
1009 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.5418E05_JPRB,3.6348E05_JPRB,2.0483E05_JPRB/) 
1010  KAO( :, 2, 8, 5) = (/&  
1011  & 1.5492E04_JPRB,1.3874E04_JPRB,1.2199E04_JPRB,1.0406E04_JPRB,8.3301E05_JPRB,3.7776E05_JPRB,&  
1012 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.8525E05_JPRB,4.3657E05_JPRB,3.7683E05_JPRB/) 
1013  KAO( :, 3, 8, 5) = (/&  
1014  & 1.6015E04_JPRB,1.4504E04_JPRB,1.2855E04_JPRB,1.1077E04_JPRB,9.0857E05_JPRB,4.6752E05_JPRB,&  
1015 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.3822E05_JPRB,4.5900E05_JPRB,6.4480E05_JPRB/) 
1016  KAO( :, 4, 8, 5) = (/&  
1017  & 1.6485E04_JPRB,1.5131E04_JPRB,1.3522E04_JPRB,1.1731E04_JPRB,9.7584E05_JPRB,7.3940E05_JPRB,&  
1018 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2766E05_JPRB,4.4537E05_JPRB,1.0397E04_JPRB/) 
1019  KAO( :, 5, 8, 5) = (/&  
1020  & 1.6974E04_JPRB,1.5791E04_JPRB,1.4195E04_JPRB,1.2381E04_JPRB,1.0390E04_JPRB,8.1150E05_JPRB,&  
1021 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2012E05_JPRB,4.1555E05_JPRB,1.5936E04_JPRB/) 
1022  KAO( :, 1, 9, 5) = (/&  
1023  & 1.3564E04_JPRB,1.2012E04_JPRB,1.0422E04_JPRB,8.6571E05_JPRB,3.4561E05_JPRB,5.5358E05_JPRB,&  
1024 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.8138E05_JPRB,3.3996E05_JPRB,4.5162E05_JPRB/) 
1025  KAO( :, 2, 9, 5) = (/&  
1026  & 1.3891E04_JPRB,1.2385E04_JPRB,1.0843E04_JPRB,9.1664E05_JPRB,5.0992E05_JPRB,4.2386E05_JPRB,&  
1027 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.5806E05_JPRB,4.0485E05_JPRB,8.7517E05_JPRB/) 
1028  KAO( :, 3, 9, 5) = (/&  
1029  & 1.4289E04_JPRB,1.2859E04_JPRB,1.1355E04_JPRB,9.7157E05_JPRB,7.7469E05_JPRB,3.4604E05_JPRB,&  
1030 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.5697E05_JPRB,4.6781E05_JPRB,1.5660E04_JPRB/) 
1031  KAO( :, 4, 9, 5) = (/&  
1032  & 1.4749E04_JPRB,1.3449E04_JPRB,1.1965E04_JPRB,1.0332E04_JPRB,8.5038E05_JPRB,4.3487E05_JPRB,&  
1033 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.9087E05_JPRB,4.7631E05_JPRB,2.6232E04_JPRB/) 
1034  KAO( :, 5, 9, 5) = (/&  
1035  & 1.5175E04_JPRB,1.4048E04_JPRB,1.2566E04_JPRB,1.0925E04_JPRB,9.1216E05_JPRB,6.9027E05_JPRB,&  
1036 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0570E05_JPRB,4.2818E05_JPRB,4.1578E04_JPRB/) 
1037  KAO( :, 1,10, 5) = (/&  
1038  & 1.2050E04_JPRB,1.0644E04_JPRB,9.1895E05_JPRB,5.4223E05_JPRB,4.2282E05_JPRB,7.1662E05_JPRB,&  
1039 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.3849E05_JPRB,3.1216E05_JPRB,1.2336E04_JPRB/) 
1040  KAO( :, 2,10, 5) = (/&  
1041  & 1.2385E04_JPRB,1.1007E04_JPRB,9.5885E05_JPRB,7.9074E05_JPRB,3.2785E05_JPRB,5.1790E05_JPRB,&  
1042 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.0330E05_JPRB,3.8106E05_JPRB,2.4914E04_JPRB/) 
1043  KAO( :, 3,10, 5) = (/&  
1044  & 1.2701E04_JPRB,1.1389E04_JPRB,1.0009E04_JPRB,8.4859E05_JPRB,4.3697E05_JPRB,3.8515E05_JPRB,&  
1045 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.4563E05_JPRB,4.6857E05_JPRB,4.6353E04_JPRB/) 
1046  KAO( :, 4,10, 5) = (/&  
1047  & 1.3108E04_JPRB,1.1889E04_JPRB,1.0547E04_JPRB,9.0382E05_JPRB,7.1811E05_JPRB,3.1846E05_JPRB,&  
1048 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.3076E05_JPRB,4.9334E05_JPRB,8.0273E04_JPRB/) 
1049  KAO( :, 5,10, 5) = (/&  
1050  & 1.3517E04_JPRB,1.2455E04_JPRB,1.1096E04_JPRB,9.6119E05_JPRB,7.9300E05_JPRB,3.9467E05_JPRB,&  
1051 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6989E05_JPRB,4.6816E05_JPRB,1.3114E03_JPRB/) 
1052  KAO( :, 1,11, 5) = (/&  
1053  & 1.0765E04_JPRB,9.5133E05_JPRB,8.1740E05_JPRB,2.9684E05_JPRB,4.4771E05_JPRB,7.3844E05_JPRB,&  
1054 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.4458E05_JPRB,3.2353E05_JPRB,1.7556E04_JPRB/) 
1055  KAO( :, 2,11, 5) = (/&  
1056  & 1.1086E04_JPRB,9.8643E05_JPRB,8.5755E05_JPRB,6.3950E05_JPRB,3.5072E05_JPRB,5.6362E05_JPRB,&  
1057 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.3811E05_JPRB,3.7974E05_JPRB,3.5513E04_JPRB/) 
1058  KAO( :, 3,11, 5) = (/&  
1059  & 1.1390E04_JPRB,1.0226E04_JPRB,8.9873E05_JPRB,7.5337E05_JPRB,2.7488E05_JPRB,4.0668E05_JPRB,&  
1060 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.6695E05_JPRB,4.8469E05_JPRB,6.6195E04_JPRB/) 
1061  KAO( :, 4,11, 5) = (/&  
1062  & 1.1768E04_JPRB,1.0695E04_JPRB,9.4758E05_JPRB,8.0812E05_JPRB,5.6203E05_JPRB,3.0959E05_JPRB,&  
1063 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4960E05_JPRB,5.2325E05_JPRB,1.1500E03_JPRB/) 
1064  KAO( :, 5,11, 5) = (/&  
1065  & 1.2143E04_JPRB,1.1200E04_JPRB,9.9665E05_JPRB,8.6317E05_JPRB,7.0507E05_JPRB,2.8241E05_JPRB,&  
1066 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.0108E05_JPRB,4.7823E05_JPRB,1.8824E03_JPRB/) 
1067  KAO( :, 1,12, 5) = (/&  
1068  & 9.5550E05_JPRB,8.4510E05_JPRB,7.2433E05_JPRB,2.4695E05_JPRB,4.1319E05_JPRB,6.8965E05_JPRB,&  
1069 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.5836E05_JPRB,3.3972E05_JPRB,1.8803E04_JPRB/) 
1070  KAO( :, 2,12, 5) = (/&  
1071  & 9.8585E05_JPRB,8.7816E05_JPRB,7.6262E05_JPRB,5.0625E05_JPRB,3.2099E05_JPRB,5.2909E05_JPRB,&  
1072 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.1285E05_JPRB,4.2092E05_JPRB,3.8071E04_JPRB/) 
1073  KAO( :, 3,12, 5) = (/&  
1074  & 1.0170E04_JPRB,9.1397E05_JPRB,8.0291E05_JPRB,6.6609E05_JPRB,2.6053E05_JPRB,3.8656E05_JPRB,&  
1075 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.2061E05_JPRB,5.0288E05_JPRB,7.1091E04_JPRB/) 
1076  KAO( :, 4,12, 5) = (/&  
1077  & 1.0532E04_JPRB,9.5859E05_JPRB,8.4741E05_JPRB,7.2190E05_JPRB,4.4571E05_JPRB,2.9606E05_JPRB,&  
1078 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1144E05_JPRB,5.0950E05_JPRB,1.2367E03_JPRB/) 
1079  KAO( :, 5,12, 5) = (/&  
1080  & 1.0873E04_JPRB,1.0026E04_JPRB,8.9123E05_JPRB,7.7100E05_JPRB,6.2475E05_JPRB,2.4044E05_JPRB,&  
1081 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7811E05_JPRB,4.5929E05_JPRB,2.0278E03_JPRB/) 
1082  KAO( :, 1,13, 5) = (/&  
1083  & 8.4205E05_JPRB,7.4539E05_JPRB,6.3467E05_JPRB,2.3538E05_JPRB,3.8325E05_JPRB,6.4275E05_JPRB,&  
1084 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.5533E05_JPRB,3.5671E05_JPRB,1.6223E04_JPRB/) 
1085  KAO( :, 2,13, 5) = (/&  
1086  & 8.7134E05_JPRB,7.7658E05_JPRB,6.7263E05_JPRB,3.8163E05_JPRB,2.9276E05_JPRB,4.8144E05_JPRB,&  
1087 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.6883E05_JPRB,4.5962E05_JPRB,3.2881E04_JPRB/) 
1088  KAO( :, 3,13, 5) = (/&  
1089  & 9.0177E05_JPRB,8.1122E05_JPRB,7.1136E05_JPRB,5.8053E05_JPRB,2.4699E05_JPRB,3.6684E05_JPRB,&  
1090 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.7406E05_JPRB,5.0678E05_JPRB,6.1498E04_JPRB/) 
1091  KAO( :, 4,13, 5) = (/&  
1092  & 9.3566E05_JPRB,8.5217E05_JPRB,7.5208E05_JPRB,6.3816E05_JPRB,3.3862E05_JPRB,2.8346E05_JPRB,&  
1093 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.7321E05_JPRB,4.6618E05_JPRB,1.0717E03_JPRB/) 
1094  KAO( :, 5,13, 5) = (/&  
1095  & 9.6738E05_JPRB,8.9098E05_JPRB,7.9178E05_JPRB,6.8356E05_JPRB,5.4471E05_JPRB,2.2350E05_JPRB,&  
1096 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5198E05_JPRB,4.4559E05_JPRB,1.7596E03_JPRB/) 
1097  KAO( :, 1, 1, 6) = (/&  
1098  & 3.5218E04_JPRB,3.2067E04_JPRB,2.8542E04_JPRB,2.4691E04_JPRB,2.0715E04_JPRB,1.6430E04_JPRB,&  
1099 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1630E04_JPRB,3.0602E05_JPRB,2.2334E05_JPRB/) 
1100  KAO( :, 2, 1, 6) = (/&  
1101  & 3.6703E04_JPRB,3.3779E04_JPRB,3.0330E04_JPRB,2.6523E04_JPRB,2.2344E04_JPRB,1.7999E04_JPRB,&  
1102 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3446E04_JPRB,5.1639E05_JPRB,3.3226E05_JPRB/) 
1103  KAO( :, 3, 1, 6) = (/&  
1104  & 3.8585E04_JPRB,3.5978E04_JPRB,3.2593E04_JPRB,2.8711E04_JPRB,2.4473E04_JPRB,2.0196E04_JPRB,&  
1105 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5783E04_JPRB,1.0327E04_JPRB,6.5420E05_JPRB/) 
1106  KAO( :, 4, 1, 6) = (/&  
1107  & 4.0907E04_JPRB,3.8577E04_JPRB,3.5450E04_JPRB,3.1632E04_JPRB,2.7470E04_JPRB,2.3182E04_JPRB,&  
1108 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8685E04_JPRB,1.3638E04_JPRB,1.1847E04_JPRB/) 
1109  KAO( :, 5, 1, 6) = (/&  
1110  & 4.3737E04_JPRB,4.1878E04_JPRB,3.9158E04_JPRB,3.5534E04_JPRB,3.1369E04_JPRB,2.6894E04_JPRB,&  
1111 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2111E04_JPRB,1.7023E04_JPRB,1.6126E04_JPRB/) 
1112  KAO( :, 1, 2, 6) = (/&  
1113  & 3.3988E04_JPRB,3.0828E04_JPRB,2.7319E04_JPRB,2.3566E04_JPRB,1.9671E04_JPRB,1.5488E04_JPRB,&  
1114 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0656E04_JPRB,2.4639E05_JPRB,2.0135E05_JPRB/) 
1115  KAO( :, 2, 2, 6) = (/&  
1116  & 3.5074E04_JPRB,3.2145E04_JPRB,2.8720E04_JPRB,2.5072E04_JPRB,2.1014E04_JPRB,1.6733E04_JPRB,&  
1117 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2121E04_JPRB,3.9180E05_JPRB,2.9901E05_JPRB/) 
1118  KAO( :, 3, 2, 6) = (/&  
1119  & 3.6475E04_JPRB,3.3829E04_JPRB,3.0546E04_JPRB,2.6776E04_JPRB,2.2592E04_JPRB,1.8277E04_JPRB,&  
1120 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3792E04_JPRB,7.3527E05_JPRB,6.9892E05_JPRB/) 
1121  KAO( :, 4, 2, 6) = (/&  
1122  & 3.8225E04_JPRB,3.5820E04_JPRB,3.2688E04_JPRB,2.8858E04_JPRB,2.4665E04_JPRB,2.0403E04_JPRB,&  
1123 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5963E04_JPRB,1.1035E04_JPRB,1.0774E04_JPRB/) 
1124  KAO( :, 5, 2, 6) = (/&  
1125  & 4.0273E04_JPRB,3.8268E04_JPRB,3.5304E04_JPRB,3.1570E04_JPRB,2.7513E04_JPRB,2.3154E04_JPRB,&  
1126 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8624E04_JPRB,1.3783E04_JPRB,1.4438E04_JPRB/) 
1127  KAO( :, 1, 3, 6) = (/&  
1128  & 3.2586E04_JPRB,2.9354E04_JPRB,2.5840E04_JPRB,2.2211E04_JPRB,1.8493E04_JPRB,1.4459E04_JPRB,&  
1129 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.3968E05_JPRB,2.6836E05_JPRB,1.7667E05_JPRB/) 
1130  KAO( :, 2, 3, 6) = (/&  
1131  & 3.3335E04_JPRB,3.0322E04_JPRB,2.6938E04_JPRB,2.3450E04_JPRB,1.9584E04_JPRB,1.5458E04_JPRB,&  
1132 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0872E04_JPRB,2.7860E05_JPRB,4.2305E05_JPRB/) 
1133  KAO( :, 3, 3, 6) = (/&  
1134  & 3.4307E04_JPRB,3.1560E04_JPRB,2.8356E04_JPRB,2.4811E04_JPRB,2.0859E04_JPRB,1.6657E04_JPRB,&  
1135 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2164E04_JPRB,4.3049E05_JPRB,7.4173E05_JPRB/) 
1136  KAO( :, 4, 3, 6) = (/&  
1137  & 3.5510E04_JPRB,3.3067E04_JPRB,3.0030E04_JPRB,2.6396E04_JPRB,2.2347E04_JPRB,1.8094E04_JPRB,&  
1138 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3617E04_JPRB,8.0549E05_JPRB,1.0462E04_JPRB/) 
1139  KAO( :, 5, 3, 6) = (/&  
1140  & 3.6934E04_JPRB,3.4886E04_JPRB,3.1925E04_JPRB,2.8285E04_JPRB,2.4246E04_JPRB,1.9904E04_JPRB,&  
1141 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5402E04_JPRB,1.0740E04_JPRB,1.4134E04_JPRB/) 
1142  KAO( :, 1, 4, 6) = (/&  
1143  & 3.1202E04_JPRB,2.8003E04_JPRB,2.4507E04_JPRB,2.0972E04_JPRB,1.7365E04_JPRB,1.3503E04_JPRB,&  
1144 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.8768E05_JPRB,2.9314E05_JPRB,2.4023E05_JPRB/) 
1145  KAO( :, 2, 4, 6) = (/&  
1146  & 3.1813E04_JPRB,2.8791E04_JPRB,2.5394E04_JPRB,2.1965E04_JPRB,1.8377E04_JPRB,1.4389E04_JPRB,&  
1147 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.7093E05_JPRB,2.3337E05_JPRB,5.0021E05_JPRB/) 
1148  KAO( :, 3, 4, 6) = (/&  
1149  & 3.2483E04_JPRB,2.9675E04_JPRB,2.6510E04_JPRB,2.3175E04_JPRB,1.9444E04_JPRB,1.5360E04_JPRB,&  
1150 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0928E04_JPRB,3.0718E05_JPRB,7.6252E05_JPRB/) 
1151  KAO( :, 4, 4, 6) = (/&  
1152  & 3.3350E04_JPRB,3.0829E04_JPRB,2.7872E04_JPRB,2.4437E04_JPRB,2.0593E04_JPRB,1.6469E04_JPRB,&  
1153 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2057E04_JPRB,4.4984E05_JPRB,1.0921E04_JPRB/) 
1154  KAO( :, 5, 4, 6) = (/&  
1155  & 3.4440E04_JPRB,3.2288E04_JPRB,2.9368E04_JPRB,2.5882E04_JPRB,2.1958E04_JPRB,1.7772E04_JPRB,&  
1156 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3279E04_JPRB,8.3344E05_JPRB,1.5068E04_JPRB/) 
1157  KAO( :, 1, 5, 6) = (/&  
1158  & 2.9770E04_JPRB,2.6568E04_JPRB,2.3231E04_JPRB,1.9760E04_JPRB,1.6264E04_JPRB,1.2501E04_JPRB,&  
1159 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.2212E05_JPRB,2.7851E05_JPRB,2.9425E05_JPRB/) 
1160  KAO( :, 2, 5, 6) = (/&  
1161  & 3.0341E04_JPRB,2.7316E04_JPRB,2.3988E04_JPRB,2.0612E04_JPRB,1.7178E04_JPRB,1.3444E04_JPRB,&  
1162 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.8808E05_JPRB,2.4233E05_JPRB,5.0902E05_JPRB/) 
1163  KAO( :, 3, 5, 6) = (/&  
1164  & 3.0855E04_JPRB,2.8044E04_JPRB,2.4851E04_JPRB,2.1615E04_JPRB,1.8164E04_JPRB,1.4300E04_JPRB,&  
1165 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.8456E05_JPRB,2.2567E05_JPRB,7.8789E05_JPRB/) 
1166  KAO( :, 4, 5, 6) = (/&  
1167  & 3.1479E04_JPRB,2.8896E04_JPRB,2.6020E04_JPRB,2.2793E04_JPRB,1.9183E04_JPRB,1.5203E04_JPRB,&  
1168 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0899E04_JPRB,3.3886E05_JPRB,1.1586E04_JPRB/) 
1169  KAO( :, 5, 5, 6) = (/&  
1170  & 3.2275E04_JPRB,3.0062E04_JPRB,2.7287E04_JPRB,2.4005E04_JPRB,2.0243E04_JPRB,1.6230E04_JPRB,&  
1171 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1916E04_JPRB,4.8642E05_JPRB,1.6375E04_JPRB/) 
1172  KAO( :, 1, 6, 6) = (/&  
1173  & 2.8451E04_JPRB,2.5278E04_JPRB,2.2028E04_JPRB,1.8707E04_JPRB,1.5294E04_JPRB,1.1368E04_JPRB,&  
1174 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1499E05_JPRB,2.2491E05_JPRB,2.9300E05_JPRB/) 
1175  KAO( :, 2, 6, 6) = (/&  
1176  & 2.8818E04_JPRB,2.5756E04_JPRB,2.2592E04_JPRB,1.9305E04_JPRB,1.5960E04_JPRB,1.2358E04_JPRB,&  
1177 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.9278E05_JPRB,2.8018E05_JPRB,5.0020E05_JPRB/) 
1178  KAO( :, 3, 6, 6) = (/&  
1179  & 2.9308E04_JPRB,2.6479E04_JPRB,2.3342E04_JPRB,2.0176E04_JPRB,1.6837E04_JPRB,1.3278E04_JPRB,&  
1180 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 7.5022E05_JPRB,2.4679E05_JPRB,7.9554E05_JPRB/) 
1181  KAO( :, 4, 6, 6) = (/&  
1182  & 2.9797E04_JPRB,2.7171E04_JPRB,2.4252E04_JPRB,2.1130E04_JPRB,1.7798E04_JPRB,1.4080E04_JPRB,&  
1183 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.8593E05_JPRB,2.6413E05_JPRB,1.2029E04_JPRB/) 
1184  KAO( :, 5, 6, 6) = (/&  
1185  & 3.0385E04_JPRB,2.8038E04_JPRB,2.5320E04_JPRB,2.2231E04_JPRB,1.8746E04_JPRB,1.4953E04_JPRB,&  
1186 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0805E04_JPRB,3.4957E05_JPRB,1.7428E04_JPRB/) 
1187  KAO( :, 1, 7, 6) = (/&  
1188  & 2.7154E04_JPRB,2.4047E04_JPRB,2.0869E04_JPRB,1.7653E04_JPRB,1.4316E04_JPRB,6.3076E05_JPRB,&  
1189 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.3076E05_JPRB,1.8799E05_JPRB,2.9459E05_JPRB/) 
1190  KAO( :, 2, 7, 6) = (/&  
1191  & 2.7322E04_JPRB,2.4322E04_JPRB,2.1245E04_JPRB,1.8113E04_JPRB,1.4876E04_JPRB,1.1194E04_JPRB,&  
1192 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.9416E05_JPRB,2.1766E05_JPRB,5.1977E05_JPRB/) 
1193  KAO( :, 3, 7, 6) = (/&  
1194  & 2.7795E04_JPRB,2.4940E04_JPRB,2.1931E04_JPRB,1.8853E04_JPRB,1.5632E04_JPRB,1.2173E04_JPRB,&  
1195 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.3459E05_JPRB,2.7910E05_JPRB,8.5515E05_JPRB/) 
1196  KAO( :, 4, 7, 6) = (/&  
1197  & 2.8245E04_JPRB,2.5609E04_JPRB,2.2726E04_JPRB,1.9695E04_JPRB,1.6467E04_JPRB,1.3028E04_JPRB,&  
1198 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.3030E05_JPRB,3.1238E05_JPRB,1.3325E04_JPRB/) 
1199  KAO( :, 5, 7, 6) = (/&  
1200  & 2.8703E04_JPRB,2.6318E04_JPRB,2.3595E04_JPRB,2.0579E04_JPRB,1.7351E04_JPRB,1.3813E04_JPRB,&  
1201 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.7826E05_JPRB,2.9395E05_JPRB,1.9863E04_JPRB/) 
1202  KAO( :, 1, 8, 6) = (/&  
1203  & 2.5666E04_JPRB,2.2665E04_JPRB,1.9623E04_JPRB,1.6528E04_JPRB,1.3188E04_JPRB,5.2672E05_JPRB,&  
1204 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4590E05_JPRB,1.5212E05_JPRB,3.5336E05_JPRB/) 
1205  KAO( :, 2, 8, 6) = (/&  
1206  & 2.5871E04_JPRB,2.2976E04_JPRB,1.9987E04_JPRB,1.6976E04_JPRB,1.3838E04_JPRB,6.2293E05_JPRB,&  
1207 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1049E05_JPRB,2.0990E05_JPRB,6.5164E05_JPRB/) 
1208  KAO( :, 3, 8, 6) = (/&  
1209  & 2.6131E04_JPRB,2.3354E04_JPRB,2.0472E04_JPRB,1.7542E04_JPRB,1.4479E04_JPRB,1.0936E04_JPRB,&  
1210 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.3593E05_JPRB,2.7838E05_JPRB,1.1164E04_JPRB/) 
1211  KAO( :, 4, 8, 6) = (/&  
1212  & 2.6597E04_JPRB,2.3972E04_JPRB,2.1214E04_JPRB,1.8293E04_JPRB,1.5207E04_JPRB,1.1872E04_JPRB,&  
1213 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2928E05_JPRB,2.9399E05_JPRB,1.8005E04_JPRB/) 
1214  KAO( :, 5, 8, 6) = (/&  
1215  & 2.6965E04_JPRB,2.4602E04_JPRB,2.1946E04_JPRB,1.9059E04_JPRB,1.5945E04_JPRB,1.2678E04_JPRB,&  
1216 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.1506E05_JPRB,3.0396E05_JPRB,2.7574E04_JPRB/) 
1217  KAO( :, 1, 9, 6) = (/&  
1218  & 2.4051E04_JPRB,2.1191E04_JPRB,1.8318E04_JPRB,1.5348E04_JPRB,8.9740E05_JPRB,5.6443E05_JPRB,&  
1219 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.8323E05_JPRB,1.3977E05_JPRB,7.8714E05_JPRB/) 
1220  KAO( :, 2, 9, 6) = (/&  
1221  & 2.4280E04_JPRB,2.1514E04_JPRB,1.8659E04_JPRB,1.5766E04_JPRB,1.2621E04_JPRB,4.8115E05_JPRB,&  
1222 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1962E05_JPRB,1.8297E05_JPRB,1.5286E04_JPRB/) 
1223  KAO( :, 3, 9, 6) = (/&  
1224  & 2.4480E04_JPRB,2.1809E04_JPRB,1.9044E04_JPRB,1.6238E04_JPRB,1.3286E04_JPRB,5.9719E05_JPRB,&  
1225 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.7955E05_JPRB,2.2245E05_JPRB,2.7373E04_JPRB/) 
1226  KAO( :, 4, 9, 6) = (/&  
1227  & 2.4800E04_JPRB,2.2255E04_JPRB,1.9613E04_JPRB,1.6836E04_JPRB,1.3908E04_JPRB,1.0477E04_JPRB,&  
1228 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.9262E05_JPRB,3.1477E05_JPRB,4.5768E04_JPRB/) 
1229  KAO( :, 5, 9, 6) = (/&  
1230  & 2.5161E04_JPRB,2.2818E04_JPRB,2.0281E04_JPRB,1.7515E04_JPRB,1.4598E04_JPRB,1.1469E04_JPRB,&  
1231 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6846E05_JPRB,3.4477E05_JPRB,7.2229E04_JPRB/) 
1232  KAO( :, 1,10, 6) = (/&  
1233  & 2.2330E04_JPRB,1.9647E04_JPRB,1.6947E04_JPRB,1.4070E04_JPRB,5.0397E05_JPRB,6.4372E05_JPRB,&  
1234 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4119E05_JPRB,1.3671E05_JPRB,2.1819E04_JPRB/) 
1235  KAO( :, 2,10, 6) = (/&  
1236  & 2.2579E04_JPRB,1.9970E04_JPRB,1.7289E04_JPRB,1.4528E04_JPRB,8.0532E05_JPRB,5.4367E05_JPRB,&  
1237 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.0104E05_JPRB,1.5483E05_JPRB,4.4393E04_JPRB/) 
1238  KAO( :, 3,10, 6) = (/&  
1239  & 2.2759E04_JPRB,2.0234E04_JPRB,1.7625E04_JPRB,1.4950E04_JPRB,1.1945E04_JPRB,4.4354E05_JPRB,&  
1240 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.3052E05_JPRB,2.1110E05_JPRB,8.2682E04_JPRB/) 
1241  KAO( :, 4,10, 6) = (/&  
1242  & 2.2922E04_JPRB,2.0521E04_JPRB,1.8016E04_JPRB,1.5410E04_JPRB,1.2582E04_JPRB,5.3486E05_JPRB,&  
1243 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.4581E05_JPRB,2.9122E05_JPRB,1.4295E03_JPRB/) 
1244  KAO( :, 5,10, 6) = (/&  
1245  & 2.3198E04_JPRB,2.0949E04_JPRB,1.8557E04_JPRB,1.5950E04_JPRB,1.3216E04_JPRB,9.8775E05_JPRB,&  
1246 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6643E05_JPRB,3.6794E05_JPRB,2.3221E03_JPRB/) 
1247  KAO( :, 1,11, 6) = (/&  
1248  & 2.0583E04_JPRB,1.8127E04_JPRB,1.5633E04_JPRB,1.2776E04_JPRB,4.7811E05_JPRB,6.9737E05_JPRB,&  
1249 
2/2✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.

10  & 5.8557E05_JPRB,1.2546E05_JPRB,3.1512E04_JPRB/) 
1250  
1251 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART4',1,ZHOOK_HANDLE) 
1252  1  END SUBROUTINE PART4  
1253  
1254  
1255  1  SUBROUTINE PART5  
1256  
1257  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
1258 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART5',0,ZHOOK_HANDLE) 
1259  
1260  
1261  KAO( :, 2,11, 6) = (/&  
1262  & 2.0808E04_JPRB,1.8417E04_JPRB,1.5959E04_JPRB,1.3341E04_JPRB,4.2960E05_JPRB,5.2587E05_JPRB,&  
1263 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.0943E05_JPRB,1.7249E05_JPRB,6.4309E04_JPRB/) 
1264  KAO( :, 3,11, 6) = (/&  
1265  & 2.0985E04_JPRB,1.8679E04_JPRB,1.6278E04_JPRB,1.3786E04_JPRB,1.0094E04_JPRB,4.2926E05_JPRB,&  
1266 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4000E05_JPRB,2.1438E05_JPRB,1.2009E03_JPRB/) 
1267  KAO( :, 4,11, 6) = (/&  
1268  & 2.1113E04_JPRB,1.8931E04_JPRB,1.6638E04_JPRB,1.4208E04_JPRB,1.1471E04_JPRB,3.5997E05_JPRB,&  
1269 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.5064E05_JPRB,2.9593E05_JPRB,2.0809E03_JPRB/) 
1270  KAO( :, 5,11, 6) = (/&  
1271  & 2.1332E04_JPRB,1.9322E04_JPRB,1.7102E04_JPRB,1.4678E04_JPRB,1.2136E04_JPRB,7.6714E05_JPRB,&  
1272 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8255E05_JPRB,4.0077E05_JPRB,3.3932E03_JPRB/) 
1273  KAO( :, 1,12, 6) = (/&  
1274  & 1.8719E04_JPRB,1.6501E04_JPRB,1.4226E04_JPRB,1.0840E04_JPRB,4.3551E05_JPRB,6.5135E05_JPRB,&  
1275 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.0449E05_JPRB,1.2368E05_JPRB,3.4134E04_JPRB/) 
1276  KAO( :, 2,12, 6) = (/&  
1277  & 1.8952E04_JPRB,1.6785E04_JPRB,1.4553E04_JPRB,1.2117E04_JPRB,3.5062E05_JPRB,4.8573E05_JPRB,&  
1278 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.2841E05_JPRB,1.5474E05_JPRB,6.9803E04_JPRB/) 
1279  KAO( :, 3,12, 6) = (/&  
1280  & 1.9118E04_JPRB,1.7048E04_JPRB,1.4865E04_JPRB,1.2583E04_JPRB,8.1862E05_JPRB,3.7617E05_JPRB,&  
1281 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.3564E05_JPRB,2.1248E05_JPRB,1.3057E03_JPRB/) 
1282  KAO( :, 4,12, 6) = (/&  
1283  & 1.9270E04_JPRB,1.7320E04_JPRB,1.5231E04_JPRB,1.2983E04_JPRB,1.0441E04_JPRB,3.3342E05_JPRB,&  
1284 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.1959E05_JPRB,3.5845E05_JPRB,2.2690E03_JPRB/) 
1285  KAO( :, 5,12, 6) = (/&  
1286  & 1.9518E04_JPRB,1.7738E04_JPRB,1.5684E04_JPRB,1.3457E04_JPRB,1.1104E04_JPRB,6.4947E05_JPRB,&  
1287 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5407E05_JPRB,4.3496E05_JPRB,3.7128E03_JPRB/) 
1288  KAO( :, 1,13, 6) = (/&  
1289  & 1.6844E04_JPRB,1.4859E04_JPRB,1.2806E04_JPRB,8.6165E05_JPRB,4.0107E05_JPRB,6.0133E05_JPRB,&  
1290 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.1357E05_JPRB,1.2763E05_JPRB,2.9734E04_JPRB/) 
1291  KAO( :, 2,13, 6) = (/&  
1292  & 1.7069E04_JPRB,1.5140E04_JPRB,1.3134E04_JPRB,1.0891E04_JPRB,3.2613E05_JPRB,4.6872E05_JPRB,&  
1293 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.0094E05_JPRB,1.5072E05_JPRB,6.0887E04_JPRB/) 
1294  KAO( :, 3,13, 6) = (/&  
1295  & 1.7244E04_JPRB,1.5407E04_JPRB,1.3444E04_JPRB,1.1361E04_JPRB,6.4637E05_JPRB,3.4627E05_JPRB,&  
1296 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.8765E05_JPRB,2.7303E05_JPRB,1.1416E03_JPRB/) 
1297  KAO( :, 4,13, 6) = (/&  
1298  & 1.7422E04_JPRB,1.5702E04_JPRB,1.3806E04_JPRB,1.1756E04_JPRB,9.3337E05_JPRB,3.0148E05_JPRB,&  
1299 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8538E05_JPRB,4.2636E05_JPRB,1.9903E03_JPRB/) 
1300  KAO( :, 5,13, 6) = (/&  
1301  & 1.7685E04_JPRB,1.6120E04_JPRB,1.4238E04_JPRB,1.2222E04_JPRB,1.0041E04_JPRB,5.2947E05_JPRB,&  
1302 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.1886E05_JPRB,4.0330E05_JPRB,3.2638E03_JPRB/) 
1303  KAO( :, 1, 1, 7) = (/&  
1304  & 4.3889E04_JPRB,3.9958E04_JPRB,3.5783E04_JPRB,3.1336E04_JPRB,2.6698E04_JPRB,2.1857E04_JPRB,&  
1305 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6424E04_JPRB,4.0399E05_JPRB,2.8247E05_JPRB/) 
1306  KAO( :, 2, 1, 7) = (/&  
1307  & 4.5976E04_JPRB,4.2497E04_JPRB,3.8736E04_JPRB,3.4581E04_JPRB,3.0220E04_JPRB,2.5189E04_JPRB,&  
1308 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9631E04_JPRB,1.0954E04_JPRB,6.7630E05_JPRB/) 
1309  KAO( :, 3, 1, 7) = (/&  
1310  & 4.8944E04_JPRB,4.6159E04_JPRB,4.2784E04_JPRB,3.8962E04_JPRB,3.4476E04_JPRB,2.9292E04_JPRB,&  
1311 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3514E04_JPRB,1.7014E04_JPRB,1.5365E04_JPRB/) 
1312  KAO( :, 4, 1, 7) = (/&  
1313  & 5.2941E04_JPRB,5.1023E04_JPRB,4.7948E04_JPRB,4.4219E04_JPRB,3.9618E04_JPRB,3.4392E04_JPRB,&  
1314 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.8630E04_JPRB,2.2387E04_JPRB,2.1803E04_JPRB/) 
1315  KAO( :, 5, 1, 7) = (/&  
1316  & 5.7974E04_JPRB,5.6859E04_JPRB,5.4269E04_JPRB,5.0514E04_JPRB,4.6062E04_JPRB,4.1002E04_JPRB,&  
1317 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.5338E04_JPRB,2.8599E04_JPRB,2.8983E04_JPRB/) 
1318  KAO( :, 1, 2, 7) = (/&  
1319  & 4.2778E04_JPRB,3.8751E04_JPRB,3.4424E04_JPRB,2.9838E04_JPRB,2.5188E04_JPRB,2.0290E04_JPRB,&  
1320 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4875E04_JPRB,2.6658E05_JPRB,3.1573E05_JPRB/) 
1321  KAO( :, 2, 2, 7) = (/&  
1322  & 4.4270E04_JPRB,4.0621E04_JPRB,3.6561E04_JPRB,3.2154E04_JPRB,2.7708E04_JPRB,2.2750E04_JPRB,&  
1323 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7305E04_JPRB,6.5324E05_JPRB,8.8564E05_JPRB/) 
1324  KAO( :, 3, 2, 7) = (/&  
1325  & 4.6316E04_JPRB,4.3154E04_JPRB,3.9306E04_JPRB,3.5392E04_JPRB,3.0888E04_JPRB,2.5881E04_JPRB,&  
1326 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0328E04_JPRB,1.3652E04_JPRB,1.4781E04_JPRB/) 
1327  KAO( :, 4, 2, 7) = (/&  
1328  & 4.8891E04_JPRB,4.6467E04_JPRB,4.3116E04_JPRB,3.9316E04_JPRB,3.4835E04_JPRB,2.9748E04_JPRB,&  
1329 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4237E04_JPRB,1.8240E04_JPRB,2.0533E04_JPRB/) 
1330  KAO( :, 5, 2, 7) = (/&  
1331  & 5.2249E04_JPRB,5.0735E04_JPRB,4.7839E04_JPRB,4.4173E04_JPRB,3.9700E04_JPRB,3.4683E04_JPRB,&  
1332 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.9289E04_JPRB,2.3410E04_JPRB,2.7363E04_JPRB/) 
1333  KAO( :, 1, 3, 7) = (/&  
1334  & 4.1666E04_JPRB,3.7587E04_JPRB,3.3124E04_JPRB,2.8500E04_JPRB,2.3719E04_JPRB,1.8911E04_JPRB,&  
1335 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3261E04_JPRB,2.3452E05_JPRB,4.9343E05_JPRB/) 
1336  KAO( :, 2, 3, 7) = (/&  
1337  & 4.2699E04_JPRB,3.8906E04_JPRB,3.4648E04_JPRB,3.0084E04_JPRB,2.5570E04_JPRB,2.0628E04_JPRB,&  
1338 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5092E04_JPRB,2.8713E05_JPRB,9.9198E05_JPRB/) 
1339  KAO( :, 3, 3, 7) = (/&  
1340  & 4.4021E04_JPRB,4.0629E04_JPRB,3.6539E04_JPRB,3.2263E04_JPRB,2.7685E04_JPRB,2.2699E04_JPRB,&  
1341 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7257E04_JPRB,8.2898E05_JPRB,1.4682E04_JPRB/) 
1342  KAO( :, 4, 3, 7) = (/&  
1343  & 4.5674E04_JPRB,4.2778E04_JPRB,3.8962E04_JPRB,3.4911E04_JPRB,3.0352E04_JPRB,2.5381E04_JPRB,&  
1344 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9998E04_JPRB,1.3835E04_JPRB,2.0520E04_JPRB/) 
1345  KAO( :, 5, 3, 7) = (/&  
1346  & 4.7776E04_JPRB,4.5415E04_JPRB,4.2101E04_JPRB,3.8173E04_JPRB,3.3698E04_JPRB,2.8849E04_JPRB,&  
1347 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3510E04_JPRB,1.7936E04_JPRB,2.7654E04_JPRB/) 
1348  KAO( :, 1, 4, 7) = (/&  
1349  & 4.0967E04_JPRB,3.6653E04_JPRB,3.2176E04_JPRB,2.7479E04_JPRB,2.2703E04_JPRB,1.7902E04_JPRB,&  
1350 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.1570E04_JPRB,2.0026E05_JPRB,6.2716E05_JPRB/) 
1351  KAO( :, 2, 4, 7) = (/&  
1352  & 4.1728E04_JPRB,3.7737E04_JPRB,3.3344E04_JPRB,2.8769E04_JPRB,2.4076E04_JPRB,1.9242E04_JPRB,&  
1353 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3658E04_JPRB,2.3923E05_JPRB,1.0107E04_JPRB/) 
1354  KAO( :, 3, 4, 7) = (/&  
1355  & 4.2535E04_JPRB,3.8928E04_JPRB,3.4656E04_JPRB,3.0255E04_JPRB,2.5648E04_JPRB,2.0706E04_JPRB,&  
1356 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5237E04_JPRB,3.0608E05_JPRB,1.5048E04_JPRB/) 
1357  KAO( :, 4, 4, 7) = (/&  
1358  & 4.3671E04_JPRB,4.0394E04_JPRB,3.6448E04_JPRB,3.2102E04_JPRB,2.7530E04_JPRB,2.2501E04_JPRB,&  
1359 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7081E04_JPRB,9.6060E05_JPRB,2.1454E04_JPRB/) 
1360  KAO( :, 5, 4, 7) = (/&  
1361  & 4.4976E04_JPRB,4.2181E04_JPRB,3.8534E04_JPRB,3.4353E04_JPRB,2.9780E04_JPRB,2.4759E04_JPRB,&  
1362 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9471E04_JPRB,1.3517E04_JPRB,2.9601E04_JPRB/) 
1363  KAO( :, 1, 5, 7) = (/&  
1364  & 4.0808E04_JPRB,3.6358E04_JPRB,3.1756E04_JPRB,2.7050E04_JPRB,2.2238E04_JPRB,1.7234E04_JPRB,&  
1365 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.9731E05_JPRB,1.5183E05_JPRB,6.3144E05_JPRB/) 
1366  KAO( :, 2, 5, 7) = (/&  
1367  & 4.1172E04_JPRB,3.6950E04_JPRB,3.2496E04_JPRB,2.7819E04_JPRB,2.3077E04_JPRB,1.8213E04_JPRB,&  
1368 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2446E04_JPRB,2.0194E05_JPRB,1.0232E04_JPRB/) 
1369  KAO( :, 3, 5, 7) = (/&  
1370  & 4.1699E04_JPRB,3.7855E04_JPRB,3.3456E04_JPRB,2.8999E04_JPRB,2.4284E04_JPRB,1.9427E04_JPRB,&  
1371 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3989E04_JPRB,2.2013E05_JPRB,1.5619E04_JPRB/) 
1372  KAO( :, 4, 5, 7) = (/&  
1373  & 4.2318E04_JPRB,3.8831E04_JPRB,3.4637E04_JPRB,3.0279E04_JPRB,2.5707E04_JPRB,2.0772E04_JPRB,&  
1374 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5350E04_JPRB,3.7923E05_JPRB,2.2888E04_JPRB/) 
1375  KAO( :, 5, 5, 7) = (/&  
1376  & 4.3181E04_JPRB,3.9999E04_JPRB,3.6216E04_JPRB,3.1916E04_JPRB,2.7412E04_JPRB,2.2354E04_JPRB,&  
1377 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6943E04_JPRB,1.0257E04_JPRB,3.2402E04_JPRB/) 
1378  KAO( :, 1, 6, 7) = (/&  
1379  & 4.0917E04_JPRB,3.6282E04_JPRB,3.1586E04_JPRB,2.6754E04_JPRB,2.1851E04_JPRB,1.6735E04_JPRB,&  
1380 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.0306E05_JPRB,1.4647E05_JPRB,5.9838E05_JPRB/) 
1381  KAO( :, 2, 6, 7) = (/&  
1382  & 4.0728E04_JPRB,3.6393E04_JPRB,3.1828E04_JPRB,2.7141E04_JPRB,2.2388E04_JPRB,1.7484E04_JPRB,&  
1383 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.6257E05_JPRB,1.8734E05_JPRB,1.0066E04_JPRB/) 
1384  KAO( :, 3, 6, 7) = (/&  
1385  & 4.1093E04_JPRB,3.6989E04_JPRB,3.2582E04_JPRB,2.7999E04_JPRB,2.3310E04_JPRB,1.8335E04_JPRB,&  
1386 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2803E04_JPRB,1.9091E05_JPRB,1.6014E04_JPRB/) 
1387  KAO( :, 4, 6, 7) = (/&  
1388  & 4.1435E04_JPRB,3.7775E04_JPRB,3.3462E04_JPRB,2.9056E04_JPRB,2.4377E04_JPRB,1.9519E04_JPRB,&  
1389 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4167E04_JPRB,2.4651E05_JPRB,2.4320E04_JPRB/) 
1390  KAO( :, 5, 6, 7) = (/&  
1391  & 4.1880E04_JPRB,3.8572E04_JPRB,3.4541E04_JPRB,3.0219E04_JPRB,2.5684E04_JPRB,2.0763E04_JPRB,&  
1392 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5383E04_JPRB,5.0012E05_JPRB,3.5512E04_JPRB/) 
1393  KAO( :, 1, 7, 7) = (/&  
1394  & 4.0843E04_JPRB,3.6062E04_JPRB,3.1311E04_JPRB,2.6422E04_JPRB,2.1469E04_JPRB,1.5788E04_JPRB,&  
1395 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.4260E05_JPRB,1.0477E05_JPRB,5.9419E05_JPRB/) 
1396  KAO( :, 2, 7, 7) = (/&  
1397  & 4.0468E04_JPRB,3.5984E04_JPRB,3.1329E04_JPRB,2.6596E04_JPRB,2.1769E04_JPRB,1.6781E04_JPRB,&  
1398 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.1786E05_JPRB,1.4646E05_JPRB,1.0524E04_JPRB/) 
1399  KAO( :, 3, 7, 7) = (/&  
1400  & 4.0363E04_JPRB,3.6136E04_JPRB,3.1683E04_JPRB,2.7075E04_JPRB,2.2418E04_JPRB,1.7495E04_JPRB,&  
1401 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 8.7540E05_JPRB,1.8041E05_JPRB,1.7514E04_JPRB/) 
1402  KAO( :, 4, 7, 7) = (/&  
1403  & 4.0645E04_JPRB,3.6771E04_JPRB,3.2468E04_JPRB,2.8007E04_JPRB,2.3381E04_JPRB,1.8431E04_JPRB,&  
1404 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2997E04_JPRB,1.8283E05_JPRB,2.7663E04_JPRB/) 
1405  KAO( :, 5, 7, 7) = (/&  
1406  & 4.0882E04_JPRB,3.7446E04_JPRB,3.3339E04_JPRB,2.9009E04_JPRB,2.4386E04_JPRB,1.9554E04_JPRB,&  
1407 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.4307E04_JPRB,2.6104E05_JPRB,4.1561E04_JPRB/) 
1408  KAO( :, 1, 8, 7) = (/&  
1409  & 4.0424E04_JPRB,3.5590E04_JPRB,3.0795E04_JPRB,2.5922E04_JPRB,2.0908E04_JPRB,7.0272E05_JPRB,&  
1410 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7437E05_JPRB,1.0693E05_JPRB,7.0148E05_JPRB/) 
1411  KAO( :, 2, 8, 7) = (/&  
1412  & 3.9936E04_JPRB,3.5369E04_JPRB,3.0725E04_JPRB,2.5982E04_JPRB,2.1133E04_JPRB,1.5687E04_JPRB,&  
1413 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.6834E05_JPRB,1.4067E05_JPRB,1.3163E04_JPRB/) 
1414  KAO( :, 3, 8, 7) = (/&  
1415  & 3.9575E04_JPRB,3.5313E04_JPRB,3.0818E04_JPRB,2.6229E04_JPRB,2.1562E04_JPRB,1.6577E04_JPRB,&  
1416 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.0426E05_JPRB,1.5328E05_JPRB,2.2983E04_JPRB/) 
1417  KAO( :, 4, 8, 7) = (/&  
1418  & 3.9577E04_JPRB,3.5593E04_JPRB,3.1259E04_JPRB,2.6838E04_JPRB,2.2238E04_JPRB,1.7380E04_JPRB,&  
1419 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 9.5405E05_JPRB,1.7738E05_JPRB,3.7526E04_JPRB/) 
1420  KAO( :, 5, 8, 7) = (/&  
1421  & 3.9853E04_JPRB,3.6216E04_JPRB,3.2118E04_JPRB,2.7729E04_JPRB,2.3198E04_JPRB,1.8391E04_JPRB,&  
1422 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3140E04_JPRB,2.3100E05_JPRB,5.7971E04_JPRB/) 
1423  KAO( :, 1, 9, 7) = (/&  
1424  & 3.9550E04_JPRB,3.4756E04_JPRB,2.9976E04_JPRB,2.5157E04_JPRB,2.0053E04_JPRB,6.3971E05_JPRB,&  
1425 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0992E05_JPRB,8.5618E06_JPRB,1.5177E04_JPRB/) 
1426  KAO( :, 2, 9, 7) = (/&  
1427  & 3.9108E04_JPRB,3.4522E04_JPRB,2.9936E04_JPRB,2.5239E04_JPRB,2.0355E04_JPRB,7.9459E05_JPRB,&  
1428 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.6168E05_JPRB,1.0069E05_JPRB,3.0222E04_JPRB/) 
1429  KAO( :, 3, 9, 7) = (/&  
1430  & 3.8711E04_JPRB,3.4432E04_JPRB,2.9976E04_JPRB,2.5434E04_JPRB,2.0775E04_JPRB,1.5531E04_JPRB,&  
1431 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.6577E05_JPRB,1.4628E05_JPRB,5.5112E04_JPRB/) 
1432  KAO( :, 4, 9, 7) = (/&  
1433  & 3.8454E04_JPRB,3.4471E04_JPRB,3.0182E04_JPRB,2.5833E04_JPRB,2.1289E04_JPRB,1.6399E04_JPRB,&  
1434 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.7735E05_JPRB,1.8317E05_JPRB,9.3434E04_JPRB/) 
1435  KAO( :, 5, 9, 7) = (/&  
1436  & 3.8590E04_JPRB,3.4906E04_JPRB,3.0820E04_JPRB,2.6500E04_JPRB,2.1985E04_JPRB,1.7262E04_JPRB,&  
1437 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0739E04_JPRB,2.0046E05_JPRB,1.4932E03_JPRB/) 
1438  KAO( :, 1,10, 7) = (/&  
1439  & 3.8145E04_JPRB,3.3484E04_JPRB,2.8824E04_JPRB,2.4073E04_JPRB,1.3749E04_JPRB,6.8864E05_JPRB,&  
1440 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3426E05_JPRB,5.4253E06_JPRB,4.2208E04_JPRB/) 
1441  KAO( :, 2,10, 7) = (/&  
1442  & 3.7808E04_JPRB,3.3310E04_JPRB,2.8836E04_JPRB,2.4244E04_JPRB,1.9222E04_JPRB,5.4332E05_JPRB,&  
1443 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8318E05_JPRB,1.3544E05_JPRB,8.8420E04_JPRB/) 
1444  KAO( :, 3,10, 7) = (/&  
1445  & 3.7522E04_JPRB,3.3290E04_JPRB,2.8933E04_JPRB,2.4468E04_JPRB,1.9821E04_JPRB,8.2625E05_JPRB,&  
1446 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.6026E05_JPRB,1.3859E05_JPRB,1.6822E03_JPRB/) 
1447  KAO( :, 4,10, 7) = (/&  
1448  & 3.7308E04_JPRB,3.3362E04_JPRB,2.9154E04_JPRB,2.4864E04_JPRB,2.0415E04_JPRB,1.5269E04_JPRB,&  
1449 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.6983E05_JPRB,1.4205E05_JPRB,2.9547E03_JPRB/) 
1450  KAO( :, 5,10, 7) = (/&  
1451  & 3.7174E04_JPRB,3.3554E04_JPRB,2.9552E04_JPRB,2.5392E04_JPRB,2.0969E04_JPRB,1.6270E04_JPRB,&  
1452 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.1673E05_JPRB,1.7828E05_JPRB,4.8607E03_JPRB/) 
1453  KAO( :, 1,11, 7) = (/&  
1454  & 3.6294E04_JPRB,3.1871E04_JPRB,2.7451E04_JPRB,2.2858E04_JPRB,8.3578E05_JPRB,6.1372E05_JPRB,&  
1455 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3364E05_JPRB,7.7912E06_JPRB,6.2992E04_JPRB/) 
1456  KAO( :, 2,11, 7) = (/&  
1457  & 3.6112E04_JPRB,3.1852E04_JPRB,2.7580E04_JPRB,2.3178E04_JPRB,1.8037E04_JPRB,5.7295E05_JPRB,&  
1458 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.0682E05_JPRB,1.2520E05_JPRB,1.3182E03_JPRB/) 
1459  KAO( :, 3,11, 7) = (/&  
1460  & 3.5947E04_JPRB,3.1941E04_JPRB,2.7779E04_JPRB,2.3507E04_JPRB,1.9020E04_JPRB,4.7650E05_JPRB,&  
1461 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.7645E05_JPRB,1.4087E05_JPRB,2.5064E03_JPRB/) 
1462  KAO( :, 4,11, 7) = (/&  
1463  & 3.5796E04_JPRB,3.2062E04_JPRB,2.8056E04_JPRB,2.3967E04_JPRB,1.9644E04_JPRB,1.3235E04_JPRB,&  
1464 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.6296E05_JPRB,1.5164E05_JPRB,4.4025E03_JPRB/) 
1465  KAO( :, 5,11, 7) = (/&  
1466  & 3.5673E04_JPRB,3.2259E04_JPRB,2.8479E04_JPRB,2.4474E04_JPRB,2.0200E04_JPRB,1.5578E04_JPRB,&  
1467 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2752E05_JPRB,1.8894E05_JPRB,7.2340E03_JPRB/) 
1468  KAO( :, 1,12, 7) = (/&  
1469  & 3.4280E04_JPRB,3.0118E04_JPRB,2.5967E04_JPRB,2.1631E04_JPRB,7.2200E05_JPRB,5.9727E05_JPRB,&  
1470 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.2869E05_JPRB,5.5658E06_JPRB,7.0164E04_JPRB/) 
1471  KAO( :, 2,12, 7) = (/&  
1472  & 3.4212E04_JPRB,3.0217E04_JPRB,2.6182E04_JPRB,2.2007E04_JPRB,1.6435E04_JPRB,5.4340E05_JPRB,&  
1473 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2800E05_JPRB,1.1130E05_JPRB,1.4668E03_JPRB/) 
1474  KAO( :, 3,12, 7) = (/&  
1475  & 3.4134E04_JPRB,3.0369E04_JPRB,2.6435E04_JPRB,2.2391E04_JPRB,1.8076E04_JPRB,4.4282E05_JPRB,&  
1476 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.6617E05_JPRB,1.2881E05_JPRB,2.7876E03_JPRB/) 
1477  KAO( :, 4,12, 7) = (/&  
1478  & 3.4044E04_JPRB,3.0540E04_JPRB,2.6773E04_JPRB,2.2890E04_JPRB,1.8713E04_JPRB,1.1838E04_JPRB,&  
1479 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.1381E05_JPRB,1.3556E05_JPRB,4.8923E03_JPRB/) 
1480  KAO( :, 5,12, 7) = (/&  
1481  & 3.3969E04_JPRB,3.0785E04_JPRB,2.7216E04_JPRB,2.3387E04_JPRB,1.9308E04_JPRB,1.4819E04_JPRB,&  
1482 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.8774E05_JPRB,2.3365E05_JPRB,8.0367E03_JPRB/) 
1483  KAO( :, 1,13, 7) = (/&  
1484  & 3.2074E04_JPRB,2.8200E04_JPRB,2.4335E04_JPRB,2.0260E04_JPRB,5.9755E05_JPRB,5.5012E05_JPRB,&  
1485 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.0916E05_JPRB,6.5979E06_JPRB,6.2734E04_JPRB/) 
1486  KAO( :, 2,13, 7) = (/&  
1487  & 3.2081E04_JPRB,2.8371E04_JPRB,2.4601E04_JPRB,2.0672E04_JPRB,1.4264E04_JPRB,4.7131E05_JPRB,&  
1488 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.6167E05_JPRB,1.0279E05_JPRB,1.3098E03_JPRB/) 
1489  KAO( :, 3,13, 7) = (/&  
1490  & 3.2050E04_JPRB,2.8547E04_JPRB,2.4888E04_JPRB,2.1104E04_JPRB,1.6957E04_JPRB,3.8720E05_JPRB,&  
1491 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.6164E05_JPRB,1.0646E05_JPRB,2.4868E03_JPRB/) 
1492  KAO( :, 4,13, 7) = (/&  
1493  & 3.2004E04_JPRB,2.8761E04_JPRB,2.5261E04_JPRB,2.1602E04_JPRB,1.7644E04_JPRB,1.0425E04_JPRB,&  
1494 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7809E05_JPRB,1.7867E05_JPRB,4.3609E03_JPRB/) 
1495  KAO( :, 5,13, 7) = (/&  
1496  & 3.1955E04_JPRB,2.9043E04_JPRB,2.5703E04_JPRB,2.2081E04_JPRB,1.8253E04_JPRB,1.3988E04_JPRB,&  
1497 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6793E05_JPRB,3.0837E05_JPRB,7.1735E03_JPRB/) 
1498  KAO( :, 1, 1, 8) = (/&  
1499  & 5.6685E04_JPRB,5.1953E04_JPRB,4.6936E04_JPRB,4.1592E04_JPRB,3.5781E04_JPRB,2.9881E04_JPRB,&  
1500 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3721E04_JPRB,1.2965E04_JPRB,9.7553E05_JPRB/) 
1501  KAO( :, 2, 1, 8) = (/&  
1502  & 6.1498E04_JPRB,5.7331E04_JPRB,5.2736E04_JPRB,4.7456E04_JPRB,4.1825E04_JPRB,3.6336E04_JPRB,&  
1503 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.0181E04_JPRB,2.4017E04_JPRB,2.2948E04_JPRB/) 
1504  KAO( :, 3, 1, 8) = (/&  
1505  & 6.7611E04_JPRB,6.4061E04_JPRB,6.0111E04_JPRB,5.5388E04_JPRB,5.0779E04_JPRB,4.5514E04_JPRB,&  
1506 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.9223E04_JPRB,3.3256E04_JPRB,3.4276E04_JPRB/) 
1507  KAO( :, 4, 1, 8) = (/&  
1508  & 7.5480E04_JPRB,7.2914E04_JPRB,7.0254E04_JPRB,6.6835E04_JPRB,6.2923E04_JPRB,5.7675E04_JPRB,&  
1509 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.0673E04_JPRB,4.4275E04_JPRB,4.7133E04_JPRB/) 
1510  KAO( :, 5, 1, 8) = (/&  
1511  & 8.5668E04_JPRB,8.5031E04_JPRB,8.3845E04_JPRB,8.1883E04_JPRB,7.8346E04_JPRB,7.2655E04_JPRB,&  
1512 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.4693E04_JPRB,5.7765E04_JPRB,6.2516E04_JPRB/) 
1513  KAO( :, 1, 2, 8) = (/&  
1514  & 5.4710E04_JPRB,4.9662E04_JPRB,4.4514E04_JPRB,3.9135E04_JPRB,3.3202E04_JPRB,2.7342E04_JPRB,&  
1515 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.1062E04_JPRB,7.4193E05_JPRB,1.1449E04_JPRB/) 
1516  KAO( :, 2, 2, 8) = (/&  
1517  & 5.7920E04_JPRB,5.3530E04_JPRB,4.8866E04_JPRB,4.3544E04_JPRB,3.7966E04_JPRB,3.2266E04_JPRB,&  
1518 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6099E04_JPRB,1.8962E04_JPRB,2.1819E04_JPRB/) 
1519  KAO( :, 3, 2, 8) = (/&  
1520  & 6.1998E04_JPRB,5.8558E04_JPRB,5.4532E04_JPRB,4.9598E04_JPRB,4.4601E04_JPRB,3.9266E04_JPRB,&  
1521 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.3270E04_JPRB,2.7330E04_JPRB,3.1544E04_JPRB/) 
1522  KAO( :, 4, 2, 8) = (/&  
1523  & 6.7522E04_JPRB,6.5257E04_JPRB,6.1970E04_JPRB,5.8199E04_JPRB,5.3956E04_JPRB,4.8955E04_JPRB,&  
1524 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.2848E04_JPRB,3.6701E04_JPRB,4.3346E04_JPRB/) 
1525  KAO( :, 5, 2, 8) = (/&  
1526  & 7.4593E04_JPRB,7.3758E04_JPRB,7.2139E04_JPRB,6.9843E04_JPRB,6.6276E04_JPRB,6.1561E04_JPRB,&  
1527 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.4954E04_JPRB,4.8184E04_JPRB,5.7913E04_JPRB/) 
1528  KAO( :, 1, 3, 8) = (/&  
1529  & 5.3214E04_JPRB,4.7681E04_JPRB,4.2344E04_JPRB,3.6680E04_JPRB,3.0810E04_JPRB,2.4726E04_JPRB,&  
1530 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8453E04_JPRB,2.5084E05_JPRB,1.5128E04_JPRB/) 
1531  KAO( :, 2, 3, 8) = (/&  
1532  & 5.5191E04_JPRB,5.0347E04_JPRB,4.5239E04_JPRB,3.9784E04_JPRB,3.4016E04_JPRB,2.8162E04_JPRB,&  
1533 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.1920E04_JPRB,1.0464E04_JPRB,2.3348E04_JPRB/) 
1534  KAO( :, 3, 3, 8) = (/&  
1535  & 5.7477E04_JPRB,5.3435E04_JPRB,4.8907E04_JPRB,4.3911E04_JPRB,3.8574E04_JPRB,3.2874E04_JPRB,&  
1536 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.6890E04_JPRB,2.0489E04_JPRB,3.3684E04_JPRB/) 
1537  KAO( :, 4, 3, 8) = (/&  
1538  & 6.0596E04_JPRB,5.7781E04_JPRB,5.4062E04_JPRB,4.9604E04_JPRB,4.4703E04_JPRB,3.9517E04_JPRB,&  
1539 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.3938E04_JPRB,2.8379E04_JPRB,4.6834E04_JPRB/) 
1540  KAO( :, 5, 3, 8) = (/&  
1541  & 6.4785E04_JPRB,6.3446E04_JPRB,6.0817E04_JPRB,5.7312E04_JPRB,5.3235E04_JPRB,4.8682E04_JPRB,&  
1542 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.3334E04_JPRB,3.7597E04_JPRB,6.3257E04_JPRB/) 
1543  KAO( :, 1, 4, 8) = (/&  
1544  & 5.3110E04_JPRB,4.7262E04_JPRB,4.1623E04_JPRB,3.5723E04_JPRB,2.9627E04_JPRB,2.3321E04_JPRB,&  
1545 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6340E04_JPRB,1.9895E05_JPRB,1.6136E04_JPRB/) 
1546  KAO( :, 2, 4, 8) = (/&  
1547  & 5.4153E04_JPRB,4.8798E04_JPRB,4.3377E04_JPRB,3.7487E04_JPRB,3.1581E04_JPRB,2.5480E04_JPRB,&  
1548 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9036E04_JPRB,3.4588E05_JPRB,2.5102E04_JPRB/) 
1549  KAO( :, 3, 4, 8) = (/&  
1550  & 5.5497E04_JPRB,5.0890E04_JPRB,4.5760E04_JPRB,4.0292E04_JPRB,3.4647E04_JPRB,2.8693E04_JPRB,&  
1551 
2/2✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.

10  & 2.2354E04_JPRB,1.2964E04_JPRB,3.6989E04_JPRB/) 
1552  
1553 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART5',1,ZHOOK_HANDLE) 
1554  1  END SUBROUTINE PART5  
1555  
1556  
1557  1  SUBROUTINE PART6  
1558  
1559  REAL(KIND=JPRB) :: ZHOOK_HANDLE  
1560 
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.

1  IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART6',0,ZHOOK_HANDLE) 
1561  
1562  
1563  KAO( :, 4, 4, 8) = (/&  
1564  & 5.7139E04_JPRB,5.3494E04_JPRB,4.8805E04_JPRB,4.4096E04_JPRB,3.8626E04_JPRB,3.3033E04_JPRB,&  
1565 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.7143E04_JPRB,2.1212E04_JPRB,5.2455E04_JPRB/) 
1566  KAO( :, 5, 4, 8) = (/&  
1567  & 5.9415E04_JPRB,5.6860E04_JPRB,5.3306E04_JPRB,4.9025E04_JPRB,4.4085E04_JPRB,3.9152E04_JPRB,&  
1568 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.3850E04_JPRB,2.8746E04_JPRB,7.1892E04_JPRB/) 
1569  KAO( :, 1, 5, 8) = (/&  
1570  & 5.4290E04_JPRB,4.8021E04_JPRB,4.2005E04_JPRB,3.5773E04_JPRB,2.9361E04_JPRB,2.2840E04_JPRB,&  
1571 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.2412E04_JPRB,1.6779E05_JPRB,1.6478E04_JPRB/) 
1572  KAO( :, 2, 5, 8) = (/&  
1573  & 5.4234E04_JPRB,4.8521E04_JPRB,4.2730E04_JPRB,3.6655E04_JPRB,3.0462E04_JPRB,2.4081E04_JPRB,&  
1574 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7158E04_JPRB,2.4577E05_JPRB,2.6430E04_JPRB/) 
1575  KAO( :, 3, 5, 8) = (/&  
1576  & 5.5176E04_JPRB,4.9971E04_JPRB,4.4439E04_JPRB,3.8473E04_JPRB,3.2493E04_JPRB,2.6199E04_JPRB,&  
1577 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9530E04_JPRB,5.1968E05_JPRB,4.0107E04_JPRB/) 
1578  KAO( :, 4, 5, 8) = (/&  
1579  & 5.6082E04_JPRB,5.1698E04_JPRB,4.6451E04_JPRB,4.1055E04_JPRB,3.5125E04_JPRB,2.9127E04_JPRB,&  
1580 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.2746E04_JPRB,1.4698E04_JPRB,5.8315E04_JPRB/) 
1581  KAO( :, 5, 5, 8) = (/&  
1582  & 5.7193E04_JPRB,5.3856E04_JPRB,4.9143E04_JPRB,4.4154E04_JPRB,3.8661E04_JPRB,3.3087E04_JPRB,&  
1583 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.7242E04_JPRB,2.1704E04_JPRB,8.1664E04_JPRB/) 
1584  KAO( :, 1, 6, 8) = (/&  
1585  & 5.5933E04_JPRB,4.9291E04_JPRB,4.2842E04_JPRB,3.6305E04_JPRB,2.9613E04_JPRB,2.2724E04_JPRB,&  
1586 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 5.3023E05_JPRB,1.5921E05_JPRB,1.6080E04_JPRB/) 
1587  KAO( :, 2, 6, 8) = (/&  
1588  & 5.5265E04_JPRB,4.9132E04_JPRB,4.3026E04_JPRB,3.6705E04_JPRB,3.0202E04_JPRB,2.3616E04_JPRB,&  
1589 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.5492E04_JPRB,1.7381E05_JPRB,2.6878E04_JPRB/) 
1590  KAO( :, 3, 6, 8) = (/&  
1591  & 5.5383E04_JPRB,4.9775E04_JPRB,4.3880E04_JPRB,3.7661E04_JPRB,3.1407E04_JPRB,2.4921E04_JPRB,&  
1592 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7746E04_JPRB,2.2302E05_JPRB,4.2225E04_JPRB/) 
1593  KAO( :, 4, 6, 8) = (/&  
1594  & 5.6178E04_JPRB,5.1138E04_JPRB,4.5491E04_JPRB,3.9556E04_JPRB,3.3327E04_JPRB,2.6812E04_JPRB,&  
1595 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0001E04_JPRB,6.4403E05_JPRB,6.3155E04_JPRB/) 
1596  KAO( :, 5, 6, 8) = (/&  
1597  & 5.6806E04_JPRB,5.2664E04_JPRB,4.7387E04_JPRB,4.1708E04_JPRB,3.5623E04_JPRB,2.9443E04_JPRB,&  
1598 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.3016E04_JPRB,1.5609E04_JPRB,9.0635E04_JPRB/) 
1599  KAO( :, 1, 7, 8) = (/&  
1600  & 5.7912E04_JPRB,5.0929E04_JPRB,4.4052E04_JPRB,3.7179E04_JPRB,3.0169E04_JPRB,2.2904E04_JPRB,&  
1601 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6739E05_JPRB,9.8065E06_JPRB,1.6369E04_JPRB/) 
1602  KAO( :, 2, 7, 8) = (/&  
1603  & 5.7054E04_JPRB,5.0526E04_JPRB,4.4059E04_JPRB,3.7406E04_JPRB,3.0610E04_JPRB,2.3585E04_JPRB,&  
1604 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 6.5393E05_JPRB,1.3372E05_JPRB,2.8615E04_JPRB/) 
1605  KAO( :, 3, 7, 8) = (/&  
1606  & 5.6399E04_JPRB,5.0435E04_JPRB,4.4269E04_JPRB,3.7826E04_JPRB,3.1294E04_JPRB,2.4573E04_JPRB,&  
1607 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6693E04_JPRB,2.0015E05_JPRB,4.6772E04_JPRB/) 
1608  KAO( :, 4, 7, 8) = (/&  
1609  & 5.6580E04_JPRB,5.1086E04_JPRB,4.5119E04_JPRB,3.8935E04_JPRB,3.2489E04_JPRB,2.5799E04_JPRB,&  
1610 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8517E04_JPRB,2.1193E05_JPRB,7.2326E04_JPRB/) 
1611  KAO( :, 5, 7, 8) = (/&  
1612  & 5.7198E04_JPRB,5.2353E04_JPRB,4.6732E04_JPRB,4.0650E04_JPRB,3.4261E04_JPRB,2.7564E04_JPRB,&  
1613 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.0638E04_JPRB,8.3698E05_JPRB,1.0705E03_JPRB/) 
1614  KAO( :, 1, 8, 8) = (/&  
1615  & 5.9871E04_JPRB,5.2574E04_JPRB,4.5363E04_JPRB,3.8151E04_JPRB,3.0818E04_JPRB,2.2816E04_JPRB,&  
1616 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.1690E05_JPRB,9.1563E06_JPRB,1.9592E04_JPRB/) 
1617  KAO( :, 2, 8, 8) = (/&  
1618  & 5.8942E04_JPRB,5.2019E04_JPRB,4.5182E04_JPRB,3.8232E04_JPRB,3.1150E04_JPRB,2.3688E04_JPRB,&  
1619 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.4878E05_JPRB,1.3062E05_JPRB,3.5981E04_JPRB/) 
1620  KAO( :, 3, 8, 8) = (/&  
1621  & 5.8144E04_JPRB,5.1705E04_JPRB,4.5231E04_JPRB,3.8496E04_JPRB,3.1600E04_JPRB,2.4571E04_JPRB,&  
1622 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.0309E04_JPRB,1.4129E05_JPRB,6.1385E04_JPRB/) 
1623  KAO( :, 4, 8, 8) = (/&  
1624  & 5.7448E04_JPRB,5.1610E04_JPRB,4.5471E04_JPRB,3.9018E04_JPRB,3.2457E04_JPRB,2.5556E04_JPRB,&  
1625 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.7544E04_JPRB,1.7304E05_JPRB,9.8945E04_JPRB/) 
1626  KAO( :, 5, 8, 8) = (/&  
1627  & 5.7483E04_JPRB,5.2262E04_JPRB,4.6340E04_JPRB,4.0220E04_JPRB,3.3597E04_JPRB,2.6696E04_JPRB,&  
1628 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.9367E04_JPRB,2.4514E05_JPRB,1.5199E03_JPRB/) 
1629  KAO( :, 1, 9, 8) = (/&  
1630  & 6.1652E04_JPRB,5.4081E04_JPRB,4.6545E04_JPRB,3.9056E04_JPRB,3.1379E04_JPRB,9.9114E05_JPRB,&  
1631 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3949E05_JPRB,3.9239E06_JPRB,4.2520E04_JPRB/) 
1632  KAO( :, 2, 9, 8) = (/&  
1633  & 6.0629E04_JPRB,5.3376E04_JPRB,4.6202E04_JPRB,3.8990E04_JPRB,3.1655E04_JPRB,2.3544E04_JPRB,&  
1634 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7382E05_JPRB,8.6951E06_JPRB,8.3044E04_JPRB/) 
1635  KAO( :, 3, 9, 8) = (/&  
1636  & 5.9694E04_JPRB,5.2858E04_JPRB,4.6094E04_JPRB,3.9128E04_JPRB,3.1984E04_JPRB,2.4585E04_JPRB,&  
1637 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.7453E05_JPRB,1.1219E05_JPRB,1.4978E03_JPRB/) 
1638  KAO( :, 4, 9, 8) = (/&  
1639  & 5.8812E04_JPRB,5.2540E04_JPRB,4.6162E04_JPRB,3.9424E04_JPRB,3.2635E04_JPRB,2.5585E04_JPRB,&  
1640 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.3793E04_JPRB,1.5823E05_JPRB,2.5315E03_JPRB/) 
1641  KAO( :, 5, 9, 8) = (/&  
1642  & 5.8094E04_JPRB,5.2489E04_JPRB,4.6409E04_JPRB,4.0156E04_JPRB,3.3516E04_JPRB,2.6461E04_JPRB,&  
1643 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.8608E04_JPRB,1.9887E05_JPRB,4.0512E03_JPRB/) 
1644  KAO( :, 1,10, 8) = (/&  
1645  & 6.2969E04_JPRB,5.5181E04_JPRB,4.7454E04_JPRB,3.9703E04_JPRB,3.1724E04_JPRB,6.5127E05_JPRB,&  
1646 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.7452E06_JPRB,3.2741E06_JPRB,1.1769E03_JPRB/) 
1647  KAO( :, 2,10, 8) = (/&  
1648  & 6.1957E04_JPRB,5.4459E04_JPRB,4.7029E04_JPRB,3.9585E04_JPRB,3.1968E04_JPRB,1.3041E04_JPRB,&  
1649 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.4515E05_JPRB,7.2975E06_JPRB,2.4417E03_JPRB/) 
1650  KAO( :, 3,10, 8) = (/&  
1651  & 6.0939E04_JPRB,5.3813E04_JPRB,4.6769E04_JPRB,3.9651E04_JPRB,3.2305E04_JPRB,2.4182E04_JPRB,&  
1652 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.3807E05_JPRB,1.1783E05_JPRB,4.6287E03_JPRB/) 
1653  KAO( :, 4,10, 8) = (/&  
1654  & 5.9955E04_JPRB,5.3329E04_JPRB,4.6744E04_JPRB,3.9835E04_JPRB,3.2790E04_JPRB,2.5437E04_JPRB,&  
1655 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.6423E05_JPRB,1.1970E05_JPRB,8.1527E03_JPRB/) 
1656  KAO( :, 5,10, 8) = (/&  
1657  & 5.9051E04_JPRB,5.3069E04_JPRB,4.6841E04_JPRB,4.0335E04_JPRB,3.3599E04_JPRB,2.6411E04_JPRB,&  
1658 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 1.6905E04_JPRB,1.8347E05_JPRB,1.3511E02_JPRB/) 
1659  KAO( :, 1,11, 8) = (/&  
1660  & 6.3270E04_JPRB,5.5469E04_JPRB,4.7693E04_JPRB,3.9917E04_JPRB,3.1669E04_JPRB,6.3388E05_JPRB,&  
1661 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 3.6721E06_JPRB,3.2147E07_JPRB,1.7207E03_JPRB/) 
1662  KAO( :, 2,11, 8) = (/&  
1663  & 6.2323E04_JPRB,5.4792E04_JPRB,4.7320E04_JPRB,3.9836E04_JPRB,3.2132E04_JPRB,8.3669E05_JPRB,&  
1664 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 2.5421E05_JPRB,6.2024E06_JPRB,3.6065E03_JPRB/) 
1665  KAO( :, 3,11, 8) = (/&  
1666  & 6.1343E04_JPRB,5.4174E04_JPRB,4.7120E04_JPRB,3.9965E04_JPRB,3.2524E04_JPRB,2.3807E04_JPRB,&  
1667 
2/2✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.

10  & 4.5288E05_JPRB,1.1010E05_JPRB,6.9077E03_JPRB/) 
1668  KAO( :, 4,11, 8) = ( 