GCC Code Coverage Report


Directory: ./
File: rad/rrtm_kgb3.f90
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 5032 5032 100.0%
Branches: 9740 9818 99.2%

Line Branch Exec Source
1 1 SUBROUTINE RRTM_KGB3
2
3 ! Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
4 ! BAND 3: 500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
5 ! Reformatted for F90 by JJMorcrette, ECMWF
6 ! R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
7
8 ! ------------------------------------------------------------------
9
10 USE PARKIND1 ,ONLY : JPRB
11 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
12
13 USE YOERRTO3 , ONLY : KAO ,KBO ,SELFREFO ,FRACREFAO ,&
14 & FRACREFBO ,FORREFO ,ABSN2OAO ,ABSN2OBO
15 USE YOERRTA3 , ONLY : ETAREF ,H2OREF ,&
16 & N2OREF ,CO2REF ,STRRAT
17
18 ! ------------------------------------------------------------------
19
20 IMPLICIT NONE
21 REAL(KIND=JPRB) :: ZHOOK_HANDLE
22
23
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB3',0,ZHOOK_HANDLE)
24
25 1 CALL PART1
26 1 CALL PART2
27 1 CALL PART3
28 1 CALL PART4
29 1 CALL PART5
30 1 CALL PART6
31 1 CALL PART7
32 1 CALL PART8
33 1 CALL PART9
34 1 CALL PART10
35 1 CALL PART11
36 1 CALL PART12
37 1 CALL PART13
38 1 CALL PART14
39 1 CALL PART15
40 1 CALL PART16
41 1 CALL PART17
42 1 CALL PART18
43 1 CALL PART19
44 1 CALL PART20
45 1 CALL PART21
46 1 CALL PART22
47 1 CALL PART23
48 1 CALL PART24
49 1 CALL PART25
50 1 CALL PART26
51 1 CALL PART27
52 1 CALL PART28
53 1 CALL PART29
54 1 CALL PART30
55 1 CALL PART31
56 1 CALL PART32
57 1 CALL PART33
58 1 CALL PART34
59 1 CALL PART35
60 1 CALL PART36
61 1 CALL PART37
62 1 CALL PART38
63
64
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB3',1,ZHOOK_HANDLE)
65
66 ! -----------------------------------------------------------------
67
68 CONTAINS
69
70 1 SUBROUTINE PART1
71
72 REAL(KIND=JPRB) :: ZHOOK_HANDLE
73
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART1',0,ZHOOK_HANDLE)
74
75
76 FORREFO( :) = (/&
77 & 1.76842E-04_JPRB, 1.77913E-04_JPRB, 1.25186E-04_JPRB, 1.07912E-04_JPRB,&
78 & 1.05217E-04_JPRB, 7.48726E-05_JPRB, 1.11701E-04_JPRB, 7.68921E-05_JPRB,&
79 & 9.87242E-05_JPRB, 9.85711E-05_JPRB, 6.16557E-05_JPRB,-1.61291E-05_JPRB,&
80 1 & -1.26794E-04_JPRB,-1.19011E-04_JPRB,-2.67814E-04_JPRB, 6.95005E-05_JPRB/)
81
82 ABSN2OAO( :) = (/&
83 & 1.50387E-01_JPRB,2.91407E-01_JPRB,6.28803E-01_JPRB,9.65619E-01_JPRB,&
84 & 1.15054E-00_JPRB,2.23424E-00_JPRB,1.83392E-00_JPRB,1.39033E-00_JPRB,&
85 & 4.28457E-01_JPRB,2.73502E-01_JPRB,1.84307E-01_JPRB,1.61325E-01_JPRB,&
86 1 & 7.66314E-02_JPRB,1.33862E-01_JPRB,6.71196E-07_JPRB,1.59293E-06_JPRB/)
87
88 ABSN2OBO( :) = (/&
89 & 9.37044E-05_JPRB,1.23318E-03_JPRB,7.91720E-03_JPRB,5.33005E-02_JPRB,&
90 & 1.72343E-01_JPRB,4.29571E-01_JPRB,1.01288E+00_JPRB,3.83863E+00_JPRB,&
91 & 1.15312E+01_JPRB,1.08383E+00_JPRB,2.24847E+00_JPRB,1.51268E+00_JPRB,&
92 1 & 3.33177E-01_JPRB,7.82102E-01_JPRB,3.44631E-01_JPRB,1.61039E-03_JPRB/)
93
94 ETAREF( :) = (/&
95 1 & 0.0_JPRB,0.125_JPRB,0.25_JPRB,0.375_JPRB,0.5_JPRB,0.625_JPRB,0.75_JPRB,0.875_JPRB,0.9875_JPRB,1.0_JPRB/)
96
97 H2OREF( :) = (/&
98 & 1.87599E-02_JPRB,1.22233E-02_JPRB,5.89086E-03_JPRB,2.76753E-03_JPRB,1.40651E-03_JPRB, &
99 & 7.59698E-04_JPRB,3.88758E-04_JPRB,1.65422E-04_JPRB,3.71895E-05_JPRB,7.47648E-06_JPRB, &
100 & 4.30818E-06_JPRB,3.33194E-06_JPRB,3.20393E-06_JPRB,3.16186E-06_JPRB,3.25235E-06_JPRB, &
101 & 3.42258E-06_JPRB,3.62884E-06_JPRB,3.91482E-06_JPRB,4.14875E-06_JPRB,4.30810E-06_JPRB,&
102 & 4.44204E-06_JPRB,4.57783E-06_JPRB,4.70865E-06_JPRB,4.79432E-06_JPRB,4.86971E-06_JPRB, &
103 & 4.92603E-06_JPRB,4.96688E-06_JPRB,4.99628E-06_JPRB,5.05266E-06_JPRB,5.12658E-06_JPRB, &
104 & 5.25028E-06_JPRB,5.35708E-06_JPRB,5.45085E-06_JPRB,5.48304E-06_JPRB,5.50000E-06_JPRB, &
105 & 5.50000E-06_JPRB,5.45359E-06_JPRB,5.40468E-06_JPRB,5.35576E-06_JPRB,5.25327E-06_JPRB,&
106 & 5.14362E-06_JPRB,5.03396E-06_JPRB,4.87662E-06_JPRB,4.69787E-06_JPRB,4.51911E-06_JPRB, &
107 & 4.33600E-06_JPRB,4.14416E-06_JPRB,3.95232E-06_JPRB,3.76048E-06_JPRB,3.57217E-06_JPRB, &
108 & 3.38549E-06_JPRB,3.19881E-06_JPRB,3.01212E-06_JPRB,2.82621E-06_JPRB,2.64068E-06_JPRB, &
109 1 & 2.45515E-06_JPRB,2.26962E-06_JPRB,2.08659E-06_JPRB,1.93029E-06_JPRB/)
110
111 N2OREF( :) = (/&
112 & 3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,&
113 & 3.19652E-07_JPRB,3.15324E-07_JPRB,3.03830E-07_JPRB,2.94221E-07_JPRB,2.84953E-07_JPRB,&
114 & 2.76714E-07_JPRB,2.64709E-07_JPRB,2.42847E-07_JPRB,2.09547E-07_JPRB,1.71945E-07_JPRB,&
115 & 1.37491E-07_JPRB,1.13319E-07_JPRB,1.00354E-07_JPRB,9.12812E-08_JPRB,8.54633E-08_JPRB,&
116 & 8.03631E-08_JPRB,7.33718E-08_JPRB,6.59754E-08_JPRB,5.60386E-08_JPRB,4.70901E-08_JPRB,&
117 & 3.99774E-08_JPRB,3.29786E-08_JPRB,2.60642E-08_JPRB,2.10663E-08_JPRB,1.65918E-08_JPRB,&
118 & 1.30167E-08_JPRB,1.00900E-08_JPRB,7.62490E-09_JPRB,6.11592E-09_JPRB,4.66725E-09_JPRB,&
119 & 3.28574E-09_JPRB,2.84838E-09_JPRB,2.46198E-09_JPRB,2.07557E-09_JPRB,1.85507E-09_JPRB,&
120 & 1.65675E-09_JPRB,1.45843E-09_JPRB,1.31948E-09_JPRB,1.20716E-09_JPRB,1.09485E-09_JPRB,&
121 & 9.97803E-10_JPRB,9.31260E-10_JPRB,8.64721E-10_JPRB,7.98181E-10_JPRB,7.51380E-10_JPRB,&
122 & 7.13670E-10_JPRB,6.75960E-10_JPRB,6.38250E-10_JPRB,6.09811E-10_JPRB,5.85998E-10_JPRB,&
123 1 & 5.62185E-10_JPRB,5.38371E-10_JPRB,5.15183E-10_JPRB,4.98660E-10_JPRB/)
124
125 CO2REF( :) = (/&
126 & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
127 & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
128 & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
129 & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
130 & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
131 & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
132 & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
133 & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
134 & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
135 & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
136 & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
137 & 3.5470873E-04_JPRB, 3.5427220E-04_JPRB, 3.5383567E-04_JPRB,&
138 1 & 3.5339911E-04_JPRB, 3.5282588E-04_JPRB, 3.5079606E-04_JPRB/)
139
140 1 STRRAT = 1.19268_JPRB
141
142 ! ------------------------------------------------------------------
143
144 ! The array KAO contains absorption coefs for each of the 16 g-intervals
145 ! for a range of pressure levels > ~100mb, temperatures, and ratios
146 ! of water vapor to CO2. The first index in the array, JS, runs
147 ! from 1 to 10, and corresponds to different water vapor to CO2 ratios,
148 ! as expressed through the binary species parameter eta, defined as
149 ! eta = h2o/(h20 + (rat) * co2), where rat is the ratio of the integrated
150 ! line strength in the band of co2 to that of h2o. For instance,
151 ! JS=1 refers to dry air (eta = 0), JS = 10 corresponds to eta = 1.0.
152 ! The 2nd index in the array, JT, which runs from 1 to 5, corresponds
153 ! to different temperatures. More specifically, JT = 3 means that the
154 ! data are for the reference temperature TREF for this pressure
155 ! level, JT = 2 refers to the temperature
156 ! TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
157 ! is for TREF+30. The third index, JP, runs from 1 to 13 and refers
158 ! to the reference pressure level (e.g. JP = 1 is for a
159 ! pressure of 1053.63 mb). The fourth index, IG, goes from 1 to 16,
160 ! and tells us which g-interval the absorption coefficients are for.
161
162 KAO( :, 1, 1, 1) = (/&
163 & 1.3905E-05_JPRB,5.5491E-04_JPRB,9.4069E-04_JPRB,1.2683E-03_JPRB,1.5758E-03_JPRB,1.8657E-03_JPRB,&
164
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.1271E-03_JPRB,2.3310E-03_JPRB,2.2238E-03_JPRB,1.2098E-03_JPRB/)
165 KAO( :, 2, 1, 1) = (/&
166 & 1.8718E-05_JPRB,6.2254E-04_JPRB,1.0419E-03_JPRB,1.3944E-03_JPRB,1.7096E-03_JPRB,2.0070E-03_JPRB,&
167
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.2783E-03_JPRB,2.4921E-03_JPRB,2.4893E-03_JPRB,1.3329E-03_JPRB/)
168 KAO( :, 3, 1, 1) = (/&
169 & 2.5277E-05_JPRB,7.0791E-04_JPRB,1.1679E-03_JPRB,1.5540E-03_JPRB,1.8826E-03_JPRB,2.1855E-03_JPRB,&
170
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.4637E-03_JPRB,2.6836E-03_JPRB,2.4870E-03_JPRB,1.4683E-03_JPRB/)
171 KAO( :, 4, 1, 1) = (/&
172 & 3.3974E-05_JPRB,8.1479E-04_JPRB,1.3277E-03_JPRB,1.7495E-03_JPRB,2.1019E-03_JPRB,2.4115E-03_JPRB,&
173
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.6955E-03_JPRB,2.9144E-03_JPRB,2.6786E-03_JPRB,1.5835E-03_JPRB/)
174 KAO( :, 5, 1, 1) = (/&
175 & 4.5018E-05_JPRB,9.4621E-04_JPRB,1.5225E-03_JPRB,1.9888E-03_JPRB,2.3735E-03_JPRB,2.6924E-03_JPRB,&
176
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.9767E-03_JPRB,3.1904E-03_JPRB,2.9199E-03_JPRB,1.7196E-03_JPRB/)
177 KAO( :, 1, 2, 1) = (/&
178 & 1.0592E-05_JPRB,4.4499E-04_JPRB,7.6480E-04_JPRB,1.0361E-03_JPRB,1.2851E-03_JPRB,1.5183E-03_JPRB,&
179
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.7260E-03_JPRB,1.8861E-03_JPRB,1.7869E-03_JPRB,9.5189E-04_JPRB/)
180 KAO( :, 2, 2, 1) = (/&
181 & 1.4233E-05_JPRB,4.9754E-04_JPRB,8.4386E-04_JPRB,1.1364E-03_JPRB,1.3930E-03_JPRB,1.6308E-03_JPRB,&
182
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.8450E-03_JPRB,2.0088E-03_JPRB,1.9843E-03_JPRB,1.0406E-03_JPRB/)
183 KAO( :, 3, 2, 1) = (/&
184 & 1.9306E-05_JPRB,5.6436E-04_JPRB,9.4285E-04_JPRB,1.2611E-03_JPRB,1.5318E-03_JPRB,1.7753E-03_JPRB,&
185
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.9931E-03_JPRB,2.1588E-03_JPRB,2.0128E-03_JPRB,1.1498E-03_JPRB/)
186 KAO( :, 4, 2, 1) = (/&
187 & 2.6119E-05_JPRB,6.4842E-04_JPRB,1.0680E-03_JPRB,1.4147E-03_JPRB,1.7071E-03_JPRB,1.9567E-03_JPRB,&
188
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.1789E-03_JPRB,2.3401E-03_JPRB,2.1538E-03_JPRB,1.2358E-03_JPRB/)
189 KAO( :, 5, 2, 1) = (/&
190 & 3.4871E-05_JPRB,7.5256E-04_JPRB,1.2221E-03_JPRB,1.6045E-03_JPRB,1.9204E-03_JPRB,2.1824E-03_JPRB,&
191
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.4047E-03_JPRB,2.5599E-03_JPRB,2.3558E-03_JPRB,1.3458E-03_JPRB/)
192 KAO( :, 1, 3, 1) = (/&
193 & 7.6650E-06_JPRB,3.4947E-04_JPRB,6.0867E-04_JPRB,8.3119E-04_JPRB,1.0323E-03_JPRB,1.2185E-03_JPRB,&
194
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.3830E-03_JPRB,1.5087E-03_JPRB,1.4187E-03_JPRB,7.5325E-04_JPRB/)
195 KAO( :, 2, 3, 1) = (/&
196 & 1.0208E-05_JPRB,3.8799E-04_JPRB,6.6727E-04_JPRB,9.0569E-04_JPRB,1.1140E-03_JPRB,1.3039E-03_JPRB,&
197
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.4728E-03_JPRB,1.5994E-03_JPRB,1.5541E-03_JPRB,8.1826E-04_JPRB/)
198 KAO( :, 3, 3, 1) = (/&
199 & 1.3852E-05_JPRB,4.3745E-04_JPRB,7.4132E-04_JPRB,9.9801E-04_JPRB,1.2192E-03_JPRB,1.4137E-03_JPRB,&
200
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.5849E-03_JPRB,1.7123E-03_JPRB,1.6593E-03_JPRB,8.9528E-04_JPRB/)
201 KAO( :, 4, 3, 1) = (/&
202 & 1.8873E-05_JPRB,5.0084E-04_JPRB,8.3488E-04_JPRB,1.1136E-03_JPRB,1.3505E-03_JPRB,1.5529E-03_JPRB,&
203
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.7249E-03_JPRB,1.8487E-03_JPRB,1.7141E-03_JPRB,9.6472E-04_JPRB/)
204 KAO( :, 5, 3, 1) = (/&
205 & 2.5412E-05_JPRB,5.7989E-04_JPRB,9.5083E-04_JPRB,1.2577E-03_JPRB,1.5110E-03_JPRB,1.7265E-03_JPRB,&
206
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.9001E-03_JPRB,2.0154E-03_JPRB,1.8592E-03_JPRB,1.0514E-03_JPRB/)
207 KAO( :, 1, 4, 1) = (/&
208 & 5.5327E-06_JPRB,2.7370E-04_JPRB,4.8202E-04_JPRB,6.6293E-04_JPRB,8.2705E-04_JPRB,9.7621E-04_JPRB,&
209
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.1071E-03_JPRB,1.2149E-03_JPRB,1.1365E-03_JPRB,6.2235E-04_JPRB/)
210 KAO( :, 2, 4, 1) = (/&
211 & 7.2381E-06_JPRB,3.0138E-04_JPRB,5.2416E-04_JPRB,7.1697E-04_JPRB,8.8620E-04_JPRB,1.0391E-03_JPRB,&
212
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.1730E-03_JPRB,1.2726E-03_JPRB,1.2113E-03_JPRB,6.7320E-04_JPRB/)
213 KAO( :, 3, 4, 1) = (/&
214 & 9.7698E-06_JPRB,3.3721E-04_JPRB,5.7856E-04_JPRB,7.8512E-04_JPRB,9.6459E-04_JPRB,1.1210E-03_JPRB,&
215
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.2565E-03_JPRB,1.3549E-03_JPRB,1.3452E-03_JPRB,7.2416E-04_JPRB/)
216 KAO( :, 4, 4, 1) = (/&
217 & 1.3344E-05_JPRB,3.8381E-04_JPRB,6.4739E-04_JPRB,8.7038E-04_JPRB,1.0615E-03_JPRB,1.2252E-03_JPRB,&
218
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.3612E-03_JPRB,1.4576E-03_JPRB,1.3655E-03_JPRB,7.8325E-04_JPRB/)
219 KAO( :, 5, 4, 1) = (/&
220 & 1.8090E-05_JPRB,4.4258E-04_JPRB,7.3288E-04_JPRB,9.7754E-04_JPRB,1.1813E-03_JPRB,1.3549E-03_JPRB,&
221
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.4926E-03_JPRB,1.5822E-03_JPRB,1.4607E-03_JPRB,8.5221E-04_JPRB/)
222 KAO( :, 1, 5, 1) = (/&
223 & 4.0810E-06_JPRB,2.1551E-04_JPRB,3.8283E-04_JPRB,5.2940E-04_JPRB,6.6368E-04_JPRB,7.8503E-04_JPRB,&
224
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.8897E-04_JPRB,9.7870E-04_JPRB,9.2885E-04_JPRB,5.3112E-04_JPRB/)
225 KAO( :, 2, 5, 1) = (/&
226 & 5.1916E-06_JPRB,2.3507E-04_JPRB,4.1271E-04_JPRB,5.6826E-04_JPRB,7.0568E-04_JPRB,8.2971E-04_JPRB,&
227
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 9.3695E-04_JPRB,1.0168E-03_JPRB,9.5220E-04_JPRB,5.6840E-04_JPRB/)
228 KAO( :, 3, 5, 1) = (/&
229 & 6.9159E-06_JPRB,2.6088E-04_JPRB,4.5208E-04_JPRB,6.1797E-04_JPRB,7.6301E-04_JPRB,8.8979E-04_JPRB,&
230
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 9.9853E-04_JPRB,1.0759E-03_JPRB,1.0389E-03_JPRB,6.0777E-04_JPRB/)
231 KAO( :, 4, 5, 1) = (/&
232 & 9.4196E-06_JPRB,2.9480E-04_JPRB,5.0274E-04_JPRB,6.8088E-04_JPRB,8.3550E-04_JPRB,9.6746E-04_JPRB,&
233
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.0764E-03_JPRB,1.1522E-03_JPRB,1.1313E-03_JPRB,6.5577E-04_JPRB/)
234 KAO( :, 5, 5, 1) = (/&
235 & 1.2823E-05_JPRB,3.3834E-04_JPRB,5.6555E-04_JPRB,7.6000E-04_JPRB,9.2459E-04_JPRB,1.0640E-03_JPRB,&
236
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.1745E-03_JPRB,1.2456E-03_JPRB,1.1599E-03_JPRB,7.1205E-04_JPRB/)
237 KAO( :, 1, 6, 1) = (/&
238 & 3.0745E-06_JPRB,1.7028E-04_JPRB,3.0467E-04_JPRB,4.2351E-04_JPRB,5.3324E-04_JPRB,6.3166E-04_JPRB,&
239
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.1362E-04_JPRB,7.7595E-04_JPRB,7.2555E-04_JPRB,4.6766E-04_JPRB/)
240 KAO( :, 2, 6, 1) = (/&
241 & 3.7467E-06_JPRB,1.8364E-04_JPRB,3.2533E-04_JPRB,4.4992E-04_JPRB,5.6174E-04_JPRB,6.6289E-04_JPRB,&
242
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.4918E-04_JPRB,8.1992E-04_JPRB,7.7217E-04_JPRB,4.9540E-04_JPRB/)
243 KAO( :, 3, 6, 1) = (/&
244 & 4.8844E-06_JPRB,2.0189E-04_JPRB,3.5318E-04_JPRB,4.8611E-04_JPRB,6.0248E-04_JPRB,7.0548E-04_JPRB,&
245
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.9343E-04_JPRB,8.5556E-04_JPRB,8.1719E-04_JPRB,5.2871E-04_JPRB/)
246 KAO( :, 4, 6, 1) = (/&
247 & 6.5875E-06_JPRB,2.2623E-04_JPRB,3.8987E-04_JPRB,5.3174E-04_JPRB,6.5615E-04_JPRB,7.6255E-04_JPRB,&
248
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.5105E-04_JPRB,9.1164E-04_JPRB,9.0776E-04_JPRB,5.6738E-04_JPRB/)
249 KAO( :, 5, 6, 1) = (/&
250 & 8.9782E-06_JPRB,2.5797E-04_JPRB,4.3574E-04_JPRB,5.8945E-04_JPRB,7.2180E-04_JPRB,8.3401E-04_JPRB,&
251
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 9.2288E-04_JPRB,9.8059E-04_JPRB,9.2715E-04_JPRB,6.1340E-04_JPRB/)
252 KAO( :, 1, 7, 1) = (/&
253 & 2.3852E-06_JPRB,1.3537E-04_JPRB,2.4376E-04_JPRB,3.4046E-04_JPRB,4.2953E-04_JPRB,5.0877E-04_JPRB,&
254
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.7353E-04_JPRB,6.1192E-04_JPRB,5.7270E-04_JPRB,4.3319E-04_JPRB/)
255 KAO( :, 2, 7, 1) = (/&
256 & 2.7620E-06_JPRB,1.4429E-04_JPRB,2.5761E-04_JPRB,3.5752E-04_JPRB,4.4861E-04_JPRB,5.3102E-04_JPRB,&
257
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.9966E-04_JPRB,6.5817E-04_JPRB,6.2541E-04_JPRB,4.5750E-04_JPRB/)
258 KAO( :, 3, 7, 1) = (/&
259 & 3.4880E-06_JPRB,1.5701E-04_JPRB,2.7701E-04_JPRB,3.8344E-04_JPRB,4.7691E-04_JPRB,5.6092E-04_JPRB,&
260
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.3220E-04_JPRB,6.8391E-04_JPRB,6.4333E-04_JPRB,4.8664E-04_JPRB/)
261 KAO( :, 4, 7, 1) = (/&
262 & 4.6192E-06_JPRB,1.7428E-04_JPRB,3.0330E-04_JPRB,4.1640E-04_JPRB,5.1608E-04_JPRB,6.0192E-04_JPRB,&
263
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.7387E-04_JPRB,7.2302E-04_JPRB,7.0029E-04_JPRB,5.2115E-04_JPRB/)
264 KAO( :, 5, 7, 1) = (/&
265 & 6.2659E-06_JPRB,1.9723E-04_JPRB,3.3668E-04_JPRB,4.5828E-04_JPRB,5.6442E-04_JPRB,6.5465E-04_JPRB,&
266
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.2699E-04_JPRB,7.7405E-04_JPRB,7.7413E-04_JPRB,5.6002E-04_JPRB/)
267 KAO( :, 1, 8, 1) = (/&
268 & 1.9015E-06_JPRB,1.0820E-04_JPRB,1.9592E-04_JPRB,2.7484E-04_JPRB,3.4688E-04_JPRB,4.0988E-04_JPRB,&
269
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.6037E-04_JPRB,4.8747E-04_JPRB,4.5723E-04_JPRB,4.3074E-04_JPRB/)
270 KAO( :, 2, 8, 1) = (/&
271 & 2.0897E-06_JPRB,1.1410E-04_JPRB,2.0489E-04_JPRB,2.8543E-04_JPRB,3.5954E-04_JPRB,4.2599E-04_JPRB,&
272
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.8075E-04_JPRB,5.2102E-04_JPRB,4.8940E-04_JPRB,4.6091E-04_JPRB/)
273 KAO( :, 3, 8, 1) = (/&
274 & 2.5320E-06_JPRB,1.2277E-04_JPRB,2.1834E-04_JPRB,3.0321E-04_JPRB,3.7874E-04_JPRB,4.4717E-04_JPRB,&
275
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.0489E-04_JPRB,5.5180E-04_JPRB,5.2338E-04_JPRB,4.9080E-04_JPRB/)
276 KAO( :, 4, 8, 1) = (/&
277 & 3.2727E-06_JPRB,1.3498E-04_JPRB,2.3690E-04_JPRB,3.2720E-04_JPRB,4.0672E-04_JPRB,4.7636E-04_JPRB,&
278
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.3491E-04_JPRB,5.7561E-04_JPRB,5.5051E-04_JPRB,5.1978E-04_JPRB/)
279 KAO( :, 5, 8, 1) = (/&
280 & 4.3856E-06_JPRB,1.5147E-04_JPRB,2.6111E-04_JPRB,3.5765E-04_JPRB,4.4264E-04_JPRB,5.1502E-04_JPRB,&
281
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.7382E-04_JPRB,6.1302E-04_JPRB,6.1438E-04_JPRB,5.4976E-04_JPRB/)
282 KAO( :, 1, 9, 1) = (/&
283 & 1.5482E-06_JPRB,8.7052E-05_JPRB,1.5839E-04_JPRB,2.2300E-04_JPRB,2.8105E-04_JPRB,3.3090E-04_JPRB,&
284
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.6936E-04_JPRB,3.8992E-04_JPRB,3.6561E-04_JPRB,5.0307E-04_JPRB/)
285 KAO( :, 2, 9, 1) = (/&
286 & 1.6233E-06_JPRB,9.0800E-05_JPRB,1.6386E-04_JPRB,2.2916E-04_JPRB,2.8933E-04_JPRB,3.4270E-04_JPRB,&
287
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.8603E-04_JPRB,4.1137E-04_JPRB,3.8679E-04_JPRB,5.3034E-04_JPRB/)
288 KAO( :, 3, 9, 1) = (/&
289 & 1.8727E-06_JPRB,9.6605E-05_JPRB,1.7299E-04_JPRB,2.4068E-04_JPRB,3.0216E-04_JPRB,3.5768E-04_JPRB,&
290
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.0386E-04_JPRB,4.4306E-04_JPRB,4.2523E-04_JPRB,5.5823E-04_JPRB/)
291 KAO( :, 4, 9, 1) = (/&
292 & 2.3460E-06_JPRB,1.0514E-04_JPRB,1.8594E-04_JPRB,2.5798E-04_JPRB,3.2158E-04_JPRB,3.7830E-04_JPRB,&
293
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.2604E-04_JPRB,4.6061E-04_JPRB,4.3830E-04_JPRB,5.8904E-04_JPRB/)
294 KAO( :, 5, 9, 1) = (/&
295 & 3.0835E-06_JPRB,1.1691E-04_JPRB,2.0336E-04_JPRB,2.8015E-04_JPRB,3.4814E-04_JPRB,4.0638E-04_JPRB,&
296
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.5421E-04_JPRB,4.8658E-04_JPRB,4.7615E-04_JPRB,6.2435E-04_JPRB/)
297 KAO( :, 1,10, 1) = (/&
298 & 1.2799E-06_JPRB,7.0646E-05_JPRB,1.2898E-04_JPRB,1.8180E-04_JPRB,2.2870E-04_JPRB,2.6728E-04_JPRB,&
299
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.9678E-04_JPRB,3.1565E-04_JPRB,2.9877E-04_JPRB,5.6519E-04_JPRB/)
300 KAO( :, 2,10, 1) = (/&
301 & 1.2987E-06_JPRB,7.2906E-05_JPRB,1.3215E-04_JPRB,1.8535E-04_JPRB,2.3421E-04_JPRB,2.7695E-04_JPRB,&
302
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.1130E-04_JPRB,3.2886E-04_JPRB,3.1021E-04_JPRB,5.8706E-04_JPRB/)
303 KAO( :, 3,10, 1) = (/&
304 & 1.4353E-06_JPRB,7.6915E-05_JPRB,1.3835E-04_JPRB,1.9290E-04_JPRB,2.4295E-04_JPRB,2.8803E-04_JPRB,&
305
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.2514E-04_JPRB,3.5354E-04_JPRB,3.3578E-04_JPRB,6.1412E-04_JPRB/)
306 KAO( :, 4,10, 1) = (/&
307 & 1.7387E-06_JPRB,8.2894E-05_JPRB,1.4759E-04_JPRB,2.0528E-04_JPRB,2.5663E-04_JPRB,3.0293E-04_JPRB,&
308
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.4175E-04_JPRB,3.7216E-04_JPRB,3.5751E-04_JPRB,6.4985E-04_JPRB/)
309 KAO( :, 5,10, 1) = (/&
310 & 2.2343E-06_JPRB,9.1469E-05_JPRB,1.6022E-04_JPRB,2.2168E-04_JPRB,2.7630E-04_JPRB,3.2346E-04_JPRB,&
311
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.6268E-04_JPRB,3.8938E-04_JPRB,3.7492E-04_JPRB,6.9583E-04_JPRB/)
312 KAO( :, 1,11, 1) = (/&
313 & 1.0543E-06_JPRB,5.7983E-05_JPRB,1.0582E-04_JPRB,1.4919E-04_JPRB,1.8791E-04_JPRB,2.2000E-04_JPRB,&
314
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.4433E-04_JPRB,2.5995E-04_JPRB,2.4592E-04_JPRB,5.0307E-04_JPRB/)
315 KAO( :, 2,11, 1) = (/&
316 & 1.0726E-06_JPRB,5.9907E-05_JPRB,1.0858E-04_JPRB,1.5223E-04_JPRB,1.9244E-04_JPRB,2.2775E-04_JPRB,&
317
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.5610E-04_JPRB,2.7046E-04_JPRB,2.5615E-04_JPRB,5.1588E-04_JPRB/)
318 KAO( :, 3,11, 1) = (/&
319 & 1.1894E-06_JPRB,6.3212E-05_JPRB,1.1383E-04_JPRB,1.5870E-04_JPRB,1.9979E-04_JPRB,2.3693E-04_JPRB,&
320
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.6747E-04_JPRB,2.9154E-04_JPRB,2.7919E-04_JPRB,5.3855E-04_JPRB/)
321 KAO( :, 4,11, 1) = (/&
322 & 1.4390E-06_JPRB,6.8258E-05_JPRB,1.2145E-04_JPRB,1.6906E-04_JPRB,2.1138E-04_JPRB,2.4948E-04_JPRB,&
323
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.8136E-04_JPRB,3.0581E-04_JPRB,2.9553E-04_JPRB,5.7296E-04_JPRB/)
324 KAO( :, 5,11, 1) = (/&
325 & 1.8470E-06_JPRB,7.5489E-05_JPRB,1.3202E-04_JPRB,1.8257E-04_JPRB,2.2782E-04_JPRB,2.6681E-04_JPRB,&
326
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.9892E-04_JPRB,3.2058E-04_JPRB,3.1052E-04_JPRB,6.1818E-04_JPRB/)
327 KAO( :, 1,12, 1) = (/&
328 & 8.6798E-07_JPRB,4.7553E-05_JPRB,8.6730E-05_JPRB,1.2226E-04_JPRB,1.5413E-04_JPRB,1.8085E-04_JPRB,&
329
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.0088E-04_JPRB,2.1368E-04_JPRB,2.0252E-04_JPRB,4.1925E-04_JPRB/)
330 KAO( :, 2,12, 1) = (/&
331 & 8.8495E-07_JPRB,4.9183E-05_JPRB,8.9118E-05_JPRB,1.2490E-04_JPRB,1.5790E-04_JPRB,1.8699E-04_JPRB,&
332
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.1049E-04_JPRB,2.2231E-04_JPRB,2.1170E-04_JPRB,4.2911E-04_JPRB/)
333 KAO( :, 3,12, 1) = (/&
334 & 9.8325E-07_JPRB,5.1925E-05_JPRB,9.3547E-05_JPRB,1.3044E-04_JPRB,1.6413E-04_JPRB,1.9471E-04_JPRB,&
335
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.1986E-04_JPRB,2.4001E-04_JPRB,2.3209E-04_JPRB,4.4871E-04_JPRB/)
336 KAO( :, 4,12, 1) = (/&
337 & 1.1889E-06_JPRB,5.6183E-05_JPRB,9.9863E-05_JPRB,1.3905E-04_JPRB,1.7391E-04_JPRB,2.0522E-04_JPRB,&
338
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.3142E-04_JPRB,2.5135E-04_JPRB,2.4267E-04_JPRB,4.7818E-04_JPRB/)
339 KAO( :, 5,12, 1) = (/&
340 & 1.5235E-06_JPRB,6.2281E-05_JPRB,1.0874E-04_JPRB,1.5023E-04_JPRB,1.8755E-04_JPRB,2.1980E-04_JPRB,&
341
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.4617E-04_JPRB,2.6379E-04_JPRB,2.5784E-04_JPRB,5.1708E-04_JPRB/)
342 KAO( :, 1,13, 1) = (/&
343 & 7.1418E-07_JPRB,3.8921E-05_JPRB,7.0891E-05_JPRB,9.9889E-05_JPRB,1.2597E-04_JPRB,1.4799E-04_JPRB,&
344
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.6453E-04_JPRB,1.7513E-04_JPRB,1.6667E-04_JPRB,3.4309E-04_JPRB/)
345 KAO( :, 2,13, 1) = (/&
346 & 7.2895E-07_JPRB,4.0284E-05_JPRB,7.2945E-05_JPRB,1.0221E-04_JPRB,1.2923E-04_JPRB,1.5309E-04_JPRB,&
347
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.7258E-04_JPRB,1.8229E-04_JPRB,1.7386E-04_JPRB,3.5109E-04_JPRB/)
348 KAO( :, 3,13, 1) = (/&
349 & 8.1079E-07_JPRB,4.2576E-05_JPRB,7.6659E-05_JPRB,1.0692E-04_JPRB,1.3449E-04_JPRB,1.5961E-04_JPRB,&
350
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.8026E-04_JPRB,1.9704E-04_JPRB,1.9240E-04_JPRB,3.6700E-04_JPRB/)
351 KAO( :, 4,13, 1) = (/&
352 & 9.8001E-07_JPRB,4.6149E-05_JPRB,8.1932E-05_JPRB,1.1406E-04_JPRB,1.4271E-04_JPRB,1.6841E-04_JPRB,&
353
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.8992E-04_JPRB,2.0617E-04_JPRB,1.9928E-04_JPRB,3.9092E-04_JPRB/)
354 KAO( :, 5,13, 1) = (/&
355 & 1.2528E-06_JPRB,5.1280E-05_JPRB,8.9359E-05_JPRB,1.2338E-04_JPRB,1.5401E-04_JPRB,1.8056E-04_JPRB,&
356
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.0225E-04_JPRB,2.1672E-04_JPRB,2.1360E-04_JPRB,4.2252E-04_JPRB/)
357 KAO( :, 1, 1, 2) = (/&
358 & 6.1207E-05_JPRB,1.0978E-03_JPRB,1.7611E-03_JPRB,2.3638E-03_JPRB,2.9057E-03_JPRB,3.3651E-03_JPRB,&
359
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.7137E-03_JPRB,3.8383E-03_JPRB,3.2297E-03_JPRB,2.4264E-03_JPRB/)
360 KAO( :, 2, 1, 2) = (/&
361 & 8.5058E-05_JPRB,1.3292E-03_JPRB,2.0750E-03_JPRB,2.7338E-03_JPRB,3.3403E-03_JPRB,3.8629E-03_JPRB,&
362
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.2579E-03_JPRB,4.3337E-03_JPRB,3.4101E-03_JPRB,2.6736E-03_JPRB/)
363 KAO( :, 3, 1, 2) = (/&
364 & 1.1682E-04_JPRB,1.6162E-03_JPRB,2.4689E-03_JPRB,3.1946E-03_JPRB,3.8719E-03_JPRB,4.4552E-03_JPRB,&
365
2/2
✓ Branch 0 taken 10 times.
✓ Branch 1 taken 1 times.
11 & 4.9076E-03_JPRB,4.9335E-03_JPRB,3.9022E-03_JPRB,2.9247E-03_JPRB/)
366
367
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART1',1,ZHOOK_HANDLE)
368 1 END SUBROUTINE PART1
369
370
371 1 SUBROUTINE PART2
372
373 REAL(KIND=JPRB) :: ZHOOK_HANDLE
374
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART2',0,ZHOOK_HANDLE)
375
376
377 KAO( :, 4, 1, 2) = (/&
378 & 1.5789E-04_JPRB,1.9668E-03_JPRB,2.9480E-03_JPRB,3.7669E-03_JPRB,4.5171E-03_JPRB,5.1682E-03_JPRB,&
379
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.6653E-03_JPRB,5.6499E-03_JPRB,4.0652E-03_JPRB,3.1515E-03_JPRB/)
380 KAO( :, 5, 1, 2) = (/&
381 & 2.0990E-04_JPRB,2.3887E-03_JPRB,3.5299E-03_JPRB,4.4565E-03_JPRB,5.2844E-03_JPRB,6.0076E-03_JPRB,&
382
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.5551E-03_JPRB,6.4764E-03_JPRB,4.4385E-03_JPRB,3.4538E-03_JPRB/)
383 KAO( :, 1, 2, 2) = (/&
384 & 4.6541E-05_JPRB,8.8674E-04_JPRB,1.4099E-03_JPRB,1.8864E-03_JPRB,2.3180E-03_JPRB,2.6798E-03_JPRB,&
385
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.9613E-03_JPRB,3.0615E-03_JPRB,2.6597E-03_JPRB,1.8872E-03_JPRB/)
386 KAO( :, 2, 2, 2) = (/&
387 & 6.5339E-05_JPRB,1.0747E-03_JPRB,1.6670E-03_JPRB,2.1855E-03_JPRB,2.6622E-03_JPRB,3.0710E-03_JPRB,&
388
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.3862E-03_JPRB,3.4584E-03_JPRB,2.7852E-03_JPRB,2.0782E-03_JPRB/)
389 KAO( :, 3, 2, 2) = (/&
390 & 9.0589E-05_JPRB,1.3082E-03_JPRB,1.9947E-03_JPRB,2.5634E-03_JPRB,3.0860E-03_JPRB,3.5379E-03_JPRB,&
391
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.8975E-03_JPRB,3.9366E-03_JPRB,3.1668E-03_JPRB,2.2590E-03_JPRB/)
392 KAO( :, 4, 2, 2) = (/&
393 & 1.2385E-04_JPRB,1.5968E-03_JPRB,2.3941E-03_JPRB,3.0350E-03_JPRB,3.6067E-03_JPRB,4.1057E-03_JPRB,&
394
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.4942E-03_JPRB,4.5107E-03_JPRB,3.2782E-03_JPRB,2.4504E-03_JPRB/)
395 KAO( :, 5, 2, 2) = (/&
396 & 1.6667E-04_JPRB,1.9480E-03_JPRB,2.8786E-03_JPRB,3.6064E-03_JPRB,4.2370E-03_JPRB,4.7805E-03_JPRB,&
397
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.2024E-03_JPRB,5.1677E-03_JPRB,3.5425E-03_JPRB,2.6975E-03_JPRB/)
398 KAO( :, 1, 3, 2) = (/&
399 & 3.2922E-05_JPRB,6.8654E-04_JPRB,1.0970E-03_JPRB,1.4654E-03_JPRB,1.8051E-03_JPRB,2.0847E-03_JPRB,&
400
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.3088E-03_JPRB,2.3837E-03_JPRB,2.1265E-03_JPRB,1.4540E-03_JPRB/)
401 KAO( :, 2, 3, 2) = (/&
402 & 4.6583E-05_JPRB,8.3015E-04_JPRB,1.2948E-03_JPRB,1.6958E-03_JPRB,2.0663E-03_JPRB,2.3792E-03_JPRB,&
403
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.6229E-03_JPRB,2.6951E-03_JPRB,2.2518E-03_JPRB,1.5969E-03_JPRB/)
404 KAO( :, 3, 3, 2) = (/&
405 & 6.5410E-05_JPRB,1.0114E-03_JPRB,1.5518E-03_JPRB,1.9919E-03_JPRB,2.3944E-03_JPRB,2.7366E-03_JPRB,&
406
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.0098E-03_JPRB,3.0595E-03_JPRB,2.4530E-03_JPRB,1.7299E-03_JPRB/)
407 KAO( :, 4, 3, 2) = (/&
408 & 9.0734E-05_JPRB,1.2366E-03_JPRB,1.8688E-03_JPRB,2.3652E-03_JPRB,2.8005E-03_JPRB,3.1725E-03_JPRB,&
409
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.4706E-03_JPRB,3.5000E-03_JPRB,2.6641E-03_JPRB,1.8912E-03_JPRB/)
410 KAO( :, 5, 3, 2) = (/&
411 & 1.2407E-04_JPRB,1.5126E-03_JPRB,2.2510E-03_JPRB,2.8211E-03_JPRB,3.2989E-03_JPRB,3.7001E-03_JPRB,&
412
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.0161E-03_JPRB,4.0075E-03_JPRB,2.7798E-03_JPRB,2.0796E-03_JPRB/)
413 KAO( :, 1, 4, 2) = (/&
414 & 2.2778E-05_JPRB,5.2510E-04_JPRB,8.4888E-04_JPRB,1.1352E-03_JPRB,1.3979E-03_JPRB,1.6168E-03_JPRB,&
415
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.7964E-03_JPRB,1.8331E-03_JPRB,1.7837E-03_JPRB,1.1723E-03_JPRB/)
416 KAO( :, 2, 4, 2) = (/&
417 & 3.2363E-05_JPRB,6.3086E-04_JPRB,9.9709E-04_JPRB,1.3073E-03_JPRB,1.5943E-03_JPRB,1.8366E-03_JPRB,&
418
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.0244E-03_JPRB,2.0875E-03_JPRB,1.8124E-03_JPRB,1.2732E-03_JPRB/)
419 KAO( :, 3, 4, 2) = (/&
420 & 4.5962E-05_JPRB,7.6788E-04_JPRB,1.1912E-03_JPRB,1.5347E-03_JPRB,1.8433E-03_JPRB,2.1077E-03_JPRB,&
421
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.3135E-03_JPRB,2.3586E-03_JPRB,1.8966E-03_JPRB,1.3806E-03_JPRB/)
422 KAO( :, 4, 4, 2) = (/&
423 & 6.4739E-05_JPRB,9.3992E-04_JPRB,1.4352E-03_JPRB,1.8248E-03_JPRB,2.1580E-03_JPRB,2.4403E-03_JPRB,&
424
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.6639E-03_JPRB,2.6893E-03_JPRB,2.1413E-03_JPRB,1.4999E-03_JPRB/)
425 KAO( :, 5, 4, 2) = (/&
426 & 9.0009E-05_JPRB,1.1535E-03_JPRB,1.7330E-03_JPRB,2.1811E-03_JPRB,2.5487E-03_JPRB,2.8464E-03_JPRB,&
427
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.0813E-03_JPRB,3.0811E-03_JPRB,2.2013E-03_JPRB,1.6370E-03_JPRB/)
428 KAO( :, 1, 5, 2) = (/&
429 & 1.5792E-05_JPRB,4.0148E-04_JPRB,6.5831E-04_JPRB,8.8434E-04_JPRB,1.0869E-03_JPRB,1.2568E-03_JPRB,&
430
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.4030E-03_JPRB,1.4157E-03_JPRB,1.3790E-03_JPRB,9.9471E-04_JPRB/)
431 KAO( :, 2, 5, 2) = (/&
432 & 2.2397E-05_JPRB,4.7887E-04_JPRB,7.6705E-04_JPRB,1.0113E-03_JPRB,1.2329E-03_JPRB,1.4202E-03_JPRB,&
433
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.5687E-03_JPRB,1.6184E-03_JPRB,1.4582E-03_JPRB,1.0698E-03_JPRB/)
434 KAO( :, 3, 5, 2) = (/&
435 & 3.2096E-05_JPRB,5.8078E-04_JPRB,9.1183E-04_JPRB,1.1823E-03_JPRB,1.4221E-03_JPRB,1.6260E-03_JPRB,&
436
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.7823E-03_JPRB,1.8208E-03_JPRB,1.5493E-03_JPRB,1.1486E-03_JPRB/)
437 KAO( :, 4, 5, 2) = (/&
438 & 4.5840E-05_JPRB,7.1160E-04_JPRB,1.0969E-03_JPRB,1.4034E-03_JPRB,1.6628E-03_JPRB,1.8804E-03_JPRB,&
439
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.0470E-03_JPRB,2.0686E-03_JPRB,1.6540E-03_JPRB,1.2365E-03_JPRB/)
440 KAO( :, 5, 5, 2) = (/&
441 & 6.4822E-05_JPRB,8.7496E-04_JPRB,1.3269E-03_JPRB,1.6793E-03_JPRB,1.9658E-03_JPRB,2.1946E-03_JPRB,&
442
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.3671E-03_JPRB,2.3677E-03_JPRB,1.7812E-03_JPRB,1.3376E-03_JPRB/)
443 KAO( :, 1, 6, 2) = (/&
444 & 1.0902E-05_JPRB,3.0605E-04_JPRB,5.1028E-04_JPRB,6.8853E-04_JPRB,8.4488E-04_JPRB,9.7840E-04_JPRB,&
445
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.0974E-03_JPRB,1.1101E-03_JPRB,1.0645E-03_JPRB,8.6648E-04_JPRB/)
446 KAO( :, 2, 6, 2) = (/&
447 & 1.5301E-05_JPRB,3.6130E-04_JPRB,5.8719E-04_JPRB,7.8079E-04_JPRB,9.5252E-04_JPRB,1.0959E-03_JPRB,&
448
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.2152E-03_JPRB,1.2397E-03_JPRB,1.2046E-03_JPRB,9.1885E-04_JPRB/)
449 KAO( :, 3, 6, 2) = (/&
450 & 2.2016E-05_JPRB,4.3548E-04_JPRB,6.9267E-04_JPRB,9.0511E-04_JPRB,1.0924E-03_JPRB,1.2498E-03_JPRB,&
451
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.3720E-03_JPRB,1.4053E-03_JPRB,1.2319E-03_JPRB,9.7396E-04_JPRB/)
452 KAO( :, 4, 6, 2) = (/&
453 & 3.1830E-05_JPRB,5.3317E-04_JPRB,8.3063E-04_JPRB,1.0698E-03_JPRB,1.2734E-03_JPRB,1.4418E-03_JPRB,&
454
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.5687E-03_JPRB,1.5881E-03_JPRB,1.2775E-03_JPRB,1.0399E-03_JPRB/)
455 KAO( :, 5, 6, 2) = (/&
456 & 4.5738E-05_JPRB,6.5696E-04_JPRB,1.0039E-03_JPRB,1.2790E-03_JPRB,1.5021E-03_JPRB,1.6812E-03_JPRB,&
457
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.8119E-03_JPRB,1.8117E-03_JPRB,1.4274E-03_JPRB,1.1156E-03_JPRB/)
458 KAO( :, 1, 7, 2) = (/&
459 & 7.6369E-06_JPRB,2.3409E-04_JPRB,3.9662E-04_JPRB,5.3736E-04_JPRB,6.5954E-04_JPRB,7.6628E-04_JPRB,&
460
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.6324E-04_JPRB,8.8119E-04_JPRB,8.6194E-04_JPRB,7.9079E-04_JPRB/)
461 KAO( :, 2, 7, 2) = (/&
462 & 1.0494E-05_JPRB,2.7293E-04_JPRB,4.5033E-04_JPRB,6.0419E-04_JPRB,7.3771E-04_JPRB,8.4846E-04_JPRB,&
463
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 9.4512E-04_JPRB,9.5497E-04_JPRB,9.2999E-04_JPRB,8.2387E-04_JPRB/)
464 KAO( :, 3, 7, 2) = (/&
465 & 1.5059E-05_JPRB,3.2612E-04_JPRB,5.2570E-04_JPRB,6.9285E-04_JPRB,8.4056E-04_JPRB,9.6214E-04_JPRB,&
466
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.0579E-03_JPRB,1.0868E-03_JPRB,9.8600E-04_JPRB,8.6421E-04_JPRB/)
467 KAO( :, 4, 7, 2) = (/&
468 & 2.1973E-05_JPRB,3.9766E-04_JPRB,6.2716E-04_JPRB,8.1307E-04_JPRB,9.7314E-04_JPRB,1.1062E-03_JPRB,&
469
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.2052E-03_JPRB,1.2224E-03_JPRB,1.0473E-03_JPRB,9.1386E-04_JPRB/)
470 KAO( :, 5, 7, 2) = (/&
471 & 3.2024E-05_JPRB,4.9023E-04_JPRB,7.5693E-04_JPRB,9.6942E-04_JPRB,1.1441E-03_JPRB,1.2861E-03_JPRB,&
472
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.3873E-03_JPRB,1.3904E-03_JPRB,1.0995E-03_JPRB,9.7409E-04_JPRB/)
473 KAO( :, 1, 8, 2) = (/&
474 & 5.4819E-06_JPRB,1.8022E-04_JPRB,3.0951E-04_JPRB,4.2109E-04_JPRB,5.1765E-04_JPRB,6.0434E-04_JPRB,&
475
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.7966E-04_JPRB,7.0414E-04_JPRB,7.0729E-04_JPRB,7.6543E-04_JPRB/)
476 KAO( :, 2, 8, 2) = (/&
477 & 7.2946E-06_JPRB,2.0689E-04_JPRB,3.4673E-04_JPRB,4.6841E-04_JPRB,5.7263E-04_JPRB,6.6046E-04_JPRB,&
478
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.3949E-04_JPRB,7.4887E-04_JPRB,7.2137E-04_JPRB,7.8512E-04_JPRB/)
479 KAO( :, 3, 8, 2) = (/&
480 & 1.0351E-05_JPRB,2.4457E-04_JPRB,3.9988E-04_JPRB,5.3188E-04_JPRB,6.4791E-04_JPRB,7.4247E-04_JPRB,&
481
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.1941E-04_JPRB,8.3495E-04_JPRB,8.1545E-04_JPRB,8.2107E-04_JPRB/)
482 KAO( :, 4, 8, 2) = (/&
483 & 1.5156E-05_JPRB,2.9629E-04_JPRB,4.7365E-04_JPRB,6.1873E-04_JPRB,7.4454E-04_JPRB,8.4958E-04_JPRB,&
484
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 9.2854E-04_JPRB,9.4393E-04_JPRB,8.3940E-04_JPRB,8.7281E-04_JPRB/)
485 KAO( :, 5, 8, 2) = (/&
486 & 2.2361E-05_JPRB,3.6482E-04_JPRB,5.6983E-04_JPRB,7.3407E-04_JPRB,8.7045E-04_JPRB,9.8366E-04_JPRB,&
487
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.0651E-03_JPRB,1.0698E-03_JPRB,8.6698E-04_JPRB,9.3613E-04_JPRB/)
488 KAO( :, 1, 9, 2) = (/&
489 & 4.0452E-06_JPRB,1.4017E-04_JPRB,2.4329E-04_JPRB,3.3218E-04_JPRB,4.0925E-04_JPRB,4.8103E-04_JPRB,&
490
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.3918E-04_JPRB,5.6100E-04_JPRB,5.6501E-04_JPRB,8.0970E-04_JPRB/)
491 KAO( :, 2, 9, 2) = (/&
492 & 5.1567E-06_JPRB,1.5795E-04_JPRB,2.6863E-04_JPRB,3.6500E-04_JPRB,4.4688E-04_JPRB,5.1756E-04_JPRB,&
493
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.8306E-04_JPRB,5.9423E-04_JPRB,5.8894E-04_JPRB,8.6646E-04_JPRB/)
494 KAO( :, 3, 9, 2) = (/&
495 & 7.1657E-06_JPRB,1.8427E-04_JPRB,3.0563E-04_JPRB,4.1026E-04_JPRB,5.0076E-04_JPRB,5.7510E-04_JPRB,&
496
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.3796E-04_JPRB,6.4416E-04_JPRB,6.2814E-04_JPRB,9.4589E-04_JPRB/)
497 KAO( :, 4, 9, 2) = (/&
498 & 1.0454E-05_JPRB,2.2117E-04_JPRB,3.5855E-04_JPRB,4.7222E-04_JPRB,5.7137E-04_JPRB,6.5350E-04_JPRB,&
499
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.1676E-04_JPRB,7.3182E-04_JPRB,6.7180E-04_JPRB,1.0445E-03_JPRB/)
500 KAO( :, 5, 9, 2) = (/&
501 & 1.5554E-05_JPRB,2.7129E-04_JPRB,4.2902E-04_JPRB,5.5622E-04_JPRB,6.6296E-04_JPRB,7.5220E-04_JPRB,&
502
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.1926E-04_JPRB,8.2534E-04_JPRB,7.1317E-04_JPRB,1.1567E-03_JPRB/)
503 KAO( :, 1,10, 2) = (/&
504 & 3.1057E-06_JPRB,1.1083E-04_JPRB,1.9379E-04_JPRB,2.6511E-04_JPRB,3.2793E-04_JPRB,3.8622E-04_JPRB,&
505
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.3071E-04_JPRB,4.4441E-04_JPRB,4.5952E-04_JPRB,8.8174E-04_JPRB/)
506 KAO( :, 2,10, 2) = (/&
507 & 3.7991E-06_JPRB,1.2283E-04_JPRB,2.1113E-04_JPRB,2.8821E-04_JPRB,3.5348E-04_JPRB,4.1112E-04_JPRB,&
508
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.6174E-04_JPRB,4.7717E-04_JPRB,4.8657E-04_JPRB,9.8685E-04_JPRB/)
509 KAO( :, 3,10, 2) = (/&
510 & 5.1499E-06_JPRB,1.4143E-04_JPRB,2.3734E-04_JPRB,3.2100E-04_JPRB,3.9236E-04_JPRB,4.5145E-04_JPRB,&
511
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.0315E-04_JPRB,5.0792E-04_JPRB,4.9406E-04_JPRB,1.1242E-03_JPRB/)
512 KAO( :, 4,10, 2) = (/&
513 & 7.4528E-06_JPRB,1.6827E-04_JPRB,2.7574E-04_JPRB,3.6613E-04_JPRB,4.4442E-04_JPRB,5.0912E-04_JPRB,&
514
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.6026E-04_JPRB,5.7140E-04_JPRB,5.5681E-04_JPRB,1.2935E-03_JPRB/)
515 KAO( :, 5,10, 2) = (/&
516 & 1.1134E-05_JPRB,2.0532E-04_JPRB,3.2832E-04_JPRB,4.2825E-04_JPRB,5.1275E-04_JPRB,5.8331E-04_JPRB,&
517
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.3709E-04_JPRB,6.4447E-04_JPRB,5.7554E-04_JPRB,1.4892E-03_JPRB/)
518 KAO( :, 1,11, 2) = (/&
519 & 2.5793E-06_JPRB,9.1386E-05_JPRB,1.5991E-04_JPRB,2.1914E-04_JPRB,2.7076E-04_JPRB,3.1821E-04_JPRB,&
520
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.5500E-04_JPRB,3.6871E-04_JPRB,3.7899E-04_JPRB,8.3339E-04_JPRB/)
521 KAO( :, 2,11, 2) = (/&
522 & 3.1932E-06_JPRB,1.0152E-04_JPRB,1.7439E-04_JPRB,2.3840E-04_JPRB,2.9253E-04_JPRB,3.3975E-04_JPRB,&
523
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.8122E-04_JPRB,3.9384E-04_JPRB,4.0567E-04_JPRB,9.5074E-04_JPRB/)
524 KAO( :, 3,11, 2) = (/&
525 & 4.3709E-06_JPRB,1.1728E-04_JPRB,1.9656E-04_JPRB,2.6595E-04_JPRB,3.2495E-04_JPRB,3.7366E-04_JPRB,&
526
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.1570E-04_JPRB,4.1965E-04_JPRB,4.1122E-04_JPRB,1.0992E-03_JPRB/)
527 KAO( :, 4,11, 2) = (/&
528 & 6.3954E-06_JPRB,1.4000E-04_JPRB,2.2922E-04_JPRB,3.0419E-04_JPRB,3.6879E-04_JPRB,4.2168E-04_JPRB,&
529
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.6345E-04_JPRB,4.7319E-04_JPRB,4.5954E-04_JPRB,1.2804E-03_JPRB/)
530 KAO( :, 5,11, 2) = (/&
531 & 9.6174E-06_JPRB,1.7120E-04_JPRB,2.7357E-04_JPRB,3.5711E-04_JPRB,4.2654E-04_JPRB,4.8415E-04_JPRB,&
532
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.2775E-04_JPRB,5.3321E-04_JPRB,4.7537E-04_JPRB,1.4946E-03_JPRB/)
533 KAO( :, 1,12, 2) = (/&
534 & 2.1449E-06_JPRB,7.5185E-05_JPRB,1.3159E-04_JPRB,1.8068E-04_JPRB,2.2335E-04_JPRB,2.6198E-04_JPRB,&
535
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.9235E-04_JPRB,3.0350E-04_JPRB,3.1256E-04_JPRB,7.2986E-04_JPRB/)
536 KAO( :, 2,12, 2) = (/&
537 & 2.6849E-06_JPRB,8.3739E-05_JPRB,1.4370E-04_JPRB,1.9666E-04_JPRB,2.4153E-04_JPRB,2.8046E-04_JPRB,&
538
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.1445E-04_JPRB,3.2440E-04_JPRB,3.3814E-04_JPRB,8.3896E-04_JPRB/)
539 KAO( :, 3,12, 2) = (/&
540 & 3.7120E-06_JPRB,9.7072E-05_JPRB,1.6242E-04_JPRB,2.1974E-04_JPRB,2.6866E-04_JPRB,3.0880E-04_JPRB,&
541
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.4296E-04_JPRB,3.4655E-04_JPRB,3.4183E-04_JPRB,9.7914E-04_JPRB/)
542 KAO( :, 4,12, 2) = (/&
543 & 5.4750E-06_JPRB,1.1621E-04_JPRB,1.9012E-04_JPRB,2.5210E-04_JPRB,3.0547E-04_JPRB,3.4901E-04_JPRB,&
544
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.8299E-04_JPRB,3.9098E-04_JPRB,3.8045E-04_JPRB,1.1499E-03_JPRB/)
545 KAO( :, 5,12, 2) = (/&
546 & 8.2703E-06_JPRB,1.4241E-04_JPRB,2.2731E-04_JPRB,2.9701E-04_JPRB,3.5442E-04_JPRB,4.0147E-04_JPRB,&
547
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.3679E-04_JPRB,4.4039E-04_JPRB,3.9154E-04_JPRB,1.3496E-03_JPRB/)
548 KAO( :, 1,13, 2) = (/&
549 & 1.7830E-06_JPRB,6.1545E-05_JPRB,1.0776E-04_JPRB,1.4816E-04_JPRB,1.8346E-04_JPRB,2.1518E-04_JPRB,&
550
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.4003E-04_JPRB,2.4920E-04_JPRB,2.5855E-04_JPRB,6.0483E-04_JPRB/)
551 KAO( :, 2,13, 2) = (/&
552 & 2.2523E-06_JPRB,6.8708E-05_JPRB,1.1787E-04_JPRB,1.6139E-04_JPRB,1.9846E-04_JPRB,2.3065E-04_JPRB,&
553
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.5831E-04_JPRB,2.6663E-04_JPRB,2.8115E-04_JPRB,6.9533E-04_JPRB/)
554 KAO( :, 3,13, 2) = (/&
555 & 3.1394E-06_JPRB,7.9894E-05_JPRB,1.3357E-04_JPRB,1.8071E-04_JPRB,2.2106E-04_JPRB,2.5423E-04_JPRB,&
556
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.8211E-04_JPRB,2.8541E-04_JPRB,2.8437E-04_JPRB,8.1181E-04_JPRB/)
557 KAO( :, 4,13, 2) = (/&
558 & 4.6431E-06_JPRB,9.5872E-05_JPRB,1.5677E-04_JPRB,2.0791E-04_JPRB,2.5190E-04_JPRB,2.8785E-04_JPRB,&
559
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.1567E-04_JPRB,3.2214E-04_JPRB,3.1077E-04_JPRB,9.5374E-04_JPRB/)
560 KAO( :, 5,13, 2) = (/&
561 & 7.0293E-06_JPRB,1.1782E-04_JPRB,1.8782E-04_JPRB,2.4556E-04_JPRB,2.9310E-04_JPRB,3.3172E-04_JPRB,&
562
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.6069E-04_JPRB,3.6276E-04_JPRB,3.2321E-04_JPRB,1.1190E-03_JPRB/)
563 KAO( :, 1, 1, 3) = (/&
564 & 3.1395E-04_JPRB,2.3358E-03_JPRB,3.6695E-03_JPRB,4.7583E-03_JPRB,5.6300E-03_JPRB,6.3084E-03_JPRB,&
565
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.4459E-03_JPRB,5.6476E-03_JPRB,4.3114E-03_JPRB,3.5359E-03_JPRB/)
566 KAO( :, 2, 1, 3) = (/&
567 & 4.4041E-04_JPRB,2.8550E-03_JPRB,4.4288E-03_JPRB,5.7337E-03_JPRB,6.7703E-03_JPRB,7.4874E-03_JPRB,&
568
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.5852E-03_JPRB,6.6048E-03_JPRB,4.4609E-03_JPRB,3.7307E-03_JPRB/)
569 KAO( :, 3, 1, 3) = (/&
570 & 6.0889E-04_JPRB,3.4990E-03_JPRB,5.3318E-03_JPRB,6.8783E-03_JPRB,8.0899E-03_JPRB,8.8562E-03_JPRB,&
571
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.8659E-03_JPRB,7.6998E-03_JPRB,5.0834E-03_JPRB,4.1606E-03_JPRB/)
572 KAO( :, 4, 1, 3) = (/&
573 & 8.2945E-04_JPRB,4.2967E-03_JPRB,6.4106E-03_JPRB,8.2013E-03_JPRB,9.6038E-03_JPRB,1.0382E-02_JPRB,&
574
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.0298E-02_JPRB,8.9419E-03_JPRB,6.1506E-03_JPRB,4.8030E-03_JPRB/)
575 KAO( :, 5, 1, 3) = (/&
576 & 1.1111E-03_JPRB,5.2640E-03_JPRB,7.6785E-03_JPRB,9.7243E-03_JPRB,1.1313E-02_JPRB,1.2073E-02_JPRB,&
577
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.1918E-02_JPRB,1.0340E-02_JPRB,7.2231E-03_JPRB,5.5559E-03_JPRB/)
578 KAO( :, 1, 2, 3) = (/&
579 & 2.5786E-04_JPRB,1.8689E-03_JPRB,2.9171E-03_JPRB,3.7655E-03_JPRB,4.4557E-03_JPRB,4.9851E-03_JPRB,&
580
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.0877E-03_JPRB,4.4987E-03_JPRB,3.5624E-03_JPRB,2.7823E-03_JPRB/)
581 KAO( :, 2, 2, 3) = (/&
582 & 3.6518E-04_JPRB,2.2982E-03_JPRB,3.5229E-03_JPRB,4.5348E-03_JPRB,5.3627E-03_JPRB,5.9413E-03_JPRB,&
583
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.0131E-03_JPRB,5.2796E-03_JPRB,3.6528E-03_JPRB,2.9862E-03_JPRB/)
584 KAO( :, 3, 2, 3) = (/&
585 & 5.0963E-04_JPRB,2.8326E-03_JPRB,4.2490E-03_JPRB,5.4478E-03_JPRB,6.4291E-03_JPRB,7.0522E-03_JPRB,&
586
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.0637E-03_JPRB,6.1794E-03_JPRB,4.0832E-03_JPRB,3.3326E-03_JPRB/)
587 KAO( :, 4, 2, 3) = (/&
588 & 7.0041E-04_JPRB,3.4946E-03_JPRB,5.1315E-03_JPRB,6.5181E-03_JPRB,7.6574E-03_JPRB,8.3039E-03_JPRB,&
589
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.2501E-03_JPRB,7.2013E-03_JPRB,4.9579E-03_JPRB,3.8182E-03_JPRB/)
590 KAO( :, 5, 2, 3) = (/&
591 & 9.4509E-04_JPRB,4.3042E-03_JPRB,6.1780E-03_JPRB,7.7645E-03_JPRB,9.0552E-03_JPRB,9.6970E-03_JPRB,&
592
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 9.5937E-03_JPRB,8.3644E-03_JPRB,5.8475E-03_JPRB,4.3744E-03_JPRB/)
593 KAO( :, 1, 3, 3) = (/&
594 & 1.9379E-04_JPRB,1.4316E-03_JPRB,2.2324E-03_JPRB,2.8735E-03_JPRB,3.3970E-03_JPRB,3.8041E-03_JPRB,&
595
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.8802E-03_JPRB,3.4669E-03_JPRB,2.9119E-03_JPRB,2.1744E-03_JPRB/)
596 KAO( :, 2, 3, 3) = (/&
597 & 2.7770E-04_JPRB,1.7674E-03_JPRB,2.7001E-03_JPRB,3.4577E-03_JPRB,4.0882E-03_JPRB,4.5451E-03_JPRB,&
598
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.6130E-03_JPRB,4.0692E-03_JPRB,2.9379E-03_JPRB,2.3588E-03_JPRB/)
599 KAO( :, 3, 3, 3) = (/&
600 & 3.9251E-04_JPRB,2.1938E-03_JPRB,3.2645E-03_JPRB,4.1604E-03_JPRB,4.9099E-03_JPRB,5.4125E-03_JPRB,&
601
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.4492E-03_JPRB,4.7846E-03_JPRB,3.2003E-03_JPRB,2.6346E-03_JPRB/)
602 KAO( :, 4, 3, 3) = (/&
603 & 5.4605E-04_JPRB,2.7278E-03_JPRB,3.9609E-03_JPRB,4.9977E-03_JPRB,5.8740E-03_JPRB,6.4067E-03_JPRB,&
604
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.4003E-03_JPRB,5.6054E-03_JPRB,3.7732E-03_JPRB,2.9860E-03_JPRB/)
605 KAO( :, 5, 3, 3) = (/&
606 & 7.4466E-04_JPRB,3.3848E-03_JPRB,4.8045E-03_JPRB,5.9823E-03_JPRB,6.9787E-03_JPRB,7.5209E-03_JPRB,&
607
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.4708E-03_JPRB,6.5433E-03_JPRB,4.5620E-03_JPRB,3.3966E-03_JPRB/)
608 KAO( :, 1, 4, 3) = (/&
609 & 1.4015E-04_JPRB,1.0813E-03_JPRB,1.6854E-03_JPRB,2.1729E-03_JPRB,2.5709E-03_JPRB,2.8772E-03_JPRB,&
610
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.9317E-03_JPRB,2.6451E-03_JPRB,2.2657E-03_JPRB,1.7383E-03_JPRB/)
611 KAO( :, 2, 4, 3) = (/&
612 & 2.0311E-04_JPRB,1.3407E-03_JPRB,2.0417E-03_JPRB,2.6162E-03_JPRB,3.0900E-03_JPRB,3.4371E-03_JPRB,&
613
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.4970E-03_JPRB,3.1030E-03_JPRB,2.4331E-03_JPRB,1.8807E-03_JPRB/)
614 KAO( :, 3, 4, 3) = (/&
615 & 2.9086E-04_JPRB,1.6740E-03_JPRB,2.4810E-03_JPRB,3.1478E-03_JPRB,3.7091E-03_JPRB,4.1012E-03_JPRB,&
616
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.1503E-03_JPRB,3.6669E-03_JPRB,2.5193E-03_JPRB,2.0853E-03_JPRB/)
617 KAO( :, 4, 4, 3) = (/&
618 & 4.1019E-04_JPRB,2.0975E-03_JPRB,3.0276E-03_JPRB,3.7932E-03_JPRB,4.4503E-03_JPRB,4.8736E-03_JPRB,&
619
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.8948E-03_JPRB,4.3129E-03_JPRB,2.8422E-03_JPRB,2.3481E-03_JPRB/)
620 KAO( :, 5, 4, 3) = (/&
621 & 5.6658E-04_JPRB,2.6213E-03_JPRB,3.6972E-03_JPRB,4.5663E-03_JPRB,5.3124E-03_JPRB,5.7564E-03_JPRB,&
622
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.7449E-03_JPRB,5.0602E-03_JPRB,3.4831E-03_JPRB,2.6607E-03_JPRB/)
623 KAO( :, 1, 5, 3) = (/&
624 & 1.0005E-04_JPRB,8.1751E-04_JPRB,1.2728E-03_JPRB,1.6409E-03_JPRB,1.9492E-03_JPRB,2.1828E-03_JPRB,&
625
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.2210E-03_JPRB,2.0236E-03_JPRB,1.7728E-03_JPRB,1.4477E-03_JPRB/)
626 KAO( :, 2, 5, 3) = (/&
627 & 1.4628E-04_JPRB,1.0154E-03_JPRB,1.5439E-03_JPRB,1.9778E-03_JPRB,2.3404E-03_JPRB,2.6065E-03_JPRB,&
628
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.6499E-03_JPRB,2.3648E-03_JPRB,1.9853E-03_JPRB,1.5598E-03_JPRB/)
629 KAO( :, 3, 5, 3) = (/&
630 & 2.1213E-04_JPRB,1.2737E-03_JPRB,1.8830E-03_JPRB,2.3878E-03_JPRB,2.8089E-03_JPRB,3.1116E-03_JPRB,&
631
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.1584E-03_JPRB,2.8055E-03_JPRB,1.9979E-03_JPRB,1.7165E-03_JPRB/)
632 KAO( :, 4, 5, 3) = (/&
633 & 3.0316E-04_JPRB,1.6037E-03_JPRB,2.3102E-03_JPRB,2.8890E-03_JPRB,3.3732E-03_JPRB,3.7052E-03_JPRB,&
634
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.7386E-03_JPRB,3.3128E-03_JPRB,2.1889E-03_JPRB,1.9135E-03_JPRB/)
635 KAO( :, 5, 5, 3) = (/&
636 & 4.2437E-04_JPRB,2.0170E-03_JPRB,2.8415E-03_JPRB,3.4970E-03_JPRB,4.0448E-03_JPRB,4.3946E-03_JPRB,&
637
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.4054E-03_JPRB,3.8956E-03_JPRB,2.6089E-03_JPRB,2.1456E-03_JPRB/)
638 KAO( :, 1, 6, 3) = (/&
639 & 6.9848E-05_JPRB,6.1344E-04_JPRB,9.5427E-04_JPRB,1.2333E-03_JPRB,1.4696E-03_JPRB,1.6459E-03_JPRB,&
640
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.6778E-03_JPRB,1.5491E-03_JPRB,1.4340E-03_JPRB,1.2155E-03_JPRB/)
641 KAO( :, 2, 6, 3) = (/&
642 & 1.0287E-04_JPRB,7.6231E-04_JPRB,1.1596E-03_JPRB,1.4875E-03_JPRB,1.7602E-03_JPRB,1.9644E-03_JPRB,&
643
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.9987E-03_JPRB,1.8015E-03_JPRB,1.5475E-03_JPRB,1.3106E-03_JPRB/)
644 KAO( :, 3, 6, 3) = (/&
645 & 1.5064E-04_JPRB,9.5897E-04_JPRB,1.4184E-03_JPRB,1.7997E-03_JPRB,2.1174E-03_JPRB,2.3481E-03_JPRB,&
646
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.3855E-03_JPRB,2.1239E-03_JPRB,1.6664E-03_JPRB,1.4397E-03_JPRB/)
647 KAO( :, 4, 6, 3) = (/&
648 & 2.1812E-04_JPRB,1.2102E-03_JPRB,1.7485E-03_JPRB,2.1875E-03_JPRB,2.5486E-03_JPRB,2.8028E-03_JPRB,&
649
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.8356E-03_JPRB,2.5206E-03_JPRB,1.7195E-03_JPRB,1.5934E-03_JPRB/)
650 KAO( :, 5, 6, 3) = (/&
651 & 3.0969E-04_JPRB,1.5273E-03_JPRB,2.1634E-03_JPRB,2.6620E-03_JPRB,3.0695E-03_JPRB,3.3380E-03_JPRB,&
652
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.3515E-03_JPRB,2.9746E-03_JPRB,1.9515E-03_JPRB,1.7778E-03_JPRB/)
653 KAO( :, 1, 7, 3) = (/&
654 & 4.8221E-05_JPRB,4.6010E-04_JPRB,7.1481E-04_JPRB,9.2859E-04_JPRB,1.1100E-03_JPRB,1.2408E-03_JPRB,&
655
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.2683E-03_JPRB,1.1941E-03_JPRB,1.1654E-03_JPRB,1.0618E-03_JPRB/)
656 KAO( :, 2, 7, 3) = (/&
657 & 7.1316E-05_JPRB,5.6993E-04_JPRB,8.6994E-04_JPRB,1.1165E-03_JPRB,1.3220E-03_JPRB,1.4781E-03_JPRB,&
658
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.5050E-03_JPRB,1.3757E-03_JPRB,1.2140E-03_JPRB,1.1427E-03_JPRB/)
659 KAO( :, 3, 7, 3) = (/&
660 & 1.0540E-04_JPRB,7.1740E-04_JPRB,1.0671E-03_JPRB,1.3546E-03_JPRB,1.5921E-03_JPRB,1.7675E-03_JPRB,&
661
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.7993E-03_JPRB,1.6085E-03_JPRB,1.3409E-03_JPRB,1.2460E-03_JPRB/)
662 KAO( :, 4, 7, 3) = (/&
663 & 1.5421E-04_JPRB,9.0675E-04_JPRB,1.3194E-03_JPRB,1.6531E-03_JPRB,1.9239E-03_JPRB,2.1163E-03_JPRB,&
664
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.1446E-03_JPRB,1.9118E-03_JPRB,1.3549E-03_JPRB,1.3702E-03_JPRB/)
665 KAO( :, 5, 7, 3) = (/&
666 & 2.2207E-04_JPRB,1.1485E-03_JPRB,1.6379E-03_JPRB,2.0236E-03_JPRB,2.3292E-03_JPRB,2.5319E-03_JPRB,&
667
2/2
✓ Branch 0 taken 10 times.
✓ Branch 1 taken 1 times.
11 & 2.5452E-03_JPRB,2.2618E-03_JPRB,1.4884E-03_JPRB,1.5202E-03_JPRB/)
668
669
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART2',1,ZHOOK_HANDLE)
670 1 END SUBROUTINE PART2
671
672
673 1 SUBROUTINE PART3
674
675 REAL(KIND=JPRB) :: ZHOOK_HANDLE
676
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART3',0,ZHOOK_HANDLE)
677
678
679 KAO( :, 1, 8, 3) = (/&
680 & 3.3024E-05_JPRB,3.4530E-04_JPRB,5.3688E-04_JPRB,7.0115E-04_JPRB,8.4229E-04_JPRB,9.3889E-04_JPRB,&
681
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 9.6725E-04_JPRB,9.1694E-04_JPRB,9.1670E-04_JPRB,1.0135E-03_JPRB/)
682 KAO( :, 2, 8, 3) = (/&
683 & 4.8867E-05_JPRB,4.2560E-04_JPRB,6.5145E-04_JPRB,8.3778E-04_JPRB,9.9544E-04_JPRB,1.1134E-03_JPRB,&
684
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.1345E-03_JPRB,1.0538E-03_JPRB,9.7113E-04_JPRB,1.0857E-03_JPRB/)
685 KAO( :, 3, 8, 3) = (/&
686 & 7.2825E-05_JPRB,5.3471E-04_JPRB,8.0022E-04_JPRB,1.0181E-03_JPRB,1.1967E-03_JPRB,1.3302E-03_JPRB,&
687
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.3547E-03_JPRB,1.2266E-03_JPRB,1.0446E-03_JPRB,1.1774E-03_JPRB/)
688 KAO( :, 4, 8, 3) = (/&
689 & 1.0774E-04_JPRB,6.7652E-04_JPRB,9.9081E-04_JPRB,1.2458E-03_JPRB,1.4508E-03_JPRB,1.5976E-03_JPRB,&
690
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.6199E-03_JPRB,1.4510E-03_JPRB,1.1389E-03_JPRB,1.2913E-03_JPRB/)
691 KAO( :, 5, 8, 3) = (/&
692 & 1.5712E-04_JPRB,8.5893E-04_JPRB,1.2330E-03_JPRB,1.5318E-03_JPRB,1.7648E-03_JPRB,1.9188E-03_JPRB,&
693
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.9298E-03_JPRB,1.7197E-03_JPRB,1.1585E-03_JPRB,1.4301E-03_JPRB/)
694 KAO( :, 1, 9, 3) = (/&
695 & 2.2694E-05_JPRB,2.5964E-04_JPRB,4.0587E-04_JPRB,5.3244E-04_JPRB,6.4307E-04_JPRB,7.1486E-04_JPRB,&
696
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.4240E-04_JPRB,7.1164E-04_JPRB,7.2273E-04_JPRB,1.2493E-03_JPRB/)
697 KAO( :, 2, 9, 3) = (/&
698 & 3.3403E-05_JPRB,3.1851E-04_JPRB,4.8826E-04_JPRB,6.2982E-04_JPRB,7.5282E-04_JPRB,8.4067E-04_JPRB,&
699
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.5777E-04_JPRB,8.1055E-04_JPRB,7.8048E-04_JPRB,1.3812E-03_JPRB/)
700 KAO( :, 3, 9, 3) = (/&
701 & 5.0028E-05_JPRB,3.9826E-04_JPRB,5.9931E-04_JPRB,7.6424E-04_JPRB,9.0031E-04_JPRB,1.0018E-03_JPRB,&
702
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.0201E-03_JPRB,9.3771E-04_JPRB,8.2897E-04_JPRB,1.5248E-03_JPRB/)
703 KAO( :, 4, 9, 3) = (/&
704 & 7.4767E-05_JPRB,5.0392E-04_JPRB,7.4141E-04_JPRB,9.3676E-04_JPRB,1.0930E-03_JPRB,1.2050E-03_JPRB,&
705
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.2228E-03_JPRB,1.0983E-03_JPRB,9.0134E-04_JPRB,1.6871E-03_JPRB/)
706 KAO( :, 5, 9, 3) = (/&
707 & 1.1035E-04_JPRB,6.4097E-04_JPRB,9.2434E-04_JPRB,1.1532E-03_JPRB,1.3334E-03_JPRB,1.4526E-03_JPRB,&
708
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.4614E-03_JPRB,1.3054E-03_JPRB,9.1810E-04_JPRB,1.8727E-03_JPRB/)
709 KAO( :, 1,10, 3) = (/&
710 & 1.6131E-05_JPRB,1.9889E-04_JPRB,3.1275E-04_JPRB,4.1228E-04_JPRB,4.9839E-04_JPRB,5.5623E-04_JPRB,&
711
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.8253E-04_JPRB,5.6343E-04_JPRB,5.6050E-04_JPRB,1.5889E-03_JPRB/)
712 KAO( :, 2,10, 3) = (/&
713 & 2.3548E-05_JPRB,2.4279E-04_JPRB,3.7289E-04_JPRB,4.8222E-04_JPRB,5.7912E-04_JPRB,6.4486E-04_JPRB,&
714
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.6265E-04_JPRB,6.3391E-04_JPRB,6.2287E-04_JPRB,1.8970E-03_JPRB/)
715 KAO( :, 3,10, 3) = (/&
716 & 3.5345E-05_JPRB,3.0213E-04_JPRB,4.5662E-04_JPRB,5.8302E-04_JPRB,6.8872E-04_JPRB,7.6652E-04_JPRB,&
717
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.8037E-04_JPRB,7.2531E-04_JPRB,6.6020E-04_JPRB,2.2611E-03_JPRB/)
718 KAO( :, 4,10, 3) = (/&
719 & 5.3207E-05_JPRB,3.8181E-04_JPRB,5.6403E-04_JPRB,7.1428E-04_JPRB,8.3596E-04_JPRB,9.2165E-04_JPRB,&
720
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 9.3562E-04_JPRB,8.4502E-04_JPRB,7.1249E-04_JPRB,2.6676E-03_JPRB/)
721 KAO( :, 5,10, 3) = (/&
722 & 7.9349E-05_JPRB,4.8668E-04_JPRB,7.0365E-04_JPRB,8.7954E-04_JPRB,1.0204E-03_JPRB,1.1145E-03_JPRB,&
723
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.1232E-03_JPRB,1.0045E-03_JPRB,7.7476E-04_JPRB,3.1110E-03_JPRB/)
724 KAO( :, 1,11, 3) = (/&
725 & 1.3601E-05_JPRB,1.6644E-04_JPRB,2.6059E-04_JPRB,3.4190E-04_JPRB,4.1323E-04_JPRB,4.6098E-04_JPRB,&
726
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.8236E-04_JPRB,4.6602E-04_JPRB,4.6408E-04_JPRB,1.7060E-03_JPRB/)
727 KAO( :, 2,11, 3) = (/&
728 & 2.0015E-05_JPRB,2.0390E-04_JPRB,3.1274E-04_JPRB,4.0248E-04_JPRB,4.8157E-04_JPRB,5.3553E-04_JPRB,&
729
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.5000E-04_JPRB,5.2592E-04_JPRB,5.1327E-04_JPRB,2.0930E-03_JPRB/)
730 KAO( :, 3,11, 3) = (/&
731 & 3.0229E-05_JPRB,2.5493E-04_JPRB,3.8325E-04_JPRB,4.8838E-04_JPRB,5.7590E-04_JPRB,6.3868E-04_JPRB,&
732
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.4952E-04_JPRB,6.0329E-04_JPRB,5.4354E-04_JPRB,2.5341E-03_JPRB/)
733 KAO( :, 4,11, 3) = (/&
734 & 4.5728E-05_JPRB,3.2357E-04_JPRB,4.7513E-04_JPRB,5.9900E-04_JPRB,7.0032E-04_JPRB,7.7052E-04_JPRB,&
735
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.8160E-04_JPRB,7.0364E-04_JPRB,5.8867E-04_JPRB,3.0110E-03_JPRB/)
736 KAO( :, 5,11, 3) = (/&
737 & 6.8471E-05_JPRB,4.1453E-04_JPRB,5.9518E-04_JPRB,7.3943E-04_JPRB,8.5586E-04_JPRB,9.3243E-04_JPRB,&
738
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 9.3985E-04_JPRB,8.3888E-04_JPRB,6.4004E-04_JPRB,3.5144E-03_JPRB/)
739 KAO( :, 1,12, 3) = (/&
740 & 1.1390E-05_JPRB,1.3855E-04_JPRB,2.1705E-04_JPRB,2.8356E-04_JPRB,3.4198E-04_JPRB,3.8125E-04_JPRB,&
741
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.9897E-04_JPRB,3.8701E-04_JPRB,3.8428E-04_JPRB,1.6202E-03_JPRB/)
742 KAO( :, 2,12, 3) = (/&
743 & 1.6895E-05_JPRB,1.7033E-04_JPRB,2.6132E-04_JPRB,3.3574E-04_JPRB,4.0033E-04_JPRB,4.4440E-04_JPRB,&
744
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.5547E-04_JPRB,4.3453E-04_JPRB,4.1795E-04_JPRB,2.0056E-03_JPRB/)
745 KAO( :, 3,12, 3) = (/&
746 & 2.5697E-05_JPRB,2.1399E-04_JPRB,3.2079E-04_JPRB,4.0794E-04_JPRB,4.8080E-04_JPRB,5.3172E-04_JPRB,&
747
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.4015E-04_JPRB,5.0131E-04_JPRB,4.5062E-04_JPRB,2.4356E-03_JPRB/)
748 KAO( :, 4,12, 3) = (/&
749 & 3.9098E-05_JPRB,2.7301E-04_JPRB,3.9923E-04_JPRB,5.0137E-04_JPRB,5.8487E-04_JPRB,6.4185E-04_JPRB,&
750
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.5190E-04_JPRB,5.8598E-04_JPRB,4.9100E-04_JPRB,2.8992E-03_JPRB/)
751 KAO( :, 5,12, 3) = (/&
752 & 5.8880E-05_JPRB,3.5135E-04_JPRB,5.0233E-04_JPRB,6.2054E-04_JPRB,7.1596E-04_JPRB,7.7742E-04_JPRB,&
753
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.8406E-04_JPRB,7.0089E-04_JPRB,5.2975E-04_JPRB,3.3853E-03_JPRB/)
754 KAO( :, 1,13, 3) = (/&
755 & 9.3589E-06_JPRB,1.1404E-04_JPRB,1.7929E-04_JPRB,2.3424E-04_JPRB,2.8177E-04_JPRB,3.1382E-04_JPRB,&
756
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.2887E-04_JPRB,3.1939E-04_JPRB,3.1782E-04_JPRB,1.3712E-03_JPRB/)
757 KAO( :, 2,13, 3) = (/&
758 & 1.3997E-05_JPRB,1.4070E-04_JPRB,2.1638E-04_JPRB,2.7822E-04_JPRB,3.3131E-04_JPRB,3.6740E-04_JPRB,&
759
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.7618E-04_JPRB,3.5875E-04_JPRB,3.4257E-04_JPRB,1.6948E-03_JPRB/)
760 KAO( :, 3,13, 3) = (/&
761 & 2.1467E-05_JPRB,1.7760E-04_JPRB,2.6657E-04_JPRB,3.3860E-04_JPRB,3.9863E-04_JPRB,4.4020E-04_JPRB,&
762
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.4774E-04_JPRB,4.1503E-04_JPRB,3.7387E-04_JPRB,2.0555E-03_JPRB/)
763 KAO( :, 4,13, 3) = (/&
764 & 3.2939E-05_JPRB,2.2791E-04_JPRB,3.3320E-04_JPRB,4.1728E-04_JPRB,4.8576E-04_JPRB,5.3169E-04_JPRB,&
765
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.4072E-04_JPRB,4.8718E-04_JPRB,4.1358E-04_JPRB,2.4418E-03_JPRB/)
766 KAO( :, 5,13, 3) = (/&
767 & 5.0038E-05_JPRB,2.9443E-04_JPRB,4.2080E-04_JPRB,5.1807E-04_JPRB,5.9619E-04_JPRB,6.4532E-04_JPRB,&
768
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.5035E-04_JPRB,5.8360E-04_JPRB,4.3228E-04_JPRB,2.8426E-03_JPRB/)
769 KAO( :, 1, 1, 4) = (/&
770 & 1.3959E-03_JPRB,5.9922E-03_JPRB,8.2316E-03_JPRB,9.8059E-03_JPRB,1.0613E-02_JPRB,1.0620E-02_JPRB,&
771
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.0007E-02_JPRB,8.7254E-03_JPRB,5.9465E-03_JPRB,5.3438E-03_JPRB/)
772 KAO( :, 2, 1, 4) = (/&
773 & 1.8497E-03_JPRB,7.5460E-03_JPRB,1.0203E-02_JPRB,1.1955E-02_JPRB,1.2786E-02_JPRB,1.2712E-02_JPRB,&
774
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.1856E-02_JPRB,1.0291E-02_JPRB,7.1447E-03_JPRB,6.1713E-03_JPRB/)
775 KAO( :, 3, 1, 4) = (/&
776 & 2.4455E-03_JPRB,9.3977E-03_JPRB,1.2548E-02_JPRB,1.4434E-02_JPRB,1.5252E-02_JPRB,1.5095E-02_JPRB,&
777
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.3989E-02_JPRB,1.2066E-02_JPRB,8.3510E-03_JPRB,7.1167E-03_JPRB/)
778 KAO( :, 4, 1, 4) = (/&
779 & 3.2093E-03_JPRB,1.1523E-02_JPRB,1.5232E-02_JPRB,1.7235E-02_JPRB,1.8051E-02_JPRB,1.7818E-02_JPRB,&
780
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.6407E-02_JPRB,1.4008E-02_JPRB,9.7059E-03_JPRB,8.2637E-03_JPRB/)
781 KAO( :, 5, 1, 4) = (/&
782 & 4.1640E-03_JPRB,1.3947E-02_JPRB,1.8138E-02_JPRB,2.0353E-02_JPRB,2.1133E-02_JPRB,2.0847E-02_JPRB,&
783
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.9064E-02_JPRB,1.6182E-02_JPRB,1.1218E-02_JPRB,9.5219E-03_JPRB/)
784 KAO( :, 1, 2, 4) = (/&
785 & 1.1784E-03_JPRB,4.8259E-03_JPRB,6.5824E-03_JPRB,7.8076E-03_JPRB,8.3997E-03_JPRB,8.4013E-03_JPRB,&
786
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.9589E-03_JPRB,6.9035E-03_JPRB,4.7972E-03_JPRB,4.1536E-03_JPRB/)
787 KAO( :, 2, 2, 4) = (/&
788 & 1.5660E-03_JPRB,6.0867E-03_JPRB,8.2146E-03_JPRB,9.5892E-03_JPRB,1.0197E-02_JPRB,1.0118E-02_JPRB,&
789
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 9.4816E-03_JPRB,8.1710E-03_JPRB,5.7311E-03_JPRB,4.7856E-03_JPRB/)
790 KAO( :, 3, 2, 4) = (/&
791 & 2.0771E-03_JPRB,7.6156E-03_JPRB,1.0151E-02_JPRB,1.1655E-02_JPRB,1.2244E-02_JPRB,1.2103E-02_JPRB,&
792
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.1249E-02_JPRB,9.6217E-03_JPRB,6.7053E-03_JPRB,5.5268E-03_JPRB/)
793 KAO( :, 4, 2, 4) = (/&
794 & 2.7371E-03_JPRB,9.3986E-03_JPRB,1.2362E-02_JPRB,1.3996E-02_JPRB,1.4573E-02_JPRB,1.4394E-02_JPRB,&
795
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.3273E-02_JPRB,1.1249E-02_JPRB,7.8082E-03_JPRB,6.4145E-03_JPRB/)
796 KAO( :, 5, 2, 4) = (/&
797 & 3.5707E-03_JPRB,1.1441E-02_JPRB,1.4782E-02_JPRB,1.6569E-02_JPRB,1.7185E-02_JPRB,1.6953E-02_JPRB,&
798
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.5517E-02_JPRB,1.3078E-02_JPRB,9.0555E-03_JPRB,7.4094E-03_JPRB/)
799 KAO( :, 1, 3, 4) = (/&
800 & 9.3612E-04_JPRB,3.7181E-03_JPRB,5.0390E-03_JPRB,5.9502E-03_JPRB,6.3679E-03_JPRB,6.3786E-03_JPRB,&
801
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.0698E-03_JPRB,5.2727E-03_JPRB,3.7120E-03_JPRB,3.2201E-03_JPRB/)
802 KAO( :, 2, 3, 4) = (/&
803 & 1.2490E-03_JPRB,4.6957E-03_JPRB,6.3176E-03_JPRB,7.3745E-03_JPRB,7.7966E-03_JPRB,7.7361E-03_JPRB,&
804
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.2751E-03_JPRB,6.2746E-03_JPRB,4.4490E-03_JPRB,3.6844E-03_JPRB/)
805 KAO( :, 3, 3, 4) = (/&
806 & 1.6672E-03_JPRB,5.9017E-03_JPRB,7.8487E-03_JPRB,9.0223E-03_JPRB,9.4573E-03_JPRB,9.3283E-03_JPRB,&
807
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.6995E-03_JPRB,7.4301E-03_JPRB,5.1895E-03_JPRB,4.2405E-03_JPRB/)
808 KAO( :, 4, 3, 4) = (/&
809 & 2.2134E-03_JPRB,7.3371E-03_JPRB,9.6281E-03_JPRB,1.0911E-02_JPRB,1.1346E-02_JPRB,1.1187E-02_JPRB,&
810
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.0343E-02_JPRB,8.7520E-03_JPRB,6.1061E-03_JPRB,4.8883E-03_JPRB/)
811 KAO( :, 5, 3, 4) = (/&
812 & 2.9080E-03_JPRB,9.0078E-03_JPRB,1.1596E-02_JPRB,1.2990E-02_JPRB,1.3474E-02_JPRB,1.3306E-02_JPRB,&
813
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.2200E-02_JPRB,1.0250E-02_JPRB,7.0746E-03_JPRB,5.6394E-03_JPRB/)
814 KAO( :, 1, 4, 4) = (/&
815 & 7.2899E-04_JPRB,2.8358E-03_JPRB,3.8166E-03_JPRB,4.4649E-03_JPRB,4.7605E-03_JPRB,4.7776E-03_JPRB,&
816
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.5645E-03_JPRB,3.9905E-03_JPRB,2.8172E-03_JPRB,2.5259E-03_JPRB/)
817 KAO( :, 2, 4, 4) = (/&
818 & 9.7562E-04_JPRB,3.5858E-03_JPRB,4.8000E-03_JPRB,5.5643E-03_JPRB,5.8729E-03_JPRB,5.8345E-03_JPRB,&
819
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.5106E-03_JPRB,4.7660E-03_JPRB,3.3369E-03_JPRB,2.8747E-03_JPRB/)
820 KAO( :, 3, 4, 4) = (/&
821 & 1.3110E-03_JPRB,4.5252E-03_JPRB,5.9861E-03_JPRB,6.8654E-03_JPRB,7.1912E-03_JPRB,7.0898E-03_JPRB,&
822
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.6257E-03_JPRB,5.6788E-03_JPRB,3.9467E-03_JPRB,3.3017E-03_JPRB/)
823 KAO( :, 4, 4, 4) = (/&
824 & 1.7535E-03_JPRB,5.6592E-03_JPRB,7.3895E-03_JPRB,8.3600E-03_JPRB,8.7028E-03_JPRB,8.5726E-03_JPRB,&
825
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.9544E-03_JPRB,6.7413E-03_JPRB,4.7023E-03_JPRB,3.7920E-03_JPRB/)
826 KAO( :, 5, 4, 4) = (/&
827 & 2.3234E-03_JPRB,7.0001E-03_JPRB,8.9795E-03_JPRB,1.0033E-02_JPRB,1.0407E-02_JPRB,1.0269E-02_JPRB,&
828
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 9.4690E-03_JPRB,7.9455E-03_JPRB,5.4450E-03_JPRB,4.3729E-03_JPRB/)
829 KAO( :, 1, 5, 4) = (/&
830 & 5.6650E-04_JPRB,2.1549E-03_JPRB,2.8964E-03_JPRB,3.3619E-03_JPRB,3.5664E-03_JPRB,3.5841E-03_JPRB,&
831
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.4323E-03_JPRB,3.0201E-03_JPRB,2.2575E-03_JPRB,2.0547E-03_JPRB/)
832 KAO( :, 2, 5, 4) = (/&
833 & 7.5923E-04_JPRB,2.7449E-03_JPRB,3.6494E-03_JPRB,4.2010E-03_JPRB,4.4180E-03_JPRB,4.3953E-03_JPRB,&
834
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.1675E-03_JPRB,3.6219E-03_JPRB,2.5473E-03_JPRB,2.3046E-03_JPRB/)
835 KAO( :, 3, 5, 4) = (/&
836 & 1.0253E-03_JPRB,3.4834E-03_JPRB,4.5686E-03_JPRB,5.2069E-03_JPRB,5.4481E-03_JPRB,5.3758E-03_JPRB,&
837
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.0408E-03_JPRB,4.3359E-03_JPRB,3.0162E-03_JPRB,2.6195E-03_JPRB/)
838 KAO( :, 4, 5, 4) = (/&
839 & 1.3801E-03_JPRB,4.3804E-03_JPRB,5.6725E-03_JPRB,6.3841E-03_JPRB,6.6485E-03_JPRB,6.5457E-03_JPRB,&
840
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.0914E-03_JPRB,5.1828E-03_JPRB,3.5636E-03_JPRB,2.9971E-03_JPRB/)
841 KAO( :, 5, 5, 4) = (/&
842 & 1.8434E-03_JPRB,5.4391E-03_JPRB,6.9434E-03_JPRB,7.7307E-03_JPRB,8.0143E-03_JPRB,7.8901E-03_JPRB,&
843
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.3072E-03_JPRB,6.1548E-03_JPRB,4.1784E-03_JPRB,3.4508E-03_JPRB/)
844 KAO( :, 1, 6, 4) = (/&
845 & 4.3479E-04_JPRB,1.6105E-03_JPRB,2.1624E-03_JPRB,2.5048E-03_JPRB,2.6629E-03_JPRB,2.6833E-03_JPRB,&
846
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.5738E-03_JPRB,2.2737E-03_JPRB,1.8606E-03_JPRB,1.7234E-03_JPRB/)
847 KAO( :, 2, 6, 4) = (/&
848 & 5.8233E-04_JPRB,2.0650E-03_JPRB,2.7444E-03_JPRB,3.1464E-03_JPRB,3.3112E-03_JPRB,3.2967E-03_JPRB,&
849
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.1292E-03_JPRB,2.7330E-03_JPRB,1.9142E-03_JPRB,1.9183E-03_JPRB/)
850 KAO( :, 3, 6, 4) = (/&
851 & 7.8843E-04_JPRB,2.6457E-03_JPRB,3.4646E-03_JPRB,3.9221E-03_JPRB,4.0954E-03_JPRB,4.0443E-03_JPRB,&
852
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.8065E-03_JPRB,3.2872E-03_JPRB,2.2472E-03_JPRB,2.1603E-03_JPRB/)
853 KAO( :, 4, 6, 4) = (/&
854 & 1.0676E-03_JPRB,3.3599E-03_JPRB,4.3294E-03_JPRB,4.8406E-03_JPRB,5.0306E-03_JPRB,4.9525E-03_JPRB,&
855
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.6235E-03_JPRB,3.9530E-03_JPRB,2.6778E-03_JPRB,2.4636E-03_JPRB/)
856 KAO( :, 5, 6, 4) = (/&
857 & 1.4360E-03_JPRB,4.2028E-03_JPRB,5.3355E-03_JPRB,5.9075E-03_JPRB,6.1148E-03_JPRB,6.0070E-03_JPRB,&
858
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.5779E-03_JPRB,4.7305E-03_JPRB,3.1938E-03_JPRB,2.8201E-03_JPRB/)
859 KAO( :, 1, 7, 4) = (/&
860 & 3.3066E-04_JPRB,1.1921E-03_JPRB,1.5997E-03_JPRB,1.8508E-03_JPRB,1.9750E-03_JPRB,2.0065E-03_JPRB,&
861
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.9362E-03_JPRB,1.7121E-03_JPRB,1.5102E-03_JPRB,1.4755E-03_JPRB/)
862 KAO( :, 2, 7, 4) = (/&
863 & 4.4251E-04_JPRB,1.5399E-03_JPRB,2.0431E-03_JPRB,2.3386E-03_JPRB,2.4693E-03_JPRB,2.4731E-03_JPRB,&
864
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.3559E-03_JPRB,2.0619E-03_JPRB,1.5167E-03_JPRB,1.6278E-03_JPRB/)
865 KAO( :, 3, 7, 4) = (/&
866 & 5.9954E-04_JPRB,1.9895E-03_JPRB,2.5996E-03_JPRB,2.9389E-03_JPRB,3.0769E-03_JPRB,3.0449E-03_JPRB,&
867
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.8696E-03_JPRB,2.4854E-03_JPRB,1.7100E-03_JPRB,1.8261E-03_JPRB/)
868 KAO( :, 4, 7, 4) = (/&
869 & 8.1539E-04_JPRB,2.5548E-03_JPRB,3.2831E-03_JPRB,3.6604E-03_JPRB,3.8004E-03_JPRB,3.7406E-03_JPRB,&
870
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.5004E-03_JPRB,3.0009E-03_JPRB,2.0185E-03_JPRB,2.0723E-03_JPRB/)
871 KAO( :, 5, 7, 4) = (/&
872 & 1.1035E-03_JPRB,3.2299E-03_JPRB,4.0851E-03_JPRB,4.5054E-03_JPRB,4.6506E-03_JPRB,4.5636E-03_JPRB,&
873
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.2458E-03_JPRB,3.6170E-03_JPRB,2.4150E-03_JPRB,2.3689E-03_JPRB/)
874 KAO( :, 1, 8, 4) = (/&
875 & 2.4824E-04_JPRB,8.7576E-04_JPRB,1.1750E-03_JPRB,1.3620E-03_JPRB,1.4591E-03_JPRB,1.4944E-03_JPRB,&
876
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.4530E-03_JPRB,1.3016E-03_JPRB,1.2362E-03_JPRB,1.3815E-03_JPRB/)
877 KAO( :, 2, 8, 4) = (/&
878 & 3.3230E-04_JPRB,1.1390E-03_JPRB,1.5103E-03_JPRB,1.7306E-03_JPRB,1.8323E-03_JPRB,1.8454E-03_JPRB,&
879
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.7715E-03_JPRB,1.5588E-03_JPRB,1.2567E-03_JPRB,1.5241E-03_JPRB/)
880 KAO( :, 3, 8, 4) = (/&
881 & 4.5036E-04_JPRB,1.4833E-03_JPRB,1.9397E-03_JPRB,2.1911E-03_JPRB,2.2984E-03_JPRB,2.2843E-03_JPRB,&
882
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.1644E-03_JPRB,1.8786E-03_JPRB,1.3010E-03_JPRB,1.7047E-03_JPRB/)
883 KAO( :, 4, 8, 4) = (/&
884 & 6.1425E-04_JPRB,1.9258E-03_JPRB,2.4736E-03_JPRB,2.7526E-03_JPRB,2.8618E-03_JPRB,2.8208E-03_JPRB,&
885
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.6474E-03_JPRB,2.2738E-03_JPRB,1.4977E-03_JPRB,1.9231E-03_JPRB/)
886 KAO( :, 5, 8, 4) = (/&
887 & 8.3579E-04_JPRB,2.4677E-03_JPRB,3.1100E-03_JPRB,3.4209E-03_JPRB,3.5321E-03_JPRB,3.4664E-03_JPRB,&
888
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.2302E-03_JPRB,2.7529E-03_JPRB,1.8211E-03_JPRB,2.1802E-03_JPRB/)
889 KAO( :, 1, 9, 4) = (/&
890 & 1.8648E-04_JPRB,6.4213E-04_JPRB,8.6248E-04_JPRB,1.0018E-03_JPRB,1.0759E-03_JPRB,1.1114E-03_JPRB,&
891
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.0893E-03_JPRB,9.9064E-04_JPRB,9.8753E-04_JPRB,1.8775E-03_JPRB/)
892 KAO( :, 2, 9, 4) = (/&
893 & 2.4931E-04_JPRB,8.3843E-04_JPRB,1.1135E-03_JPRB,1.2777E-03_JPRB,1.3549E-03_JPRB,1.3735E-03_JPRB,&
894
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.3267E-03_JPRB,1.1784E-03_JPRB,1.0225E-03_JPRB,2.0725E-03_JPRB/)
895 KAO( :, 3, 9, 4) = (/&
896 & 3.3739E-04_JPRB,1.0997E-03_JPRB,1.4388E-03_JPRB,1.6275E-03_JPRB,1.7095E-03_JPRB,1.7064E-03_JPRB,&
897
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.6276E-03_JPRB,1.4244E-03_JPRB,1.0196E-03_JPRB,2.3196E-03_JPRB/)
898 KAO( :, 4, 9, 4) = (/&
899 & 4.6000E-04_JPRB,1.4414E-03_JPRB,1.8531E-03_JPRB,2.0634E-03_JPRB,2.1453E-03_JPRB,2.1162E-03_JPRB,&
900
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.9970E-03_JPRB,1.7248E-03_JPRB,1.1677E-03_JPRB,2.6078E-03_JPRB/)
901 KAO( :, 5, 9, 4) = (/&
902 & 6.2819E-04_JPRB,1.8702E-03_JPRB,2.3574E-03_JPRB,2.5903E-03_JPRB,2.6704E-03_JPRB,2.6214E-03_JPRB,&
903
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.4477E-03_JPRB,2.0914E-03_JPRB,1.3608E-03_JPRB,2.9294E-03_JPRB/)
904 KAO( :, 1,10, 4) = (/&
905 & 1.4307E-04_JPRB,4.7989E-04_JPRB,6.4527E-04_JPRB,7.5154E-04_JPRB,8.0960E-04_JPRB,8.4090E-04_JPRB,&
906
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.3086E-04_JPRB,7.6874E-04_JPRB,8.2863E-04_JPRB,3.6347E-03_JPRB/)
907 KAO( :, 2,10, 4) = (/&
908 & 1.9105E-04_JPRB,6.2858E-04_JPRB,8.3500E-04_JPRB,9.5991E-04_JPRB,1.0185E-03_JPRB,1.0393E-03_JPRB,&
909
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.0095E-03_JPRB,9.0118E-04_JPRB,8.3114E-04_JPRB,4.2294E-03_JPRB/)
910 KAO( :, 3,10, 4) = (/&
911 & 2.5819E-04_JPRB,8.2975E-04_JPRB,1.0848E-03_JPRB,1.2290E-03_JPRB,1.2908E-03_JPRB,1.2943E-03_JPRB,&
912
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.2407E-03_JPRB,1.0947E-03_JPRB,8.4507E-04_JPRB,4.7942E-03_JPRB/)
913 KAO( :, 4,10, 4) = (/&
914 & 3.5175E-04_JPRB,1.0966E-03_JPRB,1.4090E-03_JPRB,1.5695E-03_JPRB,1.6301E-03_JPRB,1.6125E-03_JPRB,&
915
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.5271E-03_JPRB,1.3244E-03_JPRB,8.9574E-04_JPRB,5.3326E-03_JPRB/)
916 KAO( :, 5,10, 4) = (/&
917 & 4.8140E-04_JPRB,1.4355E-03_JPRB,1.8096E-03_JPRB,1.9894E-03_JPRB,2.0475E-03_JPRB,2.0080E-03_JPRB,&
918
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.8768E-03_JPRB,1.6118E-03_JPRB,1.0323E-03_JPRB,5.8712E-03_JPRB/)
919 KAO( :, 1,11, 4) = (/&
920 & 1.2480E-04_JPRB,4.0651E-04_JPRB,5.4317E-04_JPRB,6.3057E-04_JPRB,6.7711E-04_JPRB,7.0124E-04_JPRB,&
921
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.9230E-04_JPRB,6.3637E-04_JPRB,6.7480E-04_JPRB,4.4748E-03_JPRB/)
922 KAO( :, 2,11, 4) = (/&
923 & 1.6789E-04_JPRB,5.3657E-04_JPRB,7.0675E-04_JPRB,8.0798E-04_JPRB,8.5575E-04_JPRB,8.7116E-04_JPRB,&
924
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.4422E-04_JPRB,7.5306E-04_JPRB,6.8219E-04_JPRB,5.2484E-03_JPRB/)
925 KAO( :, 3,11, 4) = (/&
926 & 2.2748E-04_JPRB,7.1324E-04_JPRB,9.2430E-04_JPRB,1.0391E-03_JPRB,1.0880E-03_JPRB,1.0885E-03_JPRB,&
927
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.0414E-03_JPRB,9.1761E-04_JPRB,6.9310E-04_JPRB,5.9997E-03_JPRB/)
928 KAO( :, 4,11, 4) = (/&
929 & 3.1100E-04_JPRB,9.4662E-04_JPRB,1.2062E-03_JPRB,1.3345E-03_JPRB,1.3806E-03_JPRB,1.3616E-03_JPRB,&
930
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.2842E-03_JPRB,1.1132E-03_JPRB,7.5183E-04_JPRB,6.7275E-03_JPRB/)
931 KAO( :, 5,11, 4) = (/&
932 & 4.2632E-04_JPRB,1.2375E-03_JPRB,1.5507E-03_JPRB,1.6996E-03_JPRB,1.7428E-03_JPRB,1.7046E-03_JPRB,&
933
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.5835E-03_JPRB,1.3580E-03_JPRB,8.6852E-04_JPRB,7.4572E-03_JPRB/)
934 KAO( :, 1,12, 4) = (/&
935 & 1.0738E-04_JPRB,3.4370E-04_JPRB,4.5561E-04_JPRB,5.2712E-04_JPRB,5.6512E-04_JPRB,5.8418E-04_JPRB,&
936
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.7608E-04_JPRB,5.2824E-04_JPRB,5.5584E-04_JPRB,4.5229E-03_JPRB/)
937 KAO( :, 2,12, 4) = (/&
938 & 1.4509E-04_JPRB,4.5719E-04_JPRB,5.9628E-04_JPRB,6.7809E-04_JPRB,7.1697E-04_JPRB,7.2848E-04_JPRB,&
939
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.0565E-04_JPRB,6.2997E-04_JPRB,5.6436E-04_JPRB,5.3156E-03_JPRB/)
940 KAO( :, 3,12, 4) = (/&
941 & 1.9783E-04_JPRB,6.1167E-04_JPRB,7.8481E-04_JPRB,8.7764E-04_JPRB,9.1476E-04_JPRB,9.1298E-04_JPRB,&
942
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.7252E-04_JPRB,7.6652E-04_JPRB,5.7011E-04_JPRB,6.0757E-03_JPRB/)
943 KAO( :, 4,12, 4) = (/&
944 & 2.7192E-04_JPRB,8.1173E-04_JPRB,1.0265E-03_JPRB,1.1333E-03_JPRB,1.1680E-03_JPRB,1.1490E-03_JPRB,&
945
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.0784E-03_JPRB,9.3361E-04_JPRB,6.2718E-04_JPRB,6.8113E-03_JPRB/)
946 KAO( :, 5,12, 4) = (/&
947 & 3.7397E-04_JPRB,1.0598E-03_JPRB,1.3197E-03_JPRB,1.4449E-03_JPRB,1.4799E-03_JPRB,1.4465E-03_JPRB,&
948
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.3362E-03_JPRB,1.1407E-03_JPRB,7.2415E-04_JPRB,7.5425E-03_JPRB/)
949 KAO( :, 1,13, 4) = (/&
950 & 8.9292E-05_JPRB,2.8719E-04_JPRB,3.7864E-04_JPRB,4.3694E-04_JPRB,4.6878E-04_JPRB,4.8461E-04_JPRB,&
951
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.7788E-04_JPRB,4.3842E-04_JPRB,4.5719E-04_JPRB,3.8416E-03_JPRB/)
952 KAO( :, 2,13, 4) = (/&
953 & 1.2149E-04_JPRB,3.8537E-04_JPRB,4.9918E-04_JPRB,5.6557E-04_JPRB,5.9698E-04_JPRB,6.0549E-04_JPRB,&
954
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.8708E-04_JPRB,5.2472E-04_JPRB,4.6787E-04_JPRB,4.4931E-03_JPRB/)
955 KAO( :, 3,13, 4) = (/&
956 & 1.6719E-04_JPRB,5.1756E-04_JPRB,6.6044E-04_JPRB,7.3666E-04_JPRB,7.6591E-04_JPRB,7.6260E-04_JPRB,&
957
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.2753E-04_JPRB,6.3867E-04_JPRB,4.6954E-04_JPRB,5.0961E-03_JPRB/)
958 KAO( :, 4,13, 4) = (/&
959 & 2.3161E-04_JPRB,6.8759E-04_JPRB,8.6435E-04_JPRB,9.5388E-04_JPRB,9.8295E-04_JPRB,9.6568E-04_JPRB,&
960
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 9.0300E-04_JPRB,7.7979E-04_JPRB,5.2227E-04_JPRB,5.6855E-03_JPRB/)
961 KAO( :, 5,13, 4) = (/&
962 & 3.2057E-04_JPRB,8.9923E-04_JPRB,1.1130E-03_JPRB,1.2171E-03_JPRB,1.2465E-03_JPRB,1.2193E-03_JPRB,&
963
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.1245E-03_JPRB,9.5521E-04_JPRB,6.0646E-04_JPRB,6.2875E-03_JPRB/)
964 KAO( :, 1, 1, 5) = (/&
965 & 7.8581E-03_JPRB,1.6359E-02_JPRB,1.8747E-02_JPRB,1.9104E-02_JPRB,1.8493E-02_JPRB,1.7453E-02_JPRB,&
966
2/2
✓ Branch 0 taken 10 times.
✓ Branch 1 taken 1 times.
11 & 1.6124E-02_JPRB,1.4436E-02_JPRB,9.9634E-03_JPRB,9.0266E-03_JPRB/)
967
968
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART3',1,ZHOOK_HANDLE)
969 1 END SUBROUTINE PART3
970
971
972 1 SUBROUTINE PART4
973
974 REAL(KIND=JPRB) :: ZHOOK_HANDLE
975
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART4',0,ZHOOK_HANDLE)
976
977
978 KAO( :, 2, 1, 5) = (/&
979 & 1.0248E-02_JPRB,1.9930E-02_JPRB,2.2543E-02_JPRB,2.2901E-02_JPRB,2.2187E-02_JPRB,2.0954E-02_JPRB,&
980
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.9379E-02_JPRB,1.7194E-02_JPRB,1.1961E-02_JPRB,1.0706E-02_JPRB/)
981 KAO( :, 3, 1, 5) = (/&
982 & 1.3096E-02_JPRB,2.3888E-02_JPRB,2.6739E-02_JPRB,2.7195E-02_JPRB,2.6433E-02_JPRB,2.4936E-02_JPRB,&
983
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.3046E-02_JPRB,2.0295E-02_JPRB,1.4106E-02_JPRB,1.2544E-02_JPRB/)
984 KAO( :, 4, 1, 5) = (/&
985 & 1.6338E-02_JPRB,2.8329E-02_JPRB,3.1500E-02_JPRB,3.2047E-02_JPRB,3.1151E-02_JPRB,2.9395E-02_JPRB,&
986
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.7258E-02_JPRB,2.3909E-02_JPRB,1.6479E-02_JPRB,1.4541E-02_JPRB/)
987 KAO( :, 5, 1, 5) = (/&
988 & 1.9905E-02_JPRB,3.3267E-02_JPRB,3.6925E-02_JPRB,3.7523E-02_JPRB,3.6460E-02_JPRB,3.4480E-02_JPRB,&
989
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.1939E-02_JPRB,2.7924E-02_JPRB,1.9096E-02_JPRB,1.6820E-02_JPRB/)
990 KAO( :, 1, 2, 5) = (/&
991 & 6.5000E-03_JPRB,1.3210E-02_JPRB,1.5017E-02_JPRB,1.5338E-02_JPRB,1.4894E-02_JPRB,1.4046E-02_JPRB,&
992
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.2886E-02_JPRB,1.1485E-02_JPRB,7.8396E-03_JPRB,6.9835E-03_JPRB/)
993 KAO( :, 2, 2, 5) = (/&
994 & 8.5060E-03_JPRB,1.6246E-02_JPRB,1.8196E-02_JPRB,1.8546E-02_JPRB,1.7999E-02_JPRB,1.6962E-02_JPRB,&
995
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.5570E-02_JPRB,1.3759E-02_JPRB,9.5004E-03_JPRB,8.2524E-03_JPRB/)
996 KAO( :, 3, 2, 5) = (/&
997 & 1.0895E-02_JPRB,1.9629E-02_JPRB,2.1801E-02_JPRB,2.2202E-02_JPRB,2.1571E-02_JPRB,2.0287E-02_JPRB,&
998
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.8619E-02_JPRB,1.6336E-02_JPRB,1.1311E-02_JPRB,9.6763E-03_JPRB/)
999 KAO( :, 4, 2, 5) = (/&
1000 & 1.3634E-02_JPRB,2.3467E-02_JPRB,2.5938E-02_JPRB,2.6385E-02_JPRB,2.5626E-02_JPRB,2.4039E-02_JPRB,&
1001
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.2108E-02_JPRB,1.9320E-02_JPRB,1.3277E-02_JPRB,1.1254E-02_JPRB/)
1002 KAO( :, 5, 2, 5) = (/&
1003 & 1.6643E-02_JPRB,2.7789E-02_JPRB,3.0666E-02_JPRB,3.1149E-02_JPRB,3.0178E-02_JPRB,2.8317E-02_JPRB,&
1004
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.6023E-02_JPRB,2.2644E-02_JPRB,1.5438E-02_JPRB,1.3058E-02_JPRB/)
1005 KAO( :, 1, 3, 5) = (/&
1006 & 5.1068E-03_JPRB,1.0155E-02_JPRB,1.1485E-02_JPRB,1.1770E-02_JPRB,1.1484E-02_JPRB,1.0823E-02_JPRB,&
1007
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 9.8623E-03_JPRB,8.7594E-03_JPRB,5.9958E-03_JPRB,5.2611E-03_JPRB/)
1008 KAO( :, 2, 3, 5) = (/&
1009 & 6.6835E-03_JPRB,1.2640E-02_JPRB,1.4084E-02_JPRB,1.4382E-02_JPRB,1.4023E-02_JPRB,1.3192E-02_JPRB,&
1010
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.2012E-02_JPRB,1.0560E-02_JPRB,7.2917E-03_JPRB,6.1864E-03_JPRB/)
1011 KAO( :, 3, 3, 5) = (/&
1012 & 8.6033E-03_JPRB,1.5444E-02_JPRB,1.7069E-02_JPRB,1.7437E-02_JPRB,1.6940E-02_JPRB,1.5900E-02_JPRB,&
1013
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.4464E-02_JPRB,1.2619E-02_JPRB,8.8116E-03_JPRB,7.2531E-03_JPRB/)
1014 KAO( :, 4, 3, 5) = (/&
1015 & 1.0832E-02_JPRB,1.8665E-02_JPRB,2.0521E-02_JPRB,2.0939E-02_JPRB,2.0314E-02_JPRB,1.9000E-02_JPRB,&
1016
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.7289E-02_JPRB,1.5015E-02_JPRB,1.0355E-02_JPRB,8.4725E-03_JPRB/)
1017 KAO( :, 5, 3, 5) = (/&
1018 & 1.3328E-02_JPRB,2.2307E-02_JPRB,2.4508E-02_JPRB,2.4967E-02_JPRB,2.4135E-02_JPRB,2.2494E-02_JPRB,&
1019
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.0482E-02_JPRB,1.7714E-02_JPRB,1.2161E-02_JPRB,9.8543E-03_JPRB/)
1020 KAO( :, 1, 4, 5) = (/&
1021 & 3.9695E-03_JPRB,7.6818E-03_JPRB,8.6331E-03_JPRB,8.8728E-03_JPRB,8.6847E-03_JPRB,8.1743E-03_JPRB,&
1022
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.4171E-03_JPRB,6.5733E-03_JPRB,4.6756E-03_JPRB,4.0395E-03_JPRB/)
1023 KAO( :, 2, 4, 5) = (/&
1024 & 5.1871E-03_JPRB,9.6669E-03_JPRB,1.0730E-02_JPRB,1.0984E-02_JPRB,1.0727E-02_JPRB,1.0079E-02_JPRB,&
1025
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 9.1130E-03_JPRB,7.9640E-03_JPRB,5.5230E-03_JPRB,4.7457E-03_JPRB/)
1026 KAO( :, 3, 4, 5) = (/&
1027 & 6.6872E-03_JPRB,1.1936E-02_JPRB,1.3150E-02_JPRB,1.3447E-02_JPRB,1.3090E-02_JPRB,1.2266E-02_JPRB,&
1028
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.1082E-02_JPRB,9.5819E-03_JPRB,6.7239E-03_JPRB,5.5582E-03_JPRB/)
1029 KAO( :, 4, 4, 5) = (/&
1030 & 8.4686E-03_JPRB,1.4558E-02_JPRB,1.5982E-02_JPRB,1.6346E-02_JPRB,1.5841E-02_JPRB,1.4783E-02_JPRB,&
1031
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.3331E-02_JPRB,1.1473E-02_JPRB,7.9455E-03_JPRB,6.5009E-03_JPRB/)
1032 KAO( :, 5, 4, 5) = (/&
1033 & 1.0530E-02_JPRB,1.7532E-02_JPRB,1.9245E-02_JPRB,1.9697E-02_JPRB,1.9021E-02_JPRB,1.7663E-02_JPRB,&
1034
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.5910E-02_JPRB,1.3642E-02_JPRB,9.4173E-03_JPRB,7.5638E-03_JPRB/)
1035 KAO( :, 1, 5, 5) = (/&
1036 & 3.1180E-03_JPRB,5.8209E-03_JPRB,6.4854E-03_JPRB,6.6644E-03_JPRB,6.5380E-03_JPRB,6.1410E-03_JPRB,&
1037
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.5609E-03_JPRB,4.9182E-03_JPRB,3.5969E-03_JPRB,3.1582E-03_JPRB/)
1038 KAO( :, 2, 5, 5) = (/&
1039 & 4.0549E-03_JPRB,7.3757E-03_JPRB,8.1520E-03_JPRB,8.3497E-03_JPRB,8.1550E-03_JPRB,7.6434E-03_JPRB,&
1040
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.8934E-03_JPRB,5.9840E-03_JPRB,4.1290E-03_JPRB,3.6940E-03_JPRB/)
1041 KAO( :, 3, 5, 5) = (/&
1042 & 5.2180E-03_JPRB,9.1787E-03_JPRB,1.0116E-02_JPRB,1.0335E-02_JPRB,1.0048E-02_JPRB,9.4058E-03_JPRB,&
1043
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.4592E-03_JPRB,7.2447E-03_JPRB,5.0478E-03_JPRB,4.3308E-03_JPRB/)
1044 KAO( :, 4, 5, 5) = (/&
1045 & 6.6347E-03_JPRB,1.1285E-02_JPRB,1.2392E-02_JPRB,1.2680E-02_JPRB,1.2274E-02_JPRB,1.1447E-02_JPRB,&
1046
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.0271E-02_JPRB,8.7310E-03_JPRB,6.0849E-03_JPRB,5.0691E-03_JPRB/)
1047 KAO( :, 5, 5, 5) = (/&
1048 & 8.3131E-03_JPRB,1.3706E-02_JPRB,1.5023E-02_JPRB,1.5394E-02_JPRB,1.4880E-02_JPRB,1.3810E-02_JPRB,&
1049
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.2359E-02_JPRB,1.0459E-02_JPRB,7.2538E-03_JPRB,5.9083E-03_JPRB/)
1050 KAO( :, 1, 6, 5) = (/&
1051 & 2.4113E-03_JPRB,4.4035E-03_JPRB,4.8584E-03_JPRB,4.9702E-03_JPRB,4.8652E-03_JPRB,4.5631E-03_JPRB,&
1052
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.1282E-03_JPRB,3.6475E-03_JPRB,2.6495E-03_JPRB,2.6380E-03_JPRB/)
1053 KAO( :, 2, 6, 5) = (/&
1054 & 3.1417E-03_JPRB,5.6041E-03_JPRB,6.1552E-03_JPRB,6.2788E-03_JPRB,6.1209E-03_JPRB,5.7279E-03_JPRB,&
1055
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.1621E-03_JPRB,4.4647E-03_JPRB,3.1333E-03_JPRB,3.0490E-03_JPRB/)
1056 KAO( :, 3, 6, 5) = (/&
1057 & 4.0523E-03_JPRB,7.0107E-03_JPRB,7.6974E-03_JPRB,7.8556E-03_JPRB,7.6249E-03_JPRB,7.1228E-03_JPRB,&
1058
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.3982E-03_JPRB,5.4412E-03_JPRB,3.7354E-03_JPRB,3.5351E-03_JPRB/)
1059 KAO( :, 4, 6, 5) = (/&
1060 & 5.1735E-03_JPRB,8.6714E-03_JPRB,9.5046E-03_JPRB,9.7062E-03_JPRB,9.3937E-03_JPRB,8.7514E-03_JPRB,&
1061
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.8427E-03_JPRB,6.5998E-03_JPRB,4.6231E-03_JPRB,4.0931E-03_JPRB/)
1062 KAO( :, 5, 6, 5) = (/&
1063 & 6.5266E-03_JPRB,1.0615E-02_JPRB,1.1603E-02_JPRB,1.1862E-02_JPRB,1.1470E-02_JPRB,1.0665E-02_JPRB,&
1064
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 9.5307E-03_JPRB,7.9589E-03_JPRB,5.4908E-03_JPRB,4.7354E-03_JPRB/)
1065 KAO( :, 1, 7, 5) = (/&
1066 & 1.8313E-03_JPRB,3.2981E-03_JPRB,3.6334E-03_JPRB,3.7067E-03_JPRB,3.6201E-03_JPRB,3.3912E-03_JPRB,&
1067
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.0679E-03_JPRB,2.7066E-03_JPRB,2.0241E-03_JPRB,2.2554E-03_JPRB/)
1068 KAO( :, 2, 7, 5) = (/&
1069 & 2.3976E-03_JPRB,4.2444E-03_JPRB,4.6442E-03_JPRB,4.7217E-03_JPRB,4.5915E-03_JPRB,4.2847E-03_JPRB,&
1070
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.8546E-03_JPRB,3.3328E-03_JPRB,2.4081E-03_JPRB,2.5954E-03_JPRB/)
1071 KAO( :, 3, 7, 5) = (/&
1072 & 3.1184E-03_JPRB,5.3559E-03_JPRB,5.8460E-03_JPRB,5.9451E-03_JPRB,5.7583E-03_JPRB,5.3717E-03_JPRB,&
1073
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.8180E-03_JPRB,4.0888E-03_JPRB,2.7879E-03_JPRB,3.0032E-03_JPRB/)
1074 KAO( :, 4, 7, 5) = (/&
1075 & 4.0216E-03_JPRB,6.6605E-03_JPRB,7.2700E-03_JPRB,7.4007E-03_JPRB,7.1549E-03_JPRB,6.6561E-03_JPRB,&
1076
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.9599E-03_JPRB,4.9929E-03_JPRB,3.4384E-03_JPRB,3.4860E-03_JPRB/)
1077 KAO( :, 5, 7, 5) = (/&
1078 & 5.1206E-03_JPRB,8.2127E-03_JPRB,8.9364E-03_JPRB,9.0944E-03_JPRB,8.7960E-03_JPRB,8.1717E-03_JPRB,&
1079
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.3059E-03_JPRB,6.0651E-03_JPRB,4.1362E-03_JPRB,4.0383E-03_JPRB/)
1080 KAO( :, 1, 8, 5) = (/&
1081 & 1.3678E-03_JPRB,2.4344E-03_JPRB,2.6771E-03_JPRB,2.7314E-03_JPRB,2.6764E-03_JPRB,2.5199E-03_JPRB,&
1082
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.2892E-03_JPRB,2.0146E-03_JPRB,1.5158E-03_JPRB,2.0717E-03_JPRB/)
1083 KAO( :, 2, 8, 5) = (/&
1084 & 1.7986E-03_JPRB,3.1721E-03_JPRB,3.4698E-03_JPRB,3.5325E-03_JPRB,3.4383E-03_JPRB,3.2125E-03_JPRB,&
1085
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.8853E-03_JPRB,2.4940E-03_JPRB,1.7790E-03_JPRB,2.3653E-03_JPRB/)
1086 KAO( :, 3, 8, 5) = (/&
1087 & 2.3644E-03_JPRB,4.0587E-03_JPRB,4.4194E-03_JPRB,4.4912E-03_JPRB,4.3505E-03_JPRB,4.0574E-03_JPRB,&
1088
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.6294E-03_JPRB,3.0753E-03_JPRB,2.0908E-03_JPRB,2.7075E-03_JPRB/)
1089 KAO( :, 4, 8, 5) = (/&
1090 & 3.0885E-03_JPRB,5.1052E-03_JPRB,5.5511E-03_JPRB,5.6359E-03_JPRB,5.4460E-03_JPRB,5.0617E-03_JPRB,&
1091
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.5202E-03_JPRB,3.7834E-03_JPRB,2.5293E-03_JPRB,3.1178E-03_JPRB/)
1092 KAO( :, 5, 8, 5) = (/&
1093 & 3.9843E-03_JPRB,6.3521E-03_JPRB,6.8780E-03_JPRB,6.9729E-03_JPRB,6.7374E-03_JPRB,6.2484E-03_JPRB,&
1094
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.5746E-03_JPRB,4.6304E-03_JPRB,3.1216E-03_JPRB,3.5944E-03_JPRB/)
1095 KAO( :, 1, 9, 5) = (/&
1096 & 1.0180E-03_JPRB,1.7808E-03_JPRB,1.9513E-03_JPRB,1.9917E-03_JPRB,1.9571E-03_JPRB,1.8568E-03_JPRB,&
1097
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.7034E-03_JPRB,1.5143E-03_JPRB,1.2324E-03_JPRB,2.9566E-03_JPRB/)
1098 KAO( :, 2, 9, 5) = (/&
1099 & 1.3409E-03_JPRB,2.3491E-03_JPRB,2.5644E-03_JPRB,2.6103E-03_JPRB,2.5515E-03_JPRB,2.3969E-03_JPRB,&
1100
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.1596E-03_JPRB,1.8679E-03_JPRB,1.3632E-03_JPRB,3.3317E-03_JPRB/)
1101 KAO( :, 3, 9, 5) = (/&
1102 & 1.7770E-03_JPRB,3.0450E-03_JPRB,3.3094E-03_JPRB,3.3641E-03_JPRB,3.2693E-03_JPRB,3.0590E-03_JPRB,&
1103
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.7358E-03_JPRB,2.3083E-03_JPRB,1.6204E-03_JPRB,3.7464E-03_JPRB/)
1104 KAO( :, 4, 9, 5) = (/&
1105 & 2.3520E-03_JPRB,3.8805E-03_JPRB,4.2090E-03_JPRB,4.2722E-03_JPRB,4.1362E-03_JPRB,3.8521E-03_JPRB,&
1106
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.4256E-03_JPRB,2.8568E-03_JPRB,1.8732E-03_JPRB,4.2061E-03_JPRB/)
1107 KAO( :, 5, 9, 5) = (/&
1108 & 3.0729E-03_JPRB,4.8855E-03_JPRB,5.2770E-03_JPRB,5.3379E-03_JPRB,5.1589E-03_JPRB,4.7790E-03_JPRB,&
1109
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.2478E-03_JPRB,3.5241E-03_JPRB,2.3400E-03_JPRB,4.7374E-03_JPRB/)
1110 KAO( :, 1,10, 5) = (/&
1111 & 7.7253E-04_JPRB,1.3219E-03_JPRB,1.4421E-03_JPRB,1.4740E-03_JPRB,1.4539E-03_JPRB,1.3876E-03_JPRB,&
1112
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.2853E-03_JPRB,1.1567E-03_JPRB,1.0022E-03_JPRB,6.8847E-03_JPRB/)
1113 KAO( :, 2,10, 5) = (/&
1114 & 1.0173E-03_JPRB,1.7625E-03_JPRB,1.9200E-03_JPRB,1.9559E-03_JPRB,1.9175E-03_JPRB,1.8087E-03_JPRB,&
1115
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.6367E-03_JPRB,1.4242E-03_JPRB,1.0394E-03_JPRB,7.5328E-03_JPRB/)
1116 KAO( :, 3,10, 5) = (/&
1117 & 1.3564E-03_JPRB,2.3122E-03_JPRB,2.5093E-03_JPRB,2.5497E-03_JPRB,2.4848E-03_JPRB,2.3312E-03_JPRB,&
1118
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.0902E-03_JPRB,1.7668E-03_JPRB,1.2230E-03_JPRB,8.3126E-03_JPRB/)
1119 KAO( :, 4,10, 5) = (/&
1120 & 1.8134E-03_JPRB,2.9832E-03_JPRB,3.2264E-03_JPRB,3.2755E-03_JPRB,3.1788E-03_JPRB,2.9672E-03_JPRB,&
1121
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.6373E-03_JPRB,2.1956E-03_JPRB,1.4206E-03_JPRB,9.1949E-03_JPRB/)
1122 KAO( :, 5,10, 5) = (/&
1123 & 2.3982E-03_JPRB,3.8024E-03_JPRB,4.0921E-03_JPRB,4.1370E-03_JPRB,4.0025E-03_JPRB,3.7132E-03_JPRB,&
1124
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.2913E-03_JPRB,2.7187E-03_JPRB,1.7437E-03_JPRB,1.0174E-02_JPRB/)
1125 KAO( :, 1,11, 5) = (/&
1126 & 6.6311E-04_JPRB,1.1233E-03_JPRB,1.2219E-03_JPRB,1.2485E-03_JPRB,1.2298E-03_JPRB,1.1731E-03_JPRB,&
1127
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.0818E-03_JPRB,9.6812E-04_JPRB,8.2277E-04_JPRB,9.1151E-03_JPRB/)
1128 KAO( :, 2,11, 5) = (/&
1129 & 8.7961E-04_JPRB,1.5044E-03_JPRB,1.6329E-03_JPRB,1.6631E-03_JPRB,1.6279E-03_JPRB,1.5346E-03_JPRB,&
1130
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.3878E-03_JPRB,1.1990E-03_JPRB,8.6844E-04_JPRB,9.9636E-03_JPRB/)
1131 KAO( :, 3,11, 5) = (/&
1132 & 1.1836E-03_JPRB,1.9811E-03_JPRB,2.1444E-03_JPRB,2.1783E-03_JPRB,2.1211E-03_JPRB,1.9859E-03_JPRB,&
1133
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.7780E-03_JPRB,1.4952E-03_JPRB,1.0190E-03_JPRB,1.0941E-02_JPRB/)
1134 KAO( :, 4,11, 5) = (/&
1135 & 1.5905E-03_JPRB,2.5713E-03_JPRB,2.7694E-03_JPRB,2.8087E-03_JPRB,2.7235E-03_JPRB,2.5357E-03_JPRB,&
1136
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.2512E-03_JPRB,1.8676E-03_JPRB,1.1718E-03_JPRB,1.2060E-02_JPRB/)
1137 KAO( :, 5,11, 5) = (/&
1138 & 2.1118E-03_JPRB,3.3009E-03_JPRB,3.5298E-03_JPRB,3.5548E-03_JPRB,3.4369E-03_JPRB,3.1821E-03_JPRB,&
1139
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.8194E-03_JPRB,2.3141E-03_JPRB,1.4442E-03_JPRB,1.3285E-02_JPRB/)
1140 KAO( :, 1,12, 5) = (/&
1141 & 5.6477E-04_JPRB,9.5054E-04_JPRB,1.0327E-03_JPRB,1.0546E-03_JPRB,1.0374E-03_JPRB,9.8870E-04_JPRB,&
1142
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 9.0992E-04_JPRB,8.0701E-04_JPRB,6.7076E-04_JPRB,9.4607E-03_JPRB/)
1143 KAO( :, 2,12, 5) = (/&
1144 & 7.5728E-04_JPRB,1.2785E-03_JPRB,1.3875E-03_JPRB,1.4113E-03_JPRB,1.3782E-03_JPRB,1.2986E-03_JPRB,&
1145
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.1731E-03_JPRB,1.0074E-03_JPRB,7.2589E-04_JPRB,1.0331E-02_JPRB/)
1146 KAO( :, 3,12, 5) = (/&
1147 & 1.0261E-03_JPRB,1.6921E-03_JPRB,1.8295E-03_JPRB,1.8570E-03_JPRB,1.8051E-03_JPRB,1.6888E-03_JPRB,&
1148
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.5086E-03_JPRB,1.2626E-03_JPRB,8.4339E-04_JPRB,1.1368E-02_JPRB/)
1149 KAO( :, 4,12, 5) = (/&
1150 & 1.3869E-03_JPRB,2.2095E-03_JPRB,2.3736E-03_JPRB,2.4008E-03_JPRB,2.3247E-03_JPRB,2.1615E-03_JPRB,&
1151
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.9167E-03_JPRB,1.5821E-03_JPRB,9.6809E-04_JPRB,1.2545E-02_JPRB/)
1152 KAO( :, 5,12, 5) = (/&
1153 & 1.8434E-03_JPRB,2.8588E-03_JPRB,3.0424E-03_JPRB,3.0524E-03_JPRB,2.9442E-03_JPRB,2.7194E-03_JPRB,&
1154
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.4068E-03_JPRB,1.9656E-03_JPRB,1.2057E-03_JPRB,1.3846E-02_JPRB/)
1155 KAO( :, 1,13, 5) = (/&
1156 & 4.7278E-04_JPRB,7.9552E-04_JPRB,8.6502E-04_JPRB,8.8337E-04_JPRB,8.6881E-04_JPRB,8.2802E-04_JPRB,&
1157
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.6164E-04_JPRB,6.7146E-04_JPRB,5.4706E-04_JPRB,7.8912E-03_JPRB/)
1158 KAO( :, 2,13, 5) = (/&
1159 & 6.4178E-04_JPRB,1.0759E-03_JPRB,1.1686E-03_JPRB,1.1883E-03_JPRB,1.1601E-03_JPRB,1.0935E-03_JPRB,&
1160
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 9.8725E-04_JPRB,8.4294E-04_JPRB,6.0294E-04_JPRB,8.6805E-03_JPRB/)
1161 KAO( :, 3,13, 5) = (/&
1162 & 8.7757E-04_JPRB,1.4325E-03_JPRB,1.5486E-03_JPRB,1.5698E-03_JPRB,1.5267E-03_JPRB,1.4283E-03_JPRB,&
1163
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.2744E-03_JPRB,1.0604E-03_JPRB,6.9497E-04_JPRB,9.6337E-03_JPRB/)
1164 KAO( :, 4,13, 5) = (/&
1165 & 1.1912E-03_JPRB,1.8857E-03_JPRB,2.0225E-03_JPRB,2.0388E-03_JPRB,1.9725E-03_JPRB,1.8334E-03_JPRB,&
1166
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.6247E-03_JPRB,1.3326E-03_JPRB,8.0026E-04_JPRB,1.0694E-02_JPRB/)
1167 KAO( :, 5,13, 5) = (/&
1168 & 1.5846E-03_JPRB,2.4545E-03_JPRB,2.6070E-03_JPRB,2.6093E-03_JPRB,2.5111E-03_JPRB,2.3151E-03_JPRB,&
1169
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.0441E-03_JPRB,1.6606E-03_JPRB,1.0091E-03_JPRB,1.1828E-02_JPRB/)
1170 KAO( :, 1, 1, 6) = (/&
1171 & 2.7778E-02_JPRB,3.3405E-02_JPRB,3.5267E-02_JPRB,3.6006E-02_JPRB,3.5898E-02_JPRB,3.4553E-02_JPRB,&
1172
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.1100E-02_JPRB,2.5014E-02_JPRB,1.8094E-02_JPRB,1.6794E-02_JPRB/)
1173 KAO( :, 2, 1, 6) = (/&
1174 & 3.3366E-02_JPRB,4.0235E-02_JPRB,4.2608E-02_JPRB,4.3370E-02_JPRB,4.2914E-02_JPRB,4.1247E-02_JPRB,&
1175
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.7064E-02_JPRB,2.9946E-02_JPRB,2.1940E-02_JPRB,2.0091E-02_JPRB/)
1176 KAO( :, 3, 1, 6) = (/&
1177 & 3.9476E-02_JPRB,4.7919E-02_JPRB,5.0670E-02_JPRB,5.1321E-02_JPRB,5.0664E-02_JPRB,4.8610E-02_JPRB,&
1178
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.3793E-02_JPRB,3.5486E-02_JPRB,2.6228E-02_JPRB,2.3816E-02_JPRB/)
1179 KAO( :, 4, 1, 6) = (/&
1180 & 4.6165E-02_JPRB,5.6406E-02_JPRB,5.9353E-02_JPRB,6.0117E-02_JPRB,5.9468E-02_JPRB,5.6918E-02_JPRB,&
1181
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.1329E-02_JPRB,4.1643E-02_JPRB,3.1155E-02_JPRB,2.8224E-02_JPRB/)
1182 KAO( :, 5, 1, 6) = (/&
1183 & 5.3590E-02_JPRB,6.5676E-02_JPRB,6.8956E-02_JPRB,6.9882E-02_JPRB,6.9299E-02_JPRB,6.6139E-02_JPRB,&
1184
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.9733E-02_JPRB,4.8638E-02_JPRB,3.6701E-02_JPRB,3.3219E-02_JPRB/)
1185 KAO( :, 1, 2, 6) = (/&
1186 & 2.2559E-02_JPRB,2.7654E-02_JPRB,2.9015E-02_JPRB,2.9337E-02_JPRB,2.9078E-02_JPRB,2.7937E-02_JPRB,&
1187
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.5189E-02_JPRB,2.0404E-02_JPRB,1.4144E-02_JPRB,1.2909E-02_JPRB/)
1188 KAO( :, 2, 2, 6) = (/&
1189 & 2.7361E-02_JPRB,3.3523E-02_JPRB,3.5340E-02_JPRB,3.5540E-02_JPRB,3.5037E-02_JPRB,3.3575E-02_JPRB,&
1190
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.0234E-02_JPRB,2.4558E-02_JPRB,1.7358E-02_JPRB,1.5458E-02_JPRB/)
1191 KAO( :, 3, 2, 6) = (/&
1192 & 3.2702E-02_JPRB,4.0222E-02_JPRB,4.2266E-02_JPRB,4.2370E-02_JPRB,4.1690E-02_JPRB,3.9887E-02_JPRB,&
1193
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.5945E-02_JPRB,2.9242E-02_JPRB,2.0872E-02_JPRB,1.8389E-02_JPRB/)
1194 KAO( :, 4, 2, 6) = (/&
1195 & 3.8698E-02_JPRB,4.7703E-02_JPRB,4.9874E-02_JPRB,5.0037E-02_JPRB,4.9234E-02_JPRB,4.7000E-02_JPRB,&
1196
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.2355E-02_JPRB,3.4462E-02_JPRB,2.4936E-02_JPRB,2.1874E-02_JPRB/)
1197 KAO( :, 5, 2, 6) = (/&
1198 & 4.5406E-02_JPRB,5.5864E-02_JPRB,5.8250E-02_JPRB,5.8611E-02_JPRB,5.7701E-02_JPRB,5.4940E-02_JPRB,&
1199
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.9541E-02_JPRB,4.0425E-02_JPRB,2.9498E-02_JPRB,2.5824E-02_JPRB/)
1200 KAO( :, 1, 3, 6) = (/&
1201 & 1.7492E-02_JPRB,2.1787E-02_JPRB,2.2652E-02_JPRB,2.2750E-02_JPRB,2.2453E-02_JPRB,2.1534E-02_JPRB,&
1202
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.9495E-02_JPRB,1.5819E-02_JPRB,1.0602E-02_JPRB,9.5365E-03_JPRB/)
1203 KAO( :, 2, 3, 6) = (/&
1204 & 2.1519E-02_JPRB,2.6731E-02_JPRB,2.7902E-02_JPRB,2.7864E-02_JPRB,2.7355E-02_JPRB,2.6151E-02_JPRB,&
1205
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.3624E-02_JPRB,1.9184E-02_JPRB,1.3144E-02_JPRB,1.1427E-02_JPRB/)
1206 KAO( :, 3, 3, 6) = (/&
1207 & 2.6104E-02_JPRB,3.2391E-02_JPRB,3.3736E-02_JPRB,3.3545E-02_JPRB,3.2846E-02_JPRB,3.1374E-02_JPRB,&
1208
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.8297E-02_JPRB,2.2996E-02_JPRB,1.5964E-02_JPRB,1.3632E-02_JPRB/)
1209 KAO( :, 4, 3, 6) = (/&
1210 & 3.1327E-02_JPRB,3.8767E-02_JPRB,4.0227E-02_JPRB,3.9993E-02_JPRB,3.9114E-02_JPRB,3.7263E-02_JPRB,&
1211
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.3562E-02_JPRB,2.7293E-02_JPRB,1.9234E-02_JPRB,1.6283E-02_JPRB/)
1212 KAO( :, 5, 3, 6) = (/&
1213 & 3.7182E-02_JPRB,4.5791E-02_JPRB,4.7452E-02_JPRB,4.7270E-02_JPRB,4.6211E-02_JPRB,4.3900E-02_JPRB,&
1214
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.9502E-02_JPRB,3.2188E-02_JPRB,2.2900E-02_JPRB,1.9326E-02_JPRB/)
1215 KAO( :, 1, 4, 6) = (/&
1216 & 1.3291E-02_JPRB,1.6678E-02_JPRB,1.7275E-02_JPRB,1.7278E-02_JPRB,1.6993E-02_JPRB,1.6286E-02_JPRB,&
1217
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.4822E-02_JPRB,1.1990E-02_JPRB,7.7579E-03_JPRB,7.1488E-03_JPRB/)
1218 KAO( :, 2, 4, 6) = (/&
1219 & 1.6630E-02_JPRB,2.0815E-02_JPRB,2.1568E-02_JPRB,2.1440E-02_JPRB,2.0973E-02_JPRB,2.0006E-02_JPRB,&
1220
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.8126E-02_JPRB,1.4654E-02_JPRB,9.8329E-03_JPRB,8.5205E-03_JPRB/)
1221 KAO( :, 3, 4, 6) = (/&
1222 & 2.0444E-02_JPRB,2.5553E-02_JPRB,2.6397E-02_JPRB,2.6132E-02_JPRB,2.5471E-02_JPRB,2.4223E-02_JPRB,&
1223
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.1910E-02_JPRB,1.7722E-02_JPRB,1.2155E-02_JPRB,1.0148E-02_JPRB/)
1224 KAO( :, 4, 4, 6) = (/&
1225 & 2.4887E-02_JPRB,3.0959E-02_JPRB,3.1847E-02_JPRB,3.1469E-02_JPRB,3.0641E-02_JPRB,2.9051E-02_JPRB,&
1226
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.6190E-02_JPRB,2.1212E-02_JPRB,1.4767E-02_JPRB,1.2110E-02_JPRB/)
1227 KAO( :, 5, 4, 6) = (/&
1228 & 2.9912E-02_JPRB,3.7010E-02_JPRB,3.8031E-02_JPRB,3.7546E-02_JPRB,3.6509E-02_JPRB,3.4523E-02_JPRB,&
1229
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.1009E-02_JPRB,2.5164E-02_JPRB,1.7705E-02_JPRB,1.4427E-02_JPRB/)
1230 KAO( :, 1, 5, 6) = (/&
1231 & 1.0066E-02_JPRB,1.2668E-02_JPRB,1.3071E-02_JPRB,1.3029E-02_JPRB,1.2765E-02_JPRB,1.2217E-02_JPRB,&
1232
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.1148E-02_JPRB,9.0021E-03_JPRB,5.7587E-03_JPRB,5.4209E-03_JPRB/)
1233 KAO( :, 2, 5, 6) = (/&
1234 & 1.2757E-02_JPRB,1.6015E-02_JPRB,1.6544E-02_JPRB,1.6397E-02_JPRB,1.5990E-02_JPRB,1.5234E-02_JPRB,&
1235
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.3789E-02_JPRB,1.1105E-02_JPRB,7.3967E-03_JPRB,6.5046E-03_JPRB/)
1236 KAO( :, 3, 5, 6) = (/&
1237 & 1.5901E-02_JPRB,1.9963E-02_JPRB,2.0508E-02_JPRB,2.0254E-02_JPRB,1.9682E-02_JPRB,1.8644E-02_JPRB,&
1238
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.6821E-02_JPRB,1.3552E-02_JPRB,9.2356E-03_JPRB,7.7811E-03_JPRB/)
1239 KAO( :, 4, 5, 6) = (/&
1240 & 1.9596E-02_JPRB,2.4499E-02_JPRB,2.5082E-02_JPRB,2.4696E-02_JPRB,2.3936E-02_JPRB,2.2580E-02_JPRB,&
1241
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.0269E-02_JPRB,1.6344E-02_JPRB,1.1321E-02_JPRB,9.3163E-03_JPRB/)
1242 KAO( :, 5, 5, 6) = (/&
1243 & 2.3830E-02_JPRB,2.9650E-02_JPRB,3.0334E-02_JPRB,2.9811E-02_JPRB,2.8792E-02_JPRB,2.7070E-02_JPRB,&
1244
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.4166E-02_JPRB,1.9536E-02_JPRB,1.3665E-02_JPRB,1.1111E-02_JPRB/)
1245 KAO( :, 1, 6, 6) = (/&
1246 & 7.6087E-03_JPRB,9.4951E-03_JPRB,9.7649E-03_JPRB,9.6943E-03_JPRB,9.4691E-03_JPRB,9.0311E-03_JPRB,&
1247
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.2249E-03_JPRB,6.6528E-03_JPRB,4.3378E-03_JPRB,4.2627E-03_JPRB/)
1248 KAO( :, 2, 6, 6) = (/&
1249 & 9.7029E-03_JPRB,1.2146E-02_JPRB,1.2495E-02_JPRB,1.2394E-02_JPRB,1.2047E-02_JPRB,1.1438E-02_JPRB,&
1250
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.0329E-02_JPRB,8.2946E-03_JPRB,5.4267E-03_JPRB,5.0549E-03_JPRB/)
1251 KAO( :, 3, 6, 6) = (/&
1252 & 1.2241E-02_JPRB,1.5353E-02_JPRB,1.5729E-02_JPRB,1.5534E-02_JPRB,1.5039E-02_JPRB,1.4188E-02_JPRB,&
1253
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.2727E-02_JPRB,1.0218E-02_JPRB,6.8803E-03_JPRB,6.0223E-03_JPRB/)
1254 KAO( :, 4, 6, 6) = (/&
1255 & 1.5222E-02_JPRB,1.9088E-02_JPRB,1.9504E-02_JPRB,1.9213E-02_JPRB,1.8550E-02_JPRB,1.7379E-02_JPRB,&
1256
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.5483E-02_JPRB,1.2434E-02_JPRB,8.5170E-03_JPRB,7.2084E-03_JPRB/)
1257 KAO( :, 5, 6, 6) = (/&
1258 & 1.8677E-02_JPRB,2.3384E-02_JPRB,2.3892E-02_JPRB,2.3510E-02_JPRB,2.2581E-02_JPRB,2.1034E-02_JPRB,&
1259
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.8630E-02_JPRB,1.4980E-02_JPRB,1.0415E-02_JPRB,8.6059E-03_JPRB/)
1260 KAO( :, 1, 7, 6) = (/&
1261 & 5.7827E-03_JPRB,7.1313E-03_JPRB,7.2802E-03_JPRB,7.2045E-03_JPRB,6.9954E-03_JPRB,6.6269E-03_JPRB,&
1262
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.0097E-03_JPRB,4.8731E-03_JPRB,3.1264E-03_JPRB,3.7137E-03_JPRB/)
1263 KAO( :, 2, 7, 6) = (/&
1264 & 7.4084E-03_JPRB,9.1887E-03_JPRB,9.4000E-03_JPRB,9.3096E-03_JPRB,9.0304E-03_JPRB,8.5190E-03_JPRB,&
1265
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.6733E-03_JPRB,6.1525E-03_JPRB,3.9263E-03_JPRB,4.3944E-03_JPRB/)
1266 KAO( :, 3, 7, 6) = (/&
1267 & 9.4040E-03_JPRB,1.1717E-02_JPRB,1.1976E-02_JPRB,1.1835E-02_JPRB,1.1434E-02_JPRB,1.0726E-02_JPRB,&
1268
2/2
✓ Branch 0 taken 10 times.
✓ Branch 1 taken 1 times.
11 & 9.5804E-03_JPRB,7.6627E-03_JPRB,5.0656E-03_JPRB,5.1961E-03_JPRB/)
1269
1270
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART4',1,ZHOOK_HANDLE)
1271 1 END SUBROUTINE PART4
1272
1273
1274 1 SUBROUTINE PART5
1275
1276 REAL(KIND=JPRB) :: ZHOOK_HANDLE
1277
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART5',0,ZHOOK_HANDLE)
1278
1279
1280 KAO( :, 4, 7, 6) = (/&
1281 & 1.1772E-02_JPRB,1.4730E-02_JPRB,1.5048E-02_JPRB,1.4854E-02_JPRB,1.4302E-02_JPRB,1.3320E-02_JPRB,&
1282
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.1779E-02_JPRB,9.4074E-03_JPRB,6.3725E-03_JPRB,6.1249E-03_JPRB/)
1283 KAO( :, 5, 7, 6) = (/&
1284 & 1.4533E-02_JPRB,1.8234E-02_JPRB,1.8652E-02_JPRB,1.8417E-02_JPRB,1.7654E-02_JPRB,1.6319E-02_JPRB,&
1285
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.4317E-02_JPRB,1.1422E-02_JPRB,7.8881E-03_JPRB,7.1931E-03_JPRB/)
1286 KAO( :, 1, 8, 6) = (/&
1287 & 4.3473E-03_JPRB,5.3530E-03_JPRB,5.4453E-03_JPRB,5.3772E-03_JPRB,5.1866E-03_JPRB,4.8647E-03_JPRB,&
1288
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.3808E-03_JPRB,3.5559E-03_JPRB,2.4173E-03_JPRB,3.5108E-03_JPRB/)
1289 KAO( :, 2, 8, 6) = (/&
1290 & 5.6534E-03_JPRB,6.9608E-03_JPRB,7.0942E-03_JPRB,6.9933E-03_JPRB,6.7489E-03_JPRB,6.3330E-03_JPRB,&
1291
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.6745E-03_JPRB,4.5520E-03_JPRB,2.9081E-03_JPRB,4.1180E-03_JPRB/)
1292 KAO( :, 3, 8, 6) = (/&
1293 & 7.2231E-03_JPRB,8.9492E-03_JPRB,9.1155E-03_JPRB,8.9772E-03_JPRB,8.6519E-03_JPRB,8.0865E-03_JPRB,&
1294
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.1842E-03_JPRB,5.7298E-03_JPRB,3.7126E-03_JPRB,4.8510E-03_JPRB/)
1295 KAO( :, 4, 8, 6) = (/&
1296 & 9.0980E-03_JPRB,1.1325E-02_JPRB,1.1554E-02_JPRB,1.1402E-02_JPRB,1.0960E-02_JPRB,1.0182E-02_JPRB,&
1297
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.9521E-03_JPRB,7.1103E-03_JPRB,4.7399E-03_JPRB,5.6880E-03_JPRB/)
1298 KAO( :, 5, 8, 6) = (/&
1299 & 1.1302E-02_JPRB,1.4121E-02_JPRB,1.4457E-02_JPRB,1.4302E-02_JPRB,1.3709E-02_JPRB,1.2644E-02_JPRB,&
1300
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.1007E-02_JPRB,8.6993E-03_JPRB,5.9281E-03_JPRB,6.6436E-03_JPRB/)
1301 KAO( :, 1, 9, 6) = (/&
1302 & 3.2166E-03_JPRB,3.9635E-03_JPRB,4.0421E-03_JPRB,3.9936E-03_JPRB,3.8441E-03_JPRB,3.5923E-03_JPRB,&
1303
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.2097E-03_JPRB,2.5886E-03_JPRB,1.7693E-03_JPRB,5.0615E-03_JPRB/)
1304 KAO( :, 2, 9, 6) = (/&
1305 & 4.2551E-03_JPRB,5.2496E-03_JPRB,5.3431E-03_JPRB,5.2633E-03_JPRB,5.0543E-03_JPRB,4.7090E-03_JPRB,&
1306
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.1979E-03_JPRB,3.3556E-03_JPRB,2.0811E-03_JPRB,5.7517E-03_JPRB/)
1307 KAO( :, 3, 9, 6) = (/&
1308 & 5.5178E-03_JPRB,6.8310E-03_JPRB,6.9481E-03_JPRB,6.8181E-03_JPRB,6.5340E-03_JPRB,6.0733E-03_JPRB,&
1309
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.3775E-03_JPRB,4.2779E-03_JPRB,2.6744E-03_JPRB,6.5436E-03_JPRB/)
1310 KAO( :, 4, 9, 6) = (/&
1311 & 7.0233E-03_JPRB,8.7120E-03_JPRB,8.8693E-03_JPRB,8.7209E-03_JPRB,8.3514E-03_JPRB,7.7376E-03_JPRB,&
1312
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.7992E-03_JPRB,5.3653E-03_JPRB,3.4836E-03_JPRB,7.4458E-03_JPRB/)
1313 KAO( :, 5, 9, 6) = (/&
1314 & 8.7908E-03_JPRB,1.0935E-02_JPRB,1.1156E-02_JPRB,1.1011E-02_JPRB,1.0551E-02_JPRB,9.7377E-03_JPRB,&
1315
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.4643E-03_JPRB,6.6157E-03_JPRB,4.4105E-03_JPRB,8.4131E-03_JPRB/)
1316 KAO( :, 1,10, 6) = (/&
1317 & 2.4036E-03_JPRB,2.9626E-03_JPRB,3.0270E-03_JPRB,2.9891E-03_JPRB,2.8783E-03_JPRB,2.6966E-03_JPRB,&
1318
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.4167E-03_JPRB,1.9384E-03_JPRB,1.2950E-03_JPRB,1.2580E-02_JPRB/)
1319 KAO( :, 2,10, 6) = (/&
1320 & 3.2304E-03_JPRB,3.9936E-03_JPRB,4.0696E-03_JPRB,4.0063E-03_JPRB,3.8441E-03_JPRB,3.5817E-03_JPRB,&
1321
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.1841E-03_JPRB,2.5258E-03_JPRB,1.6318E-03_JPRB,1.3867E-02_JPRB/)
1322 KAO( :, 3,10, 6) = (/&
1323 & 4.2450E-03_JPRB,5.2713E-03_JPRB,5.3717E-03_JPRB,5.2683E-03_JPRB,5.0339E-03_JPRB,4.6625E-03_JPRB,&
1324
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.1091E-03_JPRB,3.2509E-03_JPRB,2.0065E-03_JPRB,1.5204E-02_JPRB/)
1325 KAO( :, 4,10, 6) = (/&
1326 & 5.4744E-03_JPRB,6.8064E-03_JPRB,6.9238E-03_JPRB,6.7912E-03_JPRB,6.4905E-03_JPRB,5.9838E-03_JPRB,&
1327
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.2439E-03_JPRB,4.1188E-03_JPRB,2.6002E-03_JPRB,1.6652E-02_JPRB/)
1328 KAO( :, 5,10, 6) = (/&
1329 & 6.9353E-03_JPRB,8.6079E-03_JPRB,8.7635E-03_JPRB,8.6181E-03_JPRB,8.2349E-03_JPRB,7.5886E-03_JPRB,&
1330
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.5994E-03_JPRB,5.1192E-03_JPRB,3.3239E-03_JPRB,1.8251E-02_JPRB/)
1331 KAO( :, 1,11, 6) = (/&
1332 & 2.0648E-03_JPRB,2.5481E-03_JPRB,2.6000E-03_JPRB,2.5607E-03_JPRB,2.4630E-03_JPRB,2.3069E-03_JPRB,&
1333
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.0692E-03_JPRB,1.6562E-03_JPRB,1.0860E-03_JPRB,1.7049E-02_JPRB/)
1334 KAO( :, 2,11, 6) = (/&
1335 & 2.7859E-03_JPRB,3.4547E-03_JPRB,3.5237E-03_JPRB,3.4594E-03_JPRB,3.3142E-03_JPRB,3.0841E-03_JPRB,&
1336
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.7345E-03_JPRB,2.1584E-03_JPRB,1.3341E-03_JPRB,1.8747E-02_JPRB/)
1337 KAO( :, 3,11, 6) = (/&
1338 & 3.6773E-03_JPRB,4.5764E-03_JPRB,4.6633E-03_JPRB,4.5751E-03_JPRB,4.3721E-03_JPRB,4.0405E-03_JPRB,&
1339
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.5419E-03_JPRB,2.7771E-03_JPRB,1.6730E-03_JPRB,2.0460E-02_JPRB/)
1340 KAO( :, 4,11, 6) = (/&
1341 & 4.7645E-03_JPRB,5.9262E-03_JPRB,6.0301E-03_JPRB,5.9104E-03_JPRB,5.6462E-03_JPRB,5.2017E-03_JPRB,&
1342
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.5306E-03_JPRB,3.5163E-03_JPRB,2.1775E-03_JPRB,2.2225E-02_JPRB/)
1343 KAO( :, 5,11, 6) = (/&
1344 & 6.0673E-03_JPRB,7.5194E-03_JPRB,7.6592E-03_JPRB,7.5146E-03_JPRB,7.1608E-03_JPRB,6.5750E-03_JPRB,&
1345
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.6954E-03_JPRB,4.3877E-03_JPRB,2.7878E-03_JPRB,2.4112E-02_JPRB/)
1346 KAO( :, 1,12, 6) = (/&
1347 & 1.7649E-03_JPRB,2.1840E-03_JPRB,2.2273E-03_JPRB,2.1894E-03_JPRB,2.1029E-03_JPRB,1.9647E-03_JPRB,&
1348
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.7570E-03_JPRB,1.4092E-03_JPRB,9.0612E-04_JPRB,1.8116E-02_JPRB/)
1349 KAO( :, 2,12, 6) = (/&
1350 & 2.3911E-03_JPRB,2.9721E-03_JPRB,3.0306E-03_JPRB,2.9776E-03_JPRB,2.8514E-03_JPRB,2.6450E-03_JPRB,&
1351
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.3351E-03_JPRB,1.8424E-03_JPRB,1.0968E-03_JPRB,1.9929E-02_JPRB/)
1352 KAO( :, 3,12, 6) = (/&
1353 & 3.1732E-03_JPRB,3.9503E-03_JPRB,4.0215E-03_JPRB,3.9440E-03_JPRB,3.7721E-03_JPRB,3.4863E-03_JPRB,&
1354
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.0465E-03_JPRB,2.3738E-03_JPRB,1.3931E-03_JPRB,2.1707E-02_JPRB/)
1355 KAO( :, 4,12, 6) = (/&
1356 & 4.1329E-03_JPRB,5.1374E-03_JPRB,5.2226E-03_JPRB,5.1161E-03_JPRB,4.8827E-03_JPRB,4.4950E-03_JPRB,&
1357
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.9019E-03_JPRB,3.0106E-03_JPRB,1.8199E-03_JPRB,2.3542E-02_JPRB/)
1358 KAO( :, 5,12, 6) = (/&
1359 & 5.2972E-03_JPRB,6.5406E-03_JPRB,6.6636E-03_JPRB,6.5319E-03_JPRB,6.2060E-03_JPRB,5.6779E-03_JPRB,&
1360
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.9006E-03_JPRB,3.7653E-03_JPRB,2.3340E-03_JPRB,2.5478E-02_JPRB/)
1361 KAO( :, 1,13, 6) = (/&
1362 & 1.4917E-03_JPRB,1.8531E-03_JPRB,1.8920E-03_JPRB,1.8620E-03_JPRB,1.7861E-03_JPRB,1.6617E-03_JPRB,&
1363
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.4788E-03_JPRB,1.1873E-03_JPRB,7.5550E-04_JPRB,1.5444E-02_JPRB/)
1364 KAO( :, 2,13, 6) = (/&
1365 & 2.0333E-03_JPRB,2.5348E-03_JPRB,2.5838E-03_JPRB,2.5408E-03_JPRB,2.4328E-03_JPRB,2.2514E-03_JPRB,&
1366
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.9783E-03_JPRB,1.5611E-03_JPRB,9.0187E-04_JPRB,1.7015E-02_JPRB/)
1367 KAO( :, 3,13, 6) = (/&
1368 & 2.7153E-03_JPRB,3.3873E-03_JPRB,3.4439E-03_JPRB,3.3763E-03_JPRB,3.2264E-03_JPRB,2.9750E-03_JPRB,&
1369
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.5932E-03_JPRB,2.0239E-03_JPRB,1.1597E-03_JPRB,1.8564E-02_JPRB/)
1370 KAO( :, 4,13, 6) = (/&
1371 & 3.5625E-03_JPRB,4.4244E-03_JPRB,4.4971E-03_JPRB,4.4025E-03_JPRB,4.1909E-03_JPRB,3.8436E-03_JPRB,&
1372
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.3277E-03_JPRB,2.5719E-03_JPRB,1.5159E-03_JPRB,2.0176E-02_JPRB/)
1373 KAO( :, 5,13, 6) = (/&
1374 & 4.5915E-03_JPRB,5.6599E-03_JPRB,5.7629E-03_JPRB,5.6406E-03_JPRB,5.3423E-03_JPRB,4.8700E-03_JPRB,&
1375
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.1907E-03_JPRB,3.2171E-03_JPRB,1.9497E-03_JPRB,2.1913E-02_JPRB/)
1376 KAO( :, 1, 1, 7) = (/&
1377 & 6.4013E-02_JPRB,7.3559E-02_JPRB,7.8016E-02_JPRB,7.8110E-02_JPRB,7.4963E-02_JPRB,6.8933E-02_JPRB,&
1378
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.0750E-02_JPRB,4.8875E-02_JPRB,3.9308E-02_JPRB,3.6560E-02_JPRB/)
1379 KAO( :, 2, 1, 7) = (/&
1380 & 7.6363E-02_JPRB,8.7960E-02_JPRB,9.3559E-02_JPRB,9.3979E-02_JPRB,9.0734E-02_JPRB,8.3349E-02_JPRB,&
1381
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.3192E-02_JPRB,5.8774E-02_JPRB,4.7441E-02_JPRB,4.4036E-02_JPRB/)
1382 KAO( :, 3, 1, 7) = (/&
1383 & 8.9758E-02_JPRB,1.0331E-01_JPRB,1.1051E-01_JPRB,1.1169E-01_JPRB,1.0769E-01_JPRB,9.8679E-02_JPRB,&
1384
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.6726E-02_JPRB,6.9819E-02_JPRB,5.6655E-02_JPRB,5.2675E-02_JPRB/)
1385 KAO( :, 4, 1, 7) = (/&
1386 & 1.0433E-01_JPRB,1.2008E-01_JPRB,1.2928E-01_JPRB,1.3105E-01_JPRB,1.2576E-01_JPRB,1.1544E-01_JPRB,&
1387
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.0166E-01_JPRB,8.2241E-02_JPRB,6.7142E-02_JPRB,6.2520E-02_JPRB/)
1388 KAO( :, 5, 1, 7) = (/&
1389 & 1.2001E-01_JPRB,1.3824E-01_JPRB,1.4932E-01_JPRB,1.5158E-01_JPRB,1.4526E-01_JPRB,1.3374E-01_JPRB,&
1390
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.1804E-01_JPRB,9.5951E-02_JPRB,7.9016E-02_JPRB,7.3734E-02_JPRB/)
1391 KAO( :, 1, 2, 7) = (/&
1392 & 5.2968E-02_JPRB,6.2116E-02_JPRB,6.5835E-02_JPRB,6.6044E-02_JPRB,6.3294E-02_JPRB,5.8161E-02_JPRB,&
1393
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.1176E-02_JPRB,4.1393E-02_JPRB,3.1133E-02_JPRB,2.8255E-02_JPRB/)
1394 KAO( :, 2, 2, 7) = (/&
1395 & 6.3728E-02_JPRB,7.4899E-02_JPRB,7.9536E-02_JPRB,8.0057E-02_JPRB,7.7101E-02_JPRB,7.0839E-02_JPRB,&
1396
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.2175E-02_JPRB,5.0108E-02_JPRB,3.7798E-02_JPRB,3.4182E-02_JPRB/)
1397 KAO( :, 3, 2, 7) = (/&
1398 & 7.5532E-02_JPRB,8.8572E-02_JPRB,9.4648E-02_JPRB,9.5700E-02_JPRB,9.1973E-02_JPRB,8.4443E-02_JPRB,&
1399
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.4085E-02_JPRB,5.9918E-02_JPRB,4.5429E-02_JPRB,4.1069E-02_JPRB/)
1400 KAO( :, 4, 2, 7) = (/&
1401 & 8.8404E-02_JPRB,1.0356E-01_JPRB,1.1124E-01_JPRB,1.1259E-01_JPRB,1.0798E-01_JPRB,9.9246E-02_JPRB,&
1402
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.7373E-02_JPRB,7.0993E-02_JPRB,5.4110E-02_JPRB,4.8926E-02_JPRB/)
1403 KAO( :, 5, 2, 7) = (/&
1404 & 1.0235E-01_JPRB,1.2010E-01_JPRB,1.2926E-01_JPRB,1.3064E-01_JPRB,1.2537E-01_JPRB,1.1556E-01_JPRB,&
1405
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.0208E-01_JPRB,8.3206E-02_JPRB,6.4030E-02_JPRB,5.7947E-02_JPRB/)
1406 KAO( :, 1, 3, 7) = (/&
1407 & 4.1735E-02_JPRB,4.9803E-02_JPRB,5.2741E-02_JPRB,5.2657E-02_JPRB,5.0249E-02_JPRB,4.6113E-02_JPRB,&
1408
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.0588E-02_JPRB,3.2986E-02_JPRB,2.3522E-02_JPRB,2.0886E-02_JPRB/)
1409 KAO( :, 2, 3, 7) = (/&
1410 & 5.0841E-02_JPRB,6.0757E-02_JPRB,6.4389E-02_JPRB,6.4564E-02_JPRB,6.1844E-02_JPRB,5.6795E-02_JPRB,&
1411
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.9854E-02_JPRB,4.0407E-02_JPRB,2.8855E-02_JPRB,2.5442E-02_JPRB/)
1412 KAO( :, 3, 3, 7) = (/&
1413 & 6.0889E-02_JPRB,7.2603E-02_JPRB,7.7334E-02_JPRB,7.7876E-02_JPRB,7.4574E-02_JPRB,6.8388E-02_JPRB,&
1414
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.0037E-02_JPRB,4.8827E-02_JPRB,3.5004E-02_JPRB,3.0751E-02_JPRB/)
1415 KAO( :, 4, 3, 7) = (/&
1416 & 7.1992E-02_JPRB,8.5675E-02_JPRB,9.1634E-02_JPRB,9.2233E-02_JPRB,8.8356E-02_JPRB,8.1063E-02_JPRB,&
1417
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.1397E-02_JPRB,5.8371E-02_JPRB,4.1972E-02_JPRB,3.6821E-02_JPRB/)
1418 KAO( :, 5, 3, 7) = (/&
1419 & 8.4144E-02_JPRB,1.0019E-01_JPRB,1.0713E-01_JPRB,1.0774E-01_JPRB,1.0345E-01_JPRB,9.5140E-02_JPRB,&
1420
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.4076E-02_JPRB,6.8896E-02_JPRB,4.9944E-02_JPRB,4.3832E-02_JPRB/)
1421 KAO( :, 1, 4, 7) = (/&
1422 & 3.2154E-02_JPRB,3.8970E-02_JPRB,4.1150E-02_JPRB,4.0802E-02_JPRB,3.8734E-02_JPRB,3.5463E-02_JPRB,&
1423
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.1189E-02_JPRB,2.5441E-02_JPRB,1.7426E-02_JPRB,1.5348E-02_JPRB/)
1424 KAO( :, 2, 4, 7) = (/&
1425 & 3.9739E-02_JPRB,4.8115E-02_JPRB,5.0846E-02_JPRB,5.0567E-02_JPRB,4.8188E-02_JPRB,4.4146E-02_JPRB,&
1426
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.8765E-02_JPRB,3.1629E-02_JPRB,2.1722E-02_JPRB,1.8824E-02_JPRB/)
1427 KAO( :, 3, 4, 7) = (/&
1428 & 4.8232E-02_JPRB,5.8202E-02_JPRB,6.1786E-02_JPRB,6.1691E-02_JPRB,5.8769E-02_JPRB,5.3800E-02_JPRB,&
1429
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.7237E-02_JPRB,3.8627E-02_JPRB,2.6596E-02_JPRB,2.2906E-02_JPRB/)
1430 KAO( :, 4, 4, 7) = (/&
1431 & 5.7693E-02_JPRB,6.9403E-02_JPRB,7.3912E-02_JPRB,7.3801E-02_JPRB,7.0370E-02_JPRB,6.4487E-02_JPRB,&
1432
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.6733E-02_JPRB,4.6604E-02_JPRB,3.2157E-02_JPRB,2.7582E-02_JPRB/)
1433 KAO( :, 5, 4, 7) = (/&
1434 & 6.8162E-02_JPRB,8.1910E-02_JPRB,8.6943E-02_JPRB,8.6947E-02_JPRB,8.3116E-02_JPRB,7.6355E-02_JPRB,&
1435
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.7389E-02_JPRB,5.5474E-02_JPRB,3.8506E-02_JPRB,3.2984E-02_JPRB/)
1436 KAO( :, 1, 5, 7) = (/&
1437 & 2.4543E-02_JPRB,3.0114E-02_JPRB,3.1564E-02_JPRB,3.1114E-02_JPRB,2.9453E-02_JPRB,2.6887E-02_JPRB,&
1438
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.3575E-02_JPRB,1.9323E-02_JPRB,1.2795E-02_JPRB,1.1691E-02_JPRB/)
1439 KAO( :, 2, 5, 7) = (/&
1440 & 3.0843E-02_JPRB,3.7719E-02_JPRB,3.9540E-02_JPRB,3.9065E-02_JPRB,3.7079E-02_JPRB,3.3845E-02_JPRB,&
1441
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.9679E-02_JPRB,2.4367E-02_JPRB,1.6282E-02_JPRB,1.4283E-02_JPRB/)
1442 KAO( :, 3, 5, 7) = (/&
1443 & 3.7989E-02_JPRB,4.6141E-02_JPRB,4.8601E-02_JPRB,4.8164E-02_JPRB,4.5691E-02_JPRB,4.1697E-02_JPRB,&
1444
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.6599E-02_JPRB,3.0110E-02_JPRB,2.0230E-02_JPRB,1.7316E-02_JPRB/)
1445 KAO( :, 4, 5, 7) = (/&
1446 & 4.5997E-02_JPRB,5.5639E-02_JPRB,5.8738E-02_JPRB,5.8217E-02_JPRB,5.5293E-02_JPRB,5.0551E-02_JPRB,&
1447
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.4474E-02_JPRB,3.6675E-02_JPRB,2.4679E-02_JPRB,2.0824E-02_JPRB/)
1448 KAO( :, 5, 5, 7) = (/&
1449 & 5.4980E-02_JPRB,6.6335E-02_JPRB,6.9689E-02_JPRB,6.9220E-02_JPRB,6.5934E-02_JPRB,6.0477E-02_JPRB,&
1450
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.3356E-02_JPRB,4.4023E-02_JPRB,2.9735E-02_JPRB,2.4925E-02_JPRB/)
1451 KAO( :, 1, 6, 7) = (/&
1452 & 1.8426E-02_JPRB,2.2761E-02_JPRB,2.3641E-02_JPRB,2.3226E-02_JPRB,2.1929E-02_JPRB,1.9968E-02_JPRB,&
1453
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.7467E-02_JPRB,1.4347E-02_JPRB,9.1807E-03_JPRB,8.8441E-03_JPRB/)
1454 KAO( :, 2, 6, 7) = (/&
1455 & 2.3578E-02_JPRB,2.9032E-02_JPRB,3.0133E-02_JPRB,2.9606E-02_JPRB,2.7996E-02_JPRB,2.5495E-02_JPRB,&
1456
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.2298E-02_JPRB,1.8363E-02_JPRB,1.2129E-02_JPRB,1.0950E-02_JPRB/)
1457 KAO( :, 3, 6, 7) = (/&
1458 & 2.9507E-02_JPRB,3.6047E-02_JPRB,3.7508E-02_JPRB,3.6913E-02_JPRB,3.4886E-02_JPRB,3.1786E-02_JPRB,&
1459
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.7844E-02_JPRB,2.2965E-02_JPRB,1.5292E-02_JPRB,1.3409E-02_JPRB/)
1460 KAO( :, 4, 6, 7) = (/&
1461 & 3.6266E-02_JPRB,4.4015E-02_JPRB,4.5865E-02_JPRB,4.5103E-02_JPRB,4.2675E-02_JPRB,3.8982E-02_JPRB,&
1462
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.4261E-02_JPRB,2.8279E-02_JPRB,1.8853E-02_JPRB,1.6214E-02_JPRB/)
1463 KAO( :, 5, 6, 7) = (/&
1464 & 4.3984E-02_JPRB,5.3041E-02_JPRB,5.5017E-02_JPRB,5.4129E-02_JPRB,5.1429E-02_JPRB,4.7161E-02_JPRB,&
1465
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.1564E-02_JPRB,3.4270E-02_JPRB,2.2882E-02_JPRB,1.9446E-02_JPRB/)
1466 KAO( :, 1, 7, 7) = (/&
1467 & 1.3764E-02_JPRB,1.6980E-02_JPRB,1.7488E-02_JPRB,1.7108E-02_JPRB,1.6106E-02_JPRB,1.4660E-02_JPRB,&
1468
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.2811E-02_JPRB,1.0508E-02_JPRB,6.5858E-03_JPRB,7.3979E-03_JPRB/)
1469 KAO( :, 2, 7, 7) = (/&
1470 & 1.7905E-02_JPRB,2.2049E-02_JPRB,2.2708E-02_JPRB,2.2213E-02_JPRB,2.0912E-02_JPRB,1.9015E-02_JPRB,&
1471
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.6594E-02_JPRB,1.3616E-02_JPRB,8.9925E-03_JPRB,8.9127E-03_JPRB/)
1472 KAO( :, 3, 7, 7) = (/&
1473 & 2.2781E-02_JPRB,2.7834E-02_JPRB,2.8707E-02_JPRB,2.8089E-02_JPRB,2.6436E-02_JPRB,2.4036E-02_JPRB,&
1474
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.1001E-02_JPRB,1.7243E-02_JPRB,1.1550E-02_JPRB,1.0727E-02_JPRB/)
1475 KAO( :, 4, 7, 7) = (/&
1476 & 2.8466E-02_JPRB,3.4473E-02_JPRB,3.5499E-02_JPRB,3.4681E-02_JPRB,3.2695E-02_JPRB,2.9803E-02_JPRB,&
1477
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.6138E-02_JPRB,2.1504E-02_JPRB,1.4432E-02_JPRB,1.2888E-02_JPRB/)
1478 KAO( :, 5, 7, 7) = (/&
1479 & 3.5087E-02_JPRB,4.2091E-02_JPRB,4.3096E-02_JPRB,4.2057E-02_JPRB,3.9781E-02_JPRB,3.6456E-02_JPRB,&
1480
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.2089E-02_JPRB,2.6356E-02_JPRB,1.7665E-02_JPRB,1.5419E-02_JPRB/)
1481 KAO( :, 1, 8, 7) = (/&
1482 & 1.0353E-02_JPRB,1.2614E-02_JPRB,1.2882E-02_JPRB,1.2507E-02_JPRB,1.1737E-02_JPRB,1.0675E-02_JPRB,&
1483
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 9.3093E-03_JPRB,7.6257E-03_JPRB,4.6116E-03_JPRB,7.3615E-03_JPRB/)
1484 KAO( :, 2, 8, 7) = (/&
1485 & 1.3587E-02_JPRB,1.6625E-02_JPRB,1.6988E-02_JPRB,1.6539E-02_JPRB,1.5521E-02_JPRB,1.4075E-02_JPRB,&
1486
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.2252E-02_JPRB,1.0008E-02_JPRB,6.5742E-03_JPRB,8.8183E-03_JPRB/)
1487 KAO( :, 3, 8, 7) = (/&
1488 & 1.7551E-02_JPRB,2.1310E-02_JPRB,2.1821E-02_JPRB,2.1262E-02_JPRB,1.9937E-02_JPRB,1.8066E-02_JPRB,&
1489
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.5721E-02_JPRB,1.2839E-02_JPRB,8.6653E-03_JPRB,1.0458E-02_JPRB/)
1490 KAO( :, 4, 8, 7) = (/&
1491 & 2.2265E-02_JPRB,2.6814E-02_JPRB,2.7357E-02_JPRB,2.6600E-02_JPRB,2.4976E-02_JPRB,2.2670E-02_JPRB,&
1492
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.9796E-02_JPRB,1.6193E-02_JPRB,1.0979E-02_JPRB,1.2332E-02_JPRB/)
1493 KAO( :, 5, 8, 7) = (/&
1494 & 2.7862E-02_JPRB,3.3218E-02_JPRB,3.3662E-02_JPRB,3.2634E-02_JPRB,3.0703E-02_JPRB,2.8021E-02_JPRB,&
1495
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.4581E-02_JPRB,2.0102E-02_JPRB,1.3589E-02_JPRB,1.4413E-02_JPRB/)
1496 KAO( :, 1, 9, 7) = (/&
1497 & 7.8781E-03_JPRB,9.4357E-03_JPRB,9.5082E-03_JPRB,9.1567E-03_JPRB,8.5455E-03_JPRB,7.7115E-03_JPRB,&
1498
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.6987E-03_JPRB,5.4668E-03_JPRB,3.2375E-03_JPRB,1.0690E-02_JPRB/)
1499 KAO( :, 2, 9, 7) = (/&
1500 & 1.0378E-02_JPRB,1.2532E-02_JPRB,1.2692E-02_JPRB,1.2260E-02_JPRB,1.1450E-02_JPRB,1.0342E-02_JPRB,&
1501
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.9582E-03_JPRB,7.2956E-03_JPRB,4.7236E-03_JPRB,1.2330E-02_JPRB/)
1502 KAO( :, 3, 9, 7) = (/&
1503 & 1.3495E-02_JPRB,1.6270E-02_JPRB,1.6516E-02_JPRB,1.6000E-02_JPRB,1.4955E-02_JPRB,1.3485E-02_JPRB,&
1504
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.1675E-02_JPRB,9.4744E-03_JPRB,6.3929E-03_JPRB,1.4160E-02_JPRB/)
1505 KAO( :, 4, 9, 7) = (/&
1506 & 1.7315E-02_JPRB,2.0761E-02_JPRB,2.1026E-02_JPRB,2.0326E-02_JPRB,1.9009E-02_JPRB,1.7164E-02_JPRB,&
1507
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.4884E-02_JPRB,1.2091E-02_JPRB,8.2532E-03_JPRB,1.6229E-02_JPRB/)
1508 KAO( :, 5, 9, 7) = (/&
1509 & 2.1950E-02_JPRB,2.6079E-02_JPRB,2.6242E-02_JPRB,2.5301E-02_JPRB,2.3645E-02_JPRB,2.1443E-02_JPRB,&
1510
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.8684E-02_JPRB,1.5203E-02_JPRB,1.0361E-02_JPRB,1.8623E-02_JPRB/)
1511 KAO( :, 1,10, 7) = (/&
1512 & 6.0912E-03_JPRB,7.2618E-03_JPRB,7.2497E-03_JPRB,6.9368E-03_JPRB,6.4251E-03_JPRB,5.7381E-03_JPRB,&
1513
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.9224E-03_JPRB,3.9870E-03_JPRB,2.3279E-03_JPRB,2.4406E-02_JPRB/)
1514 KAO( :, 2,10, 7) = (/&
1515 & 8.1237E-03_JPRB,9.7061E-03_JPRB,9.7375E-03_JPRB,9.3388E-03_JPRB,8.6591E-03_JPRB,7.7505E-03_JPRB,&
1516
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.6642E-03_JPRB,5.3997E-03_JPRB,3.3513E-03_JPRB,2.6559E-02_JPRB/)
1517 KAO( :, 3,10, 7) = (/&
1518 & 1.0643E-02_JPRB,1.2680E-02_JPRB,1.2767E-02_JPRB,1.2292E-02_JPRB,1.1416E-02_JPRB,1.0235E-02_JPRB,&
1519
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.8042E-03_JPRB,7.1077E-03_JPRB,4.7423E-03_JPRB,2.9166E-02_JPRB/)
1520 KAO( :, 4,10, 7) = (/&
1521 & 1.3745E-02_JPRB,1.6327E-02_JPRB,1.6432E-02_JPRB,1.5803E-02_JPRB,1.4680E-02_JPRB,1.3196E-02_JPRB,&
1522
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.1368E-02_JPRB,9.1591E-03_JPRB,6.2576E-03_JPRB,3.2140E-02_JPRB/)
1523 KAO( :, 5,10, 7) = (/&
1524 & 1.7515E-02_JPRB,2.0726E-02_JPRB,2.0778E-02_JPRB,1.9936E-02_JPRB,1.8503E-02_JPRB,1.6679E-02_JPRB,&
1525
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.4419E-02_JPRB,1.1642E-02_JPRB,7.9656E-03_JPRB,3.5445E-02_JPRB/)
1526 KAO( :, 1,11, 7) = (/&
1527 & 5.3549E-03_JPRB,6.3816E-03_JPRB,6.3660E-03_JPRB,6.0840E-03_JPRB,5.6156E-03_JPRB,4.9825E-03_JPRB,&
1528
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.2303E-03_JPRB,3.3795E-03_JPRB,1.9749E-03_JPRB,3.2367E-02_JPRB/)
1529 KAO( :, 2,11, 7) = (/&
1530 & 7.2013E-03_JPRB,8.5604E-03_JPRB,8.5532E-03_JPRB,8.1763E-03_JPRB,7.5421E-03_JPRB,6.6997E-03_JPRB,&
1531
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.7065E-03_JPRB,4.5729E-03_JPRB,2.8632E-03_JPRB,3.5196E-02_JPRB/)
1532 KAO( :, 3,11, 7) = (/&
1533 & 9.5022E-03_JPRB,1.1202E-02_JPRB,1.1204E-02_JPRB,1.0716E-02_JPRB,9.9000E-03_JPRB,8.8230E-03_JPRB,&
1534
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.5394E-03_JPRB,6.0331E-03_JPRB,4.0236E-03_JPRB,3.8638E-02_JPRB/)
1535 KAO( :, 4,11, 7) = (/&
1536 & 1.2288E-02_JPRB,1.4432E-02_JPRB,1.4424E-02_JPRB,1.3791E-02_JPRB,1.2735E-02_JPRB,1.1387E-02_JPRB,&
1537
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 9.7608E-03_JPRB,7.8103E-03_JPRB,5.3234E-03_JPRB,4.2507E-02_JPRB/)
1538 KAO( :, 5,11, 7) = (/&
1539 & 1.5567E-02_JPRB,1.8295E-02_JPRB,1.8261E-02_JPRB,1.7460E-02_JPRB,1.6145E-02_JPRB,1.4469E-02_JPRB,&
1540
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.2448E-02_JPRB,9.9477E-03_JPRB,6.7800E-03_JPRB,4.6703E-02_JPRB/)
1541 KAO( :, 1,12, 7) = (/&
1542 & 4.6610E-03_JPRB,5.5454E-03_JPRB,5.5315E-03_JPRB,5.2838E-03_JPRB,4.8759E-03_JPRB,4.3254E-03_JPRB,&
1543
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.6583E-03_JPRB,2.8821E-03_JPRB,1.6681E-03_JPRB,3.4347E-02_JPRB/)
1544 KAO( :, 2,12, 7) = (/&
1545 & 6.3285E-03_JPRB,7.4864E-03_JPRB,7.4682E-03_JPRB,7.1266E-03_JPRB,6.5590E-03_JPRB,5.8111E-03_JPRB,&
1546
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.9232E-03_JPRB,3.8901E-03_JPRB,2.4263E-03_JPRB,3.7723E-02_JPRB/)
1547 KAO( :, 3,12, 7) = (/&
1548 & 8.4114E-03_JPRB,9.8725E-03_JPRB,9.8303E-03_JPRB,9.3562E-03_JPRB,8.6044E-03_JPRB,7.6370E-03_JPRB,&
1549
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 6.4946E-03_JPRB,5.1447E-03_JPRB,3.4144E-03_JPRB,4.1645E-02_JPRB/)
1550 KAO( :, 4,12, 7) = (/&
1551 & 1.0877E-02_JPRB,1.2730E-02_JPRB,1.2662E-02_JPRB,1.2056E-02_JPRB,1.1093E-02_JPRB,9.8741E-03_JPRB,&
1552
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 8.4352E-03_JPRB,6.6865E-03_JPRB,4.5146E-03_JPRB,4.5836E-02_JPRB/)
1553 KAO( :, 5,12, 7) = (/&
1554 & 1.3747E-02_JPRB,1.6074E-02_JPRB,1.5983E-02_JPRB,1.5257E-02_JPRB,1.4098E-02_JPRB,1.2612E-02_JPRB,&
1555
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.0799E-02_JPRB,8.5347E-03_JPRB,5.7461E-03_JPRB,5.0295E-02_JPRB/)
1556 KAO( :, 1,13, 7) = (/&
1557 & 4.0079E-03_JPRB,4.7560E-03_JPRB,4.7417E-03_JPRB,4.5251E-03_JPRB,4.1763E-03_JPRB,3.7162E-03_JPRB,&
1558
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 3.1488E-03_JPRB,2.4610E-03_JPRB,1.3983E-03_JPRB,2.9797E-02_JPRB/)
1559 KAO( :, 2,13, 7) = (/&
1560 & 5.4975E-03_JPRB,6.4791E-03_JPRB,6.4467E-03_JPRB,6.1399E-03_JPRB,5.6502E-03_JPRB,5.0140E-03_JPRB,&
1561
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 4.2451E-03_JPRB,3.3175E-03_JPRB,2.0465E-03_JPRB,3.3074E-02_JPRB/)
1562 KAO( :, 3,13, 7) = (/&
1563 & 7.3173E-03_JPRB,8.5913E-03_JPRB,8.5377E-03_JPRB,8.1192E-03_JPRB,7.4539E-03_JPRB,6.6075E-03_JPRB,&
1564
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 5.6063E-03_JPRB,4.3940E-03_JPRB,2.8772E-03_JPRB,3.6709E-02_JPRB/)
1565 KAO( :, 4,13, 7) = (/&
1566 & 9.4743E-03_JPRB,1.1090E-02_JPRB,1.1002E-02_JPRB,1.0468E-02_JPRB,9.6356E-03_JPRB,8.5792E-03_JPRB,&
1567
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.2993E-03_JPRB,5.7314E-03_JPRB,3.8025E-03_JPRB,4.0547E-02_JPRB/)
1568 KAO( :, 5,13, 7) = (/&
1569 & 1.2013E-02_JPRB,1.3994E-02_JPRB,1.3879E-02_JPRB,1.3228E-02_JPRB,1.2234E-02_JPRB,1.0964E-02_JPRB,&
1570
2/2
✓ Branch 0 taken 10 times.
✓ Branch 1 taken 1 times.
11 & 9.3662E-03_JPRB,7.3363E-03_JPRB,4.8412E-03_JPRB,4.4593E-02_JPRB/)
1571
1572
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART5',1,ZHOOK_HANDLE)
1573 1 END SUBROUTINE PART5
1574
1575
1576 1 SUBROUTINE PART6
1577
1578 REAL(KIND=JPRB) :: ZHOOK_HANDLE
1579
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART6',0,ZHOOK_HANDLE)
1580
1581
1582 KAO( :, 1, 1, 8) = (/&
1583 & 1.6043E-01_JPRB,1.5955E-01_JPRB,1.5744E-01_JPRB,1.5203E-01_JPRB,1.4391E-01_JPRB,1.3266E-01_JPRB,&
1584
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.1826E-01_JPRB,1.0647E-01_JPRB,1.0371E-01_JPRB,1.0144E-01_JPRB/)
1585 KAO( :, 2, 1, 8) = (/&
1586 & 1.9219E-01_JPRB,1.9200E-01_JPRB,1.8944E-01_JPRB,1.8309E-01_JPRB,1.7324E-01_JPRB,1.6054E-01_JPRB,&
1587
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.4443E-01_JPRB,1.3095E-01_JPRB,1.2672E-01_JPRB,1.2410E-01_JPRB/)
1588 KAO( :, 3, 1, 8) = (/&
1589 & 2.2629E-01_JPRB,2.2700E-01_JPRB,2.2424E-01_JPRB,2.1719E-01_JPRB,2.0625E-01_JPRB,1.9280E-01_JPRB,&
1590
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.7410E-01_JPRB,1.5851E-01_JPRB,1.5238E-01_JPRB,1.4924E-01_JPRB/)
1591 KAO( :, 4, 1, 8) = (/&
1592 & 2.6302E-01_JPRB,2.6487E-01_JPRB,2.6214E-01_JPRB,2.5470E-01_JPRB,2.4371E-01_JPRB,2.2882E-01_JPRB,&
1593
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.0692E-01_JPRB,1.8914E-01_JPRB,1.8098E-01_JPRB,1.7748E-01_JPRB/)
1594 KAO( :, 5, 1, 8) = (/&
1595 & 3.0195E-01_JPRB,3.0538E-01_JPRB,3.0299E-01_JPRB,2.9584E-01_JPRB,2.8471E-01_JPRB,2.6793E-01_JPRB,&
1596
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.4285E-01_JPRB,2.2301E-01_JPRB,2.1336E-01_JPRB,2.0952E-01_JPRB/)
1597 KAO( :, 1, 2, 8) = (/&
1598 & 1.3846E-01_JPRB,1.4022E-01_JPRB,1.4003E-01_JPRB,1.3582E-01_JPRB,1.2900E-01_JPRB,1.1965E-01_JPRB,&
1599
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.0668E-01_JPRB,9.1059E-02_JPRB,8.5585E-02_JPRB,8.1636E-02_JPRB/)
1600 KAO( :, 2, 2, 8) = (/&
1601 & 1.6715E-01_JPRB,1.6985E-01_JPRB,1.6971E-01_JPRB,1.6484E-01_JPRB,1.5668E-01_JPRB,1.4564E-01_JPRB,&
1602
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.3093E-01_JPRB,1.1285E-01_JPRB,1.0555E-01_JPRB,1.0079E-01_JPRB/)
1603 KAO( :, 3, 2, 8) = (/&
1604 & 1.9803E-01_JPRB,2.0244E-01_JPRB,2.0211E-01_JPRB,1.9690E-01_JPRB,1.8801E-01_JPRB,1.7558E-01_JPRB,&
1605
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.5851E-01_JPRB,1.3719E-01_JPRB,1.2761E-01_JPRB,1.2193E-01_JPRB/)
1606 KAO( :, 4, 2, 8) = (/&
1607 & 2.3133E-01_JPRB,2.3777E-01_JPRB,2.3782E-01_JPRB,2.3254E-01_JPRB,2.2351E-01_JPRB,2.0946E-01_JPRB,&
1608
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.8890E-01_JPRB,1.6397E-01_JPRB,1.5196E-01_JPRB,1.4557E-01_JPRB/)
1609 KAO( :, 5, 2, 8) = (/&
1610 & 2.6711E-01_JPRB,2.7542E-01_JPRB,2.7668E-01_JPRB,2.7185E-01_JPRB,2.6232E-01_JPRB,2.4621E-01_JPRB,&
1611
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 2.2197E-01_JPRB,1.9371E-01_JPRB,1.7953E-01_JPRB,1.7231E-01_JPRB/)
1612 KAO( :, 1, 3, 8) = (/&
1613 & 1.1272E-01_JPRB,1.1648E-01_JPRB,1.1742E-01_JPRB,1.1452E-01_JPRB,1.0929E-01_JPRB,1.0158E-01_JPRB,&
1614
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 9.0376E-02_JPRB,7.4637E-02_JPRB,6.6429E-02_JPRB,6.1506E-02_JPRB/)
1615 KAO( :, 2, 3, 8) = (/&
1616 & 1.3749E-01_JPRB,1.4273E-01_JPRB,1.4386E-01_JPRB,1.4052E-01_JPRB,1.3417E-01_JPRB,1.2510E-01_JPRB,&
1617
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.1193E-01_JPRB,9.3361E-02_JPRB,8.2893E-02_JPRB,7.6819E-02_JPRB/)
1618 KAO( :, 3, 3, 8) = (/&
1619 & 1.6469E-01_JPRB,1.7179E-01_JPRB,1.7314E-01_JPRB,1.6944E-01_JPRB,1.6261E-01_JPRB,1.5216E-01_JPRB,&
1620
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.3674E-01_JPRB,1.1431E-01_JPRB,1.0110E-01_JPRB,9.3702E-02_JPRB/)
1621 KAO( :, 4, 3, 8) = (/&
1622 & 1.9422E-01_JPRB,2.0356E-01_JPRB,2.0555E-01_JPRB,2.0203E-01_JPRB,1.9491E-01_JPRB,1.8285E-01_JPRB,&
1623
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.6414E-01_JPRB,1.3754E-01_JPRB,1.2151E-01_JPRB,1.1286E-01_JPRB/)
1624 KAO( :, 5, 3, 8) = (/&
1625 & 2.2623E-01_JPRB,2.3781E-01_JPRB,2.4116E-01_JPRB,2.3829E-01_JPRB,2.3049E-01_JPRB,2.1610E-01_JPRB,&
1626
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.9397E-01_JPRB,1.6347E-01_JPRB,1.4442E-01_JPRB,1.3449E-01_JPRB/)
1627 KAO( :, 1, 4, 8) = (/&
1628 & 8.9051E-02_JPRB,9.4148E-02_JPRB,9.5376E-02_JPRB,9.3490E-02_JPRB,8.9564E-02_JPRB,8.3123E-02_JPRB,&
1629
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 7.3825E-02_JPRB,6.0440E-02_JPRB,5.0018E-02_JPRB,4.5241E-02_JPRB/)
1630 KAO( :, 2, 4, 8) = (/&
1631 & 1.0984E-01_JPRB,1.1667E-01_JPRB,1.1837E-01_JPRB,1.1624E-01_JPRB,1.1142E-01_JPRB,1.0383E-01_JPRB,&
1632
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 9.2686E-02_JPRB,7.6384E-02_JPRB,6.3307E-02_JPRB,5.7158E-02_JPRB/)
1633 KAO( :, 3, 4, 8) = (/&
1634 & 1.3321E-01_JPRB,1.4188E-01_JPRB,1.4403E-01_JPRB,1.4173E-01_JPRB,1.3641E-01_JPRB,1.2779E-01_JPRB,&
1635
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.1439E-01_JPRB,9.4375E-02_JPRB,7.8066E-02_JPRB,7.0497E-02_JPRB/)
1636 KAO( :, 4, 4, 8) = (/&
1637 & 1.5891E-01_JPRB,1.6984E-01_JPRB,1.7265E-01_JPRB,1.7069E-01_JPRB,1.6497E-01_JPRB,1.5505E-01_JPRB,&
1638
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.3862E-01_JPRB,1.1439E-01_JPRB,9.4690E-02_JPRB,8.5635E-02_JPRB/)
1639 KAO( :, 5, 4, 8) = (/&
1640 & 1.8690E-01_JPRB,2.0031E-01_JPRB,2.0459E-01_JPRB,2.0306E-01_JPRB,1.9673E-01_JPRB,1.8463E-01_JPRB,&
1641
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 10 times.
11 & 1.6524E-01_JPRB,1.3669E-01_JPRB,1.1330E-01_JPRB,1.0289E-01_JPRB/)
1642 KAO( :, 1, 5, 8) = (/&
1643 & 6.9203E-02_JPRB,7.4779E-02_JPRB,7.5983E-02_JPRB,7.4840E-02_JPRB,7.1567E-02_JPRB,6.6398E-02_JPRB,&
1644
2/2
✓ Branch 0 taken 1