GCC Code Coverage Report

Directory: ./
File: rad/rrtm_kgb16.f90
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 1129 1129 100.0%
Branches: 2156 2182 98.8%
Line Branch Exec Source
1 !OCL SCALAR
2 !pgi$r opt=0
3 1 SUBROUTINE RRTM_KGB16
4
5 ! Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
6 ! BAND 16: 2600-3000 cm-1 (low - H2O,CH4; high - nothing)
7 ! Reformatted for F90 by JJMorcrette, ECMWF
8 ! R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
9
10 ! ------------------------------------------------------------------
11
12 USE PARKIND1 ,ONLY : JPRB
13 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
14
15 USE YOERRTO16, ONLY : KAO ,SELFREFO ,FRACREFAO
16 USE YOERRTA16, ONLY : STRRAT
17
18 ! ------------------------------------------------------------------
19
20 IMPLICIT NONE
21 REAL(KIND=JPRB) :: ZHOOK_HANDLE
22
23
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16',0,ZHOOK_HANDLE)
24
25 1 CALL PART1
26 1 CALL PART2
27 1 CALL PART3
28 1 CALL PART4
29 1 CALL PART5
30 1 CALL PART6
31 1 CALL PART7
32 1 CALL PART8
33 1 CALL PART9
34 1 CALL PART10
35 1 CALL PART11
36 1 CALL PART12
37
38
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16',1,ZHOOK_HANDLE)
39
40 ! -----------------------------------------------------------------
41
42 CONTAINS
43
44
45 1 SUBROUTINE PART1
46
47 REAL(KIND=JPRB) :: ZHOOK_HANDLE
48
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART1',0,ZHOOK_HANDLE)
49
50
51 1 STRRAT = 830.411_JPRB
52
53 ! ------------------------------------------------------------------
54
55 ! The array KAO contains absorption coefs at the 16 chosen g-values
56 ! for a range of pressure levels> ~100mb, temperatures, and binary
57 ! species parameters (see taumol.f for definition). The first
58 ! index in the array, JS, runs from 1 to 9, and corresponds to
59 ! different values of the binary species parameter. For instance,
60 ! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8,
61 ! JS = 3 corresponds to the parameter value 2/8, etc. The second index
62 ! in the array, JT, which runs from 1 to 5, corresponds to different
63 ! temperatures. More specifically, JT = 3 means that the data are for
64 ! the reference temperature TREF for this pressure level, JT = 2 refers
65 ! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
66 ! is for TREF+30. The third index, JP, runs from 1 to 13 and refers
67 ! to the JPth reference pressure level (see taumol.f for these levels
68 ! in mb). The fourth index, IG, goes from 1 to 16, and indicates
69 ! which g-interval the absorption coefficients are for.
70
71 KAO( :, 1, 1, 1) = (/&
72 & 1.9384E-05_JPRB,2.9898E-05_JPRB,3.4062E-05_JPRB,3.6004E-05_JPRB,3.6430E-05_JPRB,3.5549E-05_JPRB,&
73
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.3320E-05_JPRB,2.9615E-05_JPRB,2.3873E-05_JPRB/)
74 KAO( :, 2, 1, 1) = (/&
75 & 1.9436E-05_JPRB,2.9740E-05_JPRB,3.3708E-05_JPRB,3.5476E-05_JPRB,3.5843E-05_JPRB,3.5033E-05_JPRB,&
76
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.2962E-05_JPRB,2.9462E-05_JPRB,2.4055E-05_JPRB/)
77 KAO( :, 3, 1, 1) = (/&
78 & 1.9464E-05_JPRB,2.9570E-05_JPRB,3.3324E-05_JPRB,3.4974E-05_JPRB,3.5304E-05_JPRB,3.4544E-05_JPRB,&
79
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.2637E-05_JPRB,2.9289E-05_JPRB,2.4237E-05_JPRB/)
80 KAO( :, 4, 1, 1) = (/&
81 & 1.9302E-05_JPRB,2.9247E-05_JPRB,3.2832E-05_JPRB,3.4416E-05_JPRB,3.4737E-05_JPRB,3.4031E-05_JPRB,&
82
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.2272E-05_JPRB,2.9080E-05_JPRB,2.4364E-05_JPRB/)
83 KAO( :, 5, 1, 1) = (/&
84 & 1.9123E-05_JPRB,2.8885E-05_JPRB,3.2360E-05_JPRB,3.3877E-05_JPRB,3.4211E-05_JPRB,3.3554E-05_JPRB,&
85
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.1880E-05_JPRB,2.8883E-05_JPRB,2.4458E-05_JPRB/)
86 KAO( :, 1, 2, 1) = (/&
87 & 1.6583E-05_JPRB,2.6012E-05_JPRB,2.9608E-05_JPRB,3.1154E-05_JPRB,3.1427E-05_JPRB,3.0616E-05_JPRB,&
88
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.8665E-05_JPRB,2.5368E-05_JPRB,2.0615E-05_JPRB/)
89 KAO( :, 2, 2, 1) = (/&
90 & 1.6630E-05_JPRB,2.5863E-05_JPRB,2.9249E-05_JPRB,3.0678E-05_JPRB,3.0941E-05_JPRB,3.0197E-05_JPRB,&
91
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.8392E-05_JPRB,2.5270E-05_JPRB,2.0786E-05_JPRB/)
92 KAO( :, 3, 2, 1) = (/&
93 & 1.6647E-05_JPRB,2.5697E-05_JPRB,2.8891E-05_JPRB,3.0222E-05_JPRB,3.0484E-05_JPRB,2.9802E-05_JPRB,&
94
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.8138E-05_JPRB,2.5165E-05_JPRB,2.0933E-05_JPRB/)
95 KAO( :, 4, 2, 1) = (/&
96 & 1.6540E-05_JPRB,2.5405E-05_JPRB,2.8466E-05_JPRB,2.9745E-05_JPRB,3.0011E-05_JPRB,2.9400E-05_JPRB,&
97
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.7847E-05_JPRB,2.5027E-05_JPRB,2.1051E-05_JPRB/)
98 KAO( :, 5, 2, 1) = (/&
99 & 1.6324E-05_JPRB,2.5032E-05_JPRB,2.7991E-05_JPRB,2.9251E-05_JPRB,2.9530E-05_JPRB,2.8984E-05_JPRB,&
100
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.7519E-05_JPRB,2.4864E-05_JPRB,2.1134E-05_JPRB/)
101 KAO( :, 1, 3, 1) = (/&
102 & 1.4086E-05_JPRB,2.2526E-05_JPRB,2.5577E-05_JPRB,2.6862E-05_JPRB,2.7021E-05_JPRB,2.6302E-05_JPRB,&
103
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4576E-05_JPRB,2.1643E-05_JPRB,1.8751E-05_JPRB/)
104 KAO( :, 2, 3, 1) = (/&
105 & 1.4131E-05_JPRB,2.2392E-05_JPRB,2.5264E-05_JPRB,2.6452E-05_JPRB,2.6617E-05_JPRB,2.5964E-05_JPRB,&
106
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4370E-05_JPRB,2.1595E-05_JPRB,1.8898E-05_JPRB/)
107 KAO( :, 3, 3, 1) = (/&
108 & 1.4113E-05_JPRB,2.2191E-05_JPRB,2.4900E-05_JPRB,2.6018E-05_JPRB,2.6215E-05_JPRB,2.5621E-05_JPRB,&
109
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4158E-05_JPRB,2.1540E-05_JPRB,1.9048E-05_JPRB/)
110 KAO( :, 4, 3, 1) = (/&
111 & 1.4058E-05_JPRB,2.1961E-05_JPRB,2.4548E-05_JPRB,2.5623E-05_JPRB,2.5838E-05_JPRB,2.5312E-05_JPRB,&
112
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.3952E-05_JPRB,2.1469E-05_JPRB,1.9182E-05_JPRB/)
113 KAO( :, 5, 3, 1) = (/&
114 & 1.3863E-05_JPRB,2.1619E-05_JPRB,2.4113E-05_JPRB,2.5184E-05_JPRB,2.5419E-05_JPRB,2.4957E-05_JPRB,&
115
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.3697E-05_JPRB,2.1357E-05_JPRB,1.9265E-05_JPRB/)
116 KAO( :, 1, 4, 1) = (/&
117 & 1.1900E-05_JPRB,1.9396E-05_JPRB,2.1993E-05_JPRB,2.3049E-05_JPRB,2.3163E-05_JPRB,2.2508E-05_JPRB,&
118
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0982E-05_JPRB,1.8407E-05_JPRB,1.7094E-05_JPRB/)
119 KAO( :, 2, 4, 1) = (/&
120 & 1.1936E-05_JPRB,1.9289E-05_JPRB,2.1740E-05_JPRB,2.2712E-05_JPRB,2.2827E-05_JPRB,2.2234E-05_JPRB,&
121
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0833E-05_JPRB,1.8390E-05_JPRB,1.7367E-05_JPRB/)
122 KAO( :, 3, 4, 1) = (/&
123 & 1.1914E-05_JPRB,1.9113E-05_JPRB,2.1420E-05_JPRB,2.2348E-05_JPRB,2.2488E-05_JPRB,2.1958E-05_JPRB,&
124
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0668E-05_JPRB,1.8368E-05_JPRB,1.7624E-05_JPRB/)
125 KAO( :, 4, 4, 1) = (/&
126 & 1.1850E-05_JPRB,1.8882E-05_JPRB,2.1069E-05_JPRB,2.1971E-05_JPRB,2.2145E-05_JPRB,2.1684E-05_JPRB,&
127
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0493E-05_JPRB,1.8332E-05_JPRB,1.7862E-05_JPRB/)
128 KAO( :, 5, 4, 1) = (/&
129 & 1.1744E-05_JPRB,1.8626E-05_JPRB,2.0733E-05_JPRB,2.1634E-05_JPRB,2.1819E-05_JPRB,2.1414E-05_JPRB,&
130
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0321E-05_JPRB,1.8279E-05_JPRB,1.8065E-05_JPRB/)
131 KAO( :, 1, 5, 1) = (/&
132 & 1.0007E-05_JPRB,1.6633E-05_JPRB,1.8846E-05_JPRB,1.9714E-05_JPRB,1.9792E-05_JPRB,1.9192E-05_JPRB,&
133
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7849E-05_JPRB,1.5620E-05_JPRB,1.4831E-05_JPRB/)
134 KAO( :, 2, 5, 1) = (/&
135 & 1.0036E-05_JPRB,1.6537E-05_JPRB,1.8619E-05_JPRB,1.9430E-05_JPRB,1.9510E-05_JPRB,1.8974E-05_JPRB,&
136
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7727E-05_JPRB,1.5597E-05_JPRB,1.5243E-05_JPRB/)
137 KAO( :, 3, 5, 1) = (/&
138 & 1.0020E-05_JPRB,1.6382E-05_JPRB,1.8357E-05_JPRB,1.9125E-05_JPRB,1.9225E-05_JPRB,1.8747E-05_JPRB,&
139
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7610E-05_JPRB,1.5596E-05_JPRB,1.5694E-05_JPRB/)
140 KAO( :, 4, 5, 1) = (/&
141 & 9.9655E-06_JPRB,1.6185E-05_JPRB,1.8047E-05_JPRB,1.8806E-05_JPRB,1.8930E-05_JPRB,1.8511E-05_JPRB,&
142
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7475E-05_JPRB,1.5592E-05_JPRB,1.6134E-05_JPRB/)
143 KAO( :, 5, 5, 1) = (/&
144 & 9.8924E-06_JPRB,1.5961E-05_JPRB,1.7750E-05_JPRB,1.8511E-05_JPRB,1.8653E-05_JPRB,1.8287E-05_JPRB,&
145
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7340E-05_JPRB,1.5571E-05_JPRB,1.6528E-05_JPRB/)
146 KAO( :, 1, 6, 1) = (/&
147 & 8.3773E-06_JPRB,1.4205E-05_JPRB,1.6091E-05_JPRB,1.6810E-05_JPRB,1.6854E-05_JPRB,1.6312E-05_JPRB,&
148
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5134E-05_JPRB,1.3227E-05_JPRB,1.2806E-05_JPRB/)
149 KAO( :, 2, 6, 1) = (/&
150 & 8.4040E-06_JPRB,1.4116E-05_JPRB,1.5890E-05_JPRB,1.6565E-05_JPRB,1.6618E-05_JPRB,1.6134E-05_JPRB,&
151
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5030E-05_JPRB,1.3175E-05_JPRB,1.3188E-05_JPRB/)
152 KAO( :, 3, 6, 1) = (/&
153 & 8.3967E-06_JPRB,1.3982E-05_JPRB,1.5670E-05_JPRB,1.6315E-05_JPRB,1.6378E-05_JPRB,1.5948E-05_JPRB,&
154
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4938E-05_JPRB,1.3181E-05_JPRB,1.3640E-05_JPRB/)
155 KAO( :, 4, 6, 1) = (/&
156 & 8.3520E-06_JPRB,1.3808E-05_JPRB,1.5410E-05_JPRB,1.6041E-05_JPRB,1.6129E-05_JPRB,1.5748E-05_JPRB,&
157
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4840E-05_JPRB,1.3187E-05_JPRB,1.4105E-05_JPRB/)
158 KAO( :, 5, 6, 1) = (/&
159 & 8.2808E-06_JPRB,1.3600E-05_JPRB,1.5125E-05_JPRB,1.5766E-05_JPRB,1.5873E-05_JPRB,1.5546E-05_JPRB,&
160
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4725E-05_JPRB,1.3184E-05_JPRB,1.4585E-05_JPRB/)
161 KAO( :, 1, 7, 1) = (/&
162 & 6.9702E-06_JPRB,1.2049E-05_JPRB,1.3655E-05_JPRB,1.4254E-05_JPRB,1.4272E-05_JPRB,1.3786E-05_JPRB,&
163
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2775E-05_JPRB,1.1193E-05_JPRB,1.1151E-05_JPRB/)
164 KAO( :, 2, 7, 1) = (/&
165 & 6.9954E-06_JPRB,1.1967E-05_JPRB,1.3478E-05_JPRB,1.4043E-05_JPRB,1.4073E-05_JPRB,1.3643E-05_JPRB,&
166
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2677E-05_JPRB,1.1085E-05_JPRB,1.1514E-05_JPRB/)
167 KAO( :, 3, 7, 1) = (/&
168 & 6.9926E-06_JPRB,1.1851E-05_JPRB,1.3284E-05_JPRB,1.3826E-05_JPRB,1.3871E-05_JPRB,1.3488E-05_JPRB,&
169
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2600E-05_JPRB,1.1081E-05_JPRB,1.1911E-05_JPRB/)
170 KAO( :, 4, 7, 1) = (/&
171 & 6.9597E-06_JPRB,1.1700E-05_JPRB,1.3068E-05_JPRB,1.3600E-05_JPRB,1.3659E-05_JPRB,1.3321E-05_JPRB,&
172
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2522E-05_JPRB,1.1091E-05_JPRB,1.2356E-05_JPRB/)
173 KAO( :, 5, 7, 1) = (/&
174 & 6.9051E-06_JPRB,1.1522E-05_JPRB,1.2825E-05_JPRB,1.3359E-05_JPRB,1.3444E-05_JPRB,1.3151E-05_JPRB,&
175
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2435E-05_JPRB,1.1100E-05_JPRB,1.2847E-05_JPRB/)
176 KAO( :, 1, 8, 1) = (/&
177 & 5.8087E-06_JPRB,1.0208E-05_JPRB,1.1579E-05_JPRB,1.2087E-05_JPRB,1.2081E-05_JPRB,1.1640E-05_JPRB,&
178
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0763E-05_JPRB,9.5182E-06_JPRB,9.7914E-06_JPRB/)
179 KAO( :, 2, 8, 1) = (/&
180 & 5.8314E-06_JPRB,1.0134E-05_JPRB,1.1429E-05_JPRB,1.1911E-05_JPRB,1.1918E-05_JPRB,1.1522E-05_JPRB,&
181
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0685E-05_JPRB,9.3144E-06_JPRB,1.0107E-05_JPRB/)
182 KAO( :, 3, 8, 1) = (/&
183 & 5.8306E-06_JPRB,1.0039E-05_JPRB,1.1263E-05_JPRB,1.1721E-05_JPRB,1.1741E-05_JPRB,1.1392E-05_JPRB,&
184
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0611E-05_JPRB,9.2970E-06_JPRB,1.0491E-05_JPRB/)
185 KAO( :, 4, 8, 1) = (/&
186 & 5.8084E-06_JPRB,9.9094E-06_JPRB,1.1082E-05_JPRB,1.1528E-05_JPRB,1.1564E-05_JPRB,1.1253E-05_JPRB,&
187
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0543E-05_JPRB,9.3028E-06_JPRB,1.0943E-05_JPRB/)
188 KAO( :, 5, 8, 1) = (/&
189 & 5.7671E-06_JPRB,9.7597E-06_JPRB,1.0878E-05_JPRB,1.1322E-05_JPRB,1.1380E-05_JPRB,1.1112E-05_JPRB,&
190
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0475E-05_JPRB,9.3153E-06_JPRB,1.1451E-05_JPRB/)
191 KAO( :, 1, 9, 1) = (/&
192 & 4.8301E-06_JPRB,8.6067E-06_JPRB,9.7714E-06_JPRB,1.0210E-05_JPRB,1.0192E-05_JPRB,9.7977E-06_JPRB,&
193
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.0505E-06_JPRB,8.2004E-06_JPRB,9.1168E-06_JPRB/)
194 KAO( :, 2, 9, 1) = (/&
195 & 4.8495E-06_JPRB,8.5468E-06_JPRB,9.6571E-06_JPRB,1.0063E-05_JPRB,1.0051E-05_JPRB,9.6903E-06_JPRB,&
196
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.9660E-06_JPRB,7.8251E-06_JPRB,9.4876E-06_JPRB/)
197 KAO( :, 3, 9, 1) = (/&
198 & 4.8497E-06_JPRB,8.4643E-06_JPRB,9.5144E-06_JPRB,9.9014E-06_JPRB,9.9028E-06_JPRB,9.5821E-06_JPRB,&
199
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.9043E-06_JPRB,7.7718E-06_JPRB,9.9373E-06_JPRB/)
200 KAO( :, 4, 9, 1) = (/&
201 & 4.8347E-06_JPRB,8.3597E-06_JPRB,9.3601E-06_JPRB,9.7348E-06_JPRB,9.7523E-06_JPRB,9.4691E-06_JPRB,&
202
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.8479E-06_JPRB,7.7751E-06_JPRB,1.0480E-05_JPRB/)
203 KAO( :, 5, 9, 1) = (/&
204 & 4.8060E-06_JPRB,8.2344E-06_JPRB,9.1913E-06_JPRB,9.5624E-06_JPRB,9.5965E-06_JPRB,9.3522E-06_JPRB,&
205
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.7881E-06_JPRB,7.7833E-06_JPRB,1.1108E-05_JPRB/)
206 KAO( :, 1,10, 1) = (/&
207 & 4.0064E-06_JPRB,7.2194E-06_JPRB,8.1998E-06_JPRB,8.5791E-06_JPRB,8.5570E-06_JPRB,8.2127E-06_JPRB,&
208
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.5956E-06_JPRB,7.1868E-06_JPRB,1.0453E-05_JPRB/)
209 KAO( :, 2,10, 1) = (/&
210 & 4.0197E-06_JPRB,7.1679E-06_JPRB,8.1105E-06_JPRB,8.4531E-06_JPRB,8.4331E-06_JPRB,8.1149E-06_JPRB,&
211
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.4918E-06_JPRB,6.5776E-06_JPRB,1.0520E-05_JPRB/)
212 KAO( :, 3,10, 1) = (/&
213 & 4.0198E-06_JPRB,7.0974E-06_JPRB,7.9934E-06_JPRB,8.3195E-06_JPRB,8.3088E-06_JPRB,8.0216E-06_JPRB,&
214
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.4367E-06_JPRB,6.4788E-06_JPRB,1.0711E-05_JPRB/)
215 KAO( :, 4,10, 1) = (/&
216 & 4.0097E-06_JPRB,7.0130E-06_JPRB,7.8610E-06_JPRB,8.1737E-06_JPRB,8.1778E-06_JPRB,7.9289E-06_JPRB,&
217
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.3886E-06_JPRB,6.4723E-06_JPRB,1.1047E-05_JPRB/)
218 KAO( :, 5,10, 1) = (/&
219 & 3.9884E-06_JPRB,6.9092E-06_JPRB,7.7198E-06_JPRB,8.0283E-06_JPRB,8.0487E-06_JPRB,7.8282E-06_JPRB,&
220
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.3394E-06_JPRB,6.4785E-06_JPRB,1.1524E-05_JPRB/)
221 KAO( :, 1,11, 1) = (/&
222 & 3.3235E-06_JPRB,6.0184E-06_JPRB,6.8284E-06_JPRB,7.1399E-06_JPRB,7.1176E-06_JPRB,6.8268E-06_JPRB,&
223
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.3069E-06_JPRB,5.9015E-06_JPRB,1.0775E-05_JPRB/)
224 KAO( :, 2,11, 1) = (/&
225 & 3.3290E-06_JPRB,5.9691E-06_JPRB,6.7492E-06_JPRB,7.0301E-06_JPRB,7.0090E-06_JPRB,6.7423E-06_JPRB,&
226
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.2217E-06_JPRB,5.4471E-06_JPRB,1.0671E-05_JPRB/)
227 KAO( :, 3,11, 1) = (/&
228 & 3.3251E-06_JPRB,5.9052E-06_JPRB,6.6470E-06_JPRB,6.9153E-06_JPRB,6.9027E-06_JPRB,6.6631E-06_JPRB,&
229
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.1768E-06_JPRB,5.3794E-06_JPRB,1.0714E-05_JPRB/)
230 KAO( :, 4,11, 1) = (/&
231 & 3.3144E-06_JPRB,5.8297E-06_JPRB,6.5309E-06_JPRB,6.7910E-06_JPRB,6.7926E-06_JPRB,6.5831E-06_JPRB,&
232
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.1358E-06_JPRB,5.3736E-06_JPRB,1.0902E-05_JPRB/)
233 KAO( :, 5,11, 1) = (/&
234 & 3.2953E-06_JPRB,5.7419E-06_JPRB,6.4131E-06_JPRB,6.6688E-06_JPRB,6.6812E-06_JPRB,6.4951E-06_JPRB,&
235
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.0888E-06_JPRB,5.3759E-06_JPRB,1.1211E-05_JPRB/)
236 KAO( :, 1,12, 1) = (/&
237 & 2.7539E-06_JPRB,5.0055E-06_JPRB,5.6748E-06_JPRB,5.9323E-06_JPRB,5.9106E-06_JPRB,5.6659E-06_JPRB,&
238
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.2301E-06_JPRB,4.8410E-06_JPRB,1.0041E-05_JPRB/)
239 KAO( :, 2,12, 1) = (/&
240 & 2.7540E-06_JPRB,4.9609E-06_JPRB,5.6055E-06_JPRB,5.8388E-06_JPRB,5.8173E-06_JPRB,5.5933E-06_JPRB,&
241
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.1585E-06_JPRB,4.5035E-06_JPRB,9.8783E-06_JPRB/)
242 KAO( :, 3,12, 1) = (/&
243 & 2.7488E-06_JPRB,4.9048E-06_JPRB,5.5190E-06_JPRB,5.7407E-06_JPRB,5.7275E-06_JPRB,5.5257E-06_JPRB,&
244
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.1201E-06_JPRB,4.4556E-06_JPRB,9.8584E-06_JPRB/)
245 KAO( :, 4,12, 1) = (/&
246 & 2.7385E-06_JPRB,4.8395E-06_JPRB,5.4207E-06_JPRB,5.6356E-06_JPRB,5.6337E-06_JPRB,5.4559E-06_JPRB,&
247
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.0826E-06_JPRB,4.4482E-06_JPRB,9.9631E-06_JPRB/)
248 KAO( :, 5,12, 1) = (/&
249 & 2.7214E-06_JPRB,4.7654E-06_JPRB,5.3225E-06_JPRB,5.5318E-06_JPRB,5.5373E-06_JPRB,5.3782E-06_JPRB,&
250
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.0386E-06_JPRB,4.4476E-06_JPRB,1.0178E-05_JPRB/)
251 KAO( :, 1,13, 1) = (/&
252 & 2.2801E-06_JPRB,4.1555E-06_JPRB,4.7093E-06_JPRB,4.9224E-06_JPRB,4.9034E-06_JPRB,4.6982E-06_JPRB,&
253
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.3297E-06_JPRB,3.9733E-06_JPRB,8.4129E-06_JPRB/)
254 KAO( :, 2,13, 1) = (/&
255 & 2.2770E-06_JPRB,4.1173E-06_JPRB,4.6509E-06_JPRB,4.8443E-06_JPRB,4.8245E-06_JPRB,4.6351E-06_JPRB,&
256
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.2708E-06_JPRB,3.7196E-06_JPRB,8.2708E-06_JPRB/)
257 KAO( :, 3,13, 1) = (/&
258 & 2.2712E-06_JPRB,4.0679E-06_JPRB,4.5774E-06_JPRB,4.7613E-06_JPRB,4.7480E-06_JPRB,4.5771E-06_JPRB,&
259
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.2377E-06_JPRB,3.6828E-06_JPRB,8.2482E-06_JPRB/)
260 KAO( :, 4,13, 1) = (/&
261 & 2.2616E-06_JPRB,4.0128E-06_JPRB,4.4962E-06_JPRB,4.6740E-06_JPRB,4.6674E-06_JPRB,4.5144E-06_JPRB,&
262
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.2021E-06_JPRB,3.6746E-06_JPRB,8.3289E-06_JPRB/)
263 KAO( :, 5,13, 1) = (/&
264 & 2.2466E-06_JPRB,3.9523E-06_JPRB,4.4147E-06_JPRB,4.5851E-06_JPRB,4.5844E-06_JPRB,4.4468E-06_JPRB,&
265
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.1612E-06_JPRB,3.6696E-06_JPRB,8.4982E-06_JPRB/)
266 KAO( :, 1, 1, 2) = (/&
267 & 4.5009E-05_JPRB,5.8537E-05_JPRB,6.2677E-05_JPRB,6.4420E-05_JPRB,6.4899E-05_JPRB,6.4046E-05_JPRB,&
268
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.1758E-05_JPRB,5.7308E-05_JPRB,4.4974E-05_JPRB/)
269 KAO( :, 2, 1, 2) = (/&
270 & 4.4639E-05_JPRB,5.7851E-05_JPRB,6.2018E-05_JPRB,6.3985E-05_JPRB,6.4709E-05_JPRB,6.3972E-05_JPRB,&
271
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.1776E-05_JPRB,5.7584E-05_JPRB,4.6032E-05_JPRB/)
272 KAO( :, 3, 1, 2) = (/&
273 & 4.4183E-05_JPRB,5.7134E-05_JPRB,6.1429E-05_JPRB,6.3594E-05_JPRB,6.4467E-05_JPRB,6.3906E-05_JPRB,&
274
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.1866E-05_JPRB,5.7909E-05_JPRB,4.7065E-05_JPRB/)
275 KAO( :, 4, 1, 2) = (/&
276 & 4.3603E-05_JPRB,5.6311E-05_JPRB,6.0747E-05_JPRB,6.3098E-05_JPRB,6.4110E-05_JPRB,6.3723E-05_JPRB,&
277
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.1859E-05_JPRB,5.8107E-05_JPRB,4.8038E-05_JPRB/)
278 KAO( :, 5, 1, 2) = (/&
279 & 4.3016E-05_JPRB,5.5575E-05_JPRB,6.0089E-05_JPRB,6.2604E-05_JPRB,6.3758E-05_JPRB,6.3526E-05_JPRB,&
280
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.1825E-05_JPRB,5.8256E-05_JPRB,4.8937E-05_JPRB/)
281 KAO( :, 1, 2, 2) = (/&
282 & 3.8991E-05_JPRB,5.1237E-05_JPRB,5.5073E-05_JPRB,5.6912E-05_JPRB,5.7291E-05_JPRB,5.6357E-05_JPRB,&
283
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.4136E-05_JPRB,4.9871E-05_JPRB,3.8345E-05_JPRB/)
284 KAO( :, 2, 2, 2) = (/&
285 & 3.8628E-05_JPRB,5.0611E-05_JPRB,5.4618E-05_JPRB,5.6670E-05_JPRB,5.7177E-05_JPRB,5.6367E-05_JPRB,&
286
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.4237E-05_JPRB,5.0203E-05_JPRB,3.9241E-05_JPRB/)
287 KAO( :, 3, 2, 2) = (/&
288 & 3.8218E-05_JPRB,5.0047E-05_JPRB,5.4219E-05_JPRB,5.6458E-05_JPRB,5.7088E-05_JPRB,5.6414E-05_JPRB,&
289
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.4375E-05_JPRB,5.0554E-05_JPRB,4.0182E-05_JPRB/)
290 KAO( :, 4, 2, 2) = (/&
291 & 3.7696E-05_JPRB,4.9413E-05_JPRB,5.3740E-05_JPRB,5.6131E-05_JPRB,5.6939E-05_JPRB,5.6393E-05_JPRB,&
292
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.4506E-05_JPRB,5.0827E-05_JPRB,4.1063E-05_JPRB/)
293 KAO( :, 5, 2, 2) = (/&
294 & 3.7087E-05_JPRB,4.8772E-05_JPRB,5.3212E-05_JPRB,5.5737E-05_JPRB,5.6714E-05_JPRB,5.6323E-05_JPRB,&
295
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.4580E-05_JPRB,5.1064E-05_JPRB,4.1833E-05_JPRB/)
296 KAO( :, 1, 3, 2) = (/&
297 & 3.3664E-05_JPRB,4.4718E-05_JPRB,4.8316E-05_JPRB,5.0054E-05_JPRB,5.0316E-05_JPRB,4.9337E-05_JPRB,&
298
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.7131E-05_JPRB,4.3067E-05_JPRB,3.3821E-05_JPRB/)
299 KAO( :, 2, 3, 2) = (/&
300 & 3.3332E-05_JPRB,4.4193E-05_JPRB,4.7982E-05_JPRB,4.9921E-05_JPRB,5.0286E-05_JPRB,4.9400E-05_JPRB,&
301
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.7278E-05_JPRB,4.3395E-05_JPRB,3.4508E-05_JPRB/)
302 KAO( :, 3, 3, 2) = (/&
303 & 3.2912E-05_JPRB,4.3709E-05_JPRB,4.7689E-05_JPRB,4.9796E-05_JPRB,5.0261E-05_JPRB,4.9490E-05_JPRB,&
304
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.7455E-05_JPRB,4.3769E-05_JPRB,3.5275E-05_JPRB/)
305 KAO( :, 4, 3, 2) = (/&
306 & 3.2477E-05_JPRB,4.3262E-05_JPRB,4.7404E-05_JPRB,4.9658E-05_JPRB,5.0286E-05_JPRB,4.9612E-05_JPRB,&
307
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.7676E-05_JPRB,4.4119E-05_JPRB,3.6032E-05_JPRB/)
308 KAO( :, 5, 3, 2) = (/&
309 & 3.1897E-05_JPRB,4.2732E-05_JPRB,4.7020E-05_JPRB,4.9397E-05_JPRB,5.0209E-05_JPRB,4.9662E-05_JPRB,&
310
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.7863E-05_JPRB,4.4408E-05_JPRB,3.6739E-05_JPRB/)
311 KAO( :, 1, 4, 2) = (/&
312 & 2.9034E-05_JPRB,3.9020E-05_JPRB,4.2255E-05_JPRB,4.3779E-05_JPRB,4.3941E-05_JPRB,4.2940E-05_JPRB,&
313
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.0749E-05_JPRB,3.6991E-05_JPRB,3.2231E-05_JPRB/)
314 KAO( :, 2, 4, 2) = (/&
315 & 2.8733E-05_JPRB,3.8566E-05_JPRB,4.1993E-05_JPRB,4.3688E-05_JPRB,4.3978E-05_JPRB,4.3065E-05_JPRB,&
316
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.0955E-05_JPRB,3.7298E-05_JPRB,3.2530E-05_JPRB/)
317 KAO( :, 3, 4, 2) = (/&
318 & 2.8365E-05_JPRB,3.8166E-05_JPRB,4.1800E-05_JPRB,4.3640E-05_JPRB,4.4034E-05_JPRB,4.3186E-05_JPRB,&
319
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.1171E-05_JPRB,3.7663E-05_JPRB,3.3003E-05_JPRB/)
320 KAO( :, 4, 4, 2) = (/&
321 & 2.7906E-05_JPRB,3.7772E-05_JPRB,4.1598E-05_JPRB,4.3582E-05_JPRB,4.4101E-05_JPRB,4.3335E-05_JPRB,&
322
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.1429E-05_JPRB,3.8018E-05_JPRB,3.3543E-05_JPRB/)
323 KAO( :, 5, 4, 2) = (/&
324 & 2.7464E-05_JPRB,3.7412E-05_JPRB,4.1395E-05_JPRB,4.3505E-05_JPRB,4.4180E-05_JPRB,4.3547E-05_JPRB,&
325
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.1708E-05_JPRB,3.8366E-05_JPRB,3.4090E-05_JPRB/)
326 KAO( :, 1, 5, 2) = (/&
327 & 2.5046E-05_JPRB,3.4030E-05_JPRB,3.6841E-05_JPRB,3.8123E-05_JPRB,3.8161E-05_JPRB,3.7165E-05_JPRB,&
328
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.5069E-05_JPRB,3.1597E-05_JPRB,3.1884E-05_JPRB/)
329 KAO( :, 2, 5, 2) = (/&
330 & 2.4766E-05_JPRB,3.3630E-05_JPRB,3.6644E-05_JPRB,3.8042E-05_JPRB,3.8206E-05_JPRB,3.7320E-05_JPRB,&
331
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.5335E-05_JPRB,3.1911E-05_JPRB,3.2055E-05_JPRB/)
332 KAO( :, 3, 5, 2) = (/&
333 & 2.4433E-05_JPRB,3.3294E-05_JPRB,3.6479E-05_JPRB,3.8027E-05_JPRB,3.8311E-05_JPRB,3.7468E-05_JPRB,&
334
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.5564E-05_JPRB,3.2236E-05_JPRB,3.2305E-05_JPRB/)
335 KAO( :, 4, 5, 2) = (/&
336 & 2.4018E-05_JPRB,3.2959E-05_JPRB,3.6349E-05_JPRB,3.8027E-05_JPRB,3.8418E-05_JPRB,3.7650E-05_JPRB,&
337
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.5828E-05_JPRB,3.2583E-05_JPRB,3.2642E-05_JPRB/)
338 KAO( :, 5, 5, 2) = (/&
339 & 2.3591E-05_JPRB,3.2668E-05_JPRB,3.6232E-05_JPRB,3.8051E-05_JPRB,3.8551E-05_JPRB,3.7905E-05_JPRB,&
340
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
 10 & 3.6128E-05_JPRB,3.2939E-05_JPRB,3.3008E-05_JPRB/)
341
342
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART1',1,ZHOOK_HANDLE)
343 1 END SUBROUTINE PART1
344
345
346 1 SUBROUTINE PART2
347
348 REAL(KIND=JPRB) :: ZHOOK_HANDLE
349
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART2',0,ZHOOK_HANDLE)
350
351
352 KAO( :, 1, 6, 2) = (/&
353 & 2.1579E-05_JPRB,2.9591E-05_JPRB,3.1991E-05_JPRB,3.3013E-05_JPRB,3.2936E-05_JPRB,3.1944E-05_JPRB,&
354
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.0025E-05_JPRB,2.6876E-05_JPRB,2.9999E-05_JPRB/)
355 KAO( :, 2, 6, 2) = (/&
356 & 2.1317E-05_JPRB,2.9255E-05_JPRB,3.1830E-05_JPRB,3.2965E-05_JPRB,3.2983E-05_JPRB,3.2102E-05_JPRB,&
357
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.0272E-05_JPRB,2.7170E-05_JPRB,3.0568E-05_JPRB/)
358 KAO( :, 3, 6, 2) = (/&
359 & 2.1011E-05_JPRB,2.8952E-05_JPRB,3.1684E-05_JPRB,3.2945E-05_JPRB,3.3093E-05_JPRB,3.2263E-05_JPRB,&
360
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.0533E-05_JPRB,2.7474E-05_JPRB,3.1151E-05_JPRB/)
361 KAO( :, 4, 6, 2) = (/&
362 & 2.0627E-05_JPRB,2.8670E-05_JPRB,3.1569E-05_JPRB,3.2960E-05_JPRB,3.3217E-05_JPRB,3.2461E-05_JPRB,&
363
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.0780E-05_JPRB,2.7789E-05_JPRB,3.1790E-05_JPRB/)
364 KAO( :, 5, 6, 2) = (/&
365 & 2.0182E-05_JPRB,2.8368E-05_JPRB,3.1449E-05_JPRB,3.2969E-05_JPRB,3.3342E-05_JPRB,3.2673E-05_JPRB,&
366
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.1052E-05_JPRB,2.8119E-05_JPRB,3.2386E-05_JPRB/)
367 KAO( :, 1, 7, 2) = (/&
368 & 1.8452E-05_JPRB,2.5532E-05_JPRB,2.7551E-05_JPRB,2.8351E-05_JPRB,2.8204E-05_JPRB,2.7262E-05_JPRB,&
369
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.5546E-05_JPRB,2.2740E-05_JPRB,2.8091E-05_JPRB/)
370 KAO( :, 2, 7, 2) = (/&
371 & 1.8215E-05_JPRB,2.5256E-05_JPRB,2.7416E-05_JPRB,2.8318E-05_JPRB,2.8249E-05_JPRB,2.7395E-05_JPRB,&
372
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.5765E-05_JPRB,2.3002E-05_JPRB,2.8720E-05_JPRB/)
373 KAO( :, 3, 7, 2) = (/&
374 & 1.7931E-05_JPRB,2.4972E-05_JPRB,2.7294E-05_JPRB,2.8314E-05_JPRB,2.8348E-05_JPRB,2.7572E-05_JPRB,&
375
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.6008E-05_JPRB,2.3291E-05_JPRB,2.9431E-05_JPRB/)
376 KAO( :, 4, 7, 2) = (/&
377 & 1.7583E-05_JPRB,2.4714E-05_JPRB,2.7183E-05_JPRB,2.8322E-05_JPRB,2.8484E-05_JPRB,2.7765E-05_JPRB,&
378
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.6265E-05_JPRB,2.3586E-05_JPRB,3.0235E-05_JPRB/)
379 KAO( :, 5, 7, 2) = (/&
380 & 1.7179E-05_JPRB,2.4453E-05_JPRB,2.7076E-05_JPRB,2.8339E-05_JPRB,2.8609E-05_JPRB,2.7972E-05_JPRB,&
381
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.6510E-05_JPRB,2.3882E-05_JPRB,3.1083E-05_JPRB/)
382 KAO( :, 1, 8, 2) = (/&
383 & 1.5794E-05_JPRB,2.2020E-05_JPRB,2.3670E-05_JPRB,2.4259E-05_JPRB,2.4056E-05_JPRB,2.3178E-05_JPRB,&
384
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1635E-05_JPRB,1.9134E-05_JPRB,2.7582E-05_JPRB/)
385 KAO( :, 2, 8, 2) = (/&
386 & 1.5579E-05_JPRB,2.1775E-05_JPRB,2.3546E-05_JPRB,2.4231E-05_JPRB,2.4092E-05_JPRB,2.3297E-05_JPRB,&
387
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1816E-05_JPRB,1.9397E-05_JPRB,2.8313E-05_JPRB/)
388 KAO( :, 3, 8, 2) = (/&
389 & 1.5328E-05_JPRB,2.1517E-05_JPRB,2.3429E-05_JPRB,2.4220E-05_JPRB,2.4175E-05_JPRB,2.3443E-05_JPRB,&
390
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2039E-05_JPRB,1.9642E-05_JPRB,2.9205E-05_JPRB/)
391 KAO( :, 4, 8, 2) = (/&
392 & 1.5023E-05_JPRB,2.1268E-05_JPRB,2.3319E-05_JPRB,2.4225E-05_JPRB,2.4291E-05_JPRB,2.3637E-05_JPRB,&
393
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2285E-05_JPRB,1.9922E-05_JPRB,3.0174E-05_JPRB/)
394 KAO( :, 5, 8, 2) = (/&
395 & 1.4668E-05_JPRB,2.1020E-05_JPRB,2.3208E-05_JPRB,2.4227E-05_JPRB,2.4407E-05_JPRB,2.3824E-05_JPRB,&
396
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2528E-05_JPRB,2.0191E-05_JPRB,3.1226E-05_JPRB/)
397 KAO( :, 1, 9, 2) = (/&
398 & 1.3453E-05_JPRB,1.8874E-05_JPRB,2.0200E-05_JPRB,2.0614E-05_JPRB,2.0394E-05_JPRB,1.9585E-05_JPRB,&
399
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8218E-05_JPRB,1.5952E-05_JPRB,3.1081E-05_JPRB/)
400 KAO( :, 2, 9, 2) = (/&
401 & 1.3262E-05_JPRB,1.8651E-05_JPRB,2.0085E-05_JPRB,2.0598E-05_JPRB,2.0424E-05_JPRB,1.9696E-05_JPRB,&
402
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8380E-05_JPRB,1.6281E-05_JPRB,3.2467E-05_JPRB/)
403 KAO( :, 3, 9, 2) = (/&
404 & 1.3038E-05_JPRB,1.8418E-05_JPRB,1.9972E-05_JPRB,2.0581E-05_JPRB,2.0487E-05_JPRB,1.9824E-05_JPRB,&
405
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8572E-05_JPRB,1.6491E-05_JPRB,3.3986E-05_JPRB/)
406 KAO( :, 4, 9, 2) = (/&
407 & 1.2776E-05_JPRB,1.8181E-05_JPRB,1.9859E-05_JPRB,2.0572E-05_JPRB,2.0585E-05_JPRB,1.9985E-05_JPRB,&
408
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8794E-05_JPRB,1.6733E-05_JPRB,3.5607E-05_JPRB/)
409 KAO( :, 5, 9, 2) = (/&
410 & 1.2471E-05_JPRB,1.7952E-05_JPRB,1.9753E-05_JPRB,2.0569E-05_JPRB,2.0679E-05_JPRB,2.0158E-05_JPRB,&
411
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9021E-05_JPRB,1.6980E-05_JPRB,3.7340E-05_JPRB/)
412 KAO( :, 1,10, 2) = (/&
413 & 1.1374E-05_JPRB,1.6047E-05_JPRB,1.7111E-05_JPRB,1.7393E-05_JPRB,1.7165E-05_JPRB,1.6451E-05_JPRB,&
414
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5255E-05_JPRB,1.3140E-05_JPRB,3.4787E-05_JPRB/)
415 KAO( :, 2,10, 2) = (/&
416 & 1.1208E-05_JPRB,1.5847E-05_JPRB,1.6997E-05_JPRB,1.7386E-05_JPRB,1.7209E-05_JPRB,1.6555E-05_JPRB,&
417
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5407E-05_JPRB,1.3598E-05_JPRB,3.7476E-05_JPRB/)
418 KAO( :, 3,10, 2) = (/&
419 & 1.1010E-05_JPRB,1.5634E-05_JPRB,1.6890E-05_JPRB,1.7366E-05_JPRB,1.7258E-05_JPRB,1.6670E-05_JPRB,&
420
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5570E-05_JPRB,1.3793E-05_JPRB,4.0426E-05_JPRB/)
421 KAO( :, 4,10, 2) = (/&
422 & 1.0782E-05_JPRB,1.5423E-05_JPRB,1.6783E-05_JPRB,1.7341E-05_JPRB,1.7331E-05_JPRB,1.6806E-05_JPRB,&
423
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5764E-05_JPRB,1.4000E-05_JPRB,4.3679E-05_JPRB/)
424 KAO( :, 5,10, 2) = (/&
425 & 1.0524E-05_JPRB,1.5209E-05_JPRB,1.6680E-05_JPRB,1.7333E-05_JPRB,1.7403E-05_JPRB,1.6952E-05_JPRB,&
426
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5975E-05_JPRB,1.4224E-05_JPRB,4.7059E-05_JPRB/)
427 KAO( :, 1,11, 2) = (/&
428 & 9.5209E-06_JPRB,1.3499E-05_JPRB,1.4375E-05_JPRB,1.4600E-05_JPRB,1.4393E-05_JPRB,1.3793E-05_JPRB,&
429
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2781E-05_JPRB,1.1038E-05_JPRB,3.2865E-05_JPRB/)
430 KAO( :, 2,11, 2) = (/&
431 & 9.3637E-06_JPRB,1.3313E-05_JPRB,1.4267E-05_JPRB,1.4592E-05_JPRB,1.4440E-05_JPRB,1.3889E-05_JPRB,&
432
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2920E-05_JPRB,1.1404E-05_JPRB,3.5445E-05_JPRB/)
433 KAO( :, 3,11, 2) = (/&
434 & 9.1833E-06_JPRB,1.3123E-05_JPRB,1.4166E-05_JPRB,1.4568E-05_JPRB,1.4482E-05_JPRB,1.3996E-05_JPRB,&
435
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3070E-05_JPRB,1.1568E-05_JPRB,3.8218E-05_JPRB/)
436 KAO( :, 4,11, 2) = (/&
437 & 8.9761E-06_JPRB,1.2932E-05_JPRB,1.4072E-05_JPRB,1.4544E-05_JPRB,1.4541E-05_JPRB,1.4107E-05_JPRB,&
438
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3243E-05_JPRB,1.1758E-05_JPRB,4.1117E-05_JPRB/)
439 KAO( :, 5,11, 2) = (/&
440 & 8.7519E-06_JPRB,1.2738E-05_JPRB,1.3974E-05_JPRB,1.4523E-05_JPRB,1.4594E-05_JPRB,1.4232E-05_JPRB,&
441
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3426E-05_JPRB,1.1955E-05_JPRB,4.4210E-05_JPRB/)
442 KAO( :, 1,12, 2) = (/&
443 & 7.9463E-06_JPRB,1.1314E-05_JPRB,1.2032E-05_JPRB,1.2211E-05_JPRB,1.2025E-05_JPRB,1.1526E-05_JPRB,&
444
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0676E-05_JPRB,9.2413E-06_JPRB,2.9106E-05_JPRB/)
445 KAO( :, 2,12, 2) = (/&
446 & 7.8042E-06_JPRB,1.1141E-05_JPRB,1.1931E-05_JPRB,1.2198E-05_JPRB,1.2069E-05_JPRB,1.1610E-05_JPRB,&
447
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0799E-05_JPRB,9.5264E-06_JPRB,3.1349E-05_JPRB/)
448 KAO( :, 3,12, 2) = (/&
449 & 7.6428E-06_JPRB,1.0975E-05_JPRB,1.1841E-05_JPRB,1.2172E-05_JPRB,1.2102E-05_JPRB,1.1694E-05_JPRB,&
450
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0928E-05_JPRB,9.6721E-06_JPRB,3.3866E-05_JPRB/)
451 KAO( :, 4,12, 2) = (/&
452 & 7.4623E-06_JPRB,1.0806E-05_JPRB,1.1756E-05_JPRB,1.2145E-05_JPRB,1.2145E-05_JPRB,1.1788E-05_JPRB,&
453
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1076E-05_JPRB,9.8394E-06_JPRB,3.6457E-05_JPRB/)
454 KAO( :, 5,12, 2) = (/&
455 & 7.2711E-06_JPRB,1.0633E-05_JPRB,1.1656E-05_JPRB,1.2115E-05_JPRB,1.2181E-05_JPRB,1.1891E-05_JPRB,&
456
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1228E-05_JPRB,1.0010E-05_JPRB,3.9156E-05_JPRB/)
457 KAO( :, 1,13, 2) = (/&
458 & 6.6184E-06_JPRB,9.4565E-06_JPRB,1.0043E-05_JPRB,1.0182E-05_JPRB,1.0021E-05_JPRB,9.6035E-06_JPRB,&
459
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.8893E-06_JPRB,7.7053E-06_JPRB,2.4435E-05_JPRB/)
460 KAO( :, 2,13, 2) = (/&
461 & 6.4936E-06_JPRB,9.3020E-06_JPRB,9.9506E-06_JPRB,1.0164E-05_JPRB,1.0053E-05_JPRB,9.6688E-06_JPRB,&
462
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.9931E-06_JPRB,7.9311E-06_JPRB,2.6318E-05_JPRB/)
463 KAO( :, 3,13, 2) = (/&
464 & 6.3517E-06_JPRB,9.1558E-06_JPRB,9.8692E-06_JPRB,1.0135E-05_JPRB,1.0076E-05_JPRB,9.7347E-06_JPRB,&
465
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.1027E-06_JPRB,8.0612E-06_JPRB,2.8419E-05_JPRB/)
466 KAO( :, 4,13, 2) = (/&
467 & 6.1987E-06_JPRB,9.0085E-06_JPRB,9.7873E-06_JPRB,1.0106E-05_JPRB,1.0104E-05_JPRB,9.8108E-06_JPRB,&
468
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.2254E-06_JPRB,8.2025E-06_JPRB,3.0596E-05_JPRB/)
469 KAO( :, 5,13, 2) = (/&
470 & 6.0390E-06_JPRB,8.8585E-06_JPRB,9.6966E-06_JPRB,1.0071E-05_JPRB,1.0127E-05_JPRB,9.8907E-06_JPRB,&
471
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.3441E-06_JPRB,8.3431E-06_JPRB,3.2866E-05_JPRB/)
472 KAO( :, 1, 1, 3) = (/&
473 & 7.0753E-05_JPRB,8.7371E-05_JPRB,9.5172E-05_JPRB,9.9390E-05_JPRB,1.0056E-04_JPRB,9.9494E-05_JPRB,&
474
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.5837E-05_JPRB,8.9326E-05_JPRB,7.4323E-05_JPRB/)
475 KAO( :, 2, 1, 3) = (/&
476 & 6.9795E-05_JPRB,8.7509E-05_JPRB,9.5691E-05_JPRB,9.9950E-05_JPRB,1.0125E-04_JPRB,1.0041E-04_JPRB,&
477
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.7011E-05_JPRB,9.0609E-05_JPRB,7.5641E-05_JPRB/)
478 KAO( :, 3, 1, 3) = (/&
479 & 6.9131E-05_JPRB,8.7916E-05_JPRB,9.6468E-05_JPRB,1.0076E-04_JPRB,1.0214E-04_JPRB,1.0141E-04_JPRB,&
480
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.8247E-05_JPRB,9.2085E-05_JPRB,7.7357E-05_JPRB/)
481 KAO( :, 4, 1, 3) = (/&
482 & 6.8482E-05_JPRB,8.8338E-05_JPRB,9.7157E-05_JPRB,1.0153E-04_JPRB,1.0307E-04_JPRB,1.0249E-04_JPRB,&
483
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.9530E-05_JPRB,9.3696E-05_JPRB,7.9379E-05_JPRB/)
484 KAO( :, 5, 1, 3) = (/&
485 & 6.7880E-05_JPRB,8.8892E-05_JPRB,9.7857E-05_JPRB,1.0242E-04_JPRB,1.0411E-04_JPRB,1.0366E-04_JPRB,&
486
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0077E-04_JPRB,9.5333E-05_JPRB,8.1423E-05_JPRB/)
487 KAO( :, 1, 2, 3) = (/&
488 & 6.2276E-05_JPRB,7.8469E-05_JPRB,8.5472E-05_JPRB,8.8868E-05_JPRB,8.9888E-05_JPRB,8.8903E-05_JPRB,&
489
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.5409E-05_JPRB,7.9146E-05_JPRB,6.4309E-05_JPRB/)
490 KAO( :, 2, 2, 3) = (/&
491 & 6.1522E-05_JPRB,7.8775E-05_JPRB,8.6027E-05_JPRB,8.9487E-05_JPRB,9.0686E-05_JPRB,8.9927E-05_JPRB,&
492
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.6540E-05_JPRB,8.0293E-05_JPRB,6.5447E-05_JPRB/)
493 KAO( :, 3, 2, 3) = (/&
494 & 6.1045E-05_JPRB,7.9281E-05_JPRB,8.6793E-05_JPRB,9.0368E-05_JPRB,9.1669E-05_JPRB,9.0966E-05_JPRB,&
495
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.7713E-05_JPRB,8.1579E-05_JPRB,6.6858E-05_JPRB/)
496 KAO( :, 4, 2, 3) = (/&
497 & 6.0651E-05_JPRB,7.9924E-05_JPRB,8.7586E-05_JPRB,9.1281E-05_JPRB,9.2660E-05_JPRB,9.2033E-05_JPRB,&
498
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.8973E-05_JPRB,8.3100E-05_JPRB,6.8552E-05_JPRB/)
499 KAO( :, 5, 2, 3) = (/&
500 & 6.0196E-05_JPRB,8.0517E-05_JPRB,8.8362E-05_JPRB,9.2181E-05_JPRB,9.3655E-05_JPRB,9.3124E-05_JPRB,&
501
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.0231E-05_JPRB,8.4620E-05_JPRB,7.0321E-05_JPRB/)
502 KAO( :, 1, 3, 3) = (/&
503 & 5.4594E-05_JPRB,7.0140E-05_JPRB,7.6291E-05_JPRB,7.9103E-05_JPRB,7.9908E-05_JPRB,7.8825E-05_JPRB,&
504
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.5557E-05_JPRB,6.9638E-05_JPRB,5.6129E-05_JPRB/)
505 KAO( :, 2, 3, 3) = (/&
506 & 5.3987E-05_JPRB,7.0481E-05_JPRB,7.6809E-05_JPRB,7.9722E-05_JPRB,8.0799E-05_JPRB,7.9847E-05_JPRB,&
507
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.6636E-05_JPRB,7.0746E-05_JPRB,5.7083E-05_JPRB/)
508 KAO( :, 3, 3, 3) = (/&
509 & 5.3598E-05_JPRB,7.0935E-05_JPRB,7.7478E-05_JPRB,8.0559E-05_JPRB,8.1742E-05_JPRB,8.0926E-05_JPRB,&
510
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.7718E-05_JPRB,7.1792E-05_JPRB,5.8231E-05_JPRB/)
511 KAO( :, 4, 3, 3) = (/&
512 & 5.3419E-05_JPRB,7.1650E-05_JPRB,7.8342E-05_JPRB,8.1570E-05_JPRB,8.2791E-05_JPRB,8.1991E-05_JPRB,&
513
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.8849E-05_JPRB,7.3062E-05_JPRB,5.9633E-05_JPRB/)
514 KAO( :, 5, 3, 3) = (/&
515 & 5.3129E-05_JPRB,7.2273E-05_JPRB,7.9178E-05_JPRB,8.2486E-05_JPRB,8.3759E-05_JPRB,8.3022E-05_JPRB,&
516
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.0014E-05_JPRB,7.4467E-05_JPRB,6.1152E-05_JPRB/)
517 KAO( :, 1, 4, 3) = (/&
518 & 4.7696E-05_JPRB,6.2286E-05_JPRB,6.7749E-05_JPRB,7.0181E-05_JPRB,7.0624E-05_JPRB,6.9456E-05_JPRB,&
519
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.6381E-05_JPRB,6.0701E-05_JPRB,5.1576E-05_JPRB/)
520 KAO( :, 2, 4, 3) = (/&
521 & 4.7208E-05_JPRB,6.2637E-05_JPRB,6.8240E-05_JPRB,7.0849E-05_JPRB,7.1530E-05_JPRB,7.0423E-05_JPRB,&
522
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.7425E-05_JPRB,6.1760E-05_JPRB,5.2349E-05_JPRB/)
523 KAO( :, 3, 4, 3) = (/&
524 & 4.6920E-05_JPRB,6.3058E-05_JPRB,6.8836E-05_JPRB,7.1607E-05_JPRB,7.2463E-05_JPRB,7.1509E-05_JPRB,&
525
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.8509E-05_JPRB,6.2750E-05_JPRB,5.3224E-05_JPRB/)
526 KAO( :, 4, 4, 3) = (/&
527 & 4.6776E-05_JPRB,6.3606E-05_JPRB,6.9601E-05_JPRB,7.2517E-05_JPRB,7.3446E-05_JPRB,7.2570E-05_JPRB,&
528
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.9521E-05_JPRB,6.3786E-05_JPRB,5.4286E-05_JPRB/)
529 KAO( :, 5, 4, 3) = (/&
530 & 4.6682E-05_JPRB,6.4343E-05_JPRB,7.0568E-05_JPRB,7.3573E-05_JPRB,7.4545E-05_JPRB,7.3619E-05_JPRB,&
531
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.0604E-05_JPRB,6.5003E-05_JPRB,5.5521E-05_JPRB/)
532 KAO( :, 1, 5, 3) = (/&
533 & 4.1581E-05_JPRB,5.4899E-05_JPRB,5.9799E-05_JPRB,6.1832E-05_JPRB,6.2136E-05_JPRB,6.0898E-05_JPRB,&
534
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.7964E-05_JPRB,5.2516E-05_JPRB,5.0115E-05_JPRB/)
535 KAO( :, 2, 5, 3) = (/&
536 & 4.1165E-05_JPRB,5.5257E-05_JPRB,6.0251E-05_JPRB,6.2555E-05_JPRB,6.3007E-05_JPRB,6.1795E-05_JPRB,&
537
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.8864E-05_JPRB,5.3500E-05_JPRB,5.0524E-05_JPRB/)
538 KAO( :, 3, 5, 3) = (/&
539 & 4.0905E-05_JPRB,5.5656E-05_JPRB,6.0839E-05_JPRB,6.3322E-05_JPRB,6.3891E-05_JPRB,6.2840E-05_JPRB,&
540
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.9887E-05_JPRB,5.4446E-05_JPRB,5.1001E-05_JPRB/)
541 KAO( :, 4, 5, 3) = (/&
542 & 4.0790E-05_JPRB,5.6129E-05_JPRB,6.1526E-05_JPRB,6.4146E-05_JPRB,6.4873E-05_JPRB,6.3880E-05_JPRB,&
543
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.0934E-05_JPRB,5.5421E-05_JPRB,5.1576E-05_JPRB/)
544 KAO( :, 5, 5, 3) = (/&
545 & 4.0741E-05_JPRB,5.6811E-05_JPRB,6.2419E-05_JPRB,6.5146E-05_JPRB,6.5947E-05_JPRB,6.4915E-05_JPRB,&
546
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.1966E-05_JPRB,5.6459E-05_JPRB,5.2345E-05_JPRB/)
547 KAO( :, 1, 6, 3) = (/&
548 & 3.6128E-05_JPRB,4.8074E-05_JPRB,5.2303E-05_JPRB,5.4088E-05_JPRB,5.4305E-05_JPRB,5.3072E-05_JPRB,&
549
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.0232E-05_JPRB,4.5105E-05_JPRB,5.1680E-05_JPRB/)
550 KAO( :, 2, 6, 3) = (/&
551 & 3.5776E-05_JPRB,4.8378E-05_JPRB,5.2790E-05_JPRB,5.4763E-05_JPRB,5.5146E-05_JPRB,5.3920E-05_JPRB,&
552
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.1041E-05_JPRB,4.6023E-05_JPRB,5.1519E-05_JPRB/)
553 KAO( :, 3, 6, 3) = (/&
554 & 3.5527E-05_JPRB,4.8788E-05_JPRB,5.3350E-05_JPRB,5.5505E-05_JPRB,5.5990E-05_JPRB,5.4859E-05_JPRB,&
555
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.1952E-05_JPRB,4.6910E-05_JPRB,5.1451E-05_JPRB/)
556 KAO( :, 4, 6, 3) = (/&
557 & 3.5393E-05_JPRB,4.9227E-05_JPRB,5.4029E-05_JPRB,5.6316E-05_JPRB,5.6902E-05_JPRB,5.5852E-05_JPRB,&
558
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.2950E-05_JPRB,4.7839E-05_JPRB,5.1463E-05_JPRB/)
559 KAO( :, 5, 6, 3) = (/&
560 & 3.5279E-05_JPRB,4.9738E-05_JPRB,5.4773E-05_JPRB,5.7200E-05_JPRB,5.7864E-05_JPRB,5.6831E-05_JPRB,&
561
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.3962E-05_JPRB,4.8775E-05_JPRB,5.1664E-05_JPRB/)
562 KAO( :, 1, 7, 3) = (/&
563 & 3.1175E-05_JPRB,4.1797E-05_JPRB,4.5353E-05_JPRB,4.6878E-05_JPRB,4.7045E-05_JPRB,4.5914E-05_JPRB,&
564
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.3260E-05_JPRB,3.8528E-05_JPRB,5.5034E-05_JPRB/)
565 KAO( :, 2, 7, 3) = (/&
566 & 3.0861E-05_JPRB,4.2063E-05_JPRB,4.5864E-05_JPRB,4.7535E-05_JPRB,4.7827E-05_JPRB,4.6677E-05_JPRB,&
567
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.3974E-05_JPRB,3.9350E-05_JPRB,5.5182E-05_JPRB/)
568 KAO( :, 3, 7, 3) = (/&
569 & 3.0632E-05_JPRB,4.2441E-05_JPRB,4.6427E-05_JPRB,4.8241E-05_JPRB,4.8620E-05_JPRB,4.7526E-05_JPRB,&
570
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.4793E-05_JPRB,4.0140E-05_JPRB,5.5398E-05_JPRB/)
571 KAO( :, 4, 7, 3) = (/&
572 & 3.0475E-05_JPRB,4.2876E-05_JPRB,4.7039E-05_JPRB,4.9018E-05_JPRB,4.9446E-05_JPRB,4.8432E-05_JPRB,&
573
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.5701E-05_JPRB,4.0986E-05_JPRB,5.5585E-05_JPRB/)
574 KAO( :, 5, 7, 3) = (/&
575 & 3.0340E-05_JPRB,4.3333E-05_JPRB,4.7753E-05_JPRB,4.9874E-05_JPRB,5.0366E-05_JPRB,4.9368E-05_JPRB,&
576
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.6641E-05_JPRB,4.1870E-05_JPRB,5.5728E-05_JPRB/)
577 KAO( :, 1, 8, 3) = (/&
578 & 2.6882E-05_JPRB,3.6181E-05_JPRB,3.9159E-05_JPRB,4.0385E-05_JPRB,4.0472E-05_JPRB,3.9467E-05_JPRB,&
579
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.7068E-05_JPRB,3.2787E-05_JPRB,6.0191E-05_JPRB/)
580 KAO( :, 2, 8, 3) = (/&
581 & 2.6577E-05_JPRB,3.6420E-05_JPRB,3.9630E-05_JPRB,4.1005E-05_JPRB,4.1190E-05_JPRB,4.0154E-05_JPRB,&
582
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.7711E-05_JPRB,3.3501E-05_JPRB,6.0976E-05_JPRB/)
583 KAO( :, 3, 8, 3) = (/&
584 & 2.6344E-05_JPRB,3.6733E-05_JPRB,4.0183E-05_JPRB,4.1714E-05_JPRB,4.1930E-05_JPRB,4.0908E-05_JPRB,&
585
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.8425E-05_JPRB,3.4195E-05_JPRB,6.1747E-05_JPRB/)
586 KAO( :, 4, 8, 3) = (/&
587 & 2.6154E-05_JPRB,3.7129E-05_JPRB,4.0772E-05_JPRB,4.2424E-05_JPRB,4.2698E-05_JPRB,4.1708E-05_JPRB,&
588
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.9208E-05_JPRB,3.4923E-05_JPRB,6.2436E-05_JPRB/)
589 KAO( :, 5, 8, 3) = (/&
590 & 2.5969E-05_JPRB,3.7541E-05_JPRB,4.1396E-05_JPRB,4.3205E-05_JPRB,4.3544E-05_JPRB,4.2561E-05_JPRB,&
591
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.0066E-05_JPRB,3.5716E-05_JPRB,6.2996E-05_JPRB/)
592 KAO( :, 1, 9, 3) = (/&
593 & 2.3030E-05_JPRB,3.1081E-05_JPRB,3.3574E-05_JPRB,3.4578E-05_JPRB,3.4594E-05_JPRB,3.3680E-05_JPRB,&
594
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.1564E-05_JPRB,2.7753E-05_JPRB,8.2972E-05_JPRB/)
595 KAO( :, 2, 9, 3) = (/&
596 & 2.2745E-05_JPRB,3.1301E-05_JPRB,3.4001E-05_JPRB,3.5099E-05_JPRB,3.5210E-05_JPRB,3.4293E-05_JPRB,&
597
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.2147E-05_JPRB,2.8418E-05_JPRB,8.5573E-05_JPRB/)
598 KAO( :, 3, 9, 3) = (/&
599 & 2.2504E-05_JPRB,3.1575E-05_JPRB,3.4507E-05_JPRB,3.5759E-05_JPRB,3.5892E-05_JPRB,3.4957E-05_JPRB,&
600
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.2777E-05_JPRB,2.9021E-05_JPRB,8.7692E-05_JPRB/)
601 KAO( :, 4, 9, 3) = (/&
602 & 2.2288E-05_JPRB,3.1903E-05_JPRB,3.5055E-05_JPRB,3.6460E-05_JPRB,3.6616E-05_JPRB,3.5667E-05_JPRB,&
603
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.3440E-05_JPRB,2.9641E-05_JPRB,8.9596E-05_JPRB/)
604 KAO( :, 5, 9, 3) = (/&
605 & 2.2076E-05_JPRB,3.2254E-05_JPRB,3.5612E-05_JPRB,3.7158E-05_JPRB,3.7379E-05_JPRB,3.6426E-05_JPRB,&
606
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.4185E-05_JPRB,3.0329E-05_JPRB,9.1172E-05_JPRB/)
607 KAO( :, 1,10, 3) = (/&
608 & 1.9573E-05_JPRB,2.6501E-05_JPRB,2.8604E-05_JPRB,2.9434E-05_JPRB,2.9415E-05_JPRB,2.8586E-05_JPRB,&
609
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.6756E-05_JPRB,2.3398E-05_JPRB,1.1831E-04_JPRB/)
610 KAO( :, 2,10, 3) = (/&
611 & 1.9311E-05_JPRB,2.6696E-05_JPRB,2.8987E-05_JPRB,2.9871E-05_JPRB,2.9930E-05_JPRB,2.9131E-05_JPRB,&
612
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.7291E-05_JPRB,2.4061E-05_JPRB,1.2413E-04_JPRB/)
613 KAO( :, 3,10, 3) = (/&
614 & 1.9064E-05_JPRB,2.6931E-05_JPRB,2.9433E-05_JPRB,3.0442E-05_JPRB,3.0524E-05_JPRB,2.9723E-05_JPRB,&
615
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.7830E-05_JPRB,2.4575E-05_JPRB,1.2968E-04_JPRB/)
616 KAO( :, 4,10, 3) = (/&
617 & 1.8838E-05_JPRB,2.7200E-05_JPRB,2.9911E-05_JPRB,3.1092E-05_JPRB,3.1189E-05_JPRB,3.0347E-05_JPRB,&
618
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.8402E-05_JPRB,2.5111E-05_JPRB,1.3500E-04_JPRB/)
619 KAO( :, 5,10, 3) = (/&
620 & 1.8619E-05_JPRB,2.7473E-05_JPRB,3.0391E-05_JPRB,3.1737E-05_JPRB,3.1883E-05_JPRB,3.1020E-05_JPRB,&
621
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.9042E-05_JPRB,2.5702E-05_JPRB,1.4050E-04_JPRB/)
622 KAO( :, 1,11, 3) = (/&
623 & 1.6456E-05_JPRB,2.2515E-05_JPRB,2.4353E-05_JPRB,2.5062E-05_JPRB,2.5054E-05_JPRB,2.4348E-05_JPRB,&
624
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2780E-05_JPRB,1.9929E-05_JPRB,1.2447E-04_JPRB/)
625 KAO( :, 2,11, 3) = (/&
626 & 1.6210E-05_JPRB,2.2705E-05_JPRB,2.4709E-05_JPRB,2.5473E-05_JPRB,2.5515E-05_JPRB,2.4826E-05_JPRB,&
627
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.3259E-05_JPRB,2.0482E-05_JPRB,1.3150E-04_JPRB/)
628 KAO( :, 3,11, 3) = (/&
629 & 1.5971E-05_JPRB,2.2902E-05_JPRB,2.5095E-05_JPRB,2.5990E-05_JPRB,2.6068E-05_JPRB,2.5361E-05_JPRB,&
630
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.3741E-05_JPRB,2.0933E-05_JPRB,1.3833E-04_JPRB/)
631 KAO( :, 4,11, 3) = (/&
632 & 1.5752E-05_JPRB,2.3106E-05_JPRB,2.5493E-05_JPRB,2.6568E-05_JPRB,2.6674E-05_JPRB,2.5935E-05_JPRB,&
633
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4259E-05_JPRB,2.1401E-05_JPRB,1.4470E-04_JPRB/)
634 KAO( :, 5,11, 3) = (/&
635 & 1.5528E-05_JPRB,2.3318E-05_JPRB,2.5901E-05_JPRB,2.7141E-05_JPRB,2.7302E-05_JPRB,2.6558E-05_JPRB,&
636
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4843E-05_JPRB,2.1914E-05_JPRB,1.5074E-04_JPRB/)
637 KAO( :, 1,12, 3) = (/&
638 & 1.3780E-05_JPRB,1.9033E-05_JPRB,2.0619E-05_JPRB,2.1228E-05_JPRB,2.1226E-05_JPRB,2.0621E-05_JPRB,&
639
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9294E-05_JPRB,1.6882E-05_JPRB,1.1649E-04_JPRB/)
640 KAO( :, 2,12, 3) = (/&
641 & 1.3548E-05_JPRB,1.9199E-05_JPRB,2.0913E-05_JPRB,2.1600E-05_JPRB,2.1645E-05_JPRB,2.1053E-05_JPRB,&
642
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
 10 & 1.9719E-05_JPRB,1.7352E-05_JPRB,1.2368E-04_JPRB/)
643
644
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART2',1,ZHOOK_HANDLE)
645 1 END SUBROUTINE PART2
646
647
648 1 SUBROUTINE PART3
649
650 REAL(KIND=JPRB) :: ZHOOK_HANDLE
651
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART3',0,ZHOOK_HANDLE)
652
653
654 KAO( :, 3,12, 3) = (/&
655 & 1.3324E-05_JPRB,1.9341E-05_JPRB,2.1240E-05_JPRB,2.2050E-05_JPRB,2.2132E-05_JPRB,2.1536E-05_JPRB,&
656
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0156E-05_JPRB,1.7750E-05_JPRB,1.3017E-04_JPRB/)
657 KAO( :, 4,12, 3) = (/&
658 & 1.3111E-05_JPRB,1.9487E-05_JPRB,2.1558E-05_JPRB,2.2533E-05_JPRB,2.2665E-05_JPRB,2.2056E-05_JPRB,&
659
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0628E-05_JPRB,1.8158E-05_JPRB,1.3659E-04_JPRB/)
660 KAO( :, 5,12, 3) = (/&
661 & 1.2895E-05_JPRB,1.9642E-05_JPRB,2.1889E-05_JPRB,2.3011E-05_JPRB,2.3210E-05_JPRB,2.2606E-05_JPRB,&
662
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1150E-05_JPRB,1.8610E-05_JPRB,1.4251E-04_JPRB/)
663 KAO( :, 1,13, 3) = (/&
664 & 1.1500E-05_JPRB,1.6003E-05_JPRB,1.7357E-05_JPRB,1.7889E-05_JPRB,1.7884E-05_JPRB,1.7367E-05_JPRB,&
665
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6254E-05_JPRB,1.4227E-05_JPRB,9.8757E-05_JPRB/)
666 KAO( :, 2,13, 3) = (/&
667 & 1.1286E-05_JPRB,1.6126E-05_JPRB,1.7594E-05_JPRB,1.8210E-05_JPRB,1.8252E-05_JPRB,1.7751E-05_JPRB,&
668
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6632E-05_JPRB,1.4641E-05_JPRB,1.0488E-04_JPRB/)
669 KAO( :, 3,13, 3) = (/&
670 & 1.1079E-05_JPRB,1.6225E-05_JPRB,1.7843E-05_JPRB,1.8579E-05_JPRB,1.8672E-05_JPRB,1.8176E-05_JPRB,&
671
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7024E-05_JPRB,1.4980E-05_JPRB,1.1036E-04_JPRB/)
672 KAO( :, 4,13, 3) = (/&
673 & 1.0876E-05_JPRB,1.6327E-05_JPRB,1.8099E-05_JPRB,1.8965E-05_JPRB,1.9122E-05_JPRB,1.8629E-05_JPRB,&
674
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7445E-05_JPRB,1.5339E-05_JPRB,1.1580E-04_JPRB/)
675 KAO( :, 5,13, 3) = (/&
676 & 1.0678E-05_JPRB,1.6434E-05_JPRB,1.8360E-05_JPRB,1.9355E-05_JPRB,1.9573E-05_JPRB,1.9100E-05_JPRB,&
677
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7895E-05_JPRB,1.5734E-05_JPRB,1.2071E-04_JPRB/)
678 KAO( :, 1, 1, 4) = (/&
679 & 1.0452E-04_JPRB,1.3483E-04_JPRB,1.4507E-04_JPRB,1.5035E-04_JPRB,1.5233E-04_JPRB,1.5098E-04_JPRB,&
680
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4623E-04_JPRB,1.3688E-04_JPRB,1.1596E-04_JPRB/)
681 KAO( :, 2, 1, 4) = (/&
682 & 1.0431E-04_JPRB,1.3598E-04_JPRB,1.4693E-04_JPRB,1.5285E-04_JPRB,1.5505E-04_JPRB,1.5376E-04_JPRB,&
683
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4899E-04_JPRB,1.4010E-04_JPRB,1.1898E-04_JPRB/)
684 KAO( :, 3, 1, 4) = (/&
685 & 1.0452E-04_JPRB,1.3748E-04_JPRB,1.4911E-04_JPRB,1.5568E-04_JPRB,1.5820E-04_JPRB,1.5701E-04_JPRB,&
686
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5204E-04_JPRB,1.4309E-04_JPRB,1.2195E-04_JPRB/)
687 KAO( :, 4, 1, 4) = (/&
688 & 1.0446E-04_JPRB,1.3898E-04_JPRB,1.5142E-04_JPRB,1.5876E-04_JPRB,1.6160E-04_JPRB,1.6033E-04_JPRB,&
689
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5519E-04_JPRB,1.4614E-04_JPRB,1.2504E-04_JPRB/)
690 KAO( :, 5, 1, 4) = (/&
691 & 1.0490E-04_JPRB,1.4072E-04_JPRB,1.5426E-04_JPRB,1.6221E-04_JPRB,1.6521E-04_JPRB,1.6398E-04_JPRB,&
692
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5900E-04_JPRB,1.4986E-04_JPRB,1.2878E-04_JPRB/)
693 KAO( :, 1, 2, 4) = (/&
694 & 9.4204E-05_JPRB,1.2226E-04_JPRB,1.3172E-04_JPRB,1.3677E-04_JPRB,1.3845E-04_JPRB,1.3676E-04_JPRB,&
695
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3184E-04_JPRB,1.2295E-04_JPRB,1.0190E-04_JPRB/)
696 KAO( :, 2, 2, 4) = (/&
697 & 9.4074E-05_JPRB,1.2351E-04_JPRB,1.3361E-04_JPRB,1.3908E-04_JPRB,1.4094E-04_JPRB,1.3921E-04_JPRB,&
698
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3441E-04_JPRB,1.2595E-04_JPRB,1.0466E-04_JPRB/)
699 KAO( :, 3, 2, 4) = (/&
700 & 9.4344E-05_JPRB,1.2509E-04_JPRB,1.3579E-04_JPRB,1.4166E-04_JPRB,1.4376E-04_JPRB,1.4219E-04_JPRB,&
701
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3731E-04_JPRB,1.2889E-04_JPRB,1.0736E-04_JPRB/)
702 KAO( :, 4, 2, 4) = (/&
703 & 9.4551E-05_JPRB,1.2662E-04_JPRB,1.3810E-04_JPRB,1.4452E-04_JPRB,1.4685E-04_JPRB,1.4532E-04_JPRB,&
704
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4026E-04_JPRB,1.3156E-04_JPRB,1.1005E-04_JPRB/)
705 KAO( :, 5, 2, 4) = (/&
706 & 9.4911E-05_JPRB,1.2828E-04_JPRB,1.4068E-04_JPRB,1.4753E-04_JPRB,1.5017E-04_JPRB,1.4865E-04_JPRB,&
707
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4353E-04_JPRB,1.3462E-04_JPRB,1.1332E-04_JPRB/)
708 KAO( :, 1, 3, 4) = (/&
709 & 8.4477E-05_JPRB,1.0977E-04_JPRB,1.1875E-04_JPRB,1.2346E-04_JPRB,1.2481E-04_JPRB,1.2312E-04_JPRB,&
710
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1833E-04_JPRB,1.0957E-04_JPRB,8.9535E-05_JPRB/)
711 KAO( :, 2, 3, 4) = (/&
712 & 8.4379E-05_JPRB,1.1105E-04_JPRB,1.2059E-04_JPRB,1.2560E-04_JPRB,1.2700E-04_JPRB,1.2527E-04_JPRB,&
713
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2063E-04_JPRB,1.1208E-04_JPRB,9.1925E-05_JPRB/)
714 KAO( :, 3, 3, 4) = (/&
715 & 8.4459E-05_JPRB,1.1263E-04_JPRB,1.2255E-04_JPRB,1.2789E-04_JPRB,1.2949E-04_JPRB,1.2788E-04_JPRB,&
716
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2327E-04_JPRB,1.1489E-04_JPRB,9.4307E-05_JPRB/)
717 KAO( :, 4, 3, 4) = (/&
718 & 8.4957E-05_JPRB,1.1436E-04_JPRB,1.2477E-04_JPRB,1.3051E-04_JPRB,1.3225E-04_JPRB,1.3075E-04_JPRB,&
719
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2605E-04_JPRB,1.1763E-04_JPRB,9.6664E-05_JPRB/)
720 KAO( :, 5, 3, 4) = (/&
721 & 8.5267E-05_JPRB,1.1603E-04_JPRB,1.2711E-04_JPRB,1.3323E-04_JPRB,1.3522E-04_JPRB,1.3376E-04_JPRB,&
722
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2892E-04_JPRB,1.2027E-04_JPRB,9.9423E-05_JPRB/)
723 KAO( :, 1, 4, 4) = (/&
724 & 7.5106E-05_JPRB,9.8023E-05_JPRB,1.0634E-04_JPRB,1.1074E-04_JPRB,1.1207E-04_JPRB,1.1047E-04_JPRB,&
725
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0566E-04_JPRB,9.7179E-05_JPRB,8.0970E-05_JPRB/)
726 KAO( :, 2, 4, 4) = (/&
727 & 7.5068E-05_JPRB,9.9316E-05_JPRB,1.0818E-04_JPRB,1.1273E-04_JPRB,1.1400E-04_JPRB,1.1240E-04_JPRB,&
728
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0763E-04_JPRB,9.9160E-05_JPRB,8.2847E-05_JPRB/)
729 KAO( :, 3, 4, 4) = (/&
730 & 7.5176E-05_JPRB,1.0088E-04_JPRB,1.1012E-04_JPRB,1.1492E-04_JPRB,1.1630E-04_JPRB,1.1469E-04_JPRB,&
731
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0990E-04_JPRB,1.0156E-04_JPRB,8.4919E-05_JPRB/)
732 KAO( :, 4, 4, 4) = (/&
733 & 7.5441E-05_JPRB,1.0260E-04_JPRB,1.1218E-04_JPRB,1.1722E-04_JPRB,1.1877E-04_JPRB,1.1722E-04_JPRB,&
734
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1247E-04_JPRB,1.0418E-04_JPRB,8.7047E-05_JPRB/)
735 KAO( :, 5, 4, 4) = (/&
736 & 7.6234E-05_JPRB,1.0451E-04_JPRB,1.1445E-04_JPRB,1.1978E-04_JPRB,1.2144E-04_JPRB,1.1995E-04_JPRB,&
737
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1523E-04_JPRB,1.0678E-04_JPRB,8.9379E-05_JPRB/)
738 KAO( :, 1, 5, 4) = (/&
739 & 6.6160E-05_JPRB,8.7240E-05_JPRB,9.4827E-05_JPRB,9.8971E-05_JPRB,1.0023E-04_JPRB,9.8598E-05_JPRB,&
740
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.3977E-05_JPRB,8.6015E-05_JPRB,7.7683E-05_JPRB/)
741 KAO( :, 2, 5, 4) = (/&
742 & 6.6183E-05_JPRB,8.8517E-05_JPRB,9.6624E-05_JPRB,1.0080E-04_JPRB,1.0196E-04_JPRB,1.0036E-04_JPRB,&
743
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.5737E-05_JPRB,8.7609E-05_JPRB,7.8892E-05_JPRB/)
744 KAO( :, 3, 5, 4) = (/&
745 & 6.6375E-05_JPRB,9.0052E-05_JPRB,9.8476E-05_JPRB,1.0284E-04_JPRB,1.0408E-04_JPRB,1.0241E-04_JPRB,&
746
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.7689E-05_JPRB,8.9585E-05_JPRB,8.0494E-05_JPRB/)
747 KAO( :, 4, 5, 4) = (/&
748 & 6.6706E-05_JPRB,9.1731E-05_JPRB,1.0049E-04_JPRB,1.0501E-04_JPRB,1.0639E-04_JPRB,1.0469E-04_JPRB,&
749
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.9852E-05_JPRB,9.1849E-05_JPRB,8.2317E-05_JPRB/)
750 KAO( :, 5, 5, 4) = (/&
751 & 6.7530E-05_JPRB,9.3541E-05_JPRB,1.0261E-04_JPRB,1.0728E-04_JPRB,1.0881E-04_JPRB,1.0721E-04_JPRB,&
752
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0236E-04_JPRB,9.4247E-05_JPRB,8.4311E-05_JPRB/)
753 KAO( :, 1, 6, 4) = (/&
754 & 5.7820E-05_JPRB,7.7124E-05_JPRB,8.4195E-05_JPRB,8.7927E-05_JPRB,8.8972E-05_JPRB,8.7430E-05_JPRB,&
755
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.3132E-05_JPRB,7.5650E-05_JPRB,7.8327E-05_JPRB/)
756 KAO( :, 2, 6, 4) = (/&
757 & 5.7858E-05_JPRB,7.8413E-05_JPRB,8.5775E-05_JPRB,8.9605E-05_JPRB,9.0590E-05_JPRB,8.9122E-05_JPRB,&
758
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.4773E-05_JPRB,7.7051E-05_JPRB,7.8482E-05_JPRB/)
759 KAO( :, 3, 6, 4) = (/&
760 & 5.8124E-05_JPRB,7.9824E-05_JPRB,8.7576E-05_JPRB,9.1549E-05_JPRB,9.2483E-05_JPRB,9.0882E-05_JPRB,&
761
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.6480E-05_JPRB,7.8637E-05_JPRB,7.9105E-05_JPRB/)
762 KAO( :, 4, 6, 4) = (/&
763 & 5.8563E-05_JPRB,8.1362E-05_JPRB,8.9405E-05_JPRB,9.3593E-05_JPRB,9.4634E-05_JPRB,9.2868E-05_JPRB,&
764
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.8337E-05_JPRB,8.0467E-05_JPRB,8.0117E-05_JPRB/)
765 KAO( :, 5, 6, 4) = (/&
766 & 5.9163E-05_JPRB,8.2947E-05_JPRB,9.1328E-05_JPRB,9.5614E-05_JPRB,9.6868E-05_JPRB,9.5118E-05_JPRB,&
767
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.0461E-05_JPRB,8.2517E-05_JPRB,8.1395E-05_JPRB/)
768 KAO( :, 1, 7, 4) = (/&
769 & 5.0089E-05_JPRB,6.7496E-05_JPRB,7.4227E-05_JPRB,7.7520E-05_JPRB,7.8410E-05_JPRB,7.6863E-05_JPRB,&
770
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.2879E-05_JPRB,6.5963E-05_JPRB,8.6270E-05_JPRB/)
771 KAO( :, 2, 7, 4) = (/&
772 & 5.0200E-05_JPRB,6.8721E-05_JPRB,7.5605E-05_JPRB,7.9011E-05_JPRB,7.9876E-05_JPRB,7.8434E-05_JPRB,&
773
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.4469E-05_JPRB,6.7323E-05_JPRB,8.5543E-05_JPRB/)
774 KAO( :, 3, 7, 4) = (/&
775 & 5.0465E-05_JPRB,7.0073E-05_JPRB,7.7198E-05_JPRB,8.0725E-05_JPRB,8.1573E-05_JPRB,8.0081E-05_JPRB,&
776
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.6049E-05_JPRB,6.8699E-05_JPRB,8.4940E-05_JPRB/)
777 KAO( :, 4, 7, 4) = (/&
778 & 5.0935E-05_JPRB,7.1437E-05_JPRB,7.8942E-05_JPRB,8.2653E-05_JPRB,8.3546E-05_JPRB,8.1849E-05_JPRB,&
779
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.7644E-05_JPRB,7.0190E-05_JPRB,8.4597E-05_JPRB/)
780 KAO( :, 5, 7, 4) = (/&
781 & 5.1558E-05_JPRB,7.2909E-05_JPRB,8.0657E-05_JPRB,8.4558E-05_JPRB,8.5533E-05_JPRB,8.3860E-05_JPRB,&
782
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.9445E-05_JPRB,7.1873E-05_JPRB,8.4633E-05_JPRB/)
783 KAO( :, 1, 8, 4) = (/&
784 & 4.3241E-05_JPRB,5.8715E-05_JPRB,6.4907E-05_JPRB,6.7818E-05_JPRB,6.8520E-05_JPRB,6.7059E-05_JPRB,&
785
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.3436E-05_JPRB,5.7025E-05_JPRB,1.0556E-04_JPRB/)
786 KAO( :, 2, 8, 4) = (/&
787 & 4.3396E-05_JPRB,5.9829E-05_JPRB,6.6154E-05_JPRB,6.9172E-05_JPRB,6.9903E-05_JPRB,6.8506E-05_JPRB,&
788
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.4888E-05_JPRB,5.8346E-05_JPRB,1.0621E-04_JPRB/)
789 KAO( :, 3, 8, 4) = (/&
790 & 4.3671E-05_JPRB,6.1116E-05_JPRB,6.7537E-05_JPRB,7.0639E-05_JPRB,7.1418E-05_JPRB,7.0005E-05_JPRB,&
791
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.6322E-05_JPRB,5.9628E-05_JPRB,1.0623E-04_JPRB/)
792 KAO( :, 4, 8, 4) = (/&
793 & 4.4098E-05_JPRB,6.2393E-05_JPRB,6.9085E-05_JPRB,7.2351E-05_JPRB,7.3148E-05_JPRB,7.1679E-05_JPRB,&
794
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.7759E-05_JPRB,6.0926E-05_JPRB,1.0598E-04_JPRB/)
795 KAO( :, 5, 8, 4) = (/&
796 & 4.4692E-05_JPRB,6.3732E-05_JPRB,7.0698E-05_JPRB,7.4137E-05_JPRB,7.4984E-05_JPRB,7.3462E-05_JPRB,&
797
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.9302E-05_JPRB,6.2346E-05_JPRB,1.0567E-04_JPRB/)
798 KAO( :, 1, 9, 4) = (/&
799 & 3.7132E-05_JPRB,5.0817E-05_JPRB,5.6256E-05_JPRB,5.8754E-05_JPRB,5.9255E-05_JPRB,5.8002E-05_JPRB,&
800
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.4741E-05_JPRB,4.8907E-05_JPRB,1.5932E-04_JPRB/)
801 KAO( :, 2, 9, 4) = (/&
802 & 3.7275E-05_JPRB,5.1787E-05_JPRB,5.7392E-05_JPRB,6.0022E-05_JPRB,6.0595E-05_JPRB,5.9356E-05_JPRB,&
803
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.6080E-05_JPRB,5.0176E-05_JPRB,1.6074E-04_JPRB/)
804 KAO( :, 3, 9, 4) = (/&
805 & 3.7562E-05_JPRB,5.2932E-05_JPRB,5.8629E-05_JPRB,6.1314E-05_JPRB,6.1975E-05_JPRB,6.0718E-05_JPRB,&
806
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.7380E-05_JPRB,5.1383E-05_JPRB,1.6208E-04_JPRB/)
807 KAO( :, 4, 9, 4) = (/&
808 & 3.7959E-05_JPRB,5.4161E-05_JPRB,5.9989E-05_JPRB,6.2778E-05_JPRB,6.3464E-05_JPRB,6.2208E-05_JPRB,&
809
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.8730E-05_JPRB,5.2572E-05_JPRB,1.6367E-04_JPRB/)
810 KAO( :, 5, 9, 4) = (/&
811 & 3.8474E-05_JPRB,5.5413E-05_JPRB,6.1478E-05_JPRB,6.4374E-05_JPRB,6.5107E-05_JPRB,6.3821E-05_JPRB,&
812
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.0122E-05_JPRB,5.3780E-05_JPRB,1.6576E-04_JPRB/)
813 KAO( :, 1,10, 4) = (/&
814 & 3.1661E-05_JPRB,4.3721E-05_JPRB,4.8375E-05_JPRB,5.0533E-05_JPRB,5.0884E-05_JPRB,4.9757E-05_JPRB,&
815
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.6933E-05_JPRB,4.1760E-05_JPRB,3.3288E-04_JPRB/)
816 KAO( :, 2,10, 4) = (/&
817 & 3.1799E-05_JPRB,4.4567E-05_JPRB,4.9444E-05_JPRB,5.1711E-05_JPRB,5.2132E-05_JPRB,5.1037E-05_JPRB,&
818
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.8202E-05_JPRB,4.2932E-05_JPRB,3.3259E-04_JPRB/)
819 KAO( :, 3,10, 4) = (/&
820 & 3.2076E-05_JPRB,4.5598E-05_JPRB,5.0572E-05_JPRB,5.2901E-05_JPRB,5.3401E-05_JPRB,5.2274E-05_JPRB,&
821
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.9410E-05_JPRB,4.4046E-05_JPRB,3.3116E-04_JPRB/)
822 KAO( :, 4,10, 4) = (/&
823 & 3.2432E-05_JPRB,4.6745E-05_JPRB,5.1822E-05_JPRB,5.4161E-05_JPRB,5.4721E-05_JPRB,5.3605E-05_JPRB,&
824
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.0657E-05_JPRB,4.5130E-05_JPRB,3.2908E-04_JPRB/)
825 KAO( :, 5,10, 4) = (/&
826 & 3.2849E-05_JPRB,4.7929E-05_JPRB,5.3191E-05_JPRB,5.5555E-05_JPRB,5.6151E-05_JPRB,5.5034E-05_JPRB,&
827
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.1913E-05_JPRB,4.6196E-05_JPRB,3.2646E-04_JPRB/)
828 KAO( :, 1,11, 4) = (/&
829 & 2.6856E-05_JPRB,3.7683E-05_JPRB,4.1693E-05_JPRB,4.3606E-05_JPRB,4.3883E-05_JPRB,4.2891E-05_JPRB,&
830
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.0459E-05_JPRB,3.5912E-05_JPRB,4.0077E-04_JPRB/)
831 KAO( :, 2,11, 4) = (/&
832 & 2.7039E-05_JPRB,3.8497E-05_JPRB,4.2726E-05_JPRB,4.4727E-05_JPRB,4.5037E-05_JPRB,4.4055E-05_JPRB,&
833
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.1621E-05_JPRB,3.6978E-05_JPRB,3.9949E-04_JPRB/)
834 KAO( :, 3,11, 4) = (/&
835 & 2.7307E-05_JPRB,3.9484E-05_JPRB,4.3818E-05_JPRB,4.5808E-05_JPRB,4.6194E-05_JPRB,4.5211E-05_JPRB,&
836
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.2730E-05_JPRB,3.7986E-05_JPRB,3.9696E-04_JPRB/)
837 KAO( :, 4,11, 4) = (/&
838 & 2.7612E-05_JPRB,4.0551E-05_JPRB,4.5021E-05_JPRB,4.6980E-05_JPRB,4.7421E-05_JPRB,4.6420E-05_JPRB,&
839
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.3860E-05_JPRB,3.8943E-05_JPRB,3.9400E-04_JPRB/)
840 KAO( :, 5,11, 4) = (/&
841 & 2.7944E-05_JPRB,4.1639E-05_JPRB,4.6278E-05_JPRB,4.8247E-05_JPRB,4.8726E-05_JPRB,4.7717E-05_JPRB,&
842
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.5010E-05_JPRB,3.9912E-05_JPRB,3.9021E-04_JPRB/)
843 KAO( :, 1,12, 4) = (/&
844 & 2.2674E-05_JPRB,3.2256E-05_JPRB,3.5706E-05_JPRB,3.7375E-05_JPRB,3.7620E-05_JPRB,3.6748E-05_JPRB,&
845
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.4672E-05_JPRB,3.0753E-05_JPRB,3.9801E-04_JPRB/)
846 KAO( :, 2,12, 4) = (/&
847 & 2.2856E-05_JPRB,3.3035E-05_JPRB,3.6681E-05_JPRB,3.8389E-05_JPRB,3.8658E-05_JPRB,3.7799E-05_JPRB,&
848
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.5709E-05_JPRB,3.1711E-05_JPRB,3.9549E-04_JPRB/)
849 KAO( :, 3,12, 4) = (/&
850 & 2.3070E-05_JPRB,3.3949E-05_JPRB,3.7724E-05_JPRB,3.9400E-05_JPRB,3.9718E-05_JPRB,3.8860E-05_JPRB,&
851
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.6712E-05_JPRB,3.2588E-05_JPRB,3.9241E-04_JPRB/)
852 KAO( :, 4,12, 4) = (/&
853 & 2.3301E-05_JPRB,3.4905E-05_JPRB,3.8836E-05_JPRB,4.0484E-05_JPRB,4.0838E-05_JPRB,3.9966E-05_JPRB,&
854
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.7706E-05_JPRB,3.3447E-05_JPRB,3.8870E-04_JPRB/)
855 KAO( :, 5,12, 4) = (/&
856 & 2.3543E-05_JPRB,3.5840E-05_JPRB,3.9948E-05_JPRB,4.1657E-05_JPRB,4.2028E-05_JPRB,4.1130E-05_JPRB,&
857
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.8770E-05_JPRB,3.4320E-05_JPRB,3.8474E-04_JPRB/)
858 KAO( :, 1,13, 4) = (/&
859 & 1.9048E-05_JPRB,2.7433E-05_JPRB,3.0355E-05_JPRB,3.1781E-05_JPRB,3.2020E-05_JPRB,3.1297E-05_JPRB,&
860
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.9545E-05_JPRB,2.6213E-05_JPRB,3.3572E-04_JPRB/)
861 KAO( :, 2,13, 4) = (/&
862 & 1.9186E-05_JPRB,2.8151E-05_JPRB,3.1249E-05_JPRB,3.2687E-05_JPRB,3.2953E-05_JPRB,3.2236E-05_JPRB,&
863
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.0464E-05_JPRB,2.7042E-05_JPRB,3.3299E-04_JPRB/)
864 KAO( :, 3,13, 4) = (/&
865 & 1.9336E-05_JPRB,2.8946E-05_JPRB,3.2213E-05_JPRB,3.3632E-05_JPRB,3.3925E-05_JPRB,3.3202E-05_JPRB,&
866
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.1346E-05_JPRB,2.7832E-05_JPRB,3.2995E-04_JPRB/)
867 KAO( :, 4,13, 4) = (/&
868 & 1.9500E-05_JPRB,2.9752E-05_JPRB,3.3189E-05_JPRB,3.4641E-05_JPRB,3.4936E-05_JPRB,3.4186E-05_JPRB,&
869
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.2242E-05_JPRB,2.8586E-05_JPRB,3.2636E-04_JPRB/)
870 KAO( :, 5,13, 4) = (/&
871 & 1.9647E-05_JPRB,3.0517E-05_JPRB,3.4157E-05_JPRB,3.5690E-05_JPRB,3.6009E-05_JPRB,3.5240E-05_JPRB,&
872
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.3224E-05_JPRB,2.9383E-05_JPRB,3.2302E-04_JPRB/)
873 KAO( :, 1, 1, 5) = (/&
874 & 1.5710E-04_JPRB,2.0320E-04_JPRB,2.2809E-04_JPRB,2.4127E-04_JPRB,2.4664E-04_JPRB,2.4637E-04_JPRB,&
875
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.3954E-04_JPRB,2.2558E-04_JPRB,1.9226E-04_JPRB/)
876 KAO( :, 2, 1, 5) = (/&
877 & 1.5763E-04_JPRB,2.0602E-04_JPRB,2.3252E-04_JPRB,2.4654E-04_JPRB,2.5266E-04_JPRB,2.5275E-04_JPRB,&
878
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4636E-04_JPRB,2.3254E-04_JPRB,1.9836E-04_JPRB/)
879 KAO( :, 3, 1, 5) = (/&
880 & 1.5885E-04_JPRB,2.0936E-04_JPRB,2.3726E-04_JPRB,2.5211E-04_JPRB,2.5917E-04_JPRB,2.5987E-04_JPRB,&
881
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.5423E-04_JPRB,2.4110E-04_JPRB,2.0597E-04_JPRB/)
882 KAO( :, 4, 1, 5) = (/&
883 & 1.6010E-04_JPRB,2.1292E-04_JPRB,2.4195E-04_JPRB,2.5773E-04_JPRB,2.6599E-04_JPRB,2.6801E-04_JPRB,&
884
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.6343E-04_JPRB,2.5079E-04_JPRB,2.1448E-04_JPRB/)
885 KAO( :, 5, 1, 5) = (/&
886 & 1.6183E-04_JPRB,2.1689E-04_JPRB,2.4710E-04_JPRB,2.6390E-04_JPRB,2.7349E-04_JPRB,2.7678E-04_JPRB,&
887
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.7286E-04_JPRB,2.6055E-04_JPRB,2.2334E-04_JPRB/)
888 KAO( :, 1, 2, 5) = (/&
889 & 1.4264E-04_JPRB,1.8747E-04_JPRB,2.0916E-04_JPRB,2.2048E-04_JPRB,2.2542E-04_JPRB,2.2467E-04_JPRB,&
890
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1833E-04_JPRB,2.0428E-04_JPRB,1.7002E-04_JPRB/)
891 KAO( :, 2, 2, 5) = (/&
892 & 1.4357E-04_JPRB,1.9029E-04_JPRB,2.1342E-04_JPRB,2.2542E-04_JPRB,2.3082E-04_JPRB,2.3044E-04_JPRB,&
893
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2413E-04_JPRB,2.1022E-04_JPRB,1.7510E-04_JPRB/)
894 KAO( :, 3, 2, 5) = (/&
895 & 1.4512E-04_JPRB,1.9354E-04_JPRB,2.1804E-04_JPRB,2.3071E-04_JPRB,2.3662E-04_JPRB,2.3677E-04_JPRB,&
896
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.3090E-04_JPRB,2.1760E-04_JPRB,1.8164E-04_JPRB/)
897 KAO( :, 4, 2, 5) = (/&
898 & 1.4675E-04_JPRB,1.9716E-04_JPRB,2.2262E-04_JPRB,2.3622E-04_JPRB,2.4303E-04_JPRB,2.4400E-04_JPRB,&
899
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.3876E-04_JPRB,2.2602E-04_JPRB,1.8905E-04_JPRB/)
900 KAO( :, 5, 2, 5) = (/&
901 & 1.4825E-04_JPRB,2.0084E-04_JPRB,2.2744E-04_JPRB,2.4214E-04_JPRB,2.4980E-04_JPRB,2.5170E-04_JPRB,&
902
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4697E-04_JPRB,2.3468E-04_JPRB,1.9668E-04_JPRB/)
903 KAO( :, 1, 3, 5) = (/&
904 & 1.2913E-04_JPRB,1.7105E-04_JPRB,1.8962E-04_JPRB,1.9927E-04_JPRB,2.0344E-04_JPRB,2.0263E-04_JPRB,&
905
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9648E-04_JPRB,1.8374E-04_JPRB,1.5154E-04_JPRB/)
906 KAO( :, 2, 3, 5) = (/&
907 & 1.3034E-04_JPRB,1.7385E-04_JPRB,1.9352E-04_JPRB,2.0379E-04_JPRB,2.0816E-04_JPRB,2.0767E-04_JPRB,&
908
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0141E-04_JPRB,1.8880E-04_JPRB,1.5543E-04_JPRB/)
909 KAO( :, 3, 3, 5) = (/&
910 & 1.3189E-04_JPRB,1.7683E-04_JPRB,1.9785E-04_JPRB,2.0858E-04_JPRB,2.1306E-04_JPRB,2.1289E-04_JPRB,&
911
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0705E-04_JPRB,1.9450E-04_JPRB,1.6042E-04_JPRB/)
912 KAO( :, 4, 3, 5) = (/&
913 & 1.3375E-04_JPRB,1.8038E-04_JPRB,2.0233E-04_JPRB,2.1375E-04_JPRB,2.1890E-04_JPRB,2.1897E-04_JPRB,&
914
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1362E-04_JPRB,2.0111E-04_JPRB,1.6638E-04_JPRB/)
915 KAO( :, 5, 3, 5) = (/&
916 & 1.3531E-04_JPRB,1.8393E-04_JPRB,2.0677E-04_JPRB,2.1903E-04_JPRB,2.2516E-04_JPRB,2.2557E-04_JPRB,&
917
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2073E-04_JPRB,2.0849E-04_JPRB,1.7278E-04_JPRB/)
918 KAO( :, 1, 4, 5) = (/&
919 & 1.1675E-04_JPRB,1.5471E-04_JPRB,1.7086E-04_JPRB,1.7907E-04_JPRB,1.8234E-04_JPRB,1.8104E-04_JPRB,&
920
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7606E-04_JPRB,1.6488E-04_JPRB,1.3686E-04_JPRB/)
921 KAO( :, 2, 4, 5) = (/&
922 & 1.1811E-04_JPRB,1.5738E-04_JPRB,1.7430E-04_JPRB,1.8299E-04_JPRB,1.8662E-04_JPRB,1.8551E-04_JPRB,&
923
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8028E-04_JPRB,1.6914E-04_JPRB,1.4021E-04_JPRB/)
924 KAO( :, 3, 4, 5) = (/&
925 & 1.1971E-04_JPRB,1.6033E-04_JPRB,1.7826E-04_JPRB,1.8706E-04_JPRB,1.9073E-04_JPRB,1.9003E-04_JPRB,&
926
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8491E-04_JPRB,1.7381E-04_JPRB,1.4440E-04_JPRB/)
927 KAO( :, 4, 4, 5) = (/&
928 & 1.2145E-04_JPRB,1.6360E-04_JPRB,1.8232E-04_JPRB,1.9160E-04_JPRB,1.9546E-04_JPRB,1.9520E-04_JPRB,&
929
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9032E-04_JPRB,1.7913E-04_JPRB,1.4919E-04_JPRB/)
930 KAO( :, 5, 4, 5) = (/&
931 & 1.2345E-04_JPRB,1.6734E-04_JPRB,1.8679E-04_JPRB,1.9667E-04_JPRB,2.0102E-04_JPRB,2.0119E-04_JPRB,&
932
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9631E-04_JPRB,1.8511E-04_JPRB,1.5453E-04_JPRB/)
933 KAO( :, 1, 5, 5) = (/&
934 & 1.0534E-04_JPRB,1.3892E-04_JPRB,1.5318E-04_JPRB,1.6013E-04_JPRB,1.6249E-04_JPRB,1.6140E-04_JPRB,&
935
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5677E-04_JPRB,1.4673E-04_JPRB,1.2734E-04_JPRB/)
936 KAO( :, 2, 5, 5) = (/&
937 & 1.0682E-04_JPRB,1.4149E-04_JPRB,1.5615E-04_JPRB,1.6351E-04_JPRB,1.6643E-04_JPRB,1.6536E-04_JPRB,&
938
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6060E-04_JPRB,1.5077E-04_JPRB,1.3032E-04_JPRB/)
939 KAO( :, 3, 5, 5) = (/&
940 & 1.0832E-04_JPRB,1.4437E-04_JPRB,1.5968E-04_JPRB,1.6719E-04_JPRB,1.7007E-04_JPRB,1.6925E-04_JPRB,&
941
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
 10 & 1.6475E-04_JPRB,1.5487E-04_JPRB,1.3383E-04_JPRB/)
942
943
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART3',1,ZHOOK_HANDLE)
944 1 END SUBROUTINE PART3
945
946
947 1 SUBROUTINE PART4
948
949 REAL(KIND=JPRB) :: ZHOOK_HANDLE
950
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART4',0,ZHOOK_HANDLE)
951
952
953 KAO( :, 4, 5, 5) = (/&
954 & 1.0998E-04_JPRB,1.4759E-04_JPRB,1.6348E-04_JPRB,1.7115E-04_JPRB,1.7411E-04_JPRB,1.7355E-04_JPRB,&
955
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6947E-04_JPRB,1.5945E-04_JPRB,1.3787E-04_JPRB/)
956 KAO( :, 5, 5, 5) = (/&
957 & 1.1196E-04_JPRB,1.5129E-04_JPRB,1.6770E-04_JPRB,1.7586E-04_JPRB,1.7902E-04_JPRB,1.7859E-04_JPRB,&
958
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7456E-04_JPRB,1.6452E-04_JPRB,1.4233E-04_JPRB/)
959 KAO( :, 1, 6, 5) = (/&
960 & 9.4514E-05_JPRB,1.2412E-04_JPRB,1.3657E-04_JPRB,1.4247E-04_JPRB,1.4441E-04_JPRB,1.4315E-04_JPRB,&
961
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3838E-04_JPRB,1.2929E-04_JPRB,1.2327E-04_JPRB/)
962 KAO( :, 2, 6, 5) = (/&
963 & 9.5941E-05_JPRB,1.2645E-04_JPRB,1.3931E-04_JPRB,1.4558E-04_JPRB,1.4789E-04_JPRB,1.4670E-04_JPRB,&
964
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4200E-04_JPRB,1.3303E-04_JPRB,1.2601E-04_JPRB/)
965 KAO( :, 3, 6, 5) = (/&
966 & 9.7365E-05_JPRB,1.2920E-04_JPRB,1.4235E-04_JPRB,1.4876E-04_JPRB,1.5129E-04_JPRB,1.5035E-04_JPRB,&
967
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4574E-04_JPRB,1.3687E-04_JPRB,1.2924E-04_JPRB/)
968 KAO( :, 4, 6, 5) = (/&
969 & 9.8894E-05_JPRB,1.3238E-04_JPRB,1.4586E-04_JPRB,1.5224E-04_JPRB,1.5484E-04_JPRB,1.5423E-04_JPRB,&
970
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4989E-04_JPRB,1.4089E-04_JPRB,1.3292E-04_JPRB/)
971 KAO( :, 5, 6, 5) = (/&
972 & 1.0059E-04_JPRB,1.3577E-04_JPRB,1.4967E-04_JPRB,1.5644E-04_JPRB,1.5902E-04_JPRB,1.5844E-04_JPRB,&
973
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5428E-04_JPRB,1.4522E-04_JPRB,1.3684E-04_JPRB/)
974 KAO( :, 1, 7, 5) = (/&
975 & 8.3817E-05_JPRB,1.1024E-04_JPRB,1.2069E-04_JPRB,1.2606E-04_JPRB,1.2762E-04_JPRB,1.2601E-04_JPRB,&
976
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2142E-04_JPRB,1.1275E-04_JPRB,1.2580E-04_JPRB/)
977 KAO( :, 2, 7, 5) = (/&
978 & 8.5049E-05_JPRB,1.1240E-04_JPRB,1.2345E-04_JPRB,1.2908E-04_JPRB,1.3088E-04_JPRB,1.2946E-04_JPRB,&
979
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2489E-04_JPRB,1.1643E-04_JPRB,1.2769E-04_JPRB/)
980 KAO( :, 3, 7, 5) = (/&
981 & 8.6443E-05_JPRB,1.1489E-04_JPRB,1.2631E-04_JPRB,1.3210E-04_JPRB,1.3408E-04_JPRB,1.3284E-04_JPRB,&
982
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2822E-04_JPRB,1.1996E-04_JPRB,1.3009E-04_JPRB/)
983 KAO( :, 4, 7, 5) = (/&
984 & 8.7868E-05_JPRB,1.1787E-04_JPRB,1.2952E-04_JPRB,1.3521E-04_JPRB,1.3734E-04_JPRB,1.3637E-04_JPRB,&
985
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3189E-04_JPRB,1.2366E-04_JPRB,1.3307E-04_JPRB/)
986 KAO( :, 5, 7, 5) = (/&
987 & 8.9520E-05_JPRB,1.2113E-04_JPRB,1.3311E-04_JPRB,1.3890E-04_JPRB,1.4111E-04_JPRB,1.4019E-04_JPRB,&
988
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3574E-04_JPRB,1.2746E-04_JPRB,1.3629E-04_JPRB/)
989 KAO( :, 1, 8, 5) = (/&
990 & 7.3739E-05_JPRB,9.7315E-05_JPRB,1.0630E-04_JPRB,1.1091E-04_JPRB,1.1210E-04_JPRB,1.1034E-04_JPRB,&
991
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0576E-04_JPRB,9.7435E-05_JPRB,1.5219E-04_JPRB/)
992 KAO( :, 2, 8, 5) = (/&
993 & 7.4739E-05_JPRB,9.9339E-05_JPRB,1.0888E-04_JPRB,1.1385E-04_JPRB,1.1515E-04_JPRB,1.1361E-04_JPRB,&
994
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0914E-04_JPRB,1.0091E-04_JPRB,1.5078E-04_JPRB/)
995 KAO( :, 3, 8, 5) = (/&
996 & 7.5979E-05_JPRB,1.0158E-04_JPRB,1.1168E-04_JPRB,1.1676E-04_JPRB,1.1825E-04_JPRB,1.1684E-04_JPRB,&
997
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1240E-04_JPRB,1.0417E-04_JPRB,1.5044E-04_JPRB/)
998 KAO( :, 4, 8, 5) = (/&
999 & 7.7389E-05_JPRB,1.0425E-04_JPRB,1.1460E-04_JPRB,1.1977E-04_JPRB,1.2131E-04_JPRB,1.2000E-04_JPRB,&
1000
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1564E-04_JPRB,1.0754E-04_JPRB,1.5083E-04_JPRB/)
1001 KAO( :, 5, 8, 5) = (/&
1002 & 7.8988E-05_JPRB,1.0719E-04_JPRB,1.1787E-04_JPRB,1.2308E-04_JPRB,1.2465E-04_JPRB,1.2345E-04_JPRB,&
1003
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1918E-04_JPRB,1.1099E-04_JPRB,1.5186E-04_JPRB/)
1004 KAO( :, 1, 9, 5) = (/&
1005 & 6.4327E-05_JPRB,8.5194E-05_JPRB,9.3124E-05_JPRB,9.6906E-05_JPRB,9.7902E-05_JPRB,9.6087E-05_JPRB,&
1006
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.1486E-05_JPRB,8.3530E-05_JPRB,3.0559E-04_JPRB/)
1007 KAO( :, 2, 9, 5) = (/&
1008 & 6.5169E-05_JPRB,8.7114E-05_JPRB,9.5498E-05_JPRB,9.9699E-05_JPRB,1.0078E-04_JPRB,9.9075E-05_JPRB,&
1009
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.4585E-05_JPRB,8.6649E-05_JPRB,3.0376E-04_JPRB/)
1010 KAO( :, 3, 9, 5) = (/&
1011 & 6.6228E-05_JPRB,8.9174E-05_JPRB,9.8080E-05_JPRB,1.0257E-04_JPRB,1.0373E-04_JPRB,1.0212E-04_JPRB,&
1012
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.7761E-05_JPRB,8.9715E-05_JPRB,3.0205E-04_JPRB/)
1013 KAO( :, 4, 9, 5) = (/&
1014 & 6.7560E-05_JPRB,9.1493E-05_JPRB,1.0085E-04_JPRB,1.0546E-04_JPRB,1.0670E-04_JPRB,1.0511E-04_JPRB,&
1015
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0078E-04_JPRB,9.2773E-05_JPRB,2.9925E-04_JPRB/)
1016 KAO( :, 5, 9, 5) = (/&
1017 & 6.9090E-05_JPRB,9.4108E-05_JPRB,1.0377E-04_JPRB,1.0852E-04_JPRB,1.0981E-04_JPRB,1.0822E-04_JPRB,&
1018
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0396E-04_JPRB,9.5948E-05_JPRB,2.9560E-04_JPRB/)
1019 KAO( :, 1,10, 5) = (/&
1020 & 5.5732E-05_JPRB,7.4195E-05_JPRB,8.1092E-05_JPRB,8.4263E-05_JPRB,8.5004E-05_JPRB,8.3260E-05_JPRB,&
1021
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.8896E-05_JPRB,7.1326E-05_JPRB,7.3141E-04_JPRB/)
1022 KAO( :, 2,10, 5) = (/&
1023 & 5.6464E-05_JPRB,7.5996E-05_JPRB,8.3306E-05_JPRB,8.6877E-05_JPRB,8.7776E-05_JPRB,8.6058E-05_JPRB,&
1024
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.1636E-05_JPRB,7.4082E-05_JPRB,7.1679E-04_JPRB/)
1025 KAO( :, 3,10, 5) = (/&
1026 & 5.7403E-05_JPRB,7.7891E-05_JPRB,8.5666E-05_JPRB,8.9585E-05_JPRB,9.0592E-05_JPRB,8.8875E-05_JPRB,&
1027
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.4523E-05_JPRB,7.6897E-05_JPRB,7.0421E-04_JPRB/)
1028 KAO( :, 4,10, 5) = (/&
1029 & 5.8620E-05_JPRB,7.9933E-05_JPRB,8.8213E-05_JPRB,9.2386E-05_JPRB,9.3433E-05_JPRB,9.1667E-05_JPRB,&
1030
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.7388E-05_JPRB,7.9742E-05_JPRB,6.9385E-04_JPRB/)
1031 KAO( :, 5,10, 5) = (/&
1032 & 6.0067E-05_JPRB,8.2256E-05_JPRB,9.0893E-05_JPRB,9.5273E-05_JPRB,9.6366E-05_JPRB,9.4596E-05_JPRB,&
1033
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.0298E-05_JPRB,8.2632E-05_JPRB,6.8465E-04_JPRB/)
1034 KAO( :, 1,11, 5) = (/&
1035 & 4.8186E-05_JPRB,6.4983E-05_JPRB,7.1108E-05_JPRB,7.3858E-05_JPRB,7.4401E-05_JPRB,7.2817E-05_JPRB,&
1036
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.8716E-05_JPRB,6.1721E-05_JPRB,9.3137E-04_JPRB/)
1037 KAO( :, 2,11, 5) = (/&
1038 & 4.8927E-05_JPRB,6.6681E-05_JPRB,7.3165E-05_JPRB,7.6242E-05_JPRB,7.7034E-05_JPRB,7.5453E-05_JPRB,&
1039
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.1255E-05_JPRB,6.4142E-05_JPRB,9.0283E-04_JPRB/)
1040 KAO( :, 3,11, 5) = (/&
1041 & 4.9906E-05_JPRB,6.8442E-05_JPRB,7.5379E-05_JPRB,7.8833E-05_JPRB,7.9706E-05_JPRB,7.8052E-05_JPRB,&
1042
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.3833E-05_JPRB,6.6698E-05_JPRB,8.7896E-04_JPRB/)
1043 KAO( :, 4,11, 5) = (/&
1044 & 5.1140E-05_JPRB,7.0403E-05_JPRB,7.7738E-05_JPRB,8.1490E-05_JPRB,8.2392E-05_JPRB,8.0715E-05_JPRB,&
1045
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.6507E-05_JPRB,6.9333E-05_JPRB,8.5877E-04_JPRB/)
1046 KAO( :, 5,11, 5) = (/&
1047 & 5.2547E-05_JPRB,7.2595E-05_JPRB,8.0310E-05_JPRB,8.4272E-05_JPRB,8.5190E-05_JPRB,8.3479E-05_JPRB,&
1048
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.9204E-05_JPRB,7.1956E-05_JPRB,8.4129E-04_JPRB/)
1049 KAO( :, 1,12, 5) = (/&
1050 & 4.1357E-05_JPRB,5.6591E-05_JPRB,6.2004E-05_JPRB,6.4335E-05_JPRB,6.4718E-05_JPRB,6.3255E-05_JPRB,&
1051
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.9536E-05_JPRB,5.3170E-05_JPRB,9.4628E-04_JPRB/)
1052 KAO( :, 2,12, 5) = (/&
1053 & 4.2117E-05_JPRB,5.8142E-05_JPRB,6.3912E-05_JPRB,6.6563E-05_JPRB,6.7175E-05_JPRB,6.5721E-05_JPRB,&
1054
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.1864E-05_JPRB,5.5283E-05_JPRB,9.1448E-04_JPRB/)
1055 KAO( :, 3,12, 5) = (/&
1056 & 4.3123E-05_JPRB,5.9831E-05_JPRB,6.5955E-05_JPRB,6.8956E-05_JPRB,6.9677E-05_JPRB,6.8113E-05_JPRB,&
1057
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.4202E-05_JPRB,5.7597E-05_JPRB,8.8738E-04_JPRB/)
1058 KAO( :, 4,12, 5) = (/&
1059 & 4.4308E-05_JPRB,6.1719E-05_JPRB,6.8165E-05_JPRB,7.1448E-05_JPRB,7.2209E-05_JPRB,7.0617E-05_JPRB,&
1060
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.6651E-05_JPRB,5.9974E-05_JPRB,8.6370E-04_JPRB/)
1061 KAO( :, 5,12, 5) = (/&
1062 & 4.5586E-05_JPRB,6.3825E-05_JPRB,7.0651E-05_JPRB,7.4074E-05_JPRB,7.4824E-05_JPRB,7.3199E-05_JPRB,&
1063
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.9129E-05_JPRB,6.2368E-05_JPRB,8.4394E-04_JPRB/)
1064 KAO( :, 1,13, 5) = (/&
1065 & 3.5199E-05_JPRB,4.8904E-05_JPRB,5.3685E-05_JPRB,5.5708E-05_JPRB,5.5958E-05_JPRB,5.4602E-05_JPRB,&
1066
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.1289E-05_JPRB,4.5544E-05_JPRB,7.9844E-04_JPRB/)
1067 KAO( :, 2,13, 5) = (/&
1068 & 3.5968E-05_JPRB,5.0359E-05_JPRB,5.5441E-05_JPRB,5.7776E-05_JPRB,5.8210E-05_JPRB,5.6833E-05_JPRB,&
1069
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.3406E-05_JPRB,4.7437E-05_JPRB,7.7225E-04_JPRB/)
1070 KAO( :, 3,13, 5) = (/&
1071 & 3.6919E-05_JPRB,5.1978E-05_JPRB,5.7339E-05_JPRB,5.9942E-05_JPRB,6.0487E-05_JPRB,5.9061E-05_JPRB,&
1072
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.5548E-05_JPRB,4.9491E-05_JPRB,7.4964E-04_JPRB/)
1073 KAO( :, 4,13, 5) = (/&
1074 & 3.7983E-05_JPRB,5.3790E-05_JPRB,5.9444E-05_JPRB,6.2256E-05_JPRB,6.2844E-05_JPRB,6.1377E-05_JPRB,&
1075
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.7755E-05_JPRB,5.1611E-05_JPRB,7.3016E-04_JPRB/)
1076 KAO( :, 5,13, 5) = (/&
1077 & 3.9071E-05_JPRB,5.5803E-05_JPRB,6.1798E-05_JPRB,6.4723E-05_JPRB,6.5302E-05_JPRB,6.3732E-05_JPRB,&
1078
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.9993E-05_JPRB,5.3748E-05_JPRB,7.1404E-04_JPRB/)
1079 KAO( :, 1, 1, 6) = (/&
1080 & 2.5660E-04_JPRB,3.1807E-04_JPRB,3.6094E-04_JPRB,3.8920E-04_JPRB,4.0736E-04_JPRB,4.1545E-04_JPRB,&
1081
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.1386E-04_JPRB,4.0633E-04_JPRB,3.6193E-04_JPRB/)
1082 KAO( :, 2, 1, 6) = (/&
1083 & 2.5865E-04_JPRB,3.2319E-04_JPRB,3.6764E-04_JPRB,3.9762E-04_JPRB,4.1800E-04_JPRB,4.2858E-04_JPRB,&
1084
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.2847E-04_JPRB,4.2235E-04_JPRB,3.7675E-04_JPRB/)
1085 KAO( :, 3, 1, 6) = (/&
1086 & 2.6137E-04_JPRB,3.2915E-04_JPRB,3.7535E-04_JPRB,4.0750E-04_JPRB,4.2970E-04_JPRB,4.4147E-04_JPRB,&
1087
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.4293E-04_JPRB,4.3843E-04_JPRB,3.9233E-04_JPRB/)
1088 KAO( :, 4, 1, 6) = (/&
1089 & 2.6360E-04_JPRB,3.3488E-04_JPRB,3.8404E-04_JPRB,4.1788E-04_JPRB,4.4114E-04_JPRB,4.5427E-04_JPRB,&
1090
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.5738E-04_JPRB,4.5544E-04_JPRB,4.1003E-04_JPRB/)
1091 KAO( :, 5, 1, 6) = (/&
1092 & 2.6660E-04_JPRB,3.4173E-04_JPRB,3.9350E-04_JPRB,4.2919E-04_JPRB,4.5400E-04_JPRB,4.6894E-04_JPRB,&
1093
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.7415E-04_JPRB,4.7523E-04_JPRB,4.3058E-04_JPRB/)
1094 KAO( :, 1, 2, 6) = (/&
1095 & 2.3631E-04_JPRB,2.9631E-04_JPRB,3.3525E-04_JPRB,3.5919E-04_JPRB,3.7267E-04_JPRB,3.7835E-04_JPRB,&
1096
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.7529E-04_JPRB,3.6555E-04_JPRB,3.2111E-04_JPRB/)
1097 KAO( :, 2, 2, 6) = (/&
1098 & 2.3829E-04_JPRB,3.0128E-04_JPRB,3.4159E-04_JPRB,3.6758E-04_JPRB,3.8290E-04_JPRB,3.9019E-04_JPRB,&
1099
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.8891E-04_JPRB,3.7964E-04_JPRB,3.3378E-04_JPRB/)
1100 KAO( :, 3, 2, 6) = (/&
1101 & 2.4092E-04_JPRB,3.0698E-04_JPRB,3.4893E-04_JPRB,3.7703E-04_JPRB,3.9429E-04_JPRB,4.0240E-04_JPRB,&
1102
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.0189E-04_JPRB,3.9363E-04_JPRB,3.4730E-04_JPRB/)
1103 KAO( :, 4, 2, 6) = (/&
1104 & 2.4353E-04_JPRB,3.1280E-04_JPRB,3.5757E-04_JPRB,3.8697E-04_JPRB,4.0550E-04_JPRB,4.1447E-04_JPRB,&
1105
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.1496E-04_JPRB,4.0890E-04_JPRB,3.6318E-04_JPRB/)
1106 KAO( :, 5, 2, 6) = (/&
1107 & 2.4646E-04_JPRB,3.1930E-04_JPRB,3.6666E-04_JPRB,3.9774E-04_JPRB,4.1741E-04_JPRB,4.2801E-04_JPRB,&
1108
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.2988E-04_JPRB,4.2637E-04_JPRB,3.8102E-04_JPRB/)
1109 KAO( :, 1, 3, 6) = (/&
1110 & 2.1702E-04_JPRB,2.7392E-04_JPRB,3.0713E-04_JPRB,3.2661E-04_JPRB,3.3701E-04_JPRB,3.4012E-04_JPRB,&
1111
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.3574E-04_JPRB,3.2367E-04_JPRB,2.7953E-04_JPRB/)
1112 KAO( :, 2, 3, 6) = (/&
1113 & 2.1882E-04_JPRB,2.7874E-04_JPRB,3.1368E-04_JPRB,3.3483E-04_JPRB,3.4655E-04_JPRB,3.5089E-04_JPRB,&
1114
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.4836E-04_JPRB,3.3662E-04_JPRB,2.9075E-04_JPRB/)
1115 KAO( :, 3, 3, 6) = (/&
1116 & 2.2093E-04_JPRB,2.8379E-04_JPRB,3.2031E-04_JPRB,3.4355E-04_JPRB,3.5690E-04_JPRB,3.6196E-04_JPRB,&
1117
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.6029E-04_JPRB,3.4924E-04_JPRB,3.0255E-04_JPRB/)
1118 KAO( :, 4, 3, 6) = (/&
1119 & 2.2391E-04_JPRB,2.8964E-04_JPRB,3.2857E-04_JPRB,3.5322E-04_JPRB,3.6741E-04_JPRB,3.7364E-04_JPRB,&
1120
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.7227E-04_JPRB,3.6287E-04_JPRB,3.1610E-04_JPRB/)
1121 KAO( :, 5, 3, 6) = (/&
1122 & 2.2678E-04_JPRB,2.9569E-04_JPRB,3.3712E-04_JPRB,3.6314E-04_JPRB,3.7839E-04_JPRB,3.8589E-04_JPRB,&
1123
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.8538E-04_JPRB,3.7808E-04_JPRB,3.3103E-04_JPRB/)
1124 KAO( :, 1, 4, 6) = (/&
1125 & 1.9893E-04_JPRB,2.5184E-04_JPRB,2.7904E-04_JPRB,2.9424E-04_JPRB,3.0215E-04_JPRB,3.0353E-04_JPRB,&
1126
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.9750E-04_JPRB,2.8367E-04_JPRB,2.4378E-04_JPRB/)
1127 KAO( :, 2, 4, 6) = (/&
1128 & 2.0039E-04_JPRB,2.5636E-04_JPRB,2.8551E-04_JPRB,3.0218E-04_JPRB,3.1138E-04_JPRB,3.1364E-04_JPRB,&
1129
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.0933E-04_JPRB,2.9596E-04_JPRB,2.5360E-04_JPRB/)
1130 KAO( :, 3, 4, 6) = (/&
1131 & 2.0244E-04_JPRB,2.6111E-04_JPRB,2.9172E-04_JPRB,3.1073E-04_JPRB,3.2138E-04_JPRB,3.2408E-04_JPRB,&
1132
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.2030E-04_JPRB,3.0766E-04_JPRB,2.6380E-04_JPRB/)
1133 KAO( :, 4, 4, 6) = (/&
1134 & 2.0501E-04_JPRB,2.6640E-04_JPRB,2.9889E-04_JPRB,3.1956E-04_JPRB,3.3116E-04_JPRB,3.3435E-04_JPRB,&
1135
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.3120E-04_JPRB,3.1983E-04_JPRB,2.7551E-04_JPRB/)
1136 KAO( :, 5, 4, 6) = (/&
1137 & 2.0836E-04_JPRB,2.7264E-04_JPRB,3.0721E-04_JPRB,3.2917E-04_JPRB,3.4139E-04_JPRB,3.4585E-04_JPRB,&
1138
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.4342E-04_JPRB,3.3321E-04_JPRB,2.8833E-04_JPRB/)
1139 KAO( :, 1, 5, 6) = (/&
1140 & 1.8177E-04_JPRB,2.3005E-04_JPRB,2.5216E-04_JPRB,2.6400E-04_JPRB,2.6980E-04_JPRB,2.6977E-04_JPRB,&
1141
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.6270E-04_JPRB,2.4807E-04_JPRB,2.1566E-04_JPRB/)
1142 KAO( :, 2, 5, 6) = (/&
1143 & 1.8288E-04_JPRB,2.3456E-04_JPRB,2.5850E-04_JPRB,2.7178E-04_JPRB,2.7838E-04_JPRB,2.7918E-04_JPRB,&
1144
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.7326E-04_JPRB,2.5893E-04_JPRB,2.2464E-04_JPRB/)
1145 KAO( :, 3, 5, 6) = (/&
1146 & 1.8495E-04_JPRB,2.3899E-04_JPRB,2.6446E-04_JPRB,2.7972E-04_JPRB,2.8778E-04_JPRB,2.8887E-04_JPRB,&
1147
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.8352E-04_JPRB,2.6965E-04_JPRB,2.3371E-04_JPRB/)
1148 KAO( :, 4, 5, 6) = (/&
1149 & 1.8757E-04_JPRB,2.4389E-04_JPRB,2.7104E-04_JPRB,2.8807E-04_JPRB,2.9709E-04_JPRB,2.9855E-04_JPRB,&
1150
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.9335E-04_JPRB,2.8065E-04_JPRB,2.4386E-04_JPRB/)
1151 KAO( :, 5, 5, 6) = (/&
1152 & 1.9089E-04_JPRB,2.4987E-04_JPRB,2.7871E-04_JPRB,2.9704E-04_JPRB,3.0660E-04_JPRB,3.0888E-04_JPRB,&
1153
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.0414E-04_JPRB,2.9240E-04_JPRB,2.5489E-04_JPRB/)
1154 KAO( :, 1, 6, 6) = (/&
1155 & 1.6548E-04_JPRB,2.0845E-04_JPRB,2.2667E-04_JPRB,2.3621E-04_JPRB,2.3998E-04_JPRB,2.3852E-04_JPRB,&
1156
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.3181E-04_JPRB,2.1713E-04_JPRB,1.9774E-04_JPRB/)
1157 KAO( :, 2, 6, 6) = (/&
1158 & 1.6647E-04_JPRB,2.1295E-04_JPRB,2.3285E-04_JPRB,2.4356E-04_JPRB,2.4798E-04_JPRB,2.4711E-04_JPRB,&
1159
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4086E-04_JPRB,2.2656E-04_JPRB,2.0619E-04_JPRB/)
1160 KAO( :, 3, 6, 6) = (/&
1161 & 1.6832E-04_JPRB,2.1735E-04_JPRB,2.3897E-04_JPRB,2.5101E-04_JPRB,2.5638E-04_JPRB,2.5608E-04_JPRB,&
1162
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.5005E-04_JPRB,2.3612E-04_JPRB,2.1472E-04_JPRB/)
1163 KAO( :, 4, 6, 6) = (/&
1164 & 1.7090E-04_JPRB,2.2192E-04_JPRB,2.4527E-04_JPRB,2.5863E-04_JPRB,2.6479E-04_JPRB,2.6498E-04_JPRB,&
1165
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.5909E-04_JPRB,2.4595E-04_JPRB,2.2382E-04_JPRB/)
1166 KAO( :, 5, 6, 6) = (/&
1167 & 1.7392E-04_JPRB,2.2728E-04_JPRB,2.5204E-04_JPRB,2.6653E-04_JPRB,2.7329E-04_JPRB,2.7417E-04_JPRB,&
1168
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.6871E-04_JPRB,2.5622E-04_JPRB,2.3379E-04_JPRB/)
1169 KAO( :, 1, 7, 6) = (/&
1170 & 1.4974E-04_JPRB,1.8746E-04_JPRB,2.0303E-04_JPRB,2.1075E-04_JPRB,2.1306E-04_JPRB,2.1110E-04_JPRB,&
1171
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0431E-04_JPRB,1.8998E-04_JPRB,1.9358E-04_JPRB/)
1172 KAO( :, 2, 7, 6) = (/&
1173 & 1.5089E-04_JPRB,1.9183E-04_JPRB,2.0895E-04_JPRB,2.1750E-04_JPRB,2.2044E-04_JPRB,2.1873E-04_JPRB,&
1174
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1228E-04_JPRB,1.9808E-04_JPRB,2.0012E-04_JPRB/)
1175 KAO( :, 3, 7, 6) = (/&
1176 & 1.5257E-04_JPRB,1.9611E-04_JPRB,2.1478E-04_JPRB,2.2448E-04_JPRB,2.2805E-04_JPRB,2.2660E-04_JPRB,&
1177
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2066E-04_JPRB,2.0672E-04_JPRB,2.0775E-04_JPRB/)
1178 KAO( :, 4, 7, 6) = (/&
1179 & 1.5493E-04_JPRB,2.0056E-04_JPRB,2.2076E-04_JPRB,2.3152E-04_JPRB,2.3569E-04_JPRB,2.3461E-04_JPRB,&
1180
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2897E-04_JPRB,2.1559E-04_JPRB,2.1605E-04_JPRB/)
1181 KAO( :, 5, 7, 6) = (/&
1182 & 1.5774E-04_JPRB,2.0562E-04_JPRB,2.2715E-04_JPRB,2.3878E-04_JPRB,2.4330E-04_JPRB,2.4290E-04_JPRB,&
1183
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.3768E-04_JPRB,2.2474E-04_JPRB,2.2537E-04_JPRB/)
1184 KAO( :, 1, 8, 6) = (/&
1185 & 1.3469E-04_JPRB,1.6768E-04_JPRB,1.8125E-04_JPRB,1.8765E-04_JPRB,1.8912E-04_JPRB,1.8647E-04_JPRB,&
1186
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7925E-04_JPRB,1.6551E-04_JPRB,2.2549E-04_JPRB/)
1187 KAO( :, 2, 8, 6) = (/&
1188 & 1.3601E-04_JPRB,1.7179E-04_JPRB,1.8676E-04_JPRB,1.9388E-04_JPRB,1.9601E-04_JPRB,1.9365E-04_JPRB,&
1189
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8651E-04_JPRB,1.7268E-04_JPRB,2.2728E-04_JPRB/)
1190 KAO( :, 3, 8, 6) = (/&
1191 & 1.3770E-04_JPRB,1.7606E-04_JPRB,1.9214E-04_JPRB,2.0024E-04_JPRB,2.0294E-04_JPRB,2.0077E-04_JPRB,&
1192
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9394E-04_JPRB,1.8025E-04_JPRB,2.3037E-04_JPRB/)
1193 KAO( :, 4, 8, 6) = (/&
1194 & 1.3980E-04_JPRB,1.8052E-04_JPRB,1.9782E-04_JPRB,2.0667E-04_JPRB,2.0985E-04_JPRB,2.0804E-04_JPRB,&
1195
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0170E-04_JPRB,1.8820E-04_JPRB,2.3502E-04_JPRB/)
1196 KAO( :, 5, 8, 6) = (/&
1197 & 1.4234E-04_JPRB,1.8549E-04_JPRB,2.0378E-04_JPRB,2.1326E-04_JPRB,2.1685E-04_JPRB,2.1554E-04_JPRB,&
1198
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0965E-04_JPRB,1.9644E-04_JPRB,2.4136E-04_JPRB/)
1199 KAO( :, 1, 9, 6) = (/&
1200 & 1.1992E-04_JPRB,1.4933E-04_JPRB,1.6105E-04_JPRB,1.6671E-04_JPRB,1.6730E-04_JPRB,1.6393E-04_JPRB,&
1201
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5666E-04_JPRB,1.4342E-04_JPRB,4.8653E-04_JPRB/)
1202 KAO( :, 2, 9, 6) = (/&
1203 & 1.2149E-04_JPRB,1.5326E-04_JPRB,1.6624E-04_JPRB,1.7247E-04_JPRB,1.7376E-04_JPRB,1.7057E-04_JPRB,&
1204
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6339E-04_JPRB,1.5015E-04_JPRB,4.7263E-04_JPRB/)
1205 KAO( :, 3, 9, 6) = (/&
1206 & 1.2314E-04_JPRB,1.5738E-04_JPRB,1.7131E-04_JPRB,1.7818E-04_JPRB,1.8004E-04_JPRB,1.7724E-04_JPRB,&
1207
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6998E-04_JPRB,1.5688E-04_JPRB,4.6122E-04_JPRB/)
1208 KAO( :, 4, 9, 6) = (/&
1209 & 1.2514E-04_JPRB,1.6177E-04_JPRB,1.7650E-04_JPRB,1.8400E-04_JPRB,1.8641E-04_JPRB,1.8403E-04_JPRB,&
1210
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7684E-04_JPRB,1.6385E-04_JPRB,4.5149E-04_JPRB/)
1211 KAO( :, 5, 9, 6) = (/&
1212 & 1.2748E-04_JPRB,1.6660E-04_JPRB,1.8214E-04_JPRB,1.9005E-04_JPRB,1.9284E-04_JPRB,1.9097E-04_JPRB,&
1213
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8405E-04_JPRB,1.7111E-04_JPRB,4.4363E-04_JPRB/)
1214 KAO( :, 1,10, 6) = (/&
1215 & 1.0584E-04_JPRB,1.3236E-04_JPRB,1.4288E-04_JPRB,1.4761E-04_JPRB,1.4780E-04_JPRB,1.4423E-04_JPRB,&
1216
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3667E-04_JPRB,1.2400E-04_JPRB,1.5407E-03_JPRB/)
1217 KAO( :, 2,10, 6) = (/&
1218 & 1.0748E-04_JPRB,1.3619E-04_JPRB,1.4771E-04_JPRB,1.5305E-04_JPRB,1.5361E-04_JPRB,1.5017E-04_JPRB,&
1219
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4291E-04_JPRB,1.3024E-04_JPRB,1.4707E-03_JPRB/)
1220 KAO( :, 3,10, 6) = (/&
1221 & 1.0916E-04_JPRB,1.4012E-04_JPRB,1.5258E-04_JPRB,1.5840E-04_JPRB,1.5929E-04_JPRB,1.5625E-04_JPRB,&
1222
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4913E-04_JPRB,1.3639E-04_JPRB,1.4078E-03_JPRB/)
1223 KAO( :, 4,10, 6) = (/&
1224 & 1.1108E-04_JPRB,1.4432E-04_JPRB,1.5744E-04_JPRB,1.6378E-04_JPRB,1.6514E-04_JPRB,1.6251E-04_JPRB,&
1225
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5541E-04_JPRB,1.4254E-04_JPRB,1.3501E-03_JPRB/)
1226 KAO( :, 5,10, 6) = (/&
1227 & 1.1328E-04_JPRB,1.4893E-04_JPRB,1.6265E-04_JPRB,1.6934E-04_JPRB,1.7119E-04_JPRB,1.6880E-04_JPRB,&
1228
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6190E-04_JPRB,1.4900E-04_JPRB,1.2982E-03_JPRB/)
1229 KAO( :, 1,11, 6) = (/&
1230 & 9.3489E-05_JPRB,1.1825E-04_JPRB,1.2805E-04_JPRB,1.3224E-04_JPRB,1.3232E-04_JPRB,1.2873E-04_JPRB,&
1231
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2131E-04_JPRB,1.0918E-04_JPRB,2.0757E-03_JPRB/)
1232 KAO( :, 2,11, 6) = (/&
1233 & 9.5099E-05_JPRB,1.2195E-04_JPRB,1.3268E-04_JPRB,1.3732E-04_JPRB,1.3748E-04_JPRB,1.3414E-04_JPRB,&
1234
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2695E-04_JPRB,1.1489E-04_JPRB,1.9797E-03_JPRB/)
1235 KAO( :, 3,11, 6) = (/&
1236 & 9.6804E-05_JPRB,1.2575E-04_JPRB,1.3731E-04_JPRB,1.4230E-04_JPRB,1.4278E-04_JPRB,1.3973E-04_JPRB,&
1237
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3283E-04_JPRB,1.2047E-04_JPRB,1.8901E-03_JPRB/)
1238 KAO( :, 4,11, 6) = (/&
1239 & 9.8710E-05_JPRB,1.2986E-04_JPRB,1.4205E-04_JPRB,1.4740E-04_JPRB,1.4826E-04_JPRB,1.4548E-04_JPRB,&
1240
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3868E-04_JPRB,1.2603E-04_JPRB,1.8079E-03_JPRB/)
1241 KAO( :, 5,11, 6) = (/&
1242 & 1.0095E-04_JPRB,1.3435E-04_JPRB,1.4704E-04_JPRB,1.5275E-04_JPRB,1.5397E-04_JPRB,1.5141E-04_JPRB,&
1243
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
 10 & 1.4471E-04_JPRB,1.3186E-04_JPRB,1.7340E-03_JPRB/)
1244
1245
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART4',1,ZHOOK_HANDLE)
1246 1 END SUBROUTINE PART4
1247
1248
1249 1 SUBROUTINE PART5
1250
1251 REAL(KIND=JPRB) :: ZHOOK_HANDLE
1252
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART5',0,ZHOOK_HANDLE)
1253
1254
1255 KAO( :, 1,12, 6) = (/&
1256 & 8.2093E-05_JPRB,1.0522E-04_JPRB,1.1410E-04_JPRB,1.1782E-04_JPRB,1.1761E-04_JPRB,1.1416E-04_JPRB,&
1257
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0724E-04_JPRB,9.5735E-05_JPRB,2.1586E-03_JPRB/)
1258 KAO( :, 2,12, 6) = (/&
1259 & 8.3669E-05_JPRB,1.0871E-04_JPRB,1.1846E-04_JPRB,1.2251E-04_JPRB,1.2240E-04_JPRB,1.1908E-04_JPRB,&
1260
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1234E-04_JPRB,1.0091E-04_JPRB,2.0547E-03_JPRB/)
1261 KAO( :, 3,12, 6) = (/&
1262 & 8.5301E-05_JPRB,1.1235E-04_JPRB,1.2282E-04_JPRB,1.2721E-04_JPRB,1.2738E-04_JPRB,1.2431E-04_JPRB,&
1263
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1770E-04_JPRB,1.0601E-04_JPRB,1.9599E-03_JPRB/)
1264 KAO( :, 4,12, 6) = (/&
1265 & 8.7242E-05_JPRB,1.1626E-04_JPRB,1.2740E-04_JPRB,1.3207E-04_JPRB,1.3252E-04_JPRB,1.2966E-04_JPRB,&
1266
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2318E-04_JPRB,1.1105E-04_JPRB,1.8736E-03_JPRB/)
1267 KAO( :, 5,12, 6) = (/&
1268 & 8.9569E-05_JPRB,1.2041E-04_JPRB,1.3214E-04_JPRB,1.3715E-04_JPRB,1.3802E-04_JPRB,1.3533E-04_JPRB,&
1269
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2876E-04_JPRB,1.1627E-04_JPRB,1.7949E-03_JPRB/)
1270 KAO( :, 1,13, 6) = (/&
1271 & 7.1569E-05_JPRB,9.3060E-05_JPRB,1.0102E-04_JPRB,1.0423E-04_JPRB,1.0388E-04_JPRB,1.0052E-04_JPRB,&
1272
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.4174E-05_JPRB,8.3531E-05_JPRB,1.8351E-03_JPRB/)
1273 KAO( :, 2,13, 6) = (/&
1274 & 7.3011E-05_JPRB,9.6373E-05_JPRB,1.0503E-04_JPRB,1.0856E-04_JPRB,1.0834E-04_JPRB,1.0508E-04_JPRB,&
1275
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.8836E-05_JPRB,8.8176E-05_JPRB,1.7459E-03_JPRB/)
1276 KAO( :, 3,13, 6) = (/&
1277 & 7.4663E-05_JPRB,9.9794E-05_JPRB,1.0913E-04_JPRB,1.1298E-04_JPRB,1.1299E-04_JPRB,1.0991E-04_JPRB,&
1278
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0372E-04_JPRB,9.2787E-05_JPRB,1.6660E-03_JPRB/)
1279 KAO( :, 4,13, 6) = (/&
1280 & 7.6630E-05_JPRB,1.0344E-04_JPRB,1.1345E-04_JPRB,1.1756E-04_JPRB,1.1782E-04_JPRB,1.1495E-04_JPRB,&
1281
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0877E-04_JPRB,9.7412E-05_JPRB,1.5932E-03_JPRB/)
1282 KAO( :, 5,13, 6) = (/&
1283 & 7.9007E-05_JPRB,1.0733E-04_JPRB,1.1787E-04_JPRB,1.2235E-04_JPRB,1.2303E-04_JPRB,1.2033E-04_JPRB,&
1284
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1390E-04_JPRB,1.0206E-04_JPRB,1.5265E-03_JPRB/)
1285 KAO( :, 1, 1, 7) = (/&
1286 & 4.6305E-04_JPRB,5.4556E-04_JPRB,6.0200E-04_JPRB,6.4863E-04_JPRB,6.8107E-04_JPRB,7.0420E-04_JPRB,&
1287
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.2199E-04_JPRB,7.3085E-04_JPRB,6.7646E-04_JPRB/)
1288 KAO( :, 2, 1, 7) = (/&
1289 & 4.6301E-04_JPRB,5.5700E-04_JPRB,6.1674E-04_JPRB,6.6918E-04_JPRB,7.0683E-04_JPRB,7.3382E-04_JPRB,&
1290
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.5720E-04_JPRB,7.6870E-04_JPRB,7.1353E-04_JPRB/)
1291 KAO( :, 3, 1, 7) = (/&
1292 & 4.6454E-04_JPRB,5.7050E-04_JPRB,6.3324E-04_JPRB,6.9016E-04_JPRB,7.3249E-04_JPRB,7.6632E-04_JPRB,&
1293
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.9567E-04_JPRB,8.0915E-04_JPRB,7.5224E-04_JPRB/)
1294 KAO( :, 4, 1, 7) = (/&
1295 & 4.6651E-04_JPRB,5.8405E-04_JPRB,6.4895E-04_JPRB,7.1069E-04_JPRB,7.5837E-04_JPRB,7.9949E-04_JPRB,&
1296
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.3506E-04_JPRB,8.5087E-04_JPRB,7.9164E-04_JPRB/)
1297 KAO( :, 5, 1, 7) = (/&
1298 & 4.7034E-04_JPRB,5.9930E-04_JPRB,6.6683E-04_JPRB,7.3355E-04_JPRB,7.8609E-04_JPRB,8.3312E-04_JPRB,&
1299
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.7517E-04_JPRB,8.9333E-04_JPRB,8.3199E-04_JPRB/)
1300 KAO( :, 1, 2, 7) = (/&
1301 & 4.3178E-04_JPRB,5.0967E-04_JPRB,5.7208E-04_JPRB,6.1793E-04_JPRB,6.4678E-04_JPRB,6.6138E-04_JPRB,&
1302
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.6815E-04_JPRB,6.6568E-04_JPRB,5.9744E-04_JPRB/)
1303 KAO( :, 2, 2, 7) = (/&
1304 & 4.3227E-04_JPRB,5.2067E-04_JPRB,5.8785E-04_JPRB,6.3795E-04_JPRB,6.7133E-04_JPRB,6.9007E-04_JPRB,&
1305
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.0100E-04_JPRB,7.0211E-04_JPRB,6.3355E-04_JPRB/)
1306 KAO( :, 3, 2, 7) = (/&
1307 & 4.3414E-04_JPRB,5.3362E-04_JPRB,6.0473E-04_JPRB,6.5841E-04_JPRB,6.9567E-04_JPRB,7.2097E-04_JPRB,&
1308
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.3754E-04_JPRB,7.4189E-04_JPRB,6.7066E-04_JPRB/)
1309 KAO( :, 4, 2, 7) = (/&
1310 & 4.3688E-04_JPRB,5.4677E-04_JPRB,6.2106E-04_JPRB,6.7900E-04_JPRB,7.2053E-04_JPRB,7.5255E-04_JPRB,&
1311
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.7596E-04_JPRB,7.8317E-04_JPRB,7.0771E-04_JPRB/)
1312 KAO( :, 5, 2, 7) = (/&
1313 & 4.4026E-04_JPRB,5.6009E-04_JPRB,6.3723E-04_JPRB,6.9996E-04_JPRB,7.4621E-04_JPRB,7.8382E-04_JPRB,&
1314
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.1411E-04_JPRB,8.2479E-04_JPRB,7.4663E-04_JPRB/)
1315 KAO( :, 1, 3, 7) = (/&
1316 & 4.0042E-04_JPRB,4.7588E-04_JPRB,5.3737E-04_JPRB,5.7848E-04_JPRB,6.0266E-04_JPRB,6.1092E-04_JPRB,&
1317
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.0756E-04_JPRB,5.9389E-04_JPRB,5.1726E-04_JPRB/)
1318 KAO( :, 2, 3, 7) = (/&
1319 & 4.0139E-04_JPRB,4.8636E-04_JPRB,5.5256E-04_JPRB,5.9842E-04_JPRB,6.2668E-04_JPRB,6.3795E-04_JPRB,&
1320
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.3723E-04_JPRB,6.2673E-04_JPRB,5.4890E-04_JPRB/)
1321 KAO( :, 3, 3, 7) = (/&
1322 & 4.0264E-04_JPRB,4.9818E-04_JPRB,5.6878E-04_JPRB,6.1775E-04_JPRB,6.4985E-04_JPRB,6.6625E-04_JPRB,&
1323
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.6960E-04_JPRB,6.6297E-04_JPRB,5.8203E-04_JPRB/)
1324 KAO( :, 4, 3, 7) = (/&
1325 & 4.0594E-04_JPRB,5.1098E-04_JPRB,5.8559E-04_JPRB,6.3812E-04_JPRB,6.7417E-04_JPRB,6.9560E-04_JPRB,&
1326
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.0436E-04_JPRB,7.0139E-04_JPRB,6.1550E-04_JPRB/)
1327 KAO( :, 5, 3, 7) = (/&
1328 & 4.0942E-04_JPRB,5.2279E-04_JPRB,6.0106E-04_JPRB,6.5810E-04_JPRB,6.9804E-04_JPRB,7.2431E-04_JPRB,&
1329
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.3907E-04_JPRB,7.3980E-04_JPRB,6.5087E-04_JPRB/)
1330 KAO( :, 1, 4, 7) = (/&
1331 & 3.6954E-04_JPRB,4.4390E-04_JPRB,4.9967E-04_JPRB,5.3490E-04_JPRB,5.5341E-04_JPRB,5.5728E-04_JPRB,&
1332
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.4744E-04_JPRB,5.2585E-04_JPRB,4.5076E-04_JPRB/)
1333 KAO( :, 2, 4, 7) = (/&
1334 & 3.7099E-04_JPRB,4.5452E-04_JPRB,5.1452E-04_JPRB,5.5410E-04_JPRB,5.7617E-04_JPRB,5.8227E-04_JPRB,&
1335
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.7394E-04_JPRB,5.5446E-04_JPRB,4.7750E-04_JPRB/)
1336 KAO( :, 3, 4, 7) = (/&
1337 & 3.7261E-04_JPRB,4.6594E-04_JPRB,5.3039E-04_JPRB,5.7264E-04_JPRB,5.9783E-04_JPRB,6.0838E-04_JPRB,&
1338
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.0270E-04_JPRB,5.8596E-04_JPRB,5.0606E-04_JPRB/)
1339 KAO( :, 4, 4, 7) = (/&
1340 & 3.7542E-04_JPRB,4.7733E-04_JPRB,5.4631E-04_JPRB,5.9142E-04_JPRB,6.2021E-04_JPRB,6.3532E-04_JPRB,&
1341
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.3302E-04_JPRB,6.1929E-04_JPRB,5.3494E-04_JPRB/)
1342 KAO( :, 5, 4, 7) = (/&
1343 & 3.7994E-04_JPRB,4.8922E-04_JPRB,5.6238E-04_JPRB,6.1134E-04_JPRB,6.4405E-04_JPRB,6.6206E-04_JPRB,&
1344
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.6409E-04_JPRB,6.5333E-04_JPRB,5.6564E-04_JPRB/)
1345 KAO( :, 1, 5, 7) = (/&
1346 & 3.4061E-04_JPRB,4.1228E-04_JPRB,4.6040E-04_JPRB,4.8986E-04_JPRB,5.0320E-04_JPRB,5.0314E-04_JPRB,&
1347
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.9155E-04_JPRB,4.6563E-04_JPRB,3.9708E-04_JPRB/)
1348 KAO( :, 2, 5, 7) = (/&
1349 & 3.4265E-04_JPRB,4.2238E-04_JPRB,4.7497E-04_JPRB,5.0787E-04_JPRB,5.2436E-04_JPRB,5.2638E-04_JPRB,&
1350
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.1586E-04_JPRB,4.9074E-04_JPRB,4.1980E-04_JPRB/)
1351 KAO( :, 3, 5, 7) = (/&
1352 & 3.4457E-04_JPRB,4.3316E-04_JPRB,4.9022E-04_JPRB,5.2547E-04_JPRB,5.4476E-04_JPRB,5.5018E-04_JPRB,&
1353
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.4131E-04_JPRB,5.1767E-04_JPRB,4.4445E-04_JPRB/)
1354 KAO( :, 4, 5, 7) = (/&
1355 & 3.4732E-04_JPRB,4.4421E-04_JPRB,5.0540E-04_JPRB,5.4314E-04_JPRB,5.6518E-04_JPRB,5.7439E-04_JPRB,&
1356
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.6831E-04_JPRB,5.4593E-04_JPRB,4.6962E-04_JPRB/)
1357 KAO( :, 5, 5, 7) = (/&
1358 & 3.5182E-04_JPRB,4.5580E-04_JPRB,5.2093E-04_JPRB,5.6187E-04_JPRB,5.8688E-04_JPRB,5.9917E-04_JPRB,&
1359
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.9551E-04_JPRB,5.7498E-04_JPRB,4.9655E-04_JPRB/)
1360 KAO( :, 1, 6, 7) = (/&
1361 & 3.1397E-04_JPRB,3.8099E-04_JPRB,4.2085E-04_JPRB,4.4392E-04_JPRB,4.5344E-04_JPRB,4.5128E-04_JPRB,&
1362
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.3795E-04_JPRB,4.1046E-04_JPRB,3.5811E-04_JPRB/)
1363 KAO( :, 2, 6, 7) = (/&
1364 & 3.1655E-04_JPRB,3.9053E-04_JPRB,4.3489E-04_JPRB,4.6069E-04_JPRB,4.7295E-04_JPRB,4.7284E-04_JPRB,&
1365
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.6063E-04_JPRB,4.3290E-04_JPRB,3.7673E-04_JPRB/)
1366 KAO( :, 3, 6, 7) = (/&
1367 & 3.1898E-04_JPRB,4.0060E-04_JPRB,4.4896E-04_JPRB,4.7714E-04_JPRB,4.9199E-04_JPRB,4.9458E-04_JPRB,&
1368
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.8353E-04_JPRB,4.5629E-04_JPRB,3.9672E-04_JPRB/)
1369 KAO( :, 4, 6, 7) = (/&
1370 & 3.2158E-04_JPRB,4.1129E-04_JPRB,4.6291E-04_JPRB,4.9376E-04_JPRB,5.1129E-04_JPRB,5.1624E-04_JPRB,&
1371
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.0719E-04_JPRB,4.8049E-04_JPRB,4.1801E-04_JPRB/)
1372 KAO( :, 5, 6, 7) = (/&
1373 & 3.2502E-04_JPRB,4.2183E-04_JPRB,4.7677E-04_JPRB,5.1073E-04_JPRB,5.3095E-04_JPRB,5.3777E-04_JPRB,&
1374
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.3107E-04_JPRB,5.0560E-04_JPRB,4.4095E-04_JPRB/)
1375 KAO( :, 1, 7, 7) = (/&
1376 & 2.8858E-04_JPRB,3.5072E-04_JPRB,3.8244E-04_JPRB,3.9969E-04_JPRB,4.0628E-04_JPRB,4.0266E-04_JPRB,&
1377
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.8820E-04_JPRB,3.6095E-04_JPRB,3.4917E-04_JPRB/)
1378 KAO( :, 2, 7, 7) = (/&
1379 & 2.9154E-04_JPRB,3.5995E-04_JPRB,3.9513E-04_JPRB,4.1562E-04_JPRB,4.2428E-04_JPRB,4.2225E-04_JPRB,&
1380
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.0848E-04_JPRB,3.8100E-04_JPRB,3.6556E-04_JPRB/)
1381 KAO( :, 3, 7, 7) = (/&
1382 & 2.9427E-04_JPRB,3.6955E-04_JPRB,4.0818E-04_JPRB,4.3070E-04_JPRB,4.4206E-04_JPRB,4.4209E-04_JPRB,&
1383
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.2902E-04_JPRB,4.0153E-04_JPRB,3.8273E-04_JPRB/)
1384 KAO( :, 4, 7, 7) = (/&
1385 & 2.9693E-04_JPRB,3.7937E-04_JPRB,4.2130E-04_JPRB,4.4602E-04_JPRB,4.5975E-04_JPRB,4.6189E-04_JPRB,&
1386
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.5029E-04_JPRB,4.2249E-04_JPRB,4.0122E-04_JPRB/)
1387 KAO( :, 5, 7, 7) = (/&
1388 & 3.0032E-04_JPRB,3.8893E-04_JPRB,4.3431E-04_JPRB,4.6164E-04_JPRB,4.7805E-04_JPRB,4.8151E-04_JPRB,&
1389
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.7139E-04_JPRB,4.4430E-04_JPRB,4.2113E-04_JPRB/)
1390 KAO( :, 1, 8, 7) = (/&
1391 & 2.6433E-04_JPRB,3.2164E-04_JPRB,3.4678E-04_JPRB,3.5895E-04_JPRB,3.6313E-04_JPRB,3.5828E-04_JPRB,&
1392
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.4379E-04_JPRB,3.1784E-04_JPRB,3.8325E-04_JPRB/)
1393 KAO( :, 2, 8, 7) = (/&
1394 & 2.6764E-04_JPRB,3.3079E-04_JPRB,3.5818E-04_JPRB,3.7326E-04_JPRB,3.7969E-04_JPRB,3.7570E-04_JPRB,&
1395
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.6173E-04_JPRB,3.3531E-04_JPRB,3.9627E-04_JPRB/)
1396 KAO( :, 3, 8, 7) = (/&
1397 & 2.7049E-04_JPRB,3.3967E-04_JPRB,3.6984E-04_JPRB,3.8764E-04_JPRB,3.9567E-04_JPRB,3.9347E-04_JPRB,&
1398
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.7992E-04_JPRB,3.5345E-04_JPRB,4.1157E-04_JPRB/)
1399 KAO( :, 4, 8, 7) = (/&
1400 & 2.7332E-04_JPRB,3.4840E-04_JPRB,3.8188E-04_JPRB,4.0186E-04_JPRB,4.1166E-04_JPRB,4.1115E-04_JPRB,&
1401
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.9867E-04_JPRB,3.7201E-04_JPRB,4.2882E-04_JPRB/)
1402 KAO( :, 5, 8, 7) = (/&
1403 & 2.7670E-04_JPRB,3.5697E-04_JPRB,3.9392E-04_JPRB,4.1633E-04_JPRB,4.2814E-04_JPRB,4.2877E-04_JPRB,&
1404
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.1760E-04_JPRB,3.9091E-04_JPRB,4.4711E-04_JPRB/)
1405 KAO( :, 1, 9, 7) = (/&
1406 & 2.4137E-04_JPRB,2.9350E-04_JPRB,3.1375E-04_JPRB,3.2233E-04_JPRB,3.2400E-04_JPRB,3.1859E-04_JPRB,&
1407
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.0441E-04_JPRB,2.7946E-04_JPRB,7.4112E-04_JPRB/)
1408 KAO( :, 2, 9, 7) = (/&
1409 & 2.4480E-04_JPRB,3.0210E-04_JPRB,3.2420E-04_JPRB,3.3517E-04_JPRB,3.3871E-04_JPRB,3.3414E-04_JPRB,&
1410
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.2021E-04_JPRB,2.9498E-04_JPRB,7.2877E-04_JPRB/)
1411 KAO( :, 3, 9, 7) = (/&
1412 & 2.4785E-04_JPRB,3.1022E-04_JPRB,3.3497E-04_JPRB,3.4812E-04_JPRB,3.5338E-04_JPRB,3.4970E-04_JPRB,&
1413
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.3648E-04_JPRB,3.1095E-04_JPRB,7.2183E-04_JPRB/)
1414 KAO( :, 4, 9, 7) = (/&
1415 & 2.5068E-04_JPRB,3.1830E-04_JPRB,3.4602E-04_JPRB,3.6150E-04_JPRB,3.6764E-04_JPRB,3.6525E-04_JPRB,&
1416
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.5301E-04_JPRB,3.2741E-04_JPRB,7.2069E-04_JPRB/)
1417 KAO( :, 5, 9, 7) = (/&
1418 & 2.5395E-04_JPRB,3.2629E-04_JPRB,3.5706E-04_JPRB,3.7496E-04_JPRB,3.8230E-04_JPRB,3.8101E-04_JPRB,&
1419
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.6964E-04_JPRB,3.4426E-04_JPRB,7.2393E-04_JPRB/)
1420 KAO( :, 1,10, 7) = (/&
1421 & 2.1916E-04_JPRB,2.6728E-04_JPRB,2.8357E-04_JPRB,2.9003E-04_JPRB,2.9019E-04_JPRB,2.8394E-04_JPRB,&
1422
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.6987E-04_JPRB,2.4557E-04_JPRB,2.2951E-03_JPRB/)
1423 KAO( :, 2,10, 7) = (/&
1424 & 2.2269E-04_JPRB,2.7508E-04_JPRB,2.9328E-04_JPRB,3.0170E-04_JPRB,3.0330E-04_JPRB,2.9810E-04_JPRB,&
1425
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.8439E-04_JPRB,2.5963E-04_JPRB,2.1937E-03_JPRB/)
1426 KAO( :, 3,10, 7) = (/&
1427 & 2.2592E-04_JPRB,2.8247E-04_JPRB,3.0321E-04_JPRB,3.1354E-04_JPRB,3.1659E-04_JPRB,3.1208E-04_JPRB,&
1428
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.9880E-04_JPRB,2.7415E-04_JPRB,2.1089E-03_JPRB/)
1429 KAO( :, 4,10, 7) = (/&
1430 & 2.2891E-04_JPRB,2.8992E-04_JPRB,3.1332E-04_JPRB,3.2558E-04_JPRB,3.2968E-04_JPRB,3.2576E-04_JPRB,&
1431
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.1353E-04_JPRB,2.8898E-04_JPRB,2.0353E-03_JPRB/)
1432 KAO( :, 5,10, 7) = (/&
1433 & 2.3224E-04_JPRB,2.9740E-04_JPRB,3.2354E-04_JPRB,3.3796E-04_JPRB,3.4280E-04_JPRB,3.3971E-04_JPRB,&
1434
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.2827E-04_JPRB,3.0414E-04_JPRB,1.9694E-03_JPRB/)
1435 KAO( :, 1,11, 7) = (/&
1436 & 1.9917E-04_JPRB,2.4536E-04_JPRB,2.5993E-04_JPRB,2.6557E-04_JPRB,2.6515E-04_JPRB,2.5837E-04_JPRB,&
1437
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4462E-04_JPRB,2.2066E-04_JPRB,3.1341E-03_JPRB/)
1438 KAO( :, 2,11, 7) = (/&
1439 & 2.0264E-04_JPRB,2.5224E-04_JPRB,2.6895E-04_JPRB,2.7632E-04_JPRB,2.7737E-04_JPRB,2.7142E-04_JPRB,&
1440
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.5767E-04_JPRB,2.3346E-04_JPRB,2.9845E-03_JPRB/)
1441 KAO( :, 3,11, 7) = (/&
1442 & 2.0597E-04_JPRB,2.5913E-04_JPRB,2.7799E-04_JPRB,2.8723E-04_JPRB,2.8930E-04_JPRB,2.8411E-04_JPRB,&
1443
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.7068E-04_JPRB,2.4666E-04_JPRB,2.8531E-03_JPRB/)
1444 KAO( :, 4,11, 7) = (/&
1445 & 2.0923E-04_JPRB,2.6606E-04_JPRB,2.8717E-04_JPRB,2.9817E-04_JPRB,3.0130E-04_JPRB,2.9662E-04_JPRB,&
1446
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.8382E-04_JPRB,2.6011E-04_JPRB,2.7344E-03_JPRB/)
1447 KAO( :, 5,11, 7) = (/&
1448 & 2.1283E-04_JPRB,2.7325E-04_JPRB,2.9677E-04_JPRB,3.0938E-04_JPRB,3.1326E-04_JPRB,3.0919E-04_JPRB,&
1449
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.9712E-04_JPRB,2.7384E-04_JPRB,2.6277E-03_JPRB/)
1450 KAO( :, 1,12, 7) = (/&
1451 & 1.7936E-04_JPRB,2.2328E-04_JPRB,2.3724E-04_JPRB,2.4243E-04_JPRB,2.4172E-04_JPRB,2.3478E-04_JPRB,&
1452
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2093E-04_JPRB,1.9737E-04_JPRB,3.2835E-03_JPRB/)
1453 KAO( :, 2,12, 7) = (/&
1454 & 1.8285E-04_JPRB,2.2978E-04_JPRB,2.4543E-04_JPRB,2.5241E-04_JPRB,2.5294E-04_JPRB,2.4651E-04_JPRB,&
1455
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.3266E-04_JPRB,2.0912E-04_JPRB,3.1216E-03_JPRB/)
1456 KAO( :, 3,12, 7) = (/&
1457 & 1.8634E-04_JPRB,2.3640E-04_JPRB,2.5382E-04_JPRB,2.6232E-04_JPRB,2.6378E-04_JPRB,2.5795E-04_JPRB,&
1458
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4444E-04_JPRB,2.2095E-04_JPRB,2.9752E-03_JPRB/)
1459 KAO( :, 4,12, 7) = (/&
1460 & 1.8978E-04_JPRB,2.4319E-04_JPRB,2.6232E-04_JPRB,2.7232E-04_JPRB,2.7477E-04_JPRB,2.6960E-04_JPRB,&
1461
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.5603E-04_JPRB,2.3306E-04_JPRB,2.8433E-03_JPRB/)
1462 KAO( :, 5,12, 7) = (/&
1463 & 1.9368E-04_JPRB,2.5043E-04_JPRB,2.7137E-04_JPRB,2.8261E-04_JPRB,2.8588E-04_JPRB,2.8109E-04_JPRB,&
1464
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.6784E-04_JPRB,2.4548E-04_JPRB,2.7264E-03_JPRB/)
1465 KAO( :, 1,13, 7) = (/&
1466 & 1.6014E-04_JPRB,2.0144E-04_JPRB,2.1482E-04_JPRB,2.1993E-04_JPRB,2.1918E-04_JPRB,2.1245E-04_JPRB,&
1467
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9850E-04_JPRB,1.7572E-04_JPRB,2.8014E-03_JPRB/)
1468 KAO( :, 2,13, 7) = (/&
1469 & 1.6372E-04_JPRB,2.0772E-04_JPRB,2.2263E-04_JPRB,2.2918E-04_JPRB,2.2929E-04_JPRB,2.2295E-04_JPRB,&
1470
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0909E-04_JPRB,1.8627E-04_JPRB,2.6597E-03_JPRB/)
1471 KAO( :, 3,13, 7) = (/&
1472 & 1.6711E-04_JPRB,2.1423E-04_JPRB,2.3053E-04_JPRB,2.3833E-04_JPRB,2.3922E-04_JPRB,2.3334E-04_JPRB,&
1473
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1968E-04_JPRB,1.9695E-04_JPRB,2.5327E-03_JPRB/)
1474 KAO( :, 4,13, 7) = (/&
1475 & 1.7075E-04_JPRB,2.2099E-04_JPRB,2.3863E-04_JPRB,2.4766E-04_JPRB,2.4941E-04_JPRB,2.4382E-04_JPRB,&
1476
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.3022E-04_JPRB,2.0776E-04_JPRB,2.4204E-03_JPRB/)
1477 KAO( :, 5,13, 7) = (/&
1478 & 1.7481E-04_JPRB,2.2827E-04_JPRB,2.4735E-04_JPRB,2.5731E-04_JPRB,2.5972E-04_JPRB,2.5434E-04_JPRB,&
1479
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4101E-04_JPRB,2.1916E-04_JPRB,2.3207E-03_JPRB/)
1480 KAO( :, 1, 1, 8) = (/&
1481 & 9.5608E-04_JPRB,1.1137E-03_JPRB,1.1928E-03_JPRB,1.2676E-03_JPRB,1.3453E-03_JPRB,1.4201E-03_JPRB,&
1482
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4858E-03_JPRB,1.4985E-03_JPRB,1.3296E-03_JPRB/)
1483 KAO( :, 2, 1, 8) = (/&
1484 & 9.5994E-04_JPRB,1.1580E-03_JPRB,1.2586E-03_JPRB,1.3444E-03_JPRB,1.4304E-03_JPRB,1.5065E-03_JPRB,&
1485
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5698E-03_JPRB,1.5822E-03_JPRB,1.4127E-03_JPRB/)
1486 KAO( :, 3, 1, 8) = (/&
1487 & 9.6434E-04_JPRB,1.2039E-03_JPRB,1.3295E-03_JPRB,1.4283E-03_JPRB,1.5240E-03_JPRB,1.6021E-03_JPRB,&
1488
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6610E-03_JPRB,1.6690E-03_JPRB,1.4964E-03_JPRB/)
1489 KAO( :, 4, 1, 8) = (/&
1490 & 9.6594E-04_JPRB,1.2459E-03_JPRB,1.3992E-03_JPRB,1.5151E-03_JPRB,1.6213E-03_JPRB,1.7037E-03_JPRB,&
1491
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7586E-03_JPRB,1.7581E-03_JPRB,1.5822E-03_JPRB/)
1492 KAO( :, 5, 1, 8) = (/&
1493 & 9.7112E-04_JPRB,1.2922E-03_JPRB,1.4733E-03_JPRB,1.6088E-03_JPRB,1.7251E-03_JPRB,1.8137E-03_JPRB,&
1494
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8637E-03_JPRB,1.8544E-03_JPRB,1.6729E-03_JPRB/)
1495 KAO( :, 1, 2, 8) = (/&
1496 & 9.2093E-04_JPRB,1.0546E-03_JPRB,1.1184E-03_JPRB,1.1877E-03_JPRB,1.2677E-03_JPRB,1.3451E-03_JPRB,&
1497
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4085E-03_JPRB,1.4282E-03_JPRB,1.2587E-03_JPRB/)
1498 KAO( :, 2, 2, 8) = (/&
1499 & 9.2391E-04_JPRB,1.0934E-03_JPRB,1.1705E-03_JPRB,1.2485E-03_JPRB,1.3345E-03_JPRB,1.4205E-03_JPRB,&
1500
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4904E-03_JPRB,1.5108E-03_JPRB,1.3375E-03_JPRB/)
1501 KAO( :, 3, 2, 8) = (/&
1502 & 9.2775E-04_JPRB,1.1328E-03_JPRB,1.2272E-03_JPRB,1.3169E-03_JPRB,1.4101E-03_JPRB,1.5006E-03_JPRB,&
1503
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5743E-03_JPRB,1.5928E-03_JPRB,1.4152E-03_JPRB/)
1504 KAO( :, 4, 2, 8) = (/&
1505 & 9.3033E-04_JPRB,1.1705E-03_JPRB,1.2842E-03_JPRB,1.3889E-03_JPRB,1.4909E-03_JPRB,1.5847E-03_JPRB,&
1506
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6559E-03_JPRB,1.6749E-03_JPRB,1.4953E-03_JPRB/)
1507 KAO( :, 5, 2, 8) = (/&
1508 & 9.3350E-04_JPRB,1.2078E-03_JPRB,1.3426E-03_JPRB,1.4642E-03_JPRB,1.5755E-03_JPRB,1.6738E-03_JPRB,&
1509
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7416E-03_JPRB,1.7599E-03_JPRB,1.5794E-03_JPRB/)
1510 KAO( :, 1, 3, 8) = (/&
1511 & 8.8225E-04_JPRB,9.9524E-04_JPRB,1.0564E-03_JPRB,1.1307E-03_JPRB,1.2003E-03_JPRB,1.2591E-03_JPRB,&
1512
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3108E-03_JPRB,1.3309E-03_JPRB,1.1549E-03_JPRB/)
1513 KAO( :, 2, 3, 8) = (/&
1514 & 8.8537E-04_JPRB,1.0284E-03_JPRB,1.0990E-03_JPRB,1.1784E-03_JPRB,1.2595E-03_JPRB,1.3310E-03_JPRB,&
1515
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3892E-03_JPRB,1.4138E-03_JPRB,1.2306E-03_JPRB/)
1516 KAO( :, 3, 3, 8) = (/&
1517 & 8.8781E-04_JPRB,1.0600E-03_JPRB,1.1442E-03_JPRB,1.2314E-03_JPRB,1.3222E-03_JPRB,1.4061E-03_JPRB,&
1518
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4693E-03_JPRB,1.4932E-03_JPRB,1.3048E-03_JPRB/)
1519 KAO( :, 4, 3, 8) = (/&
1520 & 8.9189E-04_JPRB,1.0939E-03_JPRB,1.1921E-03_JPRB,1.2907E-03_JPRB,1.3886E-03_JPRB,1.4820E-03_JPRB,&
1521
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5492E-03_JPRB,1.5703E-03_JPRB,1.3811E-03_JPRB/)
1522 KAO( :, 5, 3, 8) = (/&
1523 & 8.9438E-04_JPRB,1.1258E-03_JPRB,1.2397E-03_JPRB,1.3504E-03_JPRB,1.4556E-03_JPRB,1.5581E-03_JPRB,&
1524
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6301E-03_JPRB,1.6498E-03_JPRB,1.4607E-03_JPRB/)
1525 KAO( :, 1, 4, 8) = (/&
1526 & 8.3849E-04_JPRB,9.3566E-04_JPRB,1.0099E-03_JPRB,1.0816E-03_JPRB,1.1344E-03_JPRB,1.1752E-03_JPRB,&
1527
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2048E-03_JPRB,1.2139E-03_JPRB,1.0399E-03_JPRB/)
1528 KAO( :, 2, 4, 8) = (/&
1529 & 8.4244E-04_JPRB,9.6570E-04_JPRB,1.0454E-03_JPRB,1.1259E-03_JPRB,1.1888E-03_JPRB,1.2423E-03_JPRB,&
1530
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2800E-03_JPRB,1.2943E-03_JPRB,1.1122E-03_JPRB/)
1531 KAO( :, 3, 4, 8) = (/&
1532 & 8.4472E-04_JPRB,9.9456E-04_JPRB,1.0829E-03_JPRB,1.1722E-03_JPRB,1.2472E-03_JPRB,1.3102E-03_JPRB,&
1533
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3565E-03_JPRB,1.3722E-03_JPRB,1.1831E-03_JPRB/)
1534 KAO( :, 4, 4, 8) = (/&
1535 & 8.4703E-04_JPRB,1.0229E-03_JPRB,1.1215E-03_JPRB,1.2221E-03_JPRB,1.3077E-03_JPRB,1.3778E-03_JPRB,&
1536
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4318E-03_JPRB,1.4488E-03_JPRB,1.2549E-03_JPRB/)
1537 KAO( :, 5, 4, 8) = (/&
1538 & 8.5239E-04_JPRB,1.0541E-03_JPRB,1.1634E-03_JPRB,1.2735E-03_JPRB,1.3695E-03_JPRB,1.4485E-03_JPRB,&
1539
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5090E-03_JPRB,1.5277E-03_JPRB,1.3292E-03_JPRB/)
1540 KAO( :, 1, 5, 8) = (/&
1541 & 7.9083E-04_JPRB,8.8170E-04_JPRB,9.6674E-04_JPRB,1.0299E-03_JPRB,1.0698E-03_JPRB,1.0915E-03_JPRB,&
1542
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0968E-03_JPRB,1.0912E-03_JPRB,9.3090E-04_JPRB/)
1543 KAO( :, 2, 5, 8) = (/&
1544 & 7.9562E-04_JPRB,9.0868E-04_JPRB,9.9995E-04_JPRB,1.0720E-03_JPRB,1.1213E-03_JPRB,1.1526E-03_JPRB,&
1545
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
 10 & 1.1662E-03_JPRB,1.1662E-03_JPRB,9.9625E-04_JPRB/)
1546
1547
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART5',1,ZHOOK_HANDLE)
1548 1 END SUBROUTINE PART5
1549
1550
1551 1 SUBROUTINE PART6
1552
1553 REAL(KIND=JPRB) :: ZHOOK_HANDLE
1554
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART6',0,ZHOOK_HANDLE)
1555
1556
1557 KAO( :, 3, 5, 8) = (/&
1558 & 7.9829E-04_JPRB,9.3547E-04_JPRB,1.0342E-03_JPRB,1.1161E-03_JPRB,1.1759E-03_JPRB,1.2152E-03_JPRB,&
1559
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2368E-03_JPRB,1.2405E-03_JPRB,1.0609E-03_JPRB/)
1560 KAO( :, 4, 5, 8) = (/&
1561 & 8.0091E-04_JPRB,9.6089E-04_JPRB,1.0686E-03_JPRB,1.1624E-03_JPRB,1.2313E-03_JPRB,1.2778E-03_JPRB,&
1562
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3076E-03_JPRB,1.3141E-03_JPRB,1.1274E-03_JPRB/)
1563 KAO( :, 5, 5, 8) = (/&
1564 & 8.0636E-04_JPRB,9.8796E-04_JPRB,1.1047E-03_JPRB,1.2088E-03_JPRB,1.2883E-03_JPRB,1.3425E-03_JPRB,&
1565
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3805E-03_JPRB,1.3900E-03_JPRB,1.1960E-03_JPRB/)
1566 KAO( :, 1, 6, 8) = (/&
1567 & 7.4042E-04_JPRB,8.3357E-04_JPRB,9.1717E-04_JPRB,9.7114E-04_JPRB,1.0002E-03_JPRB,1.0057E-03_JPRB,&
1568
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.9270E-04_JPRB,9.6792E-04_JPRB,8.3659E-04_JPRB/)
1569 KAO( :, 2, 6, 8) = (/&
1570 & 7.4565E-04_JPRB,8.5743E-04_JPRB,9.4912E-04_JPRB,1.0119E-03_JPRB,1.0480E-03_JPRB,1.0602E-03_JPRB,&
1571
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0545E-03_JPRB,1.0369E-03_JPRB,8.9582E-04_JPRB/)
1572 KAO( :, 3, 6, 8) = (/&
1573 & 7.4922E-04_JPRB,8.8128E-04_JPRB,9.8142E-04_JPRB,1.0542E-03_JPRB,1.0980E-03_JPRB,1.1167E-03_JPRB,&
1574
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1185E-03_JPRB,1.1056E-03_JPRB,9.5443E-04_JPRB/)
1575 KAO( :, 4, 6, 8) = (/&
1576 & 7.5232E-04_JPRB,9.0308E-04_JPRB,1.0141E-03_JPRB,1.0981E-03_JPRB,1.1486E-03_JPRB,1.1744E-03_JPRB,&
1577
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1833E-03_JPRB,1.1741E-03_JPRB,1.0132E-03_JPRB/)
1578 KAO( :, 5, 6, 8) = (/&
1579 & 7.5627E-04_JPRB,9.2523E-04_JPRB,1.0466E-03_JPRB,1.1406E-03_JPRB,1.2001E-03_JPRB,1.2335E-03_JPRB,&
1580
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2490E-03_JPRB,1.2439E-03_JPRB,1.0736E-03_JPRB/)
1581 KAO( :, 1, 7, 8) = (/&
1582 & 6.8964E-04_JPRB,7.8723E-04_JPRB,8.6407E-04_JPRB,9.0570E-04_JPRB,9.2461E-04_JPRB,9.2134E-04_JPRB,&
1583
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.9655E-04_JPRB,8.5470E-04_JPRB,7.7227E-04_JPRB/)
1584 KAO( :, 2, 7, 8) = (/&
1585 & 6.9565E-04_JPRB,8.0904E-04_JPRB,8.9444E-04_JPRB,9.4366E-04_JPRB,9.6915E-04_JPRB,9.7063E-04_JPRB,&
1586
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.5066E-04_JPRB,9.1508E-04_JPRB,8.2464E-04_JPRB/)
1587 KAO( :, 3, 7, 8) = (/&
1588 & 7.0042E-04_JPRB,8.3032E-04_JPRB,9.2461E-04_JPRB,9.8296E-04_JPRB,1.0152E-03_JPRB,1.0214E-03_JPRB,&
1589
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0076E-03_JPRB,9.7640E-04_JPRB,8.7766E-04_JPRB/)
1590 KAO( :, 4, 7, 8) = (/&
1591 & 7.0426E-04_JPRB,8.4981E-04_JPRB,9.5485E-04_JPRB,1.0240E-03_JPRB,1.0623E-03_JPRB,1.0734E-03_JPRB,&
1592
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0651E-03_JPRB,1.0378E-03_JPRB,9.3187E-04_JPRB/)
1593 KAO( :, 5, 7, 8) = (/&
1594 & 7.0821E-04_JPRB,8.6946E-04_JPRB,9.8537E-04_JPRB,1.0646E-03_JPRB,1.1098E-03_JPRB,1.1263E-03_JPRB,&
1595
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1245E-03_JPRB,1.1007E-03_JPRB,9.8663E-04_JPRB/)
1596 KAO( :, 1, 8, 8) = (/&
1597 & 6.4047E-04_JPRB,7.3858E-04_JPRB,8.0453E-04_JPRB,8.3694E-04_JPRB,8.4619E-04_JPRB,8.3765E-04_JPRB,&
1598
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.0766E-04_JPRB,7.5466E-04_JPRB,8.2781E-04_JPRB/)
1599 KAO( :, 2, 8, 8) = (/&
1600 & 6.4742E-04_JPRB,7.5904E-04_JPRB,8.3405E-04_JPRB,8.7266E-04_JPRB,8.8676E-04_JPRB,8.8236E-04_JPRB,&
1601
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.5570E-04_JPRB,8.0688E-04_JPRB,8.7433E-04_JPRB/)
1602 KAO( :, 3, 8, 8) = (/&
1603 & 6.5283E-04_JPRB,7.7980E-04_JPRB,8.6316E-04_JPRB,9.0850E-04_JPRB,9.2898E-04_JPRB,9.2841E-04_JPRB,&
1604
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.0551E-04_JPRB,8.6048E-04_JPRB,9.2376E-04_JPRB/)
1605 KAO( :, 4, 8, 8) = (/&
1606 & 6.5707E-04_JPRB,7.9894E-04_JPRB,8.9224E-04_JPRB,9.4602E-04_JPRB,9.7258E-04_JPRB,9.7562E-04_JPRB,&
1607
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.5565E-04_JPRB,9.1442E-04_JPRB,9.7371E-04_JPRB/)
1608 KAO( :, 5, 8, 8) = (/&
1609 & 6.6119E-04_JPRB,8.1764E-04_JPRB,9.2118E-04_JPRB,9.8357E-04_JPRB,1.0164E-03_JPRB,1.0233E-03_JPRB,&
1610
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0075E-03_JPRB,9.7011E-04_JPRB,1.0250E-03_JPRB/)
1611 KAO( :, 1, 9, 8) = (/&
1612 & 5.9304E-04_JPRB,6.8835E-04_JPRB,7.4179E-04_JPRB,7.6634E-04_JPRB,7.7050E-04_JPRB,7.5604E-04_JPRB,&
1613
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.2393E-04_JPRB,6.6767E-04_JPRB,1.3527E-03_JPRB/)
1614 KAO( :, 2, 9, 8) = (/&
1615 & 6.0061E-04_JPRB,7.0826E-04_JPRB,7.7005E-04_JPRB,7.9970E-04_JPRB,8.0682E-04_JPRB,7.9622E-04_JPRB,&
1616
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.6713E-04_JPRB,7.1229E-04_JPRB,1.3810E-03_JPRB/)
1617 KAO( :, 3, 9, 8) = (/&
1618 & 6.0690E-04_JPRB,7.2826E-04_JPRB,7.9782E-04_JPRB,8.3277E-04_JPRB,8.4414E-04_JPRB,8.3763E-04_JPRB,&
1619
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.1182E-04_JPRB,7.5863E-04_JPRB,1.4228E-03_JPRB/)
1620 KAO( :, 4, 9, 8) = (/&
1621 & 6.1167E-04_JPRB,7.4710E-04_JPRB,8.2533E-04_JPRB,8.6687E-04_JPRB,8.8342E-04_JPRB,8.8028E-04_JPRB,&
1622
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.5678E-04_JPRB,8.0590E-04_JPRB,1.4759E-03_JPRB/)
1623 KAO( :, 5, 9, 8) = (/&
1624 & 6.1627E-04_JPRB,7.6539E-04_JPRB,8.5255E-04_JPRB,9.0125E-04_JPRB,9.2320E-04_JPRB,9.2321E-04_JPRB,&
1625
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.0266E-04_JPRB,8.5442E-04_JPRB,1.5365E-03_JPRB/)
1626 KAO( :, 1,10, 8) = (/&
1627 & 5.4825E-04_JPRB,6.3891E-04_JPRB,6.8254E-04_JPRB,7.0037E-04_JPRB,6.9928E-04_JPRB,6.8268E-04_JPRB,&
1628
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.4957E-04_JPRB,5.9476E-04_JPRB,3.8180E-03_JPRB/)
1629 KAO( :, 2,10, 8) = (/&
1630 & 5.5676E-04_JPRB,6.5829E-04_JPRB,7.0890E-04_JPRB,7.3100E-04_JPRB,7.3257E-04_JPRB,7.1817E-04_JPRB,&
1631
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.8748E-04_JPRB,6.3344E-04_JPRB,3.7319E-03_JPRB/)
1632 KAO( :, 3,10, 8) = (/&
1633 & 5.6387E-04_JPRB,6.7778E-04_JPRB,7.3493E-04_JPRB,7.6099E-04_JPRB,7.6595E-04_JPRB,7.5519E-04_JPRB,&
1634
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.2717E-04_JPRB,6.7342E-04_JPRB,3.6841E-03_JPRB/)
1635 KAO( :, 4,10, 8) = (/&
1636 & 5.6965E-04_JPRB,6.9628E-04_JPRB,7.6095E-04_JPRB,7.9168E-04_JPRB,8.0061E-04_JPRB,7.9369E-04_JPRB,&
1637
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.6769E-04_JPRB,7.1402E-04_JPRB,3.6718E-03_JPRB/)
1638 KAO( :, 5,10, 8) = (/&
1639 & 5.7483E-04_JPRB,7.1426E-04_JPRB,7.8640E-04_JPRB,8.2247E-04_JPRB,8.3634E-04_JPRB,8.3289E-04_JPRB,&
1640
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.0894E-04_JPRB,7.5561E-04_JPRB,3.6884E-03_JPRB/)
1641 KAO( :, 1,11, 8) = (/&
1642 & 5.0971E-04_JPRB,5.9908E-04_JPRB,6.3716E-04_JPRB,6.5075E-04_JPRB,6.4646E-04_JPRB,6.2883E-04_JPRB,&
1643
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.9611E-04_JPRB,5.4516E-04_JPRB,5.2044E-03_JPRB/)
1644 KAO( :, 2,11, 8) = (/&
1645 & 5.1851E-04_JPRB,6.1830E-04_JPRB,6.6103E-04_JPRB,6.7814E-04_JPRB,6.7644E-04_JPRB,6.6100E-04_JPRB,&
1646
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.3054E-04_JPRB,5.7922E-04_JPRB,5.0472E-03_JPRB/)
1647 KAO( :, 3,11, 8) = (/&
1648 & 5.2576E-04_JPRB,6.3685E-04_JPRB,6.8508E-04_JPRB,7.0561E-04_JPRB,7.0702E-04_JPRB,6.9454E-04_JPRB,&
1649
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.6622E-04_JPRB,6.1448E-04_JPRB,4.9485E-03_JPRB/)
1650 KAO( :, 4,11, 8) = (/&
1651 & 5.3230E-04_JPRB,6.5426E-04_JPRB,7.0906E-04_JPRB,7.3336E-04_JPRB,7.3854E-04_JPRB,7.2917E-04_JPRB,&
1652
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.0247E-04_JPRB,6.5031E-04_JPRB,4.8945E-03_JPRB/)
1653 KAO( :, 5,11, 8) = (/&
1654 & 5.3825E-04_JPRB,6.7152E-04_JPRB,7.3265E-04_JPRB,7.6088E-04_JPRB,7.7057E-04_JPRB,7.6479E-04_JPRB,&
1655
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.3945E-04_JPRB,6.8664E-04_JPRB,4.8718E-03_JPRB/)
1656 KAO( :, 1,12, 8) = (/&
1657 & 4.7268E-04_JPRB,5.5911E-04_JPRB,5.9221E-04_JPRB,6.0202E-04_JPRB,5.9599E-04_JPRB,5.7673E-04_JPRB,&
1658
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.4567E-04_JPRB,4.9766E-04_JPRB,5.4784E-03_JPRB/)
1659 KAO( :, 2,12, 8) = (/&
1660 & 4.8142E-04_JPRB,5.7788E-04_JPRB,6.1435E-04_JPRB,6.2655E-04_JPRB,6.2325E-04_JPRB,6.0670E-04_JPRB,&
1661
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.7673E-04_JPRB,5.2800E-04_JPRB,5.3059E-03_JPRB/)
1662 KAO( :, 3,12, 8) = (/&
1663 & 4.8905E-04_JPRB,5.9521E-04_JPRB,6.3638E-04_JPRB,6.5188E-04_JPRB,6.5138E-04_JPRB,6.3718E-04_JPRB,&
1664
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.0852E-04_JPRB,5.5928E-04_JPRB,5.1929E-03_JPRB/)
1665 KAO( :, 4,12, 8) = (/&
1666 & 4.9586E-04_JPRB,6.1204E-04_JPRB,6.5810E-04_JPRB,6.7725E-04_JPRB,6.7983E-04_JPRB,6.6800E-04_JPRB,&
1667
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.4102E-04_JPRB,5.9098E-04_JPRB,5.1181E-03_JPRB/)
1668 KAO( :, 5,12, 8) = (/&
1669 & 5.0219E-04_JPRB,6.2893E-04_JPRB,6.7933E-04_JPRB,7.0239E-04_JPRB,7.0829E-04_JPRB,6.9992E-04_JPRB,&
1670
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.7457E-04_JPRB,6.2315E-04_JPRB,5.0659E-03_JPRB/)
1671 KAO( :, 1,13, 8) = (/&
1672 & 4.3613E-04_JPRB,5.1896E-04_JPRB,5.4757E-04_JPRB,5.5450E-04_JPRB,5.4716E-04_JPRB,5.2848E-04_JPRB,&
1673
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.9828E-04_JPRB,4.5179E-04_JPRB,4.7039E-03_JPRB/)
1674 KAO( :, 2,13, 8) = (/&
1675 & 4.4480E-04_JPRB,5.3652E-04_JPRB,5.6828E-04_JPRB,5.7733E-04_JPRB,5.7232E-04_JPRB,5.5571E-04_JPRB,&
1676
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.2643E-04_JPRB,4.7940E-04_JPRB,4.5588E-03_JPRB/)
1677 KAO( :, 3,13, 8) = (/&
1678 & 4.5255E-04_JPRB,5.5296E-04_JPRB,5.8851E-04_JPRB,6.0068E-04_JPRB,5.9826E-04_JPRB,5.8320E-04_JPRB,&
1679
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.5480E-04_JPRB,5.0729E-04_JPRB,4.4582E-03_JPRB/)
1680 KAO( :, 4,13, 8) = (/&
1681 & 4.5948E-04_JPRB,5.6913E-04_JPRB,6.0860E-04_JPRB,6.2380E-04_JPRB,6.2384E-04_JPRB,6.1098E-04_JPRB,&
1682
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.8363E-04_JPRB,5.3555E-04_JPRB,4.3840E-03_JPRB/)
1683 KAO( :, 5,13, 8) = (/&
1684 & 4.6648E-04_JPRB,5.8526E-04_JPRB,6.2843E-04_JPRB,6.4682E-04_JPRB,6.4977E-04_JPRB,6.3953E-04_JPRB,&
1685
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.1349E-04_JPRB,5.6436E-04_JPRB,4.3301E-03_JPRB/)
1686 KAO( :, 1, 1, 9) = (/&
1687 & 4.2634E-03_JPRB,4.4619E-03_JPRB,4.8277E-03_JPRB,5.0574E-03_JPRB,5.1432E-03_JPRB,5.0824E-03_JPRB,&
1688
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.7995E-03_JPRB,4.2519E-03_JPRB,3.6751E-03_JPRB/)
1689 KAO( :, 2, 1, 9) = (/&
1690 & 4.3896E-03_JPRB,4.7056E-03_JPRB,5.1713E-03_JPRB,5.4539E-03_JPRB,5.5796E-03_JPRB,5.5445E-03_JPRB,&
1691
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.2467E-03_JPRB,4.6622E-03_JPRB,4.1226E-03_JPRB/)
1692 KAO( :, 3, 1, 9) = (/&
1693 & 4.5152E-03_JPRB,4.9543E-03_JPRB,5.5160E-03_JPRB,5.8544E-03_JPRB,6.0168E-03_JPRB,5.9967E-03_JPRB,&
1694
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.6895E-03_JPRB,5.0855E-03_JPRB,4.6113E-03_JPRB/)
1695 KAO( :, 4, 1, 9) = (/&
1696 & 4.6230E-03_JPRB,5.1933E-03_JPRB,5.8501E-03_JPRB,6.2450E-03_JPRB,6.4433E-03_JPRB,6.4316E-03_JPRB,&
1697
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.1283E-03_JPRB,5.5148E-03_JPRB,5.1307E-03_JPRB/)
1698 KAO( :, 5, 1, 9) = (/&
1699 & 4.7302E-03_JPRB,5.4309E-03_JPRB,6.1815E-03_JPRB,6.6303E-03_JPRB,6.8597E-03_JPRB,6.8605E-03_JPRB,&
1700
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.5693E-03_JPRB,5.9487E-03_JPRB,5.6753E-03_JPRB/)
1701 KAO( :, 1, 2, 9) = (/&
1702 & 3.9323E-03_JPRB,4.1568E-03_JPRB,4.4806E-03_JPRB,4.6618E-03_JPRB,4.7304E-03_JPRB,4.6715E-03_JPRB,&
1703
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.4161E-03_JPRB,3.9503E-03_JPRB,3.3395E-03_JPRB/)
1704 KAO( :, 2, 2, 9) = (/&
1705 & 4.0500E-03_JPRB,4.3934E-03_JPRB,4.8123E-03_JPRB,5.0480E-03_JPRB,5.1574E-03_JPRB,5.1013E-03_JPRB,&
1706
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.8274E-03_JPRB,4.3142E-03_JPRB,3.7073E-03_JPRB/)
1707 KAO( :, 3, 2, 9) = (/&
1708 & 4.1698E-03_JPRB,4.6359E-03_JPRB,5.1475E-03_JPRB,5.4370E-03_JPRB,5.5831E-03_JPRB,5.5288E-03_JPRB,&
1709
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.2416E-03_JPRB,4.6953E-03_JPRB,4.1146E-03_JPRB/)
1710 KAO( :, 4, 2, 9) = (/&
1711 & 4.2783E-03_JPRB,4.8739E-03_JPRB,5.4745E-03_JPRB,5.8228E-03_JPRB,5.9955E-03_JPRB,5.9514E-03_JPRB,&
1712
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.6672E-03_JPRB,5.0790E-03_JPRB,4.5488E-03_JPRB/)
1713 KAO( :, 5, 2, 9) = (/&
1714 & 4.3743E-03_JPRB,5.1081E-03_JPRB,5.7929E-03_JPRB,6.1965E-03_JPRB,6.3958E-03_JPRB,6.3715E-03_JPRB,&
1715
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.0950E-03_JPRB,5.4684E-03_JPRB,5.0068E-03_JPRB/)
1716 KAO( :, 1, 3, 9) = (/&
1717 & 3.6113E-03_JPRB,3.8183E-03_JPRB,4.0778E-03_JPRB,4.1984E-03_JPRB,4.2534E-03_JPRB,4.2158E-03_JPRB,&
1718
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.0193E-03_JPRB,3.6415E-03_JPRB,3.0570E-03_JPRB/)
1719 KAO( :, 2, 3, 9) = (/&
1720 & 3.7209E-03_JPRB,4.0412E-03_JPRB,4.3896E-03_JPRB,4.5667E-03_JPRB,4.6475E-03_JPRB,4.5983E-03_JPRB,&
1721
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.3872E-03_JPRB,3.9635E-03_JPRB,3.3466E-03_JPRB/)
1722 KAO( :, 3, 3, 9) = (/&
1723 & 3.8298E-03_JPRB,4.2704E-03_JPRB,4.6995E-03_JPRB,4.9388E-03_JPRB,5.0426E-03_JPRB,4.9845E-03_JPRB,&
1724
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.7617E-03_JPRB,4.3009E-03_JPRB,3.6653E-03_JPRB/)
1725 KAO( :, 4, 3, 9) = (/&
1726 & 3.9362E-03_JPRB,4.5071E-03_JPRB,5.0123E-03_JPRB,5.3097E-03_JPRB,5.4362E-03_JPRB,5.3784E-03_JPRB,&
1727
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.1527E-03_JPRB,4.6419E-03_JPRB,4.0116E-03_JPRB/)
1728 KAO( :, 5, 3, 9) = (/&
1729 & 4.0246E-03_JPRB,4.7366E-03_JPRB,5.3187E-03_JPRB,5.6677E-03_JPRB,5.8209E-03_JPRB,5.7784E-03_JPRB,&
1730
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.5482E-03_JPRB,4.9812E-03_JPRB,4.3840E-03_JPRB/)
1731 KAO( :, 1, 4, 9) = (/&
1732 & 3.3284E-03_JPRB,3.4973E-03_JPRB,3.6827E-03_JPRB,3.7696E-03_JPRB,3.8145E-03_JPRB,3.7973E-03_JPRB,&
1733
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.6757E-03_JPRB,3.3953E-03_JPRB,2.8711E-03_JPRB/)
1734 KAO( :, 2, 4, 9) = (/&
1735 & 3.4305E-03_JPRB,3.7049E-03_JPRB,3.9652E-03_JPRB,4.1049E-03_JPRB,4.1671E-03_JPRB,4.1383E-03_JPRB,&
1736
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.9965E-03_JPRB,3.6722E-03_JPRB,3.0945E-03_JPRB/)
1737 KAO( :, 3, 4, 9) = (/&
1738 & 3.5295E-03_JPRB,3.9206E-03_JPRB,4.2522E-03_JPRB,4.4452E-03_JPRB,4.5189E-03_JPRB,4.4874E-03_JPRB,&
1739
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.3285E-03_JPRB,3.9676E-03_JPRB,3.3441E-03_JPRB/)
1740 KAO( :, 4, 4, 9) = (/&
1741 & 3.6215E-03_JPRB,4.1396E-03_JPRB,4.5422E-03_JPRB,4.7812E-03_JPRB,4.8736E-03_JPRB,4.8440E-03_JPRB,&
1742
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.6768E-03_JPRB,4.2674E-03_JPRB,3.6212E-03_JPRB/)
1743 KAO( :, 5, 4, 9) = (/&
1744 & 3.7121E-03_JPRB,4.3594E-03_JPRB,4.8380E-03_JPRB,5.1176E-03_JPRB,5.2295E-03_JPRB,5.2140E-03_JPRB,&
1745
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.0347E-03_JPRB,4.5696E-03_JPRB,3.9241E-03_JPRB/)
1746 KAO( :, 1, 5, 9) = (/&
1747 & 3.0937E-03_JPRB,3.2190E-03_JPRB,3.3382E-03_JPRB,3.4069E-03_JPRB,3.4508E-03_JPRB,3.4576E-03_JPRB,&
1748
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.4038E-03_JPRB,3.2121E-03_JPRB,2.7159E-03_JPRB/)
1749 KAO( :, 2, 5, 9) = (/&
1750 & 3.1841E-03_JPRB,3.4102E-03_JPRB,3.5885E-03_JPRB,3.6988E-03_JPRB,3.7561E-03_JPRB,3.7570E-03_JPRB,&
1751
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.6806E-03_JPRB,3.4524E-03_JPRB,2.9248E-03_JPRB/)
1752 KAO( :, 3, 5, 9) = (/&
1753 & 3.2704E-03_JPRB,3.6051E-03_JPRB,3.8485E-03_JPRB,3.9980E-03_JPRB,4.0672E-03_JPRB,4.0649E-03_JPRB,&
1754
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.9688E-03_JPRB,3.7070E-03_JPRB,3.1394E-03_JPRB/)
1755 KAO( :, 4, 5, 9) = (/&
1756 & 3.3530E-03_JPRB,3.8023E-03_JPRB,4.1127E-03_JPRB,4.2944E-03_JPRB,4.3822E-03_JPRB,4.3830E-03_JPRB,&
1757
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.2728E-03_JPRB,3.9665E-03_JPRB,3.3644E-03_JPRB/)
1758 KAO( :, 5, 5, 9) = (/&
1759 & 3.4386E-03_JPRB,4.0026E-03_JPRB,4.3842E-03_JPRB,4.5975E-03_JPRB,4.7014E-03_JPRB,4.7133E-03_JPRB,&
1760
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.5874E-03_JPRB,4.2339E-03_JPRB,3.6103E-03_JPRB/)
1761 KAO( :, 1, 6, 9) = (/&
1762 & 2.9009E-03_JPRB,2.9757E-03_JPRB,3.0499E-03_JPRB,3.1038E-03_JPRB,3.1541E-03_JPRB,3.1847E-03_JPRB,&
1763
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.1836E-03_JPRB,3.0557E-03_JPRB,2.5583E-03_JPRB/)
1764 KAO( :, 2, 6, 9) = (/&
1765 & 2.9774E-03_JPRB,3.1460E-03_JPRB,3.2679E-03_JPRB,3.3537E-03_JPRB,3.4147E-03_JPRB,3.4421E-03_JPRB,&
1766
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.4203E-03_JPRB,3.2723E-03_JPRB,2.7519E-03_JPRB/)
1767 KAO( :, 3, 6, 9) = (/&
1768 & 3.0522E-03_JPRB,3.3185E-03_JPRB,3.4964E-03_JPRB,3.6100E-03_JPRB,3.6827E-03_JPRB,3.7087E-03_JPRB,&
1769
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.6668E-03_JPRB,3.4927E-03_JPRB,2.9536E-03_JPRB/)
1770 KAO( :, 4, 6, 9) = (/&
1771 & 3.1282E-03_JPRB,3.4957E-03_JPRB,3.7291E-03_JPRB,3.8695E-03_JPRB,3.9556E-03_JPRB,3.9847E-03_JPRB,&
1772
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.9266E-03_JPRB,3.7176E-03_JPRB,3.1650E-03_JPRB/)
1773 KAO( :, 5, 6, 9) = (/&
1774 & 3.1999E-03_JPRB,3.6746E-03_JPRB,3.9646E-03_JPRB,4.1331E-03_JPRB,4.2341E-03_JPRB,4.2712E-03_JPRB,&
1775
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.1979E-03_JPRB,3.9512E-03_JPRB,3.3876E-03_JPRB/)
1776 KAO( :, 1, 7, 9) = (/&
1777 & 2.7415E-03_JPRB,2.7746E-03_JPRB,2.8210E-03_JPRB,2.8741E-03_JPRB,2.9327E-03_JPRB,2.9829E-03_JPRB,&
1778
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.9928E-03_JPRB,2.8802E-03_JPRB,2.4517E-03_JPRB/)
1779 KAO( :, 2, 7, 9) = (/&
1780 & 2.8079E-03_JPRB,2.9223E-03_JPRB,3.0084E-03_JPRB,3.0853E-03_JPRB,3.1485E-03_JPRB,3.1999E-03_JPRB,&
1781
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.2078E-03_JPRB,3.0910E-03_JPRB,2.6310E-03_JPRB/)
1782 KAO( :, 3, 7, 9) = (/&
1783 & 2.8746E-03_JPRB,3.0732E-03_JPRB,3.2043E-03_JPRB,3.3040E-03_JPRB,3.3751E-03_JPRB,3.4239E-03_JPRB,&
1784
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.4236E-03_JPRB,3.2999E-03_JPRB,2.8151E-03_JPRB/)
1785 KAO( :, 4, 7, 9) = (/&
1786 & 2.9412E-03_JPRB,3.2304E-03_JPRB,3.4053E-03_JPRB,3.5266E-03_JPRB,3.6086E-03_JPRB,3.6573E-03_JPRB,&
1787
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.6460E-03_JPRB,3.5085E-03_JPRB,3.0037E-03_JPRB/)
1788 KAO( :, 5, 7, 9) = (/&
1789 & 3.0012E-03_JPRB,3.3903E-03_JPRB,3.6088E-03_JPRB,3.7519E-03_JPRB,3.8465E-03_JPRB,3.9004E-03_JPRB,&
1790
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.8789E-03_JPRB,3.7197E-03_JPRB,3.2035E-03_JPRB/)
1791 KAO( :, 1, 8, 9) = (/&
1792 & 2.6011E-03_JPRB,2.6087E-03_JPRB,2.6505E-03_JPRB,2.7115E-03_JPRB,2.7795E-03_JPRB,2.8145E-03_JPRB,&
1793
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.7964E-03_JPRB,2.6829E-03_JPRB,2.5124E-03_JPRB/)
1794 KAO( :, 2, 8, 9) = (/&
1795 & 2.6605E-03_JPRB,2.7384E-03_JPRB,2.8102E-03_JPRB,2.8876E-03_JPRB,2.9588E-03_JPRB,3.0106E-03_JPRB,&
1796
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.9995E-03_JPRB,2.8886E-03_JPRB,2.6866E-03_JPRB/)
1797 KAO( :, 3, 8, 9) = (/&
1798 & 2.7221E-03_JPRB,2.8708E-03_JPRB,2.9770E-03_JPRB,3.0697E-03_JPRB,3.1469E-03_JPRB,3.2045E-03_JPRB,&
1799
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.2054E-03_JPRB,3.0872E-03_JPRB,2.8608E-03_JPRB/)
1800 KAO( :, 4, 8, 9) = (/&
1801 & 2.7814E-03_JPRB,3.0087E-03_JPRB,3.1469E-03_JPRB,3.2564E-03_JPRB,3.3407E-03_JPRB,3.4007E-03_JPRB,&
1802
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.4134E-03_JPRB,3.2854E-03_JPRB,3.0367E-03_JPRB/)
1803 KAO( :, 5, 8, 9) = (/&
1804 & 2.8334E-03_JPRB,3.1463E-03_JPRB,3.3224E-03_JPRB,3.4471E-03_JPRB,3.5390E-03_JPRB,3.6049E-03_JPRB,&
1805
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.6218E-03_JPRB,3.4862E-03_JPRB,3.2148E-03_JPRB/)
1806 KAO( :, 1, 9, 9) = (/&
1807 & 2.4681E-03_JPRB,2.4670E-03_JPRB,2.5193E-03_JPRB,2.5927E-03_JPRB,2.6437E-03_JPRB,2.6462E-03_JPRB,&
1808
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.5937E-03_JPRB,2.4688E-03_JPRB,4.0106E-03_JPRB/)
1809 KAO( :, 2, 9, 9) = (/&
1810 & 2.5243E-03_JPRB,2.5823E-03_JPRB,2.6553E-03_JPRB,2.7401E-03_JPRB,2.8086E-03_JPRB,2.8274E-03_JPRB,&
1811
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.7863E-03_JPRB,2.6637E-03_JPRB,4.1870E-03_JPRB/)
1812 KAO( :, 3, 9, 9) = (/&
1813 & 2.5817E-03_JPRB,2.6985E-03_JPRB,2.7975E-03_JPRB,2.8934E-03_JPRB,2.9743E-03_JPRB,3.0076E-03_JPRB,&
1814
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.9804E-03_JPRB,2.8541E-03_JPRB,4.3637E-03_JPRB/)
1815 KAO( :, 4, 9, 9) = (/&
1816 & 2.6357E-03_JPRB,2.8178E-03_JPRB,2.9439E-03_JPRB,3.0496E-03_JPRB,3.1384E-03_JPRB,3.1881E-03_JPRB,&
1817
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.1729E-03_JPRB,3.0435E-03_JPRB,4.5427E-03_JPRB/)
1818 KAO( :, 5, 9, 9) = (/&
1819 & 2.6826E-03_JPRB,2.9379E-03_JPRB,3.0923E-03_JPRB,3.2096E-03_JPRB,3.3016E-03_JPRB,3.3682E-03_JPRB,&
1820
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.3659E-03_JPRB,3.2338E-03_JPRB,4.7326E-03_JPRB/)
1821 KAO( :, 1,10, 9) = (/&
1822 & 2.3365E-03_JPRB,2.3445E-03_JPRB,2.4180E-03_JPRB,2.4933E-03_JPRB,2.5143E-03_JPRB,2.4864E-03_JPRB,&
1823
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4076E-03_JPRB,2.2631E-03_JPRB,1.0002E-02_JPRB/)
1824 KAO( :, 2,10, 9) = (/&
1825 & 2.3916E-03_JPRB,2.4482E-03_JPRB,2.5366E-03_JPRB,2.6275E-03_JPRB,2.6688E-03_JPRB,2.6554E-03_JPRB,&
1826
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.5866E-03_JPRB,2.4438E-03_JPRB,1.0188E-02_JPRB/)
1827 KAO( :, 3,10, 9) = (/&
1828 & 2.4458E-03_JPRB,2.5525E-03_JPRB,2.6602E-03_JPRB,2.7640E-03_JPRB,2.8222E-03_JPRB,2.8241E-03_JPRB,&
1829
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.7676E-03_JPRB,2.6219E-03_JPRB,1.0447E-02_JPRB/)
1830 KAO( :, 4,10, 9) = (/&
1831 & 2.4945E-03_JPRB,2.6579E-03_JPRB,2.7873E-03_JPRB,2.8998E-03_JPRB,2.9729E-03_JPRB,2.9898E-03_JPRB,&
1832
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.9465E-03_JPRB,2.7998E-03_JPRB,1.0769E-02_JPRB/)
1833 KAO( :, 5,10, 9) = (/&
1834 & 2.5382E-03_JPRB,2.7637E-03_JPRB,2.9128E-03_JPRB,3.0348E-03_JPRB,3.1210E-03_JPRB,3.1536E-03_JPRB,&
1835
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.1245E-03_JPRB,2.9806E-03_JPRB,1.1144E-02_JPRB/)
1836 KAO( :, 1,11, 9) = (/&
1837 & 2.2189E-03_JPRB,2.2637E-03_JPRB,2.3663E-03_JPRB,2.4375E-03_JPRB,2.4436E-03_JPRB,2.3971E-03_JPRB,&
1838
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2998E-03_JPRB,2.1349E-03_JPRB,1.4165E-02_JPRB/)
1839 KAO( :, 2,11, 9) = (/&
1840 & 2.2725E-03_JPRB,2.3594E-03_JPRB,2.4775E-03_JPRB,2.5648E-03_JPRB,2.5873E-03_JPRB,2.5525E-03_JPRB,&
1841
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4655E-03_JPRB,2.2999E-03_JPRB,1.4362E-02_JPRB/)
1842 KAO( :, 3,11, 9) = (/&
1843 & 2.3225E-03_JPRB,2.4563E-03_JPRB,2.5905E-03_JPRB,2.6905E-03_JPRB,2.7282E-03_JPRB,2.7081E-03_JPRB,&
1844
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
 10 & 2.6314E-03_JPRB,2.4622E-03_JPRB,1.4689E-02_JPRB/)
1845
1846
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART6',1,ZHOOK_HANDLE)
1847 1 END SUBROUTINE PART6
1848
1849
1850 1 SUBROUTINE PART7
1851
1852 REAL(KIND=JPRB) :: ZHOOK_HANDLE
1853
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART7',0,ZHOOK_HANDLE)
1854
1855
1856 KAO( :, 4,11, 9) = (/&
1857 & 2.3671E-03_JPRB,2.5537E-03_JPRB,2.7011E-03_JPRB,2.8153E-03_JPRB,2.8667E-03_JPRB,2.8616E-03_JPRB,&
1858
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.7947E-03_JPRB,2.6271E-03_JPRB,1.5129E-02_JPRB/)
1859 KAO( :, 5,11, 9) = (/&
1860 & 2.4082E-03_JPRB,2.6482E-03_JPRB,2.8083E-03_JPRB,2.9363E-03_JPRB,3.0040E-03_JPRB,3.0155E-03_JPRB,&
1861
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.9597E-03_JPRB,2.7977E-03_JPRB,1.5652E-02_JPRB/)
1862 KAO( :, 1,12, 9) = (/&
1863 & 2.0910E-03_JPRB,2.1698E-03_JPRB,2.2939E-03_JPRB,2.3579E-03_JPRB,2.3558E-03_JPRB,2.2934E-03_JPRB,&
1864
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1816E-03_JPRB,2.0022E-03_JPRB,1.5828E-02_JPRB/)
1865 KAO( :, 2,12, 9) = (/&
1866 & 2.1414E-03_JPRB,2.2595E-03_JPRB,2.4019E-03_JPRB,2.4797E-03_JPRB,2.4872E-03_JPRB,2.4364E-03_JPRB,&
1867
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.3325E-03_JPRB,2.1497E-03_JPRB,1.6052E-02_JPRB/)
1868 KAO( :, 3,12, 9) = (/&
1869 & 2.1876E-03_JPRB,2.3512E-03_JPRB,2.5089E-03_JPRB,2.5983E-03_JPRB,2.6170E-03_JPRB,2.5791E-03_JPRB,&
1870
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4816E-03_JPRB,2.2977E-03_JPRB,1.6424E-02_JPRB/)
1871 KAO( :, 4,12, 9) = (/&
1872 & 2.2305E-03_JPRB,2.4411E-03_JPRB,2.6103E-03_JPRB,2.7123E-03_JPRB,2.7468E-03_JPRB,2.7221E-03_JPRB,&
1873
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.6302E-03_JPRB,2.4491E-03_JPRB,1.6928E-02_JPRB/)
1874 KAO( :, 5,12, 9) = (/&
1875 & 2.2685E-03_JPRB,2.5264E-03_JPRB,2.7071E-03_JPRB,2.8237E-03_JPRB,2.8760E-03_JPRB,2.8651E-03_JPRB,&
1876
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.7812E-03_JPRB,2.6061E-03_JPRB,1.7523E-02_JPRB/)
1877 KAO( :, 1,13, 9) = (/&
1878 & 1.9577E-03_JPRB,2.0704E-03_JPRB,2.2038E-03_JPRB,2.2584E-03_JPRB,2.2491E-03_JPRB,2.1789E-03_JPRB,&
1879
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0585E-03_JPRB,1.8702E-03_JPRB,1.4483E-02_JPRB/)
1880 KAO( :, 2,13, 9) = (/&
1881 & 2.0058E-03_JPRB,2.1546E-03_JPRB,2.3069E-03_JPRB,2.3735E-03_JPRB,2.3721E-03_JPRB,2.3101E-03_JPRB,&
1882
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1933E-03_JPRB,2.0001E-03_JPRB,1.4716E-02_JPRB/)
1883 KAO( :, 3,13, 9) = (/&
1884 & 2.0506E-03_JPRB,2.2392E-03_JPRB,2.4060E-03_JPRB,2.4864E-03_JPRB,2.4932E-03_JPRB,2.4402E-03_JPRB,&
1885
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.3277E-03_JPRB,2.1324E-03_JPRB,1.5081E-02_JPRB/)
1886 KAO( :, 4,13, 9) = (/&
1887 & 2.0915E-03_JPRB,2.3209E-03_JPRB,2.5015E-03_JPRB,2.5952E-03_JPRB,2.6152E-03_JPRB,2.5711E-03_JPRB,&
1888
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4622E-03_JPRB,2.2684E-03_JPRB,1.5556E-02_JPRB/)
1889 KAO( :, 5,13, 9) = (/&
1890 & 2.1275E-03_JPRB,2.3984E-03_JPRB,2.5936E-03_JPRB,2.7019E-03_JPRB,2.7369E-03_JPRB,2.7034E-03_JPRB,&
1891
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.5998E-03_JPRB,2.4103E-03_JPRB,1.6100E-02_JPRB/)
1892 KAO( :, 1, 1,10) = (/&
1893 & 1.7685E-02_JPRB,1.5886E-02_JPRB,1.5286E-02_JPRB,1.4910E-02_JPRB,1.4213E-02_JPRB,1.2872E-02_JPRB,&
1894
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1554E-02_JPRB,9.7299E-03_JPRB,9.7670E-03_JPRB/)
1895 KAO( :, 2, 1,10) = (/&
1896 & 1.7924E-02_JPRB,1.6198E-02_JPRB,1.5800E-02_JPRB,1.5762E-02_JPRB,1.5013E-02_JPRB,1.3648E-02_JPRB,&
1897
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2502E-02_JPRB,1.0682E-02_JPRB,1.1264E-02_JPRB/)
1898 KAO( :, 3, 1,10) = (/&
1899 & 1.8162E-02_JPRB,1.6493E-02_JPRB,1.6320E-02_JPRB,1.6501E-02_JPRB,1.5785E-02_JPRB,1.4461E-02_JPRB,&
1900
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3394E-02_JPRB,1.1688E-02_JPRB,1.2766E-02_JPRB/)
1901 KAO( :, 4, 1,10) = (/&
1902 & 1.8373E-02_JPRB,1.6799E-02_JPRB,1.6869E-02_JPRB,1.7132E-02_JPRB,1.6537E-02_JPRB,1.5302E-02_JPRB,&
1903
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4231E-02_JPRB,1.2873E-02_JPRB,1.4298E-02_JPRB/)
1904 KAO( :, 5, 1,10) = (/&
1905 & 1.8575E-02_JPRB,1.7109E-02_JPRB,1.7449E-02_JPRB,1.7721E-02_JPRB,1.7274E-02_JPRB,1.6125E-02_JPRB,&
1906
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4995E-02_JPRB,1.4230E-02_JPRB,1.5931E-02_JPRB/)
1907 KAO( :, 1, 2,10) = (/&
1908 & 1.6873E-02_JPRB,1.5273E-02_JPRB,1.4928E-02_JPRB,1.4779E-02_JPRB,1.3931E-02_JPRB,1.2662E-02_JPRB,&
1909
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1382E-02_JPRB,9.2864E-03_JPRB,8.6917E-03_JPRB/)
1910 KAO( :, 2, 2,10) = (/&
1911 & 1.7158E-02_JPRB,1.5636E-02_JPRB,1.5517E-02_JPRB,1.5568E-02_JPRB,1.4735E-02_JPRB,1.3617E-02_JPRB,&
1912
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2343E-02_JPRB,1.0165E-02_JPRB,1.0091E-02_JPRB/)
1913 KAO( :, 3, 2,10) = (/&
1914 & 1.7424E-02_JPRB,1.6018E-02_JPRB,1.6130E-02_JPRB,1.6288E-02_JPRB,1.5522E-02_JPRB,1.4562E-02_JPRB,&
1915
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3276E-02_JPRB,1.1047E-02_JPRB,1.1539E-02_JPRB/)
1916 KAO( :, 4, 2,10) = (/&
1917 & 1.7705E-02_JPRB,1.6391E-02_JPRB,1.6775E-02_JPRB,1.6913E-02_JPRB,1.6383E-02_JPRB,1.5440E-02_JPRB,&
1918
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4111E-02_JPRB,1.2115E-02_JPRB,1.3109E-02_JPRB/)
1919 KAO( :, 5, 2,10) = (/&
1920 & 1.7946E-02_JPRB,1.6730E-02_JPRB,1.7389E-02_JPRB,1.7560E-02_JPRB,1.7230E-02_JPRB,1.6260E-02_JPRB,&
1921
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4862E-02_JPRB,1.3377E-02_JPRB,1.4792E-02_JPRB/)
1922 KAO( :, 1, 3,10) = (/&
1923 & 1.5798E-02_JPRB,1.4431E-02_JPRB,1.4230E-02_JPRB,1.4159E-02_JPRB,1.3349E-02_JPRB,1.2204E-02_JPRB,&
1924
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0867E-02_JPRB,8.8000E-03_JPRB,7.4513E-03_JPRB/)
1925 KAO( :, 2, 3,10) = (/&
1926 & 1.6121E-02_JPRB,1.4897E-02_JPRB,1.4916E-02_JPRB,1.4922E-02_JPRB,1.4162E-02_JPRB,1.3251E-02_JPRB,&
1927
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1847E-02_JPRB,9.5823E-03_JPRB,8.7330E-03_JPRB/)
1928 KAO( :, 3, 3,10) = (/&
1929 & 1.6462E-02_JPRB,1.5342E-02_JPRB,1.5618E-02_JPRB,1.5620E-02_JPRB,1.5015E-02_JPRB,1.4282E-02_JPRB,&
1930
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2797E-02_JPRB,1.0384E-02_JPRB,1.0179E-02_JPRB/)
1931 KAO( :, 4, 3,10) = (/&
1932 & 1.6798E-02_JPRB,1.5765E-02_JPRB,1.6290E-02_JPRB,1.6289E-02_JPRB,1.5973E-02_JPRB,1.5269E-02_JPRB,&
1933
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3672E-02_JPRB,1.1383E-02_JPRB,1.1725E-02_JPRB/)
1934 KAO( :, 5, 3,10) = (/&
1935 & 1.7062E-02_JPRB,1.6131E-02_JPRB,1.6868E-02_JPRB,1.7006E-02_JPRB,1.6890E-02_JPRB,1.6143E-02_JPRB,&
1936
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4482E-02_JPRB,1.2538E-02_JPRB,1.3312E-02_JPRB/)
1937 KAO( :, 1, 4,10) = (/&
1938 & 1.4564E-02_JPRB,1.3497E-02_JPRB,1.3366E-02_JPRB,1.3251E-02_JPRB,1.2600E-02_JPRB,1.1517E-02_JPRB,&
1939
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0115E-02_JPRB,8.2572E-03_JPRB,6.3788E-03_JPRB/)
1940 KAO( :, 2, 4,10) = (/&
1941 & 1.4956E-02_JPRB,1.4021E-02_JPRB,1.4143E-02_JPRB,1.3989E-02_JPRB,1.3446E-02_JPRB,1.2579E-02_JPRB,&
1942
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1185E-02_JPRB,9.0656E-03_JPRB,7.4847E-03_JPRB/)
1943 KAO( :, 3, 4,10) = (/&
1944 & 1.5366E-02_JPRB,1.4523E-02_JPRB,1.4865E-02_JPRB,1.4686E-02_JPRB,1.4396E-02_JPRB,1.3630E-02_JPRB,&
1945
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2209E-02_JPRB,9.8300E-03_JPRB,8.7484E-03_JPRB/)
1946 KAO( :, 4, 4,10) = (/&
1947 & 1.5673E-02_JPRB,1.4963E-02_JPRB,1.5538E-02_JPRB,1.5419E-02_JPRB,1.5384E-02_JPRB,1.4661E-02_JPRB,&
1948
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3123E-02_JPRB,1.0681E-02_JPRB,1.0095E-02_JPRB/)
1949 KAO( :, 5, 4,10) = (/&
1950 & 1.5927E-02_JPRB,1.5374E-02_JPRB,1.6106E-02_JPRB,1.6246E-02_JPRB,1.6331E-02_JPRB,1.5570E-02_JPRB,&
1951
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3997E-02_JPRB,1.1612E-02_JPRB,1.1475E-02_JPRB/)
1952 KAO( :, 1, 5,10) = (/&
1953 & 1.3266E-02_JPRB,1.2466E-02_JPRB,1.2400E-02_JPRB,1.2242E-02_JPRB,1.1629E-02_JPRB,1.0628E-02_JPRB,&
1954
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.2898E-03_JPRB,7.6240E-03_JPRB,5.9670E-03_JPRB/)
1955 KAO( :, 2, 5,10) = (/&
1956 & 1.3732E-02_JPRB,1.3052E-02_JPRB,1.3208E-02_JPRB,1.3005E-02_JPRB,1.2522E-02_JPRB,1.1685E-02_JPRB,&
1957
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0389E-02_JPRB,8.4463E-03_JPRB,6.6100E-03_JPRB/)
1958 KAO( :, 3, 5,10) = (/&
1959 & 1.4084E-02_JPRB,1.3547E-02_JPRB,1.3938E-02_JPRB,1.3750E-02_JPRB,1.3484E-02_JPRB,1.2725E-02_JPRB,&
1960
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1484E-02_JPRB,9.2095E-03_JPRB,7.5100E-03_JPRB/)
1961 KAO( :, 4, 5,10) = (/&
1962 & 1.4380E-02_JPRB,1.4005E-02_JPRB,1.4577E-02_JPRB,1.4581E-02_JPRB,1.4467E-02_JPRB,1.3764E-02_JPRB,&
1963
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2436E-02_JPRB,1.0053E-02_JPRB,8.5649E-03_JPRB/)
1964 KAO( :, 5, 5,10) = (/&
1965 & 1.4640E-02_JPRB,1.4480E-02_JPRB,1.5153E-02_JPRB,1.5470E-02_JPRB,1.5438E-02_JPRB,1.4721E-02_JPRB,&
1966
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3356E-02_JPRB,1.0839E-02_JPRB,9.6988E-03_JPRB/)
1967 KAO( :, 1, 6,10) = (/&
1968 & 1.1942E-02_JPRB,1.1353E-02_JPRB,1.1339E-02_JPRB,1.1150E-02_JPRB,1.0468E-02_JPRB,9.5854E-03_JPRB,&
1969
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.3811E-03_JPRB,7.0885E-03_JPRB,5.8798E-03_JPRB/)
1970 KAO( :, 2, 6,10) = (/&
1971 & 1.2358E-02_JPRB,1.1922E-02_JPRB,1.2141E-02_JPRB,1.1920E-02_JPRB,1.1378E-02_JPRB,1.0610E-02_JPRB,&
1972
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.4501E-03_JPRB,7.7713E-03_JPRB,6.4066E-03_JPRB/)
1973 KAO( :, 3, 6,10) = (/&
1974 & 1.2698E-02_JPRB,1.2427E-02_JPRB,1.2838E-02_JPRB,1.2735E-02_JPRB,1.2366E-02_JPRB,1.1633E-02_JPRB,&
1975
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0517E-02_JPRB,8.4962E-03_JPRB,6.9615E-03_JPRB/)
1976 KAO( :, 4, 6,10) = (/&
1977 & 1.2998E-02_JPRB,1.2956E-02_JPRB,1.3432E-02_JPRB,1.3603E-02_JPRB,1.3351E-02_JPRB,1.2693E-02_JPRB,&
1978
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1517E-02_JPRB,9.2932E-03_JPRB,7.5694E-03_JPRB/)
1979 KAO( :, 5, 6,10) = (/&
1980 & 1.3245E-02_JPRB,1.3459E-02_JPRB,1.4045E-02_JPRB,1.4501E-02_JPRB,1.4340E-02_JPRB,1.3672E-02_JPRB,&
1981
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2434E-02_JPRB,1.0037E-02_JPRB,8.3088E-03_JPRB/)
1982 KAO( :, 1, 7,10) = (/&
1983 & 1.0635E-02_JPRB,1.0181E-02_JPRB,1.0247E-02_JPRB,9.9535E-03_JPRB,9.2688E-03_JPRB,8.4744E-03_JPRB,&
1984
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.6731E-03_JPRB,6.9595E-03_JPRB,5.7767E-03_JPRB/)
1985 KAO( :, 2, 7,10) = (/&
1986 & 1.1001E-02_JPRB,1.0731E-02_JPRB,1.1001E-02_JPRB,1.0727E-02_JPRB,1.0196E-02_JPRB,9.4273E-03_JPRB,&
1987
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.5283E-03_JPRB,7.4633E-03_JPRB,6.2551E-03_JPRB/)
1988 KAO( :, 3, 7,10) = (/&
1989 & 1.1326E-02_JPRB,1.1289E-02_JPRB,1.1647E-02_JPRB,1.1559E-02_JPRB,1.1156E-02_JPRB,1.0455E-02_JPRB,&
1990
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.4847E-03_JPRB,7.9997E-03_JPRB,6.7556E-03_JPRB/)
1991 KAO( :, 4, 7,10) = (/&
1992 & 1.1605E-02_JPRB,1.1840E-02_JPRB,1.2266E-02_JPRB,1.2419E-02_JPRB,1.2130E-02_JPRB,1.1514E-02_JPRB,&
1993
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0422E-02_JPRB,8.6046E-03_JPRB,7.2812E-03_JPRB/)
1994 KAO( :, 5, 7,10) = (/&
1995 & 1.1846E-02_JPRB,1.2301E-02_JPRB,1.2939E-02_JPRB,1.3278E-02_JPRB,1.3141E-02_JPRB,1.2520E-02_JPRB,&
1996
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1309E-02_JPRB,9.2291E-03_JPRB,7.8135E-03_JPRB/)
1997 KAO( :, 1, 8,10) = (/&
1998 & 9.5318E-03_JPRB,9.1400E-03_JPRB,9.1541E-03_JPRB,8.7469E-03_JPRB,8.1107E-03_JPRB,7.6844E-03_JPRB,&
1999
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.4790E-03_JPRB,6.8560E-03_JPRB,6.1100E-03_JPRB/)
2000 KAO( :, 2, 8,10) = (/&
2001 & 9.8513E-03_JPRB,9.6543E-03_JPRB,9.8221E-03_JPRB,9.4930E-03_JPRB,8.9990E-03_JPRB,8.4087E-03_JPRB,&
2002
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.1002E-03_JPRB,7.3297E-03_JPRB,6.5036E-03_JPRB/)
2003 KAO( :, 3, 8,10) = (/&
2004 & 1.0121E-02_JPRB,1.0183E-02_JPRB,1.0429E-02_JPRB,1.0295E-02_JPRB,9.9219E-03_JPRB,9.3052E-03_JPRB,&
2005
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.7495E-03_JPRB,7.8409E-03_JPRB,6.8133E-03_JPRB/)
2006 KAO( :, 4, 8,10) = (/&
2007 & 1.0342E-02_JPRB,1.0668E-02_JPRB,1.1072E-02_JPRB,1.1128E-02_JPRB,1.0881E-02_JPRB,1.0314E-02_JPRB,&
2008
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.4319E-03_JPRB,8.3379E-03_JPRB,7.1719E-03_JPRB/)
2009 KAO( :, 5, 8,10) = (/&
2010 & 1.0574E-02_JPRB,1.1111E-02_JPRB,1.1730E-02_JPRB,1.1969E-02_JPRB,1.1864E-02_JPRB,1.1283E-02_JPRB,&
2011
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0148E-02_JPRB,8.8068E-03_JPRB,7.6246E-03_JPRB/)
2012 KAO( :, 1, 9,10) = (/&
2013 & 8.6979E-03_JPRB,8.3079E-03_JPRB,8.1722E-03_JPRB,7.6777E-03_JPRB,7.3529E-03_JPRB,7.3690E-03_JPRB,&
2014
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.3422E-03_JPRB,6.6830E-03_JPRB,8.5832E-03_JPRB/)
2015 KAO( :, 2, 9,10) = (/&
2016 & 8.9724E-03_JPRB,8.7731E-03_JPRB,8.7419E-03_JPRB,8.3348E-03_JPRB,7.9939E-03_JPRB,7.9020E-03_JPRB,&
2017
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.8887E-03_JPRB,7.1655E-03_JPRB,9.0283E-03_JPRB/)
2018 KAO( :, 3, 9,10) = (/&
2019 & 9.1636E-03_JPRB,9.2350E-03_JPRB,9.2903E-03_JPRB,9.0718E-03_JPRB,8.7389E-03_JPRB,8.5612E-03_JPRB,&
2020
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.4201E-03_JPRB,7.6462E-03_JPRB,9.4969E-03_JPRB/)
2021 KAO( :, 4, 9,10) = (/&
2022 & 9.3430E-03_JPRB,9.6411E-03_JPRB,9.8735E-03_JPRB,9.8458E-03_JPRB,9.5925E-03_JPRB,9.3082E-03_JPRB,&
2023
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.9479E-03_JPRB,8.0999E-03_JPRB,9.9701E-03_JPRB/)
2024 KAO( :, 5, 9,10) = (/&
2025 & 9.5543E-03_JPRB,1.0034E-02_JPRB,1.0504E-02_JPRB,1.0652E-02_JPRB,1.0546E-02_JPRB,1.0105E-02_JPRB,&
2026
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.4548E-03_JPRB,8.5503E-03_JPRB,1.0439E-02_JPRB/)
2027 KAO( :, 1,10,10) = (/&
2028 & 8.1157E-03_JPRB,7.6953E-03_JPRB,7.3856E-03_JPRB,7.0143E-03_JPRB,7.0934E-03_JPRB,7.1592E-03_JPRB,&
2029
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.1366E-03_JPRB,6.4736E-03_JPRB,2.5288E-02_JPRB/)
2030 KAO( :, 2,10,10) = (/&
2031 & 8.3228E-03_JPRB,8.1050E-03_JPRB,7.8899E-03_JPRB,7.5150E-03_JPRB,7.5383E-03_JPRB,7.6577E-03_JPRB,&
2032
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.6569E-03_JPRB,6.9536E-03_JPRB,2.5969E-02_JPRB/)
2033 KAO( :, 3,10,10) = (/&
2034 & 8.4638E-03_JPRB,8.4927E-03_JPRB,8.3732E-03_JPRB,8.1065E-03_JPRB,8.0674E-03_JPRB,8.2304E-03_JPRB,&
2035
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.1217E-03_JPRB,7.4527E-03_JPRB,2.6813E-02_JPRB/)
2036 KAO( :, 4,10,10) = (/&
2037 & 8.6251E-03_JPRB,8.8393E-03_JPRB,8.8777E-03_JPRB,8.7542E-03_JPRB,8.7078E-03_JPRB,8.8286E-03_JPRB,&
2038
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.6165E-03_JPRB,7.9058E-03_JPRB,2.7708E-02_JPRB/)
2039 KAO( :, 5,10,10) = (/&
2040 & 8.7883E-03_JPRB,9.2004E-03_JPRB,9.4445E-03_JPRB,9.4717E-03_JPRB,9.4479E-03_JPRB,9.4125E-03_JPRB,&
2041
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.0956E-03_JPRB,8.3203E-03_JPRB,2.8653E-02_JPRB/)
2042 KAO( :, 1,11,10) = (/&
2043 & 7.8501E-03_JPRB,7.4452E-03_JPRB,7.0342E-03_JPRB,6.9004E-03_JPRB,7.0570E-03_JPRB,7.1201E-03_JPRB,&
2044
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.0476E-03_JPRB,6.4243E-03_JPRB,4.0572E-02_JPRB/)
2045 KAO( :, 2,11,10) = (/&
2046 & 7.9753E-03_JPRB,7.7749E-03_JPRB,7.4240E-03_JPRB,7.3009E-03_JPRB,7.4854E-03_JPRB,7.6408E-03_JPRB,&
2047
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.5205E-03_JPRB,6.9049E-03_JPRB,4.1441E-02_JPRB/)
2048 KAO( :, 3,11,10) = (/&
2049 & 8.0806E-03_JPRB,8.0563E-03_JPRB,7.8316E-03_JPRB,7.7518E-03_JPRB,7.9930E-03_JPRB,8.1574E-03_JPRB,&
2050
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.9957E-03_JPRB,7.3976E-03_JPRB,4.2222E-02_JPRB/)
2051 KAO( :, 4,11,10) = (/&
2052 & 8.1992E-03_JPRB,8.3401E-03_JPRB,8.2986E-03_JPRB,8.2629E-03_JPRB,8.5167E-03_JPRB,8.6635E-03_JPRB,&
2053
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.4735E-03_JPRB,7.8541E-03_JPRB,4.3187E-02_JPRB/)
2054 KAO( :, 5,11,10) = (/&
2055 & 8.2878E-03_JPRB,8.6780E-03_JPRB,8.8506E-03_JPRB,8.8633E-03_JPRB,9.0484E-03_JPRB,9.1413E-03_JPRB,&
2056
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.9084E-03_JPRB,8.2746E-03_JPRB,4.4361E-02_JPRB/)
2057 KAO( :, 1,12,10) = (/&
2058 & 7.6139E-03_JPRB,7.2726E-03_JPRB,6.8850E-03_JPRB,6.9089E-03_JPRB,6.9663E-03_JPRB,7.0443E-03_JPRB,&
2059
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.8750E-03_JPRB,6.2469E-03_JPRB,4.8797E-02_JPRB/)
2060 KAO( :, 2,12,10) = (/&
2061 & 7.7194E-03_JPRB,7.5180E-03_JPRB,7.1615E-03_JPRB,7.2509E-03_JPRB,7.4345E-03_JPRB,7.5251E-03_JPRB,&
2062
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.3302E-03_JPRB,6.7269E-03_JPRB,4.9597E-02_JPRB/)
2063 KAO( :, 3,12,10) = (/&
2064 & 7.8184E-03_JPRB,7.7399E-03_JPRB,7.4810E-03_JPRB,7.6258E-03_JPRB,7.9008E-03_JPRB,7.9967E-03_JPRB,&
2065
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.8018E-03_JPRB,7.1947E-03_JPRB,5.0339E-02_JPRB/)
2066 KAO( :, 4,12,10) = (/&
2067 & 7.8914E-03_JPRB,7.9922E-03_JPRB,7.8923E-03_JPRB,8.0511E-03_JPRB,8.3449E-03_JPRB,8.4240E-03_JPRB,&
2068
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.2687E-03_JPRB,7.6521E-03_JPRB,5.1350E-02_JPRB/)
2069 KAO( :, 5,12,10) = (/&
2070 & 7.9507E-03_JPRB,8.2886E-03_JPRB,8.3628E-03_JPRB,8.5321E-03_JPRB,8.7647E-03_JPRB,8.8141E-03_JPRB,&
2071
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.7116E-03_JPRB,8.0986E-03_JPRB,5.2764E-02_JPRB/)
2072 KAO( :, 1,13,10) = (/&
2073 & 7.3158E-03_JPRB,7.0328E-03_JPRB,6.8235E-03_JPRB,6.9230E-03_JPRB,6.9064E-03_JPRB,6.8869E-03_JPRB,&
2074
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.6102E-03_JPRB,5.9534E-03_JPRB,4.6027E-02_JPRB/)
2075 KAO( :, 2,13,10) = (/&
2076 & 7.4278E-03_JPRB,7.2607E-03_JPRB,7.0591E-03_JPRB,7.2420E-03_JPRB,7.3482E-03_JPRB,7.3254E-03_JPRB,&
2077
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.0547E-03_JPRB,6.4187E-03_JPRB,4.6671E-02_JPRB/)
2078 KAO( :, 3,13,10) = (/&
2079 & 7.5295E-03_JPRB,7.4924E-03_JPRB,7.3494E-03_JPRB,7.5754E-03_JPRB,7.7630E-03_JPRB,7.7638E-03_JPRB,&
2080
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.4975E-03_JPRB,6.8755E-03_JPRB,4.7440E-02_JPRB/)
2081 KAO( :, 4,13,10) = (/&
2082 & 7.6080E-03_JPRB,7.7470E-03_JPRB,7.6819E-03_JPRB,7.9565E-03_JPRB,8.1173E-03_JPRB,8.1428E-03_JPRB,&
2083
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.9589E-03_JPRB,7.3493E-03_JPRB,4.8497E-02_JPRB/)
2084 KAO( :, 5,13,10) = (/&
2085 & 7.6817E-03_JPRB,8.0217E-03_JPRB,8.0425E-03_JPRB,8.3061E-03_JPRB,8.4701E-03_JPRB,8.5085E-03_JPRB,&
2086
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.3860E-03_JPRB,7.8301E-03_JPRB,4.9971E-02_JPRB/)
2087 KAO( :, 1, 1,11) = (/&
2088 & 2.7764E-02_JPRB,2.4426E-02_JPRB,2.1973E-02_JPRB,2.0093E-02_JPRB,1.8666E-02_JPRB,1.7278E-02_JPRB,&
2089
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5087E-02_JPRB,1.3103E-02_JPRB,1.4300E-02_JPRB/)
2090 KAO( :, 2, 1,11) = (/&
2091 & 2.7963E-02_JPRB,2.4667E-02_JPRB,2.2450E-02_JPRB,2.0789E-02_JPRB,1.9549E-02_JPRB,1.8247E-02_JPRB,&
2092
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6059E-02_JPRB,1.4781E-02_JPRB,1.6422E-02_JPRB/)
2093 KAO( :, 3, 1,11) = (/&
2094 & 2.8032E-02_JPRB,2.4854E-02_JPRB,2.2829E-02_JPRB,2.1504E-02_JPRB,2.0423E-02_JPRB,1.9213E-02_JPRB,&
2095
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7147E-02_JPRB,1.6580E-02_JPRB,1.8603E-02_JPRB/)
2096 KAO( :, 4, 1,11) = (/&
2097 & 2.7908E-02_JPRB,2.4878E-02_JPRB,2.3088E-02_JPRB,2.2255E-02_JPRB,2.1236E-02_JPRB,2.0204E-02_JPRB,&
2098
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8256E-02_JPRB,1.8454E-02_JPRB,2.0859E-02_JPRB/)
2099 KAO( :, 5, 1,11) = (/&
2100 & 2.7693E-02_JPRB,2.4833E-02_JPRB,2.3283E-02_JPRB,2.2953E-02_JPRB,2.2107E-02_JPRB,2.1010E-02_JPRB,&
2101
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9343E-02_JPRB,2.0385E-02_JPRB,2.3144E-02_JPRB/)
2102 KAO( :, 1, 2,11) = (/&
2103 & 2.7646E-02_JPRB,2.4332E-02_JPRB,2.2092E-02_JPRB,2.0298E-02_JPRB,1.9042E-02_JPRB,1.7440E-02_JPRB,&
2104
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5349E-02_JPRB,1.2664E-02_JPRB,1.3386E-02_JPRB/)
2105 KAO( :, 2, 2,11) = (/&
2106 & 2.7909E-02_JPRB,2.4672E-02_JPRB,2.2646E-02_JPRB,2.1214E-02_JPRB,2.0006E-02_JPRB,1.8412E-02_JPRB,&
2107
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6391E-02_JPRB,1.4178E-02_JPRB,1.5546E-02_JPRB/)
2108 KAO( :, 3, 2,11) = (/&
2109 & 2.7965E-02_JPRB,2.4859E-02_JPRB,2.3085E-02_JPRB,2.2119E-02_JPRB,2.0910E-02_JPRB,1.9436E-02_JPRB,&
2110
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7350E-02_JPRB,1.5867E-02_JPRB,1.7743E-02_JPRB/)
2111 KAO( :, 4, 2,11) = (/&
2112 & 2.7851E-02_JPRB,2.4932E-02_JPRB,2.3473E-02_JPRB,2.2951E-02_JPRB,2.1773E-02_JPRB,2.0509E-02_JPRB,&
2113
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8306E-02_JPRB,1.7658E-02_JPRB,1.9938E-02_JPRB/)
2114 KAO( :, 5, 2,11) = (/&
2115 & 2.7716E-02_JPRB,2.4986E-02_JPRB,2.3872E-02_JPRB,2.3624E-02_JPRB,2.2685E-02_JPRB,2.1385E-02_JPRB,&
2116
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9339E-02_JPRB,1.9475E-02_JPRB,2.2096E-02_JPRB/)
2117 KAO( :, 1, 3,11) = (/&
2118 & 2.7136E-02_JPRB,2.3913E-02_JPRB,2.1898E-02_JPRB,2.0239E-02_JPRB,1.8943E-02_JPRB,1.7255E-02_JPRB,&
2119
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5286E-02_JPRB,1.1962E-02_JPRB,1.1731E-02_JPRB/)
2120 KAO( :, 2, 3,11) = (/&
2121 & 2.7384E-02_JPRB,2.4261E-02_JPRB,2.2497E-02_JPRB,2.1296E-02_JPRB,2.0064E-02_JPRB,1.8265E-02_JPRB,&
2122
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6402E-02_JPRB,1.3201E-02_JPRB,1.3756E-02_JPRB/)
2123 KAO( :, 3, 3,11) = (/&
2124 & 2.7424E-02_JPRB,2.4494E-02_JPRB,2.3027E-02_JPRB,2.2286E-02_JPRB,2.1084E-02_JPRB,1.9295E-02_JPRB,&
2125
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7402E-02_JPRB,1.4625E-02_JPRB,1.5844E-02_JPRB/)
2126 KAO( :, 4, 3,11) = (/&
2127 & 2.7396E-02_JPRB,2.4666E-02_JPRB,2.3610E-02_JPRB,2.3218E-02_JPRB,2.1991E-02_JPRB,2.0436E-02_JPRB,&
2128
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8232E-02_JPRB,1.6186E-02_JPRB,1.7976E-02_JPRB/)
2129 KAO( :, 5, 3,11) = (/&
2130 & 2.7396E-02_JPRB,2.4863E-02_JPRB,2.4263E-02_JPRB,2.4003E-02_JPRB,2.2894E-02_JPRB,2.1428E-02_JPRB,&
2131
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9099E-02_JPRB,1.7923E-02_JPRB,2.0191E-02_JPRB/)
2132 KAO( :, 1, 4,11) = (/&
2133 & 2.6120E-02_JPRB,2.3055E-02_JPRB,2.1334E-02_JPRB,1.9874E-02_JPRB,1.8554E-02_JPRB,1.6913E-02_JPRB,&
2134
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4849E-02_JPRB,1.1247E-02_JPRB,9.9817E-03_JPRB/)
2135 KAO( :, 2, 4,11) = (/&
2136 & 2.6346E-02_JPRB,2.3452E-02_JPRB,2.1987E-02_JPRB,2.1036E-02_JPRB,1.9768E-02_JPRB,1.8034E-02_JPRB,&
2137
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5969E-02_JPRB,1.2323E-02_JPRB,1.1891E-02_JPRB/)
2138 KAO( :, 3, 4,11) = (/&
2139 & 2.6444E-02_JPRB,2.3743E-02_JPRB,2.2663E-02_JPRB,2.2134E-02_JPRB,2.0858E-02_JPRB,1.9164E-02_JPRB,&
2140
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7004E-02_JPRB,1.3536E-02_JPRB,1.3883E-02_JPRB/)
2141 KAO( :, 4, 4,11) = (/&
2142 & 2.6615E-02_JPRB,2.4091E-02_JPRB,2.3417E-02_JPRB,2.3175E-02_JPRB,2.1815E-02_JPRB,2.0352E-02_JPRB,&
2143
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7938E-02_JPRB,1.4897E-02_JPRB,1.5955E-02_JPRB/)
2144 KAO( :, 5, 4,11) = (/&
2145 & 2.6757E-02_JPRB,2.4467E-02_JPRB,2.4289E-02_JPRB,2.4064E-02_JPRB,2.2838E-02_JPRB,2.1378E-02_JPRB,&
2146
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
 10 & 1.8780E-02_JPRB,1.6458E-02_JPRB,1.8170E-02_JPRB/)
2147
2148
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART7',1,ZHOOK_HANDLE)
2149 1 END SUBROUTINE PART7
2150
2151
2152 1 SUBROUTINE PART8
2153
2154 REAL(KIND=JPRB) :: ZHOOK_HANDLE
2155
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART8',0,ZHOOK_HANDLE)
2156
2157
2158 KAO( :, 1, 5,11) = (/&
2159 & 2.4649E-02_JPRB,2.1845E-02_JPRB,2.0397E-02_JPRB,1.9200E-02_JPRB,1.7986E-02_JPRB,1.6354E-02_JPRB,&
2160
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4106E-02_JPRB,1.0659E-02_JPRB,8.5296E-03_JPRB/)
2161 KAO( :, 2, 5,11) = (/&
2162 & 2.4915E-02_JPRB,2.2302E-02_JPRB,2.1150E-02_JPRB,2.0451E-02_JPRB,1.9259E-02_JPRB,1.7581E-02_JPRB,&
2163
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5270E-02_JPRB,1.1646E-02_JPRB,1.0194E-02_JPRB/)
2164 KAO( :, 3, 5,11) = (/&
2165 & 2.5218E-02_JPRB,2.2788E-02_JPRB,2.1977E-02_JPRB,2.1628E-02_JPRB,2.0422E-02_JPRB,1.8826E-02_JPRB,&
2166
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6327E-02_JPRB,1.2719E-02_JPRB,1.2019E-02_JPRB/)
2167 KAO( :, 4, 5,11) = (/&
2168 & 2.5482E-02_JPRB,2.3305E-02_JPRB,2.2941E-02_JPRB,2.2718E-02_JPRB,2.1512E-02_JPRB,2.0034E-02_JPRB,&
2169
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7375E-02_JPRB,1.3885E-02_JPRB,1.4041E-02_JPRB/)
2170 KAO( :, 5, 5,11) = (/&
2171 & 2.5726E-02_JPRB,2.3793E-02_JPRB,2.3951E-02_JPRB,2.3636E-02_JPRB,2.2618E-02_JPRB,2.1077E-02_JPRB,&
2172
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8363E-02_JPRB,1.5350E-02_JPRB,1.6202E-02_JPRB/)
2173 KAO( :, 1, 6,11) = (/&
2174 & 2.2851E-02_JPRB,2.0373E-02_JPRB,1.9153E-02_JPRB,1.8191E-02_JPRB,1.7169E-02_JPRB,1.5447E-02_JPRB,&
2175
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3127E-02_JPRB,9.9268E-03_JPRB,7.8128E-03_JPRB/)
2176 KAO( :, 2, 6,11) = (/&
2177 & 2.3274E-02_JPRB,2.0974E-02_JPRB,2.0039E-02_JPRB,1.9515E-02_JPRB,1.8501E-02_JPRB,1.6740E-02_JPRB,&
2178
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4344E-02_JPRB,1.0951E-02_JPRB,8.8752E-03_JPRB/)
2179 KAO( :, 3, 6,11) = (/&
2180 & 2.3672E-02_JPRB,2.1617E-02_JPRB,2.1050E-02_JPRB,2.0731E-02_JPRB,1.9672E-02_JPRB,1.8067E-02_JPRB,&
2181
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5465E-02_JPRB,1.2013E-02_JPRB,1.0301E-02_JPRB/)
2182 KAO( :, 4, 6,11) = (/&
2183 & 2.4031E-02_JPRB,2.2215E-02_JPRB,2.2188E-02_JPRB,2.1796E-02_JPRB,2.0865E-02_JPRB,1.9256E-02_JPRB,&
2184
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6602E-02_JPRB,1.3087E-02_JPRB,1.2045E-02_JPRB/)
2185 KAO( :, 5, 6,11) = (/&
2186 & 2.4424E-02_JPRB,2.2835E-02_JPRB,2.3262E-02_JPRB,2.2762E-02_JPRB,2.2024E-02_JPRB,2.0317E-02_JPRB,&
2187
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7726E-02_JPRB,1.4330E-02_JPRB,1.3970E-02_JPRB/)
2188 KAO( :, 1, 7,11) = (/&
2189 & 2.0897E-02_JPRB,1.8755E-02_JPRB,1.7733E-02_JPRB,1.7022E-02_JPRB,1.6054E-02_JPRB,1.4311E-02_JPRB,&
2190
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2008E-02_JPRB,9.2731E-03_JPRB,7.7437E-03_JPRB/)
2191 KAO( :, 2, 7,11) = (/&
2192 & 2.1410E-02_JPRB,1.9491E-02_JPRB,1.8752E-02_JPRB,1.8362E-02_JPRB,1.7373E-02_JPRB,1.5636E-02_JPRB,&
2193
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3285E-02_JPRB,1.0177E-02_JPRB,8.5051E-03_JPRB/)
2194 KAO( :, 3, 7,11) = (/&
2195 & 2.1887E-02_JPRB,2.0202E-02_JPRB,1.9920E-02_JPRB,1.9593E-02_JPRB,1.8568E-02_JPRB,1.6958E-02_JPRB,&
2196
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4466E-02_JPRB,1.1212E-02_JPRB,9.3670E-03_JPRB/)
2197 KAO( :, 4, 7,11) = (/&
2198 & 2.2392E-02_JPRB,2.0930E-02_JPRB,2.1140E-02_JPRB,2.0643E-02_JPRB,1.9778E-02_JPRB,1.8147E-02_JPRB,&
2199
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5692E-02_JPRB,1.2278E-02_JPRB,1.0489E-02_JPRB/)
2200 KAO( :, 5, 7,11) = (/&
2201 & 2.2888E-02_JPRB,2.1742E-02_JPRB,2.2178E-02_JPRB,2.1714E-02_JPRB,2.0936E-02_JPRB,1.9278E-02_JPRB,&
2202
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6882E-02_JPRB,1.3452E-02_JPRB,1.1897E-02_JPRB/)
2203 KAO( :, 1, 8,11) = (/&
2204 & 1.8841E-02_JPRB,1.7056E-02_JPRB,1.6222E-02_JPRB,1.5693E-02_JPRB,1.4689E-02_JPRB,1.2994E-02_JPRB,&
2205
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0918E-02_JPRB,9.1547E-03_JPRB,7.9124E-03_JPRB/)
2206 KAO( :, 2, 8,11) = (/&
2207 & 1.9409E-02_JPRB,1.7855E-02_JPRB,1.7363E-02_JPRB,1.7024E-02_JPRB,1.5955E-02_JPRB,1.4305E-02_JPRB,&
2208
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2087E-02_JPRB,9.7905E-03_JPRB,8.4826E-03_JPRB/)
2209 KAO( :, 3, 8,11) = (/&
2210 & 1.9993E-02_JPRB,1.8663E-02_JPRB,1.8622E-02_JPRB,1.8244E-02_JPRB,1.7158E-02_JPRB,1.5610E-02_JPRB,&
2211
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3302E-02_JPRB,1.0551E-02_JPRB,9.2336E-03_JPRB/)
2212 KAO( :, 4, 8,11) = (/&
2213 & 2.0602E-02_JPRB,1.9539E-02_JPRB,1.9827E-02_JPRB,1.9347E-02_JPRB,1.8357E-02_JPRB,1.6779E-02_JPRB,&
2214
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4567E-02_JPRB,1.1467E-02_JPRB,9.9909E-03_JPRB/)
2215 KAO( :, 5, 8,11) = (/&
2216 & 2.1064E-02_JPRB,2.0402E-02_JPRB,2.0838E-02_JPRB,2.0466E-02_JPRB,1.9507E-02_JPRB,1.7959E-02_JPRB,&
2217
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5824E-02_JPRB,1.2520E-02_JPRB,1.0807E-02_JPRB/)
2218 KAO( :, 1, 9,11) = (/&
2219 & 1.6824E-02_JPRB,1.5334E-02_JPRB,1.4694E-02_JPRB,1.4181E-02_JPRB,1.3143E-02_JPRB,1.1680E-02_JPRB,&
2220
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0334E-02_JPRB,9.1831E-03_JPRB,1.1053E-02_JPRB/)
2221 KAO( :, 2, 9,11) = (/&
2222 & 1.7417E-02_JPRB,1.6144E-02_JPRB,1.5897E-02_JPRB,1.5487E-02_JPRB,1.4380E-02_JPRB,1.2867E-02_JPRB,&
2223
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1184E-02_JPRB,9.7551E-03_JPRB,1.1728E-02_JPRB/)
2224 KAO( :, 3, 9,11) = (/&
2225 & 1.8068E-02_JPRB,1.7042E-02_JPRB,1.7161E-02_JPRB,1.6678E-02_JPRB,1.5557E-02_JPRB,1.4093E-02_JPRB,&
2226
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2184E-02_JPRB,1.0404E-02_JPRB,1.2483E-02_JPRB/)
2227 KAO( :, 4, 9,11) = (/&
2228 & 1.8632E-02_JPRB,1.7983E-02_JPRB,1.8323E-02_JPRB,1.7788E-02_JPRB,1.6784E-02_JPRB,1.5260E-02_JPRB,&
2229
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3324E-02_JPRB,1.1123E-02_JPRB,1.3280E-02_JPRB/)
2230 KAO( :, 5, 9,11) = (/&
2231 & 1.9073E-02_JPRB,1.8843E-02_JPRB,1.9281E-02_JPRB,1.8905E-02_JPRB,1.7900E-02_JPRB,1.6447E-02_JPRB,&
2232
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4515E-02_JPRB,1.1877E-02_JPRB,1.4077E-02_JPRB/)
2233 KAO( :, 1,10,11) = (/&
2234 & 1.5121E-02_JPRB,1.3838E-02_JPRB,1.3365E-02_JPRB,1.2721E-02_JPRB,1.1737E-02_JPRB,1.0953E-02_JPRB,&
2235
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0213E-02_JPRB,9.1916E-03_JPRB,3.5198E-02_JPRB/)
2236 KAO( :, 2,10,11) = (/&
2237 & 1.5710E-02_JPRB,1.4640E-02_JPRB,1.4492E-02_JPRB,1.3911E-02_JPRB,1.2838E-02_JPRB,1.1818E-02_JPRB,&
2238
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0924E-02_JPRB,9.7376E-03_JPRB,3.6361E-02_JPRB/)
2239 KAO( :, 3,10,11) = (/&
2240 & 1.6286E-02_JPRB,1.5525E-02_JPRB,1.5683E-02_JPRB,1.5045E-02_JPRB,1.3992E-02_JPRB,1.2769E-02_JPRB,&
2241
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1723E-02_JPRB,1.0342E-02_JPRB,3.7359E-02_JPRB/)
2242 KAO( :, 4,10,11) = (/&
2243 & 1.6782E-02_JPRB,1.6440E-02_JPRB,1.6745E-02_JPRB,1.6156E-02_JPRB,1.5181E-02_JPRB,1.3811E-02_JPRB,&
2244
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2551E-02_JPRB,1.1044E-02_JPRB,3.8551E-02_JPRB/)
2245 KAO( :, 5,10,11) = (/&
2246 & 1.7221E-02_JPRB,1.7284E-02_JPRB,1.7650E-02_JPRB,1.7276E-02_JPRB,1.6297E-02_JPRB,1.4958E-02_JPRB,&
2247
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3449E-02_JPRB,1.1753E-02_JPRB,3.9714E-02_JPRB/)
2248 KAO( :, 1,11,11) = (/&
2249 & 1.4019E-02_JPRB,1.2957E-02_JPRB,1.2611E-02_JPRB,1.1869E-02_JPRB,1.1221E-02_JPRB,1.0951E-02_JPRB,&
2250
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0419E-02_JPRB,9.2574E-03_JPRB,5.9295E-02_JPRB/)
2251 KAO( :, 2,11,11) = (/&
2252 & 1.4514E-02_JPRB,1.3729E-02_JPRB,1.3655E-02_JPRB,1.2913E-02_JPRB,1.2091E-02_JPRB,1.1604E-02_JPRB,&
2253
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1118E-02_JPRB,9.8828E-03_JPRB,6.0862E-02_JPRB/)
2254 KAO( :, 3,11,11) = (/&
2255 & 1.4986E-02_JPRB,1.4596E-02_JPRB,1.4648E-02_JPRB,1.3931E-02_JPRB,1.3062E-02_JPRB,1.2353E-02_JPRB,&
2256
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1821E-02_JPRB,1.0518E-02_JPRB,6.2214E-02_JPRB/)
2257 KAO( :, 4,11,11) = (/&
2258 & 1.5398E-02_JPRB,1.5423E-02_JPRB,1.5511E-02_JPRB,1.4991E-02_JPRB,1.4093E-02_JPRB,1.3225E-02_JPRB,&
2259
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2498E-02_JPRB,1.1195E-02_JPRB,6.3269E-02_JPRB/)
2260 KAO( :, 5,11,11) = (/&
2261 & 1.5718E-02_JPRB,1.6102E-02_JPRB,1.6332E-02_JPRB,1.5968E-02_JPRB,1.5171E-02_JPRB,1.4160E-02_JPRB,&
2262
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3209E-02_JPRB,1.1891E-02_JPRB,6.4542E-02_JPRB/)
2263 KAO( :, 1,12,11) = (/&
2264 & 1.3164E-02_JPRB,1.2292E-02_JPRB,1.1927E-02_JPRB,1.1265E-02_JPRB,1.1057E-02_JPRB,1.0913E-02_JPRB,&
2265
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0445E-02_JPRB,9.2736E-03_JPRB,7.4756E-02_JPRB/)
2266 KAO( :, 2,12,11) = (/&
2267 & 1.3602E-02_JPRB,1.3075E-02_JPRB,1.2792E-02_JPRB,1.2052E-02_JPRB,1.1692E-02_JPRB,1.1536E-02_JPRB,&
2268
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1126E-02_JPRB,9.9170E-03_JPRB,7.6306E-02_JPRB/)
2269 KAO( :, 3,12,11) = (/&
2270 & 1.3977E-02_JPRB,1.3830E-02_JPRB,1.3590E-02_JPRB,1.2927E-02_JPRB,1.2424E-02_JPRB,1.2227E-02_JPRB,&
2271
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1745E-02_JPRB,1.0613E-02_JPRB,7.7655E-02_JPRB/)
2272 KAO( :, 4,12,11) = (/&
2273 & 1.4251E-02_JPRB,1.4432E-02_JPRB,1.4329E-02_JPRB,1.3821E-02_JPRB,1.3256E-02_JPRB,1.2933E-02_JPRB,&
2274
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2386E-02_JPRB,1.1303E-02_JPRB,7.8663E-02_JPRB/)
2275 KAO( :, 5,12,11) = (/&
2276 & 1.4497E-02_JPRB,1.4939E-02_JPRB,1.5040E-02_JPRB,1.4676E-02_JPRB,1.4122E-02_JPRB,1.3675E-02_JPRB,&
2277
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3045E-02_JPRB,1.1981E-02_JPRB,7.9879E-02_JPRB/)
2278 KAO( :, 1,13,11) = (/&
2279 & 1.2616E-02_JPRB,1.1893E-02_JPRB,1.1313E-02_JPRB,1.0907E-02_JPRB,1.0966E-02_JPRB,1.0790E-02_JPRB,&
2280
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0280E-02_JPRB,9.1949E-03_JPRB,7.3725E-02_JPRB/)
2281 KAO( :, 2,13,11) = (/&
2282 & 1.2957E-02_JPRB,1.2555E-02_JPRB,1.2016E-02_JPRB,1.1533E-02_JPRB,1.1499E-02_JPRB,1.1400E-02_JPRB,&
2283
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0924E-02_JPRB,9.8797E-03_JPRB,7.4996E-02_JPRB/)
2284 KAO( :, 3,13,11) = (/&
2285 & 1.3172E-02_JPRB,1.3071E-02_JPRB,1.2663E-02_JPRB,1.2207E-02_JPRB,1.2117E-02_JPRB,1.2009E-02_JPRB,&
2286
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1575E-02_JPRB,1.0610E-02_JPRB,7.6038E-02_JPRB/)
2287 KAO( :, 4,13,11) = (/&
2288 & 1.3348E-02_JPRB,1.3517E-02_JPRB,1.3285E-02_JPRB,1.2851E-02_JPRB,1.2762E-02_JPRB,1.2671E-02_JPRB,&
2289
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2190E-02_JPRB,1.1315E-02_JPRB,7.7063E-02_JPRB/)
2290 KAO( :, 5,13,11) = (/&
2291 & 1.3524E-02_JPRB,1.3946E-02_JPRB,1.3887E-02_JPRB,1.3540E-02_JPRB,1.3388E-02_JPRB,1.3305E-02_JPRB,&
2292
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2841E-02_JPRB,1.2009E-02_JPRB,7.8468E-02_JPRB/)
2293 KAO( :, 1, 1,12) = (/&
2294 & 3.9522E-02_JPRB,3.4695E-02_JPRB,3.0393E-02_JPRB,2.7444E-02_JPRB,2.4701E-02_JPRB,2.2430E-02_JPRB,&
2295
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9690E-02_JPRB,1.9007E-02_JPRB,2.1357E-02_JPRB/)
2296 KAO( :, 2, 1,12) = (/&
2297 & 3.9055E-02_JPRB,3.4293E-02_JPRB,3.0365E-02_JPRB,2.7692E-02_JPRB,2.5619E-02_JPRB,2.3505E-02_JPRB,&
2298
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1002E-02_JPRB,2.1723E-02_JPRB,2.4548E-02_JPRB/)
2299 KAO( :, 3, 1,12) = (/&
2300 & 3.8771E-02_JPRB,3.4045E-02_JPRB,3.0558E-02_JPRB,2.8122E-02_JPRB,2.6598E-02_JPRB,2.4455E-02_JPRB,&
2301
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2524E-02_JPRB,2.4725E-02_JPRB,2.7978E-02_JPRB/)
2302 KAO( :, 4, 1,12) = (/&
2303 & 3.8655E-02_JPRB,3.3972E-02_JPRB,3.0813E-02_JPRB,2.8575E-02_JPRB,2.7403E-02_JPRB,2.5405E-02_JPRB,&
2304
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4525E-02_JPRB,2.7903E-02_JPRB,3.1582E-02_JPRB/)
2305 KAO( :, 5, 1,12) = (/&
2306 & 3.8581E-02_JPRB,3.4020E-02_JPRB,3.1105E-02_JPRB,2.9186E-02_JPRB,2.7932E-02_JPRB,2.6686E-02_JPRB,&
2307
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.7056E-02_JPRB,3.1213E-02_JPRB,3.5341E-02_JPRB/)
2308 KAO( :, 1, 2,12) = (/&
2309 & 4.0900E-02_JPRB,3.5882E-02_JPRB,3.1540E-02_JPRB,2.8648E-02_JPRB,2.5916E-02_JPRB,2.3479E-02_JPRB,&
2310
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9842E-02_JPRB,1.8172E-02_JPRB,2.0462E-02_JPRB/)
2311 KAO( :, 2, 2,12) = (/&
2312 & 4.0629E-02_JPRB,3.5647E-02_JPRB,3.1749E-02_JPRB,2.9079E-02_JPRB,2.7038E-02_JPRB,2.4448E-02_JPRB,&
2313
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0997E-02_JPRB,2.0801E-02_JPRB,2.3586E-02_JPRB/)
2314 KAO( :, 3, 2,12) = (/&
2315 & 4.0634E-02_JPRB,3.5666E-02_JPRB,3.2165E-02_JPRB,2.9630E-02_JPRB,2.8090E-02_JPRB,2.5205E-02_JPRB,&
2316
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2483E-02_JPRB,2.3756E-02_JPRB,2.6981E-02_JPRB/)
2317 KAO( :, 4, 2,12) = (/&
2318 & 4.0680E-02_JPRB,3.5804E-02_JPRB,3.2512E-02_JPRB,3.0271E-02_JPRB,2.8844E-02_JPRB,2.6048E-02_JPRB,&
2319
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4362E-02_JPRB,2.6965E-02_JPRB,3.0664E-02_JPRB/)
2320 KAO( :, 5, 2,12) = (/&
2321 & 4.0551E-02_JPRB,3.5850E-02_JPRB,3.2760E-02_JPRB,3.1085E-02_JPRB,2.9377E-02_JPRB,2.7302E-02_JPRB,&
2322
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.6614E-02_JPRB,3.0323E-02_JPRB,3.4512E-02_JPRB/)
2323 KAO( :, 1, 3,12) = (/&
2324 & 4.2297E-02_JPRB,3.7083E-02_JPRB,3.2675E-02_JPRB,2.9696E-02_JPRB,2.6819E-02_JPRB,2.4251E-02_JPRB,&
2325
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9800E-02_JPRB,1.7013E-02_JPRB,1.8998E-02_JPRB/)
2326 KAO( :, 2, 3,12) = (/&
2327 & 4.2345E-02_JPRB,3.7129E-02_JPRB,3.3126E-02_JPRB,3.0221E-02_JPRB,2.7989E-02_JPRB,2.5268E-02_JPRB,&
2328
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0870E-02_JPRB,1.9534E-02_JPRB,2.2175E-02_JPRB/)
2329 KAO( :, 3, 3,12) = (/&
2330 & 4.2503E-02_JPRB,3.7329E-02_JPRB,3.3705E-02_JPRB,3.0884E-02_JPRB,2.9095E-02_JPRB,2.6012E-02_JPRB,&
2331
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2274E-02_JPRB,2.2409E-02_JPRB,2.5549E-02_JPRB/)
2332 KAO( :, 4, 3,12) = (/&
2333 & 4.2563E-02_JPRB,3.7513E-02_JPRB,3.4118E-02_JPRB,3.1719E-02_JPRB,2.9991E-02_JPRB,2.6648E-02_JPRB,&
2334
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4107E-02_JPRB,2.5501E-02_JPRB,2.9091E-02_JPRB/)
2335 KAO( :, 5, 3,12) = (/&
2336 & 4.2352E-02_JPRB,3.7494E-02_JPRB,3.4375E-02_JPRB,3.2625E-02_JPRB,3.0646E-02_JPRB,2.7653E-02_JPRB,&
2337
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.6034E-02_JPRB,2.8674E-02_JPRB,3.2704E-02_JPRB/)
2338 KAO( :, 1, 4,12) = (/&
2339 & 4.3449E-02_JPRB,3.8071E-02_JPRB,3.3569E-02_JPRB,3.0433E-02_JPRB,2.7408E-02_JPRB,2.4611E-02_JPRB,&
2340
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0108E-02_JPRB,1.5832E-02_JPRB,1.6869E-02_JPRB/)
2341 KAO( :, 2, 4,12) = (/&
2342 & 4.3754E-02_JPRB,3.8357E-02_JPRB,3.4350E-02_JPRB,3.1115E-02_JPRB,2.8679E-02_JPRB,2.5625E-02_JPRB,&
2343
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1066E-02_JPRB,1.8077E-02_JPRB,2.0082E-02_JPRB/)
2344 KAO( :, 3, 4,12) = (/&
2345 & 4.3973E-02_JPRB,3.8656E-02_JPRB,3.5023E-02_JPRB,3.2006E-02_JPRB,2.9792E-02_JPRB,2.6458E-02_JPRB,&
2346
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2328E-02_JPRB,2.0812E-02_JPRB,2.3540E-02_JPRB/)
2347 KAO( :, 4, 4,12) = (/&
2348 & 4.3938E-02_JPRB,3.8773E-02_JPRB,3.5454E-02_JPRB,3.2980E-02_JPRB,3.0747E-02_JPRB,2.7193E-02_JPRB,&
2349
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.3978E-02_JPRB,2.3783E-02_JPRB,2.7070E-02_JPRB/)
2350 KAO( :, 5, 4,12) = (/&
2351 & 4.3814E-02_JPRB,3.8836E-02_JPRB,3.5796E-02_JPRB,3.3909E-02_JPRB,3.1572E-02_JPRB,2.8214E-02_JPRB,&
2352
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.5779E-02_JPRB,2.6823E-02_JPRB,3.0560E-02_JPRB/)
2353 KAO( :, 1, 5,12) = (/&
2354 & 4.3987E-02_JPRB,3.8530E-02_JPRB,3.4139E-02_JPRB,3.0809E-02_JPRB,2.7641E-02_JPRB,2.4664E-02_JPRB,&
2355
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0281E-02_JPRB,1.4828E-02_JPRB,1.4596E-02_JPRB/)
2356 KAO( :, 2, 5,12) = (/&
2357 & 4.4423E-02_JPRB,3.8965E-02_JPRB,3.5098E-02_JPRB,3.1717E-02_JPRB,2.9032E-02_JPRB,2.5717E-02_JPRB,&
2358
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1306E-02_JPRB,1.6792E-02_JPRB,1.7692E-02_JPRB/)
2359 KAO( :, 3, 5,12) = (/&
2360 & 4.4740E-02_JPRB,3.9368E-02_JPRB,3.5854E-02_JPRB,3.2800E-02_JPRB,3.0202E-02_JPRB,2.6633E-02_JPRB,&
2361
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2521E-02_JPRB,1.9130E-02_JPRB,2.0967E-02_JPRB/)
2362 KAO( :, 4, 5,12) = (/&
2363 & 4.4784E-02_JPRB,3.9578E-02_JPRB,3.6349E-02_JPRB,3.3852E-02_JPRB,3.1212E-02_JPRB,2.7594E-02_JPRB,&
2364
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.3985E-02_JPRB,2.1768E-02_JPRB,2.4335E-02_JPRB/)
2365 KAO( :, 5, 5,12) = (/&
2366 & 4.4634E-02_JPRB,3.9684E-02_JPRB,3.6716E-02_JPRB,3.4783E-02_JPRB,3.2166E-02_JPRB,2.8840E-02_JPRB,&
2367
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.5566E-02_JPRB,2.4589E-02_JPRB,2.7780E-02_JPRB/)
2368 KAO( :, 1, 6,12) = (/&
2369 & 4.3652E-02_JPRB,3.8230E-02_JPRB,3.4067E-02_JPRB,3.0633E-02_JPRB,2.7394E-02_JPRB,2.4357E-02_JPRB,&
2370
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0018E-02_JPRB,1.4129E-02_JPRB,1.2309E-02_JPRB/)
2371 KAO( :, 2, 6,12) = (/&
2372 & 4.4319E-02_JPRB,3.8893E-02_JPRB,3.5172E-02_JPRB,3.1745E-02_JPRB,2.8902E-02_JPRB,2.5570E-02_JPRB,&
2373
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1093E-02_JPRB,1.5716E-02_JPRB,1.5104E-02_JPRB/)
2374 KAO( :, 3, 6,12) = (/&
2375 & 4.4786E-02_JPRB,3.9451E-02_JPRB,3.6064E-02_JPRB,3.2991E-02_JPRB,3.0223E-02_JPRB,2.6609E-02_JPRB,&
2376
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2435E-02_JPRB,1.7637E-02_JPRB,1.8165E-02_JPRB/)
2377 KAO( :, 4, 6,12) = (/&
2378 & 4.4788E-02_JPRB,3.9699E-02_JPRB,3.6561E-02_JPRB,3.4163E-02_JPRB,3.1314E-02_JPRB,2.7788E-02_JPRB,&
2379
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.3906E-02_JPRB,1.9877E-02_JPRB,2.1395E-02_JPRB/)
2380 KAO( :, 5, 6,12) = (/&
2381 & 4.4447E-02_JPRB,3.9668E-02_JPRB,3.6988E-02_JPRB,3.5173E-02_JPRB,3.2361E-02_JPRB,2.9209E-02_JPRB,&
2382
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.5326E-02_JPRB,2.2392E-02_JPRB,2.4740E-02_JPRB/)
2383 KAO( :, 1, 7,12) = (/&
2384 & 4.2520E-02_JPRB,3.7241E-02_JPRB,3.3313E-02_JPRB,2.9817E-02_JPRB,2.6724E-02_JPRB,2.3713E-02_JPRB,&
2385
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9392E-02_JPRB,1.3514E-02_JPRB,1.0779E-02_JPRB/)
2386 KAO( :, 2, 7,12) = (/&
2387 & 4.3342E-02_JPRB,3.8062E-02_JPRB,3.4549E-02_JPRB,3.1204E-02_JPRB,2.8393E-02_JPRB,2.5083E-02_JPRB,&
2388
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0539E-02_JPRB,1.4970E-02_JPRB,1.2835E-02_JPRB/)
2389 KAO( :, 3, 7,12) = (/&
2390 & 4.3790E-02_JPRB,3.8673E-02_JPRB,3.5497E-02_JPRB,3.2592E-02_JPRB,2.9885E-02_JPRB,2.6278E-02_JPRB,&
2391
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1950E-02_JPRB,1.6561E-02_JPRB,1.5528E-02_JPRB/)
2392 KAO( :, 4, 7,12) = (/&
2393 & 4.3699E-02_JPRB,3.8889E-02_JPRB,3.6038E-02_JPRB,3.3992E-02_JPRB,3.1096E-02_JPRB,2.7610E-02_JPRB,&
2394
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.3462E-02_JPRB,1.8494E-02_JPRB,1.8561E-02_JPRB/)
2395 KAO( :, 5, 7,12) = (/&
2396 & 4.3391E-02_JPRB,3.8899E-02_JPRB,3.6695E-02_JPRB,3.5094E-02_JPRB,3.2242E-02_JPRB,2.9127E-02_JPRB,&
2397
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4986E-02_JPRB,2.0683E-02_JPRB,2.1759E-02_JPRB/)
2398 KAO( :, 1, 8,12) = (/&
2399 & 4.0705E-02_JPRB,3.5661E-02_JPRB,3.2044E-02_JPRB,2.8588E-02_JPRB,2.5730E-02_JPRB,2.2651E-02_JPRB,&
2400
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8403E-02_JPRB,1.2786E-02_JPRB,1.0617E-02_JPRB/)
2401 KAO( :, 2, 8,12) = (/&
2402 & 4.1513E-02_JPRB,3.6523E-02_JPRB,3.3287E-02_JPRB,3.0168E-02_JPRB,2.7518E-02_JPRB,2.4185E-02_JPRB,&
2403
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9645E-02_JPRB,1.4186E-02_JPRB,1.1770E-02_JPRB/)
2404 KAO( :, 3, 8,12) = (/&
2405 & 4.1918E-02_JPRB,3.7171E-02_JPRB,3.4241E-02_JPRB,3.1699E-02_JPRB,2.9124E-02_JPRB,2.5489E-02_JPRB,&
2406
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1120E-02_JPRB,1.5769E-02_JPRB,1.3550E-02_JPRB/)
2407 KAO( :, 4, 8,12) = (/&
2408 & 4.1853E-02_JPRB,3.7439E-02_JPRB,3.4958E-02_JPRB,3.3201E-02_JPRB,3.0465E-02_JPRB,2.6939E-02_JPRB,&
2409
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2712E-02_JPRB,1.7517E-02_JPRB,1.5986E-02_JPRB/)
2410 KAO( :, 5, 8,12) = (/&
2411 & 4.1733E-02_JPRB,3.7668E-02_JPRB,3.5839E-02_JPRB,3.4355E-02_JPRB,3.1760E-02_JPRB,2.8542E-02_JPRB,&
2412
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4348E-02_JPRB,1.9402E-02_JPRB,1.8887E-02_JPRB/)
2413 KAO( :, 1, 9,12) = (/&
2414 & 3.8179E-02_JPRB,3.3470E-02_JPRB,3.0206E-02_JPRB,2.7054E-02_JPRB,2.4424E-02_JPRB,2.1213E-02_JPRB,&
2415
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7112E-02_JPRB,1.2467E-02_JPRB,1.5003E-02_JPRB/)
2416 KAO( :, 2, 9,12) = (/&
2417 & 3.9010E-02_JPRB,3.4434E-02_JPRB,3.1441E-02_JPRB,2.8741E-02_JPRB,2.6231E-02_JPRB,2.2823E-02_JPRB,&
2418
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8428E-02_JPRB,1.3530E-02_JPRB,1.6372E-02_JPRB/)
2419 KAO( :, 3, 9,12) = (/&
2420 & 3.9453E-02_JPRB,3.5166E-02_JPRB,3.2518E-02_JPRB,3.0394E-02_JPRB,2.7907E-02_JPRB,2.4225E-02_JPRB,&
2421
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9954E-02_JPRB,1.4900E-02_JPRB,1.8039E-02_JPRB/)
2422 KAO( :, 4, 9,12) = (/&
2423 & 3.9552E-02_JPRB,3.5595E-02_JPRB,3.3460E-02_JPRB,3.1929E-02_JPRB,2.9264E-02_JPRB,2.5769E-02_JPRB,&
2424
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1600E-02_JPRB,1.6537E-02_JPRB,1.9903E-02_JPRB/)
2425 KAO( :, 5, 9,12) = (/&
2426 & 3.9456E-02_JPRB,3.5940E-02_JPRB,3.4560E-02_JPRB,3.3060E-02_JPRB,3.0675E-02_JPRB,2.7481E-02_JPRB,&
2427
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.3382E-02_JPRB,1.8398E-02_JPRB,2.1739E-02_JPRB/)
2428 KAO( :, 1,10,12) = (/&
2429 & 3.5238E-02_JPRB,3.0971E-02_JPRB,2.8042E-02_JPRB,2.5331E-02_JPRB,2.2876E-02_JPRB,1.9632E-02_JPRB,&
2430
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5965E-02_JPRB,1.2700E-02_JPRB,4.7338E-02_JPRB/)
2431 KAO( :, 2,10,12) = (/&
2432 & 3.6134E-02_JPRB,3.2062E-02_JPRB,2.9356E-02_JPRB,2.7135E-02_JPRB,2.4639E-02_JPRB,2.1263E-02_JPRB,&
2433
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7126E-02_JPRB,1.3564E-02_JPRB,4.9352E-02_JPRB/)
2434 KAO( :, 3,10,12) = (/&
2435 & 3.6647E-02_JPRB,3.2881E-02_JPRB,3.0571E-02_JPRB,2.8822E-02_JPRB,2.6275E-02_JPRB,2.2691E-02_JPRB,&
2436
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8634E-02_JPRB,1.4609E-02_JPRB,5.1163E-02_JPRB/)
2437 KAO( :, 4,10,12) = (/&
2438 & 3.6732E-02_JPRB,3.3352E-02_JPRB,3.1697E-02_JPRB,3.0299E-02_JPRB,2.7653E-02_JPRB,2.4298E-02_JPRB,&
2439
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0355E-02_JPRB,1.5925E-02_JPRB,5.2665E-02_JPRB/)
2440 KAO( :, 5,10,12) = (/&
2441 & 3.6735E-02_JPRB,3.3801E-02_JPRB,3.2857E-02_JPRB,3.1401E-02_JPRB,2.9116E-02_JPRB,2.6070E-02_JPRB,&
2442
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2245E-02_JPRB,1.7479E-02_JPRB,5.4548E-02_JPRB/)
2443 KAO( :, 1,11,12) = (/&
2444 & 3.2545E-02_JPRB,2.8854E-02_JPRB,2.6358E-02_JPRB,2.4300E-02_JPRB,2.1804E-02_JPRB,1.8684E-02_JPRB,&
2445
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5775E-02_JPRB,1.3392E-02_JPRB,8.3440E-02_JPRB/)
2446 KAO( :, 2,11,12) = (/&
2447 & 3.3300E-02_JPRB,2.9905E-02_JPRB,2.7758E-02_JPRB,2.6019E-02_JPRB,2.3465E-02_JPRB,2.0097E-02_JPRB,&
2448
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
 10 & 1.6793E-02_JPRB,1.4249E-02_JPRB,8.5867E-02_JPRB/)
2449
2450
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART8',1,ZHOOK_HANDLE)
2451 1 END SUBROUTINE PART8
2452
2453
2454 1 SUBROUTINE PART9
2455
2456 REAL(KIND=JPRB) :: ZHOOK_HANDLE
2457
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART9',0,ZHOOK_HANDLE)
2458
2459
2460 KAO( :, 3,11,12) = (/&
2461 & 3.3558E-02_JPRB,3.0525E-02_JPRB,2.8985E-02_JPRB,2.7554E-02_JPRB,2.4920E-02_JPRB,2.1636E-02_JPRB,&
2462
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8144E-02_JPRB,1.5281E-02_JPRB,8.8098E-02_JPRB/)
2463 KAO( :, 4,11,12) = (/&
2464 & 3.3710E-02_JPRB,3.1080E-02_JPRB,3.0218E-02_JPRB,2.8753E-02_JPRB,2.6347E-02_JPRB,2.3365E-02_JPRB,&
2465
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9836E-02_JPRB,1.6406E-02_JPRB,9.0071E-02_JPRB/)
2466 KAO( :, 5,11,12) = (/&
2467 & 3.3928E-02_JPRB,3.1726E-02_JPRB,3.1326E-02_JPRB,2.9966E-02_JPRB,2.7916E-02_JPRB,2.5204E-02_JPRB,&
2468
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1753E-02_JPRB,1.7712E-02_JPRB,9.1519E-02_JPRB/)
2469 KAO( :, 1,12,12) = (/&
2470 & 2.9830E-02_JPRB,2.6721E-02_JPRB,2.4676E-02_JPRB,2.2938E-02_JPRB,2.0448E-02_JPRB,1.7882E-02_JPRB,&
2471
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5923E-02_JPRB,1.3970E-02_JPRB,1.1086E-01_JPRB/)
2472 KAO( :, 2,12,12) = (/&
2473 & 3.0231E-02_JPRB,2.7476E-02_JPRB,2.6007E-02_JPRB,2.4462E-02_JPRB,2.1935E-02_JPRB,1.9103E-02_JPRB,&
2474
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6840E-02_JPRB,1.4875E-02_JPRB,1.1330E-01_JPRB/)
2475 KAO( :, 3,12,12) = (/&
2476 & 3.0491E-02_JPRB,2.8099E-02_JPRB,2.7260E-02_JPRB,2.5711E-02_JPRB,2.3307E-02_JPRB,2.0562E-02_JPRB,&
2477
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8077E-02_JPRB,1.5918E-02_JPRB,1.1557E-01_JPRB/)
2478 KAO( :, 4,12,12) = (/&
2479 & 3.0757E-02_JPRB,2.8842E-02_JPRB,2.8411E-02_JPRB,2.6924E-02_JPRB,2.4803E-02_JPRB,2.2253E-02_JPRB,&
2480
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9581E-02_JPRB,1.7012E-02_JPRB,1.1765E-01_JPRB/)
2481 KAO( :, 5,12,12) = (/&
2482 & 3.0918E-02_JPRB,2.9599E-02_JPRB,2.9489E-02_JPRB,2.8288E-02_JPRB,2.6494E-02_JPRB,2.4129E-02_JPRB,&
2483
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1275E-02_JPRB,1.8143E-02_JPRB,1.1909E-01_JPRB/)
2484 KAO( :, 1,13,12) = (/&
2485 & 2.7094E-02_JPRB,2.4532E-02_JPRB,2.3049E-02_JPRB,2.1309E-02_JPRB,1.9154E-02_JPRB,1.7486E-02_JPRB,&
2486
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6144E-02_JPRB,1.4353E-02_JPRB,1.1524E-01_JPRB/)
2487 KAO( :, 2,13,12) = (/&
2488 & 2.7412E-02_JPRB,2.5168E-02_JPRB,2.4223E-02_JPRB,2.2514E-02_JPRB,2.0316E-02_JPRB,1.8507E-02_JPRB,&
2489
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7150E-02_JPRB,1.5366E-02_JPRB,1.1754E-01_JPRB/)
2490 KAO( :, 3,13,12) = (/&
2491 & 2.7677E-02_JPRB,2.5904E-02_JPRB,2.5334E-02_JPRB,2.3685E-02_JPRB,2.1617E-02_JPRB,1.9773E-02_JPRB,&
2492
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8343E-02_JPRB,1.6413E-02_JPRB,1.1954E-01_JPRB/)
2493 KAO( :, 4,13,12) = (/&
2494 & 2.7872E-02_JPRB,2.6672E-02_JPRB,2.6384E-02_JPRB,2.5015E-02_JPRB,2.3188E-02_JPRB,2.1278E-02_JPRB,&
2495
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9644E-02_JPRB,1.7533E-02_JPRB,1.2118E-01_JPRB/)
2496 KAO( :, 5,13,12) = (/&
2497 & 2.7954E-02_JPRB,2.7488E-02_JPRB,2.7495E-02_JPRB,2.6532E-02_JPRB,2.4977E-02_JPRB,2.3012E-02_JPRB,&
2498
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1088E-02_JPRB,1.8595E-02_JPRB,1.2230E-01_JPRB/)
2499 KAO( :, 1, 1,13) = (/&
2500 & 5.6053E-02_JPRB,4.9173E-02_JPRB,4.2351E-02_JPRB,3.6619E-02_JPRB,3.1919E-02_JPRB,2.7549E-02_JPRB,&
2501
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.5709E-02_JPRB,2.8817E-02_JPRB,3.2228E-02_JPRB/)
2502 KAO( :, 2, 1,13) = (/&
2503 & 5.5104E-02_JPRB,4.8363E-02_JPRB,4.1989E-02_JPRB,3.6731E-02_JPRB,3.2283E-02_JPRB,2.9042E-02_JPRB,&
2504
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.9013E-02_JPRB,3.3235E-02_JPRB,3.7260E-02_JPRB/)
2505 KAO( :, 3, 1,13) = (/&
2506 & 5.3995E-02_JPRB,4.7411E-02_JPRB,4.1385E-02_JPRB,3.6532E-02_JPRB,3.2764E-02_JPRB,3.0737E-02_JPRB,&
2507
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.2896E-02_JPRB,3.7808E-02_JPRB,4.2479E-02_JPRB/)
2508 KAO( :, 4, 1,13) = (/&
2509 & 5.2736E-02_JPRB,4.6336E-02_JPRB,4.0785E-02_JPRB,3.6489E-02_JPRB,3.3723E-02_JPRB,3.2658E-02_JPRB,&
2510
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.6921E-02_JPRB,4.2523E-02_JPRB,4.7856E-02_JPRB/)
2511 KAO( :, 5, 1,13) = (/&
2512 & 5.1501E-02_JPRB,4.5267E-02_JPRB,4.0254E-02_JPRB,3.6460E-02_JPRB,3.5114E-02_JPRB,3.5037E-02_JPRB,&
2513
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.0972E-02_JPRB,4.7260E-02_JPRB,5.3261E-02_JPRB/)
2514 KAO( :, 1, 2,13) = (/&
2515 & 6.0681E-02_JPRB,5.3202E-02_JPRB,4.5845E-02_JPRB,3.9636E-02_JPRB,3.4042E-02_JPRB,2.9064E-02_JPRB,&
2516
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.6532E-02_JPRB,2.9036E-02_JPRB,3.2832E-02_JPRB/)
2517 KAO( :, 2, 2,13) = (/&
2518 & 5.9591E-02_JPRB,5.2263E-02_JPRB,4.5381E-02_JPRB,3.9598E-02_JPRB,3.4216E-02_JPRB,3.0746E-02_JPRB,&
2519
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.9570E-02_JPRB,3.3591E-02_JPRB,3.8065E-02_JPRB/)
2520 KAO( :, 3, 2,13) = (/&
2521 & 5.8268E-02_JPRB,5.1123E-02_JPRB,4.4655E-02_JPRB,3.9364E-02_JPRB,3.4820E-02_JPRB,3.2584E-02_JPRB,&
2522
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.3306E-02_JPRB,3.8344E-02_JPRB,4.3514E-02_JPRB/)
2523 KAO( :, 4, 2,13) = (/&
2524 & 5.6859E-02_JPRB,4.9908E-02_JPRB,4.4073E-02_JPRB,3.9320E-02_JPRB,3.5951E-02_JPRB,3.4443E-02_JPRB,&
2525
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.7381E-02_JPRB,4.3145E-02_JPRB,4.9018E-02_JPRB/)
2526 KAO( :, 5, 2,13) = (/&
2527 & 5.5606E-02_JPRB,4.8809E-02_JPRB,4.3641E-02_JPRB,3.9295E-02_JPRB,3.7457E-02_JPRB,3.6510E-02_JPRB,&
2528
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.1577E-02_JPRB,4.8053E-02_JPRB,5.4636E-02_JPRB/)
2529 KAO( :, 1, 3,13) = (/&
2530 & 6.5281E-02_JPRB,5.7202E-02_JPRB,4.9259E-02_JPRB,4.2481E-02_JPRB,3.6242E-02_JPRB,3.0257E-02_JPRB,&
2531
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.6947E-02_JPRB,2.7850E-02_JPRB,3.1754E-02_JPRB/)
2532 KAO( :, 2, 3,13) = (/&
2533 & 6.4026E-02_JPRB,5.6115E-02_JPRB,4.8709E-02_JPRB,4.2529E-02_JPRB,3.6413E-02_JPRB,3.1975E-02_JPRB,&
2534
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.9537E-02_JPRB,3.2421E-02_JPRB,3.6975E-02_JPRB/)
2535 KAO( :, 3, 3,13) = (/&
2536 & 6.2582E-02_JPRB,5.4864E-02_JPRB,4.7944E-02_JPRB,4.2387E-02_JPRB,3.6942E-02_JPRB,3.3882E-02_JPRB,&
2537
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.2746E-02_JPRB,3.7152E-02_JPRB,4.2391E-02_JPRB/)
2538 KAO( :, 4, 3,13) = (/&
2539 & 6.1252E-02_JPRB,5.3699E-02_JPRB,4.7471E-02_JPRB,4.2276E-02_JPRB,3.8007E-02_JPRB,3.5845E-02_JPRB,&
2540
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.6492E-02_JPRB,4.2063E-02_JPRB,4.8049E-02_JPRB/)
2541 KAO( :, 5, 3,13) = (/&
2542 & 6.0092E-02_JPRB,5.2697E-02_JPRB,4.7050E-02_JPRB,4.2178E-02_JPRB,3.9419E-02_JPRB,3.7791E-02_JPRB,&
2543
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.0791E-02_JPRB,4.7197E-02_JPRB,5.3978E-02_JPRB/)
2544 KAO( :, 1, 4,13) = (/&
2545 & 6.9156E-02_JPRB,6.0580E-02_JPRB,5.2151E-02_JPRB,4.4993E-02_JPRB,3.8321E-02_JPRB,3.1681E-02_JPRB,&
2546
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.7066E-02_JPRB,2.6200E-02_JPRB,2.9938E-02_JPRB/)
2547 KAO( :, 2, 4,13) = (/&
2548 & 6.7721E-02_JPRB,5.9333E-02_JPRB,5.1460E-02_JPRB,4.5174E-02_JPRB,3.8672E-02_JPRB,3.3341E-02_JPRB,&
2549
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.9463E-02_JPRB,3.0601E-02_JPRB,3.4960E-02_JPRB/)
2550 KAO( :, 3, 4,13) = (/&
2551 & 6.6317E-02_JPRB,5.8105E-02_JPRB,5.0834E-02_JPRB,4.5138E-02_JPRB,3.9401E-02_JPRB,3.5131E-02_JPRB,&
2552
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.2153E-02_JPRB,3.5157E-02_JPRB,4.0204E-02_JPRB/)
2553 KAO( :, 4, 4,13) = (/&
2554 & 6.5137E-02_JPRB,5.7074E-02_JPRB,5.0526E-02_JPRB,4.5041E-02_JPRB,4.0452E-02_JPRB,3.6956E-02_JPRB,&
2555
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.5433E-02_JPRB,4.0097E-02_JPRB,4.5914E-02_JPRB/)
2556 KAO( :, 5, 4,13) = (/&
2557 & 6.4115E-02_JPRB,5.6230E-02_JPRB,5.0276E-02_JPRB,4.5144E-02_JPRB,4.1609E-02_JPRB,3.8932E-02_JPRB,&
2558
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.9448E-02_JPRB,4.5417E-02_JPRB,5.2017E-02_JPRB/)
2559 KAO( :, 1, 5,13) = (/&
2560 & 7.2400E-02_JPRB,6.3404E-02_JPRB,5.4540E-02_JPRB,4.7112E-02_JPRB,4.0185E-02_JPRB,3.3245E-02_JPRB,&
2561
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.7454E-02_JPRB,2.4538E-02_JPRB,2.7637E-02_JPRB/)
2562 KAO( :, 2, 5,13) = (/&
2563 & 7.1034E-02_JPRB,6.2212E-02_JPRB,5.3950E-02_JPRB,4.7421E-02_JPRB,4.0716E-02_JPRB,3.5033E-02_JPRB,&
2564
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.9541E-02_JPRB,2.8475E-02_JPRB,3.2456E-02_JPRB/)
2565 KAO( :, 3, 5,13) = (/&
2566 & 6.9683E-02_JPRB,6.1033E-02_JPRB,5.3449E-02_JPRB,4.7487E-02_JPRB,4.1776E-02_JPRB,3.6647E-02_JPRB,&
2567
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.1941E-02_JPRB,3.2964E-02_JPRB,3.7708E-02_JPRB/)
2568 KAO( :, 4, 5,13) = (/&
2569 & 6.8593E-02_JPRB,6.0082E-02_JPRB,5.3255E-02_JPRB,4.7581E-02_JPRB,4.2936E-02_JPRB,3.8247E-02_JPRB,&
2570
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.4793E-02_JPRB,3.7940E-02_JPRB,4.3452E-02_JPRB/)
2571 KAO( :, 5, 5,13) = (/&
2572 & 6.7660E-02_JPRB,5.9367E-02_JPRB,5.3230E-02_JPRB,4.8095E-02_JPRB,4.3998E-02_JPRB,4.0012E-02_JPRB,&
2573
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.8369E-02_JPRB,4.3216E-02_JPRB,4.9502E-02_JPRB/)
2574 KAO( :, 1, 6,13) = (/&
2575 & 7.5282E-02_JPRB,6.5913E-02_JPRB,5.6672E-02_JPRB,4.9038E-02_JPRB,4.1667E-02_JPRB,3.4580E-02_JPRB,&
2576
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.8084E-02_JPRB,2.2885E-02_JPRB,2.4729E-02_JPRB/)
2577 KAO( :, 2, 6,13) = (/&
2578 & 7.3954E-02_JPRB,6.4757E-02_JPRB,5.6182E-02_JPRB,4.9451E-02_JPRB,4.2376E-02_JPRB,3.6480E-02_JPRB,&
2579
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.0034E-02_JPRB,2.6432E-02_JPRB,2.9602E-02_JPRB/)
2580 KAO( :, 3, 6,13) = (/&
2581 & 7.2618E-02_JPRB,6.3591E-02_JPRB,5.5752E-02_JPRB,4.9591E-02_JPRB,4.3630E-02_JPRB,3.8182E-02_JPRB,&
2582
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.2101E-02_JPRB,3.0615E-02_JPRB,3.4863E-02_JPRB/)
2583 KAO( :, 4, 6,13) = (/&
2584 & 7.1650E-02_JPRB,6.2766E-02_JPRB,5.5838E-02_JPRB,4.9867E-02_JPRB,4.5071E-02_JPRB,3.9626E-02_JPRB,&
2585
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.4633E-02_JPRB,3.5415E-02_JPRB,4.0513E-02_JPRB/)
2586 KAO( :, 5, 6,13) = (/&
2587 & 7.0928E-02_JPRB,6.2275E-02_JPRB,5.5944E-02_JPRB,5.0656E-02_JPRB,4.6360E-02_JPRB,4.1240E-02_JPRB,&
2588
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.7820E-02_JPRB,4.0601E-02_JPRB,4.6473E-02_JPRB/)
2589 KAO( :, 1, 7,13) = (/&
2590 & 7.7231E-02_JPRB,6.7608E-02_JPRB,5.8137E-02_JPRB,5.0496E-02_JPRB,4.2780E-02_JPRB,3.5440E-02_JPRB,&
2591
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.8711E-02_JPRB,2.1532E-02_JPRB,2.1358E-02_JPRB/)
2592 KAO( :, 2, 7,13) = (/&
2593 & 7.6126E-02_JPRB,6.6645E-02_JPRB,5.7867E-02_JPRB,5.0956E-02_JPRB,4.3638E-02_JPRB,3.7441E-02_JPRB,&
2594
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.0756E-02_JPRB,2.4515E-02_JPRB,2.6150E-02_JPRB/)
2595 KAO( :, 3, 7,13) = (/&
2596 & 7.4977E-02_JPRB,6.5643E-02_JPRB,5.7692E-02_JPRB,5.1264E-02_JPRB,4.5058E-02_JPRB,3.9385E-02_JPRB,&
2597
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.2638E-02_JPRB,2.8375E-02_JPRB,3.1403E-02_JPRB/)
2598 KAO( :, 4, 7,13) = (/&
2599 & 7.4190E-02_JPRB,6.5005E-02_JPRB,5.7989E-02_JPRB,5.1738E-02_JPRB,4.6795E-02_JPRB,4.1075E-02_JPRB,&
2600
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.4915E-02_JPRB,3.2892E-02_JPRB,3.7110E-02_JPRB/)
2601 KAO( :, 5, 7,13) = (/&
2602 & 7.3624E-02_JPRB,6.4678E-02_JPRB,5.8242E-02_JPRB,5.2839E-02_JPRB,4.8405E-02_JPRB,4.2696E-02_JPRB,&
2603
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.7814E-02_JPRB,3.7869E-02_JPRB,4.3186E-02_JPRB/)
2604 KAO( :, 1, 8,13) = (/&
2605 & 7.8000E-02_JPRB,6.8274E-02_JPRB,5.8718E-02_JPRB,5.1101E-02_JPRB,4.3121E-02_JPRB,3.5929E-02_JPRB,&
2606
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.8945E-02_JPRB,2.0591E-02_JPRB,1.8045E-02_JPRB/)
2607 KAO( :, 2, 8,13) = (/&
2608 & 7.7193E-02_JPRB,6.7571E-02_JPRB,5.8739E-02_JPRB,5.1625E-02_JPRB,4.4291E-02_JPRB,3.8058E-02_JPRB,&
2609
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.1224E-02_JPRB,2.3099E-02_JPRB,2.2474E-02_JPRB/)
2610 KAO( :, 3, 8,13) = (/&
2611 & 7.6273E-02_JPRB,6.6769E-02_JPRB,5.8915E-02_JPRB,5.2274E-02_JPRB,4.5989E-02_JPRB,4.0273E-02_JPRB,&
2612
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.3241E-02_JPRB,2.6350E-02_JPRB,2.7546E-02_JPRB/)
2613 KAO( :, 4, 8,13) = (/&
2614 & 7.5688E-02_JPRB,6.6346E-02_JPRB,5.9396E-02_JPRB,5.3087E-02_JPRB,4.8066E-02_JPRB,4.2222E-02_JPRB,&
2615
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.5406E-02_JPRB,3.0325E-02_JPRB,3.3143E-02_JPRB/)
2616 KAO( :, 5, 8,13) = (/&
2617 & 7.5270E-02_JPRB,6.6169E-02_JPRB,5.9886E-02_JPRB,5.4558E-02_JPRB,5.0013E-02_JPRB,4.4073E-02_JPRB,&
2618
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.8032E-02_JPRB,3.5067E-02_JPRB,3.9209E-02_JPRB/)
2619 KAO( :, 1, 9,13) = (/&
2620 & 7.7473E-02_JPRB,6.7808E-02_JPRB,5.8332E-02_JPRB,5.0781E-02_JPRB,4.2784E-02_JPRB,3.5895E-02_JPRB,&
2621
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.8746E-02_JPRB,1.9977E-02_JPRB,2.5516E-02_JPRB/)
2622 KAO( :, 2, 9,13) = (/&
2623 & 7.6914E-02_JPRB,6.7321E-02_JPRB,5.8710E-02_JPRB,5.1554E-02_JPRB,4.4348E-02_JPRB,3.8188E-02_JPRB,&
2624
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.1209E-02_JPRB,2.2143E-02_JPRB,2.7211E-02_JPRB/)
2625 KAO( :, 3, 9,13) = (/&
2626 & 7.6348E-02_JPRB,6.6831E-02_JPRB,5.9238E-02_JPRB,5.2455E-02_JPRB,4.6359E-02_JPRB,4.0690E-02_JPRB,&
2627
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.3365E-02_JPRB,2.4927E-02_JPRB,2.8892E-02_JPRB/)
2628 KAO( :, 4, 9,13) = (/&
2629 & 7.6078E-02_JPRB,6.6718E-02_JPRB,5.9965E-02_JPRB,5.3687E-02_JPRB,4.8782E-02_JPRB,4.2963E-02_JPRB,&
2630
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.5682E-02_JPRB,2.8422E-02_JPRB,3.1640E-02_JPRB/)
2631 KAO( :, 5, 9,13) = (/&
2632 & 7.5933E-02_JPRB,6.6835E-02_JPRB,6.0758E-02_JPRB,5.5666E-02_JPRB,5.1075E-02_JPRB,4.5007E-02_JPRB,&
2633
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.8345E-02_JPRB,3.2458E-02_JPRB,3.5657E-02_JPRB/)
2634 KAO( :, 1,10,13) = (/&
2635 & 7.5495E-02_JPRB,6.6073E-02_JPRB,5.6962E-02_JPRB,4.9669E-02_JPRB,4.1944E-02_JPRB,3.5433E-02_JPRB,&
2636
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.8273E-02_JPRB,1.9547E-02_JPRB,6.8270E-02_JPRB/)
2637 KAO( :, 2,10,13) = (/&
2638 & 7.5127E-02_JPRB,6.5753E-02_JPRB,5.7655E-02_JPRB,5.0612E-02_JPRB,4.3966E-02_JPRB,3.7985E-02_JPRB,&
2639
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.0798E-02_JPRB,2.1586E-02_JPRB,7.2556E-02_JPRB/)
2640 KAO( :, 3,10,13) = (/&
2641 & 7.4986E-02_JPRB,6.5658E-02_JPRB,5.8530E-02_JPRB,5.1941E-02_JPRB,4.6351E-02_JPRB,4.0729E-02_JPRB,&
2642
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.3154E-02_JPRB,2.4145E-02_JPRB,7.6901E-02_JPRB/)
2643 KAO( :, 4,10,13) = (/&
2644 & 7.5261E-02_JPRB,6.6078E-02_JPRB,5.9658E-02_JPRB,5.3761E-02_JPRB,4.9061E-02_JPRB,4.3256E-02_JPRB,&
2645
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.5593E-02_JPRB,2.7205E-02_JPRB,8.0949E-02_JPRB/)
2646 KAO( :, 5,10,13) = (/&
2647 & 7.5310E-02_JPRB,6.6484E-02_JPRB,6.0891E-02_JPRB,5.6203E-02_JPRB,5.1608E-02_JPRB,4.5631E-02_JPRB,&
2648
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.8393E-02_JPRB,3.0810E-02_JPRB,8.3946E-02_JPRB/)
2649 KAO( :, 1,11,13) = (/&
2650 & 7.2145E-02_JPRB,6.3140E-02_JPRB,5.5079E-02_JPRB,4.8199E-02_JPRB,4.1552E-02_JPRB,3.5607E-02_JPRB,&
2651
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.8410E-02_JPRB,2.0333E-02_JPRB,1.1722E-01_JPRB/)
2652 KAO( :, 2,11,13) = (/&
2653 & 7.2308E-02_JPRB,6.3289E-02_JPRB,5.6229E-02_JPRB,4.9646E-02_JPRB,4.4153E-02_JPRB,3.8471E-02_JPRB,&
2654
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.1024E-02_JPRB,2.2227E-02_JPRB,1.2017E-01_JPRB/)
2655 KAO( :, 3,11,13) = (/&
2656 & 7.2843E-02_JPRB,6.3926E-02_JPRB,5.7644E-02_JPRB,5.1784E-02_JPRB,4.7031E-02_JPRB,4.1323E-02_JPRB,&
2657
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.3588E-02_JPRB,2.4733E-02_JPRB,1.2387E-01_JPRB/)
2658 KAO( :, 4,11,13) = (/&
2659 & 7.3135E-02_JPRB,6.4581E-02_JPRB,5.9101E-02_JPRB,5.4448E-02_JPRB,4.9988E-02_JPRB,4.3915E-02_JPRB,&
2660
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.6387E-02_JPRB,2.7718E-02_JPRB,1.2773E-01_JPRB/)
2661 KAO( :, 5,11,13) = (/&
2662 & 7.3317E-02_JPRB,6.5357E-02_JPRB,6.0772E-02_JPRB,5.7257E-02_JPRB,5.2643E-02_JPRB,4.6647E-02_JPRB,&
2663
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.9495E-02_JPRB,3.1088E-02_JPRB,1.3117E-01_JPRB/)
2664 KAO( :, 1,12,13) = (/&
2665 & 6.8339E-02_JPRB,5.9807E-02_JPRB,5.2868E-02_JPRB,4.6514E-02_JPRB,4.1030E-02_JPRB,3.5325E-02_JPRB,&
2666
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.8259E-02_JPRB,2.1368E-02_JPRB,1.5845E-01_JPRB/)
2667 KAO( :, 2,12,13) = (/&
2668 & 6.9028E-02_JPRB,6.0544E-02_JPRB,5.4494E-02_JPRB,4.8800E-02_JPRB,4.4025E-02_JPRB,3.8260E-02_JPRB,&
2669
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.0917E-02_JPRB,2.3169E-02_JPRB,1.6072E-01_JPRB/)
2670 KAO( :, 3,12,13) = (/&
2671 & 6.9564E-02_JPRB,6.1451E-02_JPRB,5.6107E-02_JPRB,5.1605E-02_JPRB,4.7233E-02_JPRB,4.1139E-02_JPRB,&
2672
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.3727E-02_JPRB,2.5462E-02_JPRB,1.6379E-01_JPRB/)
2673 KAO( :, 4,12,13) = (/&
2674 & 7.0110E-02_JPRB,6.2544E-02_JPRB,5.8080E-02_JPRB,5.4612E-02_JPRB,5.0269E-02_JPRB,4.4060E-02_JPRB,&
2675
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.6850E-02_JPRB,2.8277E-02_JPRB,1.6703E-01_JPRB/)
2676 KAO( :, 5,12,13) = (/&
2677 & 7.0812E-02_JPRB,6.3874E-02_JPRB,6.0361E-02_JPRB,5.7551E-02_JPRB,5.3132E-02_JPRB,4.7188E-02_JPRB,&
2678
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.0179E-02_JPRB,3.1468E-02_JPRB,1.7022E-01_JPRB/)
2679 KAO( :, 1,13,13) = (/&
2680 & 6.4142E-02_JPRB,5.6225E-02_JPRB,5.0394E-02_JPRB,4.4947E-02_JPRB,4.0201E-02_JPRB,3.4418E-02_JPRB,&
2681
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.8158E-02_JPRB,2.2746E-02_JPRB,1.7050E-01_JPRB/)
2682 KAO( :, 2,13,13) = (/&
2683 & 6.4886E-02_JPRB,5.7309E-02_JPRB,5.2171E-02_JPRB,4.7818E-02_JPRB,4.3432E-02_JPRB,3.7455E-02_JPRB,&
2684
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.0630E-02_JPRB,2.4364E-02_JPRB,1.7276E-01_JPRB/)
2685 KAO( :, 3,13,13) = (/&
2686 & 6.5727E-02_JPRB,5.8652E-02_JPRB,5.4299E-02_JPRB,5.0937E-02_JPRB,4.6609E-02_JPRB,4.0612E-02_JPRB,&
2687
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.3484E-02_JPRB,2.6453E-02_JPRB,1.7566E-01_JPRB/)
2688 KAO( :, 4,13,13) = (/&
2689 & 6.6753E-02_JPRB,6.0302E-02_JPRB,5.6875E-02_JPRB,5.4053E-02_JPRB,4.9735E-02_JPRB,4.3858E-02_JPRB,&
2690
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.6837E-02_JPRB,2.8969E-02_JPRB,1.7832E-01_JPRB/)
2691 KAO( :, 5,13,13) = (/&
2692 & 6.7695E-02_JPRB,6.1869E-02_JPRB,5.9620E-02_JPRB,5.7064E-02_JPRB,5.2850E-02_JPRB,4.7362E-02_JPRB,&
2693
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.0382E-02_JPRB,3.1936E-02_JPRB,1.8057E-01_JPRB/)
2694 KAO( :, 1, 1,14) = (/&
2695 & 7.1125E-02_JPRB,6.2447E-02_JPRB,5.3777E-02_JPRB,4.6002E-02_JPRB,3.9919E-02_JPRB,3.6099E-02_JPRB,&
2696
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.0006E-02_JPRB,4.6122E-02_JPRB,5.1833E-02_JPRB/)
2697 KAO( :, 2, 1,14) = (/&
2698 & 6.9870E-02_JPRB,6.1342E-02_JPRB,5.2827E-02_JPRB,4.5922E-02_JPRB,4.0565E-02_JPRB,3.9007E-02_JPRB,&
2699
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.5679E-02_JPRB,5.2643E-02_JPRB,5.9148E-02_JPRB/)
2700 KAO( :, 3, 1,14) = (/&
2701 & 6.8757E-02_JPRB,6.0364E-02_JPRB,5.2393E-02_JPRB,4.6480E-02_JPRB,4.1375E-02_JPRB,4.3228E-02_JPRB,&
2702
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.1554E-02_JPRB,5.9415E-02_JPRB,6.6727E-02_JPRB/)
2703 KAO( :, 4, 1,14) = (/&
2704 & 6.7713E-02_JPRB,5.9439E-02_JPRB,5.2158E-02_JPRB,4.6803E-02_JPRB,4.2633E-02_JPRB,4.8201E-02_JPRB,&
2705
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.7539E-02_JPRB,6.6348E-02_JPRB,7.4536E-02_JPRB/)
2706 KAO( :, 5, 1,14) = (/&
2707 & 6.6600E-02_JPRB,5.8466E-02_JPRB,5.1820E-02_JPRB,4.7055E-02_JPRB,4.4661E-02_JPRB,5.3325E-02_JPRB,&
2708
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.3678E-02_JPRB,7.3404E-02_JPRB,8.2448E-02_JPRB/)
2709 KAO( :, 1, 2,14) = (/&
2710 & 7.7042E-02_JPRB,6.7550E-02_JPRB,5.8058E-02_JPRB,4.9570E-02_JPRB,4.3264E-02_JPRB,3.8479E-02_JPRB,&
2711
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.1328E-02_JPRB,4.7688E-02_JPRB,5.4228E-02_JPRB/)
2712 KAO( :, 2, 2,14) = (/&
2713 & 7.5776E-02_JPRB,6.6451E-02_JPRB,5.7187E-02_JPRB,4.9780E-02_JPRB,4.4125E-02_JPRB,4.1352E-02_JPRB,&
2714
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.7706E-02_JPRB,5.5037E-02_JPRB,6.2579E-02_JPRB/)
2715 KAO( :, 3, 2,14) = (/&
2716 & 7.4669E-02_JPRB,6.5491E-02_JPRB,5.6847E-02_JPRB,5.0512E-02_JPRB,4.5218E-02_JPRB,4.5782E-02_JPRB,&
2717
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.4332E-02_JPRB,6.2645E-02_JPRB,7.1228E-02_JPRB/)
2718 KAO( :, 4, 2,14) = (/&
2719 & 7.3494E-02_JPRB,6.4459E-02_JPRB,5.6471E-02_JPRB,5.0688E-02_JPRB,4.6511E-02_JPRB,5.1170E-02_JPRB,&
2720
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.1095E-02_JPRB,7.0411E-02_JPRB,8.0040E-02_JPRB/)
2721 KAO( :, 5, 2,14) = (/&
2722 & 7.2133E-02_JPRB,6.3274E-02_JPRB,5.5909E-02_JPRB,5.0987E-02_JPRB,4.8402E-02_JPRB,5.6911E-02_JPRB,&
2723
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.7954E-02_JPRB,7.8300E-02_JPRB,8.9007E-02_JPRB/)
2724 KAO( :, 1, 3,14) = (/&
2725 & 8.3277E-02_JPRB,7.2971E-02_JPRB,6.2667E-02_JPRB,5.3474E-02_JPRB,4.6645E-02_JPRB,4.0581E-02_JPRB,&
2726
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.0951E-02_JPRB,4.7132E-02_JPRB,5.4097E-02_JPRB/)
2727 KAO( :, 2, 3,14) = (/&
2728 & 8.2055E-02_JPRB,7.1904E-02_JPRB,6.1829E-02_JPRB,5.3750E-02_JPRB,4.7688E-02_JPRB,4.3144E-02_JPRB,&
2729
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.7845E-02_JPRB,5.5169E-02_JPRB,6.3384E-02_JPRB/)
2730 KAO( :, 3, 3,14) = (/&
2731 & 8.0862E-02_JPRB,7.0861E-02_JPRB,6.1457E-02_JPRB,5.4455E-02_JPRB,4.8823E-02_JPRB,4.7333E-02_JPRB,&
2732
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.5190E-02_JPRB,6.3675E-02_JPRB,7.3215E-02_JPRB/)
2733 KAO( :, 4, 3,14) = (/&
2734 & 7.9537E-02_JPRB,6.9705E-02_JPRB,6.0972E-02_JPRB,5.4811E-02_JPRB,5.0281E-02_JPRB,5.2809E-02_JPRB,&
2735
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.2782E-02_JPRB,7.2454E-02_JPRB,8.3349E-02_JPRB/)
2736 KAO( :, 5, 3,14) = (/&
2737 & 7.8064E-02_JPRB,6.8419E-02_JPRB,6.0465E-02_JPRB,5.5324E-02_JPRB,5.2307E-02_JPRB,5.9034E-02_JPRB,&
2738
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.0524E-02_JPRB,8.1382E-02_JPRB,9.3638E-02_JPRB/)
2739 KAO( :, 1, 4,14) = (/&
2740 & 9.0845E-02_JPRB,7.9564E-02_JPRB,6.8284E-02_JPRB,5.7995E-02_JPRB,5.0071E-02_JPRB,4.2766E-02_JPRB,&
2741
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.0354E-02_JPRB,4.5834E-02_JPRB,5.2848E-02_JPRB/)
2742 KAO( :, 2, 4,14) = (/&
2743 & 8.9552E-02_JPRB,7.8435E-02_JPRB,6.7367E-02_JPRB,5.8123E-02_JPRB,5.1123E-02_JPRB,4.5183E-02_JPRB,&
2744
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.7218E-02_JPRB,5.4390E-02_JPRB,6.2802E-02_JPRB/)
2745 KAO( :, 3, 4,14) = (/&
2746 & 8.8242E-02_JPRB,7.7291E-02_JPRB,6.6872E-02_JPRB,5.8721E-02_JPRB,5.2277E-02_JPRB,4.9062E-02_JPRB,&
2747
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
 10 & 5.5104E-02_JPRB,6.3535E-02_JPRB,7.3415E-02_JPRB/)
2748
2749
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART9',1,ZHOOK_HANDLE)
2750 1 END SUBROUTINE PART9
2751
2752
2753 1 SUBROUTINE PART10
2754
2755 REAL(KIND=JPRB) :: ZHOOK_HANDLE
2756
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART10',0,ZHOOK_HANDLE)
2757
2758
2759 KAO( :, 4, 4,14) = (/&
2760 & 8.6759E-02_JPRB,7.5998E-02_JPRB,6.6249E-02_JPRB,5.9144E-02_JPRB,5.4005E-02_JPRB,5.4305E-02_JPRB,&
2761
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.3297E-02_JPRB,7.3031E-02_JPRB,8.4384E-02_JPRB/)
2762 KAO( :, 5, 4,14) = (/&
2763 & 8.5264E-02_JPRB,7.4691E-02_JPRB,6.5716E-02_JPRB,5.9851E-02_JPRB,5.6460E-02_JPRB,6.0471E-02_JPRB,&
2764
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.1720E-02_JPRB,8.2783E-02_JPRB,9.5664E-02_JPRB/)
2765 KAO( :, 1, 5,14) = (/&
2766 & 9.9315E-02_JPRB,8.6956E-02_JPRB,7.4597E-02_JPRB,6.3098E-02_JPRB,5.3822E-02_JPRB,4.5087E-02_JPRB,&
2767
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.0285E-02_JPRB,4.4268E-02_JPRB,5.1127E-02_JPRB/)
2768 KAO( :, 2, 5,14) = (/&
2769 & 9.7906E-02_JPRB,8.5725E-02_JPRB,7.3576E-02_JPRB,6.3138E-02_JPRB,5.4941E-02_JPRB,4.7422E-02_JPRB,&
2770
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.6902E-02_JPRB,5.3385E-02_JPRB,6.1752E-02_JPRB/)
2771 KAO( :, 3, 5,14) = (/&
2772 & 9.6528E-02_JPRB,8.4522E-02_JPRB,7.2985E-02_JPRB,6.3691E-02_JPRB,5.5941E-02_JPRB,5.1390E-02_JPRB,&
2773
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.4800E-02_JPRB,6.3141E-02_JPRB,7.3064E-02_JPRB/)
2774 KAO( :, 4, 5,14) = (/&
2775 & 9.5030E-02_JPRB,8.3215E-02_JPRB,7.2382E-02_JPRB,6.4248E-02_JPRB,5.7876E-02_JPRB,5.6367E-02_JPRB,&
2776
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.3403E-02_JPRB,7.3204E-02_JPRB,8.4675E-02_JPRB/)
2777 KAO( :, 5, 5,14) = (/&
2778 & 9.3519E-02_JPRB,8.1896E-02_JPRB,7.1942E-02_JPRB,6.4913E-02_JPRB,6.0750E-02_JPRB,6.2288E-02_JPRB,&
2779
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.2363E-02_JPRB,8.3574E-02_JPRB,9.6711E-02_JPRB/)
2780 KAO( :, 1, 6,14) = (/&
2781 & 1.0848E-01_JPRB,9.4964E-02_JPRB,8.1446E-02_JPRB,6.8624E-02_JPRB,5.8073E-02_JPRB,4.7733E-02_JPRB,&
2782
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.0794E-02_JPRB,4.2233E-02_JPRB,4.8838E-02_JPRB/)
2783 KAO( :, 2, 6,14) = (/&
2784 & 1.0700E-01_JPRB,9.3665E-02_JPRB,8.0341E-02_JPRB,6.8687E-02_JPRB,5.9287E-02_JPRB,4.9965E-02_JPRB,&
2785
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.6801E-02_JPRB,5.1522E-02_JPRB,5.9571E-02_JPRB/)
2786 KAO( :, 3, 6,14) = (/&
2787 & 1.0569E-01_JPRB,9.2526E-02_JPRB,7.9786E-02_JPRB,6.9323E-02_JPRB,6.0296E-02_JPRB,5.3850E-02_JPRB,&
2788
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.4326E-02_JPRB,6.1617E-02_JPRB,7.1174E-02_JPRB/)
2789 KAO( :, 4, 6,14) = (/&
2790 & 1.0422E-01_JPRB,9.1243E-02_JPRB,7.9257E-02_JPRB,7.0200E-02_JPRB,6.2110E-02_JPRB,5.8890E-02_JPRB,&
2791
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.2697E-02_JPRB,7.2186E-02_JPRB,8.3411E-02_JPRB/)
2792 KAO( :, 5, 6,14) = (/&
2793 & 1.0274E-01_JPRB,8.9945E-02_JPRB,7.8955E-02_JPRB,7.0870E-02_JPRB,6.5007E-02_JPRB,6.4538E-02_JPRB,&
2794
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.1962E-02_JPRB,8.3225E-02_JPRB,9.6184E-02_JPRB/)
2795 KAO( :, 1, 7,14) = (/&
2796 & 1.1805E-01_JPRB,1.0333E-01_JPRB,8.8604E-02_JPRB,7.4383E-02_JPRB,6.2795E-02_JPRB,5.0938E-02_JPRB,&
2797
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.1734E-02_JPRB,4.0173E-02_JPRB,4.6320E-02_JPRB/)
2798 KAO( :, 2, 7,14) = (/&
2799 & 1.1659E-01_JPRB,1.0206E-01_JPRB,8.7517E-02_JPRB,7.4746E-02_JPRB,6.4050E-02_JPRB,5.3141E-02_JPRB,&
2800
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.7155E-02_JPRB,4.9297E-02_JPRB,5.6966E-02_JPRB/)
2801 KAO( :, 3, 7,14) = (/&
2802 & 1.1548E-01_JPRB,1.0108E-01_JPRB,8.7065E-02_JPRB,7.5639E-02_JPRB,6.5270E-02_JPRB,5.6793E-02_JPRB,&
2803
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.4049E-02_JPRB,5.9341E-02_JPRB,6.8535E-02_JPRB/)
2804 KAO( :, 4, 7,14) = (/&
2805 & 1.1421E-01_JPRB,9.9974E-02_JPRB,8.6788E-02_JPRB,7.6683E-02_JPRB,6.6954E-02_JPRB,6.1718E-02_JPRB,&
2806
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.2059E-02_JPRB,7.0009E-02_JPRB,8.0835E-02_JPRB/)
2807 KAO( :, 5, 7,14) = (/&
2808 & 1.1283E-01_JPRB,9.8769E-02_JPRB,8.6621E-02_JPRB,7.7418E-02_JPRB,6.9776E-02_JPRB,6.7214E-02_JPRB,&
2809
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.0897E-02_JPRB,8.1280E-02_JPRB,9.3717E-02_JPRB/)
2810 KAO( :, 1, 8,14) = (/&
2811 & 1.2760E-01_JPRB,1.1168E-01_JPRB,9.5756E-02_JPRB,8.0242E-02_JPRB,6.7771E-02_JPRB,5.4512E-02_JPRB,&
2812
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.3297E-02_JPRB,3.8468E-02_JPRB,4.3412E-02_JPRB/)
2813 KAO( :, 2, 8,14) = (/&
2814 & 1.2647E-01_JPRB,1.1069E-01_JPRB,9.4911E-02_JPRB,8.1080E-02_JPRB,6.9303E-02_JPRB,5.6801E-02_JPRB,&
2815
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.8262E-02_JPRB,4.7089E-02_JPRB,5.4046E-02_JPRB/)
2816 KAO( :, 3, 8,14) = (/&
2817 & 1.2554E-01_JPRB,1.0988E-01_JPRB,9.4556E-02_JPRB,8.2231E-02_JPRB,7.0704E-02_JPRB,6.0253E-02_JPRB,&
2818
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.4589E-02_JPRB,5.6872E-02_JPRB,6.5560E-02_JPRB/)
2819 KAO( :, 4, 8,14) = (/&
2820 & 1.2457E-01_JPRB,1.0903E-01_JPRB,9.4616E-02_JPRB,8.3457E-02_JPRB,7.2396E-02_JPRB,6.4980E-02_JPRB,&
2821
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.1867E-02_JPRB,6.7548E-02_JPRB,7.7808E-02_JPRB/)
2822 KAO( :, 5, 8,14) = (/&
2823 & 1.2330E-01_JPRB,1.0792E-01_JPRB,9.4626E-02_JPRB,8.4389E-02_JPRB,7.5157E-02_JPRB,7.0416E-02_JPRB,&
2824
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.0105E-02_JPRB,7.8665E-02_JPRB,9.0560E-02_JPRB/)
2825 KAO( :, 1, 9,14) = (/&
2826 & 1.3720E-01_JPRB,1.2007E-01_JPRB,1.0294E-01_JPRB,8.6103E-02_JPRB,7.2470E-02_JPRB,5.8097E-02_JPRB,&
2827
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.5389E-02_JPRB,3.6904E-02_JPRB,4.1799E-02_JPRB/)
2828 KAO( :, 2, 9,14) = (/&
2829 & 1.3628E-01_JPRB,1.1927E-01_JPRB,1.0226E-01_JPRB,8.7181E-02_JPRB,7.4343E-02_JPRB,6.0740E-02_JPRB,&
2830
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.9959E-02_JPRB,4.4876E-02_JPRB,5.0393E-02_JPRB/)
2831 KAO( :, 3, 9,14) = (/&
2832 & 1.3535E-01_JPRB,1.1846E-01_JPRB,1.0188E-01_JPRB,8.8693E-02_JPRB,7.6184E-02_JPRB,6.4206E-02_JPRB,&
2833
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.5907E-02_JPRB,5.4085E-02_JPRB,6.1556E-02_JPRB/)
2834 KAO( :, 4, 9,14) = (/&
2835 & 1.3444E-01_JPRB,1.1766E-01_JPRB,1.0208E-01_JPRB,9.0218E-02_JPRB,7.8130E-02_JPRB,6.8528E-02_JPRB,&
2836
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.2619E-02_JPRB,6.4323E-02_JPRB,7.3797E-02_JPRB/)
2837 KAO( :, 5, 9,14) = (/&
2838 & 1.3348E-01_JPRB,1.1683E-01_JPRB,1.0242E-01_JPRB,9.1503E-02_JPRB,8.0977E-02_JPRB,7.3855E-02_JPRB,&
2839
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.9865E-02_JPRB,7.5417E-02_JPRB,8.6747E-02_JPRB/)
2840 KAO( :, 1,10,14) = (/&
2841 & 1.4622E-01_JPRB,1.2796E-01_JPRB,1.0970E-01_JPRB,9.1694E-02_JPRB,7.6915E-02_JPRB,6.1594E-02_JPRB,&
2842
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.7802E-02_JPRB,3.6372E-02_JPRB,1.2782E-01_JPRB/)
2843 KAO( :, 2,10,14) = (/&
2844 & 1.4558E-01_JPRB,1.2740E-01_JPRB,1.0923E-01_JPRB,9.3107E-02_JPRB,7.9235E-02_JPRB,6.4561E-02_JPRB,&
2845
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.2530E-02_JPRB,4.3432E-02_JPRB,1.2805E-01_JPRB/)
2846 KAO( :, 3,10,14) = (/&
2847 & 1.4478E-01_JPRB,1.2670E-01_JPRB,1.0897E-01_JPRB,9.4925E-02_JPRB,8.1357E-02_JPRB,6.8532E-02_JPRB,&
2848
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.8051E-02_JPRB,5.1858E-02_JPRB,1.2910E-01_JPRB/)
2849 KAO( :, 4,10,14) = (/&
2850 & 1.4390E-01_JPRB,1.2594E-01_JPRB,1.0930E-01_JPRB,9.6640E-02_JPRB,8.3903E-02_JPRB,7.3006E-02_JPRB,&
2851
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.4450E-02_JPRB,6.1593E-02_JPRB,1.3078E-01_JPRB/)
2852 KAO( :, 5,10,14) = (/&
2853 & 1.4315E-01_JPRB,1.2528E-01_JPRB,1.1004E-01_JPRB,9.8357E-02_JPRB,8.7154E-02_JPRB,7.8009E-02_JPRB,&
2854
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.1120E-02_JPRB,7.2455E-02_JPRB,1.3316E-01_JPRB/)
2855 KAO( :, 1,11,14) = (/&
2856 & 1.5395E-01_JPRB,1.3473E-01_JPRB,1.1550E-01_JPRB,9.7315E-02_JPRB,8.2228E-02_JPRB,6.6162E-02_JPRB,&
2857
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.2338E-02_JPRB,3.8889E-02_JPRB,2.0928E-01_JPRB/)
2858 KAO( :, 2,11,14) = (/&
2859 & 1.5355E-01_JPRB,1.3437E-01_JPRB,1.1530E-01_JPRB,9.9444E-02_JPRB,8.4668E-02_JPRB,7.0074E-02_JPRB,&
2860
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.7545E-02_JPRB,4.5714E-02_JPRB,2.1031E-01_JPRB/)
2861 KAO( :, 3,11,14) = (/&
2862 & 1.5306E-01_JPRB,1.3395E-01_JPRB,1.1569E-01_JPRB,1.0160E-01_JPRB,8.7341E-02_JPRB,7.4791E-02_JPRB,&
2863
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.3171E-02_JPRB,5.3818E-02_JPRB,2.0902E-01_JPRB/)
2864 KAO( :, 4,11,14) = (/&
2865 & 1.5264E-01_JPRB,1.3359E-01_JPRB,1.1675E-01_JPRB,1.0361E-01_JPRB,9.0695E-02_JPRB,7.9958E-02_JPRB,&
2866
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.9362E-02_JPRB,6.3424E-02_JPRB,2.0832E-01_JPRB/)
2867 KAO( :, 5,11,14) = (/&
2868 & 1.5211E-01_JPRB,1.3312E-01_JPRB,1.1800E-01_JPRB,1.0575E-01_JPRB,9.4915E-02_JPRB,8.5107E-02_JPRB,&
2869
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.5798E-02_JPRB,7.4229E-02_JPRB,2.0949E-01_JPRB/)
2870 KAO( :, 1,12,14) = (/&
2871 & 1.6007E-01_JPRB,1.4008E-01_JPRB,1.2008E-01_JPRB,1.0232E-01_JPRB,8.6761E-02_JPRB,7.0740E-02_JPRB,&
2872
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.6718E-02_JPRB,4.1250E-02_JPRB,2.6518E-01_JPRB/)
2873 KAO( :, 2,12,14) = (/&
2874 & 1.6020E-01_JPRB,1.4019E-01_JPRB,1.2063E-01_JPRB,1.0501E-01_JPRB,8.9744E-02_JPRB,7.5616E-02_JPRB,&
2875
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.2355E-02_JPRB,4.7922E-02_JPRB,2.6549E-01_JPRB/)
2876 KAO( :, 3,12,14) = (/&
2877 & 1.6044E-01_JPRB,1.4040E-01_JPRB,1.2209E-01_JPRB,1.0775E-01_JPRB,9.3316E-02_JPRB,8.1050E-02_JPRB,&
2878
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.8087E-02_JPRB,5.5672E-02_JPRB,2.6354E-01_JPRB/)
2879 KAO( :, 4,12,14) = (/&
2880 & 1.6037E-01_JPRB,1.4035E-01_JPRB,1.2384E-01_JPRB,1.1034E-01_JPRB,9.7597E-02_JPRB,8.6743E-02_JPRB,&
2881
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.4072E-02_JPRB,6.4868E-02_JPRB,2.6219E-01_JPRB/)
2882 KAO( :, 5,12,14) = (/&
2883 & 1.6003E-01_JPRB,1.4017E-01_JPRB,1.2549E-01_JPRB,1.1310E-01_JPRB,1.0250E-01_JPRB,9.1994E-02_JPRB,&
2884
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.0439E-02_JPRB,7.5469E-02_JPRB,2.6239E-01_JPRB/)
2885 KAO( :, 1,13,14) = (/&
2886 & 1.6469E-01_JPRB,1.4412E-01_JPRB,1.2368E-01_JPRB,1.0640E-01_JPRB,9.0617E-02_JPRB,7.5149E-02_JPRB,&
2887
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.0781E-02_JPRB,4.3348E-02_JPRB,2.6721E-01_JPRB/)
2888 KAO( :, 2,13,14) = (/&
2889 & 1.6562E-01_JPRB,1.4493E-01_JPRB,1.2548E-01_JPRB,1.0990E-01_JPRB,9.4570E-02_JPRB,8.0925E-02_JPRB,&
2890
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 6.6783E-02_JPRB,4.9779E-02_JPRB,2.6700E-01_JPRB/)
2891 KAO( :, 3,13,14) = (/&
2892 & 1.6629E-01_JPRB,1.4552E-01_JPRB,1.2768E-01_JPRB,1.1332E-01_JPRB,9.9317E-02_JPRB,8.6925E-02_JPRB,&
2893
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.2626E-02_JPRB,5.7255E-02_JPRB,2.6579E-01_JPRB/)
2894 KAO( :, 4,13,14) = (/&
2895 & 1.6653E-01_JPRB,1.4581E-01_JPRB,1.2999E-01_JPRB,1.1666E-01_JPRB,1.0451E-01_JPRB,9.2915E-02_JPRB,&
2896
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.8534E-02_JPRB,6.6130E-02_JPRB,2.6675E-01_JPRB/)
2897 KAO( :, 5,13,14) = (/&
2898 & 1.6684E-01_JPRB,1.4632E-01_JPRB,1.3221E-01_JPRB,1.2027E-01_JPRB,1.0991E-01_JPRB,9.8357E-02_JPRB,&
2899
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.4972E-02_JPRB,7.6473E-02_JPRB,2.6996E-01_JPRB/)
2900 KAO( :, 1, 1,15) = (/&
2901 & 8.6335E-02_JPRB,7.5626E-02_JPRB,6.4917E-02_JPRB,5.5295E-02_JPRB,5.0812E-02_JPRB,5.9948E-02_JPRB,&
2902
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.1505E-02_JPRB,8.2180E-02_JPRB,9.1859E-02_JPRB/)
2903 KAO( :, 2, 1,15) = (/&
2904 & 8.4567E-02_JPRB,7.4086E-02_JPRB,6.3604E-02_JPRB,5.5283E-02_JPRB,5.6490E-02_JPRB,6.9672E-02_JPRB,&
2905
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.3123E-02_JPRB,9.5602E-02_JPRB,1.0689E-01_JPRB/)
2906 KAO( :, 3, 1,15) = (/&
2907 & 8.2946E-02_JPRB,7.2675E-02_JPRB,6.2405E-02_JPRB,5.5773E-02_JPRB,6.3940E-02_JPRB,7.9639E-02_JPRB,&
2908
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.5049E-02_JPRB,1.0933E-01_JPRB,1.2237E-01_JPRB/)
2909 KAO( :, 4, 1,15) = (/&
2910 & 8.1353E-02_JPRB,7.1286E-02_JPRB,6.1452E-02_JPRB,5.8032E-02_JPRB,7.2168E-02_JPRB,8.9901E-02_JPRB,&
2911
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0730E-01_JPRB,1.2343E-01_JPRB,1.3810E-01_JPRB/)
2912 KAO( :, 5, 1,15) = (/&
2913 & 8.0306E-02_JPRB,7.0375E-02_JPRB,6.1401E-02_JPRB,6.2088E-02_JPRB,8.0744E-02_JPRB,1.0061E-01_JPRB,&
2914
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2011E-01_JPRB,1.3812E-01_JPRB,1.5455E-01_JPRB/)
2915 KAO( :, 1, 2,15) = (/&
2916 & 9.5589E-02_JPRB,8.3777E-02_JPRB,7.1976E-02_JPRB,6.1258E-02_JPRB,5.5368E-02_JPRB,6.4085E-02_JPRB,&
2917
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.6446E-02_JPRB,8.7825E-02_JPRB,9.9724E-02_JPRB/)
2918 KAO( :, 2, 2,15) = (/&
2919 & 9.3570E-02_JPRB,8.1988E-02_JPRB,7.0421E-02_JPRB,6.1059E-02_JPRB,6.1189E-02_JPRB,7.4507E-02_JPRB,&
2920
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.8919E-02_JPRB,1.0224E-01_JPRB,1.1610E-01_JPRB/)
2921 KAO( :, 3, 2,15) = (/&
2922 & 9.1829E-02_JPRB,8.0436E-02_JPRB,6.9070E-02_JPRB,6.1314E-02_JPRB,6.8582E-02_JPRB,8.5238E-02_JPRB,&
2923
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0175E-01_JPRB,1.1706E-01_JPRB,1.3301E-01_JPRB/)
2924 KAO( :, 4, 2,15) = (/&
2925 & 9.0487E-02_JPRB,7.9254E-02_JPRB,6.8526E-02_JPRB,6.4228E-02_JPRB,7.7434E-02_JPRB,9.6498E-02_JPRB,&
2926
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1522E-01_JPRB,1.3267E-01_JPRB,1.5077E-01_JPRB/)
2927 KAO( :, 5, 2,15) = (/&
2928 & 8.9669E-02_JPRB,7.8542E-02_JPRB,6.8954E-02_JPRB,6.8451E-02_JPRB,8.6910E-02_JPRB,1.0835E-01_JPRB,&
2929
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2939E-01_JPRB,1.4902E-01_JPRB,1.6935E-01_JPRB/)
2930 KAO( :, 1, 3,15) = (/&
2931 & 1.0676E-01_JPRB,9.3553E-02_JPRB,8.0347E-02_JPRB,6.7838E-02_JPRB,5.9827E-02_JPRB,6.6522E-02_JPRB,&
2932
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.9363E-02_JPRB,9.1189E-02_JPRB,1.0525E-01_JPRB/)
2933 KAO( :, 2, 3,15) = (/&
2934 & 1.0446E-01_JPRB,9.1534E-02_JPRB,7.8612E-02_JPRB,6.7925E-02_JPRB,6.5040E-02_JPRB,7.7741E-02_JPRB,&
2935
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.2778E-02_JPRB,1.0667E-01_JPRB,1.2309E-01_JPRB/)
2936 KAO( :, 3, 3,15) = (/&
2937 & 1.0249E-01_JPRB,8.9809E-02_JPRB,7.7136E-02_JPRB,6.8091E-02_JPRB,7.2454E-02_JPRB,8.9300E-02_JPRB,&
2938
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0660E-01_JPRB,1.2265E-01_JPRB,1.4148E-01_JPRB/)
2939 KAO( :, 4, 3,15) = (/&
2940 & 1.0145E-01_JPRB,8.8891E-02_JPRB,7.6929E-02_JPRB,7.0768E-02_JPRB,8.1305E-02_JPRB,1.0131E-01_JPRB,&
2941
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2096E-01_JPRB,1.3918E-01_JPRB,1.6053E-01_JPRB/)
2942 KAO( :, 5, 3,15) = (/&
2943 & 1.0070E-01_JPRB,8.8241E-02_JPRB,7.7594E-02_JPRB,7.4852E-02_JPRB,9.1339E-02_JPRB,1.1386E-01_JPRB,&
2944
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3595E-01_JPRB,1.5652E-01_JPRB,1.8047E-01_JPRB/)
2945 KAO( :, 1, 4,15) = (/&
2946 & 1.1948E-01_JPRB,1.0466E-01_JPRB,8.9846E-02_JPRB,7.5435E-02_JPRB,6.5653E-02_JPRB,6.8395E-02_JPRB,&
2947
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.1117E-02_JPRB,9.3286E-02_JPRB,1.0845E-01_JPRB/)
2948 KAO( :, 2, 4,15) = (/&
2949 & 1.1744E-01_JPRB,1.0288E-01_JPRB,8.8326E-02_JPRB,7.6088E-02_JPRB,7.0000E-02_JPRB,8.0045E-02_JPRB,&
2950
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.5565E-02_JPRB,1.0996E-01_JPRB,1.2777E-01_JPRB/)
2951 KAO( :, 3, 4,15) = (/&
2952 & 1.1572E-01_JPRB,1.0138E-01_JPRB,8.7035E-02_JPRB,7.6536E-02_JPRB,7.6949E-02_JPRB,9.2508E-02_JPRB,&
2953
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1046E-01_JPRB,1.2718E-01_JPRB,1.4769E-01_JPRB/)
2954 KAO( :, 4, 4,15) = (/&
2955 & 1.1457E-01_JPRB,1.0037E-01_JPRB,8.6743E-02_JPRB,7.8791E-02_JPRB,8.5479E-02_JPRB,1.0549E-01_JPRB,&
2956
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2598E-01_JPRB,1.4506E-01_JPRB,1.6844E-01_JPRB/)
2957 KAO( :, 5, 4,15) = (/&
2958 & 1.1371E-01_JPRB,9.9614E-02_JPRB,8.7543E-02_JPRB,8.2406E-02_JPRB,9.5523E-02_JPRB,1.1901E-01_JPRB,&
2959
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4214E-01_JPRB,1.6372E-01_JPRB,1.9001E-01_JPRB/)
2960 KAO( :, 1, 5,15) = (/&
2961 & 1.3435E-01_JPRB,1.1765E-01_JPRB,1.0095E-01_JPRB,8.4469E-02_JPRB,7.2853E-02_JPRB,7.1272E-02_JPRB,&
2962
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.1960E-02_JPRB,9.4385E-02_JPRB,1.0990E-01_JPRB/)
2963 KAO( :, 2, 5,15) = (/&
2964 & 1.3249E-01_JPRB,1.1603E-01_JPRB,9.9565E-02_JPRB,8.5291E-02_JPRB,7.6670E-02_JPRB,8.2310E-02_JPRB,&
2965
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.7448E-02_JPRB,1.1228E-01_JPRB,1.3064E-01_JPRB/)
2966 KAO( :, 3, 5,15) = (/&
2967 & 1.3078E-01_JPRB,1.1453E-01_JPRB,9.8289E-02_JPRB,8.6209E-02_JPRB,8.3093E-02_JPRB,9.5057E-02_JPRB,&
2968
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1357E-01_JPRB,1.3082E-01_JPRB,1.5225E-01_JPRB/)
2969 KAO( :, 4, 5,15) = (/&
2970 & 1.2949E-01_JPRB,1.1340E-01_JPRB,9.7892E-02_JPRB,8.8436E-02_JPRB,9.1112E-02_JPRB,1.0924E-01_JPRB,&
2971
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3047E-01_JPRB,1.5034E-01_JPRB,1.7498E-01_JPRB/)
2972 KAO( :, 5, 5,15) = (/&
2973 & 1.2852E-01_JPRB,1.1256E-01_JPRB,9.8533E-02_JPRB,9.1755E-02_JPRB,1.0068E-01_JPRB,1.2400E-01_JPRB,&
2974
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4814E-01_JPRB,1.7069E-01_JPRB,1.9863E-01_JPRB/)
2975 KAO( :, 1, 6,15) = (/&
2976 & 1.5076E-01_JPRB,1.3198E-01_JPRB,1.1320E-01_JPRB,9.4463E-02_JPRB,8.0666E-02_JPRB,7.5054E-02_JPRB,&
2977
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.0871E-02_JPRB,9.3264E-02_JPRB,1.0849E-01_JPRB/)
2978 KAO( :, 2, 6,15) = (/&
2979 & 1.4906E-01_JPRB,1.3049E-01_JPRB,1.1193E-01_JPRB,9.5115E-02_JPRB,8.4634E-02_JPRB,8.5281E-02_JPRB,&
2980
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.7599E-02_JPRB,1.1257E-01_JPRB,1.3098E-01_JPRB/)
2981 KAO( :, 3, 6,15) = (/&
2982 & 1.4751E-01_JPRB,1.2914E-01_JPRB,1.1077E-01_JPRB,9.6775E-02_JPRB,9.0721E-02_JPRB,9.7408E-02_JPRB,&
2983
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1514E-01_JPRB,1.3281E-01_JPRB,1.5454E-01_JPRB/)
2984 KAO( :, 4, 6,15) = (/&
2985 & 1.4640E-01_JPRB,1.2818E-01_JPRB,1.1040E-01_JPRB,9.8990E-02_JPRB,9.8328E-02_JPRB,1.1180E-01_JPRB,&
2986
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3358E-01_JPRB,1.5404E-01_JPRB,1.7929E-01_JPRB/)
2987 KAO( :, 5, 6,15) = (/&
2988 & 1.4534E-01_JPRB,1.2726E-01_JPRB,1.1100E-01_JPRB,1.0247E-01_JPRB,1.0712E-01_JPRB,1.2780E-01_JPRB,&
2989
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5274E-01_JPRB,1.7614E-01_JPRB,2.0503E-01_JPRB/)
2990 KAO( :, 1, 7,15) = (/&
2991 & 1.7017E-01_JPRB,1.4895E-01_JPRB,1.2773E-01_JPRB,1.0651E-01_JPRB,8.8726E-02_JPRB,8.0014E-02_JPRB,&
2992
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 7.9958E-02_JPRB,9.0777E-02_JPRB,1.0558E-01_JPRB/)
2993 KAO( :, 2, 7,15) = (/&
2994 & 1.6840E-01_JPRB,1.4740E-01_JPRB,1.2641E-01_JPRB,1.0633E-01_JPRB,9.3561E-02_JPRB,8.9399E-02_JPRB,&
2995
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.6654E-02_JPRB,1.1154E-01_JPRB,1.2974E-01_JPRB/)
2996 KAO( :, 3, 7,15) = (/&
2997 & 1.6683E-01_JPRB,1.4603E-01_JPRB,1.2523E-01_JPRB,1.0816E-01_JPRB,9.9523E-02_JPRB,1.0085E-01_JPRB,&
2998
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1565E-01_JPRB,1.3349E-01_JPRB,1.5523E-01_JPRB/)
2999 KAO( :, 4, 7,15) = (/&
3000 & 1.6579E-01_JPRB,1.4512E-01_JPRB,1.2467E-01_JPRB,1.1069E-01_JPRB,1.0674E-01_JPRB,1.1452E-01_JPRB,&
3001
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3558E-01_JPRB,1.5645E-01_JPRB,1.8200E-01_JPRB/)
3002 KAO( :, 5, 7,15) = (/&
3003 & 1.6467E-01_JPRB,1.4415E-01_JPRB,1.2512E-01_JPRB,1.1428E-01_JPRB,1.1515E-01_JPRB,1.3096E-01_JPRB,&
3004
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5653E-01_JPRB,1.8061E-01_JPRB,2.1020E-01_JPRB/)
3005 KAO( :, 1, 8,15) = (/&
3006 & 1.9300E-01_JPRB,1.6891E-01_JPRB,1.4482E-01_JPRB,1.2074E-01_JPRB,9.8428E-02_JPRB,8.6453E-02_JPRB,&
3007
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.0104E-02_JPRB,8.7414E-02_JPRB,1.0158E-01_JPRB/)
3008 KAO( :, 2, 8,15) = (/&
3009 & 1.9118E-01_JPRB,1.6732E-01_JPRB,1.4346E-01_JPRB,1.1993E-01_JPRB,1.0330E-01_JPRB,9.4785E-02_JPRB,&
3010
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.5939E-02_JPRB,1.0927E-01_JPRB,1.2693E-01_JPRB/)
3011 KAO( :, 3, 8,15) = (/&
3012 & 1.8966E-01_JPRB,1.6599E-01_JPRB,1.4233E-01_JPRB,1.2111E-01_JPRB,1.0944E-01_JPRB,1.0556E-01_JPRB,&
3013
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1490E-01_JPRB,1.3272E-01_JPRB,1.5419E-01_JPRB/)
3014 KAO( :, 4, 8,15) = (/&
3015 & 1.8827E-01_JPRB,1.6478E-01_JPRB,1.4129E-01_JPRB,1.2410E-01_JPRB,1.1628E-01_JPRB,1.1877E-01_JPRB,&
3016
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3648E-01_JPRB,1.5764E-01_JPRB,1.8319E-01_JPRB/)
3017 KAO( :, 5, 8,15) = (/&
3018 & 1.8700E-01_JPRB,1.6367E-01_JPRB,1.4137E-01_JPRB,1.2760E-01_JPRB,1.2425E-01_JPRB,1.3451E-01_JPRB,&
3019
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5950E-01_JPRB,1.8417E-01_JPRB,2.1419E-01_JPRB/)
3020 KAO( :, 1, 9,15) = (/&
3021 & 2.1903E-01_JPRB,1.9168E-01_JPRB,1.6432E-01_JPRB,1.3697E-01_JPRB,1.1022E-01_JPRB,9.3381E-02_JPRB,&
3022
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.1173E-02_JPRB,8.3378E-02_JPRB,9.6854E-02_JPRB/)
3023 KAO( :, 2, 9,15) = (/&
3024 & 2.1750E-01_JPRB,1.9034E-01_JPRB,1.6318E-01_JPRB,1.3602E-01_JPRB,1.1431E-01_JPRB,1.0171E-01_JPRB,&
3025
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.6008E-02_JPRB,1.0601E-01_JPRB,1.2308E-01_JPRB/)
3026 KAO( :, 3, 9,15) = (/&
3027 & 2.1621E-01_JPRB,1.8921E-01_JPRB,1.6222E-01_JPRB,1.3665E-01_JPRB,1.2052E-01_JPRB,1.1120E-01_JPRB,&
3028
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1434E-01_JPRB,1.3077E-01_JPRB,1.5182E-01_JPRB/)
3029 KAO( :, 4, 9,15) = (/&
3030 & 2.1461E-01_JPRB,1.8782E-01_JPRB,1.6103E-01_JPRB,1.3944E-01_JPRB,1.2758E-01_JPRB,1.2410E-01_JPRB,&
3031
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3607E-01_JPRB,1.5728E-01_JPRB,1.8262E-01_JPRB/)
3032 KAO( :, 5, 9,15) = (/&
3033 & 2.1295E-01_JPRB,1.8637E-01_JPRB,1.6039E-01_JPRB,1.4274E-01_JPRB,1.3480E-01_JPRB,1.3933E-01_JPRB,&
3034
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6084E-01_JPRB,1.8591E-01_JPRB,2.1587E-01_JPRB/)
3035 KAO( :, 1,10,15) = (/&
3036 & 2.4831E-01_JPRB,2.1729E-01_JPRB,1.8627E-01_JPRB,1.5526E-01_JPRB,1.2434E-01_JPRB,1.0185E-01_JPRB,&
3037
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 8.4815E-02_JPRB,8.0841E-02_JPRB,1.7532E-01_JPRB/)
3038 KAO( :, 2,10,15) = (/&
3039 & 2.4704E-01_JPRB,2.1618E-01_JPRB,1.8532E-01_JPRB,1.5447E-01_JPRB,1.2750E-01_JPRB,1.1098E-01_JPRB,&
3040
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.8299E-02_JPRB,1.0410E-01_JPRB,1.7367E-01_JPRB/)
3041 KAO( :, 3,10,15) = (/&
3042 & 2.4585E-01_JPRB,2.1514E-01_JPRB,1.8444E-01_JPRB,1.5466E-01_JPRB,1.3408E-01_JPRB,1.1953E-01_JPRB,&
3043
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1633E-01_JPRB,1.3023E-01_JPRB,1.7996E-01_JPRB/)
3044 KAO( :, 4,10,15) = (/&
3045 & 2.4402E-01_JPRB,2.1354E-01_JPRB,1.8307E-01_JPRB,1.5695E-01_JPRB,1.4115E-01_JPRB,1.3126E-01_JPRB,&
3046
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3793E-01_JPRB,1.5846E-01_JPRB,1.9548E-01_JPRB/)
3047 KAO( :, 5,10,15) = (/&
3048 & 2.4208E-01_JPRB,2.1185E-01_JPRB,1.8198E-01_JPRB,1.6040E-01_JPRB,1.4820E-01_JPRB,1.4650E-01_JPRB,&
3049
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
 10 & 1.6334E-01_JPRB,1.8884E-01_JPRB,2.2082E-01_JPRB/)
3050
3051
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART10',1,ZHOOK_HANDLE)
3052 1 END SUBROUTINE PART10
3053
3054
3055 1 SUBROUTINE PART11
3056
3057 REAL(KIND=JPRB) :: ZHOOK_HANDLE
3058
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART11',0,ZHOOK_HANDLE)
3059
3060
3061 KAO( :, 1,11,15) = (/&
3062 & 2.8046E-01_JPRB,2.4542E-01_JPRB,2.1039E-01_JPRB,1.7535E-01_JPRB,1.4072E-01_JPRB,1.1602E-01_JPRB,&
3063
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 9.4756E-02_JPRB,8.8842E-02_JPRB,3.0507E-01_JPRB/)
3064 KAO( :, 2,11,15) = (/&
3065 & 2.7918E-01_JPRB,2.4430E-01_JPRB,2.0943E-01_JPRB,1.7456E-01_JPRB,1.4537E-01_JPRB,1.2533E-01_JPRB,&
3066
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0891E-01_JPRB,1.1392E-01_JPRB,2.9566E-01_JPRB/)
3067 KAO( :, 3,11,15) = (/&
3068 & 2.7735E-01_JPRB,2.4270E-01_JPRB,2.0805E-01_JPRB,1.7500E-01_JPRB,1.5257E-01_JPRB,1.3417E-01_JPRB,&
3069
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2847E-01_JPRB,1.4223E-01_JPRB,2.9322E-01_JPRB/)
3070 KAO( :, 4,11,15) = (/&
3071 & 2.7527E-01_JPRB,2.4088E-01_JPRB,2.0649E-01_JPRB,1.7781E-01_JPRB,1.5979E-01_JPRB,1.4614E-01_JPRB,&
3072
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5179E-01_JPRB,1.7334E-01_JPRB,2.9538E-01_JPRB/)
3073 KAO( :, 5,11,15) = (/&
3074 & 2.7287E-01_JPRB,2.3878E-01_JPRB,2.0537E-01_JPRB,1.8183E-01_JPRB,1.6671E-01_JPRB,1.6236E-01_JPRB,&
3075
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7904E-01_JPRB,2.0699E-01_JPRB,3.0432E-01_JPRB/)
3076 KAO( :, 1,12,15) = (/&
3077 & 3.1597E-01_JPRB,2.7649E-01_JPRB,2.3701E-01_JPRB,1.9754E-01_JPRB,1.5924E-01_JPRB,1.3168E-01_JPRB,&
3078
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.0585E-01_JPRB,9.7375E-02_JPRB,4.0358E-01_JPRB/)
3079 KAO( :, 2,12,15) = (/&
3080 & 3.1432E-01_JPRB,2.7505E-01_JPRB,2.3578E-01_JPRB,1.9654E-01_JPRB,1.6498E-01_JPRB,1.4094E-01_JPRB,&
3081
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2051E-01_JPRB,1.2392E-01_JPRB,3.9336E-01_JPRB/)
3082 KAO( :, 3,12,15) = (/&
3083 & 3.1171E-01_JPRB,2.7277E-01_JPRB,2.3383E-01_JPRB,1.9721E-01_JPRB,1.7246E-01_JPRB,1.5023E-01_JPRB,&
3084
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4122E-01_JPRB,1.5462E-01_JPRB,3.9393E-01_JPRB/)
3085 KAO( :, 4,12,15) = (/&
3086 & 3.0880E-01_JPRB,2.7022E-01_JPRB,2.3164E-01_JPRB,2.0058E-01_JPRB,1.7964E-01_JPRB,1.6232E-01_JPRB,&
3087
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6619E-01_JPRB,1.8839E-01_JPRB,3.9596E-01_JPRB/)
3088 KAO( :, 5,12,15) = (/&
3089 & 3.0525E-01_JPRB,2.6711E-01_JPRB,2.3006E-01_JPRB,2.0488E-01_JPRB,1.8690E-01_JPRB,1.7940E-01_JPRB,&
3090
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9528E-01_JPRB,2.2516E-01_JPRB,4.0079E-01_JPRB/)
3091 KAO( :, 1,13,15) = (/&
3092 & 3.5411E-01_JPRB,3.0986E-01_JPRB,2.6562E-01_JPRB,2.2137E-01_JPRB,1.7962E-01_JPRB,1.4841E-01_JPRB,&
3093
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1804E-01_JPRB,1.0632E-01_JPRB,4.1876E-01_JPRB/)
3094 KAO( :, 2,13,15) = (/&
3095 & 3.5164E-01_JPRB,3.0771E-01_JPRB,2.6377E-01_JPRB,2.2010E-01_JPRB,1.8598E-01_JPRB,1.5750E-01_JPRB,&
3096
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3321E-01_JPRB,1.3429E-01_JPRB,4.1787E-01_JPRB/)
3097 KAO( :, 3,13,15) = (/&
3098 & 3.4820E-01_JPRB,3.0469E-01_JPRB,2.6119E-01_JPRB,2.2112E-01_JPRB,1.9338E-01_JPRB,1.6728E-01_JPRB,&
3099
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5455E-01_JPRB,1.6711E-01_JPRB,4.2377E-01_JPRB/)
3100 KAO( :, 4,13,15) = (/&
3101 & 3.4395E-01_JPRB,3.0097E-01_JPRB,2.5812E-01_JPRB,2.2469E-01_JPRB,2.0035E-01_JPRB,1.7975E-01_JPRB,&
3102
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8098E-01_JPRB,2.0337E-01_JPRB,4.2831E-01_JPRB/)
3103 KAO( :, 5,13,15) = (/&
3104 & 3.3896E-01_JPRB,2.9661E-01_JPRB,2.5572E-01_JPRB,2.2897E-01_JPRB,2.0809E-01_JPRB,1.9725E-01_JPRB,&
3105
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1144E-01_JPRB,2.4250E-01_JPRB,4.3491E-01_JPRB/)
3106 KAO( :, 1, 1,16) = (/&
3107 & 9.7171E-02_JPRB,8.5148E-02_JPRB,7.3125E-02_JPRB,6.1102E-02_JPRB,7.6485E-02_JPRB,9.5172E-02_JPRB,&
3108
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.1335E-01_JPRB,1.2955E-01_JPRB,1.4355E-01_JPRB/)
3109 KAO( :, 2, 1,16) = (/&
3110 & 9.4236E-02_JPRB,8.2602E-02_JPRB,7.0968E-02_JPRB,6.8035E-02_JPRB,9.0374E-02_JPRB,1.1244E-01_JPRB,&
3111
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3393E-01_JPRB,1.5311E-01_JPRB,1.6974E-01_JPRB/)
3112 KAO( :, 3, 1,16) = (/&
3113 & 9.1543E-02_JPRB,8.0273E-02_JPRB,6.9003E-02_JPRB,7.8791E-02_JPRB,1.0469E-01_JPRB,1.3025E-01_JPRB,&
3114
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5519E-01_JPRB,1.7738E-01_JPRB,1.9670E-01_JPRB/)
3115 KAO( :, 4, 1,16) = (/&
3116 & 8.8644E-02_JPRB,7.7768E-02_JPRB,6.6893E-02_JPRB,8.9756E-02_JPRB,1.1926E-01_JPRB,1.4844E-01_JPRB,&
3117
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7683E-01_JPRB,2.0215E-01_JPRB,2.2416E-01_JPRB/)
3118 KAO( :, 5, 1,16) = (/&
3119 & 8.6144E-02_JPRB,7.5584E-02_JPRB,6.7875E-02_JPRB,1.0078E-01_JPRB,1.3394E-01_JPRB,1.6670E-01_JPRB,&
3120
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9859E-01_JPRB,2.2714E-01_JPRB,2.5185E-01_JPRB/)
3121 KAO( :, 1, 2,16) = (/&
3122 & 1.1053E-01_JPRB,9.6812E-02_JPRB,8.3097E-02_JPRB,6.9381E-02_JPRB,8.5062E-02_JPRB,1.0587E-01_JPRB,&
3123
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.2610E-01_JPRB,1.4420E-01_JPRB,1.6344E-01_JPRB/)
3124 KAO( :, 2, 2,16) = (/&
3125 & 1.0742E-01_JPRB,9.4110E-02_JPRB,8.0803E-02_JPRB,7.6274E-02_JPRB,1.0134E-01_JPRB,1.2610E-01_JPRB,&
3126
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.5024E-01_JPRB,1.7183E-01_JPRB,1.9478E-01_JPRB/)
3127 KAO( :, 3, 2,16) = (/&
3128 & 1.0452E-01_JPRB,9.1604E-02_JPRB,7.8683E-02_JPRB,8.8937E-02_JPRB,1.1819E-01_JPRB,1.4709E-01_JPRB,&
3129
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7526E-01_JPRB,2.0044E-01_JPRB,2.2725E-01_JPRB/)
3130 KAO( :, 4, 2,16) = (/&
3131 & 1.0156E-01_JPRB,8.9034E-02_JPRB,7.6513E-02_JPRB,1.0188E-01_JPRB,1.3537E-01_JPRB,1.6848E-01_JPRB,&
3132
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0078E-01_JPRB,2.2973E-01_JPRB,2.6038E-01_JPRB/)
3133 KAO( :, 5, 2,16) = (/&
3134 & 9.9221E-02_JPRB,8.6974E-02_JPRB,7.8015E-02_JPRB,1.1491E-01_JPRB,1.5271E-01_JPRB,1.9010E-01_JPRB,&
3135
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2653E-01_JPRB,2.5922E-01_JPRB,2.9391E-01_JPRB/)
3136 KAO( :, 1, 3,16) = (/&
3137 & 1.2741E-01_JPRB,1.1157E-01_JPRB,9.5716E-02_JPRB,7.9867E-02_JPRB,9.0261E-02_JPRB,1.1233E-01_JPRB,&
3138
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3379E-01_JPRB,1.5315E-01_JPRB,1.7733E-01_JPRB/)
3139 KAO( :, 2, 3,16) = (/&
3140 & 1.2407E-01_JPRB,1.0865E-01_JPRB,9.3240E-02_JPRB,8.3066E-02_JPRB,1.0895E-01_JPRB,1.3559E-01_JPRB,&
3141
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6159E-01_JPRB,1.8497E-01_JPRB,2.1412E-01_JPRB/)
3142 KAO( :, 3, 3,16) = (/&
3143 & 1.2077E-01_JPRB,1.0579E-01_JPRB,9.0806E-02_JPRB,9.6664E-02_JPRB,1.2848E-01_JPRB,1.5988E-01_JPRB,&
3144
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9057E-01_JPRB,2.1812E-01_JPRB,2.5248E-01_JPRB/)
3145 KAO( :, 4, 3,16) = (/&
3146 & 1.1796E-01_JPRB,1.0334E-01_JPRB,8.8711E-02_JPRB,1.1167E-01_JPRB,1.4847E-01_JPRB,1.8483E-01_JPRB,&
3147
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2029E-01_JPRB,2.5232E-01_JPRB,2.9201E-01_JPRB/)
3148 KAO( :, 5, 3,16) = (/&
3149 & 1.1579E-01_JPRB,1.0144E-01_JPRB,8.8938E-02_JPRB,1.2695E-01_JPRB,1.6868E-01_JPRB,2.1009E-01_JPRB,&
3150
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.5050E-01_JPRB,2.8682E-01_JPRB,3.3195E-01_JPRB/)
3151 KAO( :, 1, 4,16) = (/&
3152 & 1.4795E-01_JPRB,1.2951E-01_JPRB,1.1108E-01_JPRB,9.2642E-02_JPRB,9.3362E-02_JPRB,1.1620E-01_JPRB,&
3153
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.3849E-01_JPRB,1.5859E-01_JPRB,1.8531E-01_JPRB/)
3154 KAO( :, 2, 4,16) = (/&
3155 & 1.4437E-01_JPRB,1.2639E-01_JPRB,1.0842E-01_JPRB,9.2423E-02_JPRB,1.1442E-01_JPRB,1.4252E-01_JPRB,&
3156
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6987E-01_JPRB,1.9459E-01_JPRB,2.2738E-01_JPRB/)
3157 KAO( :, 3, 4,16) = (/&
3158 & 1.4082E-01_JPRB,1.2330E-01_JPRB,1.0578E-01_JPRB,1.0327E-01_JPRB,1.3669E-01_JPRB,1.7021E-01_JPRB,&
3159
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.0291E-01_JPRB,2.3254E-01_JPRB,2.7168E-01_JPRB/)
3160 KAO( :, 4, 4,16) = (/&
3161 & 1.3812E-01_JPRB,1.2094E-01_JPRB,1.0376E-01_JPRB,1.2016E-01_JPRB,1.5971E-01_JPRB,1.9884E-01_JPRB,&
3162
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.3712E-01_JPRB,2.7173E-01_JPRB,3.1737E-01_JPRB/)
3163 KAO( :, 5, 4,16) = (/&
3164 & 1.3617E-01_JPRB,1.1924E-01_JPRB,1.0266E-01_JPRB,1.3775E-01_JPRB,1.8312E-01_JPRB,2.2801E-01_JPRB,&
3165
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.7185E-01_JPRB,3.1180E-01_JPRB,3.6388E-01_JPRB/)
3166 KAO( :, 1, 5,16) = (/&
3167 & 1.7254E-01_JPRB,1.5104E-01_JPRB,1.2954E-01_JPRB,1.0804E-01_JPRB,9.7033E-02_JPRB,1.1821E-01_JPRB,&
3168
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4096E-01_JPRB,1.6165E-01_JPRB,1.8940E-01_JPRB/)
3169 KAO( :, 2, 5,16) = (/&
3170 & 1.6864E-01_JPRB,1.4763E-01_JPRB,1.2663E-01_JPRB,1.0583E-01_JPRB,1.1845E-01_JPRB,1.4755E-01_JPRB,&
3171
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7593E-01_JPRB,2.0174E-01_JPRB,2.3625E-01_JPRB/)
3172 KAO( :, 3, 5,16) = (/&
3173 & 1.6515E-01_JPRB,1.4456E-01_JPRB,1.2397E-01_JPRB,1.1290E-01_JPRB,1.4346E-01_JPRB,1.7861E-01_JPRB,&
3174
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1302E-01_JPRB,2.4445E-01_JPRB,2.8621E-01_JPRB/)
3175 KAO( :, 4, 5,16) = (/&
3176 & 1.6266E-01_JPRB,1.4239E-01_JPRB,1.2212E-01_JPRB,1.2793E-01_JPRB,1.6939E-01_JPRB,2.1102E-01_JPRB,&
3177
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.5177E-01_JPRB,2.8892E-01_JPRB,3.3809E-01_JPRB/)
3178 KAO( :, 5, 5,16) = (/&
3179 & 1.6070E-01_JPRB,1.4068E-01_JPRB,1.2066E-01_JPRB,1.4743E-01_JPRB,1.9603E-01_JPRB,2.4421E-01_JPRB,&
3180
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.9142E-01_JPRB,3.3457E-01_JPRB,3.9133E-01_JPRB/)
3181 KAO( :, 1, 6,16) = (/&
3182 & 2.0388E-01_JPRB,1.7849E-01_JPRB,1.5310E-01_JPRB,1.2771E-01_JPRB,1.0526E-01_JPRB,1.1860E-01_JPRB,&
3183
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4142E-01_JPRB,1.6203E-01_JPRB,1.9043E-01_JPRB/)
3184 KAO( :, 2, 6,16) = (/&
3185 & 1.9953E-01_JPRB,1.7470E-01_JPRB,1.4986E-01_JPRB,1.2501E-01_JPRB,1.2166E-01_JPRB,1.5016E-01_JPRB,&
3186
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.7907E-01_JPRB,2.0547E-01_JPRB,2.4111E-01_JPRB/)
3187 KAO( :, 3, 6,16) = (/&
3188 & 1.9494E-01_JPRB,1.7068E-01_JPRB,1.4642E-01_JPRB,1.2626E-01_JPRB,1.4789E-01_JPRB,1.8422E-01_JPRB,&
3189
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.1980E-01_JPRB,2.5220E-01_JPRB,2.9578E-01_JPRB/)
3190 KAO( :, 4, 6,16) = (/&
3191 & 1.9206E-01_JPRB,1.6810E-01_JPRB,1.4414E-01_JPRB,1.3841E-01_JPRB,1.7663E-01_JPRB,2.1999E-01_JPRB,&
3192
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.6255E-01_JPRB,3.0157E-01_JPRB,3.5331E-01_JPRB/)
3193 KAO( :, 5, 6,16) = (/&
3194 & 1.9005E-01_JPRB,1.6635E-01_JPRB,1.4264E-01_JPRB,1.5606E-01_JPRB,2.0643E-01_JPRB,2.5713E-01_JPRB,&
3195
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.0687E-01_JPRB,3.5252E-01_JPRB,4.1278E-01_JPRB/)
3196 KAO( :, 1, 7,16) = (/&
3197 & 2.4312E-01_JPRB,2.1282E-01_JPRB,1.8252E-01_JPRB,1.5222E-01_JPRB,1.2192E-01_JPRB,1.1888E-01_JPRB,&
3198
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4174E-01_JPRB,1.6248E-01_JPRB,1.9115E-01_JPRB/)
3199 KAO( :, 2, 7,16) = (/&
3200 & 2.3797E-01_JPRB,2.0832E-01_JPRB,1.7867E-01_JPRB,1.4904E-01_JPRB,1.2994E-01_JPRB,1.5302E-01_JPRB,&
3201
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8249E-01_JPRB,2.0929E-01_JPRB,2.4599E-01_JPRB/)
3202 KAO( :, 3, 7,16) = (/&
3203 & 2.3255E-01_JPRB,2.0359E-01_JPRB,1.7463E-01_JPRB,1.4575E-01_JPRB,1.5275E-01_JPRB,1.9023E-01_JPRB,&
3204
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2691E-01_JPRB,2.6041E-01_JPRB,3.0584E-01_JPRB/)
3205 KAO( :, 4, 7,16) = (/&
3206 & 2.2807E-01_JPRB,1.9965E-01_JPRB,1.7122E-01_JPRB,1.5317E-01_JPRB,1.8432E-01_JPRB,2.2969E-01_JPRB,&
3207
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.7402E-01_JPRB,3.1471E-01_JPRB,3.6920E-01_JPRB/)
3208 KAO( :, 5, 7,16) = (/&
3209 & 2.2498E-01_JPRB,1.9692E-01_JPRB,1.6887E-01_JPRB,1.6865E-01_JPRB,2.1725E-01_JPRB,2.7068E-01_JPRB,&
3210
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.2308E-01_JPRB,3.7116E-01_JPRB,4.3516E-01_JPRB/)
3211 KAO( :, 1, 8,16) = (/&
3212 & 2.9068E-01_JPRB,2.5442E-01_JPRB,2.1816E-01_JPRB,1.8190E-01_JPRB,1.4564E-01_JPRB,1.2041E-01_JPRB,&
3213
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4177E-01_JPRB,1.6257E-01_JPRB,1.9124E-01_JPRB/)
3214 KAO( :, 2, 8,16) = (/&
3215 & 2.8457E-01_JPRB,2.4908E-01_JPRB,2.1359E-01_JPRB,1.7807E-01_JPRB,1.4515E-01_JPRB,1.5579E-01_JPRB,&
3216
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8584E-01_JPRB,2.1331E-01_JPRB,2.5071E-01_JPRB/)
3217 KAO( :, 3, 8,16) = (/&
3218 & 2.7790E-01_JPRB,2.4325E-01_JPRB,2.0861E-01_JPRB,1.7396E-01_JPRB,1.6105E-01_JPRB,1.9656E-01_JPRB,&
3219
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.3447E-01_JPRB,2.6926E-01_JPRB,3.1620E-01_JPRB/)
3220 KAO( :, 4, 8,16) = (/&
3221 & 2.7204E-01_JPRB,2.3812E-01_JPRB,2.0420E-01_JPRB,1.7391E-01_JPRB,1.9266E-01_JPRB,2.4008E-01_JPRB,&
3222
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.8658E-01_JPRB,3.2922E-01_JPRB,3.8634E-01_JPRB/)
3223 KAO( :, 5, 8,16) = (/&
3224 & 2.6773E-01_JPRB,2.3434E-01_JPRB,2.0095E-01_JPRB,1.8582E-01_JPRB,2.2918E-01_JPRB,2.8567E-01_JPRB,&
3225
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.4098E-01_JPRB,3.9189E-01_JPRB,4.5943E-01_JPRB/)
3226 KAO( :, 1, 9,16) = (/&
3227 & 3.4732E-01_JPRB,3.0397E-01_JPRB,2.6061E-01_JPRB,2.1726E-01_JPRB,1.7390E-01_JPRB,1.3271E-01_JPRB,&
3228
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4035E-01_JPRB,1.6109E-01_JPRB,1.8937E-01_JPRB/)
3229 KAO( :, 2, 9,16) = (/&
3230 & 3.3981E-01_JPRB,2.9740E-01_JPRB,2.5499E-01_JPRB,2.1257E-01_JPRB,1.7017E-01_JPRB,1.5746E-01_JPRB,&
3231
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.8783E-01_JPRB,2.1574E-01_JPRB,2.5330E-01_JPRB/)
3232 KAO( :, 3, 9,16) = (/&
3233 & 3.3164E-01_JPRB,2.9026E-01_JPRB,2.4888E-01_JPRB,2.0750E-01_JPRB,1.7718E-01_JPRB,2.0179E-01_JPRB,&
3234
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4086E-01_JPRB,2.7675E-01_JPRB,3.2472E-01_JPRB/)
3235 KAO( :, 4, 9,16) = (/&
3236 & 3.2434E-01_JPRB,2.8387E-01_JPRB,2.4340E-01_JPRB,2.0299E-01_JPRB,2.0166E-01_JPRB,2.4979E-01_JPRB,&
3237
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.9816E-01_JPRB,3.4279E-01_JPRB,4.0187E-01_JPRB/)
3238 KAO( :, 5, 9,16) = (/&
3239 & 3.1856E-01_JPRB,2.7881E-01_JPRB,2.3907E-01_JPRB,2.0909E-01_JPRB,2.4079E-01_JPRB,3.0025E-01_JPRB,&
3240
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.5852E-01_JPRB,4.1238E-01_JPRB,4.8294E-01_JPRB/)
3241 KAO( :, 1,10,16) = (/&
3242 & 4.1296E-01_JPRB,3.6138E-01_JPRB,3.0981E-01_JPRB,2.5823E-01_JPRB,2.0667E-01_JPRB,1.5510E-01_JPRB,&
3243
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.4272E-01_JPRB,1.6382E-01_JPRB,1.9375E-01_JPRB/)
3244 KAO( :, 2,10,16) = (/&
3245 & 4.0355E-01_JPRB,3.5316E-01_JPRB,3.0277E-01_JPRB,2.5237E-01_JPRB,2.0198E-01_JPRB,1.6688E-01_JPRB,&
3246
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9258E-01_JPRB,2.2130E-01_JPRB,2.5965E-01_JPRB/)
3247 KAO( :, 3,10,16) = (/&
3248 & 3.9334E-01_JPRB,3.4423E-01_JPRB,2.9512E-01_JPRB,2.4601E-01_JPRB,2.0198E-01_JPRB,2.0922E-01_JPRB,&
3249
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.4978E-01_JPRB,2.8734E-01_JPRB,3.3649E-01_JPRB/)
3250 KAO( :, 4,10,16) = (/&
3251 & 3.8468E-01_JPRB,3.3665E-01_JPRB,2.8862E-01_JPRB,2.4064E-01_JPRB,2.1892E-01_JPRB,2.6187E-01_JPRB,&
3252
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.1276E-01_JPRB,3.6003E-01_JPRB,4.2127E-01_JPRB/)
3253 KAO( :, 5,10,16) = (/&
3254 & 3.7732E-01_JPRB,3.3021E-01_JPRB,2.8310E-01_JPRB,2.4052E-01_JPRB,2.5525E-01_JPRB,3.1772E-01_JPRB,&
3255
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.7953E-01_JPRB,4.3694E-01_JPRB,5.1089E-01_JPRB/)
3256 KAO( :, 1,11,16) = (/&
3257 & 4.8302E-01_JPRB,4.2268E-01_JPRB,3.6234E-01_JPRB,3.0200E-01_JPRB,2.4165E-01_JPRB,1.8151E-01_JPRB,&
3258
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.6877E-01_JPRB,1.9388E-01_JPRB,3.3421E-01_JPRB/)
3259 KAO( :, 2,11,16) = (/&
3260 & 4.7050E-01_JPRB,4.1173E-01_JPRB,3.5296E-01_JPRB,2.9420E-01_JPRB,2.3543E-01_JPRB,1.9660E-01_JPRB,&
3261
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.2543E-01_JPRB,2.5921E-01_JPRB,3.3179E-01_JPRB/)
3262 KAO( :, 3,11,16) = (/&
3263 & 4.5896E-01_JPRB,4.0163E-01_JPRB,3.4431E-01_JPRB,2.8698E-01_JPRB,2.3627E-01_JPRB,2.4234E-01_JPRB,&
3264
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.8945E-01_JPRB,3.3305E-01_JPRB,3.8992E-01_JPRB/)
3265 KAO( :, 4,11,16) = (/&
3266 & 4.4916E-01_JPRB,3.9306E-01_JPRB,3.3696E-01_JPRB,2.8088E-01_JPRB,2.5515E-01_JPRB,3.0073E-01_JPRB,&
3267
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.5922E-01_JPRB,4.1373E-01_JPRB,4.8361E-01_JPRB/)
3268 KAO( :, 5,11,16) = (/&
3269 & 4.3990E-01_JPRB,3.8496E-01_JPRB,3.3001E-01_JPRB,2.8070E-01_JPRB,2.9324E-01_JPRB,3.6251E-01_JPRB,&
3270
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.3320E-01_JPRB,4.9939E-01_JPRB,5.8288E-01_JPRB/)
3271 KAO( :, 1,12,16) = (/&
3272 & 5.5949E-01_JPRB,4.8959E-01_JPRB,4.1968E-01_JPRB,3.4978E-01_JPRB,2.7990E-01_JPRB,2.1117E-01_JPRB,&
3273
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 1.9846E-01_JPRB,2.2823E-01_JPRB,4.6485E-01_JPRB/)
3274 KAO( :, 2,12,16) = (/&
3275 & 5.4466E-01_JPRB,4.7661E-01_JPRB,4.0856E-01_JPRB,3.4053E-01_JPRB,2.7248E-01_JPRB,2.3023E-01_JPRB,&
3276
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.6289E-01_JPRB,3.0262E-01_JPRB,4.5843E-01_JPRB/)
3277 KAO( :, 3,12,16) = (/&
3278 & 5.3198E-01_JPRB,4.6551E-01_JPRB,3.9905E-01_JPRB,3.3259E-01_JPRB,2.7378E-01_JPRB,2.8016E-01_JPRB,&
3279
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.3471E-01_JPRB,3.8547E-01_JPRB,4.7894E-01_JPRB/)
3280 KAO( :, 4,12,16) = (/&
3281 & 5.2001E-01_JPRB,4.5505E-01_JPRB,3.9008E-01_JPRB,3.2510E-01_JPRB,2.9551E-01_JPRB,3.4473E-01_JPRB,&
3282
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.1193E-01_JPRB,4.7482E-01_JPRB,5.5483E-01_JPRB/)
3283 KAO( :, 5,12,16) = (/&
3284 & 5.0915E-01_JPRB,4.4554E-01_JPRB,3.8193E-01_JPRB,3.2460E-01_JPRB,3.3469E-01_JPRB,4.1244E-01_JPRB,&
3285
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.9294E-01_JPRB,5.6854E-01_JPRB,6.6308E-01_JPRB/)
3286 KAO( :, 1,13,16) = (/&
3287 & 6.4209E-01_JPRB,5.6185E-01_JPRB,4.8161E-01_JPRB,4.0138E-01_JPRB,3.2111E-01_JPRB,2.4405E-01_JPRB,&
3288
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 2.3126E-01_JPRB,2.6629E-01_JPRB,5.1031E-01_JPRB/)
3289 KAO( :, 2,13,16) = (/&
3290 & 6.2605E-01_JPRB,5.4782E-01_JPRB,4.6959E-01_JPRB,3.9135E-01_JPRB,3.1312E-01_JPRB,2.6752E-01_JPRB,&
3291
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.0417E-01_JPRB,3.5056E-01_JPRB,5.0701E-01_JPRB/)
3292 KAO( :, 3,13,16) = (/&
3293 & 6.1094E-01_JPRB,5.3460E-01_JPRB,4.5826E-01_JPRB,3.8192E-01_JPRB,3.1501E-01_JPRB,3.2162E-01_JPRB,&
3294
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 3.8441E-01_JPRB,4.4331E-01_JPRB,5.4185E-01_JPRB/)
3295 KAO( :, 4,13,16) = (/&
3296 & 5.9718E-01_JPRB,5.2256E-01_JPRB,4.4794E-01_JPRB,3.7327E-01_JPRB,3.3928E-01_JPRB,3.9296E-01_JPRB,&
3297
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 4.6976E-01_JPRB,5.4198E-01_JPRB,6.3180E-01_JPRB/)
3298 KAO( :, 5,13,16) = (/&
3299 & 5.8381E-01_JPRB,5.1086E-01_JPRB,4.3791E-01_JPRB,3.7153E-01_JPRB,3.7939E-01_JPRB,4.6700E-01_JPRB,&
3300
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
 10 & 5.5841E-01_JPRB,6.4458E-01_JPRB,7.5053E-01_JPRB/)
3301
3302 ! The array SELFREFO contains the coefficient of the water vapor
3303 ! self-continuum (including the energy term). The first index
3304 ! refers to temperature in 7.2 degree increments. For instance,
3305 ! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
3306 ! etc. The second index runs over the g-channel (1 to 16).
3307
3308 SELFREFO( :, 1) = (/&
3309 & 1.26476E-03_JPRB, 1.04962E-03_JPRB, 8.71080E-04_JPRB, 7.22907E-04_JPRB, 5.99939E-04_JPRB,&
3310
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
 11 & 4.97888E-04_JPRB, 4.13197E-04_JPRB, 3.42911E-04_JPRB, 2.84581E-04_JPRB, 2.36173E-04_JPRB/)
3311 SELFREFO( :, 2) = (/&
3312 & 1.27380E-03_JPRB, 1.05867E-03_JPRB, 8.79870E-04_JPRB, 7.31270E-04_JPRB, 6.07767E-04_JPRB,&
3313
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
 11 & 5.05121E-04_JPRB, 4.19812E-04_JPRB, 3.48911E-04_JPRB, 2.89983E-04_JPRB, 2.41008E-04_JPRB/)
3314 SELFREFO( :, 3) = (/&
3315 & 1.26332E-03_JPRB, 1.05867E-03_JPRB, 8.87172E-04_JPRB, 7.43454E-04_JPRB, 6.23018E-04_JPRB,&
3316
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
 11 & 5.22092E-04_JPRB, 4.37515E-04_JPRB, 3.66640E-04_JPRB, 3.07246E-04_JPRB, 2.57474E-04_JPRB/)
3317 SELFREFO( :, 4) = (/&
3318 & 1.28078E-03_JPRB, 1.07802E-03_JPRB, 9.07363E-04_JPRB, 7.63722E-04_JPRB, 6.42820E-04_JPRB,&
3319
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
 11 & 5.41057E-04_JPRB, 4.55404E-04_JPRB, 3.83311E-04_JPRB, 3.22630E-04_JPRB, 2.71556E-04_JPRB/)
3320 SELFREFO( :, 5) = (/&
3321 & 1.61188E-03_JPRB, 1.32375E-03_JPRB, 1.08712E-03_JPRB, 8.92794E-04_JPRB, 7.33203E-04_JPRB,&
3322
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
 11 & 6.02140E-04_JPRB, 4.94505E-04_JPRB, 4.06110E-04_JPRB, 3.33516E-04_JPRB, 2.73898E-04_JPRB/)
3323 SELFREFO( :, 6) = (/&
3324 & 1.42549E-03_JPRB, 1.25964E-03_JPRB, 1.11309E-03_JPRB, 9.83595E-04_JPRB, 8.69162E-04_JPRB,&
3325
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
 11 & 7.68043E-04_JPRB, 6.78688E-04_JPRB, 5.99728E-04_JPRB, 5.29955E-04_JPRB, 4.68299E-04_JPRB/)
3326 SELFREFO( :, 7) = (/&
3327 & 1.43253E-03_JPRB, 1.28535E-03_JPRB, 1.15330E-03_JPRB, 1.03480E-03_JPRB, 9.28488E-04_JPRB,&
3328
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
 11 & 8.33094E-04_JPRB, 7.47501E-04_JPRB, 6.70702E-04_JPRB, 6.01794E-04_JPRB, 5.39965E-04_JPRB/)
3329 SELFREFO( :, 8) = (/&
3330 & 1.48973E-03_JPRB, 1.33348E-03_JPRB, 1.19363E-03_JPRB, 1.06844E-03_JPRB, 9.56378E-04_JPRB,&
3331
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
 11 & 8.56072E-04_JPRB, 7.66286E-04_JPRB, 6.85918E-04_JPRB, 6.13978E-04_JPRB, 5.49583E-04_JPRB/)
3332 SELFREFO( :, 9) = (/&
3333 & 1.53002E-03_JPRB, 1.44607E-03_JPRB, 1.36674E-03_JPRB, 1.29175E-03_JPRB, 1.22088E-03_JPRB,&
3334
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
 11 & 1.15390E-03_JPRB, 1.09059E-03_JPRB, 1.03076E-03_JPRB, 9.74209E-04_JPRB, 9.20760E-04_JPRB/)
3335 SELFREFO( :,10) = (/&
3336 & 1.78480E-03_JPRB, 1.68865E-03_JPRB, 1.59768E-03_JPRB, 1.51161E-03_JPRB, 1.43018E-03_JPRB,&
3337
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
 11 & 1.35313E-03_JPRB, 1.28023E-03_JPRB, 1.21126E-03_JPRB, 1.14601E-03_JPRB, 1.08427E-03_JPRB/)
3338 SELFREFO( :,11) = (/&
3339 & 1.85121E-03_JPRB, 1.73903E-03_JPRB, 1.63364E-03_JPRB, 1.53464E-03_JPRB, 1.44164E-03_JPRB,&
3340
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
 11 & 1.35427E-03_JPRB, 1.27220E-03_JPRB, 1.19510E-03_JPRB, 1.12268E-03_JPRB, 1.05464E-03_JPRB/)
3341 SELFREFO( :,12) = (/&
3342 & 2.10772E-03_JPRB, 1.96994E-03_JPRB, 1.84118E-03_JPRB, 1.72082E-03_JPRB, 1.60834E-03_JPRB,&
3343
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
 11 & 1.50321E-03_JPRB, 1.40495E-03_JPRB, 1.31311E-03_JPRB, 1.22728E-03_JPRB, 1.14705E-03_JPRB/)
3344 SELFREFO( :,13) = (/&
3345 & 1.99323E-03_JPRB, 1.89279E-03_JPRB, 1.79741E-03_JPRB, 1.70684E-03_JPRB, 1.62083E-03_JPRB,&
3346
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
 11 & 1.53915E-03_JPRB, 1.46159E-03_JPRB, 1.38794E-03_JPRB, 1.31800E-03_JPRB, 1.25159E-03_JPRB/)
3347 SELFREFO( :,14) = (/&
3348 & 2.05835E-03_JPRB, 1.93301E-03_JPRB, 1.81529E-03_JPRB, 1.70475E-03_JPRB, 1.60093E-03_JPRB,&
3349
2/2
✓ Branch 0 taken 10 times.
✓ Branch 1 taken 1 times.
 11 & 1.50344E-03_JPRB, 1.41189E-03_JPRB, 1.32591E-03_JPRB, 1.24516E-03_JPRB, 1.16934E-03_JPRB/)
3350
3351
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART11',1,ZHOOK_HANDLE)
3352 1 END SUBROUTINE PART11
3353
3354
3355 1 SUBROUTINE PART12
3356
3357 REAL(KIND=JPRB) :: ZHOOK_HANDLE
3358
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART12',0,ZHOOK_HANDLE)
3359
3360
3361 SELFREFO( :,15) = (/&
3362 & 2.34120E-03_JPRB, 2.20012E-03_JPRB, 2.06754E-03_JPRB, 1.94295E-03_JPRB, 1.82587E-03_JPRB,&
3363
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
 11 & 1.71585E-03_JPRB, 1.61245E-03_JPRB, 1.51529E-03_JPRB, 1.42398E-03_JPRB, 1.33817E-03_JPRB/)
3364 SELFREFO( :,16) = (/&
3365 & 3.03559E-03_JPRB, 2.80023E-03_JPRB, 2.58312E-03_JPRB, 2.38284E-03_JPRB, 2.19809E-03_JPRB,&
3366
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
 11 & 2.02767E-03_JPRB, 1.87045E-03_JPRB, 1.72543E-03_JPRB, 1.59165E-03_JPRB, 1.46825E-03_JPRB/)
3367
3368 FRACREFAO( :, 1) = (/&
3369 ! From P = 862.6 mb.
3370 & 0.17356300_JPRB,0.18880001_JPRB,0.17704099_JPRB,0.13661300_JPRB,&
3371 & 0.10691600_JPRB,0.08222480_JPRB,0.05939860_JPRB,0.04230810_JPRB,&
3372 & 0.02526330_JPRB,0.00244532_JPRB,0.00193541_JPRB,0.00150415_JPRB,&
3373
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 16 times.
 17 & 0.00103528_JPRB,0.00067068_JPRB,0.00024951_JPRB,0.00003348_JPRB/)
3374 FRACREFAO( :, 2) = (/&
3375 & 0.17779499_JPRB,0.19837400_JPRB,0.16557600_JPRB,0.13470000_JPRB,&
3376 & 0.11013600_JPRB,0.08342720_JPRB,0.05987030_JPRB,0.03938700_JPRB,&
3377 & 0.02293650_JPRB,0.00238849_JPRB,0.00192400_JPRB,0.00149921_JPRB,&
3378
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 16 times.
 17 & 0.00103539_JPRB,0.00067150_JPRB,0.00024822_JPRB,0.00003348_JPRB/)
3379 FRACREFAO( :, 3) = (/&
3380 & 0.18535601_JPRB,0.19407199_JPRB,0.16053200_JPRB,0.13300700_JPRB,&
3381 & 0.10779000_JPRB,0.08408500_JPRB,0.06480450_JPRB,0.04070160_JPRB,&
3382 & 0.02203590_JPRB,0.00227779_JPRB,0.00189074_JPRB,0.00146888_JPRB,&
3383
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 16 times.
 17 & 0.00103147_JPRB,0.00066770_JPRB,0.00024751_JPRB,0.00003348_JPRB/)
3384 FRACREFAO( :, 4) = (/&
3385 & 0.19139200_JPRB,0.18917400_JPRB,0.15748601_JPRB,0.13240699_JPRB,&
3386 & 0.10557300_JPRB,0.08383260_JPRB,0.06724060_JPRB,0.04364450_JPRB,&
3387 & 0.02175820_JPRB,0.00225436_JPRB,0.00184421_JPRB,0.00143153_JPRB,&
3388
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 16 times.
 17 & 0.00103027_JPRB,0.00066066_JPRB,0.00024222_JPRB,0.00003148_JPRB/)
3389 FRACREFAO( :, 5) = (/&
3390 & 0.19547801_JPRB,0.18539500_JPRB,0.15442000_JPRB,0.13114899_JPRB,&
3391 & 0.10515600_JPRB,0.08350350_JPRB,0.06909780_JPRB,0.04671630_JPRB,&
3392 & 0.02168820_JPRB,0.00224400_JPRB,0.00182009_JPRB,0.00139098_JPRB,&
3393
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 16 times.
 17 & 0.00102582_JPRB,0.00065367_JPRB,0.00023202_JPRB,0.00003148_JPRB/)
3394 FRACREFAO( :, 6) = (/&
3395 & 0.19757500_JPRB,0.18266800_JPRB,0.15208900_JPRB,0.12897800_JPRB,&
3396 & 0.10637200_JPRB,0.08391220_JPRB,0.06989830_JPRB,0.04964120_JPRB,&
3397 & 0.02155800_JPRB,0.00224310_JPRB,0.00177358_JPRB,0.00138184_JPRB,&
3398
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 16 times.
 17 & 0.00101538_JPRB,0.00063370_JPRB,0.00023227_JPRB,0.00003148_JPRB/)
3399 FRACREFAO( :, 7) = (/&
3400 & 0.20145500_JPRB,0.17692900_JPRB,0.14940600_JPRB,0.12690400_JPRB,&
3401 & 0.10828800_JPRB,0.08553720_JPRB,0.07004940_JPRB,0.05153430_JPRB,&
3402 & 0.02268740_JPRB,0.00216943_JPRB,0.00178603_JPRB,0.00137754_JPRB,&
3403
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 16 times.
 17 & 0.00098344_JPRB,0.00063165_JPRB,0.00023218_JPRB,0.00003148_JPRB/)
3404 FRACREFAO( :, 8) = (/&
3405 & 0.20383500_JPRB,0.17047501_JPRB,0.14570600_JPRB,0.12679300_JPRB,&
3406 & 0.11043100_JPRB,0.08719150_JPRB,0.07045440_JPRB,0.05345420_JPRB,&
3407 & 0.02448340_JPRB,0.00215839_JPRB,0.00175893_JPRB,0.00138296_JPRB,&
3408
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 16 times.
 17 & 0.00098318_JPRB,0.00063188_JPRB,0.00023199_JPRB,0.00003148_JPRB/)
3409 FRACREFAO( :, 9) = (/&
3410 & 0.18680701_JPRB,0.15961801_JPRB,0.15092900_JPRB,0.13049100_JPRB,&
3411 & 0.11418400_JPRB,0.09380540_JPRB,0.07093450_JPRB,0.05664280_JPRB,&
3412 & 0.02938410_JPRB,0.00217751_JPRB,0.00176766_JPRB,0.00138275_JPRB,&
3413
2/2
✓ Branch 0 taken 16 times.
✓ Branch 1 taken 1 times.
 17 & 0.00098377_JPRB,0.00063181_JPRB,0.00023193_JPRB,0.00003148_JPRB/)
3414
3415
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
 1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART12',1,ZHOOK_HANDLE)
3416 1 END SUBROUTINE PART12
3417
3418
3419 END SUBROUTINE RRTM_KGB16
3420