GCC Code Coverage Report


Directory: ./
File: rad/rrtm_kgb12.f90
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 1129 1129 100.0%
Branches: 2156 2182 98.8%

Line Branch Exec Source
1 !OCL SCALAR
2 !pgi$r opt=0
3 1 SUBROUTINE RRTM_KGB12
4
5 ! Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
6 ! BAND 12: 1800-2080 cm-1 (low - H2O,CO2; high - nothing)
7 ! Reformatted for F90 by JJMorcrette, ECMWF
8 ! R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
9
10 ! ------------------------------------------------------------------
11
12 USE PARKIND1 ,ONLY : JPRB
13 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK
14
15 USE YOERRTO12, ONLY : KAO ,SELFREFO ,FRACREFAO
16 USE YOERRTA12, ONLY : STRRAT
17
18 ! ------------------------------------------------------------------
19
20 IMPLICIT NONE
21 REAL(KIND=JPRB) :: ZHOOK_HANDLE
22
23
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB12',0,ZHOOK_HANDLE)
24
25 1 CALL PART1
26 1 CALL PART2
27 1 CALL PART3
28 1 CALL PART4
29 1 CALL PART5
30 1 CALL PART6
31 1 CALL PART7
32 1 CALL PART8
33 1 CALL PART9
34 1 CALL PART10
35 1 CALL PART11
36 1 CALL PART12
37
38
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB12',1,ZHOOK_HANDLE)
39
40 ! -----------------------------------------------------------------
41
42 CONTAINS
43
44
45 1 SUBROUTINE PART1
46
47 REAL(KIND=JPRB) :: ZHOOK_HANDLE
48
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART1',0,ZHOOK_HANDLE)
49
50
51 1 STRRAT = 0.009736757_JPRB
52
53 ! ------------------------------------------------------------------
54
55 ! The array KAO contains absorption coefs at the 16 chosen g-values
56 ! for a range of pressure levels> ~100mb, temperatures, and binary
57 ! species parameters (see taumol.f for definition). The first
58 ! index in the array, JS, runs from 1 to 9, and corresponds to
59 ! different values of the binary species parameter. For instance,
60 ! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8,
61 ! JS = 3 corresponds to the parameter value 2/8, etc. The second index
62 ! in the array, JT, which runs from 1 to 5, corresponds to different
63 ! temperatures. More specifically, JT = 3 means that the data are for
64 ! the reference temperature TREF for this pressure level, JT = 2 refers
65 ! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
66 ! is for TREF+30. The third index, JP, runs from 1 to 13 and refers
67 ! to the JPth reference pressure level (see taumol.f for these levels
68 ! in mb). The fourth index, IG, goes from 1 to 16, and indicates
69 ! which g-interval the absorption coefficients are for.
70
71 KAO( :, 1, 1, 1) = (/&
72 & 1.1071E-04_JPRB,1.7190E-03_JPRB,2.1297E-03_JPRB,2.2974E-03_JPRB,2.3638E-03_JPRB,2.3377E-03_JPRB,&
73
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2182E-03_JPRB,1.9598E-03_JPRB,6.0644E-04_JPRB/)
74 KAO( :, 2, 1, 1) = (/&
75 & 1.1961E-04_JPRB,1.8523E-03_JPRB,2.3139E-03_JPRB,2.5087E-03_JPRB,2.5832E-03_JPRB,2.5507E-03_JPRB,&
76
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.4226E-03_JPRB,2.1400E-03_JPRB,6.6787E-04_JPRB/)
77 KAO( :, 3, 1, 1) = (/&
78 & 1.2897E-04_JPRB,1.9814E-03_JPRB,2.4904E-03_JPRB,2.7224E-03_JPRB,2.7992E-03_JPRB,2.7616E-03_JPRB,&
79
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6285E-03_JPRB,2.3297E-03_JPRB,7.4226E-04_JPRB/)
80 KAO( :, 4, 1, 1) = (/&
81 & 1.3900E-04_JPRB,2.1069E-03_JPRB,2.6619E-03_JPRB,2.9256E-03_JPRB,3.0085E-03_JPRB,2.9760E-03_JPRB,&
82
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8383E-03_JPRB,2.5269E-03_JPRB,8.2019E-04_JPRB/)
83 KAO( :, 5, 1, 1) = (/&
84 & 1.4980E-04_JPRB,2.2307E-03_JPRB,2.8258E-03_JPRB,3.1153E-03_JPRB,3.2140E-03_JPRB,3.1919E-03_JPRB,&
85
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.0529E-03_JPRB,2.7312E-03_JPRB,9.0306E-04_JPRB/)
86 KAO( :, 1, 2, 1) = (/&
87 & 9.5033E-05_JPRB,1.3952E-03_JPRB,1.7345E-03_JPRB,1.8757E-03_JPRB,1.9301E-03_JPRB,1.9088E-03_JPRB,&
88
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8109E-03_JPRB,1.6003E-03_JPRB,4.8147E-04_JPRB/)
89 KAO( :, 2, 2, 1) = (/&
90 & 1.0264E-04_JPRB,1.5043E-03_JPRB,1.8862E-03_JPRB,2.0524E-03_JPRB,2.1155E-03_JPRB,2.0891E-03_JPRB,&
91
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9828E-03_JPRB,1.7518E-03_JPRB,5.3179E-04_JPRB/)
92 KAO( :, 3, 2, 1) = (/&
93 & 1.1088E-04_JPRB,1.6110E-03_JPRB,2.0326E-03_JPRB,2.2296E-03_JPRB,2.2969E-03_JPRB,2.2672E-03_JPRB,&
94
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1565E-03_JPRB,1.9107E-03_JPRB,5.9063E-04_JPRB/)
95 KAO( :, 4, 2, 1) = (/&
96 & 1.1978E-04_JPRB,1.7142E-03_JPRB,2.1747E-03_JPRB,2.4004E-03_JPRB,2.4722E-03_JPRB,2.4486E-03_JPRB,&
97
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3338E-03_JPRB,2.0762E-03_JPRB,6.5252E-04_JPRB/)
98 KAO( :, 5, 2, 1) = (/&
99 & 1.2917E-04_JPRB,1.8168E-03_JPRB,2.3124E-03_JPRB,2.5589E-03_JPRB,2.6465E-03_JPRB,2.6314E-03_JPRB,&
100
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5162E-03_JPRB,2.2491E-03_JPRB,7.1928E-04_JPRB/)
101 KAO( :, 1, 3, 1) = (/&
102 & 7.9672E-05_JPRB,1.1113E-03_JPRB,1.3811E-03_JPRB,1.4950E-03_JPRB,1.5396E-03_JPRB,1.5237E-03_JPRB,&
103
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4450E-03_JPRB,1.2772E-03_JPRB,3.7750E-04_JPRB/)
104 KAO( :, 2, 3, 1) = (/&
105 & 8.5835E-05_JPRB,1.2012E-03_JPRB,1.5072E-03_JPRB,1.6412E-03_JPRB,1.6938E-03_JPRB,1.6765E-03_JPRB,&
106
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5878E-03_JPRB,1.4020E-03_JPRB,4.1693E-04_JPRB/)
107 KAO( :, 3, 3, 1) = (/&
108 & 9.2724E-05_JPRB,1.2894E-03_JPRB,1.6284E-03_JPRB,1.7887E-03_JPRB,1.8470E-03_JPRB,1.8261E-03_JPRB,&
109
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7328E-03_JPRB,1.5335E-03_JPRB,4.6226E-04_JPRB/)
110 KAO( :, 4, 3, 1) = (/&
111 & 1.0021E-04_JPRB,1.3753E-03_JPRB,1.7467E-03_JPRB,1.9334E-03_JPRB,1.9945E-03_JPRB,1.9763E-03_JPRB,&
112
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8807E-03_JPRB,1.6701E-03_JPRB,5.1131E-04_JPRB/)
113 KAO( :, 5, 3, 1) = (/&
114 & 1.0826E-04_JPRB,1.4602E-03_JPRB,1.8628E-03_JPRB,2.0684E-03_JPRB,2.1410E-03_JPRB,2.1291E-03_JPRB,&
115
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0333E-03_JPRB,1.8146E-03_JPRB,5.6359E-04_JPRB/)
116 KAO( :, 1, 4, 1) = (/&
117 & 6.6541E-05_JPRB,8.7720E-04_JPRB,1.0880E-03_JPRB,1.1789E-03_JPRB,1.2150E-03_JPRB,1.2040E-03_JPRB,&
118
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1429E-03_JPRB,1.0102E-03_JPRB,3.0065E-04_JPRB/)
119 KAO( :, 2, 4, 1) = (/&
120 & 7.1240E-05_JPRB,9.5116E-04_JPRB,1.1928E-03_JPRB,1.2997E-03_JPRB,1.3427E-03_JPRB,1.3311E-03_JPRB,&
121
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2602E-03_JPRB,1.1118E-03_JPRB,3.3112E-04_JPRB/)
122 KAO( :, 3, 4, 1) = (/&
123 & 7.6627E-05_JPRB,1.0246E-03_JPRB,1.2929E-03_JPRB,1.4214E-03_JPRB,1.4711E-03_JPRB,1.4559E-03_JPRB,&
124
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3800E-03_JPRB,1.2193E-03_JPRB,3.6623E-04_JPRB/)
125 KAO( :, 4, 4, 1) = (/&
126 & 8.2697E-05_JPRB,1.0967E-03_JPRB,1.3910E-03_JPRB,1.5434E-03_JPRB,1.5957E-03_JPRB,1.5801E-03_JPRB,&
127
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5019E-03_JPRB,1.3318E-03_JPRB,4.0479E-04_JPRB/)
128 KAO( :, 5, 4, 1) = (/&
129 & 8.9353E-05_JPRB,1.1675E-03_JPRB,1.4884E-03_JPRB,1.6584E-03_JPRB,1.7180E-03_JPRB,1.7064E-03_JPRB,&
130
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6273E-03_JPRB,1.4511E-03_JPRB,4.4590E-04_JPRB/)
131 KAO( :, 1, 5, 1) = (/&
132 & 5.5998E-05_JPRB,6.8983E-04_JPRB,8.5274E-04_JPRB,9.2493E-04_JPRB,9.5405E-04_JPRB,9.4771E-04_JPRB,&
133
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.0156E-04_JPRB,7.9782E-04_JPRB,2.4473E-04_JPRB/)
134 KAO( :, 2, 5, 1) = (/&
135 & 5.9569E-05_JPRB,7.5053E-04_JPRB,9.3935E-04_JPRB,1.0247E-03_JPRB,1.0592E-03_JPRB,1.0509E-03_JPRB,&
136
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.9609E-04_JPRB,8.7904E-04_JPRB,2.6874E-04_JPRB/)
137 KAO( :, 3, 5, 1) = (/&
138 & 6.3728E-05_JPRB,8.1164E-04_JPRB,1.0227E-03_JPRB,1.1245E-03_JPRB,1.1656E-03_JPRB,1.1550E-03_JPRB,&
139
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0939E-03_JPRB,9.6668E-04_JPRB,2.9631E-04_JPRB/)
140 KAO( :, 4, 5, 1) = (/&
141 & 6.8493E-05_JPRB,8.7191E-04_JPRB,1.1043E-03_JPRB,1.2254E-03_JPRB,1.2701E-03_JPRB,1.2575E-03_JPRB,&
142
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1938E-03_JPRB,1.0585E-03_JPRB,3.2693E-04_JPRB/)
143 KAO( :, 5, 5, 1) = (/&
144 & 7.3804E-05_JPRB,9.3124E-04_JPRB,1.1858E-03_JPRB,1.3231E-03_JPRB,1.3713E-03_JPRB,1.3618E-03_JPRB,&
145
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2967E-03_JPRB,1.1556E-03_JPRB,3.5959E-04_JPRB/)
146 KAO( :, 1, 6, 1) = (/&
147 & 4.7433E-05_JPRB,5.3952E-04_JPRB,6.6302E-04_JPRB,7.1941E-04_JPRB,7.4278E-04_JPRB,7.3993E-04_JPRB,&
148
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.0682E-04_JPRB,6.2737E-04_JPRB,2.0502E-04_JPRB/)
149 KAO( :, 2, 6, 1) = (/&
150 & 5.0194E-05_JPRB,5.8914E-04_JPRB,7.3430E-04_JPRB,8.0093E-04_JPRB,8.2839E-04_JPRB,8.2234E-04_JPRB,&
151
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.8161E-04_JPRB,6.9096E-04_JPRB,2.2413E-04_JPRB/)
152 KAO( :, 3, 6, 1) = (/&
153 & 5.3412E-05_JPRB,6.3967E-04_JPRB,8.0393E-04_JPRB,8.8246E-04_JPRB,9.1533E-04_JPRB,9.0872E-04_JPRB,&
154
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.6111E-04_JPRB,7.6158E-04_JPRB,2.4611E-04_JPRB/)
155 KAO( :, 4, 6, 1) = (/&
156 & 5.7167E-05_JPRB,6.9003E-04_JPRB,8.7186E-04_JPRB,9.6499E-04_JPRB,1.0025E-03_JPRB,9.9324E-04_JPRB,&
157
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.4228E-04_JPRB,8.3524E-04_JPRB,2.7084E-04_JPRB/)
158 KAO( :, 5, 6, 1) = (/&
159 & 6.1369E-05_JPRB,7.3991E-04_JPRB,9.3979E-04_JPRB,1.0473E-03_JPRB,1.0862E-03_JPRB,1.0788E-03_JPRB,&
160
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0266E-03_JPRB,9.1379E-04_JPRB,2.9720E-04_JPRB/)
161 KAO( :, 1, 7, 1) = (/&
162 & 4.0204E-05_JPRB,4.2071E-04_JPRB,5.1329E-04_JPRB,5.5704E-04_JPRB,5.7598E-04_JPRB,5.7560E-04_JPRB,&
163
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.5294E-04_JPRB,4.9311E-04_JPRB,1.8038E-04_JPRB/)
164 KAO( :, 2, 7, 1) = (/&
165 & 4.2409E-05_JPRB,4.6139E-04_JPRB,5.7116E-04_JPRB,6.2323E-04_JPRB,6.4451E-04_JPRB,6.4096E-04_JPRB,&
166
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.1142E-04_JPRB,5.4196E-04_JPRB,1.9582E-04_JPRB/)
167 KAO( :, 3, 7, 1) = (/&
168 & 4.4969E-05_JPRB,5.0267E-04_JPRB,6.2911E-04_JPRB,6.8938E-04_JPRB,7.1511E-04_JPRB,7.1073E-04_JPRB,&
169
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.7548E-04_JPRB,5.9790E-04_JPRB,2.1379E-04_JPRB/)
170 KAO( :, 4, 7, 1) = (/&
171 & 4.7926E-05_JPRB,5.4471E-04_JPRB,6.8586E-04_JPRB,7.5653E-04_JPRB,7.8682E-04_JPRB,7.8099E-04_JPRB,&
172
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.4115E-04_JPRB,6.5723E-04_JPRB,2.3382E-04_JPRB/)
173 KAO( :, 5, 7, 1) = (/&
174 & 5.1304E-05_JPRB,5.8645E-04_JPRB,7.4180E-04_JPRB,8.2446E-04_JPRB,8.5674E-04_JPRB,8.5104E-04_JPRB,&
175
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.0968E-04_JPRB,7.2033E-04_JPRB,2.5569E-04_JPRB/)
176 KAO( :, 1, 8, 1) = (/&
177 & 3.4404E-05_JPRB,3.2742E-04_JPRB,3.9628E-04_JPRB,4.3044E-04_JPRB,4.4582E-04_JPRB,4.4750E-04_JPRB,&
178
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.3255E-04_JPRB,3.8824E-04_JPRB,1.6140E-04_JPRB/)
179 KAO( :, 2, 8, 1) = (/&
180 & 3.6102E-05_JPRB,3.6078E-04_JPRB,4.4317E-04_JPRB,4.8349E-04_JPRB,5.0006E-04_JPRB,4.9874E-04_JPRB,&
181
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.7786E-04_JPRB,4.2529E-04_JPRB,1.7382E-04_JPRB/)
182 KAO( :, 3, 8, 1) = (/&
183 & 3.8232E-05_JPRB,3.9477E-04_JPRB,4.9069E-04_JPRB,5.3712E-04_JPRB,5.5703E-04_JPRB,5.5425E-04_JPRB,&
184
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.2840E-04_JPRB,4.6878E-04_JPRB,1.8872E-04_JPRB/)
185 KAO( :, 4, 8, 1) = (/&
186 & 4.0723E-05_JPRB,4.2935E-04_JPRB,5.3782E-04_JPRB,5.9167E-04_JPRB,6.1513E-04_JPRB,6.1219E-04_JPRB,&
187
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.8195E-04_JPRB,5.1637E-04_JPRB,2.0568E-04_JPRB/)
188 KAO( :, 5, 8, 1) = (/&
189 & 4.3533E-05_JPRB,4.6405E-04_JPRB,5.8430E-04_JPRB,6.4724E-04_JPRB,6.7394E-04_JPRB,6.6968E-04_JPRB,&
190
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.3735E-04_JPRB,5.6685E-04_JPRB,2.2475E-04_JPRB/)
191 KAO( :, 1, 9, 1) = (/&
192 & 2.9435E-05_JPRB,2.5407E-04_JPRB,3.0513E-04_JPRB,3.3154E-04_JPRB,3.4450E-04_JPRB,3.4770E-04_JPRB,&
193
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3823E-04_JPRB,3.0612E-04_JPRB,1.4904E-04_JPRB/)
194 KAO( :, 2, 9, 1) = (/&
195 & 3.0832E-05_JPRB,2.8156E-04_JPRB,3.4307E-04_JPRB,3.7395E-04_JPRB,3.8707E-04_JPRB,3.8740E-04_JPRB,&
196
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.7308E-04_JPRB,3.3384E-04_JPRB,1.6021E-04_JPRB/)
197 KAO( :, 3, 9, 1) = (/&
198 & 3.2541E-05_JPRB,3.0967E-04_JPRB,3.8142E-04_JPRB,4.1751E-04_JPRB,4.3262E-04_JPRB,4.3109E-04_JPRB,&
199
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.1241E-04_JPRB,3.6699E-04_JPRB,1.7304E-04_JPRB/)
200 KAO( :, 4, 9, 1) = (/&
201 & 3.4598E-05_JPRB,3.3815E-04_JPRB,4.2037E-04_JPRB,4.6162E-04_JPRB,4.7971E-04_JPRB,4.7802E-04_JPRB,&
202
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.5577E-04_JPRB,4.0458E-04_JPRB,1.8804E-04_JPRB/)
203 KAO( :, 5, 9, 1) = (/&
204 & 3.7007E-05_JPRB,3.6690E-04_JPRB,4.5921E-04_JPRB,5.0690E-04_JPRB,5.2823E-04_JPRB,5.2576E-04_JPRB,&
205
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.0057E-04_JPRB,4.4491E-04_JPRB,2.0554E-04_JPRB/)
206 KAO( :, 1,10, 1) = (/&
207 & 2.4927E-05_JPRB,1.9806E-04_JPRB,2.3689E-04_JPRB,2.5751E-04_JPRB,2.6867E-04_JPRB,2.7252E-04_JPRB,&
208
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6649E-04_JPRB,2.4340E-04_JPRB,1.3926E-04_JPRB/)
209 KAO( :, 2,10, 1) = (/&
210 & 2.6291E-05_JPRB,2.2099E-04_JPRB,2.6740E-04_JPRB,2.9137E-04_JPRB,3.0194E-04_JPRB,3.0327E-04_JPRB,&
211
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9342E-04_JPRB,2.6414E-04_JPRB,1.4846E-04_JPRB/)
212 KAO( :, 3,10, 1) = (/&
213 & 2.7951E-05_JPRB,2.4437E-04_JPRB,2.9848E-04_JPRB,3.2658E-04_JPRB,3.3827E-04_JPRB,3.3778E-04_JPRB,&
214
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2415E-04_JPRB,2.8946E-04_JPRB,1.5998E-04_JPRB/)
215 KAO( :, 4,10, 1) = (/&
216 & 2.9907E-05_JPRB,2.6821E-04_JPRB,3.3026E-04_JPRB,3.6237E-04_JPRB,3.7643E-04_JPRB,3.7538E-04_JPRB,&
217
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.5861E-04_JPRB,3.1891E-04_JPRB,1.7396E-04_JPRB/)
218 KAO( :, 5,10, 1) = (/&
219 & 3.2074E-05_JPRB,2.9213E-04_JPRB,3.6237E-04_JPRB,3.9914E-04_JPRB,4.1580E-04_JPRB,4.1475E-04_JPRB,&
220
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.9509E-04_JPRB,3.5105E-04_JPRB,1.9000E-04_JPRB/)
221 KAO( :, 1,11, 1) = (/&
222 & 2.1030E-05_JPRB,1.6262E-04_JPRB,1.9497E-04_JPRB,2.1213E-04_JPRB,2.2124E-04_JPRB,2.2434E-04_JPRB,&
223
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1945E-04_JPRB,2.0056E-04_JPRB,1.1989E-04_JPRB/)
224 KAO( :, 2,11, 1) = (/&
225 & 2.2215E-05_JPRB,1.8182E-04_JPRB,2.1979E-04_JPRB,2.3981E-04_JPRB,2.4860E-04_JPRB,2.4965E-04_JPRB,&
226
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.4153E-04_JPRB,2.1771E-04_JPRB,1.2772E-04_JPRB/)
227 KAO( :, 3,11, 1) = (/&
228 & 2.3854E-05_JPRB,2.0140E-04_JPRB,2.4523E-04_JPRB,2.6860E-04_JPRB,2.7834E-04_JPRB,2.7805E-04_JPRB,&
229
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6683E-04_JPRB,2.3853E-04_JPRB,1.3777E-04_JPRB/)
230 KAO( :, 4,11, 1) = (/&
231 & 2.5937E-05_JPRB,2.2145E-04_JPRB,2.7132E-04_JPRB,2.9797E-04_JPRB,3.0980E-04_JPRB,3.0914E-04_JPRB,&
232
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9535E-04_JPRB,2.6276E-04_JPRB,1.4975E-04_JPRB/)
233 KAO( :, 5,11, 1) = (/&
234 & 2.8200E-05_JPRB,2.4157E-04_JPRB,2.9784E-04_JPRB,3.2825E-04_JPRB,3.4224E-04_JPRB,3.4158E-04_JPRB,&
235
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2548E-04_JPRB,2.8921E-04_JPRB,1.6349E-04_JPRB/)
236 KAO( :, 1,12, 1) = (/&
237 & 1.7436E-05_JPRB,1.3336E-04_JPRB,1.6029E-04_JPRB,1.7464E-04_JPRB,1.8206E-04_JPRB,1.8451E-04_JPRB,&
238
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8046E-04_JPRB,1.6506E-04_JPRB,9.9378E-05_JPRB/)
239 KAO( :, 2,12, 1) = (/&
240 & 1.8421E-05_JPRB,1.4922E-04_JPRB,1.8056E-04_JPRB,1.9727E-04_JPRB,2.0452E-04_JPRB,2.0534E-04_JPRB,&
241
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9861E-04_JPRB,1.7923E-04_JPRB,1.0594E-04_JPRB/)
242 KAO( :, 3,12, 1) = (/&
243 & 1.9770E-05_JPRB,1.6546E-04_JPRB,2.0137E-04_JPRB,2.2080E-04_JPRB,2.2895E-04_JPRB,2.2873E-04_JPRB,&
244
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1950E-04_JPRB,1.9634E-04_JPRB,1.1437E-04_JPRB/)
245 KAO( :, 4,12, 1) = (/&
246 & 2.1532E-05_JPRB,1.8214E-04_JPRB,2.2278E-04_JPRB,2.4485E-04_JPRB,2.5477E-04_JPRB,2.5442E-04_JPRB,&
247
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.4312E-04_JPRB,2.1633E-04_JPRB,1.2430E-04_JPRB/)
248 KAO( :, 5,12, 1) = (/&
249 & 2.3665E-05_JPRB,1.9894E-04_JPRB,2.4466E-04_JPRB,2.6980E-04_JPRB,2.8155E-04_JPRB,2.8120E-04_JPRB,&
250
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6804E-04_JPRB,2.3807E-04_JPRB,1.3565E-04_JPRB/)
251 KAO( :, 1,13, 1) = (/&
252 & 1.4387E-05_JPRB,1.0908E-04_JPRB,1.3157E-04_JPRB,1.4361E-04_JPRB,1.4965E-04_JPRB,1.5162E-04_JPRB,&
253
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4826E-04_JPRB,1.3570E-04_JPRB,8.1068E-05_JPRB/)
254 KAO( :, 2,13, 1) = (/&
255 & 1.5222E-05_JPRB,1.2208E-04_JPRB,1.4808E-04_JPRB,1.6206E-04_JPRB,1.6806E-04_JPRB,1.6873E-04_JPRB,&
256
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6320E-04_JPRB,1.4737E-04_JPRB,8.6440E-05_JPRB/)
257 KAO( :, 3,13, 1) = (/&
258 & 1.6337E-05_JPRB,1.3561E-04_JPRB,1.6504E-04_JPRB,1.8124E-04_JPRB,1.8815E-04_JPRB,1.8808E-04_JPRB,&
259
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8048E-04_JPRB,1.6146E-04_JPRB,9.3311E-05_JPRB/)
260 KAO( :, 4,13, 1) = (/&
261 & 1.7783E-05_JPRB,1.4947E-04_JPRB,1.8257E-04_JPRB,2.0095E-04_JPRB,2.0933E-04_JPRB,2.0927E-04_JPRB,&
262
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0001E-04_JPRB,1.7792E-04_JPRB,1.0131E-04_JPRB/)
263 KAO( :, 5,13, 1) = (/&
264 & 1.9570E-05_JPRB,1.6345E-04_JPRB,2.0062E-04_JPRB,2.2151E-04_JPRB,2.3144E-04_JPRB,2.3129E-04_JPRB,&
265
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2049E-04_JPRB,1.9577E-04_JPRB,1.1046E-04_JPRB/)
266 KAO( :, 1, 1, 2) = (/&
267 & 9.2497E-04_JPRB,4.3144E-03_JPRB,5.6991E-03_JPRB,6.4942E-03_JPRB,6.8938E-03_JPRB,6.9128E-03_JPRB,&
268
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.4921E-03_JPRB,5.6369E-03_JPRB,1.8483E-03_JPRB/)
269 KAO( :, 2, 1, 2) = (/&
270 & 1.0409E-03_JPRB,4.6383E-03_JPRB,6.0633E-03_JPRB,6.9063E-03_JPRB,7.3169E-03_JPRB,7.3608E-03_JPRB,&
271
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.9192E-03_JPRB,6.0028E-03_JPRB,2.0300E-03_JPRB/)
272 KAO( :, 3, 1, 2) = (/&
273 & 1.1556E-03_JPRB,4.9764E-03_JPRB,6.4488E-03_JPRB,7.3288E-03_JPRB,7.7717E-03_JPRB,7.8279E-03_JPRB,&
274
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.3748E-03_JPRB,6.3833E-03_JPRB,2.2072E-03_JPRB/)
275 KAO( :, 4, 1, 2) = (/&
276 & 1.2675E-03_JPRB,5.3121E-03_JPRB,6.8537E-03_JPRB,7.7796E-03_JPRB,8.2492E-03_JPRB,8.3162E-03_JPRB,&
277
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.8626E-03_JPRB,6.7865E-03_JPRB,2.3969E-03_JPRB/)
278 KAO( :, 5, 1, 2) = (/&
279 & 1.3758E-03_JPRB,5.6410E-03_JPRB,7.2804E-03_JPRB,8.2553E-03_JPRB,8.7528E-03_JPRB,8.8226E-03_JPRB,&
280
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.3750E-03_JPRB,7.2191E-03_JPRB,2.6089E-03_JPRB/)
281 KAO( :, 1, 2, 2) = (/&
282 & 7.5186E-04_JPRB,3.6103E-03_JPRB,4.7635E-03_JPRB,5.4240E-03_JPRB,5.7535E-03_JPRB,5.7797E-03_JPRB,&
283
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.4198E-03_JPRB,4.6836E-03_JPRB,1.4556E-03_JPRB/)
284 KAO( :, 2, 2, 2) = (/&
285 & 8.4398E-04_JPRB,3.8877E-03_JPRB,5.0819E-03_JPRB,5.7839E-03_JPRB,6.1171E-03_JPRB,6.1580E-03_JPRB,&
286
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.7873E-03_JPRB,4.9984E-03_JPRB,1.6006E-03_JPRB/)
287 KAO( :, 3, 2, 2) = (/&
288 & 9.3483E-04_JPRB,4.1713E-03_JPRB,5.4170E-03_JPRB,6.1567E-03_JPRB,6.5115E-03_JPRB,6.5572E-03_JPRB,&
289
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.1783E-03_JPRB,5.3232E-03_JPRB,1.7489E-03_JPRB/)
290 KAO( :, 4, 2, 2) = (/&
291 & 1.0238E-03_JPRB,4.4548E-03_JPRB,5.7647E-03_JPRB,6.5444E-03_JPRB,6.9273E-03_JPRB,6.9708E-03_JPRB,&
292
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.5984E-03_JPRB,5.6708E-03_JPRB,1.9109E-03_JPRB/)
293 KAO( :, 5, 2, 2) = (/&
294 & 1.1107E-03_JPRB,4.7357E-03_JPRB,6.1219E-03_JPRB,6.9538E-03_JPRB,7.3658E-03_JPRB,7.4046E-03_JPRB,&
295
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.0322E-03_JPRB,6.0412E-03_JPRB,2.0904E-03_JPRB/)
296 KAO( :, 1, 3, 2) = (/&
297 & 6.0142E-04_JPRB,2.9523E-03_JPRB,3.9104E-03_JPRB,4.4517E-03_JPRB,4.7174E-03_JPRB,4.7372E-03_JPRB,&
298
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.4492E-03_JPRB,3.8243E-03_JPRB,1.1263E-03_JPRB/)
299 KAO( :, 2, 3, 2) = (/&
300 & 6.7406E-04_JPRB,3.1823E-03_JPRB,4.1811E-03_JPRB,4.7592E-03_JPRB,5.0290E-03_JPRB,5.0575E-03_JPRB,&
301
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.7588E-03_JPRB,4.0940E-03_JPRB,1.2428E-03_JPRB/)
302 KAO( :, 3, 3, 2) = (/&
303 & 7.4620E-04_JPRB,3.4210E-03_JPRB,4.4618E-03_JPRB,5.0793E-03_JPRB,5.3629E-03_JPRB,5.3950E-03_JPRB,&
304
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.0905E-03_JPRB,4.3739E-03_JPRB,1.3657E-03_JPRB/)
305 KAO( :, 4, 3, 2) = (/&
306 & 8.1752E-04_JPRB,3.6598E-03_JPRB,4.7515E-03_JPRB,5.4067E-03_JPRB,5.7176E-03_JPRB,5.7460E-03_JPRB,&
307
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.4447E-03_JPRB,4.6676E-03_JPRB,1.5007E-03_JPRB/)
308 KAO( :, 5, 3, 2) = (/&
309 & 8.8750E-04_JPRB,3.8967E-03_JPRB,5.0479E-03_JPRB,5.7482E-03_JPRB,6.0925E-03_JPRB,6.1154E-03_JPRB,&
310
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.8092E-03_JPRB,4.9824E-03_JPRB,1.6471E-03_JPRB/)
311 KAO( :, 1, 4, 2) = (/&
312 & 4.8101E-04_JPRB,2.3906E-03_JPRB,3.1853E-03_JPRB,3.6231E-03_JPRB,3.8360E-03_JPRB,3.8452E-03_JPRB,&
313
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.6186E-03_JPRB,3.1019E-03_JPRB,8.7573E-04_JPRB/)
314 KAO( :, 2, 4, 2) = (/&
315 & 5.3961E-04_JPRB,2.5785E-03_JPRB,3.4085E-03_JPRB,3.8820E-03_JPRB,4.0987E-03_JPRB,4.1183E-03_JPRB,&
316
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.8800E-03_JPRB,3.3305E-03_JPRB,9.6932E-04_JPRB/)
317 KAO( :, 3, 4, 2) = (/&
318 & 5.9799E-04_JPRB,2.7768E-03_JPRB,3.6406E-03_JPRB,4.1517E-03_JPRB,4.3797E-03_JPRB,4.4028E-03_JPRB,&
319
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.1601E-03_JPRB,3.5700E-03_JPRB,1.0703E-03_JPRB/)
320 KAO( :, 4, 4, 2) = (/&
321 & 6.5579E-04_JPRB,2.9752E-03_JPRB,3.8795E-03_JPRB,4.4220E-03_JPRB,4.6790E-03_JPRB,4.7001E-03_JPRB,&
322
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.4581E-03_JPRB,3.8199E-03_JPRB,1.1808E-03_JPRB/)
323 KAO( :, 5, 4, 2) = (/&
324 & 7.1241E-04_JPRB,3.1724E-03_JPRB,4.1257E-03_JPRB,4.7025E-03_JPRB,4.9913E-03_JPRB,5.0113E-03_JPRB,&
325
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.7649E-03_JPRB,4.0844E-03_JPRB,1.3011E-03_JPRB/)
326 KAO( :, 1, 5, 2) = (/&
327 & 3.7985E-04_JPRB,1.9296E-03_JPRB,2.5823E-03_JPRB,2.9367E-03_JPRB,3.1053E-03_JPRB,3.1068E-03_JPRB,&
328
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9256E-03_JPRB,2.5075E-03_JPRB,6.8590E-04_JPRB/)
329 KAO( :, 2, 5, 2) = (/&
330 & 4.2774E-04_JPRB,2.0822E-03_JPRB,2.7665E-03_JPRB,3.1512E-03_JPRB,3.3261E-03_JPRB,3.3384E-03_JPRB,&
331
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1468E-03_JPRB,2.7004E-03_JPRB,7.6134E-04_JPRB/)
332 KAO( :, 3, 5, 2) = (/&
333 & 4.7586E-04_JPRB,2.2442E-03_JPRB,2.9575E-03_JPRB,3.3747E-03_JPRB,3.5611E-03_JPRB,3.5804E-03_JPRB,&
334
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3851E-03_JPRB,2.9033E-03_JPRB,8.4414E-04_JPRB/)
335 KAO( :, 4, 5, 2) = (/&
336 & 5.2378E-04_JPRB,2.4068E-03_JPRB,3.1534E-03_JPRB,3.5994E-03_JPRB,3.8099E-03_JPRB,3.8326E-03_JPRB,&
337
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.6365E-03_JPRB,3.1178E-03_JPRB,9.3392E-04_JPRB/)
338 KAO( :, 5, 5, 2) = (/&
339 & 5.7107E-04_JPRB,2.5676E-03_JPRB,3.3559E-03_JPRB,3.8294E-03_JPRB,4.0688E-03_JPRB,4.0931E-03_JPRB,&
340
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
10 & 3.8958E-03_JPRB,3.3418E-03_JPRB,1.0329E-03_JPRB/)
341
342
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART1',1,ZHOOK_HANDLE)
343 1 END SUBROUTINE PART1
344
345
346 1 SUBROUTINE PART2
347
348 REAL(KIND=JPRB) :: ZHOOK_HANDLE
349
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART2',0,ZHOOK_HANDLE)
350
351
352 KAO( :, 1, 6, 2) = (/&
353 & 2.9735E-04_JPRB,1.5488E-03_JPRB,2.0781E-03_JPRB,2.3635E-03_JPRB,2.4968E-03_JPRB,2.4931E-03_JPRB,&
354
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3467E-03_JPRB,2.0085E-03_JPRB,5.4223E-04_JPRB/)
355 KAO( :, 2, 6, 2) = (/&
356 & 3.3587E-04_JPRB,1.6709E-03_JPRB,2.2308E-03_JPRB,2.5409E-03_JPRB,2.6808E-03_JPRB,2.6895E-03_JPRB,&
357
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5340E-03_JPRB,2.1715E-03_JPRB,6.0215E-04_JPRB/)
358 KAO( :, 3, 6, 2) = (/&
359 & 3.7473E-04_JPRB,1.8004E-03_JPRB,2.3875E-03_JPRB,2.7253E-03_JPRB,2.8757E-03_JPRB,2.8921E-03_JPRB,&
360
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.7340E-03_JPRB,2.3415E-03_JPRB,6.6920E-04_JPRB/)
361 KAO( :, 4, 6, 2) = (/&
362 & 4.1385E-04_JPRB,1.9336E-03_JPRB,2.5474E-03_JPRB,2.9106E-03_JPRB,3.0795E-03_JPRB,3.1041E-03_JPRB,&
363
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9464E-03_JPRB,2.5236E-03_JPRB,7.4227E-04_JPRB/)
364 KAO( :, 5, 6, 2) = (/&
365 & 4.5282E-04_JPRB,2.0641E-03_JPRB,2.7125E-03_JPRB,3.0998E-03_JPRB,3.2937E-03_JPRB,3.3201E-03_JPRB,&
366
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1630E-03_JPRB,2.7121E-03_JPRB,8.2264E-04_JPRB/)
367 KAO( :, 1, 7, 2) = (/&
368 & 2.3216E-04_JPRB,1.2362E-03_JPRB,1.6616E-03_JPRB,1.8908E-03_JPRB,1.9971E-03_JPRB,1.9905E-03_JPRB,&
369
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8720E-03_JPRB,1.5991E-03_JPRB,4.4178E-04_JPRB/)
370 KAO( :, 2, 7, 2) = (/&
371 & 2.6289E-04_JPRB,1.3329E-03_JPRB,1.7891E-03_JPRB,2.0369E-03_JPRB,2.1504E-03_JPRB,2.1555E-03_JPRB,&
372
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0290E-03_JPRB,1.7365E-03_JPRB,4.9123E-04_JPRB/)
373 KAO( :, 3, 7, 2) = (/&
374 & 2.9417E-04_JPRB,1.4359E-03_JPRB,1.9156E-03_JPRB,2.1896E-03_JPRB,2.3102E-03_JPRB,2.3250E-03_JPRB,&
375
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1958E-03_JPRB,1.8783E-03_JPRB,5.4688E-04_JPRB/)
376 KAO( :, 4, 7, 2) = (/&
377 & 3.2585E-04_JPRB,1.5437E-03_JPRB,2.0463E-03_JPRB,2.3419E-03_JPRB,2.4777E-03_JPRB,2.4981E-03_JPRB,&
378
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3744E-03_JPRB,2.0299E-03_JPRB,6.0742E-04_JPRB/)
379 KAO( :, 5, 7, 2) = (/&
380 & 3.5762E-04_JPRB,1.6504E-03_JPRB,2.1798E-03_JPRB,2.4967E-03_JPRB,2.6528E-03_JPRB,2.6762E-03_JPRB,&
381
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5533E-03_JPRB,2.1888E-03_JPRB,6.7380E-04_JPRB/)
382 KAO( :, 1, 8, 2) = (/&
383 & 1.8254E-04_JPRB,9.8374E-04_JPRB,1.3243E-03_JPRB,1.5057E-03_JPRB,1.5902E-03_JPRB,1.5824E-03_JPRB,&
384
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4869E-03_JPRB,1.2665E-03_JPRB,3.9850E-04_JPRB/)
385 KAO( :, 2, 8, 2) = (/&
386 & 2.0666E-04_JPRB,1.0603E-03_JPRB,1.4275E-03_JPRB,1.6259E-03_JPRB,1.7181E-03_JPRB,1.7201E-03_JPRB,&
387
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6174E-03_JPRB,1.3826E-03_JPRB,4.4169E-04_JPRB/)
388 KAO( :, 3, 8, 2) = (/&
389 & 2.3157E-04_JPRB,1.1419E-03_JPRB,1.5319E-03_JPRB,1.7520E-03_JPRB,1.8487E-03_JPRB,1.8612E-03_JPRB,&
390
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7566E-03_JPRB,1.5015E-03_JPRB,4.8905E-04_JPRB/)
391 KAO( :, 4, 8, 2) = (/&
392 & 2.5700E-04_JPRB,1.2278E-03_JPRB,1.6373E-03_JPRB,1.8765E-03_JPRB,1.9849E-03_JPRB,2.0014E-03_JPRB,&
393
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9031E-03_JPRB,1.6270E-03_JPRB,5.4213E-04_JPRB/)
394 KAO( :, 5, 8, 2) = (/&
395 & 2.8283E-04_JPRB,1.3158E-03_JPRB,1.7450E-03_JPRB,2.0017E-03_JPRB,2.1255E-03_JPRB,2.1468E-03_JPRB,&
396
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0518E-03_JPRB,1.7597E-03_JPRB,6.0087E-04_JPRB/)
397 KAO( :, 1, 9, 2) = (/&
398 & 1.4492E-04_JPRB,7.8220E-04_JPRB,1.0529E-03_JPRB,1.1948E-03_JPRB,1.2616E-03_JPRB,1.2532E-03_JPRB,&
399
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1763E-03_JPRB,9.9787E-04_JPRB,3.8271E-04_JPRB/)
400 KAO( :, 2, 9, 2) = (/&
401 & 1.6385E-04_JPRB,8.4332E-04_JPRB,1.1362E-03_JPRB,1.2935E-03_JPRB,1.3677E-03_JPRB,1.3665E-03_JPRB,&
402
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2847E-03_JPRB,1.0960E-03_JPRB,4.2068E-04_JPRB/)
403 KAO( :, 3, 9, 2) = (/&
404 & 1.8366E-04_JPRB,9.0787E-04_JPRB,1.2223E-03_JPRB,1.3959E-03_JPRB,1.4750E-03_JPRB,1.4839E-03_JPRB,&
405
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3993E-03_JPRB,1.1955E-03_JPRB,4.6660E-04_JPRB/)
406 KAO( :, 4, 9, 2) = (/&
407 & 2.0401E-04_JPRB,9.7621E-04_JPRB,1.3079E-03_JPRB,1.4991E-03_JPRB,1.5844E-03_JPRB,1.5989E-03_JPRB,&
408
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5186E-03_JPRB,1.3000E-03_JPRB,5.2016E-04_JPRB/)
409 KAO( :, 5, 9, 2) = (/&
410 & 2.2477E-04_JPRB,1.0479E-03_JPRB,1.3948E-03_JPRB,1.6006E-03_JPRB,1.6979E-03_JPRB,1.7159E-03_JPRB,&
411
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6415E-03_JPRB,1.4093E-03_JPRB,5.7816E-04_JPRB/)
412 KAO( :, 1,10, 2) = (/&
413 & 1.1869E-04_JPRB,6.2671E-04_JPRB,8.4082E-04_JPRB,9.5190E-04_JPRB,1.0039E-03_JPRB,9.9693E-04_JPRB,&
414
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.3504E-04_JPRB,7.8902E-04_JPRB,3.5140E-04_JPRB/)
415 KAO( :, 2,10, 2) = (/&
416 & 1.3381E-04_JPRB,6.7599E-04_JPRB,9.0913E-04_JPRB,1.0332E-03_JPRB,1.0921E-03_JPRB,1.0891E-03_JPRB,&
417
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0243E-03_JPRB,8.7218E-04_JPRB,3.8763E-04_JPRB/)
418 KAO( :, 3,10, 2) = (/&
419 & 1.4959E-04_JPRB,7.2765E-04_JPRB,9.7958E-04_JPRB,1.1159E-03_JPRB,1.1802E-03_JPRB,1.1859E-03_JPRB,&
420
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1183E-03_JPRB,9.5533E-04_JPRB,4.3010E-04_JPRB/)
421 KAO( :, 4,10, 2) = (/&
422 & 1.6589E-04_JPRB,7.8204E-04_JPRB,1.0498E-03_JPRB,1.2013E-03_JPRB,1.2689E-03_JPRB,1.2810E-03_JPRB,&
423
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2156E-03_JPRB,1.0417E-03_JPRB,4.7716E-04_JPRB/)
424 KAO( :, 5,10, 2) = (/&
425 & 1.8260E-04_JPRB,8.3938E-04_JPRB,1.1206E-03_JPRB,1.2847E-03_JPRB,1.3612E-03_JPRB,1.3753E-03_JPRB,&
426
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3161E-03_JPRB,1.1315E-03_JPRB,5.2947E-04_JPRB/)
427 KAO( :, 1,11, 2) = (/&
428 & 1.0311E-04_JPRB,5.2056E-04_JPRB,6.9637E-04_JPRB,7.8750E-04_JPRB,8.3059E-04_JPRB,8.2575E-04_JPRB,&
429
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.7490E-04_JPRB,6.5424E-04_JPRB,3.0281E-04_JPRB/)
430 KAO( :, 2,11, 2) = (/&
431 & 1.1590E-04_JPRB,5.6136E-04_JPRB,7.5296E-04_JPRB,8.5480E-04_JPRB,9.0353E-04_JPRB,9.0216E-04_JPRB,&
432
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.4999E-04_JPRB,7.2420E-04_JPRB,3.3507E-04_JPRB/)
433 KAO( :, 3,11, 2) = (/&
434 & 1.2889E-04_JPRB,6.0382E-04_JPRB,8.1101E-04_JPRB,9.2302E-04_JPRB,9.7570E-04_JPRB,9.8182E-04_JPRB,&
435
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.2806E-04_JPRB,7.9438E-04_JPRB,3.7284E-04_JPRB/)
436 KAO( :, 4,11, 2) = (/&
437 & 1.4211E-04_JPRB,6.4818E-04_JPRB,8.6860E-04_JPRB,9.9311E-04_JPRB,1.0487E-03_JPRB,1.0592E-03_JPRB,&
438
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0081E-03_JPRB,8.6646E-04_JPRB,4.1455E-04_JPRB/)
439 KAO( :, 5,11, 2) = (/&
440 & 1.5566E-04_JPRB,6.9514E-04_JPRB,9.2716E-04_JPRB,1.0621E-03_JPRB,1.1251E-03_JPRB,1.1363E-03_JPRB,&
441
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0898E-03_JPRB,9.4096E-04_JPRB,4.6093E-04_JPRB/)
442 KAO( :, 1,12, 2) = (/&
443 & 8.6906E-05_JPRB,4.2943E-04_JPRB,5.7386E-04_JPRB,6.4907E-04_JPRB,6.8516E-04_JPRB,6.8236E-04_JPRB,&
444
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.4150E-04_JPRB,5.4221E-04_JPRB,2.5343E-04_JPRB/)
445 KAO( :, 2,12, 2) = (/&
446 & 9.7363E-05_JPRB,4.6320E-04_JPRB,6.2055E-04_JPRB,7.0430E-04_JPRB,7.4506E-04_JPRB,7.4512E-04_JPRB,&
447
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.0369E-04_JPRB,6.0080E-04_JPRB,2.8076E-04_JPRB/)
448 KAO( :, 3,12, 2) = (/&
449 & 1.0822E-04_JPRB,4.9810E-04_JPRB,6.6816E-04_JPRB,7.6045E-04_JPRB,8.0385E-04_JPRB,8.1033E-04_JPRB,&
450
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.6791E-04_JPRB,6.5916E-04_JPRB,3.1267E-04_JPRB/)
451 KAO( :, 4,12, 2) = (/&
452 & 1.1919E-04_JPRB,5.3431E-04_JPRB,7.1547E-04_JPRB,8.1798E-04_JPRB,8.6412E-04_JPRB,8.7316E-04_JPRB,&
453
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.3318E-04_JPRB,7.1884E-04_JPRB,3.4804E-04_JPRB/)
454 KAO( :, 5,12, 2) = (/&
455 & 1.3020E-04_JPRB,5.7282E-04_JPRB,7.6401E-04_JPRB,8.7493E-04_JPRB,9.2683E-04_JPRB,9.3624E-04_JPRB,&
456
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.9962E-04_JPRB,7.8030E-04_JPRB,3.8737E-04_JPRB/)
457 KAO( :, 1,13, 2) = (/&
458 & 7.2736E-05_JPRB,3.5287E-04_JPRB,4.7103E-04_JPRB,5.3285E-04_JPRB,5.6294E-04_JPRB,5.6189E-04_JPRB,&
459
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.2952E-04_JPRB,4.4876E-04_JPRB,2.0844E-04_JPRB/)
460 KAO( :, 2,13, 2) = (/&
461 & 8.1220E-05_JPRB,3.8092E-04_JPRB,5.0957E-04_JPRB,5.7824E-04_JPRB,6.1199E-04_JPRB,6.1315E-04_JPRB,&
462
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.8053E-04_JPRB,4.9725E-04_JPRB,2.3115E-04_JPRB/)
463 KAO( :, 3,13, 2) = (/&
464 & 9.0164E-05_JPRB,4.0966E-04_JPRB,5.4894E-04_JPRB,6.2460E-04_JPRB,6.6024E-04_JPRB,6.6621E-04_JPRB,&
465
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.3308E-04_JPRB,5.4537E-04_JPRB,2.5750E-04_JPRB/)
466 KAO( :, 4,13, 2) = (/&
467 & 9.9376E-05_JPRB,4.3939E-04_JPRB,5.8810E-04_JPRB,6.7200E-04_JPRB,7.1008E-04_JPRB,7.1773E-04_JPRB,&
468
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.8617E-04_JPRB,5.9441E-04_JPRB,2.8680E-04_JPRB/)
469 KAO( :, 5,13, 2) = (/&
470 & 1.0854E-04_JPRB,4.7117E-04_JPRB,6.2833E-04_JPRB,7.1918E-04_JPRB,7.6187E-04_JPRB,7.6982E-04_JPRB,&
471
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.4086E-04_JPRB,6.4493E-04_JPRB,3.1932E-04_JPRB/)
472 KAO( :, 1, 1, 3) = (/&
473 & 2.8268E-03_JPRB,8.0007E-03_JPRB,1.0129E-02_JPRB,1.1600E-02_JPRB,1.2484E-02_JPRB,1.2903E-02_JPRB,&
474
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2756E-02_JPRB,1.1762E-02_JPRB,4.6746E-03_JPRB/)
475 KAO( :, 2, 1, 3) = (/&
476 & 3.1283E-03_JPRB,8.6463E-03_JPRB,1.0922E-02_JPRB,1.2433E-02_JPRB,1.3339E-02_JPRB,1.3730E-02_JPRB,&
477
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3558E-02_JPRB,1.2454E-02_JPRB,5.0133E-03_JPRB/)
478 KAO( :, 3, 1, 3) = (/&
479 & 3.4558E-03_JPRB,9.3189E-03_JPRB,1.1784E-02_JPRB,1.3331E-02_JPRB,1.4258E-02_JPRB,1.4611E-02_JPRB,&
480
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4389E-02_JPRB,1.3149E-02_JPRB,5.3761E-03_JPRB/)
481 KAO( :, 4, 1, 3) = (/&
482 & 3.8003E-03_JPRB,1.0040E-02_JPRB,1.2672E-02_JPRB,1.4281E-02_JPRB,1.5240E-02_JPRB,1.5546E-02_JPRB,&
483
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5245E-02_JPRB,1.3873E-02_JPRB,5.7489E-03_JPRB/)
484 KAO( :, 5, 1, 3) = (/&
485 & 4.1364E-03_JPRB,1.0810E-02_JPRB,1.3574E-02_JPRB,1.5264E-02_JPRB,1.6259E-02_JPRB,1.6515E-02_JPRB,&
486
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6129E-02_JPRB,1.4624E-02_JPRB,6.1285E-03_JPRB/)
487 KAO( :, 1, 2, 3) = (/&
488 & 2.3785E-03_JPRB,6.8111E-03_JPRB,8.5917E-03_JPRB,9.8069E-03_JPRB,1.0520E-02_JPRB,1.0823E-02_JPRB,&
489
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0667E-02_JPRB,9.8152E-03_JPRB,3.7184E-03_JPRB/)
490 KAO( :, 2, 2, 3) = (/&
491 & 2.6403E-03_JPRB,7.3805E-03_JPRB,9.2734E-03_JPRB,1.0506E-02_JPRB,1.1253E-02_JPRB,1.1531E-02_JPRB,&
492
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1349E-02_JPRB,1.0403E-02_JPRB,4.0032E-03_JPRB/)
493 KAO( :, 3, 2, 3) = (/&
494 & 2.9257E-03_JPRB,7.9766E-03_JPRB,1.0007E-02_JPRB,1.1267E-02_JPRB,1.2040E-02_JPRB,1.2292E-02_JPRB,&
495
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2064E-02_JPRB,1.1014E-02_JPRB,4.2975E-03_JPRB/)
496 KAO( :, 4, 2, 3) = (/&
497 & 3.2219E-03_JPRB,8.6148E-03_JPRB,1.0770E-02_JPRB,1.2085E-02_JPRB,1.2878E-02_JPRB,1.3098E-02_JPRB,&
498
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2794E-02_JPRB,1.1649E-02_JPRB,4.6021E-03_JPRB/)
499 KAO( :, 5, 2, 3) = (/&
500 & 3.5088E-03_JPRB,9.2842E-03_JPRB,1.1557E-02_JPRB,1.2935E-02_JPRB,1.3737E-02_JPRB,1.3940E-02_JPRB,&
501
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3572E-02_JPRB,1.2310E-02_JPRB,4.9140E-03_JPRB/)
502 KAO( :, 1, 3, 3) = (/&
503 & 1.9386E-03_JPRB,5.6660E-03_JPRB,7.1297E-03_JPRB,8.1429E-03_JPRB,8.7357E-03_JPRB,8.9496E-03_JPRB,&
504
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.7747E-03_JPRB,8.0582E-03_JPRB,2.9088E-03_JPRB/)
505 KAO( :, 2, 3, 3) = (/&
506 & 2.1579E-03_JPRB,6.1637E-03_JPRB,7.7083E-03_JPRB,8.7254E-03_JPRB,9.3435E-03_JPRB,9.5443E-03_JPRB,&
507
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.3488E-03_JPRB,8.5545E-03_JPRB,3.1389E-03_JPRB/)
508 KAO( :, 3, 3, 3) = (/&
509 & 2.3960E-03_JPRB,6.6842E-03_JPRB,8.3410E-03_JPRB,9.3621E-03_JPRB,1.0004E-02_JPRB,1.0182E-02_JPRB,&
510
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.9526E-03_JPRB,9.0715E-03_JPRB,3.3810E-03_JPRB/)
511 KAO( :, 4, 3, 3) = (/&
512 & 2.6451E-03_JPRB,7.2345E-03_JPRB,9.0005E-03_JPRB,1.0055E-02_JPRB,1.0704E-02_JPRB,1.0864E-02_JPRB,&
513
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0573E-02_JPRB,9.6158E-03_JPRB,3.6280E-03_JPRB/)
514 KAO( :, 5, 3, 3) = (/&
515 & 2.8859E-03_JPRB,7.8078E-03_JPRB,9.6814E-03_JPRB,1.0782E-02_JPRB,1.1421E-02_JPRB,1.1580E-02_JPRB,&
516
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1241E-02_JPRB,1.0187E-02_JPRB,3.8829E-03_JPRB/)
517 KAO( :, 1, 4, 3) = (/&
518 & 1.5600E-03_JPRB,4.6546E-03_JPRB,5.8495E-03_JPRB,6.6996E-03_JPRB,7.2044E-03_JPRB,7.3765E-03_JPRB,&
519
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.1865E-03_JPRB,6.5682E-03_JPRB,2.2826E-03_JPRB/)
520 KAO( :, 2, 4, 3) = (/&
521 & 1.7367E-03_JPRB,5.0823E-03_JPRB,6.3406E-03_JPRB,7.1867E-03_JPRB,7.7058E-03_JPRB,7.8650E-03_JPRB,&
522
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.6617E-03_JPRB,6.9802E-03_JPRB,2.4709E-03_JPRB/)
523 KAO( :, 3, 4, 3) = (/&
524 & 1.9306E-03_JPRB,5.5299E-03_JPRB,6.8812E-03_JPRB,7.7221E-03_JPRB,8.2549E-03_JPRB,8.3977E-03_JPRB,&
525
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.1626E-03_JPRB,7.4067E-03_JPRB,2.6716E-03_JPRB/)
526 KAO( :, 4, 4, 3) = (/&
527 & 2.1349E-03_JPRB,5.9971E-03_JPRB,7.4507E-03_JPRB,8.3116E-03_JPRB,8.8413E-03_JPRB,8.9674E-03_JPRB,&
528
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.6864E-03_JPRB,7.8658E-03_JPRB,2.8745E-03_JPRB/)
529 KAO( :, 5, 4, 3) = (/&
530 & 2.3336E-03_JPRB,6.4807E-03_JPRB,8.0336E-03_JPRB,8.9354E-03_JPRB,9.4416E-03_JPRB,9.5691E-03_JPRB,&
531
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.2483E-03_JPRB,8.3517E-03_JPRB,3.0875E-03_JPRB/)
532 KAO( :, 1, 5, 3) = (/&
533 & 1.2643E-03_JPRB,3.7992E-03_JPRB,4.7706E-03_JPRB,5.4821E-03_JPRB,5.9156E-03_JPRB,6.0631E-03_JPRB,&
534
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.8873E-03_JPRB,5.3374E-03_JPRB,1.7987E-03_JPRB/)
535 KAO( :, 2, 5, 3) = (/&
536 & 1.4029E-03_JPRB,4.1601E-03_JPRB,5.1876E-03_JPRB,5.8930E-03_JPRB,6.3304E-03_JPRB,6.4641E-03_JPRB,&
537
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.2801E-03_JPRB,5.6828E-03_JPRB,1.9541E-03_JPRB/)
538 KAO( :, 3, 5, 3) = (/&
539 & 1.5562E-03_JPRB,4.5381E-03_JPRB,5.6449E-03_JPRB,6.3470E-03_JPRB,6.7903E-03_JPRB,6.9025E-03_JPRB,&
540
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.6934E-03_JPRB,6.0371E-03_JPRB,2.1188E-03_JPRB/)
541 KAO( :, 4, 5, 3) = (/&
542 & 1.7190E-03_JPRB,4.9285E-03_JPRB,6.1272E-03_JPRB,6.8449E-03_JPRB,7.2797E-03_JPRB,7.3760E-03_JPRB,&
543
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.1291E-03_JPRB,6.4167E-03_JPRB,2.2886E-03_JPRB/)
544 KAO( :, 5, 5, 3) = (/&
545 & 1.8807E-03_JPRB,5.3341E-03_JPRB,6.6172E-03_JPRB,7.3735E-03_JPRB,7.7846E-03_JPRB,7.8779E-03_JPRB,&
546
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.5974E-03_JPRB,6.8236E-03_JPRB,2.4671E-03_JPRB/)
547 KAO( :, 1, 6, 3) = (/&
548 & 1.0213E-03_JPRB,3.0721E-03_JPRB,3.8660E-03_JPRB,4.4559E-03_JPRB,4.8197E-03_JPRB,4.9478E-03_JPRB,&
549
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.7982E-03_JPRB,4.3290E-03_JPRB,1.4118E-03_JPRB/)
550 KAO( :, 2, 6, 3) = (/&
551 & 1.1324E-03_JPRB,3.3728E-03_JPRB,4.2119E-03_JPRB,4.7959E-03_JPRB,5.1628E-03_JPRB,5.2793E-03_JPRB,&
552
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.1225E-03_JPRB,4.6162E-03_JPRB,1.5418E-03_JPRB/)
553 KAO( :, 3, 6, 3) = (/&
554 & 1.2545E-03_JPRB,3.6892E-03_JPRB,4.5936E-03_JPRB,5.1743E-03_JPRB,5.5467E-03_JPRB,5.6393E-03_JPRB,&
555
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.4667E-03_JPRB,4.9091E-03_JPRB,1.6767E-03_JPRB/)
556 KAO( :, 4, 6, 3) = (/&
557 & 1.3844E-03_JPRB,4.0151E-03_JPRB,4.9945E-03_JPRB,5.5888E-03_JPRB,5.9562E-03_JPRB,6.0318E-03_JPRB,&
558
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.8253E-03_JPRB,5.2198E-03_JPRB,1.8201E-03_JPRB/)
559 KAO( :, 5, 6, 3) = (/&
560 & 1.5162E-03_JPRB,4.3530E-03_JPRB,5.4044E-03_JPRB,6.0308E-03_JPRB,6.3808E-03_JPRB,6.4545E-03_JPRB,&
561
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.2163E-03_JPRB,5.5575E-03_JPRB,1.9706E-03_JPRB/)
562 KAO( :, 1, 7, 3) = (/&
563 & 8.1383E-04_JPRB,2.4690E-03_JPRB,3.1190E-03_JPRB,3.6045E-03_JPRB,3.9078E-03_JPRB,4.0152E-03_JPRB,&
564
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.8892E-03_JPRB,3.5066E-03_JPRB,1.1162E-03_JPRB/)
565 KAO( :, 2, 7, 3) = (/&
566 & 9.0133E-04_JPRB,2.7200E-03_JPRB,3.4007E-03_JPRB,3.8875E-03_JPRB,4.1896E-03_JPRB,4.2887E-03_JPRB,&
567
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.1574E-03_JPRB,3.7464E-03_JPRB,1.2253E-03_JPRB/)
568 KAO( :, 3, 7, 3) = (/&
569 & 9.9758E-04_JPRB,2.9822E-03_JPRB,3.7154E-03_JPRB,4.1988E-03_JPRB,4.5072E-03_JPRB,4.5864E-03_JPRB,&
570
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.4444E-03_JPRB,3.9910E-03_JPRB,1.3374E-03_JPRB/)
571 KAO( :, 4, 7, 3) = (/&
572 & 1.1009E-03_JPRB,3.2536E-03_JPRB,4.0499E-03_JPRB,4.5399E-03_JPRB,4.8474E-03_JPRB,4.9140E-03_JPRB,&
573
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.7441E-03_JPRB,4.2483E-03_JPRB,1.4572E-03_JPRB/)
574 KAO( :, 5, 7, 3) = (/&
575 & 1.2079E-03_JPRB,3.5321E-03_JPRB,4.3905E-03_JPRB,4.9045E-03_JPRB,5.2002E-03_JPRB,5.2665E-03_JPRB,&
576
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.0703E-03_JPRB,4.5267E-03_JPRB,1.5834E-03_JPRB/)
577 KAO( :, 1, 8, 3) = (/&
578 & 6.4403E-04_JPRB,1.9711E-03_JPRB,2.5061E-03_JPRB,2.9046E-03_JPRB,3.1552E-03_JPRB,3.2467E-03_JPRB,&
579
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1397E-03_JPRB,2.8272E-03_JPRB,9.2879E-04_JPRB/)
580 KAO( :, 2, 8, 3) = (/&
581 & 7.1238E-04_JPRB,2.1771E-03_JPRB,2.7335E-03_JPRB,3.1363E-03_JPRB,3.3882E-03_JPRB,3.4702E-03_JPRB,&
582
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3609E-03_JPRB,3.0275E-03_JPRB,1.0282E-03_JPRB/)
583 KAO( :, 3, 8, 3) = (/&
584 & 7.8775E-04_JPRB,2.3928E-03_JPRB,2.9888E-03_JPRB,3.3912E-03_JPRB,3.6502E-03_JPRB,3.7161E-03_JPRB,&
585
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.5992E-03_JPRB,3.2322E-03_JPRB,1.1312E-03_JPRB/)
586 KAO( :, 4, 8, 3) = (/&
587 & 8.6902E-04_JPRB,2.6176E-03_JPRB,3.2653E-03_JPRB,3.6711E-03_JPRB,3.9303E-03_JPRB,3.9873E-03_JPRB,&
588
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.8512E-03_JPRB,3.4474E-03_JPRB,1.2372E-03_JPRB/)
589 KAO( :, 5, 8, 3) = (/&
590 & 9.5395E-04_JPRB,2.8439E-03_JPRB,3.5472E-03_JPRB,3.9717E-03_JPRB,4.2227E-03_JPRB,4.2804E-03_JPRB,&
591
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.1230E-03_JPRB,3.6794E-03_JPRB,1.3472E-03_JPRB/)
592 KAO( :, 1, 9, 3) = (/&
593 & 5.1007E-04_JPRB,1.5656E-03_JPRB,2.0060E-03_JPRB,2.3330E-03_JPRB,2.5370E-03_JPRB,2.6132E-03_JPRB,&
594
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5254E-03_JPRB,2.2694E-03_JPRB,9.3729E-04_JPRB/)
595 KAO( :, 2, 9, 3) = (/&
596 & 5.6353E-04_JPRB,1.7326E-03_JPRB,2.1869E-03_JPRB,2.5189E-03_JPRB,2.7285E-03_JPRB,2.7995E-03_JPRB,&
597
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.7056E-03_JPRB,2.4351E-03_JPRB,1.0493E-03_JPRB/)
598 KAO( :, 3, 9, 3) = (/&
599 & 6.2213E-04_JPRB,1.9088E-03_JPRB,2.3915E-03_JPRB,2.7258E-03_JPRB,2.9423E-03_JPRB,2.9995E-03_JPRB,&
600
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9041E-03_JPRB,2.6067E-03_JPRB,1.1607E-03_JPRB/)
601 KAO( :, 4, 9, 3) = (/&
602 & 6.8571E-04_JPRB,2.0922E-03_JPRB,2.6149E-03_JPRB,2.9528E-03_JPRB,3.1723E-03_JPRB,3.2231E-03_JPRB,&
603
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1163E-03_JPRB,2.7863E-03_JPRB,1.2669E-03_JPRB/)
604 KAO( :, 5, 9, 3) = (/&
605 & 7.5285E-04_JPRB,2.2758E-03_JPRB,2.8459E-03_JPRB,3.1985E-03_JPRB,3.4132E-03_JPRB,3.4638E-03_JPRB,&
606
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3423E-03_JPRB,2.9799E-03_JPRB,1.3708E-03_JPRB/)
607 KAO( :, 1,10, 3) = (/&
608 & 4.0986E-04_JPRB,1.2514E-03_JPRB,1.6149E-03_JPRB,1.8827E-03_JPRB,2.0477E-03_JPRB,2.1068E-03_JPRB,&
609
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0342E-03_JPRB,1.8264E-03_JPRB,9.4172E-04_JPRB/)
610 KAO( :, 2,10, 3) = (/&
611 & 4.5195E-04_JPRB,1.3870E-03_JPRB,1.7594E-03_JPRB,2.0313E-03_JPRB,2.2041E-03_JPRB,2.2637E-03_JPRB,&
612
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1836E-03_JPRB,1.9630E-03_JPRB,1.0592E-03_JPRB/)
613 KAO( :, 3,10, 3) = (/&
614 & 4.9807E-04_JPRB,1.5305E-03_JPRB,1.9232E-03_JPRB,2.1993E-03_JPRB,2.3783E-03_JPRB,2.4282E-03_JPRB,&
615
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3477E-03_JPRB,2.1050E-03_JPRB,1.1691E-03_JPRB/)
616 KAO( :, 4,10, 3) = (/&
617 & 5.4808E-04_JPRB,1.6789E-03_JPRB,2.1022E-03_JPRB,2.3829E-03_JPRB,2.5654E-03_JPRB,2.6091E-03_JPRB,&
618
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5255E-03_JPRB,2.2562E-03_JPRB,1.2759E-03_JPRB/)
619 KAO( :, 5,10, 3) = (/&
620 & 6.0117E-04_JPRB,1.8287E-03_JPRB,2.2888E-03_JPRB,2.5807E-03_JPRB,2.7622E-03_JPRB,2.8066E-03_JPRB,&
621
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.7118E-03_JPRB,2.4197E-03_JPRB,1.3798E-03_JPRB/)
622 KAO( :, 1,11, 3) = (/&
623 & 3.4587E-04_JPRB,1.0486E-03_JPRB,1.3498E-03_JPRB,1.5706E-03_JPRB,1.7067E-03_JPRB,1.7541E-03_JPRB,&
624
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6904E-03_JPRB,1.5189E-03_JPRB,8.4922E-04_JPRB/)
625 KAO( :, 2,11, 3) = (/&
626 & 3.8030E-04_JPRB,1.1612E-03_JPRB,1.4720E-03_JPRB,1.6962E-03_JPRB,1.8396E-03_JPRB,1.8877E-03_JPRB,&
627
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8189E-03_JPRB,1.6321E-03_JPRB,9.4886E-04_JPRB/)
628 KAO( :, 3,11, 3) = (/&
629 & 4.1775E-04_JPRB,1.2794E-03_JPRB,1.6083E-03_JPRB,1.8372E-03_JPRB,1.9863E-03_JPRB,2.0269E-03_JPRB,&
630
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9602E-03_JPRB,1.7534E-03_JPRB,1.0435E-03_JPRB/)
631 KAO( :, 4,11, 3) = (/&
632 & 4.5831E-04_JPRB,1.4012E-03_JPRB,1.7558E-03_JPRB,1.9899E-03_JPRB,2.1423E-03_JPRB,2.1791E-03_JPRB,&
633
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1105E-03_JPRB,1.8847E-03_JPRB,1.1342E-03_JPRB/)
634 KAO( :, 5,11, 3) = (/&
635 & 5.0160E-04_JPRB,1.5235E-03_JPRB,1.9068E-03_JPRB,2.1518E-03_JPRB,2.3031E-03_JPRB,2.3452E-03_JPRB,&
636
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2691E-03_JPRB,2.0271E-03_JPRB,1.2246E-03_JPRB/)
637 KAO( :, 1,12, 3) = (/&
638 & 2.8728E-04_JPRB,8.7138E-04_JPRB,1.1212E-03_JPRB,1.3035E-03_JPRB,1.4166E-03_JPRB,1.4556E-03_JPRB,&
639
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4016E-03_JPRB,1.2592E-03_JPRB,7.2447E-04_JPRB/)
640 KAO( :, 2,12, 3) = (/&
641 & 3.1564E-04_JPRB,9.6434E-04_JPRB,1.2235E-03_JPRB,1.4085E-03_JPRB,1.5279E-03_JPRB,1.5679E-03_JPRB,&
642
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
10 & 1.5112E-03_JPRB,1.3542E-03_JPRB,8.0728E-04_JPRB/)
643
644
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART2',1,ZHOOK_HANDLE)
645 1 END SUBROUTINE PART2
646
647
648 1 SUBROUTINE PART3
649
650 REAL(KIND=JPRB) :: ZHOOK_HANDLE
651
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART3',0,ZHOOK_HANDLE)
652
653
654 KAO( :, 3,12, 3) = (/&
655 & 3.4588E-04_JPRB,1.0616E-03_JPRB,1.3357E-03_JPRB,1.5255E-03_JPRB,1.6505E-03_JPRB,1.6842E-03_JPRB,&
656
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6309E-03_JPRB,1.4584E-03_JPRB,8.8538E-04_JPRB/)
657 KAO( :, 4,12, 3) = (/&
658 & 3.7862E-04_JPRB,1.1614E-03_JPRB,1.4559E-03_JPRB,1.6504E-03_JPRB,1.7780E-03_JPRB,1.8118E-03_JPRB,&
659
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7570E-03_JPRB,1.5710E-03_JPRB,9.6174E-04_JPRB/)
660 KAO( :, 5,12, 3) = (/&
661 & 4.1375E-04_JPRB,1.2608E-03_JPRB,1.5783E-03_JPRB,1.7829E-03_JPRB,1.9097E-03_JPRB,1.9490E-03_JPRB,&
662
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8902E-03_JPRB,1.6924E-03_JPRB,1.0383E-03_JPRB/)
663 KAO( :, 1,13, 3) = (/&
664 & 2.3648E-04_JPRB,7.2058E-04_JPRB,9.2721E-04_JPRB,1.0773E-03_JPRB,1.1715E-03_JPRB,1.2041E-03_JPRB,&
665
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1590E-03_JPRB,1.0409E-03_JPRB,5.9750E-04_JPRB/)
666 KAO( :, 2,13, 3) = (/&
667 & 2.5991E-04_JPRB,7.9700E-04_JPRB,1.0119E-03_JPRB,1.1647E-03_JPRB,1.2640E-03_JPRB,1.2977E-03_JPRB,&
668
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2520E-03_JPRB,1.1213E-03_JPRB,6.6442E-04_JPRB/)
669 KAO( :, 3,13, 3) = (/&
670 & 2.8463E-04_JPRB,8.7643E-04_JPRB,1.1035E-03_JPRB,1.2606E-03_JPRB,1.3651E-03_JPRB,1.3947E-03_JPRB,&
671
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3520E-03_JPRB,1.2099E-03_JPRB,7.2829E-04_JPRB/)
672 KAO( :, 4,13, 3) = (/&
673 & 3.1116E-04_JPRB,9.5840E-04_JPRB,1.2015E-03_JPRB,1.3629E-03_JPRB,1.4693E-03_JPRB,1.4997E-03_JPRB,&
674
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4571E-03_JPRB,1.3050E-03_JPRB,7.9195E-04_JPRB/)
675 KAO( :, 5,13, 3) = (/&
676 & 3.3973E-04_JPRB,1.0393E-03_JPRB,1.3011E-03_JPRB,1.4709E-03_JPRB,1.5771E-03_JPRB,1.6125E-03_JPRB,&
677
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5669E-03_JPRB,1.4078E-03_JPRB,8.5580E-04_JPRB/)
678 KAO( :, 1, 1, 4) = (/&
679 & 6.8556E-03_JPRB,1.5209E-02_JPRB,1.8964E-02_JPRB,2.1311E-02_JPRB,2.2775E-02_JPRB,2.3573E-02_JPRB,&
680
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3412E-02_JPRB,2.1611E-02_JPRB,1.0754E-02_JPRB/)
681 KAO( :, 2, 1, 4) = (/&
682 & 7.5360E-03_JPRB,1.6539E-02_JPRB,2.0389E-02_JPRB,2.2809E-02_JPRB,2.4368E-02_JPRB,2.5124E-02_JPRB,&
683
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.4893E-02_JPRB,2.2807E-02_JPRB,1.1409E-02_JPRB/)
684 KAO( :, 3, 1, 4) = (/&
685 & 8.2731E-03_JPRB,1.7967E-02_JPRB,2.1859E-02_JPRB,2.4354E-02_JPRB,2.6001E-02_JPRB,2.6738E-02_JPRB,&
686
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6424E-02_JPRB,2.3981E-02_JPRB,1.2028E-02_JPRB/)
687 KAO( :, 4, 1, 4) = (/&
688 & 9.0669E-03_JPRB,1.9440E-02_JPRB,2.3386E-02_JPRB,2.5951E-02_JPRB,2.7638E-02_JPRB,2.8404E-02_JPRB,&
689
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.7993E-02_JPRB,2.5105E-02_JPRB,1.2622E-02_JPRB/)
690 KAO( :, 5, 1, 4) = (/&
691 & 9.9297E-03_JPRB,2.0867E-02_JPRB,2.4992E-02_JPRB,2.7620E-02_JPRB,2.9333E-02_JPRB,3.0144E-02_JPRB,&
692
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9561E-02_JPRB,2.6196E-02_JPRB,1.3246E-02_JPRB/)
693 KAO( :, 1, 2, 4) = (/&
694 & 6.0458E-03_JPRB,1.3057E-02_JPRB,1.6177E-02_JPRB,1.8072E-02_JPRB,1.9267E-02_JPRB,1.9866E-02_JPRB,&
695
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9708E-02_JPRB,1.7998E-02_JPRB,8.6186E-03_JPRB/)
696 KAO( :, 2, 2, 4) = (/&
697 & 6.6625E-03_JPRB,1.4207E-02_JPRB,1.7424E-02_JPRB,1.9390E-02_JPRB,2.0646E-02_JPRB,2.1226E-02_JPRB,&
698
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0989E-02_JPRB,1.9040E-02_JPRB,9.1596E-03_JPRB/)
699 KAO( :, 3, 2, 4) = (/&
700 & 7.3258E-03_JPRB,1.5446E-02_JPRB,1.8730E-02_JPRB,2.0756E-02_JPRB,2.2068E-02_JPRB,2.2641E-02_JPRB,&
701
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2320E-02_JPRB,2.0040E-02_JPRB,9.6719E-03_JPRB/)
702 KAO( :, 4, 2, 4) = (/&
703 & 8.0389E-03_JPRB,1.6697E-02_JPRB,2.0086E-02_JPRB,2.2176E-02_JPRB,2.3509E-02_JPRB,2.4128E-02_JPRB,&
704
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3691E-02_JPRB,2.0995E-02_JPRB,1.0163E-02_JPRB/)
705 KAO( :, 5, 2, 4) = (/&
706 & 8.8116E-03_JPRB,1.7924E-02_JPRB,2.1495E-02_JPRB,2.3659E-02_JPRB,2.5007E-02_JPRB,2.5649E-02_JPRB,&
707
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5070E-02_JPRB,2.1939E-02_JPRB,1.0681E-02_JPRB/)
708 KAO( :, 1, 3, 4) = (/&
709 & 5.1529E-03_JPRB,1.1010E-02_JPRB,1.3576E-02_JPRB,1.5057E-02_JPRB,1.5941E-02_JPRB,1.6391E-02_JPRB,&
710
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6252E-02_JPRB,1.4825E-02_JPRB,6.7965E-03_JPRB/)
711 KAO( :, 2, 3, 4) = (/&
712 & 5.7021E-03_JPRB,1.1982E-02_JPRB,1.4643E-02_JPRB,1.6192E-02_JPRB,1.7140E-02_JPRB,1.7565E-02_JPRB,&
713
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7355E-02_JPRB,1.5736E-02_JPRB,7.2498E-03_JPRB/)
714 KAO( :, 3, 3, 4) = (/&
715 & 6.2951E-03_JPRB,1.3030E-02_JPRB,1.5759E-02_JPRB,1.7371E-02_JPRB,1.8379E-02_JPRB,1.8797E-02_JPRB,&
716
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8506E-02_JPRB,1.6604E-02_JPRB,7.6744E-03_JPRB/)
717 KAO( :, 4, 3, 4) = (/&
718 & 6.9329E-03_JPRB,1.4099E-02_JPRB,1.6924E-02_JPRB,1.8614E-02_JPRB,1.9640E-02_JPRB,2.0080E-02_JPRB,&
719
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9697E-02_JPRB,1.7427E-02_JPRB,8.0855E-03_JPRB/)
720 KAO( :, 5, 3, 4) = (/&
721 & 7.6208E-03_JPRB,1.5154E-02_JPRB,1.8132E-02_JPRB,1.9899E-02_JPRB,2.0953E-02_JPRB,2.1403E-02_JPRB,&
722
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0907E-02_JPRB,1.8236E-02_JPRB,8.5123E-03_JPRB/)
723 KAO( :, 1, 4, 4) = (/&
724 & 4.3117E-03_JPRB,9.2399E-03_JPRB,1.1333E-02_JPRB,1.2460E-02_JPRB,1.3088E-02_JPRB,1.3384E-02_JPRB,&
725
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3264E-02_JPRB,1.2129E-02_JPRB,5.3638E-03_JPRB/)
726 KAO( :, 2, 4, 4) = (/&
727 & 4.7919E-03_JPRB,1.0057E-02_JPRB,1.2236E-02_JPRB,1.3425E-02_JPRB,1.4108E-02_JPRB,1.4384E-02_JPRB,&
728
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4215E-02_JPRB,1.2919E-02_JPRB,5.7448E-03_JPRB/)
729 KAO( :, 3, 4, 4) = (/&
730 & 5.3141E-03_JPRB,1.0939E-02_JPRB,1.3172E-02_JPRB,1.4430E-02_JPRB,1.5160E-02_JPRB,1.5438E-02_JPRB,&
731
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5198E-02_JPRB,1.3684E-02_JPRB,6.1060E-03_JPRB/)
732 KAO( :, 4, 4, 4) = (/&
733 & 5.8726E-03_JPRB,1.1850E-02_JPRB,1.4160E-02_JPRB,1.5498E-02_JPRB,1.6255E-02_JPRB,1.6542E-02_JPRB,&
734
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6226E-02_JPRB,1.4411E-02_JPRB,6.4545E-03_JPRB/)
735 KAO( :, 5, 4, 4) = (/&
736 & 6.4675E-03_JPRB,1.2764E-02_JPRB,1.5190E-02_JPRB,1.6608E-02_JPRB,1.7400E-02_JPRB,1.7692E-02_JPRB,&
737
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7269E-02_JPRB,1.5120E-02_JPRB,6.8073E-03_JPRB/)
738 KAO( :, 1, 5, 4) = (/&
739 & 3.5690E-03_JPRB,7.7051E-03_JPRB,9.4368E-03_JPRB,1.0305E-02_JPRB,1.0745E-02_JPRB,1.0912E-02_JPRB,&
740
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0785E-02_JPRB,9.8773E-03_JPRB,4.2532E-03_JPRB/)
741 KAO( :, 2, 5, 4) = (/&
742 & 3.9820E-03_JPRB,8.3977E-03_JPRB,1.0194E-02_JPRB,1.1112E-02_JPRB,1.1609E-02_JPRB,1.1756E-02_JPRB,&
743
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1595E-02_JPRB,1.0560E-02_JPRB,4.5731E-03_JPRB/)
744 KAO( :, 3, 5, 4) = (/&
745 & 4.4305E-03_JPRB,9.1511E-03_JPRB,1.0990E-02_JPRB,1.1967E-02_JPRB,1.2498E-02_JPRB,1.2650E-02_JPRB,&
746
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2430E-02_JPRB,1.1229E-02_JPRB,4.8830E-03_JPRB/)
747 KAO( :, 4, 5, 4) = (/&
748 & 4.9079E-03_JPRB,9.9363E-03_JPRB,1.1832E-02_JPRB,1.2872E-02_JPRB,1.3434E-02_JPRB,1.3592E-02_JPRB,&
749
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3307E-02_JPRB,1.1872E-02_JPRB,5.1810E-03_JPRB/)
750 KAO( :, 5, 5, 4) = (/&
751 & 5.4148E-03_JPRB,1.0727E-02_JPRB,1.2716E-02_JPRB,1.3820E-02_JPRB,1.4419E-02_JPRB,1.4584E-02_JPRB,&
752
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4197E-02_JPRB,1.2492E-02_JPRB,5.4782E-03_JPRB/)
753 KAO( :, 1, 6, 4) = (/&
754 & 2.9249E-03_JPRB,6.3510E-03_JPRB,7.7849E-03_JPRB,8.4721E-03_JPRB,8.7941E-03_JPRB,8.8837E-03_JPRB,&
755
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.7388E-03_JPRB,7.9841E-03_JPRB,3.3710E-03_JPRB/)
756 KAO( :, 2, 6, 4) = (/&
757 & 3.2672E-03_JPRB,6.9385E-03_JPRB,8.4203E-03_JPRB,9.1541E-03_JPRB,9.5165E-03_JPRB,9.5904E-03_JPRB,&
758
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.4152E-03_JPRB,8.5713E-03_JPRB,3.6377E-03_JPRB/)
759 KAO( :, 3, 6, 4) = (/&
760 & 3.6418E-03_JPRB,7.5787E-03_JPRB,9.0887E-03_JPRB,9.8765E-03_JPRB,1.0268E-02_JPRB,1.0342E-02_JPRB,&
761
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0116E-02_JPRB,9.1545E-03_JPRB,3.8990E-03_JPRB/)
762 KAO( :, 4, 6, 4) = (/&
763 & 4.0414E-03_JPRB,8.2510E-03_JPRB,9.8093E-03_JPRB,1.0646E-02_JPRB,1.1060E-02_JPRB,1.1134E-02_JPRB,&
764
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0854E-02_JPRB,9.7190E-03_JPRB,4.1544E-03_JPRB/)
765 KAO( :, 5, 6, 4) = (/&
766 & 4.4633E-03_JPRB,8.9345E-03_JPRB,1.0570E-02_JPRB,1.1457E-02_JPRB,1.1902E-02_JPRB,1.1976E-02_JPRB,&
767
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1614E-02_JPRB,1.0272E-02_JPRB,4.4061E-03_JPRB/)
768 KAO( :, 1, 7, 4) = (/&
769 & 2.3975E-03_JPRB,5.1959E-03_JPRB,6.3675E-03_JPRB,6.9242E-03_JPRB,7.1717E-03_JPRB,7.2208E-03_JPRB,&
770
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.0819E-03_JPRB,6.4278E-03_JPRB,2.6775E-03_JPRB/)
771 KAO( :, 2, 7, 4) = (/&
772 & 2.6794E-03_JPRB,5.6899E-03_JPRB,6.9066E-03_JPRB,7.4942E-03_JPRB,7.7787E-03_JPRB,7.8098E-03_JPRB,&
773
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.6464E-03_JPRB,6.9290E-03_JPRB,2.9001E-03_JPRB/)
774 KAO( :, 3, 7, 4) = (/&
775 & 2.9849E-03_JPRB,6.2316E-03_JPRB,7.4741E-03_JPRB,8.1056E-03_JPRB,8.4139E-03_JPRB,8.4374E-03_JPRB,&
776
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.2281E-03_JPRB,7.4302E-03_JPRB,3.1195E-03_JPRB/)
777 KAO( :, 4, 7, 4) = (/&
778 & 3.3129E-03_JPRB,6.7984E-03_JPRB,8.0790E-03_JPRB,8.7600E-03_JPRB,9.0837E-03_JPRB,9.1052E-03_JPRB,&
779
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.8458E-03_JPRB,7.9231E-03_JPRB,3.3376E-03_JPRB/)
780 KAO( :, 5, 7, 4) = (/&
781 & 3.6598E-03_JPRB,7.3757E-03_JPRB,8.7298E-03_JPRB,9.4547E-03_JPRB,9.7958E-03_JPRB,9.8221E-03_JPRB,&
782
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.4863E-03_JPRB,8.4060E-03_JPRB,3.5509E-03_JPRB/)
783 KAO( :, 1, 8, 4) = (/&
784 & 1.9434E-03_JPRB,4.2318E-03_JPRB,5.1740E-03_JPRB,5.6370E-03_JPRB,5.8246E-03_JPRB,5.8488E-03_JPRB,&
785
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.7327E-03_JPRB,5.1810E-03_JPRB,2.1537E-03_JPRB/)
786 KAO( :, 2, 8, 4) = (/&
787 & 2.1750E-03_JPRB,4.6511E-03_JPRB,5.6344E-03_JPRB,6.1150E-03_JPRB,6.3286E-03_JPRB,6.3404E-03_JPRB,&
788
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.2037E-03_JPRB,5.6029E-03_JPRB,2.3441E-03_JPRB/)
789 KAO( :, 3, 8, 4) = (/&
790 & 2.4260E-03_JPRB,5.1070E-03_JPRB,6.1176E-03_JPRB,6.6292E-03_JPRB,6.8641E-03_JPRB,6.8681E-03_JPRB,&
791
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.6887E-03_JPRB,6.0329E-03_JPRB,2.5317E-03_JPRB/)
792 KAO( :, 4, 8, 4) = (/&
793 & 2.6978E-03_JPRB,5.5812E-03_JPRB,6.6317E-03_JPRB,7.1849E-03_JPRB,7.4298E-03_JPRB,7.4337E-03_JPRB,&
794
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.2011E-03_JPRB,6.4503E-03_JPRB,2.7201E-03_JPRB/)
795 KAO( :, 5, 8, 4) = (/&
796 & 2.9851E-03_JPRB,6.0671E-03_JPRB,7.1793E-03_JPRB,7.7747E-03_JPRB,8.0358E-03_JPRB,8.0369E-03_JPRB,&
797
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.7421E-03_JPRB,6.8660E-03_JPRB,2.9050E-03_JPRB/)
798 KAO( :, 1, 9, 4) = (/&
799 & 1.5624E-03_JPRB,3.4224E-03_JPRB,4.1803E-03_JPRB,4.5613E-03_JPRB,4.7117E-03_JPRB,4.7269E-03_JPRB,&
800
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.6315E-03_JPRB,4.1802E-03_JPRB,2.0354E-03_JPRB/)
801 KAO( :, 2, 9, 4) = (/&
802 & 1.7467E-03_JPRB,3.7749E-03_JPRB,4.5748E-03_JPRB,4.9706E-03_JPRB,5.1343E-03_JPRB,5.1344E-03_JPRB,&
803
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.0243E-03_JPRB,4.5350E-03_JPRB,2.2250E-03_JPRB/)
804 KAO( :, 3, 9, 4) = (/&
805 & 1.9492E-03_JPRB,4.1547E-03_JPRB,4.9867E-03_JPRB,5.4054E-03_JPRB,5.5868E-03_JPRB,5.5764E-03_JPRB,&
806
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.4288E-03_JPRB,4.8977E-03_JPRB,2.4149E-03_JPRB/)
807 KAO( :, 4, 9, 4) = (/&
808 & 2.1701E-03_JPRB,4.5508E-03_JPRB,5.4194E-03_JPRB,5.8744E-03_JPRB,6.0659E-03_JPRB,6.0518E-03_JPRB,&
809
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.8540E-03_JPRB,5.2537E-03_JPRB,2.5971E-03_JPRB/)
810 KAO( :, 5, 9, 4) = (/&
811 & 2.4022E-03_JPRB,4.9613E-03_JPRB,5.8787E-03_JPRB,6.3727E-03_JPRB,6.5778E-03_JPRB,6.5618E-03_JPRB,&
812
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.3067E-03_JPRB,5.6053E-03_JPRB,2.7830E-03_JPRB/)
813 KAO( :, 1,10, 4) = (/&
814 & 1.2651E-03_JPRB,2.7744E-03_JPRB,3.3801E-03_JPRB,3.6900E-03_JPRB,3.8178E-03_JPRB,3.8360E-03_JPRB,&
815
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.7605E-03_JPRB,3.3907E-03_JPRB,2.1692E-03_JPRB/)
816 KAO( :, 2,10, 4) = (/&
817 & 1.4111E-03_JPRB,3.0657E-03_JPRB,3.7136E-03_JPRB,4.0421E-03_JPRB,4.1735E-03_JPRB,4.1745E-03_JPRB,&
818
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.0861E-03_JPRB,3.6872E-03_JPRB,2.3639E-03_JPRB/)
819 KAO( :, 3,10, 4) = (/&
820 & 1.5740E-03_JPRB,3.3806E-03_JPRB,4.0618E-03_JPRB,4.4105E-03_JPRB,4.5571E-03_JPRB,4.5460E-03_JPRB,&
821
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.4247E-03_JPRB,3.9923E-03_JPRB,2.5630E-03_JPRB/)
822 KAO( :, 4,10, 4) = (/&
823 & 1.7522E-03_JPRB,3.7084E-03_JPRB,4.4249E-03_JPRB,4.8035E-03_JPRB,4.9639E-03_JPRB,4.9498E-03_JPRB,&
824
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.7806E-03_JPRB,4.2956E-03_JPRB,2.7623E-03_JPRB/)
825 KAO( :, 5,10, 4) = (/&
826 & 1.9383E-03_JPRB,4.0495E-03_JPRB,4.8094E-03_JPRB,5.2222E-03_JPRB,5.3934E-03_JPRB,5.3817E-03_JPRB,&
827
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.1614E-03_JPRB,4.5951E-03_JPRB,2.9665E-03_JPRB/)
828 KAO( :, 1,11, 4) = (/&
829 & 1.0742E-03_JPRB,2.3468E-03_JPRB,2.8469E-03_JPRB,3.1039E-03_JPRB,3.2098E-03_JPRB,3.2233E-03_JPRB,&
830
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1623E-03_JPRB,2.8537E-03_JPRB,1.9822E-03_JPRB/)
831 KAO( :, 2,11, 4) = (/&
832 & 1.1960E-03_JPRB,2.5965E-03_JPRB,3.1323E-03_JPRB,3.4077E-03_JPRB,3.5194E-03_JPRB,3.5164E-03_JPRB,&
833
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.4380E-03_JPRB,3.1056E-03_JPRB,2.1578E-03_JPRB/)
834 KAO( :, 3,11, 4) = (/&
835 & 1.3316E-03_JPRB,2.8599E-03_JPRB,3.4277E-03_JPRB,3.7260E-03_JPRB,3.8497E-03_JPRB,3.8405E-03_JPRB,&
836
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.7265E-03_JPRB,3.3630E-03_JPRB,2.3306E-03_JPRB/)
837 KAO( :, 4,11, 4) = (/&
838 & 1.4781E-03_JPRB,3.1344E-03_JPRB,3.7357E-03_JPRB,4.0610E-03_JPRB,4.1987E-03_JPRB,4.1913E-03_JPRB,&
839
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.0345E-03_JPRB,3.6192E-03_JPRB,2.5097E-03_JPRB/)
840 KAO( :, 5,11, 4) = (/&
841 & 1.6288E-03_JPRB,3.4177E-03_JPRB,4.0619E-03_JPRB,4.4185E-03_JPRB,4.5672E-03_JPRB,4.5600E-03_JPRB,&
842
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.3663E-03_JPRB,3.8756E-03_JPRB,2.6889E-03_JPRB/)
843 KAO( :, 1,12, 4) = (/&
844 & 8.9874E-04_JPRB,1.9689E-03_JPRB,2.3835E-03_JPRB,2.5973E-03_JPRB,2.6864E-03_JPRB,2.6939E-03_JPRB,&
845
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6425E-03_JPRB,2.3895E-03_JPRB,1.7049E-03_JPRB/)
846 KAO( :, 2,12, 4) = (/&
847 & 1.0002E-03_JPRB,2.1778E-03_JPRB,2.6233E-03_JPRB,2.8564E-03_JPRB,2.9517E-03_JPRB,2.9476E-03_JPRB,&
848
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8766E-03_JPRB,2.6019E-03_JPRB,1.8543E-03_JPRB/)
849 KAO( :, 3,12, 4) = (/&
850 & 1.1122E-03_JPRB,2.3973E-03_JPRB,2.8713E-03_JPRB,3.1266E-03_JPRB,3.2310E-03_JPRB,3.2276E-03_JPRB,&
851
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1237E-03_JPRB,2.8177E-03_JPRB,2.0046E-03_JPRB/)
852 KAO( :, 4,12, 4) = (/&
853 & 1.2310E-03_JPRB,2.6254E-03_JPRB,3.1305E-03_JPRB,3.4112E-03_JPRB,3.5275E-03_JPRB,3.5259E-03_JPRB,&
854
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3898E-03_JPRB,3.0349E-03_JPRB,2.1565E-03_JPRB/)
855 KAO( :, 5,12, 4) = (/&
856 & 1.3518E-03_JPRB,2.8575E-03_JPRB,3.4006E-03_JPRB,3.7092E-03_JPRB,3.8403E-03_JPRB,3.8370E-03_JPRB,&
857
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.6750E-03_JPRB,3.2557E-03_JPRB,2.3061E-03_JPRB/)
858 KAO( :, 1,13, 4) = (/&
859 & 7.4537E-04_JPRB,1.6409E-03_JPRB,1.9863E-03_JPRB,2.1648E-03_JPRB,2.2399E-03_JPRB,2.2444E-03_JPRB,&
860
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1988E-03_JPRB,1.9916E-03_JPRB,1.4115E-03_JPRB/)
861 KAO( :, 2,13, 4) = (/&
862 & 8.2943E-04_JPRB,1.8143E-03_JPRB,2.1850E-03_JPRB,2.3828E-03_JPRB,2.4639E-03_JPRB,2.4609E-03_JPRB,&
863
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3970E-03_JPRB,2.1692E-03_JPRB,1.5369E-03_JPRB/)
864 KAO( :, 3,13, 4) = (/&
865 & 9.2142E-04_JPRB,1.9970E-03_JPRB,2.3927E-03_JPRB,2.6093E-03_JPRB,2.6971E-03_JPRB,2.6969E-03_JPRB,&
866
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6076E-03_JPRB,2.3521E-03_JPRB,1.6626E-03_JPRB/)
867 KAO( :, 4,13, 4) = (/&
868 & 1.0167E-03_JPRB,2.1837E-03_JPRB,2.6078E-03_JPRB,2.8478E-03_JPRB,2.9467E-03_JPRB,2.9488E-03_JPRB,&
869
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8346E-03_JPRB,2.5383E-03_JPRB,1.7879E-03_JPRB/)
870 KAO( :, 5,13, 4) = (/&
871 & 1.1138E-03_JPRB,2.3733E-03_JPRB,2.8290E-03_JPRB,3.0924E-03_JPRB,3.2079E-03_JPRB,3.2103E-03_JPRB,&
872
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.0778E-03_JPRB,2.7284E-03_JPRB,1.9133E-03_JPRB/)
873 KAO( :, 1, 1, 5) = (/&
874 & 1.7181E-02_JPRB,3.2302E-02_JPRB,3.8595E-02_JPRB,4.2778E-02_JPRB,4.5051E-02_JPRB,4.5779E-02_JPRB,&
875
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.4076E-02_JPRB,3.6499E-02_JPRB,2.1167E-02_JPRB/)
876 KAO( :, 2, 1, 5) = (/&
877 & 1.8715E-02_JPRB,3.4583E-02_JPRB,4.1400E-02_JPRB,4.5830E-02_JPRB,4.8256E-02_JPRB,4.8951E-02_JPRB,&
878
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.6576E-02_JPRB,3.8480E-02_JPRB,2.2565E-02_JPRB/)
879 KAO( :, 3, 1, 5) = (/&
880 & 2.0319E-02_JPRB,3.6940E-02_JPRB,4.4260E-02_JPRB,4.8908E-02_JPRB,5.1471E-02_JPRB,5.2022E-02_JPRB,&
881
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.8965E-02_JPRB,4.0507E-02_JPRB,2.4057E-02_JPRB/)
882 KAO( :, 4, 1, 5) = (/&
883 & 2.1938E-02_JPRB,3.9364E-02_JPRB,4.7234E-02_JPRB,5.2022E-02_JPRB,5.4697E-02_JPRB,5.4911E-02_JPRB,&
884
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.1216E-02_JPRB,4.2565E-02_JPRB,2.5590E-02_JPRB/)
885 KAO( :, 5, 1, 5) = (/&
886 & 2.3550E-02_JPRB,4.1966E-02_JPRB,5.0230E-02_JPRB,5.5149E-02_JPRB,5.7839E-02_JPRB,5.7598E-02_JPRB,&
887
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.3448E-02_JPRB,4.4689E-02_JPRB,2.7100E-02_JPRB/)
888 KAO( :, 1, 2, 5) = (/&
889 & 1.5052E-02_JPRB,2.7803E-02_JPRB,3.3102E-02_JPRB,3.6670E-02_JPRB,3.8668E-02_JPRB,3.9030E-02_JPRB,&
890
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.7189E-02_JPRB,3.0668E-02_JPRB,1.6985E-02_JPRB/)
891 KAO( :, 2, 2, 5) = (/&
892 & 1.6394E-02_JPRB,2.9857E-02_JPRB,3.5621E-02_JPRB,3.9412E-02_JPRB,4.1539E-02_JPRB,4.1835E-02_JPRB,&
893
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.9351E-02_JPRB,3.2356E-02_JPRB,1.8150E-02_JPRB/)
894 KAO( :, 3, 2, 5) = (/&
895 & 1.7773E-02_JPRB,3.1981E-02_JPRB,3.8209E-02_JPRB,4.2190E-02_JPRB,4.4385E-02_JPRB,4.4554E-02_JPRB,&
896
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.1400E-02_JPRB,3.4106E-02_JPRB,1.9354E-02_JPRB/)
897 KAO( :, 4, 2, 5) = (/&
898 & 1.9186E-02_JPRB,3.4227E-02_JPRB,4.0894E-02_JPRB,4.4998E-02_JPRB,4.7235E-02_JPRB,4.7050E-02_JPRB,&
899
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.3366E-02_JPRB,3.5935E-02_JPRB,2.0592E-02_JPRB/)
900 KAO( :, 5, 2, 5) = (/&
901 & 2.0602E-02_JPRB,3.6657E-02_JPRB,4.3639E-02_JPRB,4.7854E-02_JPRB,5.0031E-02_JPRB,4.9403E-02_JPRB,&
902
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.5298E-02_JPRB,3.7775E-02_JPRB,2.1830E-02_JPRB/)
903 KAO( :, 1, 3, 5) = (/&
904 & 1.3014E-02_JPRB,2.3440E-02_JPRB,2.7739E-02_JPRB,3.0683E-02_JPRB,3.2476E-02_JPRB,3.2815E-02_JPRB,&
905
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1052E-02_JPRB,2.5347E-02_JPRB,1.3409E-02_JPRB/)
906 KAO( :, 2, 3, 5) = (/&
907 & 1.4134E-02_JPRB,2.5267E-02_JPRB,2.9956E-02_JPRB,3.3121E-02_JPRB,3.5013E-02_JPRB,3.5276E-02_JPRB,&
908
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2969E-02_JPRB,2.6772E-02_JPRB,1.4346E-02_JPRB/)
909 KAO( :, 3, 3, 5) = (/&
910 & 1.5286E-02_JPRB,2.7161E-02_JPRB,3.2264E-02_JPRB,3.5614E-02_JPRB,3.7525E-02_JPRB,3.7651E-02_JPRB,&
911
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.4766E-02_JPRB,2.8284E-02_JPRB,1.5307E-02_JPRB/)
912 KAO( :, 4, 3, 5) = (/&
913 & 1.6478E-02_JPRB,2.9176E-02_JPRB,3.4663E-02_JPRB,3.8132E-02_JPRB,4.0060E-02_JPRB,3.9857E-02_JPRB,&
914
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.6493E-02_JPRB,2.9862E-02_JPRB,1.6309E-02_JPRB/)
915 KAO( :, 5, 3, 5) = (/&
916 & 1.7703E-02_JPRB,3.1371E-02_JPRB,3.7140E-02_JPRB,4.0703E-02_JPRB,4.2572E-02_JPRB,4.1936E-02_JPRB,&
917
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.8184E-02_JPRB,3.1459E-02_JPRB,1.7321E-02_JPRB/)
918 KAO( :, 1, 4, 5) = (/&
919 & 1.1231E-02_JPRB,1.9592E-02_JPRB,2.3001E-02_JPRB,2.5417E-02_JPRB,2.6918E-02_JPRB,2.7254E-02_JPRB,&
920
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5764E-02_JPRB,2.0867E-02_JPRB,1.0611E-02_JPRB/)
921 KAO( :, 2, 4, 5) = (/&
922 & 1.2152E-02_JPRB,2.1190E-02_JPRB,2.4941E-02_JPRB,2.7556E-02_JPRB,2.9134E-02_JPRB,2.9416E-02_JPRB,&
923
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.7448E-02_JPRB,2.2085E-02_JPRB,1.1371E-02_JPRB/)
924 KAO( :, 3, 4, 5) = (/&
925 & 1.3112E-02_JPRB,2.2852E-02_JPRB,2.6983E-02_JPRB,2.9739E-02_JPRB,3.1347E-02_JPRB,3.1506E-02_JPRB,&
926
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9043E-02_JPRB,2.3373E-02_JPRB,1.2148E-02_JPRB/)
927 KAO( :, 4, 4, 5) = (/&
928 & 1.4124E-02_JPRB,2.4635E-02_JPRB,2.9094E-02_JPRB,3.1959E-02_JPRB,3.3566E-02_JPRB,3.3485E-02_JPRB,&
929
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.0596E-02_JPRB,2.4717E-02_JPRB,1.2964E-02_JPRB/)
930 KAO( :, 5, 4, 5) = (/&
931 & 1.5184E-02_JPRB,2.6570E-02_JPRB,3.1299E-02_JPRB,3.4230E-02_JPRB,3.5790E-02_JPRB,3.5353E-02_JPRB,&
932
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2102E-02_JPRB,2.6103E-02_JPRB,1.3794E-02_JPRB/)
933 KAO( :, 1, 5, 5) = (/&
934 & 9.6625E-03_JPRB,1.6401E-02_JPRB,1.9034E-02_JPRB,2.0952E-02_JPRB,2.2133E-02_JPRB,2.2396E-02_JPRB,&
935
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1200E-02_JPRB,1.7173E-02_JPRB,8.4178E-03_JPRB/)
936 KAO( :, 2, 5, 5) = (/&
937 & 1.0438E-02_JPRB,1.7777E-02_JPRB,2.0706E-02_JPRB,2.2811E-02_JPRB,2.4067E-02_JPRB,2.4293E-02_JPRB,&
938
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2690E-02_JPRB,1.8230E-02_JPRB,9.0426E-03_JPRB/)
939 KAO( :, 3, 5, 5) = (/&
940 & 1.1254E-02_JPRB,1.9209E-02_JPRB,2.2469E-02_JPRB,2.4701E-02_JPRB,2.6015E-02_JPRB,2.6148E-02_JPRB,&
941
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
10 & 2.4123E-02_JPRB,1.9342E-02_JPRB,9.6801E-03_JPRB/)
942
943
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART3',1,ZHOOK_HANDLE)
944 1 END SUBROUTINE PART3
945
946
947 1 SUBROUTINE PART4
948
949 REAL(KIND=JPRB) :: ZHOOK_HANDLE
950
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART4',0,ZHOOK_HANDLE)
951
952
953 KAO( :, 4, 5, 5) = (/&
954 & 1.2133E-02_JPRB,2.0762E-02_JPRB,2.4308E-02_JPRB,2.6645E-02_JPRB,2.7949E-02_JPRB,2.7917E-02_JPRB,&
955
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5517E-02_JPRB,2.0494E-02_JPRB,1.0342E-02_JPRB/)
956 KAO( :, 5, 5, 5) = (/&
957 & 1.3065E-02_JPRB,2.2455E-02_JPRB,2.6254E-02_JPRB,2.8630E-02_JPRB,2.9901E-02_JPRB,2.9590E-02_JPRB,&
958
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6871E-02_JPRB,2.1687E-02_JPRB,1.1028E-02_JPRB/)
959 KAO( :, 1, 6, 5) = (/&
960 & 8.2007E-03_JPRB,1.3715E-02_JPRB,1.5729E-02_JPRB,1.7180E-02_JPRB,1.8048E-02_JPRB,1.8207E-02_JPRB,&
961
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7264E-02_JPRB,1.4054E-02_JPRB,6.6647E-03_JPRB/)
962 KAO( :, 2, 6, 5) = (/&
963 & 8.8577E-03_JPRB,1.4875E-02_JPRB,1.7145E-02_JPRB,1.8767E-02_JPRB,1.9710E-02_JPRB,1.9852E-02_JPRB,&
964
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8586E-02_JPRB,1.4966E-02_JPRB,7.1861E-03_JPRB/)
965 KAO( :, 3, 6, 5) = (/&
966 & 9.5621E-03_JPRB,1.6088E-02_JPRB,1.8646E-02_JPRB,2.0384E-02_JPRB,2.1390E-02_JPRB,2.1481E-02_JPRB,&
967
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9863E-02_JPRB,1.5925E-02_JPRB,7.7141E-03_JPRB/)
968 KAO( :, 4, 6, 5) = (/&
969 & 1.0328E-02_JPRB,1.7422E-02_JPRB,2.0223E-02_JPRB,2.2061E-02_JPRB,2.3072E-02_JPRB,2.3059E-02_JPRB,&
970
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1135E-02_JPRB,1.6924E-02_JPRB,8.2553E-03_JPRB/)
971 KAO( :, 5, 6, 5) = (/&
972 & 1.1150E-02_JPRB,1.8880E-02_JPRB,2.1894E-02_JPRB,2.3787E-02_JPRB,2.4780E-02_JPRB,2.4546E-02_JPRB,&
973
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2361E-02_JPRB,1.7956E-02_JPRB,8.8222E-03_JPRB/)
974 KAO( :, 1, 7, 5) = (/&
975 & 6.8716E-03_JPRB,1.1438E-02_JPRB,1.2980E-02_JPRB,1.4066E-02_JPRB,1.4694E-02_JPRB,1.4738E-02_JPRB,&
976
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3970E-02_JPRB,1.1459E-02_JPRB,5.2799E-03_JPRB/)
977 KAO( :, 2, 7, 5) = (/&
978 & 7.4237E-03_JPRB,1.2422E-02_JPRB,1.4174E-02_JPRB,1.5413E-02_JPRB,1.6105E-02_JPRB,1.6152E-02_JPRB,&
979
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5139E-02_JPRB,1.2254E-02_JPRB,5.7135E-03_JPRB/)
980 KAO( :, 3, 7, 5) = (/&
981 & 8.0288E-03_JPRB,1.3449E-02_JPRB,1.5440E-02_JPRB,1.6795E-02_JPRB,1.7529E-02_JPRB,1.7565E-02_JPRB,&
982
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6277E-02_JPRB,1.3083E-02_JPRB,6.1506E-03_JPRB/)
983 KAO( :, 4, 7, 5) = (/&
984 & 8.6956E-03_JPRB,1.4582E-02_JPRB,1.6791E-02_JPRB,1.8226E-02_JPRB,1.8968E-02_JPRB,1.8943E-02_JPRB,&
985
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7401E-02_JPRB,1.3948E-02_JPRB,6.5933E-03_JPRB/)
986 KAO( :, 5, 7, 5) = (/&
987 & 9.4131E-03_JPRB,1.5832E-02_JPRB,1.8226E-02_JPRB,1.9705E-02_JPRB,2.0439E-02_JPRB,2.0248E-02_JPRB,&
988
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8508E-02_JPRB,1.4839E-02_JPRB,7.0585E-03_JPRB/)
989 KAO( :, 1, 8, 5) = (/&
990 & 5.7435E-03_JPRB,9.4740E-03_JPRB,1.0676E-02_JPRB,1.1493E-02_JPRB,1.1955E-02_JPRB,1.1929E-02_JPRB,&
991
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1279E-02_JPRB,9.3230E-03_JPRB,4.2354E-03_JPRB/)
992 KAO( :, 2, 8, 5) = (/&
993 & 6.2010E-03_JPRB,1.0304E-02_JPRB,1.1685E-02_JPRB,1.2627E-02_JPRB,1.3147E-02_JPRB,1.3135E-02_JPRB,&
994
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2304E-02_JPRB,1.0014E-02_JPRB,4.5941E-03_JPRB/)
995 KAO( :, 3, 8, 5) = (/&
996 & 6.7137E-03_JPRB,1.1183E-02_JPRB,1.2753E-02_JPRB,1.3801E-02_JPRB,1.4354E-02_JPRB,1.4340E-02_JPRB,&
997
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3315E-02_JPRB,1.0741E-02_JPRB,4.9555E-03_JPRB/)
998 KAO( :, 4, 8, 5) = (/&
999 & 7.2796E-03_JPRB,1.2147E-02_JPRB,1.3897E-02_JPRB,1.5019E-02_JPRB,1.5585E-02_JPRB,1.5528E-02_JPRB,&
1000
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4315E-02_JPRB,1.1502E-02_JPRB,5.3165E-03_JPRB/)
1001 KAO( :, 5, 8, 5) = (/&
1002 & 7.8871E-03_JPRB,1.3218E-02_JPRB,1.5130E-02_JPRB,1.6296E-02_JPRB,1.6839E-02_JPRB,1.6669E-02_JPRB,&
1003
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5291E-02_JPRB,1.2282E-02_JPRB,5.6971E-03_JPRB/)
1004 KAO( :, 1, 9, 5) = (/&
1005 & 4.7912E-03_JPRB,7.8358E-03_JPRB,8.7667E-03_JPRB,9.3820E-03_JPRB,9.7143E-03_JPRB,9.6500E-03_JPRB,&
1006
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.0841E-03_JPRB,7.5626E-03_JPRB,3.7702E-03_JPRB/)
1007 KAO( :, 2, 9, 5) = (/&
1008 & 5.1805E-03_JPRB,8.5367E-03_JPRB,9.6133E-03_JPRB,1.0334E-02_JPRB,1.0715E-02_JPRB,1.0676E-02_JPRB,&
1009
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.9859E-03_JPRB,8.1627E-03_JPRB,4.1139E-03_JPRB/)
1010 KAO( :, 3, 9, 5) = (/&
1011 & 5.6138E-03_JPRB,9.2835E-03_JPRB,1.0517E-02_JPRB,1.1325E-02_JPRB,1.1739E-02_JPRB,1.1698E-02_JPRB,&
1012
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0873E-02_JPRB,8.7929E-03_JPRB,4.4462E-03_JPRB/)
1013 KAO( :, 4, 9, 5) = (/&
1014 & 6.0888E-03_JPRB,1.0103E-02_JPRB,1.1488E-02_JPRB,1.2361E-02_JPRB,1.2785E-02_JPRB,1.2718E-02_JPRB,&
1015
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1751E-02_JPRB,9.4626E-03_JPRB,4.7957E-03_JPRB/)
1016 KAO( :, 5, 9, 5) = (/&
1017 & 6.6048E-03_JPRB,1.1011E-02_JPRB,1.2538E-02_JPRB,1.3462E-02_JPRB,1.3863E-02_JPRB,1.3713E-02_JPRB,&
1018
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2615E-02_JPRB,1.0155E-02_JPRB,5.1561E-03_JPRB/)
1019 KAO( :, 1,10, 5) = (/&
1020 & 3.9863E-03_JPRB,6.4924E-03_JPRB,7.2470E-03_JPRB,7.7132E-03_JPRB,7.9522E-03_JPRB,7.8682E-03_JPRB,&
1021
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.3679E-03_JPRB,6.1741E-03_JPRB,4.1464E-03_JPRB/)
1022 KAO( :, 2,10, 5) = (/&
1023 & 4.3124E-03_JPRB,7.0973E-03_JPRB,7.9675E-03_JPRB,8.5161E-03_JPRB,8.8014E-03_JPRB,8.7362E-03_JPRB,&
1024
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.1504E-03_JPRB,6.7002E-03_JPRB,4.5619E-03_JPRB/)
1025 KAO( :, 3,10, 5) = (/&
1026 & 4.6741E-03_JPRB,7.7383E-03_JPRB,8.7399E-03_JPRB,9.3597E-03_JPRB,9.6733E-03_JPRB,9.6088E-03_JPRB,&
1027
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.9286E-03_JPRB,7.2584E-03_JPRB,4.9900E-03_JPRB/)
1028 KAO( :, 4,10, 5) = (/&
1029 & 5.0713E-03_JPRB,8.4456E-03_JPRB,9.5735E-03_JPRB,1.0251E-02_JPRB,1.0572E-02_JPRB,1.0481E-02_JPRB,&
1030
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.6979E-03_JPRB,7.8488E-03_JPRB,5.4214E-03_JPRB/)
1031 KAO( :, 5,10, 5) = (/&
1032 & 5.5035E-03_JPRB,9.2235E-03_JPRB,1.0475E-02_JPRB,1.1200E-02_JPRB,1.1508E-02_JPRB,1.1347E-02_JPRB,&
1033
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0465E-02_JPRB,8.4573E-03_JPRB,5.8532E-03_JPRB/)
1034 KAO( :, 1,11, 5) = (/&
1035 & 3.4140E-03_JPRB,5.5663E-03_JPRB,6.2176E-03_JPRB,6.6132E-03_JPRB,6.8087E-03_JPRB,6.7328E-03_JPRB,&
1036
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.2855E-03_JPRB,5.2486E-03_JPRB,3.9285E-03_JPRB/)
1037 KAO( :, 2,11, 5) = (/&
1038 & 3.6967E-03_JPRB,6.0927E-03_JPRB,6.8505E-03_JPRB,7.3111E-03_JPRB,7.5377E-03_JPRB,7.4746E-03_JPRB,&
1039
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.9609E-03_JPRB,5.7240E-03_JPRB,4.3138E-03_JPRB/)
1040 KAO( :, 3,11, 5) = (/&
1041 & 4.0076E-03_JPRB,6.6620E-03_JPRB,7.5356E-03_JPRB,8.0510E-03_JPRB,8.2975E-03_JPRB,8.2276E-03_JPRB,&
1042
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.6355E-03_JPRB,6.2275E-03_JPRB,4.7141E-03_JPRB/)
1043 KAO( :, 4,11, 5) = (/&
1044 & 4.3451E-03_JPRB,7.2880E-03_JPRB,8.2782E-03_JPRB,8.8424E-03_JPRB,9.0928E-03_JPRB,8.9832E-03_JPRB,&
1045
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.3078E-03_JPRB,6.7453E-03_JPRB,5.1152E-03_JPRB/)
1046 KAO( :, 5,11, 5) = (/&
1047 & 4.7137E-03_JPRB,7.9681E-03_JPRB,9.0805E-03_JPRB,9.6843E-03_JPRB,9.9239E-03_JPRB,9.7470E-03_JPRB,&
1048
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.9796E-03_JPRB,7.2798E-03_JPRB,5.5223E-03_JPRB/)
1049 KAO( :, 1,12, 5) = (/&
1050 & 2.8904E-03_JPRB,4.7236E-03_JPRB,5.2777E-03_JPRB,5.6093E-03_JPRB,5.7722E-03_JPRB,5.7159E-03_JPRB,&
1051
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.3358E-03_JPRB,4.4458E-03_JPRB,3.4411E-03_JPRB/)
1052 KAO( :, 2,12, 5) = (/&
1053 & 3.1305E-03_JPRB,5.1808E-03_JPRB,5.8340E-03_JPRB,6.2167E-03_JPRB,6.4011E-03_JPRB,6.3506E-03_JPRB,&
1054
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.9136E-03_JPRB,4.8660E-03_JPRB,3.7674E-03_JPRB/)
1055 KAO( :, 3,12, 5) = (/&
1056 & 3.3899E-03_JPRB,5.6784E-03_JPRB,6.4390E-03_JPRB,6.8698E-03_JPRB,7.0684E-03_JPRB,6.9989E-03_JPRB,&
1057
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.4975E-03_JPRB,5.3037E-03_JPRB,4.1043E-03_JPRB/)
1058 KAO( :, 4,12, 5) = (/&
1059 & 3.6744E-03_JPRB,6.2189E-03_JPRB,7.0905E-03_JPRB,7.5674E-03_JPRB,7.7704E-03_JPRB,7.6566E-03_JPRB,&
1060
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.0778E-03_JPRB,5.7507E-03_JPRB,4.4508E-03_JPRB/)
1061 KAO( :, 5,12, 5) = (/&
1062 & 3.9835E-03_JPRB,6.8035E-03_JPRB,7.7845E-03_JPRB,8.3062E-03_JPRB,8.4996E-03_JPRB,8.3274E-03_JPRB,&
1063
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.6592E-03_JPRB,6.2151E-03_JPRB,4.8132E-03_JPRB/)
1064 KAO( :, 1,13, 5) = (/&
1065 & 2.4250E-03_JPRB,3.9803E-03_JPRB,4.4491E-03_JPRB,4.7254E-03_JPRB,4.8599E-03_JPRB,4.8181E-03_JPRB,&
1066
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.5058E-03_JPRB,3.7586E-03_JPRB,2.8856E-03_JPRB/)
1067 KAO( :, 2,13, 5) = (/&
1068 & 2.6244E-03_JPRB,4.3727E-03_JPRB,4.9354E-03_JPRB,5.2533E-03_JPRB,5.4054E-03_JPRB,5.3645E-03_JPRB,&
1069
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.0027E-03_JPRB,4.1245E-03_JPRB,3.1558E-03_JPRB/)
1070 KAO( :, 3,13, 5) = (/&
1071 & 2.8394E-03_JPRB,4.7986E-03_JPRB,5.4578E-03_JPRB,5.8227E-03_JPRB,5.9899E-03_JPRB,5.9263E-03_JPRB,&
1072
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.5030E-03_JPRB,4.4990E-03_JPRB,3.4378E-03_JPRB/)
1073 KAO( :, 4,13, 5) = (/&
1074 & 3.0777E-03_JPRB,5.2577E-03_JPRB,6.0171E-03_JPRB,6.4265E-03_JPRB,6.6019E-03_JPRB,6.4996E-03_JPRB,&
1075
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.0065E-03_JPRB,4.8862E-03_JPRB,3.7311E-03_JPRB/)
1076 KAO( :, 5,13, 5) = (/&
1077 & 3.3322E-03_JPRB,5.7564E-03_JPRB,6.6107E-03_JPRB,7.0607E-03_JPRB,7.2295E-03_JPRB,7.0815E-03_JPRB,&
1078
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.5094E-03_JPRB,5.2886E-03_JPRB,4.0375E-03_JPRB/)
1079 KAO( :, 1, 1, 6) = (/&
1080 & 4.8059E-02_JPRB,7.5661E-02_JPRB,8.9697E-02_JPRB,9.6448E-02_JPRB,9.6739E-02_JPRB,9.1321E-02_JPRB,&
1081
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.0664E-02_JPRB,6.5698E-02_JPRB,4.2723E-02_JPRB/)
1082 KAO( :, 2, 1, 6) = (/&
1083 & 5.1263E-02_JPRB,8.1256E-02_JPRB,9.5858E-02_JPRB,1.0217E-01_JPRB,1.0171E-01_JPRB,9.5631E-02_JPRB,&
1084
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.5046E-02_JPRB,6.9688E-02_JPRB,4.5844E-02_JPRB/)
1085 KAO( :, 3, 1, 6) = (/&
1086 & 5.4622E-02_JPRB,8.6828E-02_JPRB,1.0177E-01_JPRB,1.0751E-01_JPRB,1.0632E-01_JPRB,9.9795E-02_JPRB,&
1087
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.9370E-02_JPRB,7.3806E-02_JPRB,4.9014E-02_JPRB/)
1088 KAO( :, 4, 1, 6) = (/&
1089 & 5.8181E-02_JPRB,9.2294E-02_JPRB,1.0720E-01_JPRB,1.1246E-01_JPRB,1.1070E-01_JPRB,1.0392E-01_JPRB,&
1090
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.3642E-02_JPRB,7.8008E-02_JPRB,5.2233E-02_JPRB/)
1091 KAO( :, 5, 1, 6) = (/&
1092 & 6.1920E-02_JPRB,9.7606E-02_JPRB,1.1219E-01_JPRB,1.1714E-01_JPRB,1.1501E-01_JPRB,1.0812E-01_JPRB,&
1093
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.7841E-02_JPRB,8.2254E-02_JPRB,5.5493E-02_JPRB/)
1094 KAO( :, 1, 2, 6) = (/&
1095 & 4.2387E-02_JPRB,6.7507E-02_JPRB,7.8624E-02_JPRB,8.3202E-02_JPRB,8.2483E-02_JPRB,7.7642E-02_JPRB,&
1096
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.8845E-02_JPRB,5.6151E-02_JPRB,3.4701E-02_JPRB/)
1097 KAO( :, 2, 2, 6) = (/&
1098 & 4.5358E-02_JPRB,7.2621E-02_JPRB,8.4105E-02_JPRB,8.8143E-02_JPRB,8.6828E-02_JPRB,8.1423E-02_JPRB,&
1099
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.2754E-02_JPRB,5.9777E-02_JPRB,3.7226E-02_JPRB/)
1100 KAO( :, 3, 2, 6) = (/&
1101 & 4.8530E-02_JPRB,7.7675E-02_JPRB,8.9237E-02_JPRB,9.2816E-02_JPRB,9.0945E-02_JPRB,8.5108E-02_JPRB,&
1102
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.6583E-02_JPRB,6.3482E-02_JPRB,3.9865E-02_JPRB/)
1103 KAO( :, 4, 2, 6) = (/&
1104 & 5.1885E-02_JPRB,8.2602E-02_JPRB,9.3935E-02_JPRB,9.7188E-02_JPRB,9.4884E-02_JPRB,8.8874E-02_JPRB,&
1105
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.0329E-02_JPRB,6.7178E-02_JPRB,4.2571E-02_JPRB/)
1106 KAO( :, 5, 2, 6) = (/&
1107 & 5.5413E-02_JPRB,8.7298E-02_JPRB,9.8304E-02_JPRB,1.0128E-01_JPRB,9.8763E-02_JPRB,9.2748E-02_JPRB,&
1108
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.4077E-02_JPRB,7.0956E-02_JPRB,4.5317E-02_JPRB/)
1109 KAO( :, 1, 3, 6) = (/&
1110 & 3.6455E-02_JPRB,5.8761E-02_JPRB,6.7738E-02_JPRB,7.0855E-02_JPRB,6.9598E-02_JPRB,6.5071E-02_JPRB,&
1111
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.7664E-02_JPRB,4.7187E-02_JPRB,2.7522E-02_JPRB/)
1112 KAO( :, 2, 3, 6) = (/&
1113 & 3.9177E-02_JPRB,6.3373E-02_JPRB,7.2623E-02_JPRB,7.5288E-02_JPRB,7.3424E-02_JPRB,6.8383E-02_JPRB,&
1114
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.1089E-02_JPRB,5.0369E-02_JPRB,2.9594E-02_JPRB/)
1115 KAO( :, 3, 3, 6) = (/&
1116 & 4.2098E-02_JPRB,6.7937E-02_JPRB,7.7177E-02_JPRB,7.9459E-02_JPRB,7.7094E-02_JPRB,7.1679E-02_JPRB,&
1117
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.4440E-02_JPRB,5.3598E-02_JPRB,3.1800E-02_JPRB/)
1118 KAO( :, 4, 3, 6) = (/&
1119 & 4.5184E-02_JPRB,7.2373E-02_JPRB,8.1328E-02_JPRB,8.3304E-02_JPRB,8.0619E-02_JPRB,7.5059E-02_JPRB,&
1120
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.7785E-02_JPRB,5.6837E-02_JPRB,3.4061E-02_JPRB/)
1121 KAO( :, 5, 3, 6) = (/&
1122 & 4.8428E-02_JPRB,7.6612E-02_JPRB,8.5198E-02_JPRB,8.6971E-02_JPRB,8.4087E-02_JPRB,7.8597E-02_JPRB,&
1123
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.1152E-02_JPRB,6.0069E-02_JPRB,3.6300E-02_JPRB/)
1124 KAO( :, 1, 4, 6) = (/&
1125 & 3.0996E-02_JPRB,5.0246E-02_JPRB,5.7596E-02_JPRB,5.9940E-02_JPRB,5.8577E-02_JPRB,5.4443E-02_JPRB,&
1126
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.7987E-02_JPRB,3.9247E-02_JPRB,2.1796E-02_JPRB/)
1127 KAO( :, 2, 4, 6) = (/&
1128 & 3.3466E-02_JPRB,5.4388E-02_JPRB,6.1941E-02_JPRB,6.3890E-02_JPRB,6.2051E-02_JPRB,5.7420E-02_JPRB,&
1129
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.0954E-02_JPRB,4.2026E-02_JPRB,2.3521E-02_JPRB/)
1130 KAO( :, 3, 4, 6) = (/&
1131 & 3.6103E-02_JPRB,5.8512E-02_JPRB,6.5986E-02_JPRB,6.7619E-02_JPRB,6.5381E-02_JPRB,6.0341E-02_JPRB,&
1132
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.3887E-02_JPRB,4.4806E-02_JPRB,2.5354E-02_JPRB/)
1133 KAO( :, 4, 4, 6) = (/&
1134 & 3.8902E-02_JPRB,6.2522E-02_JPRB,6.9761E-02_JPRB,7.1083E-02_JPRB,6.8563E-02_JPRB,6.3337E-02_JPRB,&
1135
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.6817E-02_JPRB,4.7569E-02_JPRB,2.7230E-02_JPRB/)
1136 KAO( :, 5, 4, 6) = (/&
1137 & 4.1856E-02_JPRB,6.6293E-02_JPRB,7.3260E-02_JPRB,7.4402E-02_JPRB,7.1665E-02_JPRB,6.6453E-02_JPRB,&
1138
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.9783E-02_JPRB,5.0307E-02_JPRB,2.9093E-02_JPRB/)
1139 KAO( :, 1, 5, 6) = (/&
1140 & 2.6300E-02_JPRB,4.2494E-02_JPRB,4.8463E-02_JPRB,5.0296E-02_JPRB,4.9139E-02_JPRB,4.5597E-02_JPRB,&
1141
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.9984E-02_JPRB,3.2427E-02_JPRB,1.7285E-02_JPRB/)
1142 KAO( :, 2, 5, 6) = (/&
1143 & 2.8485E-02_JPRB,4.6204E-02_JPRB,5.2338E-02_JPRB,5.3863E-02_JPRB,5.2270E-02_JPRB,4.8312E-02_JPRB,&
1144
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.2548E-02_JPRB,3.4804E-02_JPRB,1.8719E-02_JPRB/)
1145 KAO( :, 3, 5, 6) = (/&
1146 & 3.0827E-02_JPRB,4.9910E-02_JPRB,5.5974E-02_JPRB,5.7207E-02_JPRB,5.5255E-02_JPRB,5.0912E-02_JPRB,&
1147
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.5100E-02_JPRB,3.7174E-02_JPRB,2.0228E-02_JPRB/)
1148 KAO( :, 4, 5, 6) = (/&
1149 & 3.3317E-02_JPRB,5.3494E-02_JPRB,5.9405E-02_JPRB,6.0361E-02_JPRB,5.8140E-02_JPRB,5.3556E-02_JPRB,&
1150
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.7658E-02_JPRB,3.9537E-02_JPRB,2.1785E-02_JPRB/)
1151 KAO( :, 5, 5, 6) = (/&
1152 & 3.5980E-02_JPRB,5.6835E-02_JPRB,6.2631E-02_JPRB,6.3411E-02_JPRB,6.1001E-02_JPRB,5.6317E-02_JPRB,&
1153
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.0255E-02_JPRB,4.1909E-02_JPRB,2.3351E-02_JPRB/)
1154 KAO( :, 1, 6, 6) = (/&
1155 & 2.2346E-02_JPRB,3.5586E-02_JPRB,4.0310E-02_JPRB,4.1785E-02_JPRB,4.0899E-02_JPRB,3.7930E-02_JPRB,&
1156
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3177E-02_JPRB,2.6660E-02_JPRB,1.3671E-02_JPRB/)
1157 KAO( :, 2, 6, 6) = (/&
1158 & 2.4236E-02_JPRB,3.8875E-02_JPRB,4.3767E-02_JPRB,4.4998E-02_JPRB,4.3719E-02_JPRB,4.0355E-02_JPRB,&
1159
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.5414E-02_JPRB,2.8669E-02_JPRB,1.4853E-02_JPRB/)
1160 KAO( :, 3, 6, 6) = (/&
1161 & 2.6259E-02_JPRB,4.2194E-02_JPRB,4.7065E-02_JPRB,4.8039E-02_JPRB,4.6410E-02_JPRB,4.2692E-02_JPRB,&
1162
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.7647E-02_JPRB,3.0658E-02_JPRB,1.6097E-02_JPRB/)
1163 KAO( :, 4, 6, 6) = (/&
1164 & 2.8435E-02_JPRB,4.5379E-02_JPRB,5.0168E-02_JPRB,5.0950E-02_JPRB,4.9017E-02_JPRB,4.5071E-02_JPRB,&
1165
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.9870E-02_JPRB,3.2675E-02_JPRB,1.7389E-02_JPRB/)
1166 KAO( :, 5, 6, 6) = (/&
1167 & 3.0784E-02_JPRB,4.8355E-02_JPRB,5.3115E-02_JPRB,5.3744E-02_JPRB,5.1611E-02_JPRB,4.7542E-02_JPRB,&
1168
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.2135E-02_JPRB,3.4713E-02_JPRB,1.8719E-02_JPRB/)
1169 KAO( :, 1, 7, 6) = (/&
1170 & 1.9038E-02_JPRB,2.9659E-02_JPRB,3.3335E-02_JPRB,3.4533E-02_JPRB,3.3796E-02_JPRB,3.1353E-02_JPRB,&
1171
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.7369E-02_JPRB,2.1858E-02_JPRB,1.0821E-02_JPRB/)
1172 KAO( :, 2, 7, 6) = (/&
1173 & 2.0661E-02_JPRB,3.2535E-02_JPRB,3.6409E-02_JPRB,3.7416E-02_JPRB,3.6337E-02_JPRB,3.3530E-02_JPRB,&
1174
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9317E-02_JPRB,2.3570E-02_JPRB,1.1782E-02_JPRB/)
1175 KAO( :, 3, 7, 6) = (/&
1176 & 2.2409E-02_JPRB,3.5475E-02_JPRB,3.9394E-02_JPRB,4.0148E-02_JPRB,3.8791E-02_JPRB,3.5637E-02_JPRB,&
1177
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1269E-02_JPRB,2.5254E-02_JPRB,1.2818E-02_JPRB/)
1178 KAO( :, 4, 7, 6) = (/&
1179 & 2.4302E-02_JPRB,3.8296E-02_JPRB,4.2195E-02_JPRB,4.2786E-02_JPRB,4.1191E-02_JPRB,3.7785E-02_JPRB,&
1180
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3232E-02_JPRB,2.6957E-02_JPRB,1.3893E-02_JPRB/)
1181 KAO( :, 5, 7, 6) = (/&
1182 & 2.6331E-02_JPRB,4.0952E-02_JPRB,4.4849E-02_JPRB,4.5357E-02_JPRB,4.3572E-02_JPRB,4.0019E-02_JPRB,&
1183
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.5226E-02_JPRB,2.8694E-02_JPRB,1.5017E-02_JPRB/)
1184 KAO( :, 1, 8, 6) = (/&
1185 & 1.6199E-02_JPRB,2.4730E-02_JPRB,2.7533E-02_JPRB,2.8457E-02_JPRB,2.7828E-02_JPRB,2.5812E-02_JPRB,&
1186
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2538E-02_JPRB,1.7879E-02_JPRB,8.5690E-03_JPRB/)
1187 KAO( :, 2, 8, 6) = (/&
1188 & 1.7586E-02_JPRB,2.7225E-02_JPRB,3.0249E-02_JPRB,3.1021E-02_JPRB,3.0098E-02_JPRB,2.7767E-02_JPRB,&
1189
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.4248E-02_JPRB,1.9357E-02_JPRB,9.3582E-03_JPRB/)
1190 KAO( :, 3, 8, 6) = (/&
1191 & 1.9094E-02_JPRB,2.9782E-02_JPRB,3.2913E-02_JPRB,3.3499E-02_JPRB,3.2325E-02_JPRB,2.9706E-02_JPRB,&
1192
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5968E-02_JPRB,2.0796E-02_JPRB,1.0214E-02_JPRB/)
1193 KAO( :, 4, 8, 6) = (/&
1194 & 2.0716E-02_JPRB,3.2253E-02_JPRB,3.5436E-02_JPRB,3.5895E-02_JPRB,3.4530E-02_JPRB,3.1664E-02_JPRB,&
1195
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.7699E-02_JPRB,2.2256E-02_JPRB,1.1116E-02_JPRB/)
1196 KAO( :, 5, 8, 6) = (/&
1197 & 2.2480E-02_JPRB,3.4617E-02_JPRB,3.7818E-02_JPRB,3.8224E-02_JPRB,3.6738E-02_JPRB,3.3713E-02_JPRB,&
1198
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9501E-02_JPRB,2.3740E-02_JPRB,1.2059E-02_JPRB/)
1199 KAO( :, 1, 9, 6) = (/&
1200 & 1.3777E-02_JPRB,2.0619E-02_JPRB,2.2737E-02_JPRB,2.3415E-02_JPRB,2.2850E-02_JPRB,2.1193E-02_JPRB,&
1201
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8507E-02_JPRB,1.4598E-02_JPRB,7.1490E-03_JPRB/)
1202 KAO( :, 2, 9, 6) = (/&
1203 & 1.4973E-02_JPRB,2.2774E-02_JPRB,2.5113E-02_JPRB,2.5666E-02_JPRB,2.4873E-02_JPRB,2.2943E-02_JPRB,&
1204
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0009E-02_JPRB,1.5897E-02_JPRB,7.8590E-03_JPRB/)
1205 KAO( :, 3, 9, 6) = (/&
1206 & 1.6264E-02_JPRB,2.4964E-02_JPRB,2.7466E-02_JPRB,2.7896E-02_JPRB,2.6883E-02_JPRB,2.4711E-02_JPRB,&
1207
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1541E-02_JPRB,1.7155E-02_JPRB,8.6415E-03_JPRB/)
1208 KAO( :, 4, 9, 6) = (/&
1209 & 1.7663E-02_JPRB,2.7143E-02_JPRB,2.9704E-02_JPRB,3.0059E-02_JPRB,2.8911E-02_JPRB,2.6494E-02_JPRB,&
1210
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3105E-02_JPRB,1.8422E-02_JPRB,9.4633E-03_JPRB/)
1211 KAO( :, 5, 9, 6) = (/&
1212 & 1.9189E-02_JPRB,2.9225E-02_JPRB,3.1858E-02_JPRB,3.2145E-02_JPRB,3.0918E-02_JPRB,2.8362E-02_JPRB,&
1213
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.4736E-02_JPRB,1.9714E-02_JPRB,1.0309E-02_JPRB/)
1214 KAO( :, 1,10, 6) = (/&
1215 & 1.1829E-02_JPRB,1.7391E-02_JPRB,1.8971E-02_JPRB,1.9425E-02_JPRB,1.8925E-02_JPRB,1.7526E-02_JPRB,&
1216
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5318E-02_JPRB,1.2046E-02_JPRB,7.9104E-03_JPRB/)
1217 KAO( :, 2,10, 6) = (/&
1218 & 1.2882E-02_JPRB,1.9237E-02_JPRB,2.1011E-02_JPRB,2.1409E-02_JPRB,2.0725E-02_JPRB,1.9099E-02_JPRB,&
1219
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6657E-02_JPRB,1.3189E-02_JPRB,8.8513E-03_JPRB/)
1220 KAO( :, 3,10, 6) = (/&
1221 & 1.4005E-02_JPRB,2.1109E-02_JPRB,2.3070E-02_JPRB,2.3396E-02_JPRB,2.2541E-02_JPRB,2.0715E-02_JPRB,&
1222
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8034E-02_JPRB,1.4319E-02_JPRB,9.8121E-03_JPRB/)
1223 KAO( :, 4,10, 6) = (/&
1224 & 1.5220E-02_JPRB,2.2998E-02_JPRB,2.5049E-02_JPRB,2.5317E-02_JPRB,2.4368E-02_JPRB,2.2361E-02_JPRB,&
1225
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9453E-02_JPRB,1.5444E-02_JPRB,1.0807E-02_JPRB/)
1226 KAO( :, 5,10, 6) = (/&
1227 & 1.6552E-02_JPRB,2.4838E-02_JPRB,2.6967E-02_JPRB,2.7211E-02_JPRB,2.6179E-02_JPRB,2.4058E-02_JPRB,&
1228
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0933E-02_JPRB,1.6593E-02_JPRB,1.1823E-02_JPRB/)
1229 KAO( :, 1,11, 6) = (/&
1230 & 1.0495E-02_JPRB,1.5432E-02_JPRB,1.6714E-02_JPRB,1.6992E-02_JPRB,1.6455E-02_JPRB,1.5168E-02_JPRB,&
1231
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3224E-02_JPRB,1.0391E-02_JPRB,8.1978E-03_JPRB/)
1232 KAO( :, 2,11, 6) = (/&
1233 & 1.1451E-02_JPRB,1.7054E-02_JPRB,1.8505E-02_JPRB,1.8735E-02_JPRB,1.8057E-02_JPRB,1.6595E-02_JPRB,&
1234
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4441E-02_JPRB,1.1397E-02_JPRB,9.2592E-03_JPRB/)
1235 KAO( :, 3,11, 6) = (/&
1236 & 1.2482E-02_JPRB,1.8697E-02_JPRB,2.0258E-02_JPRB,2.0450E-02_JPRB,1.9674E-02_JPRB,1.8068E-02_JPRB,&
1237
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5698E-02_JPRB,1.2409E-02_JPRB,1.0347E-02_JPRB/)
1238 KAO( :, 4,11, 6) = (/&
1239 & 1.3612E-02_JPRB,2.0341E-02_JPRB,2.1972E-02_JPRB,2.2138E-02_JPRB,2.1292E-02_JPRB,1.9560E-02_JPRB,&
1240
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7011E-02_JPRB,1.3437E-02_JPRB,1.1444E-02_JPRB/)
1241 KAO( :, 5,11, 6) = (/&
1242 & 1.4838E-02_JPRB,2.1977E-02_JPRB,2.3658E-02_JPRB,2.3819E-02_JPRB,2.2926E-02_JPRB,2.1098E-02_JPRB,&
1243
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
10 & 1.8364E-02_JPRB,1.4494E-02_JPRB,1.2537E-02_JPRB/)
1244
1245
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART4',1,ZHOOK_HANDLE)
1246 1 END SUBROUTINE PART4
1247
1248
1249 1 SUBROUTINE PART5
1250
1251 REAL(KIND=JPRB) :: ZHOOK_HANDLE
1252
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART5',0,ZHOOK_HANDLE)
1253
1254
1255 KAO( :, 1,12, 6) = (/&
1256 & 9.1433E-03_JPRB,1.3500E-02_JPRB,1.4586E-02_JPRB,1.4769E-02_JPRB,1.4241E-02_JPRB,1.3083E-02_JPRB,&
1257
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1367E-02_JPRB,8.9090E-03_JPRB,7.5780E-03_JPRB/)
1258 KAO( :, 2,12, 6) = (/&
1259 & 1.0001E-02_JPRB,1.4910E-02_JPRB,1.6125E-02_JPRB,1.6273E-02_JPRB,1.5652E-02_JPRB,1.4357E-02_JPRB,&
1260
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2453E-02_JPRB,9.7929E-03_JPRB,8.5785E-03_JPRB/)
1261 KAO( :, 3,12, 6) = (/&
1262 & 1.0949E-02_JPRB,1.6356E-02_JPRB,1.7635E-02_JPRB,1.7750E-02_JPRB,1.7058E-02_JPRB,1.5652E-02_JPRB,&
1263
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3578E-02_JPRB,1.0697E-02_JPRB,9.5948E-03_JPRB/)
1264 KAO( :, 4,12, 6) = (/&
1265 & 1.1985E-02_JPRB,1.7801E-02_JPRB,1.9128E-02_JPRB,1.9222E-02_JPRB,1.8476E-02_JPRB,1.6972E-02_JPRB,&
1266
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4745E-02_JPRB,1.1628E-02_JPRB,1.0600E-02_JPRB/)
1267 KAO( :, 5,12, 6) = (/&
1268 & 1.3096E-02_JPRB,1.9267E-02_JPRB,2.0626E-02_JPRB,2.0713E-02_JPRB,1.9923E-02_JPRB,1.8336E-02_JPRB,&
1269
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5960E-02_JPRB,1.2572E-02_JPRB,1.1582E-02_JPRB/)
1270 KAO( :, 1,13, 6) = (/&
1271 & 7.8612E-03_JPRB,1.1670E-02_JPRB,1.2609E-02_JPRB,1.2723E-02_JPRB,1.2259E-02_JPRB,1.1258E-02_JPRB,&
1272
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.7650E-03_JPRB,7.6525E-03_JPRB,6.5421E-03_JPRB/)
1273 KAO( :, 2,13, 6) = (/&
1274 & 8.6369E-03_JPRB,1.2899E-02_JPRB,1.3916E-02_JPRB,1.4009E-02_JPRB,1.3482E-02_JPRB,1.2381E-02_JPRB,&
1275
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0732E-02_JPRB,8.4378E-03_JPRB,7.4103E-03_JPRB/)
1276 KAO( :, 3,13, 6) = (/&
1277 & 9.4942E-03_JPRB,1.4163E-02_JPRB,1.5223E-02_JPRB,1.5298E-02_JPRB,1.4708E-02_JPRB,1.3515E-02_JPRB,&
1278
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1735E-02_JPRB,9.2523E-03_JPRB,8.2790E-03_JPRB/)
1279 KAO( :, 4,13, 6) = (/&
1280 & 1.0421E-02_JPRB,1.5442E-02_JPRB,1.6542E-02_JPRB,1.6603E-02_JPRB,1.5959E-02_JPRB,1.4684E-02_JPRB,&
1281
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2779E-02_JPRB,1.0090E-02_JPRB,9.1372E-03_JPRB/)
1282 KAO( :, 5,13, 6) = (/&
1283 & 1.1403E-02_JPRB,1.6752E-02_JPRB,1.7882E-02_JPRB,1.7947E-02_JPRB,1.7255E-02_JPRB,1.5898E-02_JPRB,&
1284
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3874E-02_JPRB,1.0931E-02_JPRB,9.9832E-03_JPRB/)
1285 KAO( :, 1, 1, 7) = (/&
1286 & 1.6154E-01_JPRB,1.9464E-01_JPRB,1.9968E-01_JPRB,1.9566E-01_JPRB,1.8810E-01_JPRB,1.7612E-01_JPRB,&
1287
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6037E-01_JPRB,1.3871E-01_JPRB,9.9439E-02_JPRB/)
1288 KAO( :, 2, 1, 7) = (/&
1289 & 1.6718E-01_JPRB,2.0083E-01_JPRB,2.0683E-01_JPRB,2.0477E-01_JPRB,1.9764E-01_JPRB,1.8624E-01_JPRB,&
1290
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6994E-01_JPRB,1.4688E-01_JPRB,1.0691E-01_JPRB/)
1291 KAO( :, 3, 1, 7) = (/&
1292 & 1.7242E-01_JPRB,2.0656E-01_JPRB,2.1371E-01_JPRB,2.1366E-01_JPRB,2.0783E-01_JPRB,1.9677E-01_JPRB,&
1293
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7978E-01_JPRB,1.5487E-01_JPRB,1.1430E-01_JPRB/)
1294 KAO( :, 4, 1, 7) = (/&
1295 & 1.7742E-01_JPRB,2.1213E-01_JPRB,2.2064E-01_JPRB,2.2231E-01_JPRB,2.1832E-01_JPRB,2.0746E-01_JPRB,&
1296
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8983E-01_JPRB,1.6294E-01_JPRB,1.2155E-01_JPRB/)
1297 KAO( :, 5, 1, 7) = (/&
1298 & 1.8214E-01_JPRB,2.1767E-01_JPRB,2.2778E-01_JPRB,2.3090E-01_JPRB,2.2852E-01_JPRB,2.1832E-01_JPRB,&
1299
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0005E-01_JPRB,1.7084E-01_JPRB,1.2867E-01_JPRB/)
1300 KAO( :, 1, 2, 7) = (/&
1301 & 1.4145E-01_JPRB,1.6994E-01_JPRB,1.7429E-01_JPRB,1.7183E-01_JPRB,1.6506E-01_JPRB,1.5419E-01_JPRB,&
1302
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3930E-01_JPRB,1.2012E-01_JPRB,8.1602E-02_JPRB/)
1303 KAO( :, 2, 2, 7) = (/&
1304 & 1.4643E-01_JPRB,1.7555E-01_JPRB,1.8089E-01_JPRB,1.8028E-01_JPRB,1.7424E-01_JPRB,1.6361E-01_JPRB,&
1305
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4828E-01_JPRB,1.2787E-01_JPRB,8.7984E-02_JPRB/)
1306 KAO( :, 3, 2, 7) = (/&
1307 & 1.5117E-01_JPRB,1.8085E-01_JPRB,1.8746E-01_JPRB,1.8838E-01_JPRB,1.8361E-01_JPRB,1.7334E-01_JPRB,&
1308
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5765E-01_JPRB,1.3543E-01_JPRB,9.4264E-02_JPRB/)
1309 KAO( :, 4, 2, 7) = (/&
1310 & 1.5573E-01_JPRB,1.8623E-01_JPRB,1.9419E-01_JPRB,1.9646E-01_JPRB,1.9291E-01_JPRB,1.8328E-01_JPRB,&
1311
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6725E-01_JPRB,1.4294E-01_JPRB,1.0040E-01_JPRB/)
1312 KAO( :, 5, 2, 7) = (/&
1313 & 1.6013E-01_JPRB,1.9161E-01_JPRB,2.0111E-01_JPRB,2.0451E-01_JPRB,2.0197E-01_JPRB,1.9329E-01_JPRB,&
1314
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7696E-01_JPRB,1.5031E-01_JPRB,1.0647E-01_JPRB/)
1315 KAO( :, 1, 3, 7) = (/&
1316 & 1.2309E-01_JPRB,1.4704E-01_JPRB,1.5024E-01_JPRB,1.4812E-01_JPRB,1.4219E-01_JPRB,1.3226E-01_JPRB,&
1317
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1881E-01_JPRB,1.0141E-01_JPRB,6.5459E-02_JPRB/)
1318 KAO( :, 2, 3, 7) = (/&
1319 & 1.2767E-01_JPRB,1.5222E-01_JPRB,1.5637E-01_JPRB,1.5568E-01_JPRB,1.5055E-01_JPRB,1.4090E-01_JPRB,&
1320
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2701E-01_JPRB,1.0859E-01_JPRB,7.0881E-02_JPRB/)
1321 KAO( :, 3, 3, 7) = (/&
1322 & 1.3203E-01_JPRB,1.5727E-01_JPRB,1.6255E-01_JPRB,1.6317E-01_JPRB,1.5886E-01_JPRB,1.4989E-01_JPRB,&
1323
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3559E-01_JPRB,1.1576E-01_JPRB,7.6083E-02_JPRB/)
1324 KAO( :, 4, 3, 7) = (/&
1325 & 1.3635E-01_JPRB,1.6234E-01_JPRB,1.6898E-01_JPRB,1.7060E-01_JPRB,1.6716E-01_JPRB,1.5892E-01_JPRB,&
1326
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4437E-01_JPRB,1.2295E-01_JPRB,8.1201E-02_JPRB/)
1327 KAO( :, 5, 3, 7) = (/&
1328 & 1.4056E-01_JPRB,1.6755E-01_JPRB,1.7569E-01_JPRB,1.7797E-01_JPRB,1.7536E-01_JPRB,1.6774E-01_JPRB,&
1329
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5329E-01_JPRB,1.3002E-01_JPRB,8.6370E-02_JPRB/)
1330 KAO( :, 1, 4, 7) = (/&
1331 & 1.0694E-01_JPRB,1.2727E-01_JPRB,1.2915E-01_JPRB,1.2666E-01_JPRB,1.2117E-01_JPRB,1.1228E-01_JPRB,&
1332
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0026E-01_JPRB,8.4627E-02_JPRB,5.2347E-02_JPRB/)
1333 KAO( :, 2, 4, 7) = (/&
1334 & 1.1128E-01_JPRB,1.3208E-01_JPRB,1.3481E-01_JPRB,1.3351E-01_JPRB,1.2855E-01_JPRB,1.2006E-01_JPRB,&
1335
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0771E-01_JPRB,9.1021E-02_JPRB,5.6953E-02_JPRB/)
1336 KAO( :, 3, 4, 7) = (/&
1337 & 1.1540E-01_JPRB,1.3680E-01_JPRB,1.4057E-01_JPRB,1.4029E-01_JPRB,1.3591E-01_JPRB,1.2809E-01_JPRB,&
1338
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1544E-01_JPRB,9.7575E-02_JPRB,6.1322E-02_JPRB/)
1339 KAO( :, 4, 4, 7) = (/&
1340 & 1.1945E-01_JPRB,1.4164E-01_JPRB,1.4662E-01_JPRB,1.4706E-01_JPRB,1.4340E-01_JPRB,1.3603E-01_JPRB,&
1341
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2336E-01_JPRB,1.0424E-01_JPRB,6.5662E-02_JPRB/)
1342 KAO( :, 5, 4, 7) = (/&
1343 & 1.2340E-01_JPRB,1.4675E-01_JPRB,1.5288E-01_JPRB,1.5380E-01_JPRB,1.5079E-01_JPRB,1.4378E-01_JPRB,&
1344
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3119E-01_JPRB,1.1079E-01_JPRB,7.0042E-02_JPRB/)
1345 KAO( :, 1, 5, 7) = (/&
1346 & 9.2366E-02_JPRB,1.1024E-01_JPRB,1.1122E-01_JPRB,1.0839E-01_JPRB,1.0297E-01_JPRB,9.4813E-02_JPRB,&
1347
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.4116E-02_JPRB,7.0267E-02_JPRB,4.1776E-02_JPRB/)
1348 KAO( :, 2, 5, 7) = (/&
1349 & 9.6355E-02_JPRB,1.1479E-01_JPRB,1.1644E-01_JPRB,1.1449E-01_JPRB,1.0946E-01_JPRB,1.0165E-01_JPRB,&
1350
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.0750E-02_JPRB,7.5967E-02_JPRB,4.5678E-02_JPRB/)
1351 KAO( :, 3, 5, 7) = (/&
1352 & 1.0024E-01_JPRB,1.1923E-01_JPRB,1.2179E-01_JPRB,1.2053E-01_JPRB,1.1597E-01_JPRB,1.0868E-01_JPRB,&
1353
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.7605E-02_JPRB,8.1879E-02_JPRB,4.9420E-02_JPRB/)
1354 KAO( :, 4, 5, 7) = (/&
1355 & 1.0406E-01_JPRB,1.2386E-01_JPRB,1.2729E-01_JPRB,1.2663E-01_JPRB,1.2262E-01_JPRB,1.1560E-01_JPRB,&
1356
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0455E-01_JPRB,8.7805E-02_JPRB,5.3104E-02_JPRB/)
1357 KAO( :, 5, 5, 7) = (/&
1358 & 1.0784E-01_JPRB,1.2877E-01_JPRB,1.3298E-01_JPRB,1.3282E-01_JPRB,1.2921E-01_JPRB,1.2238E-01_JPRB,&
1359
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1132E-01_JPRB,9.3754E-02_JPRB,5.6821E-02_JPRB/)
1360 KAO( :, 1, 6, 7) = (/&
1361 & 7.9024E-02_JPRB,9.4822E-02_JPRB,9.5344E-02_JPRB,9.2551E-02_JPRB,8.7276E-02_JPRB,7.9771E-02_JPRB,&
1362
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.0098E-02_JPRB,5.7834E-02_JPRB,3.3015E-02_JPRB/)
1363 KAO( :, 2, 6, 7) = (/&
1364 & 8.2738E-02_JPRB,9.8989E-02_JPRB,1.0012E-01_JPRB,9.7961E-02_JPRB,9.2877E-02_JPRB,8.5652E-02_JPRB,&
1365
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.5923E-02_JPRB,6.2877E-02_JPRB,3.6314E-02_JPRB/)
1366 KAO( :, 3, 6, 7) = (/&
1367 & 8.6408E-02_JPRB,1.0314E-01_JPRB,1.0499E-01_JPRB,1.0331E-01_JPRB,9.8576E-02_JPRB,9.1675E-02_JPRB,&
1368
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.1907E-02_JPRB,6.8103E-02_JPRB,3.9534E-02_JPRB/)
1369 KAO( :, 4, 6, 7) = (/&
1370 & 9.0076E-02_JPRB,1.0755E-01_JPRB,1.1005E-01_JPRB,1.0872E-01_JPRB,1.0446E-01_JPRB,9.7640E-02_JPRB,&
1371
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.7824E-02_JPRB,7.3333E-02_JPRB,4.2688E-02_JPRB/)
1372 KAO( :, 5, 6, 7) = (/&
1373 & 9.3695E-02_JPRB,1.1225E-01_JPRB,1.1524E-01_JPRB,1.1429E-01_JPRB,1.1026E-01_JPRB,1.0360E-01_JPRB,&
1374
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.3605E-02_JPRB,7.8587E-02_JPRB,4.5859E-02_JPRB/)
1375 KAO( :, 1, 7, 7) = (/&
1376 & 6.7188E-02_JPRB,8.0973E-02_JPRB,8.1282E-02_JPRB,7.8604E-02_JPRB,7.3758E-02_JPRB,6.7095E-02_JPRB,&
1377
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.8393E-02_JPRB,4.7360E-02_JPRB,2.5942E-02_JPRB/)
1378 KAO( :, 2, 7, 7) = (/&
1379 & 7.0634E-02_JPRB,8.4835E-02_JPRB,8.5597E-02_JPRB,8.3380E-02_JPRB,7.8711E-02_JPRB,7.2137E-02_JPRB,&
1380
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.3418E-02_JPRB,5.1732E-02_JPRB,2.8746E-02_JPRB/)
1381 KAO( :, 3, 7, 7) = (/&
1382 & 7.4125E-02_JPRB,8.8733E-02_JPRB,9.0006E-02_JPRB,8.8141E-02_JPRB,8.3708E-02_JPRB,7.7276E-02_JPRB,&
1383
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.8516E-02_JPRB,5.6288E-02_JPRB,3.1491E-02_JPRB/)
1384 KAO( :, 4, 7, 7) = (/&
1385 & 7.7619E-02_JPRB,9.2938E-02_JPRB,9.4622E-02_JPRB,9.3008E-02_JPRB,8.8787E-02_JPRB,8.2441E-02_JPRB,&
1386
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.3541E-02_JPRB,6.0853E-02_JPRB,3.4197E-02_JPRB/)
1387 KAO( :, 5, 7, 7) = (/&
1388 & 8.1130E-02_JPRB,9.7412E-02_JPRB,9.9437E-02_JPRB,9.7963E-02_JPRB,9.3908E-02_JPRB,8.7589E-02_JPRB,&
1389
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.8507E-02_JPRB,6.5406E-02_JPRB,3.6876E-02_JPRB/)
1390 KAO( :, 1, 8, 7) = (/&
1391 & 5.7087E-02_JPRB,6.8982E-02_JPRB,6.9219E-02_JPRB,6.6662E-02_JPRB,6.2257E-02_JPRB,5.6449E-02_JPRB,&
1392
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.8696E-02_JPRB,3.8705E-02_JPRB,2.0368E-02_JPRB/)
1393 KAO( :, 2, 8, 7) = (/&
1394 & 6.0267E-02_JPRB,7.2661E-02_JPRB,7.3164E-02_JPRB,7.0903E-02_JPRB,6.6680E-02_JPRB,6.0863E-02_JPRB,&
1395
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.2991E-02_JPRB,4.2493E-02_JPRB,2.2764E-02_JPRB/)
1396 KAO( :, 3, 8, 7) = (/&
1397 & 6.3568E-02_JPRB,7.6402E-02_JPRB,7.7191E-02_JPRB,7.5170E-02_JPRB,7.1124E-02_JPRB,6.5262E-02_JPRB,&
1398
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.7325E-02_JPRB,4.6424E-02_JPRB,2.5106E-02_JPRB/)
1399 KAO( :, 4, 8, 7) = (/&
1400 & 6.6952E-02_JPRB,8.0431E-02_JPRB,8.1433E-02_JPRB,7.9580E-02_JPRB,7.5603E-02_JPRB,6.9713E-02_JPRB,&
1401
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.1612E-02_JPRB,5.0326E-02_JPRB,2.7428E-02_JPRB/)
1402 KAO( :, 5, 8, 7) = (/&
1403 & 7.0374E-02_JPRB,8.4700E-02_JPRB,8.5936E-02_JPRB,8.4079E-02_JPRB,8.0117E-02_JPRB,7.4154E-02_JPRB,&
1404
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.5876E-02_JPRB,5.4195E-02_JPRB,2.9716E-02_JPRB/)
1405 KAO( :, 1, 9, 7) = (/&
1406 & 4.8541E-02_JPRB,5.8698E-02_JPRB,5.8862E-02_JPRB,5.6589E-02_JPRB,5.2616E-02_JPRB,4.7478E-02_JPRB,&
1407
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.0621E-02_JPRB,3.1660E-02_JPRB,1.6311E-02_JPRB/)
1408 KAO( :, 2, 9, 7) = (/&
1409 & 5.1470E-02_JPRB,6.2152E-02_JPRB,6.2537E-02_JPRB,6.0429E-02_JPRB,5.6605E-02_JPRB,5.1332E-02_JPRB,&
1410
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.4320E-02_JPRB,3.4891E-02_JPRB,1.8357E-02_JPRB/)
1411 KAO( :, 3, 9, 7) = (/&
1412 & 5.4592E-02_JPRB,6.5779E-02_JPRB,6.6299E-02_JPRB,6.4328E-02_JPRB,6.0595E-02_JPRB,5.5195E-02_JPRB,&
1413
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.8026E-02_JPRB,3.8250E-02_JPRB,2.0370E-02_JPRB/)
1414 KAO( :, 4, 9, 7) = (/&
1415 & 5.7857E-02_JPRB,6.9626E-02_JPRB,7.0279E-02_JPRB,6.8395E-02_JPRB,6.4585E-02_JPRB,5.9114E-02_JPRB,&
1416
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.1701E-02_JPRB,4.1583E-02_JPRB,2.2355E-02_JPRB/)
1417 KAO( :, 5, 9, 7) = (/&
1418 & 6.1151E-02_JPRB,7.3773E-02_JPRB,7.4523E-02_JPRB,7.2563E-02_JPRB,6.8640E-02_JPRB,6.3021E-02_JPRB,&
1419
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.5368E-02_JPRB,4.4866E-02_JPRB,2.4319E-02_JPRB/)
1420 KAO( :, 1,10, 7) = (/&
1421 & 4.1703E-02_JPRB,5.0397E-02_JPRB,5.0498E-02_JPRB,4.8532E-02_JPRB,4.5038E-02_JPRB,4.0454E-02_JPRB,&
1422
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.4353E-02_JPRB,2.6239E-02_JPRB,1.6946E-02_JPRB/)
1423 KAO( :, 2,10, 7) = (/&
1424 & 4.4435E-02_JPRB,5.3723E-02_JPRB,5.3968E-02_JPRB,5.2070E-02_JPRB,4.8666E-02_JPRB,4.3928E-02_JPRB,&
1425
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.7574E-02_JPRB,2.9025E-02_JPRB,1.9214E-02_JPRB/)
1426 KAO( :, 3,10, 7) = (/&
1427 & 4.7412E-02_JPRB,5.7277E-02_JPRB,5.7540E-02_JPRB,5.5713E-02_JPRB,5.2331E-02_JPRB,4.7382E-02_JPRB,&
1428
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.0823E-02_JPRB,3.1871E-02_JPRB,2.1538E-02_JPRB/)
1429 KAO( :, 4,10, 7) = (/&
1430 & 5.0574E-02_JPRB,6.1042E-02_JPRB,6.1373E-02_JPRB,5.9574E-02_JPRB,5.6031E-02_JPRB,5.0898E-02_JPRB,&
1431
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.4058E-02_JPRB,3.4717E-02_JPRB,2.3877E-02_JPRB/)
1432 KAO( :, 5,10, 7) = (/&
1433 & 5.3746E-02_JPRB,6.5044E-02_JPRB,6.5451E-02_JPRB,6.3520E-02_JPRB,5.9778E-02_JPRB,5.4461E-02_JPRB,&
1434
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.7278E-02_JPRB,3.7547E-02_JPRB,2.6231E-02_JPRB/)
1435 KAO( :, 1,11, 7) = (/&
1436 & 3.7231E-02_JPRB,4.4782E-02_JPRB,4.4834E-02_JPRB,4.3110E-02_JPRB,4.0069E-02_JPRB,3.5931E-02_JPRB,&
1437
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.0502E-02_JPRB,2.3057E-02_JPRB,1.8284E-02_JPRB/)
1438 KAO( :, 2,11, 7) = (/&
1439 & 3.9875E-02_JPRB,4.8062E-02_JPRB,4.8155E-02_JPRB,4.6465E-02_JPRB,4.3416E-02_JPRB,3.9078E-02_JPRB,&
1440
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3371E-02_JPRB,2.5491E-02_JPRB,2.0825E-02_JPRB/)
1441 KAO( :, 3,11, 7) = (/&
1442 & 4.2772E-02_JPRB,5.1583E-02_JPRB,5.1719E-02_JPRB,5.0024E-02_JPRB,4.6821E-02_JPRB,4.2262E-02_JPRB,&
1443
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.6260E-02_JPRB,2.7962E-02_JPRB,2.3421E-02_JPRB/)
1444 KAO( :, 4,11, 7) = (/&
1445 & 4.5744E-02_JPRB,5.5320E-02_JPRB,5.5524E-02_JPRB,5.3716E-02_JPRB,5.0328E-02_JPRB,4.5568E-02_JPRB,&
1446
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.9152E-02_JPRB,3.0434E-02_JPRB,2.6081E-02_JPRB/)
1447 KAO( :, 5,11, 7) = (/&
1448 & 4.8771E-02_JPRB,5.9196E-02_JPRB,5.9515E-02_JPRB,5.7526E-02_JPRB,5.3932E-02_JPRB,4.8905E-02_JPRB,&
1449
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.2062E-02_JPRB,3.2920E-02_JPRB,2.8799E-02_JPRB/)
1450 KAO( :, 1,12, 7) = (/&
1451 & 3.3165E-02_JPRB,3.9692E-02_JPRB,3.9599E-02_JPRB,3.8024E-02_JPRB,3.5310E-02_JPRB,3.1588E-02_JPRB,&
1452
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6724E-02_JPRB,2.0140E-02_JPRB,1.7962E-02_JPRB/)
1453 KAO( :, 2,12, 7) = (/&
1454 & 3.5669E-02_JPRB,4.2809E-02_JPRB,4.2746E-02_JPRB,4.1180E-02_JPRB,3.8355E-02_JPRB,3.4405E-02_JPRB,&
1455
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9261E-02_JPRB,2.2261E-02_JPRB,2.0601E-02_JPRB/)
1456 KAO( :, 3,12, 7) = (/&
1457 & 3.8321E-02_JPRB,4.6119E-02_JPRB,4.6151E-02_JPRB,4.4514E-02_JPRB,4.1510E-02_JPRB,3.7321E-02_JPRB,&
1458
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1841E-02_JPRB,2.4389E-02_JPRB,2.3308E-02_JPRB/)
1459 KAO( :, 4,12, 7) = (/&
1460 & 4.1022E-02_JPRB,4.9612E-02_JPRB,4.9764E-02_JPRB,4.7979E-02_JPRB,4.4755E-02_JPRB,4.0343E-02_JPRB,&
1461
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.4469E-02_JPRB,2.6528E-02_JPRB,2.6037E-02_JPRB/)
1462 KAO( :, 5,12, 7) = (/&
1463 & 4.3787E-02_JPRB,5.3202E-02_JPRB,5.3413E-02_JPRB,5.1511E-02_JPRB,4.8094E-02_JPRB,4.3379E-02_JPRB,&
1464
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.7123E-02_JPRB,2.8712E-02_JPRB,2.8765E-02_JPRB/)
1465 KAO( :, 1,13, 7) = (/&
1466 & 2.9468E-02_JPRB,3.5299E-02_JPRB,3.5147E-02_JPRB,3.3716E-02_JPRB,3.1258E-02_JPRB,2.7857E-02_JPRB,&
1467
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3479E-02_JPRB,1.7565E-02_JPRB,1.6401E-02_JPRB/)
1468 KAO( :, 2,13, 7) = (/&
1469 & 3.1822E-02_JPRB,3.8242E-02_JPRB,3.8151E-02_JPRB,3.6698E-02_JPRB,3.4080E-02_JPRB,3.0460E-02_JPRB,&
1470
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5743E-02_JPRB,1.9422E-02_JPRB,1.8869E-02_JPRB/)
1471 KAO( :, 3,13, 7) = (/&
1472 & 3.4255E-02_JPRB,4.1360E-02_JPRB,4.1371E-02_JPRB,3.9795E-02_JPRB,3.7027E-02_JPRB,3.3168E-02_JPRB,&
1473
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8068E-02_JPRB,2.1290E-02_JPRB,2.1356E-02_JPRB/)
1474 KAO( :, 4,13, 7) = (/&
1475 & 3.6724E-02_JPRB,4.4593E-02_JPRB,4.4667E-02_JPRB,4.2990E-02_JPRB,4.0057E-02_JPRB,3.5909E-02_JPRB,&
1476
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.0433E-02_JPRB,2.3190E-02_JPRB,2.3849E-02_JPRB/)
1477 KAO( :, 5,13, 7) = (/&
1478 & 3.9283E-02_JPRB,4.7884E-02_JPRB,4.8024E-02_JPRB,4.6223E-02_JPRB,4.3087E-02_JPRB,3.8671E-02_JPRB,&
1479
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2860E-02_JPRB,2.5142E-02_JPRB,2.6303E-02_JPRB/)
1480 KAO( :, 1, 1, 8) = (/&
1481 & 4.0322E-01_JPRB,4.2884E-01_JPRB,4.4287E-01_JPRB,4.4611E-01_JPRB,4.3402E-01_JPRB,4.1077E-01_JPRB,&
1482
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.7521E-01_JPRB,3.2697E-01_JPRB,2.6830E-01_JPRB/)
1483 KAO( :, 2, 1, 8) = (/&
1484 & 4.1659E-01_JPRB,4.4635E-01_JPRB,4.6251E-01_JPRB,4.6551E-01_JPRB,4.5392E-01_JPRB,4.3080E-01_JPRB,&
1485
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.9654E-01_JPRB,3.4859E-01_JPRB,2.8992E-01_JPRB/)
1486 KAO( :, 3, 1, 8) = (/&
1487 & 4.3066E-01_JPRB,4.6487E-01_JPRB,4.8341E-01_JPRB,4.8533E-01_JPRB,4.7318E-01_JPRB,4.5018E-01_JPRB,&
1488
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.1684E-01_JPRB,3.6978E-01_JPRB,3.1151E-01_JPRB/)
1489 KAO( :, 4, 1, 8) = (/&
1490 & 4.4540E-01_JPRB,4.8420E-01_JPRB,5.0502E-01_JPRB,5.0600E-01_JPRB,4.9161E-01_JPRB,4.6895E-01_JPRB,&
1491
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.3612E-01_JPRB,3.9090E-01_JPRB,3.3327E-01_JPRB/)
1492 KAO( :, 5, 1, 8) = (/&
1493 & 4.6087E-01_JPRB,5.0391E-01_JPRB,5.2680E-01_JPRB,5.2675E-01_JPRB,5.1014E-01_JPRB,4.8707E-01_JPRB,&
1494
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.5479E-01_JPRB,4.1126E-01_JPRB,3.5494E-01_JPRB/)
1495 KAO( :, 1, 2, 8) = (/&
1496 & 3.6116E-01_JPRB,3.9180E-01_JPRB,4.0630E-01_JPRB,4.0741E-01_JPRB,3.9710E-01_JPRB,3.7545E-01_JPRB,&
1497
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.4074E-01_JPRB,2.9225E-01_JPRB,2.2503E-01_JPRB/)
1498 KAO( :, 2, 2, 8) = (/&
1499 & 3.7429E-01_JPRB,4.0933E-01_JPRB,4.2583E-01_JPRB,4.2659E-01_JPRB,4.1646E-01_JPRB,3.9447E-01_JPRB,&
1500
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.6022E-01_JPRB,3.1183E-01_JPRB,2.4425E-01_JPRB/)
1501 KAO( :, 3, 2, 8) = (/&
1502 & 3.8833E-01_JPRB,4.2821E-01_JPRB,4.4642E-01_JPRB,4.4678E-01_JPRB,4.3567E-01_JPRB,4.1270E-01_JPRB,&
1503
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.7849E-01_JPRB,3.3160E-01_JPRB,2.6352E-01_JPRB/)
1504 KAO( :, 4, 2, 8) = (/&
1505 & 4.0301E-01_JPRB,4.4802E-01_JPRB,4.6770E-01_JPRB,4.6760E-01_JPRB,4.5474E-01_JPRB,4.3035E-01_JPRB,&
1506
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.9631E-01_JPRB,3.5077E-01_JPRB,2.8292E-01_JPRB/)
1507 KAO( :, 5, 2, 8) = (/&
1508 & 4.1749E-01_JPRB,4.6796E-01_JPRB,4.8938E-01_JPRB,4.8856E-01_JPRB,4.7348E-01_JPRB,4.4790E-01_JPRB,&
1509
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.1404E-01_JPRB,3.6908E-01_JPRB,3.0219E-01_JPRB/)
1510 KAO( :, 1, 3, 8) = (/&
1511 & 3.1836E-01_JPRB,3.5137E-01_JPRB,3.6460E-01_JPRB,3.6422E-01_JPRB,3.5477E-01_JPRB,3.3593E-01_JPRB,&
1512
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.0362E-01_JPRB,2.5584E-01_JPRB,1.8328E-01_JPRB/)
1513 KAO( :, 2, 3, 8) = (/&
1514 & 3.3096E-01_JPRB,3.6850E-01_JPRB,3.8310E-01_JPRB,3.8300E-01_JPRB,3.7372E-01_JPRB,3.5449E-01_JPRB,&
1515
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2124E-01_JPRB,2.7389E-01_JPRB,2.0014E-01_JPRB/)
1516 KAO( :, 3, 3, 8) = (/&
1517 & 3.4458E-01_JPRB,3.8711E-01_JPRB,4.0276E-01_JPRB,4.0262E-01_JPRB,3.9285E-01_JPRB,3.7244E-01_JPRB,&
1518
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3829E-01_JPRB,2.9150E-01_JPRB,2.1726E-01_JPRB/)
1519 KAO( :, 4, 3, 8) = (/&
1520 & 3.5799E-01_JPRB,4.0642E-01_JPRB,4.2324E-01_JPRB,4.2311E-01_JPRB,4.1204E-01_JPRB,3.8967E-01_JPRB,&
1521
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.5509E-01_JPRB,3.0840E-01_JPRB,2.3441E-01_JPRB/)
1522 KAO( :, 5, 3, 8) = (/&
1523 & 3.7101E-01_JPRB,4.2557E-01_JPRB,4.4433E-01_JPRB,4.4402E-01_JPRB,4.3131E-01_JPRB,4.0719E-01_JPRB,&
1524
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.7164E-01_JPRB,3.2487E-01_JPRB,2.5132E-01_JPRB/)
1525 KAO( :, 1, 4, 8) = (/&
1526 & 2.7843E-01_JPRB,3.1174E-01_JPRB,3.2299E-01_JPRB,3.2159E-01_JPRB,3.1254E-01_JPRB,2.9513E-01_JPRB,&
1527
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6711E-01_JPRB,2.2161E-01_JPRB,1.4841E-01_JPRB/)
1528 KAO( :, 2, 4, 8) = (/&
1529 & 2.9013E-01_JPRB,3.2832E-01_JPRB,3.4033E-01_JPRB,3.3944E-01_JPRB,3.3063E-01_JPRB,3.1287E-01_JPRB,&
1530
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8384E-01_JPRB,2.3810E-01_JPRB,1.6312E-01_JPRB/)
1531 KAO( :, 3, 4, 8) = (/&
1532 & 3.0268E-01_JPRB,3.4605E-01_JPRB,3.5891E-01_JPRB,3.5819E-01_JPRB,3.4915E-01_JPRB,3.3041E-01_JPRB,&
1533
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9986E-01_JPRB,2.5399E-01_JPRB,1.7819E-01_JPRB/)
1534 KAO( :, 4, 4, 8) = (/&
1535 & 3.1479E-01_JPRB,3.6429E-01_JPRB,3.7832E-01_JPRB,3.7789E-01_JPRB,3.6791E-01_JPRB,3.4794E-01_JPRB,&
1536
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1552E-01_JPRB,2.6914E-01_JPRB,1.9313E-01_JPRB/)
1537 KAO( :, 5, 4, 8) = (/&
1538 & 3.2665E-01_JPRB,3.8187E-01_JPRB,3.9828E-01_JPRB,3.9805E-01_JPRB,3.8707E-01_JPRB,3.6554E-01_JPRB,&
1539
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3111E-01_JPRB,2.8418E-01_JPRB,2.0797E-01_JPRB/)
1540 KAO( :, 1, 5, 8) = (/&
1541 & 2.4307E-01_JPRB,2.7459E-01_JPRB,2.8334E-01_JPRB,2.8148E-01_JPRB,2.7250E-01_JPRB,2.5608E-01_JPRB,&
1542
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3119E-01_JPRB,1.9095E-01_JPRB,1.1978E-01_JPRB/)
1543 KAO( :, 2, 5, 8) = (/&
1544 & 2.5412E-01_JPRB,2.9006E-01_JPRB,2.9964E-01_JPRB,2.9834E-01_JPRB,2.8946E-01_JPRB,2.7270E-01_JPRB,&
1545
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
10 & 2.4720E-01_JPRB,2.0586E-01_JPRB,1.3250E-01_JPRB/)
1546
1547
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART5',1,ZHOOK_HANDLE)
1548 1 END SUBROUTINE PART5
1549
1550
1551 1 SUBROUTINE PART6
1552
1553 REAL(KIND=JPRB) :: ZHOOK_HANDLE
1554
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART6',0,ZHOOK_HANDLE)
1555
1556
1557 KAO( :, 3, 5, 8) = (/&
1558 & 2.6544E-01_JPRB,3.0651E-01_JPRB,3.1718E-01_JPRB,3.1602E-01_JPRB,3.0707E-01_JPRB,2.8950E-01_JPRB,&
1559
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6270E-01_JPRB,2.1996E-01_JPRB,1.4559E-01_JPRB/)
1560 KAO( :, 4, 5, 8) = (/&
1561 & 2.7620E-01_JPRB,3.2315E-01_JPRB,3.3545E-01_JPRB,3.3465E-01_JPRB,3.2491E-01_JPRB,3.0648E-01_JPRB,&
1562
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.7754E-01_JPRB,2.3379E-01_JPRB,1.5847E-01_JPRB/)
1563 KAO( :, 5, 5, 8) = (/&
1564 & 2.8682E-01_JPRB,3.3927E-01_JPRB,3.5367E-01_JPRB,3.5367E-01_JPRB,3.4331E-01_JPRB,3.2364E-01_JPRB,&
1565
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9241E-01_JPRB,2.4747E-01_JPRB,1.7133E-01_JPRB/)
1566 KAO( :, 1, 6, 8) = (/&
1567 & 2.1177E-01_JPRB,2.4018E-01_JPRB,2.4637E-01_JPRB,2.4351E-01_JPRB,2.3439E-01_JPRB,2.1931E-01_JPRB,&
1568
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9713E-01_JPRB,1.6297E-01_JPRB,9.5914E-02_JPRB/)
1569 KAO( :, 2, 6, 8) = (/&
1570 & 2.2169E-01_JPRB,2.5443E-01_JPRB,2.6139E-01_JPRB,2.5908E-01_JPRB,2.5022E-01_JPRB,2.3482E-01_JPRB,&
1571
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1183E-01_JPRB,1.7638E-01_JPRB,1.0688E-01_JPRB/)
1572 KAO( :, 3, 6, 8) = (/&
1573 & 2.3172E-01_JPRB,2.6938E-01_JPRB,2.7763E-01_JPRB,2.7552E-01_JPRB,2.6672E-01_JPRB,2.5051E-01_JPRB,&
1574
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2626E-01_JPRB,1.8899E-01_JPRB,1.1795E-01_JPRB/)
1575 KAO( :, 4, 6, 8) = (/&
1576 & 2.4156E-01_JPRB,2.8413E-01_JPRB,2.9429E-01_JPRB,2.9295E-01_JPRB,2.8356E-01_JPRB,2.6650E-01_JPRB,&
1577
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.4057E-01_JPRB,2.0157E-01_JPRB,1.2896E-01_JPRB/)
1578 KAO( :, 5, 6, 8) = (/&
1579 & 2.5124E-01_JPRB,2.9850E-01_JPRB,3.1067E-01_JPRB,3.1041E-01_JPRB,3.0075E-01_JPRB,2.8246E-01_JPRB,&
1580
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5505E-01_JPRB,2.1388E-01_JPRB,1.3998E-01_JPRB/)
1581 KAO( :, 1, 7, 8) = (/&
1582 & 1.8473E-01_JPRB,2.0924E-01_JPRB,2.1335E-01_JPRB,2.0936E-01_JPRB,1.9988E-01_JPRB,1.8587E-01_JPRB,&
1583
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6639E-01_JPRB,1.3717E-01_JPRB,7.6364E-02_JPRB/)
1584 KAO( :, 2, 7, 8) = (/&
1585 & 1.9350E-01_JPRB,2.2219E-01_JPRB,2.2721E-01_JPRB,2.2345E-01_JPRB,2.1426E-01_JPRB,2.0011E-01_JPRB,&
1586
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7972E-01_JPRB,1.4932E-01_JPRB,8.5682E-02_JPRB/)
1587 KAO( :, 3, 7, 8) = (/&
1588 & 2.0222E-01_JPRB,2.3570E-01_JPRB,2.4195E-01_JPRB,2.3854E-01_JPRB,2.2951E-01_JPRB,2.1468E-01_JPRB,&
1589
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9301E-01_JPRB,1.6077E-01_JPRB,9.5001E-02_JPRB/)
1590 KAO( :, 4, 7, 8) = (/&
1591 & 2.1095E-01_JPRB,2.4886E-01_JPRB,2.5670E-01_JPRB,2.5432E-01_JPRB,2.4507E-01_JPRB,2.2935E-01_JPRB,&
1592
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0620E-01_JPRB,1.7210E-01_JPRB,1.0440E-01_JPRB/)
1593 KAO( :, 5, 7, 8) = (/&
1594 & 2.1973E-01_JPRB,2.6165E-01_JPRB,2.7115E-01_JPRB,2.6994E-01_JPRB,2.6086E-01_JPRB,2.4410E-01_JPRB,&
1595
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1974E-01_JPRB,1.8329E-01_JPRB,1.1378E-01_JPRB/)
1596 KAO( :, 1, 8, 8) = (/&
1597 & 1.6185E-01_JPRB,1.8253E-01_JPRB,1.8444E-01_JPRB,1.7949E-01_JPRB,1.7015E-01_JPRB,1.5690E-01_JPRB,&
1598
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3935E-01_JPRB,1.1432E-01_JPRB,6.0540E-02_JPRB/)
1599 KAO( :, 2, 8, 8) = (/&
1600 & 1.6964E-01_JPRB,1.9418E-01_JPRB,1.9717E-01_JPRB,1.9247E-01_JPRB,1.8312E-01_JPRB,1.6970E-01_JPRB,&
1601
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5135E-01_JPRB,1.2506E-01_JPRB,6.8356E-02_JPRB/)
1602 KAO( :, 3, 8, 8) = (/&
1603 & 1.7743E-01_JPRB,2.0616E-01_JPRB,2.1045E-01_JPRB,2.0623E-01_JPRB,1.9689E-01_JPRB,1.8297E-01_JPRB,&
1604
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6334E-01_JPRB,1.3545E-01_JPRB,7.6236E-02_JPRB/)
1605 KAO( :, 4, 8, 8) = (/&
1606 & 1.8525E-01_JPRB,2.1798E-01_JPRB,2.2355E-01_JPRB,2.2023E-01_JPRB,2.1094E-01_JPRB,1.9625E-01_JPRB,&
1607
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7545E-01_JPRB,1.4584E-01_JPRB,8.4195E-02_JPRB/)
1608 KAO( :, 5, 8, 8) = (/&
1609 & 1.9322E-01_JPRB,2.2966E-01_JPRB,2.3631E-01_JPRB,2.3389E-01_JPRB,2.2488E-01_JPRB,2.0966E-01_JPRB,&
1610
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8787E-01_JPRB,1.5609E-01_JPRB,9.2157E-02_JPRB/)
1611 KAO( :, 1, 9, 8) = (/&
1612 & 1.4213E-01_JPRB,1.5963E-01_JPRB,1.5968E-01_JPRB,1.5380E-01_JPRB,1.4472E-01_JPRB,1.3224E-01_JPRB,&
1613
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1621E-01_JPRB,9.4456E-02_JPRB,4.8155E-02_JPRB/)
1614 KAO( :, 2, 9, 8) = (/&
1615 & 1.4924E-01_JPRB,1.7020E-01_JPRB,1.7123E-01_JPRB,1.6570E-01_JPRB,1.5648E-01_JPRB,1.4372E-01_JPRB,&
1616
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2686E-01_JPRB,1.0389E-01_JPRB,5.4797E-02_JPRB/)
1617 KAO( :, 3, 9, 8) = (/&
1618 & 1.5626E-01_JPRB,1.8093E-01_JPRB,1.8312E-01_JPRB,1.7819E-01_JPRB,1.6892E-01_JPRB,1.5552E-01_JPRB,&
1619
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3756E-01_JPRB,1.1314E-01_JPRB,6.1551E-02_JPRB/)
1620 KAO( :, 4, 9, 8) = (/&
1621 & 1.6335E-01_JPRB,1.9168E-01_JPRB,1.9486E-01_JPRB,1.9059E-01_JPRB,1.8138E-01_JPRB,1.6740E-01_JPRB,&
1622
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4849E-01_JPRB,1.2245E-01_JPRB,6.8420E-02_JPRB/)
1623 KAO( :, 5, 9, 8) = (/&
1624 & 1.7076E-01_JPRB,2.0225E-01_JPRB,2.0643E-01_JPRB,2.0268E-01_JPRB,1.9350E-01_JPRB,1.7935E-01_JPRB,&
1625
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5962E-01_JPRB,1.3184E-01_JPRB,7.5344E-02_JPRB/)
1626 KAO( :, 1,10, 8) = (/&
1627 & 1.2689E-01_JPRB,1.4153E-01_JPRB,1.4002E-01_JPRB,1.3364E-01_JPRB,1.2448E-01_JPRB,1.1260E-01_JPRB,&
1628
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.7712E-02_JPRB,7.8252E-02_JPRB,4.4638E-02_JPRB/)
1629 KAO( :, 2,10, 8) = (/&
1630 & 1.3357E-01_JPRB,1.5129E-01_JPRB,1.5077E-01_JPRB,1.4472E-01_JPRB,1.3525E-01_JPRB,1.2292E-01_JPRB,&
1631
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0714E-01_JPRB,8.6493E-02_JPRB,5.1139E-02_JPRB/)
1632 KAO( :, 3,10, 8) = (/&
1633 & 1.4033E-01_JPRB,1.6116E-01_JPRB,1.6169E-01_JPRB,1.5606E-01_JPRB,1.4653E-01_JPRB,1.3358E-01_JPRB,&
1634
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1667E-01_JPRB,9.4648E-02_JPRB,5.7687E-02_JPRB/)
1635 KAO( :, 4,10, 8) = (/&
1636 & 1.4713E-01_JPRB,1.7114E-01_JPRB,1.7244E-01_JPRB,1.6723E-01_JPRB,1.5766E-01_JPRB,1.4412E-01_JPRB,&
1637
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2643E-01_JPRB,1.0289E-01_JPRB,6.4268E-02_JPRB/)
1638 KAO( :, 5,10, 8) = (/&
1639 & 1.5435E-01_JPRB,1.8097E-01_JPRB,1.8303E-01_JPRB,1.7815E-01_JPRB,1.6844E-01_JPRB,1.5450E-01_JPRB,&
1640
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3627E-01_JPRB,1.1126E-01_JPRB,7.0752E-02_JPRB/)
1641 KAO( :, 1,11, 8) = (/&
1642 & 1.1735E-01_JPRB,1.3093E-01_JPRB,1.2881E-01_JPRB,1.2210E-01_JPRB,1.1270E-01_JPRB,1.0103E-01_JPRB,&
1643
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.6539E-02_JPRB,6.8130E-02_JPRB,4.9846E-02_JPRB/)
1644 KAO( :, 2,11, 8) = (/&
1645 & 1.2384E-01_JPRB,1.4024E-01_JPRB,1.3893E-01_JPRB,1.3259E-01_JPRB,1.2292E-01_JPRB,1.1061E-01_JPRB,&
1646
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.5115E-02_JPRB,7.5252E-02_JPRB,5.6964E-02_JPRB/)
1647 KAO( :, 3,11, 8) = (/&
1648 & 1.3035E-01_JPRB,1.4957E-01_JPRB,1.4914E-01_JPRB,1.4306E-01_JPRB,1.3321E-01_JPRB,1.2022E-01_JPRB,&
1649
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0374E-01_JPRB,8.2465E-02_JPRB,6.4200E-02_JPRB/)
1650 KAO( :, 4,11, 8) = (/&
1651 & 1.3725E-01_JPRB,1.5898E-01_JPRB,1.5927E-01_JPRB,1.5334E-01_JPRB,1.4326E-01_JPRB,1.2961E-01_JPRB,&
1652
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1238E-01_JPRB,8.9805E-02_JPRB,7.1457E-02_JPRB/)
1653 KAO( :, 5,11, 8) = (/&
1654 & 1.4463E-01_JPRB,1.6851E-01_JPRB,1.6933E-01_JPRB,1.6346E-01_JPRB,1.5308E-01_JPRB,1.3883E-01_JPRB,&
1655
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2096E-01_JPRB,9.7193E-02_JPRB,7.8536E-02_JPRB/)
1656 KAO( :, 1,12, 8) = (/&
1657 & 1.0640E-01_JPRB,1.1932E-01_JPRB,1.1727E-01_JPRB,1.1093E-01_JPRB,1.0195E-01_JPRB,9.0676E-02_JPRB,&
1658
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.6870E-02_JPRB,5.9379E-02_JPRB,5.1106E-02_JPRB/)
1659 KAO( :, 2,12, 8) = (/&
1660 & 1.1251E-01_JPRB,1.2789E-01_JPRB,1.2658E-01_JPRB,1.2048E-01_JPRB,1.1127E-01_JPRB,9.9404E-02_JPRB,&
1661
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.4625E-0