GCC Code Coverage Report


Directory: ./
File: rad/rrtm_kgb15.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_KGB15
4
5 ! Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
6 ! BAND 15: 2380-2600 cm-1 (low - N2O,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 YOERRTO15, ONLY : KAO ,SELFREFO ,FRACREFAO
16 USE YOERRTA15, 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_KGB15',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_KGB15',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_KGB15:PART1',0,ZHOOK_HANDLE)
49
50
51 1 STRRAT = 0.2883201_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 & 4.2962E-03_JPRB,1.5232E-02_JPRB,1.9579E-02_JPRB,2.1453E-02_JPRB,2.1148E-02_JPRB,1.9096E-02_JPRB,&
73
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5358E-02_JPRB,9.6936E-03_JPRB,2.2149E+00_JPRB/)
74 KAO( :, 2, 1, 1) = (/&
75 & 4.2518E-03_JPRB,1.5711E-02_JPRB,2.0424E-02_JPRB,2.2179E-02_JPRB,2.1702E-02_JPRB,1.9467E-02_JPRB,&
76
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5548E-02_JPRB,9.9480E-03_JPRB,2.1772E+00_JPRB/)
77 KAO( :, 3, 1, 1) = (/&
78 & 4.2138E-03_JPRB,1.6217E-02_JPRB,2.1181E-02_JPRB,2.2786E-02_JPRB,2.2148E-02_JPRB,1.9747E-02_JPRB,&
79
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5738E-02_JPRB,1.0309E-02_JPRB,2.1464E+00_JPRB/)
80 KAO( :, 4, 1, 1) = (/&
81 & 4.1834E-03_JPRB,1.6748E-02_JPRB,2.1843E-02_JPRB,2.3305E-02_JPRB,2.2496E-02_JPRB,1.9972E-02_JPRB,&
82
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5965E-02_JPRB,1.0775E-02_JPRB,2.1191E+00_JPRB/)
83 KAO( :, 5, 1, 1) = (/&
84 & 4.1558E-03_JPRB,1.7275E-02_JPRB,2.2401E-02_JPRB,2.3742E-02_JPRB,2.2783E-02_JPRB,2.0184E-02_JPRB,&
85
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6265E-02_JPRB,1.1330E-02_JPRB,2.0949E+00_JPRB/)
86 KAO( :, 1, 2, 1) = (/&
87 & 3.2144E-03_JPRB,1.2713E-02_JPRB,1.6397E-02_JPRB,1.7964E-02_JPRB,1.7671E-02_JPRB,1.5897E-02_JPRB,&
88
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2690E-02_JPRB,7.9486E-03_JPRB,1.7669E+00_JPRB/)
89 KAO( :, 2, 2, 1) = (/&
90 & 3.1641E-03_JPRB,1.3084E-02_JPRB,1.7085E-02_JPRB,1.8507E-02_JPRB,1.8077E-02_JPRB,1.6151E-02_JPRB,&
91
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2818E-02_JPRB,8.1279E-03_JPRB,1.7352E+00_JPRB/)
92 KAO( :, 3, 2, 1) = (/&
93 & 3.1193E-03_JPRB,1.3476E-02_JPRB,1.7665E-02_JPRB,1.8949E-02_JPRB,1.8392E-02_JPRB,1.6337E-02_JPRB,&
94
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2943E-02_JPRB,8.3974E-03_JPRB,1.7079E+00_JPRB/)
95 KAO( :, 4, 2, 1) = (/&
96 & 3.0784E-03_JPRB,1.3887E-02_JPRB,1.8147E-02_JPRB,1.9317E-02_JPRB,1.8624E-02_JPRB,1.6477E-02_JPRB,&
97
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3099E-02_JPRB,8.7556E-03_JPRB,1.6824E+00_JPRB/)
98 KAO( :, 5, 2, 1) = (/&
99 & 3.0409E-03_JPRB,1.4281E-02_JPRB,1.8529E-02_JPRB,1.9610E-02_JPRB,1.8808E-02_JPRB,1.6609E-02_JPRB,&
100
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3316E-02_JPRB,9.1921E-03_JPRB,1.6588E+00_JPRB/)
101 KAO( :, 1, 3, 1) = (/&
102 & 2.3395E-03_JPRB,1.0516E-02_JPRB,1.3567E-02_JPRB,1.4918E-02_JPRB,1.4648E-02_JPRB,1.3103E-02_JPRB,&
103
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0421E-02_JPRB,6.4902E-03_JPRB,1.3955E+00_JPRB/)
104 KAO( :, 2, 3, 1) = (/&
105 & 2.2828E-03_JPRB,1.0805E-02_JPRB,1.4151E-02_JPRB,1.5331E-02_JPRB,1.4952E-02_JPRB,1.3287E-02_JPRB,&
106
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0515E-02_JPRB,6.5971E-03_JPRB,1.3684E+00_JPRB/)
107 KAO( :, 3, 3, 1) = (/&
108 & 2.2291E-03_JPRB,1.1094E-02_JPRB,1.4601E-02_JPRB,1.5662E-02_JPRB,1.5177E-02_JPRB,1.3417E-02_JPRB,&
109
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0594E-02_JPRB,6.7764E-03_JPRB,1.3430E+00_JPRB/)
110 KAO( :, 4, 3, 1) = (/&
111 & 2.1795E-03_JPRB,1.1390E-02_JPRB,1.4954E-02_JPRB,1.5923E-02_JPRB,1.5330E-02_JPRB,1.3512E-02_JPRB,&
112
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0687E-02_JPRB,7.0307E-03_JPRB,1.3188E+00_JPRB/)
113 KAO( :, 5, 3, 1) = (/&
114 & 2.1341E-03_JPRB,1.1671E-02_JPRB,1.5220E-02_JPRB,1.6118E-02_JPRB,1.5441E-02_JPRB,1.3589E-02_JPRB,&
115
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0824E-02_JPRB,7.3529E-03_JPRB,1.2961E+00_JPRB/)
116 KAO( :, 1, 4, 1) = (/&
117 & 1.7840E-03_JPRB,8.7256E-03_JPRB,1.1210E-02_JPRB,1.2367E-02_JPRB,1.2063E-02_JPRB,1.0762E-02_JPRB,&
118
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.5444E-03_JPRB,5.3058E-03_JPRB,1.1276E+00_JPRB/)
119 KAO( :, 2, 4, 1) = (/&
120 & 1.7259E-03_JPRB,8.9625E-03_JPRB,1.1715E-02_JPRB,1.2698E-02_JPRB,1.2306E-02_JPRB,1.0908E-02_JPRB,&
121
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.6186E-03_JPRB,5.3631E-03_JPRB,1.1050E+00_JPRB/)
122 KAO( :, 3, 4, 1) = (/&
123 & 1.6740E-03_JPRB,9.1828E-03_JPRB,1.2089E-02_JPRB,1.2950E-02_JPRB,1.2485E-02_JPRB,1.1008E-02_JPRB,&
124
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.6759E-03_JPRB,5.4730E-03_JPRB,1.0830E+00_JPRB/)
125 KAO( :, 4, 4, 1) = (/&
126 & 1.6269E-03_JPRB,9.4080E-03_JPRB,1.2363E-02_JPRB,1.3144E-02_JPRB,1.2603E-02_JPRB,1.1084E-02_JPRB,&
127
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.7331E-03_JPRB,5.6457E-03_JPRB,1.0617E+00_JPRB/)
128 KAO( :, 5, 4, 1) = (/&
129 & 1.5826E-03_JPRB,9.6219E-03_JPRB,1.2561E-02_JPRB,1.3277E-02_JPRB,1.2681E-02_JPRB,1.1138E-02_JPRB,&
130
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.8166E-03_JPRB,5.8778E-03_JPRB,1.0410E+00_JPRB/)
131 KAO( :, 1, 5, 1) = (/&
132 & 1.4218E-03_JPRB,7.2507E-03_JPRB,9.2498E-03_JPRB,1.0184E-02_JPRB,9.8965E-03_JPRB,8.8186E-03_JPRB,&
133
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.9985E-03_JPRB,4.3450E-03_JPRB,9.2779E-01_JPRB/)
134 KAO( :, 2, 5, 1) = (/&
135 & 1.3666E-03_JPRB,7.4483E-03_JPRB,9.6959E-03_JPRB,1.0459E-02_JPRB,1.0098E-02_JPRB,8.9432E-03_JPRB,&
136
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.0603E-03_JPRB,4.3726E-03_JPRB,9.0832E-01_JPRB/)
137 KAO( :, 3, 5, 1) = (/&
138 & 1.3168E-03_JPRB,7.6293E-03_JPRB,1.0015E-02_JPRB,1.0662E-02_JPRB,1.0249E-02_JPRB,9.0283E-03_JPRB,&
139
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.1071E-03_JPRB,4.4354E-03_JPRB,8.8937E-01_JPRB/)
140 KAO( :, 4, 5, 1) = (/&
141 & 1.2715E-03_JPRB,7.8071E-03_JPRB,1.0236E-02_JPRB,1.0812E-02_JPRB,1.0352E-02_JPRB,9.0911E-03_JPRB,&
142
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.1478E-03_JPRB,4.5476E-03_JPRB,8.7061E-01_JPRB/)
143 KAO( :, 5, 5, 1) = (/&
144 & 1.2303E-03_JPRB,7.9773E-03_JPRB,1.0389E-02_JPRB,1.0918E-02_JPRB,1.0419E-02_JPRB,9.1375E-03_JPRB,&
145
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.1984E-03_JPRB,4.7106E-03_JPRB,8.5172E-01_JPRB/)
146 KAO( :, 1, 6, 1) = (/&
147 & 1.1609E-03_JPRB,5.9982E-03_JPRB,7.5441E-03_JPRB,8.3219E-03_JPRB,8.0915E-03_JPRB,7.2051E-03_JPRB,&
148
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.7215E-03_JPRB,3.5604E-03_JPRB,7.7269E-01_JPRB/)
149 KAO( :, 2, 6, 1) = (/&
150 & 1.1108E-03_JPRB,6.1686E-03_JPRB,7.9597E-03_JPRB,8.5717E-03_JPRB,8.2612E-03_JPRB,7.3195E-03_JPRB,&
151
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.7777E-03_JPRB,3.5731E-03_JPRB,7.5578E-01_JPRB/)
152 KAO( :, 3, 6, 1) = (/&
153 & 1.0654E-03_JPRB,6.3243E-03_JPRB,8.2392E-03_JPRB,8.7441E-03_JPRB,8.3924E-03_JPRB,7.3948E-03_JPRB,&
154
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.8188E-03_JPRB,3.6047E-03_JPRB,7.3901E-01_JPRB/)
155 KAO( :, 4, 6, 1) = (/&
156 & 1.0238E-03_JPRB,6.4720E-03_JPRB,8.4331E-03_JPRB,8.8696E-03_JPRB,8.4869E-03_JPRB,7.4498E-03_JPRB,&
157
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.8508E-03_JPRB,3.6714E-03_JPRB,7.2195E-01_JPRB/)
158 KAO( :, 5, 6, 1) = (/&
159 & 9.8558E-04_JPRB,6.6127E-03_JPRB,8.5578E-03_JPRB,8.9617E-03_JPRB,8.5506E-03_JPRB,7.4929E-03_JPRB,&
160
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.8848E-03_JPRB,3.7810E-03_JPRB,7.0447E-01_JPRB/)
161 KAO( :, 1, 7, 1) = (/&
162 & 9.5793E-04_JPRB,4.9392E-03_JPRB,6.0959E-03_JPRB,6.7658E-03_JPRB,6.6008E-03_JPRB,5.8761E-03_JPRB,&
163
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.6722E-03_JPRB,2.9165E-03_JPRB,6.5237E-01_JPRB/)
164 KAO( :, 2, 7, 1) = (/&
165 & 9.1189E-04_JPRB,5.0775E-03_JPRB,6.4806E-03_JPRB,7.0004E-03_JPRB,6.7455E-03_JPRB,5.9796E-03_JPRB,&
166
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.7234E-03_JPRB,2.9250E-03_JPRB,6.3689E-01_JPRB/)
167 KAO( :, 3, 7, 1) = (/&
168 & 8.7036E-04_JPRB,5.2121E-03_JPRB,6.7389E-03_JPRB,7.1547E-03_JPRB,6.8614E-03_JPRB,6.0502E-03_JPRB,&
169
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.7609E-03_JPRB,2.9391E-03_JPRB,6.2141E-01_JPRB/)
170 KAO( :, 4, 7, 1) = (/&
171 & 8.3275E-04_JPRB,5.3378E-03_JPRB,6.9169E-03_JPRB,7.2639E-03_JPRB,6.9474E-03_JPRB,6.1007E-03_JPRB,&
172
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.7893E-03_JPRB,2.9754E-03_JPRB,6.0575E-01_JPRB/)
173 KAO( :, 5, 7, 1) = (/&
174 & 7.9855E-04_JPRB,5.4591E-03_JPRB,7.0288E-03_JPRB,7.3444E-03_JPRB,7.0074E-03_JPRB,6.1400E-03_JPRB,&
175
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.8149E-03_JPRB,3.0449E-03_JPRB,5.8968E-01_JPRB/)
176 KAO( :, 1, 8, 1) = (/&
177 & 7.9465E-04_JPRB,4.0550E-03_JPRB,4.9071E-03_JPRB,5.4722E-03_JPRB,5.3709E-03_JPRB,4.7864E-03_JPRB,&
178
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.8134E-03_JPRB,2.3876E-03_JPRB,5.5983E-01_JPRB/)
179 KAO( :, 2, 8, 1) = (/&
180 & 7.5211E-04_JPRB,4.1645E-03_JPRB,5.2395E-03_JPRB,5.6983E-03_JPRB,5.5014E-03_JPRB,4.8765E-03_JPRB,&
181
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.8582E-03_JPRB,2.3958E-03_JPRB,5.4541E-01_JPRB/)
182 KAO( :, 3, 8, 1) = (/&
183 & 7.1425E-04_JPRB,4.2775E-03_JPRB,5.4907E-03_JPRB,5.8442E-03_JPRB,5.6010E-03_JPRB,4.9449E-03_JPRB,&
184
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.8932E-03_JPRB,2.4025E-03_JPRB,5.3089E-01_JPRB/)
185 KAO( :, 4, 8, 1) = (/&
186 & 6.8017E-04_JPRB,4.3807E-03_JPRB,5.6532E-03_JPRB,5.9396E-03_JPRB,5.6779E-03_JPRB,4.9919E-03_JPRB,&
187
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.9191E-03_JPRB,2.4205E-03_JPRB,5.1625E-01_JPRB/)
188 KAO( :, 5, 8, 1) = (/&
189 & 6.4915E-04_JPRB,4.4822E-03_JPRB,5.7602E-03_JPRB,6.0112E-03_JPRB,5.7346E-03_JPRB,5.0274E-03_JPRB,&
190
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.9402E-03_JPRB,2.4616E-03_JPRB,5.0156E-01_JPRB/)
191 KAO( :, 1, 9, 1) = (/&
192 & 6.6256E-04_JPRB,3.3231E-03_JPRB,3.9423E-03_JPRB,4.3965E-03_JPRB,4.3550E-03_JPRB,3.8950E-03_JPRB,&
193
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1106E-03_JPRB,1.9527E-03_JPRB,4.7909E-01_JPRB/)
194 KAO( :, 2, 9, 1) = (/&
195 & 6.2337E-04_JPRB,3.4093E-03_JPRB,4.2109E-03_JPRB,4.6231E-03_JPRB,4.4821E-03_JPRB,3.9733E-03_JPRB,&
196
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1493E-03_JPRB,1.9618E-03_JPRB,4.6525E-01_JPRB/)
197 KAO( :, 3, 9, 1) = (/&
198 & 5.8859E-04_JPRB,3.5021E-03_JPRB,4.4524E-03_JPRB,4.7638E-03_JPRB,4.5675E-03_JPRB,4.0358E-03_JPRB,&
199
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1809E-03_JPRB,1.9669E-03_JPRB,4.5157E-01_JPRB/)
200 KAO( :, 4, 9, 1) = (/&
201 & 5.5740E-04_JPRB,3.5874E-03_JPRB,4.6083E-03_JPRB,4.8522E-03_JPRB,4.6363E-03_JPRB,4.0813E-03_JPRB,&
202
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2054E-03_JPRB,1.9751E-03_JPRB,4.3811E-01_JPRB/)
203 KAO( :, 5, 9, 1) = (/&
204 & 5.2927E-04_JPRB,3.6711E-03_JPRB,4.7102E-03_JPRB,4.9155E-03_JPRB,4.6887E-03_JPRB,4.1135E-03_JPRB,&
205
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2248E-03_JPRB,1.9974E-03_JPRB,4.2484E-01_JPRB/)
206 KAO( :, 1,10, 1) = (/&
207 & 5.5819E-04_JPRB,2.7284E-03_JPRB,3.1809E-03_JPRB,3.5314E-03_JPRB,3.5278E-03_JPRB,3.1713E-03_JPRB,&
208
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5390E-03_JPRB,1.5979E-03_JPRB,4.1170E-01_JPRB/)
209 KAO( :, 2,10, 1) = (/&
210 & 5.2264E-04_JPRB,2.7960E-03_JPRB,3.3951E-03_JPRB,3.7490E-03_JPRB,3.6516E-03_JPRB,3.2397E-03_JPRB,&
211
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5727E-03_JPRB,1.6061E-03_JPRB,3.9866E-01_JPRB/)
212 KAO( :, 3,10, 1) = (/&
213 & 4.9139E-04_JPRB,2.8693E-03_JPRB,3.6092E-03_JPRB,3.8820E-03_JPRB,3.7278E-03_JPRB,3.2940E-03_JPRB,&
214
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5999E-03_JPRB,1.6112E-03_JPRB,3.8585E-01_JPRB/)
215 KAO( :, 4,10, 1) = (/&
216 & 4.6354E-04_JPRB,2.9405E-03_JPRB,3.7573E-03_JPRB,3.9654E-03_JPRB,3.7869E-03_JPRB,3.3368E-03_JPRB,&
217
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6225E-03_JPRB,1.6157E-03_JPRB,3.7334E-01_JPRB/)
218 KAO( :, 5,10, 1) = (/&
219 & 4.3854E-04_JPRB,3.0087E-03_JPRB,3.8506E-03_JPRB,4.0212E-03_JPRB,3.8338E-03_JPRB,3.3662E-03_JPRB,&
220
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6402E-03_JPRB,1.6279E-03_JPRB,3.6129E-01_JPRB/)
221 KAO( :, 1,11, 1) = (/&
222 & 4.5821E-04_JPRB,2.2621E-03_JPRB,2.6447E-03_JPRB,2.9297E-03_JPRB,2.9129E-03_JPRB,2.6105E-03_JPRB,&
223
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0860E-03_JPRB,1.3108E-03_JPRB,3.4781E-01_JPRB/)
224 KAO( :, 2,11, 1) = (/&
225 & 4.2863E-04_JPRB,2.3183E-03_JPRB,2.8194E-03_JPRB,3.0973E-03_JPRB,3.0077E-03_JPRB,2.6638E-03_JPRB,&
226
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1125E-03_JPRB,1.3172E-03_JPRB,3.3606E-01_JPRB/)
227 KAO( :, 3,11, 1) = (/&
228 & 4.0252E-04_JPRB,2.3779E-03_JPRB,2.9883E-03_JPRB,3.2000E-03_JPRB,3.0663E-03_JPRB,2.7064E-03_JPRB,&
229
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1343E-03_JPRB,1.3214E-03_JPRB,3.2458E-01_JPRB/)
230 KAO( :, 4,11, 1) = (/&
231 & 3.7927E-04_JPRB,2.4351E-03_JPRB,3.1025E-03_JPRB,3.2639E-03_JPRB,3.1126E-03_JPRB,2.7399E-03_JPRB,&
232
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1527E-03_JPRB,1.3253E-03_JPRB,3.1358E-01_JPRB/)
233 KAO( :, 5,11, 1) = (/&
234 & 3.5851E-04_JPRB,2.4897E-03_JPRB,3.1743E-03_JPRB,3.3073E-03_JPRB,3.1494E-03_JPRB,2.7631E-03_JPRB,&
235
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1670E-03_JPRB,1.3357E-03_JPRB,3.0304E-01_JPRB/)
236 KAO( :, 1,12, 1) = (/&
237 & 3.7566E-04_JPRB,1.8705E-03_JPRB,2.1955E-03_JPRB,2.4263E-03_JPRB,2.4027E-03_JPRB,2.1477E-03_JPRB,&
238
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7133E-03_JPRB,1.0753E-03_JPRB,2.9614E-01_JPRB/)
239 KAO( :, 2,12, 1) = (/&
240 & 3.5112E-04_JPRB,1.9175E-03_JPRB,2.3381E-03_JPRB,2.5565E-03_JPRB,2.4759E-03_JPRB,2.1892E-03_JPRB,&
241
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7343E-03_JPRB,1.0803E-03_JPRB,2.8551E-01_JPRB/)
242 KAO( :, 3,12, 1) = (/&
243 & 3.2946E-04_JPRB,1.9676E-03_JPRB,2.4711E-03_JPRB,2.6363E-03_JPRB,2.5213E-03_JPRB,2.2227E-03_JPRB,&
244
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7519E-03_JPRB,1.0837E-03_JPRB,2.7528E-01_JPRB/)
245 KAO( :, 4,12, 1) = (/&
246 & 3.1028E-04_JPRB,2.0138E-03_JPRB,2.5600E-03_JPRB,2.6860E-03_JPRB,2.5577E-03_JPRB,2.2494E-03_JPRB,&
247
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7667E-03_JPRB,1.0872E-03_JPRB,2.6557E-01_JPRB/)
248 KAO( :, 5,12, 1) = (/&
249 & 2.9320E-04_JPRB,2.0583E-03_JPRB,2.6161E-03_JPRB,2.7200E-03_JPRB,2.5866E-03_JPRB,2.2676E-03_JPRB,&
250
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7779E-03_JPRB,1.0961E-03_JPRB,2.5635E-01_JPRB/)
251 KAO( :, 1,13, 1) = (/&
252 & 3.0764E-04_JPRB,1.5429E-03_JPRB,1.8188E-03_JPRB,2.0063E-03_JPRB,1.9799E-03_JPRB,1.7660E-03_JPRB,&
253
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4068E-03_JPRB,8.8203E-04_JPRB,2.5899E-01_JPRB/)
254 KAO( :, 2,13, 1) = (/&
255 & 2.8735E-04_JPRB,1.5821E-03_JPRB,1.9364E-03_JPRB,2.1086E-03_JPRB,2.0369E-03_JPRB,1.7986E-03_JPRB,&
256
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4237E-03_JPRB,8.8599E-04_JPRB,2.4914E-01_JPRB/)
257 KAO( :, 3,13, 1) = (/&
258 & 2.6953E-04_JPRB,1.6236E-03_JPRB,2.0412E-03_JPRB,2.1709E-03_JPRB,2.0725E-03_JPRB,1.8251E-03_JPRB,&
259
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4376E-03_JPRB,8.8887E-04_JPRB,2.3982E-01_JPRB/)
260 KAO( :, 4,13, 1) = (/&
261 & 2.5380E-04_JPRB,1.6612E-03_JPRB,2.1113E-03_JPRB,2.2099E-03_JPRB,2.1013E-03_JPRB,1.8462E-03_JPRB,&
262
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4493E-03_JPRB,8.9188E-04_JPRB,2.3102E-01_JPRB/)
263 KAO( :, 5,13, 1) = (/&
264 & 2.3980E-04_JPRB,1.6979E-03_JPRB,2.1555E-03_JPRB,2.2365E-03_JPRB,2.1241E-03_JPRB,1.8607E-03_JPRB,&
265
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4583E-03_JPRB,8.9931E-04_JPRB,2.2279E-01_JPRB/)
266 KAO( :, 1, 1, 2) = (/&
267 & 7.0943E-03_JPRB,3.8387E-02_JPRB,4.3151E-02_JPRB,4.2731E-02_JPRB,4.0946E-02_JPRB,3.8949E-02_JPRB,&
268
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.7362E-02_JPRB,3.5997E-02_JPRB,3.1543E+00_JPRB/)
269 KAO( :, 2, 1, 2) = (/&
270 & 7.0850E-03_JPRB,3.8454E-02_JPRB,4.2900E-02_JPRB,4.3028E-02_JPRB,4.2284E-02_JPRB,4.1753E-02_JPRB,&
271
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.1711E-02_JPRB,4.1528E-02_JPRB,3.1189E+00_JPRB/)
272 KAO( :, 3, 1, 2) = (/&
273 & 7.0813E-03_JPRB,3.8363E-02_JPRB,4.2614E-02_JPRB,4.3463E-02_JPRB,4.3963E-02_JPRB,4.4905E-02_JPRB,&
274
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.6271E-02_JPRB,4.7132E-02_JPRB,3.0948E+00_JPRB/)
275 KAO( :, 4, 1, 2) = (/&
276 & 7.0651E-03_JPRB,3.8151E-02_JPRB,4.2395E-02_JPRB,4.4068E-02_JPRB,4.5862E-02_JPRB,4.8163E-02_JPRB,&
277
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.0764E-02_JPRB,5.2533E-02_JPRB,3.0805E+00_JPRB/)
278 KAO( :, 5, 1, 2) = (/&
279 & 7.0475E-03_JPRB,3.7840E-02_JPRB,4.2280E-02_JPRB,4.4809E-02_JPRB,4.7823E-02_JPRB,5.1372E-02_JPRB,&
280
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.5020E-02_JPRB,5.7574E-02_JPRB,3.0698E+00_JPRB/)
281 KAO( :, 1, 2, 2) = (/&
282 & 5.4133E-03_JPRB,3.2388E-02_JPRB,3.6287E-02_JPRB,3.5903E-02_JPRB,3.4407E-02_JPRB,3.2747E-02_JPRB,&
283
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1453E-02_JPRB,3.0272E-02_JPRB,2.5533E+00_JPRB/)
284 KAO( :, 2, 2, 2) = (/&
285 & 5.3611E-03_JPRB,3.2430E-02_JPRB,3.6074E-02_JPRB,3.6216E-02_JPRB,3.5593E-02_JPRB,3.5203E-02_JPRB,&
286
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.5194E-02_JPRB,3.4997E-02_JPRB,2.5086E+00_JPRB/)
287 KAO( :, 3, 2, 2) = (/&
288 & 5.3281E-03_JPRB,3.2322E-02_JPRB,3.5847E-02_JPRB,3.6639E-02_JPRB,3.7078E-02_JPRB,3.7935E-02_JPRB,&
289
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.9143E-02_JPRB,3.9849E-02_JPRB,2.4723E+00_JPRB/)
290 KAO( :, 4, 2, 2) = (/&
291 & 5.3094E-03_JPRB,3.2112E-02_JPRB,3.5677E-02_JPRB,3.7178E-02_JPRB,3.8741E-02_JPRB,4.0767E-02_JPRB,&
292
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.3021E-02_JPRB,4.4489E-02_JPRB,2.4475E+00_JPRB/)
293 KAO( :, 5, 2, 2) = (/&
294 & 5.2887E-03_JPRB,3.1839E-02_JPRB,3.5583E-02_JPRB,3.7831E-02_JPRB,4.0436E-02_JPRB,4.3525E-02_JPRB,&
295
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.6680E-02_JPRB,4.8869E-02_JPRB,2.4311E+00_JPRB/)
296 KAO( :, 1, 3, 2) = (/&
297 & 4.0611E-03_JPRB,2.7170E-02_JPRB,3.0405E-02_JPRB,3.0026E-02_JPRB,2.8647E-02_JPRB,2.7115E-02_JPRB,&
298
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5770E-02_JPRB,2.4484E-02_JPRB,2.0491E+00_JPRB/)
299 KAO( :, 2, 3, 2) = (/&
300 & 3.9775E-03_JPRB,2.7189E-02_JPRB,3.0241E-02_JPRB,3.0301E-02_JPRB,2.9626E-02_JPRB,2.9114E-02_JPRB,&
301
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8843E-02_JPRB,2.8434E-02_JPRB,1.9991E+00_JPRB/)
302 KAO( :, 3, 3, 2) = (/&
303 & 3.9065E-03_JPRB,2.7099E-02_JPRB,3.0059E-02_JPRB,3.0647E-02_JPRB,3.0854E-02_JPRB,3.1397E-02_JPRB,&
304
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2170E-02_JPRB,3.2541E-02_JPRB,1.9562E+00_JPRB/)
305 KAO( :, 4, 3, 2) = (/&
306 & 3.8466E-03_JPRB,2.6925E-02_JPRB,2.9905E-02_JPRB,3.1087E-02_JPRB,3.2235E-02_JPRB,3.3772E-02_JPRB,&
307
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.5477E-02_JPRB,3.6558E-02_JPRB,1.9207E+00_JPRB/)
308 KAO( :, 5, 3, 2) = (/&
309 & 3.7983E-03_JPRB,2.6668E-02_JPRB,2.9797E-02_JPRB,3.1593E-02_JPRB,3.3666E-02_JPRB,3.6136E-02_JPRB,&
310
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.8655E-02_JPRB,4.0337E-02_JPRB,1.8904E+00_JPRB/)
311 KAO( :, 1, 4, 2) = (/&
312 & 3.1618E-03_JPRB,2.2735E-02_JPRB,2.5430E-02_JPRB,2.5073E-02_JPRB,2.3860E-02_JPRB,2.2346E-02_JPRB,&
313
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0906E-02_JPRB,1.9493E-02_JPRB,1.6815E+00_JPRB/)
314 KAO( :, 2, 4, 2) = (/&
315 & 3.0772E-03_JPRB,2.2769E-02_JPRB,2.5323E-02_JPRB,2.5294E-02_JPRB,2.4614E-02_JPRB,2.3917E-02_JPRB,&
316
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3363E-02_JPRB,2.2717E-02_JPRB,1.6300E+00_JPRB/)
317 KAO( :, 3, 4, 2) = (/&
318 & 2.9989E-03_JPRB,2.2705E-02_JPRB,2.5187E-02_JPRB,2.5585E-02_JPRB,2.5590E-02_JPRB,2.5772E-02_JPRB,&
319
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6101E-02_JPRB,2.6159E-02_JPRB,1.5868E+00_JPRB/)
320 KAO( :, 4, 4, 2) = (/&
321 & 2.9269E-03_JPRB,2.2567E-02_JPRB,2.5061E-02_JPRB,2.5933E-02_JPRB,2.6708E-02_JPRB,2.7738E-02_JPRB,&
322
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8897E-02_JPRB,2.9580E-02_JPRB,1.5492E+00_JPRB/)
323 KAO( :, 5, 4, 2) = (/&
324 & 2.8633E-03_JPRB,2.2345E-02_JPRB,2.4951E-02_JPRB,2.6338E-02_JPRB,2.7898E-02_JPRB,2.9732E-02_JPRB,&
325
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1610E-02_JPRB,3.2830E-02_JPRB,1.5179E+00_JPRB/)
326 KAO( :, 1, 5, 2) = (/&
327 & 2.5495E-03_JPRB,1.8985E-02_JPRB,2.1259E-02_JPRB,2.0956E-02_JPRB,1.9882E-02_JPRB,1.8351E-02_JPRB,&
328
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6812E-02_JPRB,1.5262E-02_JPRB,1.4081E+00_JPRB/)
329 KAO( :, 2, 5, 2) = (/&
330 & 2.4663E-03_JPRB,1.9038E-02_JPRB,2.1177E-02_JPRB,2.1145E-02_JPRB,2.0437E-02_JPRB,1.9579E-02_JPRB,&
331
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8803E-02_JPRB,1.7942E-02_JPRB,1.3595E+00_JPRB/)
332 KAO( :, 3, 5, 2) = (/&
333 & 2.3921E-03_JPRB,1.9006E-02_JPRB,2.1089E-02_JPRB,2.1375E-02_JPRB,2.1189E-02_JPRB,2.1072E-02_JPRB,&
334
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1043E-02_JPRB,2.0814E-02_JPRB,1.3176E+00_JPRB/)
335 KAO( :, 4, 5, 2) = (/&
336 & 2.3238E-03_JPRB,1.8899E-02_JPRB,2.0991E-02_JPRB,2.1643E-02_JPRB,2.2082E-02_JPRB,2.2687E-02_JPRB,&
337
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3376E-02_JPRB,2.3722E-02_JPRB,1.2814E+00_JPRB/)
338 KAO( :, 5, 5, 2) = (/&
339 & 2.2609E-03_JPRB,1.8711E-02_JPRB,2.0886E-02_JPRB,2.1958E-02_JPRB,2.3037E-02_JPRB,2.4321E-02_JPRB,&
340
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
10 & 2.5657E-02_JPRB,2.6474E-02_JPRB,1.2502E+00_JPRB/)
341
342
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB15: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_KGB15:PART2',0,ZHOOK_HANDLE)
350
351
352 KAO( :, 1, 6, 2) = (/&
353 & 2.1136E-03_JPRB,1.5844E-02_JPRB,1.7815E-02_JPRB,1.7475E-02_JPRB,1.6448E-02_JPRB,1.4925E-02_JPRB,&
354
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3323E-02_JPRB,1.1714E-02_JPRB,1.1933E+00_JPRB/)
355 KAO( :, 2, 6, 2) = (/&
356 & 2.0306E-03_JPRB,1.5911E-02_JPRB,1.7725E-02_JPRB,1.7645E-02_JPRB,1.6857E-02_JPRB,1.5846E-02_JPRB,&
357
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4877E-02_JPRB,1.3852E-02_JPRB,1.1478E+00_JPRB/)
358 KAO( :, 3, 6, 2) = (/&
359 & 1.9573E-03_JPRB,1.5900E-02_JPRB,1.7665E-02_JPRB,1.7815E-02_JPRB,1.7433E-02_JPRB,1.7030E-02_JPRB,&
360
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6681E-02_JPRB,1.6204E-02_JPRB,1.1091E+00_JPRB/)
361 KAO( :, 4, 6, 2) = (/&
362 & 1.8915E-03_JPRB,1.5823E-02_JPRB,1.7587E-02_JPRB,1.8019E-02_JPRB,1.8141E-02_JPRB,1.8355E-02_JPRB,&
363
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8615E-02_JPRB,1.8633E-02_JPRB,1.0755E+00_JPRB/)
364 KAO( :, 5, 6, 2) = (/&
365 & 1.8316E-03_JPRB,1.5671E-02_JPRB,1.7495E-02_JPRB,1.8250E-02_JPRB,1.8907E-02_JPRB,1.9704E-02_JPRB,&
366
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0534E-02_JPRB,2.0986E-02_JPRB,1.0458E+00_JPRB/)
367 KAO( :, 1, 7, 2) = (/&
368 & 1.7779E-03_JPRB,1.3214E-02_JPRB,1.4915E-02_JPRB,1.4490E-02_JPRB,1.3534E-02_JPRB,1.2115E-02_JPRB,&
369
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0525E-02_JPRB,8.9151E-03_JPRB,1.0250E+00_JPRB/)
370 KAO( :, 2, 7, 2) = (/&
371 & 1.6955E-03_JPRB,1.3308E-02_JPRB,1.4823E-02_JPRB,1.4622E-02_JPRB,1.3840E-02_JPRB,1.2763E-02_JPRB,&
372
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1685E-02_JPRB,1.0574E-02_JPRB,9.8268E-01_JPRB/)
373 KAO( :, 3, 7, 2) = (/&
374 & 1.6237E-03_JPRB,1.3311E-02_JPRB,1.4766E-02_JPRB,1.4761E-02_JPRB,1.4249E-02_JPRB,1.3650E-02_JPRB,&
375
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3091E-02_JPRB,1.2450E-02_JPRB,9.4696E-01_JPRB/)
376 KAO( :, 4, 7, 2) = (/&
377 & 1.5603E-03_JPRB,1.3256E-02_JPRB,1.4695E-02_JPRB,1.4910E-02_JPRB,1.4782E-02_JPRB,1.4700E-02_JPRB,&
378
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4648E-02_JPRB,1.4438E-02_JPRB,9.1575E-01_JPRB/)
379 KAO( :, 5, 7, 2) = (/&
380 & 1.5029E-03_JPRB,1.3127E-02_JPRB,1.4617E-02_JPRB,1.5078E-02_JPRB,1.5382E-02_JPRB,1.5792E-02_JPRB,&
381
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6228E-02_JPRB,1.6399E-02_JPRB,8.8786E-01_JPRB/)
382 KAO( :, 1, 8, 2) = (/&
383 & 1.5020E-03_JPRB,1.1002E-02_JPRB,1.2408E-02_JPRB,1.1986E-02_JPRB,1.1101E-02_JPRB,9.8378E-03_JPRB,&
384
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.3304E-03_JPRB,6.7732E-03_JPRB,8.9770E-01_JPRB/)
385 KAO( :, 2, 8, 2) = (/&
386 & 1.4230E-03_JPRB,1.1110E-02_JPRB,1.2342E-02_JPRB,1.2073E-02_JPRB,1.1340E-02_JPRB,1.0282E-02_JPRB,&
387
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.1665E-03_JPRB,8.0270E-03_JPRB,8.5759E-01_JPRB/)
388 KAO( :, 3, 8, 2) = (/&
389 & 1.3543E-03_JPRB,1.1124E-02_JPRB,1.2281E-02_JPRB,1.2183E-02_JPRB,1.1624E-02_JPRB,1.0918E-02_JPRB,&
390
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0231E-02_JPRB,9.4957E-03_JPRB,8.2343E-01_JPRB/)
391 KAO( :, 4, 8, 2) = (/&
392 & 1.2937E-03_JPRB,1.1088E-02_JPRB,1.2220E-02_JPRB,1.2293E-02_JPRB,1.2008E-02_JPRB,1.1719E-02_JPRB,&
393
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1453E-02_JPRB,1.1081E-02_JPRB,7.9354E-01_JPRB/)
394 KAO( :, 5, 8, 2) = (/&
395 & 1.2398E-03_JPRB,1.0985E-02_JPRB,1.2152E-02_JPRB,1.2411E-02_JPRB,1.2469E-02_JPRB,1.2594E-02_JPRB,&
396
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2739E-02_JPRB,1.2705E-02_JPRB,7.6694E-01_JPRB/)
397 KAO( :, 1, 9, 2) = (/&
398 & 1.2772E-03_JPRB,9.1185E-03_JPRB,1.0283E-02_JPRB,9.9108E-03_JPRB,9.0933E-03_JPRB,7.9937E-03_JPRB,&
399
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.6146E-03_JPRB,5.1482E-03_JPRB,7.8565E-01_JPRB/)
400 KAO( :, 2, 9, 2) = (/&
401 & 1.2008E-03_JPRB,9.2246E-03_JPRB,1.0254E-02_JPRB,9.9497E-03_JPRB,9.2744E-03_JPRB,8.2956E-03_JPRB,&
402
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.1977E-03_JPRB,6.0715E-03_JPRB,7.4762E-01_JPRB/)
403 KAO( :, 3, 9, 2) = (/&
404 & 1.1346E-03_JPRB,9.2567E-03_JPRB,1.0190E-02_JPRB,1.0030E-02_JPRB,9.4797E-03_JPRB,8.7349E-03_JPRB,&
405
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.9799E-03_JPRB,7.1919E-03_JPRB,7.1506E-01_JPRB/)
406 KAO( :, 4, 9, 2) = (/&
407 & 1.0767E-03_JPRB,9.2317E-03_JPRB,1.0137E-02_JPRB,1.0114E-02_JPRB,9.7458E-03_JPRB,9.3188E-03_JPRB,&
408
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.9121E-03_JPRB,8.4415E-03_JPRB,6.8636E-01_JPRB/)
409 KAO( :, 5, 9, 2) = (/&
410 & 1.0254E-03_JPRB,9.1543E-03_JPRB,1.0077E-02_JPRB,1.0198E-02_JPRB,1.0088E-02_JPRB,1.0005E-02_JPRB,&
411
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.9430E-03_JPRB,9.7610E-03_JPRB,6.6072E-01_JPRB/)
412 KAO( :, 1,10, 2) = (/&
413 & 1.0908E-03_JPRB,7.5349E-03_JPRB,8.5055E-03_JPRB,8.1913E-03_JPRB,7.4594E-03_JPRB,6.5117E-03_JPRB,&
414
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.3043E-03_JPRB,3.9738E-03_JPRB,6.8647E-01_JPRB/)
415 KAO( :, 2,10, 2) = (/&
416 & 1.0219E-03_JPRB,7.6350E-03_JPRB,8.4942E-03_JPRB,8.2002E-03_JPRB,7.5922E-03_JPRB,6.7288E-03_JPRB,&
417
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.7099E-03_JPRB,4.6532E-03_JPRB,6.5148E-01_JPRB/)
418 KAO( :, 3,10, 2) = (/&
419 & 9.6216E-04_JPRB,7.6768E-03_JPRB,8.4412E-03_JPRB,8.2544E-03_JPRB,7.7463E-03_JPRB,7.0316E-03_JPRB,&
420
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.2789E-03_JPRB,5.5007E-03_JPRB,6.2153E-01_JPRB/)
421 KAO( :, 4,10, 2) = (/&
422 & 9.0949E-04_JPRB,7.6636E-03_JPRB,8.3915E-03_JPRB,8.3156E-03_JPRB,7.9306E-03_JPRB,7.4536E-03_JPRB,&
423
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.9877E-03_JPRB,6.4813E-03_JPRB,5.9517E-01_JPRB/)
424 KAO( :, 5,10, 2) = (/&
425 & 8.6244E-04_JPRB,7.6028E-03_JPRB,8.3387E-03_JPRB,8.3779E-03_JPRB,8.1810E-03_JPRB,7.9831E-03_JPRB,&
426
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.7997E-03_JPRB,7.5371E-03_JPRB,5.7147E-01_JPRB/)
427 KAO( :, 1,11, 2) = (/&
428 & 9.0171E-04_JPRB,6.2591E-03_JPRB,7.0260E-03_JPRB,6.7592E-03_JPRB,6.1582E-03_JPRB,5.3757E-03_JPRB,&
429
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.3823E-03_JPRB,3.2909E-03_JPRB,5.8305E-01_JPRB/)
430 KAO( :, 2,11, 2) = (/&
431 & 8.4471E-04_JPRB,6.3292E-03_JPRB,7.0117E-03_JPRB,6.7680E-03_JPRB,6.2644E-03_JPRB,5.5512E-03_JPRB,&
432
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.7161E-03_JPRB,3.8488E-03_JPRB,5.5321E-01_JPRB/)
433 KAO( :, 3,11, 2) = (/&
434 & 7.9501E-04_JPRB,6.3542E-03_JPRB,6.9623E-03_JPRB,6.8076E-03_JPRB,6.3850E-03_JPRB,5.7984E-03_JPRB,&
435
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.1814E-03_JPRB,4.5421E-03_JPRB,5.2752E-01_JPRB/)
436 KAO( :, 4,11, 2) = (/&
437 & 7.5106E-04_JPRB,6.3305E-03_JPRB,6.9164E-03_JPRB,6.8517E-03_JPRB,6.5339E-03_JPRB,6.1441E-03_JPRB,&
438
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.7616E-03_JPRB,5.3442E-03_JPRB,5.0480E-01_JPRB/)
439 KAO( :, 5,11, 2) = (/&
440 & 7.1176E-04_JPRB,6.2680E-03_JPRB,6.8638E-03_JPRB,6.9010E-03_JPRB,6.7399E-03_JPRB,6.5787E-03_JPRB,&
441
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.4276E-03_JPRB,6.2093E-03_JPRB,4.8460E-01_JPRB/)
442 KAO( :, 1,12, 2) = (/&
443 & 7.4344E-04_JPRB,5.1893E-03_JPRB,5.7960E-03_JPRB,5.5712E-03_JPRB,5.0774E-03_JPRB,4.4320E-03_JPRB,&
444
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.6146E-03_JPRB,2.7192E-03_JPRB,4.9987E-01_JPRB/)
445 KAO( :, 2,12, 2) = (/&
446 & 6.9630E-04_JPRB,5.2389E-03_JPRB,5.7776E-03_JPRB,5.5769E-03_JPRB,5.1607E-03_JPRB,4.5730E-03_JPRB,&
447
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.8872E-03_JPRB,3.1759E-03_JPRB,4.7411E-01_JPRB/)
448 KAO( :, 3,12, 2) = (/&
449 & 6.5505E-04_JPRB,5.2495E-03_JPRB,5.7335E-03_JPRB,5.6051E-03_JPRB,5.2555E-03_JPRB,4.7752E-03_JPRB,&
450
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.2687E-03_JPRB,3.7439E-03_JPRB,4.5176E-01_JPRB/)
451 KAO( :, 4,12, 2) = (/&
452 & 6.1851E-04_JPRB,5.2199E-03_JPRB,5.6893E-03_JPRB,5.6379E-03_JPRB,5.3780E-03_JPRB,5.0596E-03_JPRB,&
453
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.7451E-03_JPRB,4.4010E-03_JPRB,4.3213E-01_JPRB/)
454 KAO( :, 5,12, 2) = (/&
455 & 5.8564E-04_JPRB,5.1584E-03_JPRB,5.6408E-03_JPRB,5.6781E-03_JPRB,5.5493E-03_JPRB,5.4174E-03_JPRB,&
456
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.2919E-03_JPRB,5.1102E-03_JPRB,4.1474E-01_JPRB/)
457 KAO( :, 1,13, 2) = (/&
458 & 6.1162E-04_JPRB,4.2978E-03_JPRB,4.7775E-03_JPRB,4.5861E-03_JPRB,4.1806E-03_JPRB,3.6483E-03_JPRB,&
459
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9761E-03_JPRB,2.2409E-03_JPRB,4.4173E-01_JPRB/)
460 KAO( :, 2,13, 2) = (/&
461 & 5.7264E-04_JPRB,4.3335E-03_JPRB,4.7546E-03_JPRB,4.5895E-03_JPRB,4.2458E-03_JPRB,3.7618E-03_JPRB,&
462
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1994E-03_JPRB,2.6153E-03_JPRB,4.1858E-01_JPRB/)
463 KAO( :, 3,13, 2) = (/&
464 & 5.3845E-04_JPRB,4.3324E-03_JPRB,4.7152E-03_JPRB,4.6098E-03_JPRB,4.3213E-03_JPRB,3.9280E-03_JPRB,&
465
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.5124E-03_JPRB,3.0807E-03_JPRB,3.9852E-01_JPRB/)
466 KAO( :, 4,13, 2) = (/&
467 & 5.0800E-04_JPRB,4.3007E-03_JPRB,4.6739E-03_JPRB,4.6354E-03_JPRB,4.4237E-03_JPRB,4.1636E-03_JPRB,&
468
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.9041E-03_JPRB,3.6190E-03_JPRB,3.8103E-01_JPRB/)
469 KAO( :, 5,13, 2) = (/&
470 & 4.8061E-04_JPRB,4.2432E-03_JPRB,4.6321E-03_JPRB,4.6674E-03_JPRB,4.5673E-03_JPRB,4.4592E-03_JPRB,&
471
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.3539E-03_JPRB,4.2010E-03_JPRB,3.6549E-01_JPRB/)
472 KAO( :, 1, 1, 3) = (/&
473 & 1.1504E-02_JPRB,5.1115E-02_JPRB,6.3490E-02_JPRB,7.5739E-02_JPRB,8.9129E-02_JPRB,1.0261E-01_JPRB,&
474
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1510E-01_JPRB,1.2497E-01_JPRB,4.5470E+00_JPRB/)
475 KAO( :, 2, 1, 3) = (/&
476 & 1.1411E-02_JPRB,5.0441E-02_JPRB,6.4398E-02_JPRB,7.8958E-02_JPRB,9.4436E-02_JPRB,1.0965E-01_JPRB,&
477
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2371E-01_JPRB,1.3505E-01_JPRB,4.5111E+00_JPRB/)
478 KAO( :, 3, 1, 3) = (/&
479 & 1.1360E-02_JPRB,4.9859E-02_JPRB,6.5352E-02_JPRB,8.1890E-02_JPRB,9.8960E-02_JPRB,1.1556E-01_JPRB,&
480
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3095E-01_JPRB,1.4357E-01_JPRB,4.4964E+00_JPRB/)
481 KAO( :, 4, 1, 3) = (/&
482 & 1.1361E-02_JPRB,4.9396E-02_JPRB,6.6358E-02_JPRB,8.4565E-02_JPRB,1.0289E-01_JPRB,1.2064E-01_JPRB,&
483
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3719E-01_JPRB,1.5089E-01_JPRB,4.4952E+00_JPRB/)
484 KAO( :, 5, 1, 3) = (/&
485 & 1.1398E-02_JPRB,4.9071E-02_JPRB,6.7320E-02_JPRB,8.6942E-02_JPRB,1.0642E-01_JPRB,1.2520E-01_JPRB,&
486
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4278E-01_JPRB,1.5748E-01_JPRB,4.5069E+00_JPRB/)
487 KAO( :, 1, 2, 3) = (/&
488 & 9.0800E-03_JPRB,4.3518E-02_JPRB,5.4317E-02_JPRB,6.5007E-02_JPRB,7.6680E-02_JPRB,8.8428E-02_JPRB,&
489
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.9245E-02_JPRB,1.0777E-01_JPRB,3.7305E+00_JPRB/)
490 KAO( :, 2, 2, 3) = (/&
491 & 8.9700E-03_JPRB,4.2947E-02_JPRB,5.5146E-02_JPRB,6.7953E-02_JPRB,8.1575E-02_JPRB,9.4893E-02_JPRB,&
492
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0724E-01_JPRB,1.1720E-01_JPRB,3.6786E+00_JPRB/)
493 KAO( :, 3, 2, 3) = (/&
494 & 8.8659E-03_JPRB,4.2433E-02_JPRB,5.6085E-02_JPRB,7.0736E-02_JPRB,8.5859E-02_JPRB,1.0050E-01_JPRB,&
495
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1405E-01_JPRB,1.2513E-01_JPRB,3.6433E+00_JPRB/)
496 KAO( :, 4, 2, 3) = (/&
497 & 8.7765E-03_JPRB,4.1995E-02_JPRB,5.7083E-02_JPRB,7.3307E-02_JPRB,8.9633E-02_JPRB,1.0538E-01_JPRB,&
498
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1996E-01_JPRB,1.3207E-01_JPRB,3.6200E+00_JPRB/)
499 KAO( :, 5, 2, 3) = (/&
500 & 8.7192E-03_JPRB,4.1672E-02_JPRB,5.8019E-02_JPRB,7.5546E-02_JPRB,9.2932E-02_JPRB,1.0966E-01_JPRB,&
501
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2527E-01_JPRB,1.3822E-01_JPRB,3.6042E+00_JPRB/)
502 KAO( :, 1, 3, 3) = (/&
503 & 6.9828E-03_JPRB,3.6975E-02_JPRB,4.6012E-02_JPRB,5.4717E-02_JPRB,6.4326E-02_JPRB,7.4011E-02_JPRB,&
504
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.2981E-02_JPRB,8.9968E-02_JPRB,3.0198E+00_JPRB/)
505 KAO( :, 2, 3, 3) = (/&
506 & 6.8270E-03_JPRB,3.6472E-02_JPRB,4.6704E-02_JPRB,5.7392E-02_JPRB,6.8826E-02_JPRB,8.0074E-02_JPRB,&
507
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.0443E-02_JPRB,9.8762E-02_JPRB,2.9461E+00_JPRB/)
508 KAO( :, 3, 3, 3) = (/&
509 & 6.7044E-03_JPRB,3.6003E-02_JPRB,4.7551E-02_JPRB,5.9975E-02_JPRB,7.2865E-02_JPRB,8.5354E-02_JPRB,&
510
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.6922E-02_JPRB,1.0635E-01_JPRB,2.8886E+00_JPRB/)
511 KAO( :, 4, 3, 3) = (/&
512 & 6.5993E-03_JPRB,3.5562E-02_JPRB,4.8474E-02_JPRB,6.2398E-02_JPRB,7.6490E-02_JPRB,9.0037E-02_JPRB,&
513
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0257E-01_JPRB,1.1285E-01_JPRB,2.8436E+00_JPRB/)
514 KAO( :, 5, 3, 3) = (/&
515 & 6.5059E-03_JPRB,3.5210E-02_JPRB,4.9353E-02_JPRB,6.4534E-02_JPRB,7.9605E-02_JPRB,9.4094E-02_JPRB,&
516
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0752E-01_JPRB,1.1864E-01_JPRB,2.8111E+00_JPRB/)
517 KAO( :, 1, 4, 3) = (/&
518 & 5.5908E-03_JPRB,3.1365E-02_JPRB,3.8737E-02_JPRB,4.5544E-02_JPRB,5.3149E-02_JPRB,6.0919E-02_JPRB,&
519
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.8125E-02_JPRB,7.3670E-02_JPRB,2.5046E+00_JPRB/)
520 KAO( :, 2, 4, 3) = (/&
521 & 5.3957E-03_JPRB,3.0920E-02_JPRB,3.9328E-02_JPRB,4.7957E-02_JPRB,5.7284E-02_JPRB,6.6485E-02_JPRB,&
522
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.5002E-02_JPRB,8.1748E-02_JPRB,2.4277E+00_JPRB/)
523 KAO( :, 3, 4, 3) = (/&
524 & 5.2334E-03_JPRB,3.0500E-02_JPRB,4.0047E-02_JPRB,5.0287E-02_JPRB,6.0995E-02_JPRB,7.1412E-02_JPRB,&
525
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.1019E-02_JPRB,8.8826E-02_JPRB,2.3616E+00_JPRB/)
526 KAO( :, 4, 4, 3) = (/&
527 & 5.0990E-03_JPRB,3.0103E-02_JPRB,4.0857E-02_JPRB,5.2515E-02_JPRB,6.4366E-02_JPRB,7.5769E-02_JPRB,&
528
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.6313E-02_JPRB,9.4909E-02_JPRB,2.3071E+00_JPRB/)
529 KAO( :, 5, 4, 3) = (/&
530 & 4.9843E-03_JPRB,2.9769E-02_JPRB,4.1653E-02_JPRB,5.4480E-02_JPRB,6.7248E-02_JPRB,7.9493E-02_JPRB,&
531
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.0850E-02_JPRB,1.0015E-01_JPRB,2.2622E+00_JPRB/)
532 KAO( :, 1, 5, 3) = (/&
533 & 4.6371E-03_JPRB,2.6536E-02_JPRB,3.2443E-02_JPRB,3.7642E-02_JPRB,4.3487E-02_JPRB,4.9620E-02_JPRB,&
534
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.5321E-02_JPRB,5.9691E-02_JPRB,2.1169E+00_JPRB/)
535 KAO( :, 2, 5, 3) = (/&
536 & 4.4354E-03_JPRB,2.6146E-02_JPRB,3.2937E-02_JPRB,3.9753E-02_JPRB,4.7206E-02_JPRB,5.4649E-02_JPRB,&
537
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.1517E-02_JPRB,6.6941E-02_JPRB,2.0403E+00_JPRB/)
538 KAO( :, 3, 5, 3) = (/&
539 & 4.2621E-03_JPRB,2.5770E-02_JPRB,3.3534E-02_JPRB,4.1840E-02_JPRB,5.0602E-02_JPRB,5.9123E-02_JPRB,&
540
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.7019E-02_JPRB,7.3387E-02_JPRB,1.9782E+00_JPRB/)
541 KAO( :, 4, 5, 3) = (/&
542 & 4.1136E-03_JPRB,2.5421E-02_JPRB,3.4232E-02_JPRB,4.3837E-02_JPRB,5.3645E-02_JPRB,6.3092E-02_JPRB,&
543
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.1794E-02_JPRB,7.8876E-02_JPRB,1.9264E+00_JPRB/)
544 KAO( :, 5, 5, 3) = (/&
545 & 3.9859E-03_JPRB,2.5135E-02_JPRB,3.4954E-02_JPRB,4.5597E-02_JPRB,5.6243E-02_JPRB,6.6466E-02_JPRB,&
546
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.5915E-02_JPRB,8.3643E-02_JPRB,1.8824E+00_JPRB/)
547 KAO( :, 1, 6, 3) = (/&
548 & 3.9304E-03_JPRB,2.2403E-02_JPRB,2.7063E-02_JPRB,3.0926E-02_JPRB,3.5302E-02_JPRB,4.0017E-02_JPRB,&
549
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.4453E-02_JPRB,4.7785E-02_JPRB,1.8116E+00_JPRB/)
550 KAO( :, 2, 6, 3) = (/&
551 & 3.7327E-03_JPRB,2.2045E-02_JPRB,2.7456E-02_JPRB,3.2698E-02_JPRB,3.8563E-02_JPRB,4.4474E-02_JPRB,&
552
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.9934E-02_JPRB,5.4194E-02_JPRB,1.7392E+00_JPRB/)
553 KAO( :, 3, 6, 3) = (/&
554 & 3.5637E-03_JPRB,2.1717E-02_JPRB,2.7946E-02_JPRB,3.4540E-02_JPRB,4.1589E-02_JPRB,4.8508E-02_JPRB,&
555
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.4887E-02_JPRB,6.0005E-02_JPRB,1.6805E+00_JPRB/)
556 KAO( :, 4, 6, 3) = (/&
557 & 3.4181E-03_JPRB,2.1413E-02_JPRB,2.8528E-02_JPRB,3.6294E-02_JPRB,4.4304E-02_JPRB,5.2019E-02_JPRB,&
558
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.9160E-02_JPRB,6.4927E-02_JPRB,1.6325E+00_JPRB/)
559 KAO( :, 5, 6, 3) = (/&
560 & 3.2918E-03_JPRB,2.1166E-02_JPRB,2.9161E-02_JPRB,3.7872E-02_JPRB,4.6642E-02_JPRB,5.5066E-02_JPRB,&
561
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.2852E-02_JPRB,6.9193E-02_JPRB,1.5934E+00_JPRB/)
562 KAO( :, 1, 7, 3) = (/&
563 & 3.3611E-03_JPRB,1.8890E-02_JPRB,2.2580E-02_JPRB,2.5423E-02_JPRB,2.8547E-02_JPRB,3.2022E-02_JPRB,&
564
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.5350E-02_JPRB,3.7816E-02_JPRB,1.5699E+00_JPRB/)
565 KAO( :, 2, 7, 3) = (/&
566 & 3.1761E-03_JPRB,1.8547E-02_JPRB,2.2859E-02_JPRB,2.6861E-02_JPRB,3.1328E-02_JPRB,3.5924E-02_JPRB,&
567
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.0179E-02_JPRB,4.3442E-02_JPRB,1.5027E+00_JPRB/)
568 KAO( :, 3, 7, 3) = (/&
569 & 3.0174E-03_JPRB,1.8258E-02_JPRB,2.3246E-02_JPRB,2.8428E-02_JPRB,3.4019E-02_JPRB,3.9530E-02_JPRB,&
570
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.4619E-02_JPRB,4.8631E-02_JPRB,1.4482E+00_JPRB/)
571 KAO( :, 4, 7, 3) = (/&
572 & 2.8795E-03_JPRB,1.7993E-02_JPRB,2.3728E-02_JPRB,2.9950E-02_JPRB,3.6407E-02_JPRB,4.2653E-02_JPRB,&
573
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.8406E-02_JPRB,5.3042E-02_JPRB,1.4039E+00_JPRB/)
574 KAO( :, 5, 7, 3) = (/&
575 & 2.7589E-03_JPRB,1.7786E-02_JPRB,2.4255E-02_JPRB,3.1342E-02_JPRB,3.8508E-02_JPRB,4.5385E-02_JPRB,&
576
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.1742E-02_JPRB,5.6887E-02_JPRB,1.3676E+00_JPRB/)
577 KAO( :, 1, 8, 3) = (/&
578 & 2.8871E-03_JPRB,1.5916E-02_JPRB,1.8850E-02_JPRB,2.0853E-02_JPRB,2.2958E-02_JPRB,2.5335E-02_JPRB,&
579
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.7709E-02_JPRB,2.9422E-02_JPRB,1.3854E+00_JPRB/)
580 KAO( :, 2, 8, 3) = (/&
581 & 2.7155E-03_JPRB,1.5597E-02_JPRB,1.9055E-02_JPRB,2.1994E-02_JPRB,2.5264E-02_JPRB,2.8724E-02_JPRB,&
582
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1943E-02_JPRB,3.4360E-02_JPRB,1.3215E+00_JPRB/)
583 KAO( :, 3, 8, 3) = (/&
584 & 2.5680E-03_JPRB,1.5338E-02_JPRB,1.9338E-02_JPRB,2.3296E-02_JPRB,2.7614E-02_JPRB,3.1925E-02_JPRB,&
585
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.5879E-02_JPRB,3.8941E-02_JPRB,1.2707E+00_JPRB/)
586 KAO( :, 4, 8, 3) = (/&
587 & 2.4392E-03_JPRB,1.5108E-02_JPRB,1.9717E-02_JPRB,2.4602E-02_JPRB,2.9735E-02_JPRB,3.4708E-02_JPRB,&
588
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.9299E-02_JPRB,4.2946E-02_JPRB,1.2299E+00_JPRB/)
589 KAO( :, 5, 8, 3) = (/&
590 & 2.3263E-03_JPRB,1.4926E-02_JPRB,2.0145E-02_JPRB,2.5818E-02_JPRB,3.1599E-02_JPRB,3.7151E-02_JPRB,&
591
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.2259E-02_JPRB,4.6364E-02_JPRB,1.1947E+00_JPRB/)
592 KAO( :, 1, 9, 3) = (/&
593 & 2.4934E-03_JPRB,1.3429E-02_JPRB,1.5676E-02_JPRB,1.6996E-02_JPRB,1.8299E-02_JPRB,1.9797E-02_JPRB,&
594
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1368E-02_JPRB,2.2488E-02_JPRB,1.2194E+00_JPRB/)
595 KAO( :, 2, 9, 3) = (/&
596 & 2.3370E-03_JPRB,1.3137E-02_JPRB,1.5812E-02_JPRB,1.7884E-02_JPRB,2.0163E-02_JPRB,2.2642E-02_JPRB,&
597
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5001E-02_JPRB,2.6734E-02_JPRB,1.1601E+00_JPRB/)
598 KAO( :, 3, 9, 3) = (/&
599 & 2.2009E-03_JPRB,1.2890E-02_JPRB,1.6023E-02_JPRB,1.8937E-02_JPRB,2.2155E-02_JPRB,2.5427E-02_JPRB,&
600
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8446E-02_JPRB,3.0735E-02_JPRB,1.1135E+00_JPRB/)
601 KAO( :, 4, 9, 3) = (/&
602 & 2.0815E-03_JPRB,1.2690E-02_JPRB,1.6303E-02_JPRB,2.0037E-02_JPRB,2.4017E-02_JPRB,2.7921E-02_JPRB,&
603
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1498E-02_JPRB,3.4306E-02_JPRB,1.0751E+00_JPRB/)
604 KAO( :, 5, 9, 3) = (/&
605 & 1.9758E-03_JPRB,1.2522E-02_JPRB,1.6643E-02_JPRB,2.1089E-02_JPRB,2.5672E-02_JPRB,3.0080E-02_JPRB,&
606
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.4128E-02_JPRB,3.7357E-02_JPRB,1.0412E+00_JPRB/)
607 KAO( :, 1,10, 3) = (/&
608 & 2.1444E-03_JPRB,1.1292E-02_JPRB,1.2992E-02_JPRB,1.3863E-02_JPRB,1.4632E-02_JPRB,1.5527E-02_JPRB,&
609
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6522E-02_JPRB,1.7216E-02_JPRB,1.0697E+00_JPRB/)
610 KAO( :, 2,10, 3) = (/&
611 & 2.0062E-03_JPRB,1.1025E-02_JPRB,1.3086E-02_JPRB,1.4548E-02_JPRB,1.6122E-02_JPRB,1.7867E-02_JPRB,&
612
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9575E-02_JPRB,2.0804E-02_JPRB,1.0168E+00_JPRB/)
613 KAO( :, 3,10, 3) = (/&
614 & 1.8858E-03_JPRB,1.0796E-02_JPRB,1.3240E-02_JPRB,1.5386E-02_JPRB,1.7762E-02_JPRB,2.0237E-02_JPRB,&
615
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2522E-02_JPRB,2.4230E-02_JPRB,9.7508E-01_JPRB/)
616 KAO( :, 4,10, 3) = (/&
617 & 1.7806E-03_JPRB,1.0614E-02_JPRB,1.3451E-02_JPRB,1.6297E-02_JPRB,1.9372E-02_JPRB,2.2410E-02_JPRB,&
618
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5204E-02_JPRB,2.7358E-02_JPRB,9.3955E-01_JPRB/)
619 KAO( :, 5,10, 3) = (/&
620 & 1.6877E-03_JPRB,1.0465E-02_JPRB,1.3712E-02_JPRB,1.7180E-02_JPRB,2.0798E-02_JPRB,2.4286E-02_JPRB,&
621
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.7488E-02_JPRB,3.0016E-02_JPRB,9.0793E-01_JPRB/)
622 KAO( :, 1,11, 3) = (/&
623 & 1.7833E-03_JPRB,9.3555E-03_JPRB,1.0771E-02_JPRB,1.1508E-02_JPRB,1.2189E-02_JPRB,1.2975E-02_JPRB,&
624
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3836E-02_JPRB,1.4432E-02_JPRB,9.1283E-01_JPRB/)
625 KAO( :, 2,11, 3) = (/&
626 & 1.6687E-03_JPRB,9.1314E-03_JPRB,1.0850E-02_JPRB,1.2098E-02_JPRB,1.3448E-02_JPRB,1.4933E-02_JPRB,&
627
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6373E-02_JPRB,1.7407E-02_JPRB,8.7061E-01_JPRB/)
628 KAO( :, 3,11, 3) = (/&
629 & 1.5693E-03_JPRB,8.9406E-03_JPRB,1.0990E-02_JPRB,1.2807E-02_JPRB,1.4816E-02_JPRB,1.6890E-02_JPRB,&
630
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8802E-02_JPRB,2.0227E-02_JPRB,8.3514E-01_JPRB/)
631 KAO( :, 4,11, 3) = (/&
632 & 1.4823E-03_JPRB,8.7931E-03_JPRB,1.1163E-02_JPRB,1.3552E-02_JPRB,1.6124E-02_JPRB,1.8657E-02_JPRB,&
633
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0985E-02_JPRB,2.2777E-02_JPRB,8.0415E-01_JPRB/)
634 KAO( :, 5,11, 3) = (/&
635 & 1.4048E-03_JPRB,8.6627E-03_JPRB,1.1377E-02_JPRB,1.4262E-02_JPRB,1.7270E-02_JPRB,2.0165E-02_JPRB,&
636
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2814E-02_JPRB,2.4901E-02_JPRB,7.7610E-01_JPRB/)
637 KAO( :, 1,12, 3) = (/&
638 & 1.4795E-03_JPRB,7.7320E-03_JPRB,8.9123E-03_JPRB,9.5371E-03_JPRB,1.0129E-02_JPRB,1.0809E-02_JPRB,&
639
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1546E-02_JPRB,1.2053E-02_JPRB,7.8854E-01_JPRB/)
640 KAO( :, 2,12, 3) = (/&
641 & 1.3850E-03_JPRB,7.5464E-03_JPRB,8.9834E-03_JPRB,1.0043E-02_JPRB,1.1188E-02_JPRB,1.2441E-02_JPRB,&
642
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
10 & 1.3647E-02_JPRB,1.4511E-02_JPRB,7.5243E-01_JPRB/)
643
644
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB15: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_KGB15:PART3',0,ZHOOK_HANDLE)
652
653
654 KAO( :, 3,12, 3) = (/&
655 & 1.3027E-03_JPRB,7.3902E-03_JPRB,9.1016E-03_JPRB,1.0632E-02_JPRB,1.2313E-02_JPRB,1.4042E-02_JPRB,&
656
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5632E-02_JPRB,1.6816E-02_JPRB,7.2138E-01_JPRB/)
657 KAO( :, 4,12, 3) = (/&
658 & 1.2303E-03_JPRB,7.2649E-03_JPRB,9.2431E-03_JPRB,1.1235E-02_JPRB,1.3368E-02_JPRB,1.5466E-02_JPRB,&
659
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7392E-02_JPRB,1.8872E-02_JPRB,6.9377E-01_JPRB/)
660 KAO( :, 5,12, 3) = (/&
661 & 1.1660E-03_JPRB,7.1513E-03_JPRB,9.4159E-03_JPRB,1.1801E-02_JPRB,1.4281E-02_JPRB,1.6671E-02_JPRB,&
662
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8852E-02_JPRB,2.0566E-02_JPRB,6.6914E-01_JPRB/)
663 KAO( :, 1,13, 3) = (/&
664 & 1.2249E-03_JPRB,6.3782E-03_JPRB,7.3622E-03_JPRB,7.8943E-03_JPRB,8.4021E-03_JPRB,8.9820E-03_JPRB,&
665
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.6036E-03_JPRB,1.0029E-02_JPRB,7.0365E-01_JPRB/)
666 KAO( :, 2,13, 3) = (/&
667 & 1.1466E-03_JPRB,6.2255E-03_JPRB,7.4265E-03_JPRB,8.3184E-03_JPRB,9.2818E-03_JPRB,1.0328E-02_JPRB,&
668
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1327E-02_JPRB,1.2042E-02_JPRB,6.7076E-01_JPRB/)
669 KAO( :, 3,13, 3) = (/&
670 & 1.0784E-03_JPRB,6.0974E-03_JPRB,7.5218E-03_JPRB,8.8021E-03_JPRB,1.0201E-02_JPRB,1.1630E-02_JPRB,&
671
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2945E-02_JPRB,1.3920E-02_JPRB,6.4220E-01_JPRB/)
672 KAO( :, 4,13, 3) = (/&
673 & 1.0185E-03_JPRB,5.9888E-03_JPRB,7.6372E-03_JPRB,9.2865E-03_JPRB,1.1046E-02_JPRB,1.2772E-02_JPRB,&
674
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4357E-02_JPRB,1.5571E-02_JPRB,6.1693E-01_JPRB/)
675 KAO( :, 5,13, 3) = (/&
676 & 9.6529E-04_JPRB,5.8902E-03_JPRB,7.7765E-03_JPRB,9.7442E-03_JPRB,1.1781E-02_JPRB,1.3744E-02_JPRB,&
677
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5534E-02_JPRB,1.6937E-02_JPRB,5.9454E-01_JPRB/)
678 KAO( :, 1, 1, 4) = (/&
679 & 1.8021E-02_JPRB,6.5790E-02_JPRB,9.7338E-02_JPRB,1.3126E-01_JPRB,1.6473E-01_JPRB,1.9719E-01_JPRB,&
680
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2788E-01_JPRB,2.5486E-01_JPRB,6.7734E+00_JPRB/)
681 KAO( :, 2, 1, 4) = (/&
682 & 1.7655E-02_JPRB,6.4900E-02_JPRB,9.8783E-02_JPRB,1.3458E-01_JPRB,1.6983E-01_JPRB,2.0389E-01_JPRB,&
683
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3625E-01_JPRB,2.6464E-01_JPRB,6.6229E+00_JPRB/)
684 KAO( :, 3, 1, 4) = (/&
685 & 1.7413E-02_JPRB,6.4418E-02_JPRB,1.0054E-01_JPRB,1.3796E-01_JPRB,1.7471E-01_JPRB,2.1025E-01_JPRB,&
686
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.4393E-01_JPRB,2.7353E-01_JPRB,6.4891E+00_JPRB/)
687 KAO( :, 4, 1, 4) = (/&
688 & 1.7262E-02_JPRB,6.4165E-02_JPRB,1.0227E-01_JPRB,1.4108E-01_JPRB,1.7917E-01_JPRB,2.1605E-01_JPRB,&
689
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5091E-01_JPRB,2.8164E-01_JPRB,6.3763E+00_JPRB/)
690 KAO( :, 5, 1, 4) = (/&
691 & 1.7196E-02_JPRB,6.4095E-02_JPRB,1.0392E-01_JPRB,1.4402E-01_JPRB,1.8328E-01_JPRB,2.2127E-01_JPRB,&
692
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5722E-01_JPRB,2.8879E-01_JPRB,6.2911E+00_JPRB/)
693 KAO( :, 1, 2, 4) = (/&
694 & 1.4529E-02_JPRB,5.6872E-02_JPRB,8.5086E-02_JPRB,1.1534E-01_JPRB,1.4512E-01_JPRB,1.7394E-01_JPRB,&
695
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0123E-01_JPRB,2.2499E-01_JPRB,5.6977E+00_JPRB/)
696 KAO( :, 2, 2, 4) = (/&
697 & 1.4123E-02_JPRB,5.6310E-02_JPRB,8.6845E-02_JPRB,1.1891E-01_JPRB,1.5031E-01_JPRB,1.8072E-01_JPRB,&
698
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0938E-01_JPRB,2.3448E-01_JPRB,5.5431E+00_JPRB/)
699 KAO( :, 3, 2, 4) = (/&
700 & 1.3817E-02_JPRB,5.6056E-02_JPRB,8.8719E-02_JPRB,1.2233E-01_JPRB,1.5523E-01_JPRB,1.8697E-01_JPRB,&
701
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1702E-01_JPRB,2.4322E-01_JPRB,5.4063E+00_JPRB/)
702 KAO( :, 4, 2, 4) = (/&
703 & 1.3599E-02_JPRB,5.5957E-02_JPRB,9.0467E-02_JPRB,1.2549E-01_JPRB,1.5975E-01_JPRB,1.9279E-01_JPRB,&
704
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2406E-01_JPRB,2.5131E-01_JPRB,5.2860E+00_JPRB/)
705 KAO( :, 5, 2, 4) = (/&
706 & 1.3460E-02_JPRB,5.5961E-02_JPRB,9.2180E-02_JPRB,1.2851E-01_JPRB,1.6399E-01_JPRB,1.9829E-01_JPRB,&
707
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3058E-01_JPRB,2.5880E-01_JPRB,5.1861E+00_JPRB/)
708 KAO( :, 1, 3, 4) = (/&
709 & 1.1705E-02_JPRB,4.8966E-02_JPRB,7.3479E-02_JPRB,9.9794E-02_JPRB,1.2575E-01_JPRB,1.5078E-01_JPRB,&
710
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7441E-01_JPRB,1.9480E-01_JPRB,4.7593E+00_JPRB/)
711 KAO( :, 2, 3, 4) = (/&
712 & 1.1254E-02_JPRB,4.8604E-02_JPRB,7.5346E-02_JPRB,1.0340E-01_JPRB,1.3083E-01_JPRB,1.5727E-01_JPRB,&
713
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8221E-01_JPRB,2.0377E-01_JPRB,4.6048E+00_JPRB/)
714 KAO( :, 3, 3, 4) = (/&
715 & 1.0873E-02_JPRB,4.8463E-02_JPRB,7.7240E-02_JPRB,1.0681E-01_JPRB,1.3563E-01_JPRB,1.6344E-01_JPRB,&
716
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8954E-01_JPRB,2.1219E-01_JPRB,4.4612E+00_JPRB/)
717 KAO( :, 4, 3, 4) = (/&
718 & 1.0555E-02_JPRB,4.8429E-02_JPRB,7.9010E-02_JPRB,1.0996E-01_JPRB,1.4012E-01_JPRB,1.6913E-01_JPRB,&
719
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9654E-01_JPRB,2.2020E-01_JPRB,4.3302E+00_JPRB/)
720 KAO( :, 5, 3, 4) = (/&
721 & 1.0298E-02_JPRB,4.8470E-02_JPRB,8.0657E-02_JPRB,1.1290E-01_JPRB,1.4434E-01_JPRB,1.7459E-01_JPRB,&
722
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0310E-01_JPRB,2.2776E-01_JPRB,4.2150E+00_JPRB/)
723 KAO( :, 1, 4, 4) = (/&
724 & 9.6427E-03_JPRB,4.2071E-02_JPRB,6.2842E-02_JPRB,8.5269E-02_JPRB,1.0739E-01_JPRB,1.2873E-01_JPRB,&
725
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4874E-01_JPRB,1.6592E-01_JPRB,4.0400E+00_JPRB/)
726 KAO( :, 2, 4, 4) = (/&
727 & 9.2011E-03_JPRB,4.1815E-02_JPRB,6.4680E-02_JPRB,8.8757E-02_JPRB,1.1230E-01_JPRB,1.3495E-01_JPRB,&
728
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5622E-01_JPRB,1.7447E-01_JPRB,3.8793E+00_JPRB/)
729 KAO( :, 3, 4, 4) = (/&
730 & 8.8205E-03_JPRB,4.1737E-02_JPRB,6.6556E-02_JPRB,9.2068E-02_JPRB,1.1693E-01_JPRB,1.4084E-01_JPRB,&
731
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6327E-01_JPRB,1.8245E-01_JPRB,3.7400E+00_JPRB/)
732 KAO( :, 4, 4, 4) = (/&
733 & 8.4836E-03_JPRB,4.1724E-02_JPRB,6.8311E-02_JPRB,9.5165E-02_JPRB,1.2127E-01_JPRB,1.4641E-01_JPRB,&
734
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6997E-01_JPRB,1.9023E-01_JPRB,3.6160E+00_JPRB/)
735 KAO( :, 5, 4, 4) = (/&
736 & 8.1913E-03_JPRB,4.1779E-02_JPRB,6.9919E-02_JPRB,9.8052E-02_JPRB,1.2544E-01_JPRB,1.5176E-01_JPRB,&
737
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7649E-01_JPRB,1.9765E-01_JPRB,3.5010E+00_JPRB/)
738 KAO( :, 1, 5, 4) = (/&
739 & 8.1345E-03_JPRB,3.6015E-02_JPRB,5.3335E-02_JPRB,7.2138E-02_JPRB,9.0702E-02_JPRB,1.0859E-01_JPRB,&
740
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2537E-01_JPRB,1.3961E-01_JPRB,3.4725E+00_JPRB/)
741 KAO( :, 2, 5, 4) = (/&
742 & 7.7094E-03_JPRB,3.5776E-02_JPRB,5.4998E-02_JPRB,7.5337E-02_JPRB,9.5240E-02_JPRB,1.1439E-01_JPRB,&
743
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3227E-01_JPRB,1.4749E-01_JPRB,3.3178E+00_JPRB/)
744 KAO( :, 3, 5, 4) = (/&
745 & 7.3411E-03_JPRB,3.5699E-02_JPRB,5.6747E-02_JPRB,7.8425E-02_JPRB,9.9566E-02_JPRB,1.1985E-01_JPRB,&
746
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3882E-01_JPRB,1.5490E-01_JPRB,3.1804E+00_JPRB/)
747 KAO( :, 4, 5, 4) = (/&
748 & 7.0201E-03_JPRB,3.5715E-02_JPRB,5.8432E-02_JPRB,8.1402E-02_JPRB,1.0370E-01_JPRB,1.2511E-01_JPRB,&
749
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4516E-01_JPRB,1.6215E-01_JPRB,3.0592E+00_JPRB/)
750 KAO( :, 5, 5, 4) = (/&
751 & 6.7383E-03_JPRB,3.5791E-02_JPRB,5.9960E-02_JPRB,8.4146E-02_JPRB,1.0763E-01_JPRB,1.3019E-01_JPRB,&
752
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5126E-01_JPRB,1.6919E-01_JPRB,2.9545E+00_JPRB/)
753 KAO( :, 1, 6, 4) = (/&
754 & 6.9574E-03_JPRB,3.0705E-02_JPRB,4.4873E-02_JPRB,6.0368E-02_JPRB,7.5716E-02_JPRB,9.0457E-02_JPRB,&
755
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0422E-01_JPRB,1.1586E-01_JPRB,3.0030E+00_JPRB/)
756 KAO( :, 2, 6, 4) = (/&
757 & 6.5599E-03_JPRB,3.0473E-02_JPRB,4.6327E-02_JPRB,6.3240E-02_JPRB,7.9791E-02_JPRB,9.5693E-02_JPRB,&
758
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1056E-01_JPRB,1.2311E-01_JPRB,2.8591E+00_JPRB/)
759 KAO( :, 3, 6, 4) = (/&
760 & 6.2154E-03_JPRB,3.0355E-02_JPRB,4.7875E-02_JPRB,6.6021E-02_JPRB,8.3704E-02_JPRB,1.0067E-01_JPRB,&
761
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1647E-01_JPRB,1.2979E-01_JPRB,2.7316E+00_JPRB/)
762 KAO( :, 4, 6, 4) = (/&
763 & 5.9146E-03_JPRB,3.0358E-02_JPRB,4.9433E-02_JPRB,6.8766E-02_JPRB,8.7543E-02_JPRB,1.0553E-01_JPRB,&
764
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2232E-01_JPRB,1.3650E-01_JPRB,2.6198E+00_JPRB/)
765 KAO( :, 5, 6, 4) = (/&
766 & 5.6484E-03_JPRB,3.0432E-02_JPRB,5.0868E-02_JPRB,7.1327E-02_JPRB,9.1169E-02_JPRB,1.1020E-01_JPRB,&
767
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2797E-01_JPRB,1.4294E-01_JPRB,2.5219E+00_JPRB/)
768 KAO( :, 1, 7, 4) = (/&
769 & 5.9858E-03_JPRB,2.6066E-02_JPRB,3.7491E-02_JPRB,5.0091E-02_JPRB,6.2632E-02_JPRB,7.4695E-02_JPRB,&
770
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.5899E-02_JPRB,9.5307E-02_JPRB,2.6265E+00_JPRB/)
771 KAO( :, 2, 7, 4) = (/&
772 & 5.6201E-03_JPRB,2.5818E-02_JPRB,3.8713E-02_JPRB,5.2603E-02_JPRB,6.6261E-02_JPRB,7.9344E-02_JPRB,&
773
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.1528E-02_JPRB,1.0179E-01_JPRB,2.4915E+00_JPRB/)
774 KAO( :, 3, 7, 4) = (/&
775 & 5.3028E-03_JPRB,2.5679E-02_JPRB,4.0067E-02_JPRB,5.5077E-02_JPRB,6.9715E-02_JPRB,8.3744E-02_JPRB,&
776
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.6820E-02_JPRB,1.0780E-01_JPRB,2.3737E+00_JPRB/)
777 KAO( :, 4, 7, 4) = (/&
778 & 5.0250E-03_JPRB,2.5664E-02_JPRB,4.1469E-02_JPRB,5.7563E-02_JPRB,7.3190E-02_JPRB,8.8174E-02_JPRB,&
779
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0210E-01_JPRB,1.1380E-01_JPRB,2.2719E+00_JPRB/)
780 KAO( :, 5, 7, 4) = (/&
781 & 4.7808E-03_JPRB,2.5724E-02_JPRB,4.2789E-02_JPRB,5.9902E-02_JPRB,7.6504E-02_JPRB,9.2382E-02_JPRB,&
782
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0715E-01_JPRB,1.1955E-01_JPRB,2.1838E+00_JPRB/)
783 KAO( :, 1, 8, 4) = (/&
784 & 5.1596E-03_JPRB,2.2052E-02_JPRB,3.1199E-02_JPRB,4.1353E-02_JPRB,5.1554E-02_JPRB,6.1370E-02_JPRB,&
785
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.0499E-02_JPRB,7.8103E-02_JPRB,2.3369E+00_JPRB/)
786 KAO( :, 2, 8, 4) = (/&
787 & 4.8272E-03_JPRB,2.1774E-02_JPRB,3.2180E-02_JPRB,4.3545E-02_JPRB,5.4719E-02_JPRB,6.5446E-02_JPRB,&
788
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.5433E-02_JPRB,8.3810E-02_JPRB,2.2096E+00_JPRB/)
789 KAO( :, 3, 8, 4) = (/&
790 & 4.5379E-03_JPRB,2.1626E-02_JPRB,3.3329E-02_JPRB,4.5683E-02_JPRB,5.7755E-02_JPRB,6.9313E-02_JPRB,&
791
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.0057E-02_JPRB,8.9096E-02_JPRB,2.0999E+00_JPRB/)
792 KAO( :, 4, 8, 4) = (/&
793 & 4.2850E-03_JPRB,2.1592E-02_JPRB,3.4574E-02_JPRB,4.7884E-02_JPRB,6.0825E-02_JPRB,7.3203E-02_JPRB,&
794
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.4719E-02_JPRB,9.4365E-02_JPRB,2.0061E+00_JPRB/)
795 KAO( :, 5, 8, 4) = (/&
796 & 4.0623E-03_JPRB,2.1641E-02_JPRB,3.5762E-02_JPRB,4.9985E-02_JPRB,6.3751E-02_JPRB,7.6922E-02_JPRB,&
797
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.9154E-02_JPRB,9.9364E-02_JPRB,1.9265E+00_JPRB/)
798 KAO( :, 1, 9, 4) = (/&
799 & 4.4531E-03_JPRB,1.8626E-02_JPRB,2.5958E-02_JPRB,3.4051E-02_JPRB,4.2290E-02_JPRB,5.0232E-02_JPRB,&
800
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.7580E-02_JPRB,6.3645E-02_JPRB,2.0688E+00_JPRB/)
801 KAO( :, 2, 9, 4) = (/&
802 & 4.1555E-03_JPRB,1.8330E-02_JPRB,2.6712E-02_JPRB,3.5938E-02_JPRB,4.5066E-02_JPRB,5.3798E-02_JPRB,&
803
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.1907E-02_JPRB,6.8669E-02_JPRB,1.9511E+00_JPRB/)
804 KAO( :, 3, 9, 4) = (/&
805 & 3.8980E-03_JPRB,1.8171E-02_JPRB,2.7659E-02_JPRB,3.7795E-02_JPRB,4.7683E-02_JPRB,5.7159E-02_JPRB,&
806
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.5983E-02_JPRB,7.3362E-02_JPRB,1.8504E+00_JPRB/)
807 KAO( :, 4, 9, 4) = (/&
808 & 3.6726E-03_JPRB,1.8123E-02_JPRB,2.8719E-02_JPRB,3.9685E-02_JPRB,5.0340E-02_JPRB,6.0531E-02_JPRB,&
809
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.9978E-02_JPRB,7.7857E-02_JPRB,1.7654E+00_JPRB/)
810 KAO( :, 5, 9, 4) = (/&
811 & 3.4732E-03_JPRB,1.8155E-02_JPRB,2.9764E-02_JPRB,4.1511E-02_JPRB,5.2898E-02_JPRB,6.3750E-02_JPRB,&
812
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.3823E-02_JPRB,8.2208E-02_JPRB,1.6947E+00_JPRB/)
813 KAO( :, 1,10, 4) = (/&
814 & 3.8264E-03_JPRB,1.5718E-02_JPRB,2.1595E-02_JPRB,2.8016E-02_JPRB,3.4614E-02_JPRB,4.0975E-02_JPRB,&
815
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.6868E-02_JPRB,5.1662E-02_JPRB,1.8197E+00_JPRB/)
816 KAO( :, 2,10, 4) = (/&
817 & 3.5642E-03_JPRB,1.5429E-02_JPRB,2.2178E-02_JPRB,2.9617E-02_JPRB,3.7012E-02_JPRB,4.4107E-02_JPRB,&
818
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.0673E-02_JPRB,5.6104E-02_JPRB,1.7127E+00_JPRB/)
819 KAO( :, 3,10, 4) = (/&
820 & 3.3388E-03_JPRB,1.5262E-02_JPRB,2.2939E-02_JPRB,3.1209E-02_JPRB,3.9306E-02_JPRB,4.7049E-02_JPRB,&
821
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.4217E-02_JPRB,6.0186E-02_JPRB,1.6230E+00_JPRB/)
822 KAO( :, 4,10, 4) = (/&
823 & 3.1419E-03_JPRB,1.5205E-02_JPRB,2.3835E-02_JPRB,3.2828E-02_JPRB,4.1571E-02_JPRB,4.9911E-02_JPRB,&
824
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.7637E-02_JPRB,6.4044E-02_JPRB,1.5488E+00_JPRB/)
825 KAO( :, 5,10, 4) = (/&
826 & 2.9677E-03_JPRB,1.5219E-02_JPRB,2.4740E-02_JPRB,3.4412E-02_JPRB,4.3767E-02_JPRB,5.2705E-02_JPRB,&
827
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.0972E-02_JPRB,6.7792E-02_JPRB,1.4876E+00_JPRB/)
828 KAO( :, 1,11, 4) = (/&
829 & 3.1779E-03_JPRB,1.3095E-02_JPRB,1.8055E-02_JPRB,2.3506E-02_JPRB,2.9061E-02_JPRB,3.4415E-02_JPRB,&
830
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.9369E-02_JPRB,4.3393E-02_JPRB,1.5476E+00_JPRB/)
831 KAO( :, 2,11, 4) = (/&
832 & 2.9632E-03_JPRB,1.2861E-02_JPRB,1.8568E-02_JPRB,2.4842E-02_JPRB,3.1070E-02_JPRB,3.7036E-02_JPRB,&
833
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.2545E-02_JPRB,4.7085E-02_JPRB,1.4599E+00_JPRB/)
834 KAO( :, 3,11, 4) = (/&
835 & 2.7773E-03_JPRB,1.2736E-02_JPRB,1.9231E-02_JPRB,2.6199E-02_JPRB,3.3009E-02_JPRB,3.9506E-02_JPRB,&
836
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.5515E-02_JPRB,5.0494E-02_JPRB,1.3882E+00_JPRB/)
837 KAO( :, 4,11, 4) = (/&
838 & 2.6144E-03_JPRB,1.2699E-02_JPRB,1.9998E-02_JPRB,2.7568E-02_JPRB,3.4911E-02_JPRB,4.1912E-02_JPRB,&
839
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.8384E-02_JPRB,5.3719E-02_JPRB,1.3291E+00_JPRB/)
840 KAO( :, 5,11, 4) = (/&
841 & 2.4704E-03_JPRB,1.2732E-02_JPRB,2.0751E-02_JPRB,2.8878E-02_JPRB,3.6736E-02_JPRB,4.4233E-02_JPRB,&
842
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.1154E-02_JPRB,5.6829E-02_JPRB,1.2767E+00_JPRB/)
843 KAO( :, 1,12, 4) = (/&
844 & 2.6367E-03_JPRB,1.0870E-02_JPRB,1.5028E-02_JPRB,1.9613E-02_JPRB,2.4267E-02_JPRB,2.8743E-02_JPRB,&
845
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2886E-02_JPRB,3.6247E-02_JPRB,1.3323E+00_JPRB/)
846 KAO( :, 2,12, 4) = (/&
847 & 2.4596E-03_JPRB,1.0682E-02_JPRB,1.5472E-02_JPRB,2.0731E-02_JPRB,2.5941E-02_JPRB,3.0929E-02_JPRB,&
848
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.5529E-02_JPRB,3.9309E-02_JPRB,1.2608E+00_JPRB/)
849 KAO( :, 3,12, 4) = (/&
850 & 2.3058E-03_JPRB,1.0585E-02_JPRB,1.6043E-02_JPRB,2.1873E-02_JPRB,2.7564E-02_JPRB,3.2990E-02_JPRB,&
851
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.8001E-02_JPRB,4.2137E-02_JPRB,1.2024E+00_JPRB/)
852 KAO( :, 4,12, 4) = (/&
853 & 2.1711E-03_JPRB,1.0572E-02_JPRB,1.6696E-02_JPRB,2.3023E-02_JPRB,2.9157E-02_JPRB,3.5001E-02_JPRB,&
854
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.0396E-02_JPRB,4.4820E-02_JPRB,1.1510E+00_JPRB/)
855 KAO( :, 5,12, 4) = (/&
856 & 2.0522E-03_JPRB,1.0605E-02_JPRB,1.7302E-02_JPRB,2.4078E-02_JPRB,3.0631E-02_JPRB,3.6880E-02_JPRB,&
857
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.2638E-02_JPRB,4.7351E-02_JPRB,1.1041E+00_JPRB/)
858 KAO( :, 1,13, 4) = (/&
859 & 2.1839E-03_JPRB,8.9998E-03_JPRB,1.2472E-02_JPRB,1.6303E-02_JPRB,2.0181E-02_JPRB,2.3909E-02_JPRB,&
860
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.7356E-02_JPRB,3.0152E-02_JPRB,1.1877E+00_JPRB/)
861 KAO( :, 2,13, 4) = (/&
862 & 2.0376E-03_JPRB,8.8480E-03_JPRB,1.2851E-02_JPRB,1.7235E-02_JPRB,2.1572E-02_JPRB,2.5723E-02_JPRB,&
863
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9547E-02_JPRB,3.2688E-02_JPRB,1.1266E+00_JPRB/)
864 KAO( :, 3,13, 4) = (/&
865 & 1.9106E-03_JPRB,8.7808E-03_JPRB,1.3344E-02_JPRB,1.8195E-02_JPRB,2.2927E-02_JPRB,2.7435E-02_JPRB,&
866
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1599E-02_JPRB,3.5023E-02_JPRB,1.0740E+00_JPRB/)
867 KAO( :, 4,13, 4) = (/&
868 & 1.7994E-03_JPRB,8.7806E-03_JPRB,1.3884E-02_JPRB,1.9140E-02_JPRB,2.4232E-02_JPRB,2.9085E-02_JPRB,&
869
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3560E-02_JPRB,3.7215E-02_JPRB,1.0271E+00_JPRB/)
870 KAO( :, 5,13, 4) = (/&
871 & 1.7009E-03_JPRB,8.8054E-03_JPRB,1.4366E-02_JPRB,1.9979E-02_JPRB,2.5409E-02_JPRB,3.0588E-02_JPRB,&
872
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.5352E-02_JPRB,3.9242E-02_JPRB,9.8352E-01_JPRB/)
873 KAO( :, 1, 1, 5) = (/&
874 & 2.7821E-02_JPRB,9.4758E-02_JPRB,1.5999E-01_JPRB,2.2454E-01_JPRB,2.8692E-01_JPRB,3.4665E-01_JPRB,&
875
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.0214E-01_JPRB,4.4847E-01_JPRB,9.2144E+00_JPRB/)
876 KAO( :, 2, 1, 5) = (/&
877 & 2.6913E-02_JPRB,9.4630E-02_JPRB,1.6244E-01_JPRB,2.2902E-01_JPRB,2.9341E-01_JPRB,3.5518E-01_JPRB,&
878
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.1260E-01_JPRB,4.6112E-01_JPRB,8.9389E+00_JPRB/)
879 KAO( :, 3, 1, 5) = (/&
880 & 2.6162E-02_JPRB,9.4753E-02_JPRB,1.6454E-01_JPRB,2.3287E-01_JPRB,2.9898E-01_JPRB,3.6235E-01_JPRB,&
881
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.2172E-01_JPRB,4.7189E-01_JPRB,8.6829E+00_JPRB/)
882 KAO( :, 4, 1, 5) = (/&
883 & 2.5554E-02_JPRB,9.5076E-02_JPRB,1.6645E-01_JPRB,2.3629E-01_JPRB,3.0381E-01_JPRB,3.6863E-01_JPRB,&
884
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.2942E-01_JPRB,4.8118E-01_JPRB,8.4692E+00_JPRB/)
885 KAO( :, 5, 1, 5) = (/&
886 & 2.5132E-02_JPRB,9.5584E-02_JPRB,1.6836E-01_JPRB,2.3931E-01_JPRB,3.0801E-01_JPRB,3.7403E-01_JPRB,&
887
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.3587E-01_JPRB,4.8876E-01_JPRB,8.2899E+00_JPRB/)
888 KAO( :, 1, 2, 5) = (/&
889 & 2.2786E-02_JPRB,8.2873E-02_JPRB,1.4193E-01_JPRB,2.0025E-01_JPRB,2.5674E-01_JPRB,3.1069E-01_JPRB,&
890
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.6090E-01_JPRB,4.0281E-01_JPRB,7.8467E+00_JPRB/)
891 KAO( :, 2, 2, 5) = (/&
892 & 2.1926E-02_JPRB,8.2844E-02_JPRB,1.4423E-01_JPRB,2.0445E-01_JPRB,2.6273E-01_JPRB,3.1850E-01_JPRB,&
893
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.7058E-01_JPRB,4.1426E-01_JPRB,7.5685E+00_JPRB/)
894 KAO( :, 3, 2, 5) = (/&
895 & 2.1216E-02_JPRB,8.3137E-02_JPRB,1.4626E-01_JPRB,2.0800E-01_JPRB,2.6778E-01_JPRB,3.2530E-01_JPRB,&
896
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.7887E-01_JPRB,4.2447E-01_JPRB,7.3113E+00_JPRB/)
897 KAO( :, 4, 2, 5) = (/&
898 & 2.0609E-02_JPRB,8.3648E-02_JPRB,1.4825E-01_JPRB,2.1130E-01_JPRB,2.7244E-01_JPRB,3.3120E-01_JPRB,&
899
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.8633E-01_JPRB,4.3319E-01_JPRB,7.0868E+00_JPRB/)
900 KAO( :, 5, 2, 5) = (/&
901 & 2.0124E-02_JPRB,8.4283E-02_JPRB,1.5023E-01_JPRB,2.1439E-01_JPRB,2.7658E-01_JPRB,3.3624E-01_JPRB,&
902
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.9227E-01_JPRB,4.4011E-01_JPRB,6.8977E+00_JPRB/)
903 KAO( :, 1, 3, 5) = (/&
904 & 1.8617E-02_JPRB,7.1627E-02_JPRB,1.2381E-01_JPRB,1.7543E-01_JPRB,2.2536E-01_JPRB,2.7317E-01_JPRB,&
905
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1745E-01_JPRB,3.5456E-01_JPRB,6.6821E+00_JPRB/)
906 KAO( :, 2, 3, 5) = (/&
907 & 1.7803E-02_JPRB,7.1692E-02_JPRB,1.2605E-01_JPRB,1.7941E-01_JPRB,2.3119E-01_JPRB,2.8073E-01_JPRB,&
908
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2696E-01_JPRB,3.6594E-01_JPRB,6.4024E+00_JPRB/)
909 KAO( :, 3, 3, 5) = (/&
910 & 1.7094E-02_JPRB,7.2019E-02_JPRB,1.2810E-01_JPRB,1.8301E-01_JPRB,2.3626E-01_JPRB,2.8733E-01_JPRB,&
911
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3525E-01_JPRB,3.7585E-01_JPRB,6.1586E+00_JPRB/)
912 KAO( :, 4, 3, 5) = (/&
913 & 1.6473E-02_JPRB,7.2618E-02_JPRB,1.3012E-01_JPRB,1.8637E-01_JPRB,2.4089E-01_JPRB,2.9345E-01_JPRB,&
914
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.4253E-01_JPRB,3.8463E-01_JPRB,5.9399E+00_JPRB/)
915 KAO( :, 5, 3, 5) = (/&
916 & 1.5950E-02_JPRB,7.3287E-02_JPRB,1.3213E-01_JPRB,1.8950E-01_JPRB,2.4513E-01_JPRB,2.9856E-01_JPRB,&
917
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.4870E-01_JPRB,3.9140E-01_JPRB,5.7373E+00_JPRB/)
918 KAO( :, 1, 4, 5) = (/&
919 & 1.5580E-02_JPRB,6.1790E-02_JPRB,1.0733E-01_JPRB,1.5233E-01_JPRB,1.9578E-01_JPRB,2.3731E-01_JPRB,&
920
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.7596E-01_JPRB,3.0816E-01_JPRB,5.7644E+00_JPRB/)
921 KAO( :, 2, 4, 5) = (/&
922 & 1.4777E-02_JPRB,6.1923E-02_JPRB,1.0950E-01_JPRB,1.5621E-01_JPRB,2.0143E-01_JPRB,2.4487E-01_JPRB,&
923
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8520E-01_JPRB,3.1931E-01_JPRB,5.4929E+00_JPRB/)
924 KAO( :, 3, 4, 5) = (/&
925 & 1.4083E-02_JPRB,6.2360E-02_JPRB,1.1165E-01_JPRB,1.5990E-01_JPRB,2.0675E-01_JPRB,2.5162E-01_JPRB,&
926
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9363E-01_JPRB,3.2936E-01_JPRB,5.2479E+00_JPRB/)
927 KAO( :, 4, 4, 5) = (/&
928 & 1.3489E-02_JPRB,6.3056E-02_JPRB,1.1379E-01_JPRB,1.6338E-01_JPRB,2.1152E-01_JPRB,2.5770E-01_JPRB,&
929
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.0103E-01_JPRB,3.3790E-01_JPRB,5.0295E+00_JPRB/)
930 KAO( :, 5, 4, 5) = (/&
931 & 1.2974E-02_JPRB,6.3786E-02_JPRB,1.1583E-01_JPRB,1.6662E-01_JPRB,2.1582E-01_JPRB,2.6318E-01_JPRB,&
932
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.0742E-01_JPRB,3.4538E-01_JPRB,4.8395E+00_JPRB/)
933 KAO( :, 1, 5, 5) = (/&
934 & 1.3213E-02_JPRB,5.3251E-02_JPRB,9.2575E-02_JPRB,1.3138E-01_JPRB,1.6890E-01_JPRB,2.0468E-01_JPRB,&
935
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3789E-01_JPRB,2.6563E-01_JPRB,4.9912E+00_JPRB/)
936 KAO( :, 2, 5, 5) = (/&
937 & 1.2469E-02_JPRB,5.3471E-02_JPRB,9.4761E-02_JPRB,1.3531E-01_JPRB,1.7451E-01_JPRB,2.1205E-01_JPRB,&
938
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.4715E-01_JPRB,2.7671E-01_JPRB,4.7367E+00_JPRB/)
939 KAO( :, 3, 5, 5) = (/&
940 & 1.1826E-02_JPRB,5.4006E-02_JPRB,9.6957E-02_JPRB,1.3905E-01_JPRB,1.7980E-01_JPRB,2.1900E-01_JPRB,&
941
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
10 & 2.5553E-01_JPRB,2.8664E-01_JPRB,4.5084E+00_JPRB/)
942
943
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB15: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_KGB15:PART4',0,ZHOOK_HANDLE)
951
952
953 KAO( :, 4, 5, 5) = (/&
954 & 1.1265E-02_JPRB,5.4777E-02_JPRB,9.9171E-02_JPRB,1.4252E-01_JPRB,1.8466E-01_JPRB,2.2509E-01_JPRB,&
955
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6296E-01_JPRB,2.9525E-01_JPRB,4.3062E+00_JPRB/)
956 KAO( :, 5, 5, 5) = (/&
957 & 1.0774E-02_JPRB,5.5536E-02_JPRB,1.0132E-01_JPRB,1.4589E-01_JPRB,1.8914E-01_JPRB,2.3064E-01_JPRB,&
958
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6960E-01_JPRB,3.0272E-01_JPRB,4.1237E+00_JPRB/)
959 KAO( :, 1, 6, 5) = (/&
960 & 1.1298E-02_JPRB,4.5718E-02_JPRB,7.9200E-02_JPRB,1.1232E-01_JPRB,1.4430E-01_JPRB,1.7486E-01_JPRB,&
961
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0309E-01_JPRB,2.2655E-01_JPRB,4.3329E+00_JPRB/)
962 KAO( :, 2, 6, 5) = (/&
963 & 1.0622E-02_JPRB,4.6005E-02_JPRB,8.1486E-02_JPRB,1.1629E-01_JPRB,1.5001E-01_JPRB,1.8222E-01_JPRB,&
964
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1218E-01_JPRB,2.3741E-01_JPRB,4.0960E+00_JPRB/)
965 KAO( :, 3, 6, 5) = (/&
966 & 1.0034E-02_JPRB,4.6615E-02_JPRB,8.3719E-02_JPRB,1.2009E-01_JPRB,1.5528E-01_JPRB,1.8897E-01_JPRB,&
967
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2052E-01_JPRB,2.4712E-01_JPRB,3.8879E+00_JPRB/)
968 KAO( :, 4, 6, 5) = (/&
969 & 9.5191E-03_JPRB,4.7402E-02_JPRB,8.5902E-02_JPRB,1.2353E-01_JPRB,1.5997E-01_JPRB,1.9501E-01_JPRB,&
970
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.2766E-01_JPRB,2.5531E-01_JPRB,3.7023E+00_JPRB/)
971 KAO( :, 5, 6, 5) = (/&
972 & 9.0694E-03_JPRB,4.8127E-02_JPRB,8.7970E-02_JPRB,1.2673E-01_JPRB,1.6428E-01_JPRB,2.0026E-01_JPRB,&
973
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3384E-01_JPRB,2.6225E-01_JPRB,3.5368E+00_JPRB/)
974 KAO( :, 1, 7, 5) = (/&
975 & 9.7003E-03_JPRB,3.9103E-02_JPRB,6.7303E-02_JPRB,9.5321E-02_JPRB,1.2233E-01_JPRB,1.4806E-01_JPRB,&
976
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7192E-01_JPRB,1.9156E-01_JPRB,3.7979E+00_JPRB/)
977 KAO( :, 2, 7, 5) = (/&
978 & 9.0880E-03_JPRB,3.9405E-02_JPRB,6.9590E-02_JPRB,9.9254E-02_JPRB,1.2789E-01_JPRB,1.5530E-01_JPRB,&
979
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8072E-01_JPRB,2.0187E-01_JPRB,3.5772E+00_JPRB/)
980 KAO( :, 3, 7, 5) = (/&
981 & 8.5547E-03_JPRB,3.9999E-02_JPRB,7.1749E-02_JPRB,1.0282E-01_JPRB,1.3290E-01_JPRB,1.6166E-01_JPRB,&
982
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8835E-01_JPRB,2.1077E-01_JPRB,3.3854E+00_JPRB/)
983 KAO( :, 4, 7, 5) = (/&
984 & 8.0885E-03_JPRB,4.0699E-02_JPRB,7.3711E-02_JPRB,1.0595E-01_JPRB,1.3715E-01_JPRB,1.6698E-01_JPRB,&
985
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9485E-01_JPRB,2.1815E-01_JPRB,3.2157E+00_JPRB/)
986 KAO( :, 5, 7, 5) = (/&
987 & 7.6793E-03_JPRB,4.1301E-02_JPRB,7.5502E-02_JPRB,1.0878E-01_JPRB,1.4090E-01_JPRB,1.7170E-01_JPRB,&
988
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0034E-01_JPRB,2.2441E-01_JPRB,3.0651E+00_JPRB/)
989 KAO( :, 1, 8, 5) = (/&
990 & 8.3356E-03_JPRB,3.3311E-02_JPRB,5.6870E-02_JPRB,8.0308E-02_JPRB,1.0295E-01_JPRB,1.2448E-01_JPRB,&
991
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4428E-01_JPRB,1.6086E-01_JPRB,3.3908E+00_JPRB/)
992 KAO( :, 2, 8, 5) = (/&
993 & 7.7853E-03_JPRB,3.3608E-02_JPRB,5.9028E-02_JPRB,8.4055E-02_JPRB,1.0819E-01_JPRB,1.3119E-01_JPRB,&
994
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5248E-01_JPRB,1.7004E-01_JPRB,3.1845E+00_JPRB/)
995 KAO( :, 3, 8, 5) = (/&
996 & 7.3065E-03_JPRB,3.4089E-02_JPRB,6.0968E-02_JPRB,8.7276E-02_JPRB,1.1264E-01_JPRB,1.3686E-01_JPRB,&
997
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5934E-01_JPRB,1.7794E-01_JPRB,3.0043E+00_JPRB/)
998 KAO( :, 4, 8, 5) = (/&
999 & 6.8879E-03_JPRB,3.4663E-02_JPRB,6.2677E-02_JPRB,8.9967E-02_JPRB,1.1635E-01_JPRB,1.4158E-01_JPRB,&
1000
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6491E-01_JPRB,1.8439E-01_JPRB,2.8456E+00_JPRB/)
1001 KAO( :, 5, 8, 5) = (/&
1002 & 6.5199E-03_JPRB,3.5157E-02_JPRB,6.4215E-02_JPRB,9.2448E-02_JPRB,1.1974E-01_JPRB,1.4577E-01_JPRB,&
1003
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7002E-01_JPRB,1.9020E-01_JPRB,2.7064E+00_JPRB/)
1004 KAO( :, 1, 9, 5) = (/&
1005 & 7.1670E-03_JPRB,2.8264E-02_JPRB,4.7722E-02_JPRB,6.7185E-02_JPRB,8.5943E-02_JPRB,1.0376E-01_JPRB,&
1006
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2019E-01_JPRB,1.3426E-01_JPRB,3.0087E+00_JPRB/)
1007 KAO( :, 2, 9, 5) = (/&
1008 & 6.6733E-03_JPRB,2.8499E-02_JPRB,4.9676E-02_JPRB,7.0525E-02_JPRB,9.0644E-02_JPRB,1.0983E-01_JPRB,&
1009
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2746E-01_JPRB,1.4211E-01_JPRB,2.8169E+00_JPRB/)
1010 KAO( :, 3, 9, 5) = (/&
1011 & 6.2464E-03_JPRB,2.8870E-02_JPRB,5.1362E-02_JPRB,7.3368E-02_JPRB,9.4608E-02_JPRB,1.1481E-01_JPRB,&
1012
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3345E-01_JPRB,1.4885E-01_JPRB,2.6506E+00_JPRB/)
1013 KAO( :, 4, 9, 5) = (/&
1014 & 5.8753E-03_JPRB,2.9313E-02_JPRB,5.2839E-02_JPRB,7.5761E-02_JPRB,9.7853E-02_JPRB,1.1892E-01_JPRB,&
1015
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3848E-01_JPRB,1.5462E-01_JPRB,2.5062E+00_JPRB/)
1016 KAO( :, 5, 9, 5) = (/&
1017 & 5.5500E-03_JPRB,2.9736E-02_JPRB,5.4197E-02_JPRB,7.7953E-02_JPRB,1.0085E-01_JPRB,1.2274E-01_JPRB,&
1018
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4297E-01_JPRB,1.5977E-01_JPRB,2.3796E+00_JPRB/)
1019 KAO( :, 1,10, 5) = (/&
1020 & 6.1244E-03_JPRB,2.3891E-02_JPRB,3.9969E-02_JPRB,5.6166E-02_JPRB,7.1759E-02_JPRB,8.6539E-02_JPRB,&
1021
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0009E-01_JPRB,1.1231E-01_JPRB,2.6506E+00_JPRB/)
1022 KAO( :, 2,10, 5) = (/&
1023 & 5.6882E-03_JPRB,2.4047E-02_JPRB,4.1658E-02_JPRB,5.9064E-02_JPRB,7.5818E-02_JPRB,9.1738E-02_JPRB,&
1024
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0641E-01_JPRB,1.1881E-01_JPRB,2.4752E+00_JPRB/)
1025 KAO( :, 3,10, 5) = (/&
1026 & 5.3134E-03_JPRB,2.4335E-02_JPRB,4.3112E-02_JPRB,6.1483E-02_JPRB,7.9176E-02_JPRB,9.6027E-02_JPRB,&
1027
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1160E-01_JPRB,1.2443E-01_JPRB,2.3246E+00_JPRB/)
1028 KAO( :, 4,10, 5) = (/&
1029 & 4.9890E-03_JPRB,2.4682E-02_JPRB,4.4370E-02_JPRB,6.3529E-02_JPRB,8.2017E-02_JPRB,9.9655E-02_JPRB,&
1030
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1591E-01_JPRB,1.2935E-01_JPRB,2.1952E+00_JPRB/)
1031 KAO( :, 5,10, 5) = (/&
1032 & 4.7070E-03_JPRB,2.5048E-02_JPRB,4.5565E-02_JPRB,6.5484E-02_JPRB,8.4705E-02_JPRB,1.0298E-01_JPRB,&
1033
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1992E-01_JPRB,1.3395E-01_JPRB,2.0819E+00_JPRB/)
1034 KAO( :, 1,11, 5) = (/&
1035 & 5.0497E-03_JPRB,2.0186E-02_JPRB,3.4078E-02_JPRB,4.7979E-02_JPRB,6.1354E-02_JPRB,7.4036E-02_JPRB,&
1036
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.5636E-02_JPRB,9.6183E-02_JPRB,2.2490E+00_JPRB/)
1037 KAO( :, 2,11, 5) = (/&
1038 & 4.6938E-03_JPRB,2.0334E-02_JPRB,3.5429E-02_JPRB,5.0287E-02_JPRB,6.4580E-02_JPRB,7.8155E-02_JPRB,&
1039
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.0667E-02_JPRB,1.0125E-01_JPRB,2.1005E+00_JPRB/)
1040 KAO( :, 3,11, 5) = (/&
1041 & 4.3895E-03_JPRB,2.0572E-02_JPRB,3.6577E-02_JPRB,5.2195E-02_JPRB,6.7235E-02_JPRB,8.1560E-02_JPRB,&
1042
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.4765E-02_JPRB,1.0567E-01_JPRB,1.9750E+00_JPRB/)
1043 KAO( :, 4,11, 5) = (/&
1044 & 4.1271E-03_JPRB,2.0876E-02_JPRB,3.7641E-02_JPRB,5.3937E-02_JPRB,6.9658E-02_JPRB,8.4612E-02_JPRB,&
1045
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.8403E-02_JPRB,1.0977E-01_JPRB,1.8669E+00_JPRB/)
1046 KAO( :, 5,11, 5) = (/&
1047 & 3.8988E-03_JPRB,2.1198E-02_JPRB,3.8649E-02_JPRB,5.5601E-02_JPRB,7.1927E-02_JPRB,8.7466E-02_JPRB,&
1048
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0184E-01_JPRB,1.1364E-01_JPRB,1.7763E+00_JPRB/)
1049 KAO( :, 1,12, 5) = (/&
1050 & 4.1728E-03_JPRB,1.6993E-02_JPRB,2.8852E-02_JPRB,4.0662E-02_JPRB,5.2011E-02_JPRB,6.2760E-02_JPRB,&
1051
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.2578E-02_JPRB,8.1564E-02_JPRB,1.9301E+00_JPRB/)
1052 KAO( :, 2,12, 5) = (/&
1053 & 3.8841E-03_JPRB,1.7115E-02_JPRB,2.9921E-02_JPRB,4.2476E-02_JPRB,5.4549E-02_JPRB,6.6006E-02_JPRB,&
1054
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.6561E-02_JPRB,8.5509E-02_JPRB,1.8048E+00_JPRB/)
1055 KAO( :, 3,12, 5) = (/&
1056 & 3.6372E-03_JPRB,1.7332E-02_JPRB,3.0872E-02_JPRB,4.4059E-02_JPRB,5.6757E-02_JPRB,6.8840E-02_JPRB,&
1057
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.9938E-02_JPRB,8.9112E-02_JPRB,1.6994E+00_JPRB/)
1058 KAO( :, 4,12, 5) = (/&
1059 & 3.4237E-03_JPRB,1.7595E-02_JPRB,3.1771E-02_JPRB,4.5538E-02_JPRB,5.8804E-02_JPRB,7.1398E-02_JPRB,&
1060
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.2985E-02_JPRB,9.2488E-02_JPRB,1.6111E+00_JPRB/)
1061 KAO( :, 5,12, 5) = (/&
1062 & 3.2373E-03_JPRB,1.7880E-02_JPRB,3.2595E-02_JPRB,4.6898E-02_JPRB,6.0660E-02_JPRB,7.3740E-02_JPRB,&
1063
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.5835E-02_JPRB,9.5657E-02_JPRB,1.5338E+00_JPRB/)
1064 KAO( :, 1,13, 5) = (/&
1065 & 3.4531E-03_JPRB,1.4217E-02_JPRB,2.4215E-02_JPRB,3.4135E-02_JPRB,4.3667E-02_JPRB,5.2684E-02_JPRB,&
1066
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.0918E-02_JPRB,6.8490E-02_JPRB,1.7191E+00_JPRB/)
1067 KAO( :, 2,13, 5) = (/&
1068 & 3.2166E-03_JPRB,1.4327E-02_JPRB,2.5086E-02_JPRB,3.5607E-02_JPRB,4.5722E-02_JPRB,5.5317E-02_JPRB,&
1069
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.4142E-02_JPRB,7.1650E-02_JPRB,1.6100E+00_JPRB/)
1070 KAO( :, 3,13, 5) = (/&
1071 & 3.0139E-03_JPRB,1.4515E-02_JPRB,2.5871E-02_JPRB,3.6915E-02_JPRB,4.7550E-02_JPRB,5.7658E-02_JPRB,&
1072
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.6926E-02_JPRB,7.4589E-02_JPRB,1.5199E+00_JPRB/)
1073 KAO( :, 4,13, 5) = (/&
1074 & 2.8380E-03_JPRB,1.4739E-02_JPRB,2.6616E-02_JPRB,3.8152E-02_JPRB,4.9253E-02_JPRB,5.9779E-02_JPRB,&
1075
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.9455E-02_JPRB,7.7339E-02_JPRB,1.4413E+00_JPRB/)
1076 KAO( :, 5,13, 5) = (/&
1077 & 2.6842E-03_JPRB,1.4990E-02_JPRB,2.7278E-02_JPRB,3.9228E-02_JPRB,5.0729E-02_JPRB,6.1660E-02_JPRB,&
1078
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.1747E-02_JPRB,7.9916E-02_JPRB,1.3713E+00_JPRB/)
1079 KAO( :, 1, 1, 6) = (/&
1080 & 3.8632E-02_JPRB,1.4563E-01_JPRB,2.6438E-01_JPRB,3.7994E-01_JPRB,4.9178E-01_JPRB,5.9825E-01_JPRB,&
1081
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.9697E-01_JPRB,7.7896E-01_JPRB,1.1356E+01_JPRB/)
1082 KAO( :, 2, 1, 6) = (/&
1083 & 3.7252E-02_JPRB,1.4645E-01_JPRB,2.6646E-01_JPRB,3.8318E-01_JPRB,4.9611E-01_JPRB,6.0391E-01_JPRB,&
1084
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.0433E-01_JPRB,7.8721E-01_JPRB,1.0913E+01_JPRB/)
1085 KAO( :, 3, 1, 6) = (/&
1086 & 3.6055E-02_JPRB,1.4710E-01_JPRB,2.6822E-01_JPRB,3.8583E-01_JPRB,4.9949E-01_JPRB,6.0852E-01_JPRB,&
1087
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.0979E-01_JPRB,7.9483E-01_JPRB,1.0530E+01_JPRB/)
1088 KAO( :, 4, 1, 6) = (/&
1089 & 3.5090E-02_JPRB,1.4760E-01_JPRB,2.6956E-01_JPRB,3.8772E-01_JPRB,5.0210E-01_JPRB,6.1181E-01_JPRB,&
1090
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.1390E-01_JPRB,7.9958E-01_JPRB,1.0180E+01_JPRB/)
1091 KAO( :, 5, 1, 6) = (/&
1092 & 3.4260E-02_JPRB,1.4804E-01_JPRB,2.7047E-01_JPRB,3.8919E-01_JPRB,5.0401E-01_JPRB,6.1383E-01_JPRB,&
1093
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.1642E-01_JPRB,8.0271E-01_JPRB,9.8574E+00_JPRB/)
1094 KAO( :, 1, 2, 6) = (/&
1095 & 3.1826E-02_JPRB,1.3117E-01_JPRB,2.4082E-01_JPRB,3.4734E-01_JPRB,4.4987E-01_JPRB,5.4781E-01_JPRB,&
1096
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.3804E-01_JPRB,7.1206E-01_JPRB,9.6043E+00_JPRB/)
1097 KAO( :, 2, 2, 6) = (/&
1098 & 3.0580E-02_JPRB,1.3188E-01_JPRB,2.4250E-01_JPRB,3.4978E-01_JPRB,4.5341E-01_JPRB,5.5237E-01_JPRB,&
1099
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.4380E-01_JPRB,7.1952E-01_JPRB,9.2042E+00_JPRB/)
1100 KAO( :, 3, 2, 6) = (/&
1101 & 2.9477E-02_JPRB,1.3242E-01_JPRB,2.4394E-01_JPRB,3.5199E-01_JPRB,4.5646E-01_JPRB,5.5595E-01_JPRB,&
1102
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.4859E-01_JPRB,7.2500E-01_JPRB,8.8547E+00_JPRB/)
1103 KAO( :, 4, 2, 6) = (/&
1104 & 2.8580E-02_JPRB,1.3291E-01_JPRB,2.4517E-01_JPRB,3.5389E-01_JPRB,4.5886E-01_JPRB,5.5917E-01_JPRB,&
1105
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.5208E-01_JPRB,7.2920E-01_JPRB,8.5255E+00_JPRB/)
1106 KAO( :, 5, 2, 6) = (/&
1107 & 2.7810E-02_JPRB,1.3345E-01_JPRB,2.4608E-01_JPRB,3.5526E-01_JPRB,4.6068E-01_JPRB,5.6160E-01_JPRB,&
1108
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.5500E-01_JPRB,7.3217E-01_JPRB,8.2220E+00_JPRB/)
1109 KAO( :, 1, 3, 6) = (/&
1110 & 2.6420E-02_JPRB,1.1646E-01_JPRB,2.1549E-01_JPRB,3.1138E-01_JPRB,4.0359E-01_JPRB,4.9120E-01_JPRB,&
1111
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.7225E-01_JPRB,6.3794E-01_JPRB,8.1678E+00_JPRB/)
1112 KAO( :, 2, 3, 6) = (/&
1113 & 2.5165E-02_JPRB,1.1697E-01_JPRB,2.1694E-01_JPRB,3.1375E-01_JPRB,4.0678E-01_JPRB,4.9551E-01_JPRB,&
1114
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.7728E-01_JPRB,6.4420E-01_JPRB,7.7828E+00_JPRB/)
1115 KAO( :, 3, 3, 6) = (/&
1116 & 2.4099E-02_JPRB,1.1741E-01_JPRB,2.1826E-01_JPRB,3.1581E-01_JPRB,4.0983E-01_JPRB,4.9937E-01_JPRB,&
1117
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.8185E-01_JPRB,6.4952E-01_JPRB,7.4421E+00_JPRB/)
1118 KAO( :, 4, 3, 6) = (/&
1119 & 2.3226E-02_JPRB,1.1793E-01_JPRB,2.1960E-01_JPRB,3.1782E-01_JPRB,4.1268E-01_JPRB,5.0276E-01_JPRB,&
1120
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.8605E-01_JPRB,6.5374E-01_JPRB,7.1416E+00_JPRB/)
1121 KAO( :, 5, 3, 6) = (/&
1122 & 2.2449E-02_JPRB,1.1853E-01_JPRB,2.2074E-01_JPRB,3.1965E-01_JPRB,4.1487E-01_JPRB,5.0573E-01_JPRB,&
1123
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.8935E-01_JPRB,6.5775E-01_JPRB,6.8702E+00_JPRB/)
1124 KAO( :, 1, 4, 6) = (/&
1125 & 2.2282E-02_JPRB,1.0267E-01_JPRB,1.9038E-01_JPRB,2.7507E-01_JPRB,3.5668E-01_JPRB,4.3406E-01_JPRB,&
1126
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.0509E-01_JPRB,5.6272E-01_JPRB,7.0192E+00_JPRB/)
1127 KAO( :, 2, 4, 6) = (/&
1128 & 2.1101E-02_JPRB,1.0311E-01_JPRB,1.9184E-01_JPRB,2.7754E-01_JPRB,3.5984E-01_JPRB,4.3790E-01_JPRB,&
1129
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.1005E-01_JPRB,5.6828E-01_JPRB,6.6594E+00_JPRB/)
1130 KAO( :, 3, 4, 6) = (/&
1131 & 2.0092E-02_JPRB,1.0356E-01_JPRB,1.9318E-01_JPRB,2.7978E-01_JPRB,3.6293E-01_JPRB,4.4207E-01_JPRB,&
1132
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.1463E-01_JPRB,5.7356E-01_JPRB,6.3438E+00_JPRB/)
1133 KAO( :, 4, 4, 6) = (/&
1134 & 1.9228E-02_JPRB,1.0414E-01_JPRB,1.9468E-01_JPRB,2.8199E-01_JPRB,3.6599E-01_JPRB,4.4583E-01_JPRB,&
1135
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.1913E-01_JPRB,5.7829E-01_JPRB,6.0576E+00_JPRB/)
1136 KAO( :, 5, 4, 6) = (/&
1137 & 1.8478E-02_JPRB,1.0486E-01_JPRB,1.9620E-01_JPRB,2.8416E-01_JPRB,3.6882E-01_JPRB,4.4907E-01_JPRB,&
1138
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.2302E-01_JPRB,5.8267E-01_JPRB,5.7987E+00_JPRB/)
1139 KAO( :, 1, 5, 6) = (/&
1140 & 1.8927E-02_JPRB,8.9665E-02_JPRB,1.6623E-01_JPRB,2.4010E-01_JPRB,3.1103E-01_JPRB,3.7843E-01_JPRB,&
1141
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.4012E-01_JPRB,4.9065E-01_JPRB,6.0454E+00_JPRB/)
1142 KAO( :, 2, 5, 6) = (/&
1143 & 1.7852E-02_JPRB,9.0154E-02_JPRB,1.6776E-01_JPRB,2.4246E-01_JPRB,3.1432E-01_JPRB,3.8239E-01_JPRB,&
1144
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.4467E-01_JPRB,4.9513E-01_JPRB,5.7165E+00_JPRB/)
1145 KAO( :, 3, 5, 6) = (/&
1146 & 1.6931E-02_JPRB,9.0711E-02_JPRB,1.6930E-01_JPRB,2.4502E-01_JPRB,3.1769E-01_JPRB,3.8643E-01_JPRB,&
1147
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.4965E-01_JPRB,5.0025E-01_JPRB,5.4249E+00_JPRB/)
1148 KAO( :, 4, 5, 6) = (/&
1149 & 1.6136E-02_JPRB,9.1383E-02_JPRB,1.7089E-01_JPRB,2.4749E-01_JPRB,3.2087E-01_JPRB,3.9057E-01_JPRB,&
1150
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.5430E-01_JPRB,5.0560E-01_JPRB,5.1610E+00_JPRB/)
1151 KAO( :, 5, 5, 6) = (/&
1152 & 1.5442E-02_JPRB,9.2230E-02_JPRB,1.7257E-01_JPRB,2.4990E-01_JPRB,3.2412E-01_JPRB,3.9447E-01_JPRB,&
1153
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.5892E-01_JPRB,5.1059E-01_JPRB,4.9249E+00_JPRB/)
1154 KAO( :, 1, 6, 6) = (/&
1155 & 1.6173E-02_JPRB,7.7572E-02_JPRB,1.4357E-01_JPRB,2.0729E-01_JPRB,2.6833E-01_JPRB,3.2615E-01_JPRB,&
1156
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.7930E-01_JPRB,4.2429E-01_JPRB,5.2215E+00_JPRB/)
1157 KAO( :, 2, 6, 6) = (/&
1158 & 1.5200E-02_JPRB,7.8077E-02_JPRB,1.4510E-01_JPRB,2.0962E-01_JPRB,2.7142E-01_JPRB,3.3008E-01_JPRB,&
1159
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.8383E-01_JPRB,4.2773E-01_JPRB,4.9175E+00_JPRB/)
1160 KAO( :, 3, 6, 6) = (/&
1161 & 1.4368E-02_JPRB,7.8730E-02_JPRB,1.4681E-01_JPRB,2.1218E-01_JPRB,2.7493E-01_JPRB,3.3435E-01_JPRB,&
1162
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.8857E-01_JPRB,4.3236E-01_JPRB,4.6498E+00_JPRB/)
1163 KAO( :, 4, 6, 6) = (/&
1164 & 1.3651E-02_JPRB,7.9498E-02_JPRB,1.4852E-01_JPRB,2.1489E-01_JPRB,2.7853E-01_JPRB,3.3867E-01_JPRB,&
1165
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.9393E-01_JPRB,4.3813E-01_JPRB,4.4118E+00_JPRB/)
1166 KAO( :, 5, 6, 6) = (/&
1167 & 1.3021E-02_JPRB,8.0512E-02_JPRB,1.5047E-01_JPRB,2.1785E-01_JPRB,2.8237E-01_JPRB,3.4356E-01_JPRB,&
1168
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.9943E-01_JPRB,4.4445E-01_JPRB,4.1985E+00_JPRB/)
1169 KAO( :, 1, 7, 6) = (/&
1170 & 1.3842E-02_JPRB,6.6570E-02_JPRB,1.2297E-01_JPRB,1.7734E-01_JPRB,2.2958E-01_JPRB,2.7900E-01_JPRB,&
1171
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2406E-01_JPRB,3.6469E-01_JPRB,4.5564E+00_JPRB/)
1172 KAO( :, 2, 7, 6) = (/&
1173 & 1.2974E-02_JPRB,6.7120E-02_JPRB,1.2449E-01_JPRB,1.7977E-01_JPRB,2.3270E-01_JPRB,2.8277E-01_JPRB,&
1174
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2872E-01_JPRB,3.6760E-01_JPRB,4.2769E+00_JPRB/)
1175 KAO( :, 3, 7, 6) = (/&
1176 & 1.2231E-02_JPRB,6.7829E-02_JPRB,1.2627E-01_JPRB,1.8248E-01_JPRB,2.3625E-01_JPRB,2.8721E-01_JPRB,&
1177
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3397E-01_JPRB,3.7214E-01_JPRB,4.0308E+00_JPRB/)
1178 KAO( :, 4, 7, 6) = (/&
1179 & 1.1586E-02_JPRB,6.8704E-02_JPRB,1.2831E-01_JPRB,1.8551E-01_JPRB,2.4039E-01_JPRB,2.9244E-01_JPRB,&
1180
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3993E-01_JPRB,3.7842E-01_JPRB,3.8137E+00_JPRB/)
1181 KAO( :, 5, 7, 6) = (/&
1182 & 1.1019E-02_JPRB,6.9935E-02_JPRB,1.3064E-01_JPRB,1.8899E-01_JPRB,2.4502E-01_JPRB,2.9795E-01_JPRB,&
1183
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.4661E-01_JPRB,3.8562E-01_JPRB,3.6208E+00_JPRB/)
1184 KAO( :, 1, 8, 6) = (/&
1185 & 1.1856E-02_JPRB,5.6687E-02_JPRB,1.0456E-01_JPRB,1.5068E-01_JPRB,1.9490E-01_JPRB,2.3680E-01_JPRB,&
1186
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.7529E-01_JPRB,3.1187E-01_JPRB,4.0573E+00_JPRB/)
1187 KAO( :, 2, 8, 6) = (/&
1188 & 1.1084E-02_JPRB,5.7283E-02_JPRB,1.0610E-01_JPRB,1.5305E-01_JPRB,1.9814E-01_JPRB,2.4092E-01_JPRB,&
1189
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8002E-01_JPRB,3.1482E-01_JPRB,3.7969E+00_JPRB/)
1190 KAO( :, 3, 8, 6) = (/&
1191 & 1.0424E-02_JPRB,5.8111E-02_JPRB,1.0802E-01_JPRB,1.5601E-01_JPRB,2.0208E-01_JPRB,2.4566E-01_JPRB,&
1192
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8562E-01_JPRB,3.1943E-01_JPRB,3.5697E+00_JPRB/)
1193 KAO( :, 4, 8, 6) = (/&
1194 & 9.8517E-03_JPRB,5.9109E-02_JPRB,1.1026E-01_JPRB,1.5951E-01_JPRB,2.0663E-01_JPRB,2.5128E-01_JPRB,&
1195
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9237E-01_JPRB,3.2591E-01_JPRB,3.3690E+00_JPRB/)
1196 KAO( :, 5, 8, 6) = (/&
1197 & 9.3473E-03_JPRB,6.0458E-02_JPRB,1.1290E-01_JPRB,1.6330E-01_JPRB,2.1161E-01_JPRB,2.5747E-01_JPRB,&
1198
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9929E-01_JPRB,3.3311E-01_JPRB,3.1918E+00_JPRB/)
1199 KAO( :, 1, 9, 6) = (/&
1200 & 1.0174E-02_JPRB,4.8047E-02_JPRB,8.8410E-02_JPRB,1.2743E-01_JPRB,1.6481E-01_JPRB,2.0018E-01_JPRB,&
1201
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3315E-01_JPRB,2.6585E-01_JPRB,3.5956E+00_JPRB/)
1202 KAO( :, 2, 9, 6) = (/&
1203 & 9.4844E-03_JPRB,4.8661E-02_JPRB,9.0043E-02_JPRB,1.2994E-01_JPRB,1.6817E-01_JPRB,2.0441E-01_JPRB,&
1204
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.3776E-01_JPRB,2.6902E-01_JPRB,3.3539E+00_JPRB/)
1205 KAO( :, 3, 9, 6) = (/&
1206 & 8.8959E-03_JPRB,4.9547E-02_JPRB,9.2085E-02_JPRB,1.3295E-01_JPRB,1.7216E-01_JPRB,2.0943E-01_JPRB,&
1207
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.4369E-01_JPRB,2.7374E-01_JPRB,3.1436E+00_JPRB/)
1208 KAO( :, 4, 9, 6) = (/&
1209 & 8.3843E-03_JPRB,5.0652E-02_JPRB,9.4445E-02_JPRB,1.3652E-01_JPRB,1.7695E-01_JPRB,2.1526E-01_JPRB,&
1210
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5026E-01_JPRB,2.7964E-01_JPRB,2.9597E+00_JPRB/)
1211 KAO( :, 5, 9, 6) = (/&
1212 & 7.9361E-03_JPRB,5.1996E-02_JPRB,9.7022E-02_JPRB,1.4032E-01_JPRB,1.8172E-01_JPRB,2.2081E-01_JPRB,&
1213
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5660E-01_JPRB,2.8539E-01_JPRB,2.7995E+00_JPRB/)
1214 KAO( :, 1,10, 6) = (/&
1215 & 8.6910E-03_JPRB,4.0662E-02_JPRB,7.4709E-02_JPRB,1.0753E-01_JPRB,1.3903E-01_JPRB,1.6890E-01_JPRB,&
1216
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9755E-01_JPRB,2.2624E-01_JPRB,3.1658E+00_JPRB/)
1217 KAO( :, 2,10, 6) = (/&
1218 & 8.0781E-03_JPRB,4.1334E-02_JPRB,7.6396E-02_JPRB,1.1015E-01_JPRB,1.4261E-01_JPRB,1.7346E-01_JPRB,&
1219
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0195E-01_JPRB,2.2973E-01_JPRB,2.9443E+00_JPRB/)
1220 KAO( :, 3,10, 6) = (/&
1221 & 7.5558E-03_JPRB,4.2237E-02_JPRB,7.8425E-02_JPRB,1.1329E-01_JPRB,1.4677E-01_JPRB,1.7847E-01_JPRB,&
1222
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.0753E-01_JPRB,2.3421E-01_JPRB,2.7528E+00_JPRB/)
1223 KAO( :, 4,10, 6) = (/&
1224 & 7.1052E-03_JPRB,4.3295E-02_JPRB,8.0652E-02_JPRB,1.1657E-01_JPRB,1.5091E-01_JPRB,1.8339E-01_JPRB,&
1225
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1320E-01_JPRB,2.3872E-01_JPRB,2.5875E+00_JPRB/)
1226 KAO( :, 5,10, 6) = (/&
1227 & 6.7112E-03_JPRB,4.4456E-02_JPRB,8.2854E-02_JPRB,1.1964E-01_JPRB,1.5483E-01_JPRB,1.8812E-01_JPRB,&
1228
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.1828E-01_JPRB,2.4305E-01_JPRB,2.4449E+00_JPRB/)
1229 KAO( :, 1,11, 6) = (/&
1230 & 7.1546E-03_JPRB,3.4641E-02_JPRB,6.3729E-02_JPRB,9.1774E-02_JPRB,1.1873E-01_JPRB,1.4430E-01_JPRB,&
1231
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6899E-01_JPRB,1.9377E-01_JPRB,2.6800E+00_JPRB/)
1232 KAO( :, 2,11, 6) = (/&
1233 & 6.6497E-03_JPRB,3.5437E-02_JPRB,6.5581E-02_JPRB,9.4605E-02_JPRB,1.2249E-01_JPRB,1.4891E-01_JPRB,&
1234
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7335E-01_JPRB,1.9740E-01_JPRB,2.4922E+00_JPRB/)
1235 KAO( :, 3,11, 6) = (/&
1236 & 6.2203E-03_JPRB,3.6291E-02_JPRB,6.7410E-02_JPRB,9.7360E-02_JPRB,1.2600E-01_JPRB,1.5308E-01_JPRB,&
1237
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7786E-01_JPRB,2.0080E-01_JPRB,2.3311E+00_JPRB/)
1238 KAO( :, 4,11, 6) = (/&
1239 & 5.8484E-03_JPRB,3.7194E-02_JPRB,6.9237E-02_JPRB,9.9960E-02_JPRB,1.2931E-01_JPRB,1.5705E-01_JPRB,&
1240
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8234E-01_JPRB,2.0415E-01_JPRB,2.1940E+00_JPRB/)
1241 KAO( :, 5,11, 6) = (/&
1242 & 5.5242E-03_JPRB,3.8204E-02_JPRB,7.1094E-02_JPRB,1.0253E-01_JPRB,1.3260E-01_JPRB,1.6091E-01_JPRB,&
1243
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
10 & 1.8653E-01_JPRB,2.0766E-01_JPRB,2.0745E+00_JPRB/)
1244
1245
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB15: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_KGB15:PART5',0,ZHOOK_HANDLE)
1253
1254
1255 KAO( :, 1,12, 6) = (/&
1256 & 5.8816E-03_JPRB,2.9599E-02_JPRB,5.4489E-02_JPRB,7.8480E-02_JPRB,1.0153E-01_JPRB,1.2338E-01_JPRB,&
1257
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4461E-01_JPRB,1.6589E-01_JPRB,2.2985E+00_JPRB/)
1258 KAO( :, 2,12, 6) = (/&
1259 & 5.4688E-03_JPRB,3.0298E-02_JPRB,5.6046E-02_JPRB,8.0826E-02_JPRB,1.0456E-01_JPRB,1.2701E-01_JPRB,&
1260
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4783E-01_JPRB,1.6844E-01_JPRB,2.1377E+00_JPRB/)
1261 KAO( :, 3,12, 6) = (/&
1262 & 5.1175E-03_JPRB,3.1020E-02_JPRB,5.7585E-02_JPRB,8.3084E-02_JPRB,1.0742E-01_JPRB,1.3040E-01_JPRB,&
1263
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5140E-01_JPRB,1.7099E-01_JPRB,2.0023E+00_JPRB/)
1264 KAO( :, 4,12, 6) = (/&
1265 & 4.8144E-03_JPRB,3.1808E-02_JPRB,5.9123E-02_JPRB,8.5255E-02_JPRB,1.1020E-01_JPRB,1.3374E-01_JPRB,&
1266
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5506E-01_JPRB,1.7366E-01_JPRB,1.8864E+00_JPRB/)
1267 KAO( :, 5,12, 6) = (/&
1268 & 4.5497E-03_JPRB,3.2704E-02_JPRB,6.0814E-02_JPRB,8.7626E-02_JPRB,1.1321E-01_JPRB,1.3720E-01_JPRB,&
1269
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5886E-01_JPRB,1.7678E-01_JPRB,1.7844E+00_JPRB/)
1270 KAO( :, 1,13, 6) = (/&
1271 & 4.8422E-03_JPRB,2.5177E-02_JPRB,4.6344E-02_JPRB,6.6734E-02_JPRB,8.6291E-02_JPRB,1.0482E-01_JPRB,&
1272
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2289E-01_JPRB,1.4102E-01_JPRB,2.0501E+00_JPRB/)
1273 KAO( :, 2,13, 6) = (/&
1274 & 4.5082E-03_JPRB,2.5759E-02_JPRB,4.7623E-02_JPRB,6.8651E-02_JPRB,8.8749E-02_JPRB,1.0771E-01_JPRB,&
1275
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2536E-01_JPRB,1.4285E-01_JPRB,1.9088E+00_JPRB/)
1276 KAO( :, 3,13, 6) = (/&
1277 & 4.2221E-03_JPRB,2.6388E-02_JPRB,4.8921E-02_JPRB,7.0509E-02_JPRB,9.1098E-02_JPRB,1.1050E-01_JPRB,&
1278
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2820E-01_JPRB,1.4481E-01_JPRB,1.7897E+00_JPRB/)
1279 KAO( :, 4,13, 6) = (/&
1280 & 3.9753E-03_JPRB,2.7097E-02_JPRB,5.0270E-02_JPRB,7.2404E-02_JPRB,9.3520E-02_JPRB,1.1341E-01_JPRB,&
1281
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3134E-01_JPRB,1.4713E-01_JPRB,1.6870E+00_JPRB/)
1282 KAO( :, 5,13, 6) = (/&
1283 & 3.7603E-03_JPRB,2.7904E-02_JPRB,5.1825E-02_JPRB,7.4620E-02_JPRB,9.6277E-02_JPRB,1.1654E-01_JPRB,&
1284
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3481E-01_JPRB,1.4987E-01_JPRB,1.5960E+00_JPRB/)
1285 KAO( :, 1, 1, 7) = (/&
1286 & 5.2128E-02_JPRB,2.2573E-01_JPRB,4.1698E-01_JPRB,6.0142E-01_JPRB,7.7838E-01_JPRB,9.4635E-01_JPRB,&
1287
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1013E+00_JPRB,1.2264E+00_JPRB,1.2683E+01_JPRB/)
1288 KAO( :, 2, 1, 7) = (/&
1289 & 5.0382E-02_JPRB,2.2718E-01_JPRB,4.1897E-01_JPRB,6.0369E-01_JPRB,7.8036E-01_JPRB,9.4806E-01_JPRB,&
1290
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1011E+00_JPRB,1.2250E+00_JPRB,1.2078E+01_JPRB/)
1291 KAO( :, 3, 1, 7) = (/&
1292 & 4.9050E-02_JPRB,2.2916E-01_JPRB,4.2172E-01_JPRB,6.0675E-01_JPRB,7.8406E-01_JPRB,9.5134E-01_JPRB,&
1293
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1038E+00_JPRB,1.2245E+00_JPRB,1.1561E+01_JPRB/)
1294 KAO( :, 4, 1, 7) = (/&
1295 & 4.8000E-02_JPRB,2.3161E-01_JPRB,4.2498E-01_JPRB,6.1081E-01_JPRB,7.8880E-01_JPRB,9.5615E-01_JPRB,&
1296
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1084E+00_JPRB,1.2283E+00_JPRB,1.1090E+01_JPRB/)
1297 KAO( :, 5, 1, 7) = (/&
1298 & 4.7267E-02_JPRB,2.3436E-01_JPRB,4.2865E-01_JPRB,6.1543E-01_JPRB,7.9387E-01_JPRB,9.6245E-01_JPRB,&
1299
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1147E+00_JPRB,1.2334E+00_JPRB,1.0665E+01_JPRB/)
1300 KAO( :, 1, 2, 7) = (/&
1301 & 4.2932E-02_JPRB,2.1372E-01_JPRB,3.9561E-01_JPRB,5.6920E-01_JPRB,7.3515E-01_JPRB,8.9082E-01_JPRB,&
1302
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0322E+00_JPRB,1.1443E+00_JPRB,1.0613E+01_JPRB/)
1303 KAO( :, 2, 2, 7) = (/&
1304 & 4.1235E-02_JPRB,2.1562E-01_JPRB,3.9903E-01_JPRB,5.7421E-01_JPRB,7.4053E-01_JPRB,8.9640E-01_JPRB,&
1305
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0375E+00_JPRB,1.1460E+00_JPRB,1.0106E+01_JPRB/)
1306 KAO( :, 3, 2, 7) = (/&
1307 & 3.9904E-02_JPRB,2.1797E-01_JPRB,4.0322E-01_JPRB,5.7993E-01_JPRB,7.4744E-01_JPRB,9.0475E-01_JPRB,&
1308
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0452E+00_JPRB,1.1527E+00_JPRB,9.6511E+00_JPRB/)
1309 KAO( :, 4, 2, 7) = (/&
1310 & 3.8807E-02_JPRB,2.2063E-01_JPRB,4.0792E-01_JPRB,5.8615E-01_JPRB,7.5558E-01_JPRB,9.1342E-01_JPRB,&
1311
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0550E+00_JPRB,1.1616E+00_JPRB,9.2444E+00_JPRB/)
1312 KAO( :, 5, 2, 7) = (/&
1313 & 3.7944E-02_JPRB,2.2348E-01_JPRB,4.1278E-01_JPRB,5.9308E-01_JPRB,7.6392E-01_JPRB,9.2334E-01_JPRB,&
1314
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0654E+00_JPRB,1.1718E+00_JPRB,8.8704E+00_JPRB/)
1315 KAO( :, 1, 3, 7) = (/&
1316 & 3.5644E-02_JPRB,1.9900E-01_JPRB,3.6873E-01_JPRB,5.2969E-01_JPRB,6.8262E-01_JPRB,8.2576E-01_JPRB,&
1317
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.5330E-01_JPRB,1.0560E+00_JPRB,9.0225E+00_JPRB/)
1318 KAO( :, 2, 3, 7) = (/&
1319 & 3.3919E-02_JPRB,2.0128E-01_JPRB,3.7328E-01_JPRB,5.3629E-01_JPRB,6.9070E-01_JPRB,8.3419E-01_JPRB,&
1320
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.6259E-01_JPRB,1.0599E+00_JPRB,8.5592E+00_JPRB/)
1321 KAO( :, 3, 3, 7) = (/&
1322 & 3.2476E-02_JPRB,2.0401E-01_JPRB,3.7867E-01_JPRB,5.4408E-01_JPRB,7.0000E-01_JPRB,8.4506E-01_JPRB,&
1323
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.7370E-01_JPRB,1.0690E+00_JPRB,8.1409E+00_JPRB/)
1324 KAO( :, 4, 3, 7) = (/&
1325 & 3.1249E-02_JPRB,2.0698E-01_JPRB,3.8457E-01_JPRB,5.5225E-01_JPRB,7.1038E-01_JPRB,8.5708E-01_JPRB,&
1326
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.8671E-01_JPRB,1.0811E+00_JPRB,7.7623E+00_JPRB/)
1327 KAO( :, 5, 3, 7) = (/&
1328 & 3.0275E-02_JPRB,2.1021E-01_JPRB,3.9069E-01_JPRB,5.6104E-01_JPRB,7.2150E-01_JPRB,8.6973E-01_JPRB,&
1329
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0004E+00_JPRB,1.0948E+00_JPRB,7.4273E+00_JPRB/)
1330 KAO( :, 1, 4, 7) = (/&
1331 & 3.0097E-02_JPRB,1.8261E-01_JPRB,3.3811E-01_JPRB,4.8498E-01_JPRB,6.2347E-01_JPRB,7.5244E-01_JPRB,&
1332
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.6689E-01_JPRB,9.6397E-01_JPRB,7.7267E+00_JPRB/)
1333 KAO( :, 2, 4, 7) = (/&
1334 & 2.8465E-02_JPRB,1.8532E-01_JPRB,3.4351E-01_JPRB,4.9262E-01_JPRB,6.3341E-01_JPRB,7.6377E-01_JPRB,&
1335
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.7850E-01_JPRB,9.6891E-01_JPRB,7.2971E+00_JPRB/)
1336 KAO( :, 3, 4, 7) = (/&
1337 & 2.7069E-02_JPRB,1.8851E-01_JPRB,3.4990E-01_JPRB,5.0190E-01_JPRB,6.4465E-01_JPRB,7.7654E-01_JPRB,&
1338
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.9285E-01_JPRB,9.7883E-01_JPRB,6.9159E+00_JPRB/)
1339 KAO( :, 4, 4, 7) = (/&
1340 & 2.5871E-02_JPRB,1.9199E-01_JPRB,3.5682E-01_JPRB,5.1175E-01_JPRB,6.5706E-01_JPRB,7.9119E-01_JPRB,&
1341
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.0820E-01_JPRB,9.9217E-01_JPRB,6.5751E+00_JPRB/)
1342 KAO( :, 5, 4, 7) = (/&
1343 & 2.4866E-02_JPRB,1.9576E-01_JPRB,3.6404E-01_JPRB,5.2207E-01_JPRB,6.7030E-01_JPRB,8.0638E-01_JPRB,&
1344
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.2498E-01_JPRB,1.0073E+00_JPRB,6.2687E+00_JPRB/)
1345 KAO( :, 1, 5, 7) = (/&
1346 & 2.5614E-02_JPRB,1.6487E-01_JPRB,3.0459E-01_JPRB,4.3623E-01_JPRB,5.5976E-01_JPRB,6.7396E-01_JPRB,&
1347
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.7520E-01_JPRB,8.6835E-01_JPRB,6.6219E+00_JPRB/)
1348 KAO( :, 2, 5, 7) = (/&
1349 & 2.4116E-02_JPRB,1.6799E-01_JPRB,3.1096E-01_JPRB,4.4514E-01_JPRB,5.7096E-01_JPRB,6.8731E-01_JPRB,&
1350
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.8907E-01_JPRB,8.7442E-01_JPRB,6.2328E+00_JPRB/)
1351 KAO( :, 3, 5, 7) = (/&
1352 & 2.2830E-02_JPRB,1.7162E-01_JPRB,3.1815E-01_JPRB,4.5551E-01_JPRB,5.8428E-01_JPRB,7.0249E-01_JPRB,&
1353
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.0544E-01_JPRB,8.8480E-01_JPRB,5.8899E+00_JPRB/)
1354 KAO( :, 4, 5, 7) = (/&
1355 & 2.1736E-02_JPRB,1.7560E-01_JPRB,3.2603E-01_JPRB,4.6697E-01_JPRB,5.9854E-01_JPRB,7.1908E-01_JPRB,&
1356
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.2326E-01_JPRB,8.9862E-01_JPRB,5.5832E+00_JPRB/)
1357 KAO( :, 5, 5, 7) = (/&
1358 & 2.0809E-02_JPRB,1.7988E-01_JPRB,3.3435E-01_JPRB,4.7875E-01_JPRB,6.1356E-01_JPRB,7.3657E-01_JPRB,&
1359
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.4234E-01_JPRB,9.1423E-01_JPRB,5.3090E+00_JPRB/)
1360 KAO( :, 1, 6, 7) = (/&
1361 & 2.1880E-02_JPRB,1.4623E-01_JPRB,2.6962E-01_JPRB,3.8553E-01_JPRB,4.9437E-01_JPRB,5.9458E-01_JPRB,&
1362
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.8464E-01_JPRB,7.7290E-01_JPRB,5.6893E+00_JPRB/)
1363 KAO( :, 2, 6, 7) = (/&
1364 & 2.0541E-02_JPRB,1.4964E-01_JPRB,2.7646E-01_JPRB,3.9534E-01_JPRB,5.0653E-01_JPRB,6.0867E-01_JPRB,&
1365
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.9802E-01_JPRB,7.7944E-01_JPRB,5.3383E+00_JPRB/)
1366 KAO( :, 3, 6, 7) = (/&
1367 & 1.9387E-02_JPRB,1.5367E-01_JPRB,2.8442E-01_JPRB,4.0664E-01_JPRB,5.2073E-01_JPRB,6.2519E-01_JPRB,&
1368
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.1506E-01_JPRB,7.9013E-01_JPRB,5.0300E+00_JPRB/)
1369 KAO( :, 4, 6, 7) = (/&
1370 & 1.8399E-02_JPRB,1.5808E-01_JPRB,2.9302E-01_JPRB,4.1898E-01_JPRB,5.3609E-01_JPRB,6.4281E-01_JPRB,&
1371
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.3443E-01_JPRB,8.0386E-01_JPRB,4.7570E+00_JPRB/)
1372 KAO( :, 5, 6, 7) = (/&
1373 & 1.7565E-02_JPRB,1.6282E-01_JPRB,3.0216E-01_JPRB,4.3178E-01_JPRB,5.5216E-01_JPRB,6.6163E-01_JPRB,&
1374
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.5404E-01_JPRB,8.1847E-01_JPRB,4.5125E+00_JPRB/)
1375 KAO( :, 1, 7, 7) = (/&
1376 & 1.8714E-02_JPRB,1.2767E-01_JPRB,2.3517E-01_JPRB,3.3585E-01_JPRB,4.3014E-01_JPRB,5.1698E-01_JPRB,&
1377
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.9889E-01_JPRB,6.8052E-01_JPRB,4.9475E+00_JPRB/)
1378 KAO( :, 2, 7, 7) = (/&
1379 & 1.7519E-02_JPRB,1.3119E-01_JPRB,2.4211E-01_JPRB,3.4588E-01_JPRB,4.4292E-01_JPRB,5.3168E-01_JPRB,&
1380
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.1066E-01_JPRB,6.8710E-01_JPRB,4.6289E+00_JPRB/)
1381 KAO( :, 3, 7, 7) = (/&
1382 & 1.6495E-02_JPRB,1.3547E-01_JPRB,2.5037E-01_JPRB,3.5759E-01_JPRB,4.5729E-01_JPRB,5.4816E-01_JPRB,&
1383
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.2674E-01_JPRB,6.9772E-01_JPRB,4.3494E+00_JPRB/)
1384 KAO( :, 4, 7, 7) = (/&
1385 & 1.5623E-02_JPRB,1.4024E-01_JPRB,2.5938E-01_JPRB,3.7018E-01_JPRB,4.7307E-01_JPRB,5.6640E-01_JPRB,&
1386
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.4533E-01_JPRB,7.1032E-01_JPRB,4.1027E+00_JPRB/)
1387 KAO( :, 5, 7, 7) = (/&
1388 & 1.4883E-02_JPRB,1.4521E-01_JPRB,2.6879E-01_JPRB,3.8347E-01_JPRB,4.8911E-01_JPRB,5.8444E-01_JPRB,&
1389
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 6.6428E-01_JPRB,7.2392E-01_JPRB,3.8827E+00_JPRB/)
1390 KAO( :, 1, 8, 7) = (/&
1391 & 1.6011E-02_JPRB,1.1016E-01_JPRB,2.0259E-01_JPRB,2.8923E-01_JPRB,3.7024E-01_JPRB,4.4570E-01_JPRB,&
1392
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.1977E-01_JPRB,5.9363E-01_JPRB,4.3984E+00_JPRB/)
1393 KAO( :, 2, 8, 7) = (/&
1394 & 1.4948E-02_JPRB,1.1367E-01_JPRB,2.0954E-01_JPRB,2.9900E-01_JPRB,3.8239E-01_JPRB,4.5865E-01_JPRB,&
1395
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.2962E-01_JPRB,5.9992E-01_JPRB,4.1028E+00_JPRB/)
1396 KAO( :, 3, 8, 7) = (/&
1397 & 1.4043E-02_JPRB,1.1790E-01_JPRB,2.1765E-01_JPRB,3.1052E-01_JPRB,3.9683E-01_JPRB,4.7512E-01_JPRB,&
1398
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.4401E-01_JPRB,6.0979E-01_JPRB,3.8451E+00_JPRB/)
1399 KAO( :, 4, 8, 7) = (/&
1400 & 1.3277E-02_JPRB,1.2271E-01_JPRB,2.2662E-01_JPRB,3.2293E-01_JPRB,4.1184E-01_JPRB,4.9204E-01_JPRB,&
1401
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.6016E-01_JPRB,6.2114E-01_JPRB,3.6180E+00_JPRB/)
1402 KAO( :, 5, 8, 7) = (/&
1403 & 1.2628E-02_JPRB,1.2779E-01_JPRB,2.3576E-01_JPRB,3.3533E-01_JPRB,4.2713E-01_JPRB,5.0925E-01_JPRB,&
1404
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 5.7770E-01_JPRB,6.3359E-01_JPRB,3.4160E+00_JPRB/)
1405 KAO( :, 1, 9, 7) = (/&
1406 & 1.3722E-02_JPRB,9.3985E-02_JPRB,1.7271E-01_JPRB,2.4639E-01_JPRB,3.1541E-01_JPRB,3.8164E-01_JPRB,&
1407
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.4798E-01_JPRB,5.1362E-01_JPRB,3.8929E+00_JPRB/)
1408 KAO( :, 2, 9, 7) = (/&
1409 & 1.2777E-02_JPRB,9.7414E-02_JPRB,1.7934E-01_JPRB,2.5581E-01_JPRB,3.2699E-01_JPRB,3.9259E-01_JPRB,&
1410
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.5617E-01_JPRB,5.1941E-01_JPRB,3.6200E+00_JPRB/)
1411 KAO( :, 3, 9, 7) = (/&
1412 & 1.1979E-02_JPRB,1.0152E-01_JPRB,1.8716E-01_JPRB,2.6666E-01_JPRB,3.4026E-01_JPRB,4.0688E-01_JPRB,&
1413
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.6784E-01_JPRB,5.2783E-01_JPRB,3.3828E+00_JPRB/)
1414 KAO( :, 4, 9, 7) = (/&
1415 & 1.1306E-02_JPRB,1.0607E-01_JPRB,1.9536E-01_JPRB,2.7793E-01_JPRB,3.5411E-01_JPRB,4.2250E-01_JPRB,&
1416
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.8212E-01_JPRB,5.3856E-01_JPRB,3.1744E+00_JPRB/)
1417 KAO( :, 5, 9, 7) = (/&
1418 & 1.0737E-02_JPRB,1.1080E-01_JPRB,2.0394E-01_JPRB,2.8968E-01_JPRB,3.6840E-01_JPRB,4.3899E-01_JPRB,&
1419
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.9835E-01_JPRB,5.5128E-01_JPRB,2.9902E+00_JPRB/)
1420 KAO( :, 1,10, 7) = (/&
1421 & 1.1712E-02_JPRB,7.9698E-02_JPRB,1.4636E-01_JPRB,2.0884E-01_JPRB,2.6772E-01_JPRB,3.2572E-01_JPRB,&
1422
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.8403E-01_JPRB,4.4146E-01_JPRB,3.4238E+00_JPRB/)
1423 KAO( :, 2,10, 7) = (/&
1424 & 1.0885E-02_JPRB,8.2934E-02_JPRB,1.5255E-01_JPRB,2.1737E-01_JPRB,2.7766E-01_JPRB,3.3439E-01_JPRB,&
1425
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.9066E-01_JPRB,4.4635E-01_JPRB,3.1745E+00_JPRB/)
1426 KAO( :, 3,10, 7) = (/&
1427 & 1.0188E-02_JPRB,8.6824E-02_JPRB,1.5967E-01_JPRB,2.2716E-01_JPRB,2.8954E-01_JPRB,3.4626E-01_JPRB,&
1428
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.0034E-01_JPRB,4.5401E-01_JPRB,2.9589E+00_JPRB/)
1429 KAO( :, 4,10, 7) = (/&
1430 & 9.6011E-03_JPRB,9.1065E-02_JPRB,1.6737E-01_JPRB,2.3778E-01_JPRB,3.0267E-01_JPRB,3.6104E-01_JPRB,&
1431
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.1369E-01_JPRB,4.6516E-01_JPRB,2.7702E+00_JPRB/)
1432 KAO( :, 5,10, 7) = (/&
1433 & 9.1043E-03_JPRB,9.5561E-02_JPRB,1.7554E-01_JPRB,2.4912E-01_JPRB,3.1674E-01_JPRB,3.7708E-01_JPRB,&
1434
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 4.2925E-01_JPRB,4.7811E-01_JPRB,2.6047E+00_JPRB/)
1435 KAO( :, 1,11, 7) = (/&
1436 & 9.6600E-03_JPRB,6.8416E-02_JPRB,1.2568E-01_JPRB,1.7918E-01_JPRB,2.2969E-01_JPRB,2.7960E-01_JPRB,&
1437
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2973E-01_JPRB,3.7899E-01_JPRB,2.8930E+00_JPRB/)
1438 KAO( :, 2,11, 7) = (/&
1439 & 8.9878E-03_JPRB,7.1652E-02_JPRB,1.3155E-01_JPRB,1.8712E-01_JPRB,2.3867E-01_JPRB,2.8757E-01_JPRB,&
1440
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.3629E-01_JPRB,3.8441E-01_JPRB,2.6816E+00_JPRB/)
1441 KAO( :, 3,11, 7) = (/&
1442 & 8.4222E-03_JPRB,7.5378E-02_JPRB,1.3835E-01_JPRB,1.9668E-01_JPRB,2.5051E-01_JPRB,2.9968E-01_JPRB,&
1443
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.4702E-01_JPRB,3.9398E-01_JPRB,2.4985E+00_JPRB/)
1444 KAO( :, 4,11, 7) = (/&
1445 & 7.9456E-03_JPRB,7.9499E-02_JPRB,1.4588E-01_JPRB,2.0704E-01_JPRB,2.6333E-01_JPRB,3.1396E-01_JPRB,&
1446
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.6037E-01_JPRB,4.0593E-01_JPRB,2.3394E+00_JPRB/)
1447 KAO( :, 5,11, 7) = (/&
1448 & 7.5367E-03_JPRB,8.3782E-02_JPRB,1.5372E-01_JPRB,2.1807E-01_JPRB,2.7700E-01_JPRB,3.2966E-01_JPRB,&
1449
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.7579E-01_JPRB,4.1961E-01_JPRB,2.2005E+00_JPRB/)
1450 KAO( :, 1,12, 7) = (/&
1451 & 7.9651E-03_JPRB,5.8686E-02_JPRB,1.0769E-01_JPRB,1.5334E-01_JPRB,1.9661E-01_JPRB,2.3953E-01_JPRB,&
1452
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8260E-01_JPRB,3.2486E-01_JPRB,2.4784E+00_JPRB/)
1453 KAO( :, 2,12, 7) = (/&
1454 & 7.4154E-03_JPRB,6.1767E-02_JPRB,1.1336E-01_JPRB,1.6127E-01_JPRB,2.0569E-01_JPRB,2.4818E-01_JPRB,&
1455
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.9059E-01_JPRB,3.3236E-01_JPRB,2.2967E+00_JPRB/)
1456 KAO( :, 3,12, 7) = (/&
1457 & 6.9534E-03_JPRB,6.5368E-02_JPRB,1.1996E-01_JPRB,1.7048E-01_JPRB,2.1709E-01_JPRB,2.5998E-01_JPRB,&
1458
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.0158E-01_JPRB,3.4278E-01_JPRB,2.1399E+00_JPRB/)
1459 KAO( :, 4,12, 7) = (/&
1460 & 6.5627E-03_JPRB,6.9215E-02_JPRB,1.2702E-01_JPRB,1.8030E-01_JPRB,2.2939E-01_JPRB,2.7353E-01_JPRB,&
1461
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.1454E-01_JPRB,3.5481E-01_JPRB,2.0047E+00_JPRB/)
1462 KAO( :, 5,12, 7) = (/&
1463 & 6.2252E-03_JPRB,7.3310E-02_JPRB,1.3449E-01_JPRB,1.9068E-01_JPRB,2.4194E-01_JPRB,2.8763E-01_JPRB,&
1464
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 3.2799E-01_JPRB,3.6662E-01_JPRB,1.8867E+00_JPRB/)
1465 KAO( :, 1,13, 7) = (/&
1466 & 6.5616E-03_JPRB,5.0380E-02_JPRB,9.2460E-02_JPRB,1.3167E-01_JPRB,1.6900E-01_JPRB,2.0616E-01_JPRB,&
1467
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.4338E-01_JPRB,2.7988E-01_JPRB,2.2117E+00_JPRB/)
1468 KAO( :, 2,13, 7) = (/&
1469 & 6.1120E-03_JPRB,5.3375E-02_JPRB,9.7998E-02_JPRB,1.3948E-01_JPRB,1.7796E-01_JPRB,2.1500E-01_JPRB,&
1470
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.5201E-01_JPRB,2.8843E-01_JPRB,2.0497E+00_JPRB/)
1471 KAO( :, 3,13, 7) = (/&
1472 & 5.7372E-03_JPRB,5.6731E-02_JPRB,1.0419E-01_JPRB,1.4804E-01_JPRB,1.8846E-01_JPRB,2.2583E-01_JPRB,&
1473
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.6228E-01_JPRB,2.9829E-01_JPRB,1.9105E+00_JPRB/)
1474 KAO( :, 4,13, 7) = (/&
1475 & 5.4187E-03_JPRB,6.0281E-02_JPRB,1.1054E-01_JPRB,1.5676E-01_JPRB,1.9913E-01_JPRB,2.3709E-01_JPRB,&
1476
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.7280E-01_JPRB,3.0791E-01_JPRB,1.7905E+00_JPRB/)
1477 KAO( :, 5,13, 7) = (/&
1478 & 5.1412E-03_JPRB,6.3942E-02_JPRB,1.1702E-01_JPRB,1.6550E-01_JPRB,2.0967E-01_JPRB,2.4883E-01_JPRB,&
1479
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 2.8378E-01_JPRB,3.1751E-01_JPRB,1.6855E+00_JPRB/)
1480 KAO( :, 1, 1, 8) = (/&
1481 & 8.0925E-02_JPRB,4.4695E-01_JPRB,8.0232E-01_JPRB,1.1226E+00_JPRB,1.4103E+00_JPRB,1.6623E+00_JPRB,&
1482
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8647E+00_JPRB,1.9976E+00_JPRB,1.3169E+01_JPRB/)
1483 KAO( :, 2, 1, 8) = (/&
1484 & 7.9475E-02_JPRB,4.6155E-01_JPRB,8.2577E-01_JPRB,1.1515E+00_JPRB,1.4434E+00_JPRB,1.6972E+00_JPRB,&
1485
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8967E+00_JPRB,2.0110E+00_JPRB,1.2516E+01_JPRB/)
1486 KAO( :, 3, 1, 8) = (/&
1487 & 7.9284E-02_JPRB,4.7585E-01_JPRB,8.4839E-01_JPRB,1.1813E+00_JPRB,1.4771E+00_JPRB,1.7315E+00_JPRB,&
1488
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9304E+00_JPRB,2.0281E+00_JPRB,1.1933E+01_JPRB/)
1489 KAO( :, 4, 1, 8) = (/&
1490 & 8.0560E-02_JPRB,4.9019E-01_JPRB,8.7148E-01_JPRB,1.2102E+00_JPRB,1.5100E+00_JPRB,1.7671E+00_JPRB,&
1491
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9624E+00_JPRB,2.0460E+00_JPRB,1.1433E+01_JPRB/)
1492 KAO( :, 5, 1, 8) = (/&
1493 & 8.3397E-02_JPRB,5.0455E-01_JPRB,8.9392E-01_JPRB,1.2384E+00_JPRB,1.5426E+00_JPRB,1.7995E+00_JPRB,&
1494
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9927E+00_JPRB,2.0655E+00_JPRB,1.1063E+01_JPRB/)
1495 KAO( :, 1, 2, 8) = (/&
1496 & 6.6575E-02_JPRB,4.3479E-01_JPRB,7.7702E-01_JPRB,1.0845E+00_JPRB,1.3608E+00_JPRB,1.6027E+00_JPRB,&
1497
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7979E+00_JPRB,1.9533E+00_JPRB,1.1027E+01_JPRB/)
1498 KAO( :, 2, 2, 8) = (/&
1499 & 6.4692E-02_JPRB,4.5045E-01_JPRB,8.0204E-01_JPRB,1.1153E+00_JPRB,1.3951E+00_JPRB,1.6384E+00_JPRB,&
1500
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8309E+00_JPRB,1.9634E+00_JPRB,1.0460E+01_JPRB/)
1501 KAO( :, 3, 2, 8) = (/&
1502 & 6.3712E-02_JPRB,4.6604E-01_JPRB,8.2695E-01_JPRB,1.1467E+00_JPRB,1.4311E+00_JPRB,1.6740E+00_JPRB,&
1503
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8639E+00_JPRB,1.9755E+00_JPRB,9.9574E+00_JPRB/)
1504 KAO( :, 4, 2, 8) = (/&
1505 & 6.3793E-02_JPRB,4.8171E-01_JPRB,8.5176E-01_JPRB,1.1782E+00_JPRB,1.4648E+00_JPRB,1.7096E+00_JPRB,&
1506
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8945E+00_JPRB,1.9900E+00_JPRB,9.5122E+00_JPRB/)
1507 KAO( :, 5, 2, 8) = (/&
1508 & 6.5076E-02_JPRB,4.9750E-01_JPRB,8.7656E-01_JPRB,1.2084E+00_JPRB,1.4992E+00_JPRB,1.7428E+00_JPRB,&
1509
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.9259E+00_JPRB,2.0066E+00_JPRB,9.1382E+00_JPRB/)
1510 KAO( :, 1, 3, 8) = (/&
1511 & 5.5145E-02_JPRB,4.1677E-01_JPRB,7.4511E-01_JPRB,1.0407E+00_JPRB,1.3075E+00_JPRB,1.5427E+00_JPRB,&
1512
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7389E+00_JPRB,1.9204E+00_JPRB,9.3514E+00_JPRB/)
1513 KAO( :, 2, 3, 8) = (/&
1514 & 5.2833E-02_JPRB,4.3270E-01_JPRB,7.7006E-01_JPRB,1.0719E+00_JPRB,1.3419E+00_JPRB,1.5776E+00_JPRB,&
1515
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7672E+00_JPRB,1.9272E+00_JPRB,8.8440E+00_JPRB/)
1516 KAO( :, 3, 3, 8) = (/&
1517 & 5.1113E-02_JPRB,4.4882E-01_JPRB,7.9562E-01_JPRB,1.1025E+00_JPRB,1.3760E+00_JPRB,1.6125E+00_JPRB,&
1518
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7982E+00_JPRB,1.9366E+00_JPRB,8.3935E+00_JPRB/)
1519 KAO( :, 4, 3, 8) = (/&
1520 & 5.0028E-02_JPRB,4.6513E-01_JPRB,8.2062E-01_JPRB,1.1341E+00_JPRB,1.4094E+00_JPRB,1.6457E+00_JPRB,&
1521
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8296E+00_JPRB,1.9485E+00_JPRB,7.9906E+00_JPRB/)
1522 KAO( :, 5, 3, 8) = (/&
1523 & 4.9686E-02_JPRB,4.8163E-01_JPRB,8.4610E-01_JPRB,1.1641E+00_JPRB,1.4433E+00_JPRB,1.6796E+00_JPRB,&
1524
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.8613E+00_JPRB,1.9622E+00_JPRB,7.6298E+00_JPRB/)
1525 KAO( :, 1, 4, 8) = (/&
1526 & 4.6588E-02_JPRB,3.9692E-01_JPRB,7.1203E-01_JPRB,9.9677E-01_JPRB,1.2538E+00_JPRB,1.4779E+00_JPRB,&
1527
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6775E+00_JPRB,1.8726E+00_JPRB,7.9787E+00_JPRB/)
1528 KAO( :, 2, 4, 8) = (/&
1529 & 4.4258E-02_JPRB,4.1229E-01_JPRB,7.3599E-01_JPRB,1.0269E+00_JPRB,1.2877E+00_JPRB,1.5133E+00_JPRB,&
1530
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7010E+00_JPRB,1.8766E+00_JPRB,7.5234E+00_JPRB/)
1531 KAO( :, 3, 4, 8) = (/&
1532 & 4.2368E-02_JPRB,4.2843E-01_JPRB,7.6079E-01_JPRB,1.0562E+00_JPRB,1.3204E+00_JPRB,1.5488E+00_JPRB,&
1533
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7282E+00_JPRB,1.8838E+00_JPRB,7.1193E+00_JPRB/)
1534 KAO( :, 4, 4, 8) = (/&
1535 & 4.0943E-02_JPRB,4.4462E-01_JPRB,7.8470E-01_JPRB,1.0862E+00_JPRB,1.3538E+00_JPRB,1.5826E+00_JPRB,&
1536
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7585E+00_JPRB,1.8945E+00_JPRB,6.7587E+00_JPRB/)
1537 KAO( :, 5, 4, 8) = (/&
1538 & 4.0040E-02_JPRB,4.6133E-01_JPRB,8.0984E-01_JPRB,1.1157E+00_JPRB,1.3860E+00_JPRB,1.6174E+00_JPRB,&
1539
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.7900E+00_JPRB,1.9072E+00_JPRB,6.4359E+00_JPRB/)
1540 KAO( :, 1, 5, 8) = (/&
1541 & 3.9526E-02_JPRB,3.7682E-01_JPRB,6.7689E-01_JPRB,9.4443E-01_JPRB,1.1824E+00_JPRB,1.3941E+00_JPRB,&
1542
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5967E+00_JPRB,1.7951E+00_JPRB,6.8177E+00_JPRB/)
1543 KAO( :, 2, 5, 8) = (/&
1544 & 3.7399E-02_JPRB,3.9138E-01_JPRB,7.0025E-01_JPRB,9.7513E-01_JPRB,1.2184E+00_JPRB,1.4257E+00_JPRB,&
1545
2/2
✓ Branch 0 taken 9 times.
✓ Branch 1 taken 1 times.
10 & 1.6138E+00_JPRB,1.7967E+00_JPRB,6.4101E+00_JPRB/)
1546
1547
1/2
✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
1 IF (LHOOK) CALL DR_HOOK('RRTM_KGB15: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_KGB15:PART6',0,ZHOOK_HANDLE)
1555
1556
1557 KAO( :, 3, 5, 8) = (/&
1558 & 3.5621E-02_JPRB,4.0679E-01_JPRB,7.2414E-01_JPRB,1.0055E+00_JPRB,1.2524E+00_JPRB,1.4609E+00_JPRB,&
1559
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6366E+00_JPRB,1.8029E+00_JPRB,6.0506E+00_JPRB/)
1560 KAO( :, 4, 5, 8) = (/&
1561 & 3.4188E-02_JPRB,4.2215E-01_JPRB,7.4791E-01_JPRB,1.0353E+00_JPRB,1.2879E+00_JPRB,1.4982E+00_JPRB,&
1562
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6647E+00_JPRB,1.8130E+00_JPRB,5.7295E+00_JPRB/)
1563 KAO( :, 5, 5, 8) = (/&
1564 & 3.3152E-02_JPRB,4.3822E-01_JPRB,7.7182E-01_JPRB,1.0659E+00_JPRB,1.3217E+00_JPRB,1.5355E+00_JPRB,&
1565
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.6945E+00_JPRB,1.8268E+00_JPRB,5.4423E+00_JPRB/)
1566 KAO( :, 1, 6, 8) = (/&
1567 & 3.3649E-02_JPRB,3.5246E-01_JPRB,6.2833E-01_JPRB,8.7232E-01_JPRB,1.0890E+00_JPRB,1.2936E+00_JPRB,&
1568
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4963E+00_JPRB,1.6916E+00_JPRB,5.8468E+00_JPRB/)
1569 KAO( :, 2, 6, 8) = (/&
1570 & 3.1717E-02_JPRB,3.6739E-01_JPRB,6.5289E-01_JPRB,9.0324E-01_JPRB,1.1228E+00_JPRB,1.3194E+00_JPRB,&
1571
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5082E+00_JPRB,1.6913E+00_JPRB,5.4809E+00_JPRB/)
1572 KAO( :, 3, 6, 8) = (/&
1573 & 3.0089E-02_JPRB,3.8258E-01_JPRB,6.7739E-01_JPRB,9.3533E-01_JPRB,1.1590E+00_JPRB,1.3502E+00_JPRB,&
1574
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5266E+00_JPRB,1.6967E+00_JPRB,5.1581E+00_JPRB/)
1575 KAO( :, 4, 6, 8) = (/&
1576 & 2.8750E-02_JPRB,3.9797E-01_JPRB,7.0274E-01_JPRB,9.6682E-01_JPRB,1.1958E+00_JPRB,1.3860E+00_JPRB,&
1577
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5502E+00_JPRB,1.7067E+00_JPRB,4.8739E+00_JPRB/)
1578 KAO( :, 5, 6, 8) = (/&
1579 & 2.7719E-02_JPRB,4.1340E-01_JPRB,7.2752E-01_JPRB,9.9958E-01_JPRB,1.2327E+00_JPRB,1.4235E+00_JPRB,&
1580
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.5795E+00_JPRB,1.7225E+00_JPRB,4.6250E+00_JPRB/)
1581 KAO( :, 1, 7, 8) = (/&
1582 & 2.8686E-02_JPRB,3.2127E-01_JPRB,5.6887E-01_JPRB,7.8697E-01_JPRB,9.8824E-01_JPRB,1.1850E+00_JPRB,&
1583
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3805E+00_JPRB,1.5678E+00_JPRB,5.0771E+00_JPRB/)
1584 KAO( :, 2, 7, 8) = (/&
1585 & 2.6938E-02_JPRB,3.3637E-01_JPRB,5.9372E-01_JPRB,8.1756E-01_JPRB,1.0158E+00_JPRB,1.2031E+00_JPRB,&
1586
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3885E+00_JPRB,1.5659E+00_JPRB,4.7449E+00_JPRB/)
1587 KAO( :, 3, 7, 8) = (/&
1588 & 2.5461E-02_JPRB,3.5175E-01_JPRB,6.1823E-01_JPRB,8.4914E-01_JPRB,1.0491E+00_JPRB,1.2297E+00_JPRB,&
1589
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4035E+00_JPRB,1.5709E+00_JPRB,4.4560E+00_JPRB/)
1590 KAO( :, 4, 7, 8) = (/&
1591 & 2.4234E-02_JPRB,3.6782E-01_JPRB,6.4422E-01_JPRB,8.8204E-01_JPRB,1.0858E+00_JPRB,1.2613E+00_JPRB,&
1592
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4250E+00_JPRB,1.5825E+00_JPRB,4.2060E+00_JPRB/)
1593 KAO( :, 5, 7, 8) = (/&
1594 & 2.3263E-02_JPRB,3.8390E-01_JPRB,6.7021E-01_JPRB,9.1556E-01_JPRB,1.1251E+00_JPRB,1.2988E+00_JPRB,&
1595
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.4532E+00_JPRB,1.6007E+00_JPRB,3.9900E+00_JPRB/)
1596 KAO( :, 1, 8, 8) = (/&
1597 & 2.4476E-02_JPRB,2.8592E-01_JPRB,5.0420E-01_JPRB,6.9822E-01_JPRB,8.8452E-01_JPRB,1.0702E+00_JPRB,&
1598
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2531E+00_JPRB,1.4283E+00_JPRB,4.5096E+00_JPRB/)
1599 KAO( :, 2, 8, 8) = (/&
1600 & 2.2902E-02_JPRB,3.0083E-01_JPRB,5.2768E-01_JPRB,7.2503E-01_JPRB,9.0657E-01_JPRB,1.0833E+00_JPRB,&
1601
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2584E+00_JPRB,1.4254E+00_JPRB,4.2037E+00_JPRB/)
1602 KAO( :, 3, 8, 8) = (/&
1603 & 2.1570E-02_JPRB,3.1592E-01_JPRB,5.5240E-01_JPRB,7.5563E-01_JPRB,9.3505E-01_JPRB,1.1044E+00_JPRB,&
1604
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2718E+00_JPRB,1.4312E+00_JPRB,3.9432E+00_JPRB/)
1605 KAO( :, 4, 8, 8) = (/&
1606 & 2.0460E-02_JPRB,3.3184E-01_JPRB,5.7760E-01_JPRB,7.8855E-01_JPRB,9.6959E-01_JPRB,1.1343E+00_JPRB,&
1607
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.2935E+00_JPRB,1.4455E+00_JPRB,3.7209E+00_JPRB/)
1608 KAO( :, 5, 8, 8) = (/&
1609 & 1.9571E-02_JPRB,3.4825E-01_JPRB,6.0453E-01_JPRB,8.2286E-01_JPRB,1.0085E+00_JPRB,1.1703E+00_JPRB,&
1610
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.3222E+00_JPRB,1.4674E+00_JPRB,3.5292E+00_JPRB/)
1611 KAO( :, 1, 9, 8) = (/&
1612 & 2.0914E-02_JPRB,2.4921E-01_JPRB,4.3781E-01_JPRB,6.1146E-01_JPRB,7.8268E-01_JPRB,9.5318E-01_JPRB,&
1613
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1204E+00_JPRB,1.2813E+00_JPRB,3.9890E+00_JPRB/)
1614 KAO( :, 2, 9, 8) = (/&
1615 & 1.9500E-02_JPRB,2.6300E-01_JPRB,4.5963E-01_JPRB,6.3281E-01_JPRB,7.9816E-01_JPRB,9.6251E-01_JPRB,&
1616
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1241E+00_JPRB,1.2781E+00_JPRB,3.7129E+00_JPRB/)
1617 KAO( :, 3, 9, 8) = (/&
1618 & 1.8305E-02_JPRB,2.7783E-01_JPRB,4.8302E-01_JPRB,6.5998E-01_JPRB,8.2260E-01_JPRB,9.8070E-01_JPRB,&
1619
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1371E+00_JPRB,1.2855E+00_JPRB,3.4817E+00_JPRB/)
1620 KAO( :, 4, 9, 8) = (/&
1621 & 1.7310E-02_JPRB,2.9315E-01_JPRB,5.0848E-01_JPRB,6.9210E-01_JPRB,8.5443E-01_JPRB,1.0078E+00_JPRB,&
1622
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1591E+00_JPRB,1.3024E+00_JPRB,3.2848E+00_JPRB/)
1623 KAO( :, 5, 9, 8) = (/&
1624 & 1.6510E-02_JPRB,3.0981E-01_JPRB,5.3550E-01_JPRB,7.2742E-01_JPRB,8.9223E-01_JPRB,1.0429E+00_JPRB,&
1625
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.1888E+00_JPRB,1.3273E+00_JPRB,3.1158E+00_JPRB/)
1626 KAO( :, 1,10, 8) = (/&
1627 & 1.7793E-02_JPRB,2.1412E-01_JPRB,3.7675E-01_JPRB,5.3142E-01_JPRB,6.8591E-01_JPRB,8.3908E-01_JPRB,&
1628
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.8911E-01_JPRB,1.1340E+00_JPRB,3.5109E+00_JPRB/)
1629 KAO( :, 2,10, 8) = (/&
1630 & 1.6546E-02_JPRB,2.2684E-01_JPRB,3.9518E-01_JPRB,5.4826E-01_JPRB,6.9777E-01_JPRB,8.4666E-01_JPRB,&
1631
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.9261E-01_JPRB,1.1322E+00_JPRB,3.2650E+00_JPRB/)
1632 KAO( :, 3,10, 8) = (/&
1633 & 1.5496E-02_JPRB,2.4055E-01_JPRB,4.1757E-01_JPRB,5.7218E-01_JPRB,7.1874E-01_JPRB,8.6407E-01_JPRB,&
1634
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0067E+00_JPRB,1.1422E+00_JPRB,3.0604E+00_JPRB/)
1635 KAO( :, 4,10, 8) = (/&
1636 & 1.4625E-02_JPRB,2.5576E-01_JPRB,4.4224E-01_JPRB,6.0209E-01_JPRB,7.4840E-01_JPRB,8.9005E-01_JPRB,&
1637
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0298E+00_JPRB,1.1620E+00_JPRB,2.8873E+00_JPRB/)
1638 KAO( :, 5,10, 8) = (/&
1639 & 1.3927E-02_JPRB,2.7189E-01_JPRB,4.6913E-01_JPRB,6.3661E-01_JPRB,7.8430E-01_JPRB,9.2340E-01_JPRB,&
1640
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 1.0602E+00_JPRB,1.1893E+00_JPRB,2.7412E+00_JPRB/)
1641 KAO( :, 1,11, 8) = (/&
1642 & 1.4634E-02_JPRB,1.8646E-01_JPRB,3.2761E-01_JPRB,4.6309E-01_JPRB,5.9849E-01_JPRB,7.3245E-01_JPRB,&
1643
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.6367E-01_JPRB,9.9041E-01_JPRB,2.9771E+00_JPRB/)
1644 KAO( :, 2,11, 8) = (/&
1645 & 1.3624E-02_JPRB,1.9847E-01_JPRB,3.4526E-01_JPRB,4.8008E-01_JPRB,6.1254E-01_JPRB,7.4424E-01_JPRB,&
1646
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.7321E-01_JPRB,9.9642E-01_JPRB,2.7768E+00_JPRB/)
1647 KAO( :, 3,11, 8) = (/&
1648 & 1.2781E-02_JPRB,2.1218E-01_JPRB,3.6739E-01_JPRB,5.0421E-01_JPRB,6.3507E-01_JPRB,7.6517E-01_JPRB,&
1649
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 8.9263E-01_JPRB,1.0135E+00_JPRB,2.6101E+00_JPRB/)
1650 KAO( :, 4,11, 8) = (/&
1651 & 1.2094E-02_JPRB,2.2714E-01_JPRB,3.9240E-01_JPRB,5.3424E-01_JPRB,6.6566E-01_JPRB,7.9378E-01_JPRB,&
1652
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.1970E-01_JPRB,1.0385E+00_JPRB,2.4710E+00_JPRB/)
1653 KAO( :, 5,11, 8) = (/&
1654 & 1.1565E-02_JPRB,2.4340E-01_JPRB,4.1903E-01_JPRB,5.6803E-01_JPRB,7.0132E-01_JPRB,8.2803E-01_JPRB,&
1655
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 9.5252E-01_JPRB,1.0696E+00_JPRB,2.3570E+00_JPRB/)
1656 KAO( :, 1,12, 8) = (/&
1657 & 1.2066E-02_JPRB,1.6101E-01_JPRB,2.8340E-01_JPRB,4.0165E-01_JPRB,5.1974E-01_JPRB,6.3658E-01_JPRB,&
1658
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.5093E-01_JPRB,8.6137E-01_JPRB,2.5621E+00_JPRB/)
1659 KAO( :, 2,12, 8) = (/&
1660 & 1.1251E-02_JPRB,1.7279E-01_JPRB,3.0073E-01_JPRB,4.1913E-01_JPRB,5.3610E-01_JPRB,6.5212E-01_JPRB,&
1661
2/2
✓ Branch 0 taken 1 times.
✓ Branch 1 taken 9 times.
10 & 7.6558E-01_