LMDZ
rrtm_kgb8.F90
Go to the documentation of this file.
1 !OCL SCALAR
2 SUBROUTINE rrtm_kgb8
3 
4 ! Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
5 ! BAND 8: 1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
6 ! Reformatted for F90 by JJMorcrette, ECMWF
7 
8 ! ------------------------------------------------------------------
9 
10 #include "tsmbkind.h"
11 
12 USE yoerrto8 , ONLY : kao ,kbo ,selfrefo ,fracrefao ,&
13  &fracrefbo, cfc12o ,cfc22adjo ,absco2ao ,absco2bo ,&
14  &absn2oao , absn2obo
15 USE yoerrta8 , ONLY : h2oref ,n2oref ,o3ref
16 
17 ! ------------------------------------------------------------------
18 
19 
20 IMPLICIT NONE
21 fracrefao( :) = (/&
22 ! From P = 1053.6 mb.
23  &0.15309700_jprb,0.15450300_jprb,0.14458799_jprb,0.13098200_jprb,&
24  &0.11817900_jprb,0.09953490_jprb,0.08132080_jprb,0.06139960_jprb,&
25  &0.04132010_jprb,0.00446788_jprb,0.00372533_jprb,0.00294053_jprb,&
26  &0.00211371_jprb,0.00128122_jprb,0.00048050_jprb,0.00006759_jprb/)
27 
28 fracrefbo( :) = (/&
29 ! From P = 28.9 mb.
30  &0.14105400_jprb,0.14728899_jprb,0.14264800_jprb,0.13331699_jprb,&
31  &0.12034100_jprb,0.10467000_jprb,0.08574980_jprb,0.06469390_jprb,&
32  &0.04394640_jprb,0.00481284_jprb,0.00397375_jprb,0.00315006_jprb,&
33  &0.00228636_jprb,0.00144606_jprb,0.00054604_jprb,0.00007697_jprb/)
34 
35 cfc12o( :) = (/&
36  &85.4027_jprb, 89.4696_jprb, 74.0959_jprb, 67.7480_jprb,&
37  &61.2444_jprb, 59.9073_jprb, 60.8296_jprb, 63.0998_jprb,&
38  &59.6110_jprb, 64.0735_jprb, 57.2622_jprb, 58.9721_jprb,&
39  &43.5505_jprb, 26.1192_jprb, 32.7023_jprb, 32.8667_jprb/)
40 
41 ! Original CFC22 is multiplied by 1.485 to account for the 780-850 cm-1
42 ! and 1290-1335 cm-1 bands.
43 cfc22adjo( :) = (/&
44  &135.335_jprb, 89.6642_jprb, 76.2375_jprb, 65.9748_jprb,&
45  &63.1164_jprb, 60.2935_jprb, 64.0299_jprb, 75.4264_jprb,&
46  &51.3018_jprb, 7.07911_jprb, 5.86928_jprb, 0.398693_jprb,&
47  &2.82885_jprb, 9.12751_jprb, 6.28271_jprb, _zero_/)
48 
49 absco2ao( :) = (/&
50  &1.11233e-05_jprb, 3.92400e-05_jprb, 6.62059e-05_jprb, 8.51687e-05_jprb,&
51  &7.79035e-05_jprb, 1.34058e-04_jprb, 2.82553e-04_jprb, 5.41741e-04_jprb,&
52  &1.47029e-05_jprb, 2.34982e-05_jprb, 6.91094e-08_jprb, 8.48917e-08_jprb,&
53  &6.58783e-08_jprb, 4.64849e-08_jprb, 3.62742e-08_jprb, 3.62742e-08_jprb/)
54 
55 absco2bo( :) = (/&
56  &4.10977e-09_jprb, 5.65200e-08_jprb, 1.70800e-07_jprb, 4.16840e-07_jprb,&
57  &9.53684e-07_jprb, 2.36468e-06_jprb, 7.29502e-06_jprb, 4.93883e-05_jprb, &
58  &5.10440e-04_jprb, 9.75248e-04_jprb, 1.36495e-03_jprb, 2.40451e-03_jprb,&
59  &4.50277e-03_jprb, 2.24486e-02_jprb, 4.06756e-02_jprb, 2.17447e-10_jprb/)
60 
61 absn2oao( :) = (/&
62  &1.28527e-02_jprb,5.28651e-02_jprb,1.01668e-01_jprb,1.57224e-01_jprb,&
63  &2.76947e-01_jprb,4.93048e-01_jprb,6.71387e-01_jprb,3.48809e-01_jprb,&
64  &4.19840e-01_jprb,3.13558e-01_jprb,2.44432e-01_jprb,2.05108e-01_jprb,&
65  &1.21423e-01_jprb,1.22158e-01_jprb,1.49702e-01_jprb,1.47799e-01_jprb/)
66 
67 absn2obo( : ) = (/&
68  &3.15864e-03_jprb,4.87347e-03_jprb,8.63235e-03_jprb,2.16053e-02_jprb,&
69  &3.63699e-02_jprb,7.89149e-02_jprb,3.53807e-01_jprb,1.27140e-00_jprb,&
70  &2.31464e-00_jprb,7.75834e-02_jprb,5.15063e-02_jprb,4.07059e-02_jprb,&
71  &5.91947e-02_jprb,5.83546e-02_jprb,3.12716e-01_jprb,1.47456e-01_jprb/)
72 
73 h2oref( : ) = (/&
74  &1.87599e-02_jprb,1.22233e-02_jprb,5.89086e-03_jprb,2.76753e-03_jprb,1.40651e-03_jprb, &
75  &7.59698e-04_jprb,3.88758e-04_jprb,1.65422e-04_jprb,3.71895e-05_jprb,7.47648e-06_jprb, &
76  &4.30818e-06_jprb,3.33194e-06_jprb,3.20393e-06_jprb,3.16186e-06_jprb,3.25235e-06_jprb, &
77  &3.42258e-06_jprb,3.62884e-06_jprb,3.91482e-06_jprb,4.14875e-06_jprb,4.30810e-06_jprb,&
78  &4.44204e-06_jprb,4.57783e-06_jprb,4.70865e-06_jprb,4.79432e-06_jprb,4.86971e-06_jprb, &
79  &4.92603e-06_jprb,4.96688e-06_jprb,4.99628e-06_jprb,5.05266e-06_jprb,5.12658e-06_jprb, &
80  &5.25028e-06_jprb,5.35708e-06_jprb,5.45085e-06_jprb,5.48304e-06_jprb,5.50000e-06_jprb, &
81  &5.50000e-06_jprb,5.45359e-06_jprb,5.40468e-06_jprb,5.35576e-06_jprb,5.25327e-06_jprb,&
82  &5.14362e-06_jprb,5.03396e-06_jprb,4.87662e-06_jprb,4.69787e-06_jprb,4.51911e-06_jprb, &
83  &4.33600e-06_jprb,4.14416e-06_jprb,3.95232e-06_jprb,3.76048e-06_jprb,3.57217e-06_jprb, &
84  &3.38549e-06_jprb,3.19881e-06_jprb,3.01212e-06_jprb,2.82621e-06_jprb,2.64068e-06_jprb, &
85  &2.45515e-06_jprb,2.26962e-06_jprb,2.08659e-06_jprb,1.93029e-06_jprb/)
86 
87 n2oref( : ) = (/&
88  &3.20000e-07_jprb,3.20000e-07_jprb,3.20000e-07_jprb,3.20000e-07_jprb,3.20000e-07_jprb,&
89  &3.19652e-07_jprb,3.15324e-07_jprb,3.03830e-07_jprb,2.94221e-07_jprb,2.84953e-07_jprb,&
90  &2.76714e-07_jprb,2.64709e-07_jprb,2.42847e-07_jprb,2.09547e-07_jprb,1.71945e-07_jprb,&
91  &1.37491e-07_jprb,1.13319e-07_jprb,1.00354e-07_jprb,9.12812e-08_jprb,8.54633e-08_jprb,&
92  &8.03631e-08_jprb,7.33718e-08_jprb,6.59754e-08_jprb,5.60386e-08_jprb,4.70901e-08_jprb,&
93  &3.99774e-08_jprb,3.29786e-08_jprb,2.60642e-08_jprb,2.10663e-08_jprb,1.65918e-08_jprb,&
94  &1.30167e-08_jprb,1.00900e-08_jprb,7.62490e-09_jprb,6.11592e-09_jprb,4.66725e-09_jprb,&
95  &3.28574e-09_jprb,2.84838e-09_jprb,2.46198e-09_jprb,2.07557e-09_jprb,1.85507e-09_jprb,&
96  &1.65675e-09_jprb,1.45843e-09_jprb,1.31948e-09_jprb,1.20716e-09_jprb,1.09485e-09_jprb,&
97  &9.97803e-10_jprb,9.31260e-10_jprb,8.64721e-10_jprb,7.98181e-10_jprb,7.51380e-10_jprb,&
98  &7.13670e-10_jprb,6.75960e-10_jprb,6.38250e-10_jprb,6.09811e-10_jprb,5.85998e-10_jprb,&
99  &5.62185e-10_jprb,5.38371e-10_jprb,5.15183e-10_jprb,4.98660e-10_jprb/)
100 
101 o3ref( : ) = (/&
102  &3.01700e-08_jprb,3.47254e-08_jprb,4.24769e-08_jprb,5.27592e-08_jprb,6.69439e-08_jprb,&
103  &8.71295e-08_jprb,1.13911e-07_jprb,1.56771e-07_jprb,2.17878e-07_jprb,3.24430e-07_jprb,&
104  &4.65942e-07_jprb,5.68057e-07_jprb,6.96065e-07_jprb,1.11863e-06_jprb,1.76175e-06_jprb,&
105  &2.32689e-06_jprb,2.95769e-06_jprb,3.65930e-06_jprb,4.59503e-06_jprb,5.31891e-06_jprb,&
106  &5.96179e-06_jprb,6.51133e-06_jprb,7.06350e-06_jprb,7.69169e-06_jprb,8.25771e-06_jprb,&
107  &8.70824e-06_jprb,8.83245e-06_jprb,8.71486e-06_jprb,8.09434e-06_jprb,7.33071e-06_jprb,&
108  &6.31014e-06_jprb,5.36717e-06_jprb,4.48289e-06_jprb,3.83913e-06_jprb,3.28270e-06_jprb,&
109  &2.82351e-06_jprb,2.49061e-06_jprb,2.16453e-06_jprb,1.83845e-06_jprb,1.66182e-06_jprb,&
110  &1.50517e-06_jprb,1.34852e-06_jprb,1.19718e-06_jprb,1.04822e-06_jprb,8.99264e-07_jprb,&
111  &7.63432e-07_jprb,6.53806e-07_jprb,5.44186e-07_jprb,4.34564e-07_jprb,3.64210e-07_jprb,&
112  &3.11938e-07_jprb,2.59667e-07_jprb,2.07395e-07_jprb,1.91456e-07_jprb,1.93639e-07_jprb,&
113  &1.95821e-07_jprb,1.98004e-07_jprb,2.06442e-07_jprb,2.81546e-07_jprb/)
114 
115 ! ------------------------------------------------------------------
116 
117 ! The array KAO contains absorption coefs at the 16 chosen g-values
118 ! for a range of pressure levels > ~100mb and temperatures. The first
119 ! index in the array, JT, which runs from 1 to 5, corresponds to
120 ! different temperatures. More specifically, JT = 3 means that the
121 ! data are for the corresponding TREF for this pressure level,
122 ! JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30,
123 ! JT = 4 is for TREF+15, and JT = 5 is for TREF+30. The second
124 ! index, JP, runs from 1 to 13 and refers to the corresponding
125 ! pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).
126 ! The third index, IG, goes from 1 to 16, and tells us which
127 ! g-interval the absorption coefficients are for.
128 ! The array KA contains absorption coef5s at the 16 chosen g-values
129 ! for a range of pressure levels > ~100mb and temperatures. The first
130 ! index in the array, JT, which runs from 1 to 5, corresponds to
131 ! different temperatures. More specifically, JT = 3 means that the
132 ! data are for the cooresponding TREF for this pressure level,
133 ! JT = 2 refers to the temperature
134 ! TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
135 ! is for TREF+30. The second index, JP, runs from 1 to 13 and refers
136 ! to the corresponding pressure level in PREF (e.g. JP = 1 is for a
137 ! pressure of 1053.63 mb). The third index, IG, goes from 1 to 16,
138 ! and tells us which "g-channel" the absorption coefficients are for.
139 
140 kao( :, 1, 1) = (/&
141 &2.1306e-05_jprb,2.1950e-05_jprb,2.2884e-05_jprb,2.6732e-05_jprb,3.2377e-05_jprb/)
142 kao( :, 2, 1) = (/&
143 &1.6906e-05_jprb,1.6458e-05_jprb,1.8409e-05_jprb,2.2144e-05_jprb,2.7164e-05_jprb/)
144 kao( :, 3, 1) = (/&
145 &1.2302e-05_jprb,1.3298e-05_jprb,1.6211e-05_jprb,2.0006e-05_jprb,2.4357e-05_jprb/)
146 kao( :, 4, 1) = (/&
147 &1.0886e-05_jprb,1.3249e-05_jprb,1.6382e-05_jprb,2.0127e-05_jprb,2.4322e-05_jprb/)
148 kao( :, 5, 1) = (/&
149 &1.3888e-05_jprb,1.6517e-05_jprb,1.9596e-05_jprb,2.3121e-05_jprb,2.7167e-05_jprb/)
150 kao( :, 6, 1) = (/&
151 &2.0087e-05_jprb,2.2948e-05_jprb,2.6312e-05_jprb,3.0073e-05_jprb,3.4185e-05_jprb/)
152 kao( :, 7, 1) = (/&
153 &3.4572e-05_jprb,3.7732e-05_jprb,4.1567e-05_jprb,4.5943e-05_jprb,5.0800e-05_jprb/)
154 kao( :, 1, 2) = (/&
155 &2.9087e-05_jprb,2.7497e-05_jprb,3.3334e-05_jprb,4.2723e-05_jprb,5.3596e-05_jprb/)
156 kao( :, 2, 2) = (/&
157 &1.9679e-05_jprb,2.2356e-05_jprb,2.8322e-05_jprb,3.6379e-05_jprb,4.5664e-05_jprb/)
158 kao( :, 3, 2) = (/&
159 &1.6538e-05_jprb,2.0860e-05_jprb,2.6606e-05_jprb,3.3787e-05_jprb,4.2303e-05_jprb/)
160 kao( :, 4, 2) = (/&
161 &1.8682e-05_jprb,2.3553e-05_jprb,2.9503e-05_jprb,3.6225e-05_jprb,4.3839e-05_jprb/)
162 kao( :, 5, 2) = (/&
163 &2.4894e-05_jprb,3.0126e-05_jprb,3.6642e-05_jprb,4.4225e-05_jprb,5.2245e-05_jprb/)
164 kao( :, 6, 2) = (/&
165 &3.8317e-05_jprb,4.4010e-05_jprb,5.1169e-05_jprb,5.9798e-05_jprb,6.8990e-05_jprb/)
166 kao( :, 7, 2) = (/&
167 &6.8186e-05_jprb,7.5558e-05_jprb,8.3877e-05_jprb,9.3681e-05_jprb,1.0480e-04_jprb/)
168 kao( :, 1, 3) = (/&
169 &3.2064e-05_jprb,3.8954e-05_jprb,5.4094e-05_jprb,6.8453e-05_jprb,8.4647e-05_jprb/)
170 kao( :, 2, 3) = (/&
171 &2.6037e-05_jprb,3.4049e-05_jprb,4.5537e-05_jprb,5.7651e-05_jprb,7.1488e-05_jprb/)
172 kao( :, 3, 3) = (/&
173 &2.4129e-05_jprb,3.2489e-05_jprb,4.2214e-05_jprb,5.3481e-05_jprb,6.6486e-05_jprb/)
174 kao( :, 4, 3) = (/&
175 &2.8484e-05_jprb,3.6015e-05_jprb,4.5013e-05_jprb,5.6076e-05_jprb,6.9168e-05_jprb/)
176 kao( :, 5, 3) = (/&
177 &3.7982e-05_jprb,4.5941e-05_jprb,5.5480e-05_jprb,6.6761e-05_jprb,8.0178e-05_jprb/)
178 kao( :, 6, 3) = (/&
179 &5.8486e-05_jprb,6.7090e-05_jprb,7.7118e-05_jprb,8.8876e-05_jprb,1.0336e-04_jprb/)
180 kao( :, 7, 3) = (/&
181 &1.0488e-04_jprb,1.1540e-04_jprb,1.2822e-04_jprb,1.4297e-04_jprb,1.5988e-04_jprb/)
182 kao( :, 1, 4) = (/&
183 &4.3432e-05_jprb,6.9197e-05_jprb,8.9433e-05_jprb,1.1259e-04_jprb,1.3904e-04_jprb/)
184 kao( :, 2, 4) = (/&
185 &4.1381e-05_jprb,5.9002e-05_jprb,7.4659e-05_jprb,9.2971e-05_jprb,1.1449e-04_jprb/)
186 kao( :, 3, 4) = (/&
187 &4.1382e-05_jprb,5.3805e-05_jprb,6.7661e-05_jprb,8.4186e-05_jprb,1.0415e-04_jprb/)
188 kao( :, 4, 4) = (/&
189 &4.4469e-05_jprb,5.5300e-05_jprb,6.8920e-05_jprb,8.5387e-05_jprb,1.0542e-04_jprb/)
190 kao( :, 5, 4) = (/&
191 &5.7483e-05_jprb,6.8364e-05_jprb,8.1508e-05_jprb,9.7560e-05_jprb,1.1744e-04_jprb/)
192 kao( :, 6, 4) = (/&
193 &8.5034e-05_jprb,9.7144e-05_jprb,1.1137e-04_jprb,1.2836e-04_jprb,1.4879e-04_jprb/)
194 kao( :, 7, 4) = (/&
195 &1.4995e-04_jprb,1.6384e-04_jprb,1.8060e-04_jprb,2.0120e-04_jprb,2.2497e-04_jprb/)
196 kao( :, 1, 5) = (/&
197 &8.9308e-05_jprb,1.2026e-04_jprb,1.5456e-04_jprb,1.9463e-04_jprb,2.4183e-04_jprb/)
198 kao( :, 2, 5) = (/&
199 &7.5125e-05_jprb,9.9141e-05_jprb,1.2691e-04_jprb,1.6010e-04_jprb,1.9928e-04_jprb/)
200 kao( :, 3, 5) = (/&
201 &7.0124e-05_jprb,8.9385e-05_jprb,1.1201e-04_jprb,1.3854e-04_jprb,1.6993e-04_jprb/)
202 kao( :, 4, 5) = (/&
203 &7.3552e-05_jprb,9.0337e-05_jprb,1.1055e-04_jprb,1.3609e-04_jprb,1.6764e-04_jprb/)
204 kao( :, 5, 5) = (/&
205 &8.7943e-05_jprb,1.0388e-04_jprb,1.2401e-04_jprb,1.4993e-04_jprb,1.8142e-04_jprb/)
206 kao( :, 6, 5) = (/&
207 &1.2136e-04_jprb,1.3842e-04_jprb,1.6040e-04_jprb,1.8635e-04_jprb,2.1779e-04_jprb/)
208 kao( :, 7, 5) = (/&
209 &2.0763e-04_jprb,2.2758e-04_jprb,2.5254e-04_jprb,2.8218e-04_jprb,3.1966e-04_jprb/)
210 kao( :, 1, 6) = (/&
211 &1.6837e-04_jprb,2.2104e-04_jprb,2.8135e-04_jprb,3.5251e-04_jprb,4.3572e-04_jprb/)
212 kao( :, 2, 6) = (/&
213 &1.3574e-04_jprb,1.7723e-04_jprb,2.2754e-04_jprb,2.8744e-04_jprb,3.5879e-04_jprb/)
214 kao( :, 3, 6) = (/&
215 &1.2293e-04_jprb,1.5476e-04_jprb,1.9352e-04_jprb,2.4145e-04_jprb,2.9987e-04_jprb/)
216 kao( :, 4, 6) = (/&
217 &1.2596e-04_jprb,1.5619e-04_jprb,1.9248e-04_jprb,2.3477e-04_jprb,2.8394e-04_jprb/)
218 kao( :, 5, 6) = (/&
219 &1.4080e-04_jprb,1.6980e-04_jprb,2.0518e-04_jprb,2.4743e-04_jprb,2.9907e-04_jprb/)
220 kao( :, 6, 6) = (/&
221 &1.8164e-04_jprb,2.0870e-04_jprb,2.4256e-04_jprb,2.8705e-04_jprb,3.4263e-04_jprb/)
222 kao( :, 7, 6) = (/&
223 &2.9186e-04_jprb,3.2585e-04_jprb,3.6846e-04_jprb,4.2036e-04_jprb,4.8155e-04_jprb/)
224 kao( :, 1, 7) = (/&
225 &3.8706e-04_jprb,4.9892e-04_jprb,6.2866e-04_jprb,7.7583e-04_jprb,9.4184e-04_jprb/)
226 kao( :, 2, 7) = (/&
227 &2.9924e-04_jprb,3.8940e-04_jprb,4.9426e-04_jprb,6.1428e-04_jprb,7.5278e-04_jprb/)
228 kao( :, 3, 7) = (/&
229 &2.3352e-04_jprb,3.0489e-04_jprb,3.9204e-04_jprb,4.9500e-04_jprb,6.1630e-04_jprb/)
230 kao( :, 4, 7) = (/&
231 &2.3587e-04_jprb,2.9262e-04_jprb,3.5911e-04_jprb,4.3910e-04_jprb,5.3846e-04_jprb/)
232 kao( :, 5, 7) = (/&
233 &2.6327e-04_jprb,3.2005e-04_jprb,3.8792e-04_jprb,4.6619e-04_jprb,5.5730e-04_jprb/)
234 kao( :, 6, 7) = (/&
235 &3.1398e-04_jprb,3.7118e-04_jprb,4.4079e-04_jprb,5.2291e-04_jprb,6.1919e-04_jprb/)
236 kao( :, 7, 7) = (/&
237 &4.6137e-04_jprb,5.1993e-04_jprb,5.9097e-04_jprb,6.8096e-04_jprb,7.9254e-04_jprb/)
238 kao( :, 1, 8) = (/&
239 &1.1958e-03_jprb,1.5395e-03_jprb,1.9263e-03_jprb,2.3597e-03_jprb,2.8416e-03_jprb/)
240 kao( :, 2, 8) = (/&
241 &9.2007e-04_jprb,1.1952e-03_jprb,1.5105e-03_jprb,1.8694e-03_jprb,2.2724e-03_jprb/)
242 kao( :, 3, 8) = (/&
243 &6.7202e-04_jprb,8.8335e-04_jprb,1.1326e-03_jprb,1.4229e-03_jprb,1.7568e-03_jprb/)
244 kao( :, 4, 8) = (/&
245 &5.3231e-04_jprb,6.9102e-04_jprb,8.9625e-04_jprb,1.1508e-03_jprb,1.4534e-03_jprb/)
246 kao( :, 5, 8) = (/&
247 &5.8927e-04_jprb,7.1310e-04_jprb,8.6254e-04_jprb,1.0581e-03_jprb,1.3073e-03_jprb/)
248 kao( :, 6, 8) = (/&
249 &7.1594e-04_jprb,8.4919e-04_jprb,1.0061e-03_jprb,1.1903e-03_jprb,1.4091e-03_jprb/)
250 kao( :, 7, 8) = (/&
251 &9.6332e-04_jprb,1.1098e-03_jprb,1.2830e-03_jprb,1.4872e-03_jprb,1.7311e-03_jprb/)
252 kao( :, 1, 9) = (/&
253 &4.1727e-03_jprb,5.4973e-03_jprb,7.0377e-03_jprb,8.7943e-03_jprb,1.0731e-02_jprb/)
254 kao( :, 2, 9) = (/&
255 &3.6273e-03_jprb,4.8260e-03_jprb,6.2243e-03_jprb,7.8057e-03_jprb,9.5531e-03_jprb/)
256 kao( :, 3, 9) = (/&
257 &2.9023e-03_jprb,3.9253e-03_jprb,5.1247e-03_jprb,6.4834e-03_jprb,7.9956e-03_jprb/)
258 kao( :, 4, 9) = (/&
259 &2.2487e-03_jprb,3.0840e-03_jprb,4.0791e-03_jprb,5.2274e-03_jprb,6.5148e-03_jprb/)
260 kao( :, 5, 9) = (/&
261 &1.7798e-03_jprb,2.4327e-03_jprb,3.2625e-03_jprb,4.2482e-03_jprb,5.3864e-03_jprb/)
262 kao( :, 6, 9) = (/&
263 &1.8001e-03_jprb,2.2379e-03_jprb,2.8537e-03_jprb,3.6632e-03_jprb,4.6821e-03_jprb/)
264 kao( :, 7, 9) = (/&
265 &2.5147e-03_jprb,2.9224e-03_jprb,3.4442e-03_jprb,4.0760e-03_jprb,4.9201e-03_jprb/)
266 kao( :, 1,10) = (/&
267 &8.6270e-03_jprb,1.1144e-02_jprb,1.4435e-02_jprb,1.8416e-02_jprb,2.3138e-02_jprb/)
268 kao( :, 2,10) = (/&
269 &8.0326e-03_jprb,1.0542e-02_jprb,1.3830e-02_jprb,1.7772e-02_jprb,2.2459e-02_jprb/)
270 kao( :, 3,10) = (/&
271 &6.9631e-03_jprb,9.2657e-03_jprb,1.2368e-02_jprb,1.6195e-02_jprb,2.0590e-02_jprb/)
272 kao( :, 4,10) = (/&
273 &5.6928e-03_jprb,7.8298e-03_jprb,1.0719e-02_jprb,1.4129e-02_jprb,1.8068e-02_jprb/)
274 kao( :, 5,10) = (/&
275 &4.6297e-03_jprb,6.4732e-03_jprb,8.9852e-03_jprb,1.2076e-02_jprb,1.5694e-02_jprb/)
276 kao( :, 6,10) = (/&
277 &3.6660e-03_jprb,5.2377e-03_jprb,7.3525e-03_jprb,9.9709e-03_jprb,1.3092e-02_jprb/)
278 kao( :, 7,10) = (/&
279 &4.5886e-03_jprb,5.1723e-03_jprb,6.2981e-03_jprb,8.7864e-03_jprb,1.2005e-02_jprb/)
280 kao( :, 1,11) = (/&
281 &1.1588e-02_jprb,1.5525e-02_jprb,1.9979e-02_jprb,2.5226e-02_jprb,3.1634e-02_jprb/)
282 kao( :, 2,11) = (/&
283 &1.0684e-02_jprb,1.4204e-02_jprb,1.8270e-02_jprb,2.3355e-02_jprb,2.9653e-02_jprb/)
284 kao( :, 3,11) = (/&
285 &9.3411e-03_jprb,1.2473e-02_jprb,1.6164e-02_jprb,2.0880e-02_jprb,2.6874e-02_jprb/)
286 kao( :, 4,11) = (/&
287 &7.9944e-03_jprb,1.0851e-02_jprb,1.4275e-02_jprb,1.8869e-02_jprb,2.4580e-02_jprb/)
288 kao( :, 5,11) = (/&
289 &6.6337e-03_jprb,9.2604e-03_jprb,1.2443e-02_jprb,1.6670e-02_jprb,2.2008e-02_jprb/)
290 kao( :, 6,11) = (/&
291 &5.3432e-03_jprb,7.6067e-03_jprb,1.0484e-02_jprb,1.4403e-02_jprb,1.9210e-02_jprb/)
292 kao( :, 7,11) = (/&
293 &5.2399e-03_jprb,6.3294e-03_jprb,8.7446e-03_jprb,1.2290e-02_jprb,1.7005e-02_jprb/)
294 kao( :, 1,12) = (/&
295 &1.8590e-02_jprb,2.3597e-02_jprb,2.9609e-02_jprb,3.6637e-02_jprb,4.4785e-02_jprb/)
296 kao( :, 2,12) = (/&
297 &1.5975e-02_jprb,2.1048e-02_jprb,2.7310e-02_jprb,3.4824e-02_jprb,4.3138e-02_jprb/)
298 kao( :, 3,12) = (/&
299 &1.3265e-02_jprb,1.8239e-02_jprb,2.4452e-02_jprb,3.1517e-02_jprb,3.9669e-02_jprb/)
300 kao( :, 4,12) = (/&
301 &1.1138e-02_jprb,1.5596e-02_jprb,2.1071e-02_jprb,2.7401e-02_jprb,3.4980e-02_jprb/)
302 kao( :, 5,12) = (/&
303 &9.5074e-03_jprb,1.3466e-02_jprb,1.8276e-02_jprb,2.3939e-02_jprb,3.0805e-02_jprb/)
304 kao( :, 6,12) = (/&
305 &7.9557e-03_jprb,1.1512e-02_jprb,1.5826e-02_jprb,2.0932e-02_jprb,2.7410e-02_jprb/)
306 kao( :, 7,12) = (/&
307 &6.5226e-03_jprb,9.6301e-03_jprb,1.3559e-02_jprb,1.8314e-02_jprb,2.4403e-02_jprb/)
308 kao( :, 1,13) = (/&
309 &3.3867e-02_jprb,4.3721e-02_jprb,5.4904e-02_jprb,6.6992e-02_jprb,7.9770e-02_jprb/)
310 kao( :, 2,13) = (/&
311 &3.1901e-02_jprb,4.1423e-02_jprb,5.1954e-02_jprb,6.3307e-02_jprb,7.6026e-02_jprb/)
312 kao( :, 3,13) = (/&
313 &2.7060e-02_jprb,3.5456e-02_jprb,4.4891e-02_jprb,5.5833e-02_jprb,6.8298e-02_jprb/)
314 kao( :, 4,13) = (/&
315 &2.1596e-02_jprb,2.8962e-02_jprb,3.7686e-02_jprb,4.8052e-02_jprb,6.0217e-02_jprb/)
316 kao( :, 5,13) = (/&
317 &1.6874e-02_jprb,2.3280e-02_jprb,3.1365e-02_jprb,4.1278e-02_jprb,5.3126e-02_jprb/)
318 kao( :, 6,13) = (/&
319 &1.3063e-02_jprb,1.8582e-02_jprb,2.5843e-02_jprb,3.5011e-02_jprb,4.6230e-02_jprb/)
320 kao( :, 7,13) = (/&
321 &1.0425e-02_jprb,1.5209e-02_jprb,2.1684e-02_jprb,3.0071e-02_jprb,4.0394e-02_jprb/)
322 kao( :, 1,14) = (/&
323 &6.7724e-02_jprb,8.4655e-02_jprb,1.0308e-01_jprb,1.2311e-01_jprb,1.4477e-01_jprb/)
324 kao( :, 2,14) = (/&
325 &6.5011e-02_jprb,8.2552e-02_jprb,1.0230e-01_jprb,1.2414e-01_jprb,1.4787e-01_jprb/)
326 kao( :, 3,14) = (/&
327 &5.8480e-02_jprb,7.6209e-02_jprb,9.6519e-02_jprb,1.1921e-01_jprb,1.4411e-01_jprb/)
328 kao( :, 4,14) = (/&
329 &5.0538e-02_jprb,6.7706e-02_jprb,8.7706e-02_jprb,1.1039e-01_jprb,1.3557e-01_jprb/)
330 kao( :, 5,14) = (/&
331 &4.2513e-02_jprb,5.8604e-02_jprb,7.7718e-02_jprb,9.9786e-02_jprb,1.2457e-01_jprb/)
332 kao( :, 6,14) = (/&
333 &3.4330e-02_jprb,4.8876e-02_jprb,6.6577e-02_jprb,8.7405e-02_jprb,1.1118e-01_jprb/)
334 kao( :, 7,14) = (/&
335 &2.6895e-02_jprb,3.9673e-02_jprb,5.5652e-02_jprb,7.4888e-02_jprb,9.7567e-02_jprb/)
336 kao( :, 1,15) = (/&
337 &1.0185e-01_jprb,1.3012e-01_jprb,1.6176e-01_jprb,1.9624e-01_jprb,2.3332e-01_jprb/)
338 kao( :, 2,15) = (/&
339 &1.1155e-01_jprb,1.4413e-01_jprb,1.8079e-01_jprb,2.2100e-01_jprb,2.6440e-01_jprb/)
340 kao( :, 3,15) = (/&
341 &1.1383e-01_jprb,1.4981e-01_jprb,1.9079e-01_jprb,2.3617e-01_jprb,2.8542e-01_jprb/)
342 kao( :, 4,15) = (/&
343 &1.1063e-01_jprb,1.4879e-01_jprb,1.9288e-01_jprb,2.4229e-01_jprb,2.9650e-01_jprb/)
344 kao( :, 5,15) = (/&
345 &1.0438e-01_jprb,1.4376e-01_jprb,1.8985e-01_jprb,2.4227e-01_jprb,3.0021e-01_jprb/)
346 kao( :, 6,15) = (/&
347 &9.4497e-02_jprb,1.3374e-01_jprb,1.8056e-01_jprb,2.3453e-01_jprb,2.9486e-01_jprb/)
348 kao( :, 7,15) = (/&
349 &8.2957e-02_jprb,1.2094e-01_jprb,1.6723e-01_jprb,2.2140e-01_jprb,2.8274e-01_jprb/)
350 kao( :, 1,16) = (/&
351 &1.0659e-01_jprb,1.3667e-01_jprb,1.7042e-01_jprb,2.0748e-01_jprb,2.4752e-01_jprb/)
352 kao( :, 2,16) = (/&
353 &1.1936e-01_jprb,1.5500e-01_jprb,1.9536e-01_jprb,2.4009e-01_jprb,2.8872e-01_jprb/)
354 kao( :, 3,16) = (/&
355 &1.2557e-01_jprb,1.6646e-01_jprb,2.1346e-01_jprb,2.6622e-01_jprb,3.2416e-01_jprb/)
356 kao( :, 4,16) = (/&
357 &1.2678e-01_jprb,1.7224e-01_jprb,2.2548e-01_jprb,2.8607e-01_jprb,3.5364e-01_jprb/)
358 kao( :, 5,16) = (/&
359 &1.2544e-01_jprb,1.7513e-01_jprb,2.3441e-01_jprb,3.0312e-01_jprb,3.8068e-01_jprb/)
360 kao( :, 6,16) = (/&
361 &1.2054e-01_jprb,1.7357e-01_jprb,2.3849e-01_jprb,3.1499e-01_jprb,4.0276e-01_jprb/)
362 kao( :, 7,16) = (/&
363 &1.1373e-01_jprb,1.6957e-01_jprb,2.3956e-01_jprb,3.2393e-01_jprb,4.2231e-01_jprb/)
364 
365 ! The array KBO contains absorption coefs at the 16 chosen g-values
366 ! for a range of pressure levels < ~100mb and temperatures. The first
367 ! index in the array, JT, which runs from 1 to 5, corresponds to
368 ! different temperatures. More specifically, JT = 3 means that the
369 ! data are for the reference temperature TREF for this pressure
370 ! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
371 ! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.
372 ! The second index, JP, runs from 13 to 59 and refers to the JPth
373 ! reference pressure level (see taumol.f for the value of these
374 ! pressure levels in mb). The third index, IG, goes from 1 to 16,
375 ! and tells us which g-interval the absorption coefficients are for.
376 
377 kbo( :, 7, 1) = (/&
378 &1.5344e-01_jprb,1.5367e-01_jprb,1.5941e-01_jprb,1.6925e-01_jprb,1.8219e-01_jprb/)
379 kbo( :, 8, 1) = (/&
380 &8.8789e-02_jprb,9.2028e-02_jprb,9.6207e-02_jprb,1.0152e-01_jprb,1.0774e-01_jprb/)
381 kbo( :, 9, 1) = (/&
382 &6.1726e-02_jprb,6.3618e-02_jprb,6.5404e-02_jprb,6.7402e-02_jprb,6.9517e-02_jprb/)
383 kbo( :,10, 1) = (/&
384 &4.5887e-02_jprb,4.6735e-02_jprb,4.7381e-02_jprb,4.7984e-02_jprb,4.8665e-02_jprb/)
385 kbo( :,11, 1) = (/&
386 &3.4925e-02_jprb,3.5331e-02_jprb,3.5614e-02_jprb,3.5819e-02_jprb,3.6029e-02_jprb/)
387 kbo( :,12, 1) = (/&
388 &2.7314e-02_jprb,2.7563e-02_jprb,2.7715e-02_jprb,2.7787e-02_jprb,2.7858e-02_jprb/)
389 kbo( :,13, 1) = (/&
390 &2.1065e-02_jprb,2.1225e-02_jprb,2.1307e-02_jprb,2.1318e-02_jprb,2.1310e-02_jprb/)
391 kbo( :,14, 1) = (/&
392 &1.4917e-02_jprb,1.5002e-02_jprb,1.5042e-02_jprb,1.5027e-02_jprb,1.4972e-02_jprb/)
393 kbo( :,15, 1) = (/&
394 &1.0550e-02_jprb,1.0630e-02_jprb,1.0661e-02_jprb,1.0642e-02_jprb,1.0580e-02_jprb/)
395 kbo( :,16, 1) = (/&
396 &7.8366e-03_jprb,7.9085e-03_jprb,7.9349e-03_jprb,7.9229e-03_jprb,7.8769e-03_jprb/)
397 kbo( :,17, 1) = (/&
398 &5.9572e-03_jprb,6.0203e-03_jprb,6.0443e-03_jprb,6.0374e-03_jprb,6.0008e-03_jprb/)
399 kbo( :,18, 1) = (/&
400 &4.6349e-03_jprb,4.6854e-03_jprb,4.7034e-03_jprb,4.6981e-03_jprb,4.6669e-03_jprb/)
401 kbo( :,19, 1) = (/&
402 &3.6293e-03_jprb,3.6694e-03_jprb,3.6836e-03_jprb,3.6780e-03_jprb,3.6512e-03_jprb/)
403 kbo( :,20, 1) = (/&
404 &2.8991e-03_jprb,2.9305e-03_jprb,2.9407e-03_jprb,2.9341e-03_jprb,2.9107e-03_jprb/)
405 kbo( :,21, 1) = (/&
406 &2.3312e-03_jprb,2.3555e-03_jprb,2.3622e-03_jprb,2.3550e-03_jprb,2.3344e-03_jprb/)
407 kbo( :,22, 1) = (/&
408 &1.8792e-03_jprb,1.8968e-03_jprb,1.9000e-03_jprb,1.8924e-03_jprb,1.8741e-03_jprb/)
409 kbo( :,23, 1) = (/&
410 &1.5156e-03_jprb,1.5280e-03_jprb,1.5291e-03_jprb,1.5212e-03_jprb,1.5056e-03_jprb/)
411 kbo( :,24, 1) = (/&
412 &1.2179e-03_jprb,1.2265e-03_jprb,1.2264e-03_jprb,1.2189e-03_jprb,1.2054e-03_jprb/)
413 kbo( :,25, 1) = (/&
414 &9.8120e-04_jprb,9.8697e-04_jprb,9.8592e-04_jprb,9.7898e-04_jprb,9.6753e-04_jprb/)
415 kbo( :,26, 1) = (/&
416 &7.9366e-04_jprb,7.9724e-04_jprb,7.9535e-04_jprb,7.8897e-04_jprb,7.7900e-04_jprb/)
417 kbo( :,27, 1) = (/&
418 &6.4346e-04_jprb,6.4543e-04_jprb,6.4311e-04_jprb,6.3737e-04_jprb,6.2874e-04_jprb/)
419 kbo( :,28, 1) = (/&
420 &5.2197e-04_jprb,5.2286e-04_jprb,5.2043e-04_jprb,5.1528e-04_jprb,5.0784e-04_jprb/)
421 kbo( :,29, 1) = (/&
422 &4.2576e-04_jprb,4.2585e-04_jprb,4.2341e-04_jprb,4.1882e-04_jprb,4.1242e-04_jprb/)
423 kbo( :,30, 1) = (/&
424 &3.4748e-04_jprb,3.4709e-04_jprb,3.4471e-04_jprb,3.4067e-04_jprb,3.3521e-04_jprb/)
425 kbo( :,31, 1) = (/&
426 &2.8441e-04_jprb,2.8375e-04_jprb,2.8150e-04_jprb,2.7801e-04_jprb,2.7335e-04_jprb/)
427 kbo( :,32, 1) = (/&
428 &2.3282e-04_jprb,2.3200e-04_jprb,2.2995e-04_jprb,2.2696e-04_jprb,2.2295e-04_jprb/)
429 kbo( :,33, 1) = (/&
430 &1.9062e-04_jprb,1.8973e-04_jprb,1.8792e-04_jprb,1.8531e-04_jprb,1.8184e-04_jprb/)
431 kbo( :,34, 1) = (/&
432 &1.5614e-04_jprb,1.5526e-04_jprb,1.5366e-04_jprb,1.5137e-04_jprb,1.4839e-04_jprb/)
433 kbo( :,35, 1) = (/&
434 &1.2772e-04_jprb,1.2697e-04_jprb,1.2561e-04_jprb,1.2363e-04_jprb,1.2119e-04_jprb/)
435 kbo( :,36, 1) = (/&
436 &1.0427e-04_jprb,1.0367e-04_jprb,1.0254e-04_jprb,1.0093e-04_jprb,9.8988e-05_jprb/)
437 kbo( :,37, 1) = (/&
438 &8.5618e-05_jprb,8.5197e-05_jprb,8.4329e-05_jprb,8.3067e-05_jprb,8.1529e-05_jprb/)
439 kbo( :,38, 1) = (/&
440 &7.0355e-05_jprb,7.0067e-05_jprb,6.9409e-05_jprb,6.8426e-05_jprb,6.7223e-05_jprb/)
441 kbo( :,39, 1) = (/&
442 &5.7837e-05_jprb,5.7651e-05_jprb,5.7166e-05_jprb,5.6411e-05_jprb,5.5474e-05_jprb/)
443 kbo( :,40, 1) = (/&
444 &4.7471e-05_jprb,4.7392e-05_jprb,4.7060e-05_jprb,4.6496e-05_jprb,4.5776e-05_jprb/)
445 kbo( :,41, 1) = (/&
446 &3.8945e-05_jprb,3.8946e-05_jprb,3.8735e-05_jprb,3.8320e-05_jprb,3.7771e-05_jprb/)
447 kbo( :,42, 1) = (/&
448 &3.1942e-05_jprb,3.2000e-05_jprb,3.1880e-05_jprb,3.1585e-05_jprb,3.1172e-05_jprb/)
449 kbo( :,43, 1) = (/&
450 &2.6212e-05_jprb,2.6319e-05_jprb,2.6272e-05_jprb,2.6076e-05_jprb,2.5773e-05_jprb/)
451 kbo( :,44, 1) = (/&
452 &2.1513e-05_jprb,2.1656e-05_jprb,2.1665e-05_jprb,2.1549e-05_jprb,2.1335e-05_jprb/)
453 kbo( :,45, 1) = (/&
454 &1.7662e-05_jprb,1.7828e-05_jprb,1.7877e-05_jprb,1.7820e-05_jprb,1.7676e-05_jprb/)
455 kbo( :,46, 1) = (/&
456 &1.4497e-05_jprb,1.4675e-05_jprb,1.4757e-05_jprb,1.4745e-05_jprb,1.4651e-05_jprb/)
457 kbo( :,47, 1) = (/&
458 &1.1877e-05_jprb,1.2067e-05_jprb,1.2171e-05_jprb,1.2193e-05_jprb,1.2145e-05_jprb/)
459 kbo( :,48, 1) = (/&
460 &9.7397e-06_jprb,9.9314e-06_jprb,1.0047e-05_jprb,1.0098e-05_jprb,1.0083e-05_jprb/)
461 kbo( :,49, 1) = (/&
462 &8.0031e-06_jprb,8.1919e-06_jprb,8.3161e-06_jprb,8.3842e-06_jprb,8.3974e-06_jprb/)
463 kbo( :,50, 1) = (/&
464 &6.5533e-06_jprb,6.7351e-06_jprb,6.8590e-06_jprb,6.9358e-06_jprb,6.9657e-06_jprb/)
465 kbo( :,51, 1) = (/&
466 &5.3534e-06_jprb,5.5271e-06_jprb,5.6449e-06_jprb,5.7254e-06_jprb,5.7657e-06_jprb/)
467 kbo( :,52, 1) = (/&
468 &4.3815e-06_jprb,4.5440e-06_jprb,4.6552e-06_jprb,4.7359e-06_jprb,4.7826e-06_jprb/)
469 kbo( :,53, 1) = (/&
470 &3.5983e-06_jprb,3.7484e-06_jprb,3.8526e-06_jprb,3.9323e-06_jprb,3.9834e-06_jprb/)
471 kbo( :,54, 1) = (/&
472 &2.9135e-06_jprb,3.0488e-06_jprb,3.1449e-06_jprb,3.2176e-06_jprb,3.2676e-06_jprb/)
473 kbo( :,55, 1) = (/&
474 &2.3344e-06_jprb,2.4540e-06_jprb,2.5433e-06_jprb,2.6072e-06_jprb,2.6532e-06_jprb/)
475 kbo( :,56, 1) = (/&
476 &1.8674e-06_jprb,1.9725e-06_jprb,2.0540e-06_jprb,2.1112e-06_jprb,2.1532e-06_jprb/)
477 kbo( :,57, 1) = (/&
478 &1.4909e-06_jprb,1.5832e-06_jprb,1.6559e-06_jprb,1.7087e-06_jprb,1.7463e-06_jprb/)
479 kbo( :,58, 1) = (/&
480 &1.1855e-06_jprb,1.2659e-06_jprb,1.3298e-06_jprb,1.3781e-06_jprb,1.4118e-06_jprb/)
481 kbo( :,59, 1) = (/&
482 &9.3006e-07_jprb,9.9739e-07_jprb,1.0501e-06_jprb,1.0906e-06_jprb,1.1193e-06_jprb/)
483 kbo( :, 7, 2) = (/&
484 &2.6778e-01_jprb,2.8245e-01_jprb,3.0362e-01_jprb,3.3204e-01_jprb,3.6642e-01_jprb/)
485 kbo( :, 8, 2) = (/&
486 &1.6981e-01_jprb,1.8043e-01_jprb,1.9307e-01_jprb,2.0690e-01_jprb,2.2313e-01_jprb/)
487 kbo( :, 9, 2) = (/&
488 &1.2053e-01_jprb,1.2497e-01_jprb,1.3056e-01_jprb,1.3643e-01_jprb,1.4282e-01_jprb/)
489 kbo( :,10, 2) = (/&
490 &8.7626e-02_jprb,8.9514e-02_jprb,9.1744e-02_jprb,9.4317e-02_jprb,9.6890e-02_jprb/)
491 kbo( :,11, 2) = (/&
492 &6.5833e-02_jprb,6.6899e-02_jprb,6.8102e-02_jprb,6.9485e-02_jprb,7.0886e-02_jprb/)
493 kbo( :,12, 2) = (/&
494 &5.1441e-02_jprb,5.2186e-02_jprb,5.3006e-02_jprb,5.3843e-02_jprb,5.4676e-02_jprb/)
495 kbo( :,13, 2) = (/&
496 &3.9685e-02_jprb,4.0210e-02_jprb,4.0730e-02_jprb,4.1271e-02_jprb,4.1791e-02_jprb/)
497 kbo( :,14, 2) = (/&
498 &2.8508e-02_jprb,2.8827e-02_jprb,2.9089e-02_jprb,2.9311e-02_jprb,2.9533e-02_jprb/)
499 kbo( :,15, 2) = (/&
500 &2.0989e-02_jprb,2.1138e-02_jprb,2.1243e-02_jprb,2.1329e-02_jprb,2.1410e-02_jprb/)
501 kbo( :,16, 2) = (/&
502 &1.6136e-02_jprb,1.6221e-02_jprb,1.6271e-02_jprb,1.6299e-02_jprb,1.6318e-02_jprb/)
503 kbo( :,17, 2) = (/&
504 &1.2642e-02_jprb,1.2693e-02_jprb,1.2714e-02_jprb,1.2705e-02_jprb,1.2688e-02_jprb/)
505 kbo( :,18, 2) = (/&
506 &1.0065e-02_jprb,1.0094e-02_jprb,1.0094e-02_jprb,1.0071e-02_jprb,1.0038e-02_jprb/)
507 kbo( :,19, 2) = (/&
508 &8.0455e-03_jprb,8.0605e-03_jprb,8.0482e-03_jprb,8.0166e-03_jprb,7.9752e-03_jprb/)
509 kbo( :,20, 2) = (/&
510 &6.5051e-03_jprb,6.5116e-03_jprb,6.4957e-03_jprb,6.4648e-03_jprb,6.4247e-03_jprb/)
511 kbo( :,21, 2) = (/&
512 &5.2778e-03_jprb,5.2806e-03_jprb,5.2632e-03_jprb,5.2348e-03_jprb,5.1970e-03_jprb/)
513 kbo( :,22, 2) = (/&
514 &4.2858e-03_jprb,4.2841e-03_jprb,4.2670e-03_jprb,4.2400e-03_jprb,4.2048e-03_jprb/)
515 kbo( :,23, 2) = (/&
516 &3.4793e-03_jprb,3.4753e-03_jprb,3.4584e-03_jprb,3.4334e-03_jprb,3.4014e-03_jprb/)
517 kbo( :,24, 2) = (/&
518 &2.8185e-03_jprb,2.8125e-03_jprb,2.7957e-03_jprb,2.7728e-03_jprb,2.7436e-03_jprb/)
519 kbo( :,25, 2) = (/&
520 &2.2861e-03_jprb,2.2783e-03_jprb,2.2629e-03_jprb,2.2419e-03_jprb,2.2158e-03_jprb/)
521 kbo( :,26, 2) = (/&
522 &1.8574e-03_jprb,1.8493e-03_jprb,1.8350e-03_jprb,1.8161e-03_jprb,1.7932e-03_jprb/)
523 kbo( :,27, 2) = (/&
524 &1.5109e-03_jprb,1.5030e-03_jprb,1.4902e-03_jprb,1.4736e-03_jprb,1.4543e-03_jprb/)
525 kbo( :,28, 2) = (/&
526 &1.2296e-03_jprb,1.2220e-03_jprb,1.2106e-03_jprb,1.1965e-03_jprb,1.1802e-03_jprb/)
527 kbo( :,29, 2) = (/&
528 &1.0041e-03_jprb,9.9721e-04_jprb,9.8729e-04_jprb,9.7563e-04_jprb,9.6203e-04_jprb/)
529 kbo( :,30, 2) = (/&
530 &8.2028e-04_jprb,8.1422e-04_jprb,8.0597e-04_jprb,7.9622e-04_jprb,7.8494e-04_jprb/)
531 kbo( :,31, 2) = (/&
532 &6.7162e-04_jprb,6.6632e-04_jprb,6.5964e-04_jprb,6.5163e-04_jprb,6.4255e-04_jprb/)
533 kbo( :,32, 2) = (/&
534 &5.5003e-04_jprb,5.4568e-04_jprb,5.4025e-04_jprb,5.3369e-04_jprb,5.2646e-04_jprb/)
535 kbo( :,33, 2) = (/&
536 &4.5068e-04_jprb,4.4725e-04_jprb,4.4286e-04_jprb,4.3761e-04_jprb,4.3173e-04_jprb/)
537 kbo( :,34, 2) = (/&
538 &3.6961e-04_jprb,3.6684e-04_jprb,3.6327e-04_jprb,3.5906e-04_jprb,3.5439e-04_jprb/)
539 kbo( :,35, 2) = (/&
540 &3.0315e-04_jprb,3.0096e-04_jprb,2.9817e-04_jprb,2.9485e-04_jprb,2.9125e-04_jprb/)
541 kbo( :,36, 2) = (/&
542 &2.4847e-04_jprb,2.4681e-04_jprb,2.4467e-04_jprb,2.4215e-04_jprb,2.3935e-04_jprb/)
543 kbo( :,37, 2) = (/&
544 &2.0443e-04_jprb,2.0324e-04_jprb,2.0165e-04_jprb,1.9975e-04_jprb,1.9759e-04_jprb/)
545 kbo( :,38, 2) = (/&
546 &1.6831e-04_jprb,1.6749e-04_jprb,1.6632e-04_jprb,1.6492e-04_jprb,1.6327e-04_jprb/)
547 kbo( :,39, 2) = (/&
548 &1.3865e-04_jprb,1.3814e-04_jprb,1.3731e-04_jprb,1.3631e-04_jprb,1.3505e-04_jprb/)
549 kbo( :,40, 2) = (/&
550 &1.1402e-04_jprb,1.1372e-04_jprb,1.1314e-04_jprb,1.1240e-04_jprb,1.1148e-04_jprb/)
551 kbo( :,41, 2) = (/&
552 &9.3740e-05_jprb,9.3582e-05_jprb,9.3200e-05_jprb,9.2678e-05_jprb,9.2002e-05_jprb/)
553 kbo( :,42, 2) = (/&
554 &7.7058e-05_jprb,7.7015e-05_jprb,7.6781e-05_jprb,7.6427e-05_jprb,7.5949e-05_jprb/)
555 kbo( :,43, 2) = (/&
556 &6.3364e-05_jprb,6.3414e-05_jprb,6.3300e-05_jprb,6.3083e-05_jprb,6.2768e-05_jprb/)
557 kbo( :,44, 2) = (/&
558 &5.2113e-05_jprb,5.2236e-05_jprb,5.2217e-05_jprb,5.2105e-05_jprb,5.1917e-05_jprb/)
559 kbo( :,45, 2) = (/&
560 &4.2872e-05_jprb,4.3047e-05_jprb,4.3096e-05_jprb,4.3067e-05_jprb,4.2976e-05_jprb/)
561 kbo( :,46, 2) = (/&
562 &3.5259e-05_jprb,3.5470e-05_jprb,3.5572e-05_jprb,3.5602e-05_jprb,3.5583e-05_jprb/)
563 kbo( :,47, 2) = (/&
564 &2.8960e-05_jprb,2.9201e-05_jprb,2.9340e-05_jprb,2.9409e-05_jprb,2.9443e-05_jprb/)
565 kbo( :,48, 2) = (/&
566 &2.3793e-05_jprb,2.4061e-05_jprb,2.4219e-05_jprb,2.4324e-05_jprb,2.4398e-05_jprb/)
567 kbo( :,49, 2) = (/&
568 &1.9573e-05_jprb,1.9855e-05_jprb,2.0037e-05_jprb,2.0166e-05_jprb,2.0269e-05_jprb/)
569 kbo( :,50, 2) = (/&
570 &1.6059e-05_jprb,1.6336e-05_jprb,1.6527e-05_jprb,1.6662e-05_jprb,1.6777e-05_jprb/)
571 kbo( :,51, 2) = (/&
572 &1.3152e-05_jprb,1.3417e-05_jprb,1.3609e-05_jprb,1.3741e-05_jprb,1.3858e-05_jprb/)
573 kbo( :,52, 2) = (/&
574 &1.0779e-05_jprb,1.1030e-05_jprb,1.1223e-05_jprb,1.1354e-05_jprb,1.1469e-05_jprb/)
575 kbo( :,53, 2) = (/&
576 &8.8506e-06_jprb,9.0876e-06_jprb,9.2783e-06_jprb,9.4085e-06_jprb,9.5236e-06_jprb/)
577 kbo( :,54, 2) = (/&
578 &7.2038e-06_jprb,7.4123e-06_jprb,7.5866e-06_jprb,7.7062e-06_jprb,7.8090e-06_jprb/)
579 kbo( :,55, 2) = (/&
580 &5.8272e-06_jprb,6.0075e-06_jprb,6.1562e-06_jprb,6.2660e-06_jprb,6.3502e-06_jprb/)
581 kbo( :,56, 2) = (/&
582 &4.7097e-06_jprb,4.8664e-06_jprb,4.9937e-06_jprb,5.0923e-06_jprb,5.1636e-06_jprb/)
583 kbo( :,57, 2) = (/&
584 &3.8029e-06_jprb,3.9406e-06_jprb,4.0499e-06_jprb,4.1369e-06_jprb,4.1983e-06_jprb/)
585 kbo( :,58, 2) = (/&
586 &3.0636e-06_jprb,3.1845e-06_jprb,3.2784e-06_jprb,3.3529e-06_jprb,3.4074e-06_jprb/)
587 kbo( :,59, 2) = (/&
588 &2.4518e-06_jprb,2.5533e-06_jprb,2.6281e-06_jprb,2.6848e-06_jprb,2.7259e-06_jprb/)
589 kbo( :, 7, 3) = (/&
590 &3.9261e-01_jprb,4.1826e-01_jprb,4.5486e-01_jprb,5.0020e-01_jprb,5.5441e-01_jprb/)
591 kbo( :, 8, 3) = (/&
592 &2.6302e-01_jprb,2.7629e-01_jprb,2.9316e-01_jprb,3.1489e-01_jprb,3.3903e-01_jprb/)
593 kbo( :, 9, 3) = (/&
594 &1.8742e-01_jprb,1.9413e-01_jprb,2.0162e-01_jprb,2.1065e-01_jprb,2.2099e-01_jprb/)
595 kbo( :,10, 3) = (/&
596 &1.3691e-01_jprb,1.3995e-01_jprb,1.4395e-01_jprb,1.4843e-01_jprb,1.5362e-01_jprb/)
597 kbo( :,11, 3) = (/&
598 &1.0382e-01_jprb,1.0590e-01_jprb,1.0849e-01_jprb,1.1133e-01_jprb,1.1437e-01_jprb/)
599 kbo( :,12, 3) = (/&
600 &8.2774e-02_jprb,8.4314e-02_jprb,8.6091e-02_jprb,8.8097e-02_jprb,9.0175e-02_jprb/)
601 kbo( :,13, 3) = (/&
602 &6.5297e-02_jprb,6.6392e-02_jprb,6.7652e-02_jprb,6.8979e-02_jprb,7.0293e-02_jprb/)
603 kbo( :,14, 3) = (/&
604 &4.8355e-02_jprb,4.9038e-02_jprb,4.9706e-02_jprb,5.0319e-02_jprb,5.0878e-02_jprb/)
605 kbo( :,15, 3) = (/&
606 &3.6518e-02_jprb,3.6926e-02_jprb,3.7222e-02_jprb,3.7439e-02_jprb,3.7640e-02_jprb/)
607 kbo( :,16, 3) = (/&
608 &2.8643e-02_jprb,2.8895e-02_jprb,2.9016e-02_jprb,2.9088e-02_jprb,2.9132e-02_jprb/)
609 kbo( :,17, 3) = (/&
610 &2.2761e-02_jprb,2.2905e-02_jprb,2.2941e-02_jprb,2.2947e-02_jprb,2.2921e-02_jprb/)
611 kbo( :,18, 3) = (/&
612 &1.8278e-02_jprb,1.8355e-02_jprb,1.8353e-02_jprb,1.8324e-02_jprb,1.8265e-02_jprb/)
613 kbo( :,19, 3) = (/&
614 &1.4700e-02_jprb,1.4733e-02_jprb,1.4709e-02_jprb,1.4660e-02_jprb,1.4585e-02_jprb/)
615 kbo( :,20, 3) = (/&
616 &1.1936e-02_jprb,1.1946e-02_jprb,1.1914e-02_jprb,1.1862e-02_jprb,1.1789e-02_jprb/)
617 kbo( :,21, 3) = (/&
618 &9.7139e-03_jprb,9.7118e-03_jprb,9.6809e-03_jprb,9.6307e-03_jprb,9.5648e-03_jprb/)
619 kbo( :,22, 3) = (/&
620 &7.9072e-03_jprb,7.8970e-03_jprb,7.8671e-03_jprb,7.8212e-03_jprb,7.7623e-03_jprb/)
621 kbo( :,23, 3) = (/&
622 &6.4329e-03_jprb,6.4199e-03_jprb,6.3920e-03_jprb,6.3512e-03_jprb,6.2995e-03_jprb/)
623 kbo( :,24, 3) = (/&
624 &5.2216e-03_jprb,5.2078e-03_jprb,5.1821e-03_jprb,5.1436e-03_jprb,5.0968e-03_jprb/)
625 kbo( :,25, 3) = (/&
626 &4.2420e-03_jprb,4.2282e-03_jprb,4.2046e-03_jprb,4.1704e-03_jprb,4.1288e-03_jprb/)
627 kbo( :,26, 3) = (/&
628 &3.4526e-03_jprb,3.4398e-03_jprb,3.4183e-03_jprb,3.3878e-03_jprb,3.3511e-03_jprb/)
629 kbo( :,27, 3) = (/&
630 &2.8139e-03_jprb,2.8022e-03_jprb,2.7830e-03_jprb,2.7568e-03_jprb,2.7244e-03_jprb/)
631 kbo( :,28, 3) = (/&
632 &2.2948e-03_jprb,2.2838e-03_jprb,2.2669e-03_jprb,2.2441e-03_jprb,2.2163e-03_jprb/)
633 kbo( :,29, 3) = (/&
634 &1.8779e-03_jprb,1.8678e-03_jprb,1.8537e-03_jprb,1.8342e-03_jprb,1.8116e-03_jprb/)
635 kbo( :,30, 3) = (/&
636 &1.5371e-03_jprb,1.5290e-03_jprb,1.5169e-03_jprb,1.5009e-03_jprb,1.4827e-03_jprb/)
637 kbo( :,31, 3) = (/&
638 &1.2613e-03_jprb,1.2550e-03_jprb,1.2450e-03_jprb,1.2325e-03_jprb,1.2181e-03_jprb/)
639 kbo( :,32, 3) = (/&
640 &1.0360e-03_jprb,1.0308e-03_jprb,1.0228e-03_jprb,1.0131e-03_jprb,1.0022e-03_jprb/)
641 kbo( :,33, 3) = (/&
642 &8.5168e-04_jprb,8.4735e-04_jprb,8.4147e-04_jprb,8.3412e-04_jprb,8.2675e-04_jprb/)
643 kbo( :,34, 3) = (/&
644 &7.0046e-04_jprb,6.9716e-04_jprb,6.9264e-04_jprb,6.8755e-04_jprb,6.8249e-04_jprb/)
645 kbo( :,35, 3) = (/&
646 &5.7604e-04_jprb,5.7373e-04_jprb,5.7061e-04_jprb,5.6737e-04_jprb,5.6396e-04_jprb/)
647 kbo( :,36, 3) = (/&
648 &4.7323e-04_jprb,4.7186e-04_jprb,4.7003e-04_jprb,4.6804e-04_jprb,4.6592e-04_jprb/)
649 kbo( :,37, 3) = (/&
650 &3.9007e-04_jprb,3.8932e-04_jprb,3.8831e-04_jprb,3.8717e-04_jprb,3.8593e-04_jprb/)
651 kbo( :,38, 3) = (/&
652 &3.2170e-04_jprb,3.2146e-04_jprb,3.2110e-04_jprb,3.2061e-04_jprb,3.2010e-04_jprb/)
653 kbo( :,39, 3) = (/&
654 &2.6546e-04_jprb,2.6568e-04_jprb,2.6585e-04_jprb,2.6593e-04_jprb,2.6594e-04_jprb/)
655 kbo( :,40, 3) = (/&
656 &2.1847e-04_jprb,2.1891e-04_jprb,2.1928e-04_jprb,2.1962e-04_jprb,2.1986e-04_jprb/)
657 kbo( :,41, 3) = (/&
658 &1.7969e-04_jprb,1.8027e-04_jprb,1.8078e-04_jprb,1.8126e-04_jprb,1.8165e-04_jprb/)
659 kbo( :,42, 3) = (/&
660 &1.4779e-04_jprb,1.4846e-04_jprb,1.4905e-04_jprb,1.4963e-04_jprb,1.5013e-04_jprb/)
661 kbo( :,43, 3) = (/&
662 &1.2154e-04_jprb,1.2228e-04_jprb,1.2292e-04_jprb,1.2357e-04_jprb,1.2415e-04_jprb/)
663 kbo( :,44, 3) = (/&
664 &9.9958e-05_jprb,1.0073e-04_jprb,1.0140e-04_jprb,1.0208e-04_jprb,1.0273e-04_jprb/)
665 kbo( :,45, 3) = (/&
666 &8.2216e-05_jprb,8.3000e-05_jprb,8.3698e-05_jprb,8.4403e-05_jprb,8.5080e-05_jprb/)
667 kbo( :,46, 3) = (/&
668 &6.7594e-05_jprb,6.8376e-05_jprb,6.9061e-05_jprb,6.9778e-05_jprb,7.0474e-05_jprb/)
669 kbo( :,47, 3) = (/&
670 &5.5485e-05_jprb,5.6232e-05_jprb,5.6898e-05_jprb,5.7591e-05_jprb,5.8280e-05_jprb/)
671 kbo( :,48, 3) = (/&
672 &4.5552e-05_jprb,4.6275e-05_jprb,4.6918e-05_jprb,4.7596e-05_jprb,4.8274e-05_jprb/)
673 kbo( :,49, 3) = (/&
674 &3.7438e-05_jprb,3.8131e-05_jprb,3.8767e-05_jprb,3.9430e-05_jprb,4.0094e-05_jprb/)
675 kbo( :,50, 3) = (/&
676 &3.0699e-05_jprb,3.1333e-05_jprb,3.1922e-05_jprb,3.2530e-05_jprb,3.3148e-05_jprb/)
677 kbo( :,51, 3) = (/&
678 &2.5129e-05_jprb,2.5702e-05_jprb,2.6235e-05_jprb,2.6778e-05_jprb,2.7340e-05_jprb/)
679 kbo( :,52, 3) = (/&
680 &2.0590e-05_jprb,2.1102e-05_jprb,2.1590e-05_jprb,2.2079e-05_jprb,2.2594e-05_jprb/)
681 kbo( :,53, 3) = (/&
682 &1.6895e-05_jprb,1.7360e-05_jprb,1.7806e-05_jprb,1.8261e-05_jprb,1.8734e-05_jprb/)
683 kbo( :,54, 3) = (/&
684 &1.3758e-05_jprb,1.4159e-05_jprb,1.4534e-05_jprb,1.4917e-05_jprb,1.5317e-05_jprb/)
685 kbo( :,55, 3) = (/&
686 &1.1148e-05_jprb,1.1484e-05_jprb,1.1790e-05_jprb,1.2094e-05_jprb,1.2411e-05_jprb/)
687 kbo( :,56, 3) = (/&
688 &9.0284e-06_jprb,9.3136e-06_jprb,9.5654e-06_jprb,9.8098e-06_jprb,1.0060e-05_jprb/)
689 kbo( :,57, 3) = (/&
690 &7.3060e-06_jprb,7.5521e-06_jprb,7.7610e-06_jprb,7.9575e-06_jprb,8.1567e-06_jprb/)
691 kbo( :,58, 3) = (/&
692 &5.9024e-06_jprb,6.1146e-06_jprb,6.2887e-06_jprb,6.4473e-06_jprb,6.6035e-06_jprb/)
693 kbo( :,59, 3) = (/&
694 &4.7480e-06_jprb,4.9198e-06_jprb,5.0575e-06_jprb,5.1729e-06_jprb,5.2807e-06_jprb/)
695 kbo( :, 7, 4) = (/&
696 &5.4576e-01_jprb,5.8321e-01_jprb,6.3352e-01_jprb,6.9888e-01_jprb,7.7662e-01_jprb/)
697 kbo( :, 8, 4) = (/&
698 &3.7193e-01_jprb,3.9289e-01_jprb,4.1999e-01_jprb,4.5207e-01_jprb,4.8994e-01_jprb/)
699 kbo( :, 9, 4) = (/&
700 &2.7031e-01_jprb,2.8087e-01_jprb,2.9426e-01_jprb,3.0966e-01_jprb,3.2729e-01_jprb/)
701 kbo( :,10, 4) = (/&
702 &2.0336e-01_jprb,2.0948e-01_jprb,2.1603e-01_jprb,2.2414e-01_jprb,2.3345e-01_jprb/)
703 kbo( :,11, 4) = (/&
704 &1.6168e-01_jprb,1.6588e-01_jprb,1.7020e-01_jprb,1.7548e-01_jprb,1.8161e-01_jprb/)
705 kbo( :,12, 4) = (/&
706 &1.3346e-01_jprb,1.3660e-01_jprb,1.3975e-01_jprb,1.4344e-01_jprb,1.4792e-01_jprb/)
707 kbo( :,13, 4) = (/&
708 &1.0849e-01_jprb,1.1069e-01_jprb,1.1290e-01_jprb,1.1556e-01_jprb,1.1871e-01_jprb/)
709 kbo( :,14, 4) = (/&
710 &8.2500e-02_jprb,8.3981e-02_jprb,8.5345e-02_jprb,8.6853e-02_jprb,8.8365e-02_jprb/)
711 kbo( :,15, 4) = (/&
712 &6.3556e-02_jprb,6.4528e-02_jprb,6.5387e-02_jprb,6.6084e-02_jprb,6.6650e-02_jprb/)
713 kbo( :,16, 4) = (/&
714 &5.0617e-02_jprb,5.1215e-02_jprb,5.1695e-02_jprb,5.1994e-02_jprb,5.2195e-02_jprb/)
715 kbo( :,17, 4) = (/&
716 &4.0691e-02_jprb,4.1021e-02_jprb,4.1248e-02_jprb,4.1327e-02_jprb,4.1343e-02_jprb/)
717 kbo( :,18, 4) = (/&
718 &3.2954e-02_jprb,3.3129e-02_jprb,3.3217e-02_jprb,3.3185e-02_jprb,3.3108e-02_jprb/)
719 kbo( :,19, 4) = (/&
720 &2.6680e-02_jprb,2.6760e-02_jprb,2.6758e-02_jprb,2.6667e-02_jprb,2.6543e-02_jprb/)
721 kbo( :,20, 4) = (/&
722 &2.1769e-02_jprb,2.1800e-02_jprb,2.1748e-02_jprb,2.1639e-02_jprb,2.1512e-02_jprb/)
723 kbo( :,21, 4) = (/&
724 &1.7784e-02_jprb,1.7780e-02_jprb,1.7709e-02_jprb,1.7602e-02_jprb,1.7488e-02_jprb/)
725 kbo( :,22, 4) = (/&
726 &1.4514e-02_jprb,1.4488e-02_jprb,1.4415e-02_jprb,1.4319e-02_jprb,1.4220e-02_jprb/)
727 kbo( :,23, 4) = (/&
728 &1.1835e-02_jprb,1.1797e-02_jprb,1.1728e-02_jprb,1.1643e-02_jprb,1.1560e-02_jprb/)
729 kbo( :,24, 4) = (/&
730 &9.6235e-03_jprb,9.5815e-03_jprb,9.5190e-03_jprb,9.4465e-03_jprb,9.3693e-03_jprb/)
731 kbo( :,25, 4) = (/&
732 &7.8292e-03_jprb,7.7888e-03_jprb,7.7341e-03_jprb,7.6730e-03_jprb,7.6029e-03_jprb/)
733 kbo( :,26, 4) = (/&
734 &6.3801e-03_jprb,6.3415e-03_jprb,6.2961e-03_jprb,6.2428e-03_jprb,6.1825e-03_jprb/)
735 kbo( :,27, 4) = (/&
736 &5.2042e-03_jprb,5.1715e-03_jprb,5.1336e-03_jprb,5.0880e-03_jprb,5.0387e-03_jprb/)
737 kbo( :,28, 4) = (/&
738 &4.2465e-03_jprb,4.2207e-03_jprb,4.1880e-03_jprb,4.1504e-03_jprb,4.1110e-03_jprb/)
739 kbo( :,29, 4) = (/&
740 &3.4782e-03_jprb,3.4577e-03_jprb,3.4306e-03_jprb,3.4016e-03_jprb,3.3709e-03_jprb/)
741 kbo( :,30, 4) = (/&
742 &2.8515e-03_jprb,2.8346e-03_jprb,2.8137e-03_jprb,2.7917e-03_jprb,2.7680e-03_jprb/)
743 kbo( :,31, 4) = (/&
744 &2.3437e-03_jprb,2.3307e-03_jprb,2.3161e-03_jprb,2.3002e-03_jprb,2.2834e-03_jprb/)
745 kbo( :,32, 4) = (/&
746 &1.9274e-03_jprb,1.9187e-03_jprb,1.9091e-03_jprb,1.8985e-03_jprb,1.8866e-03_jprb/)
747 kbo( :,33, 4) = (/&
748 &1.5869e-03_jprb,1.5820e-03_jprb,1.5765e-03_jprb,1.5699e-03_jprb,1.5624e-03_jprb/)
749 kbo( :,34, 4) = (/&
750 &1.3081e-03_jprb,1.3058e-03_jprb,1.3032e-03_jprb,1.2991e-03_jprb,1.2950e-03_jprb/)
751 kbo( :,35, 4) = (/&
752 &1.0781e-03_jprb,1.0778e-03_jprb,1.0771e-03_jprb,1.0756e-03_jprb,1.0740e-03_jprb/)
753 kbo( :,36, 4) = (/&
754 &8.8736e-04_jprb,8.8844e-04_jprb,8.8926e-04_jprb,8.8965e-04_jprb,8.8976e-04_jprb/)
755 kbo( :,37, 4) = (/&
756 &7.3290e-04_jprb,7.3491e-04_jprb,7.3643e-04_jprb,7.3770e-04_jprb,7.3879e-04_jprb/)
757 kbo( :,38, 4) = (/&
758 &6.0588e-04_jprb,6.0833e-04_jprb,6.1041e-04_jprb,6.1235e-04_jprb,6.1424e-04_jprb/)
759 kbo( :,39, 4) = (/&
760 &5.0124e-04_jprb,5.0398e-04_jprb,5.0659e-04_jprb,5.0907e-04_jprb,5.1177e-04_jprb/)
761 kbo( :,40, 4) = (/&
762 &4.1327e-04_jprb,4.1591e-04_jprb,4.1851e-04_jprb,4.2084e-04_jprb,4.2376e-04_jprb/)
763 kbo( :,41, 4) = (/&
764 &3.4050e-04_jprb,3.4298e-04_jprb,3.4548e-04_jprb,3.4778e-04_jprb,3.5064e-04_jprb/)
765 kbo( :,42, 4) = (/&
766 &2.8050e-04_jprb,2.8288e-04_jprb,2.8524e-04_jprb,2.8747e-04_jprb,2.9020e-04_jprb/)
767 kbo( :,43, 4) = (/&
768 &2.3103e-04_jprb,2.3322e-04_jprb,2.3547e-04_jprb,2.3763e-04_jprb,2.4024e-04_jprb/)
769 kbo( :,44, 4) = (/&
770 &1.9026e-04_jprb,1.9231e-04_jprb,1.9444e-04_jprb,1.9652e-04_jprb,1.9896e-04_jprb/)
771 kbo( :,45, 4) = (/&
772 &1.5671e-04_jprb,1.5864e-04_jprb,1.6066e-04_jprb,1.6263e-04_jprb,1.6494e-04_jprb/)
773 kbo( :,46, 4) = (/&
774 &1.2898e-04_jprb,1.3080e-04_jprb,1.3267e-04_jprb,1.3454e-04_jprb,1.3671e-04_jprb/)
775 kbo( :,47, 4) = (/&
776 &1.0596e-04_jprb,1.0765e-04_jprb,1.0934e-04_jprb,1.1109e-04_jprb,1.1307e-04_jprb/)
777 kbo( :,48, 4) = (/&
778 &8.7064e-05_jprb,8.8650e-05_jprb,9.0201e-05_jprb,9.1849e-05_jprb,9.3694e-05_jprb/)
779 kbo( :,49, 4) = (/&
780 &7.1599e-05_jprb,7.3089e-05_jprb,7.4546e-05_jprb,7.6099e-05_jprb,7.7859e-05_jprb/)
781 kbo( :,50, 4) = (/&
782 &5.8725e-05_jprb,6.0074e-05_jprb,6.1380e-05_jprb,6.2781e-05_jprb,6.4369e-05_jprb/)
783 kbo( :,51, 4) = (/&
784 &4.8093e-05_jprb,4.9292e-05_jprb,5.0434e-05_jprb,5.1667e-05_jprb,5.3063e-05_jprb/)
785 kbo( :,52, 4) = (/&
786 &3.9408e-05_jprb,4.0473e-05_jprb,4.1481e-05_jprb,4.2577e-05_jprb,4.3826e-05_jprb/)
787 kbo( :,53, 4) = (/&
788 &3.2348e-05_jprb,3.3281e-05_jprb,3.4179e-05_jprb,3.5167e-05_jprb,3.6311e-05_jprb/)
789 kbo( :,54, 4) = (/&
790 &2.6357e-05_jprb,2.7153e-05_jprb,2.7906e-05_jprb,2.8713e-05_jprb,2.9648e-05_jprb/)
791 kbo( :,55, 4) = (/&
792 &2.1368e-05_jprb,2.2046e-05_jprb,2.2660e-05_jprb,2.3285e-05_jprb,2.4007e-05_jprb/)
793 kbo( :,56, 4) = (/&
794 &1.7314e-05_jprb,1.7894e-05_jprb,1.8399e-05_jprb,1.8894e-05_jprb,1.9452e-05_jprb/)
795 kbo( :,57, 4) = (/&
796 &1.4020e-05_jprb,1.4518e-05_jprb,1.4939e-05_jprb,1.5339e-05_jprb,1.5769e-05_jprb/)
797 kbo( :,58, 4) = (/&
798 &1.1336e-05_jprb,1.1762e-05_jprb,1.2115e-05_jprb,1.2440e-05_jprb,1.2770e-05_jprb/)
799 kbo( :,59, 4) = (/&
800 &9.1282e-06_jprb,9.4754e-06_jprb,9.7573e-06_jprb,1.0004e-05_jprb,1.0238e-05_jprb/)
801 kbo( :, 7, 5) = (/&
802 &7.4219e-01_jprb,8.0054e-01_jprb,8.7888e-01_jprb,9.7526e-01_jprb,1.0998e+00_jprb/)
803 kbo( :, 8, 5) = (/&
804 &5.1152e-01_jprb,5.4637e-01_jprb,5.8683e-01_jprb,6.3535e-01_jprb,6.9455e-01_jprb/)
805 kbo( :, 9, 5) = (/&
806 &3.8181e-01_jprb,4.0155e-01_jprb,4.2314e-01_jprb,4.4831e-01_jprb,4.7715e-01_jprb/)
807 kbo( :,10, 5) = (/&
808 &2.9695e-01_jprb,3.0876e-01_jprb,3.2196e-01_jprb,3.3553e-01_jprb,3.5132e-01_jprb/)
809 kbo( :,11, 5) = (/&
810 &2.4682e-01_jprb,2.5515e-01_jprb,2.6470e-01_jprb,2.7449e-01_jprb,2.8523e-01_jprb/)
811 kbo( :,12, 5) = (/&
812 &2.1183e-01_jprb,2.1854e-01_jprb,2.2616e-01_jprb,2.3413e-01_jprb,2.4235e-01_jprb/)
813 kbo( :,13, 5) = (/&
814 &1.7800e-01_jprb,1.8340e-01_jprb,1.8940e-01_jprb,1.9532e-01_jprb,2.0154e-01_jprb/)
815 kbo( :,14, 5) = (/&
816 &1.4147e-01_jprb,1.4449e-01_jprb,1.4788e-01_jprb,1.5168e-01_jprb,1.5576e-01_jprb/)
817 kbo( :,15, 5) = (/&
818 &1.1315e-01_jprb,1.1469e-01_jprb,1.1645e-01_jprb,1.1868e-01_jprb,1.2103e-01_jprb/)
819 kbo( :,16, 5) = (/&
820 &9.2222e-02_jprb,9.3160e-02_jprb,9.4211e-02_jprb,9.5476e-02_jprb,9.6729e-02_jprb/)
821 kbo( :,17, 5) = (/&
822 &7.5459e-02_jprb,7.6041e-02_jprb,7.6622e-02_jprb,7.7254e-02_jprb,7.7877e-02_jprb/)
823 kbo( :,18, 5) = (/&
824 &6.1947e-02_jprb,6.2293e-02_jprb,6.2553e-02_jprb,6.2869e-02_jprb,6.3141e-02_jprb/)
825 kbo( :,19, 5) = (/&
826 &5.0722e-02_jprb,5.0858e-02_jprb,5.0935e-02_jprb,5.1055e-02_jprb,5.1101e-02_jprb/)
827 kbo( :,20, 5) = (/&
828 &4.1631e-02_jprb,4.1679e-02_jprb,4.1718e-02_jprb,4.1739e-02_jprb,4.1680e-02_jprb/)
829 kbo( :,21, 5) = (/&
830 &3.4144e-02_jprb,3.4173e-02_jprb,3.4180e-02_jprb,3.4129e-02_jprb,3.4026e-02_jprb/)
831 kbo( :,22, 5) = (/&
832 &2.7969e-02_jprb,2.7982e-02_jprb,2.7950e-02_jprb,2.7863e-02_jprb,2.7745e-02_jprb/)
833 kbo( :,23, 5) = (/&
834 &2.2887e-02_jprb,2.2876e-02_jprb,2.2812e-02_jprb,2.2713e-02_jprb,2.2601e-02_jprb/)
835 kbo( :,24, 5) = (/&
836 &1.8663e-02_jprb,1.8630e-02_jprb,1.8556e-02_jprb,1.8459e-02_jprb,1.8357e-02_jprb/)
837 kbo( :,25, 5) = (/&
838 &1.5218e-02_jprb,1.5169e-02_jprb,1.5100e-02_jprb,1.5012e-02_jprb,1.4924e-02_jprb/)
839 kbo( :,26, 5) = (/&
840 &1.2420e-02_jprb,1.2369e-02_jprb,1.2302e-02_jprb,1.2232e-02_jprb,1.2157e-02_jprb/)
841 kbo( :,27, 5) = (/&
842 &1.0146e-02_jprb,1.0098e-02_jprb,1.0044e-02_jprb,9.9898e-03_jprb,9.9236e-03_jprb/)
843 kbo( :,28, 5) = (/&
844 &8.2897e-03_jprb,8.2510e-03_jprb,8.2117e-03_jprb,8.1680e-03_jprb,8.1099e-03_jprb/)
845 kbo( :,29, 5) = (/&
846 &6.7978e-03_jprb,6.7739e-03_jprb,6.7481e-03_jprb,6.7134e-03_jprb,6.6680e-03_jprb/)
847 kbo( :,30, 5) = (/&
848 &5.5823e-03_jprb,5.5718e-03_jprb,5.5546e-03_jprb,5.5280e-03_jprb,5.4974e-03_jprb/)
849 kbo( :,31, 5) = (/&
850 &4.6027e-03_jprb,4.6001e-03_jprb,4.5893e-03_jprb,4.5737e-03_jprb,4.5580e-03_jprb/)
851 kbo( :,32, 5) = (/&
852 &3.8008e-03_jprb,3.8015e-03_jprb,3.7970e-03_jprb,3.7914e-03_jprb,3.7855e-03_jprb/)
853 kbo( :,33, 5) = (/&
854 &3.1425e-03_jprb,3.1461e-03_jprb,3.1482e-03_jprb,3.1501e-03_jprb,3.1526e-03_jprb/)
855 kbo( :,34, 5) = (/&
856 &2.5984e-03_jprb,2.6053e-03_jprb,2.6119e-03_jprb,2.6195e-03_jprb,2.6274e-03_jprb/)
857 kbo( :,35, 5) = (/&
858 &2.1483e-03_jprb,2.1578e-03_jprb,2.1676e-03_jprb,2.1783e-03_jprb,2.1903e-03_jprb/)
859 kbo( :,36, 5) = (/&
860 &1.7735e-03_jprb,1.7841e-03_jprb,1.7952e-03_jprb,1.8076e-03_jprb,1.8217e-03_jprb/)
861 kbo( :,37, 5) = (/&
862 &1.4673e-03_jprb,1.4785e-03_jprb,1.4908e-03_jprb,1.5046e-03_jprb,1.5197e-03_jprb/)
863 kbo( :,38, 5) = (/&
864 &1.2151e-03_jprb,1.2270e-03_jprb,1.2402e-03_jprb,1.2548e-03_jprb,1.2701e-03_jprb/)
865 kbo( :,39, 5) = (/&
866 &1.0074e-03_jprb,1.0199e-03_jprb,1.0337e-03_jprb,1.0486e-03_jprb,1.0638e-03_jprb/)
867 kbo( :,40, 5) = (/&
868 &8.3151e-04_jprb,8.4359e-04_jprb,8.5658e-04_jprb,8.6983e-04_jprb,8.8391e-04_jprb/)
869 kbo( :,41, 5) = (/&
870 &6.8588e-04_jprb,6.9711e-04_jprb,7.0893e-04_jprb,7.2091e-04_jprb,7.3364e-04_jprb/)
871 kbo( :,42, 5) = (/&
872 &5.6575e-04_jprb,5.7610e-04_jprb,5.8675e-04_jprb,5.9741e-04_jprb,6.0890e-04_jprb/)
873 kbo( :,43, 5) = (/&
874 &4.6640e-04_jprb,4.7576e-04_jprb,4.8530e-04_jprb,4.9486e-04_jprb,5.0526e-04_jprb/)
875 kbo( :,44, 5) = (/&
876 &3.8435e-04_jprb,3.9291e-04_jprb,4.0148e-04_jprb,4.1002e-04_jprb,4.1936e-04_jprb/)
877 kbo( :,45, 5) = (/&
878 &3.1688e-04_jprb,3.2462e-04_jprb,3.3225e-04_jprb,3.3993e-04_jprb,3.4837e-04_jprb/)
879 kbo( :,46, 5) = (/&
880 &2.6099e-04_jprb,2.6793e-04_jprb,2.7469e-04_jprb,2.8156e-04_jprb,2.8910e-04_jprb/)
881 kbo( :,47, 5) = (/&
882 &2.1440e-04_jprb,2.2049e-04_jprb,2.2645e-04_jprb,2.3254e-04_jprb,2.3931e-04_jprb/)
883 kbo( :,48, 5) = (/&
884 &1.7619e-04_jprb,1.8156e-04_jprb,1.8686e-04_jprb,1.9234e-04_jprb,1.9841e-04_jprb/)
885 kbo( :,49, 5) = (/&
886 &1.4500e-04_jprb,1.4973e-04_jprb,1.5449e-04_jprb,1.5941e-04_jprb,1.6496e-04_jprb/)
887 kbo( :,50, 5) = (/&
888 &1.1899e-04_jprb,1.2306e-04_jprb,1.2720e-04_jprb,1.3150e-04_jprb,1.3635e-04_jprb/)
889 kbo( :,51, 5) = (/&
890 &9.7485e-05_jprb,1.0095e-04_jprb,1.0448e-04_jprb,1.0819e-04_jprb,1.1236e-04_jprb/)
891 kbo( :,52, 5) = (/&
892 &7.9898e-05_jprb,8.2877e-05_jprb,8.5912e-05_jprb,8.9120e-05_jprb,9.2744e-05_jprb/)
893 kbo( :,53, 5) = (/&
894 &6.5564e-05_jprb,6.8161e-05_jprb,7.0774e-05_jprb,7.3596e-05_jprb,7.6784e-05_jprb/)
895 kbo( :,54, 5) = (/&
896 &5.3382e-05_jprb,5.5562e-05_jprb,5.7697e-05_jprb,6.0028e-05_jprb,6.2619e-05_jprb/)
897 kbo( :,55, 5) = (/&
898 &4.3245e-05_jprb,4.5036e-05_jprb,4.6756e-05_jprb,4.8597e-05_jprb,5.0630e-05_jprb/)
899 kbo( :,56, 5) = (/&
900 &3.5030e-05_jprb,3.6502e-05_jprb,3.7905e-05_jprb,3.9364e-05_jprb,4.0960e-05_jprb/)
901 kbo( :,57, 5) = (/&
902 &2.8365e-05_jprb,2.9581e-05_jprb,3.0734e-05_jprb,3.1886e-05_jprb,3.3151e-05_jprb/)
903 kbo( :,58, 5) = (/&
904 &2.2943e-05_jprb,2.3945e-05_jprb,2.4891e-05_jprb,2.5800e-05_jprb,2.6793e-05_jprb/)
905 kbo( :,59, 5) = (/&
906 &1.8495e-05_jprb,1.9293e-05_jprb,2.0030e-05_jprb,2.0717e-05_jprb,2.1421e-05_jprb/)
907 kbo( :, 7, 6) = (/&
908 &1.0291e+00_jprb,1.1356e+00_jprb,1.2744e+00_jprb,1.4468e+00_jprb,1.6524e+00_jprb/)
909 kbo( :, 8, 6) = (/&
910 &6.9841e-01_jprb,7.5208e-01_jprb,8.2057e-01_jprb,9.0373e-01_jprb,9.9840e-01_jprb/)
911 kbo( :, 9, 6) = (/&
912 &5.3286e-01_jprb,5.5966e-01_jprb,5.9440e-01_jprb,6.3558e-01_jprb,6.8341e-01_jprb/)
913 kbo( :,10, 6) = (/&
914 &4.3919e-01_jprb,4.5202e-01_jprb,4.6857e-01_jprb,4.9162e-01_jprb,5.1919e-01_jprb/)
915 kbo( :,11, 6) = (/&
916 &3.8169e-01_jprb,3.9111e-01_jprb,4.0234e-01_jprb,4.1718e-01_jprb,4.3612e-01_jprb/)
917 kbo( :,12, 6) = (/&
918 &3.4191e-01_jprb,3.5009e-01_jprb,3.5940e-01_jprb,3.7082e-01_jprb,3.8567e-01_jprb/)
919 kbo( :,13, 6) = (/&
920 &3.0165e-01_jprb,3.0862e-01_jprb,3.1605e-01_jprb,3.2574e-01_jprb,3.3792e-01_jprb/)
921 kbo( :,14, 6) = (/&
922 &2.5298e-01_jprb,2.5814e-01_jprb,2.6338e-01_jprb,2.6931e-01_jprb,2.7664e-01_jprb/)
923 kbo( :,15, 6) = (/&
924 &2.1273e-01_jprb,2.1655e-01_jprb,2.1994e-01_jprb,2.2320e-01_jprb,2.2726e-01_jprb/)
925 kbo( :,16, 6) = (/&
926 &1.8046e-01_jprb,1.8315e-01_jprb,1.8531e-01_jprb,1.8743e-01_jprb,1.8993e-01_jprb/)
927 kbo( :,17, 6) = (/&
928 &1.5223e-01_jprb,1.5398e-01_jprb,1.5534e-01_jprb,1.5661e-01_jprb,1.5779e-01_jprb/)
929 kbo( :,18, 6) = (/&
930 &1.2778e-01_jprb,1.2889e-01_jprb,1.2966e-01_jprb,1.3020e-01_jprb,1.3052e-01_jprb/)
931 kbo( :,19, 6) = (/&
932 &1.0640e-01_jprb,1.0703e-01_jprb,1.0732e-01_jprb,1.0728e-01_jprb,1.0716e-01_jprb/)
933 kbo( :,20, 6) = (/&
934 &8.8470e-02_jprb,8.8754e-02_jprb,8.8701e-02_jprb,8.8488e-02_jprb,8.8284e-02_jprb/)
935 kbo( :,21, 6) = (/&
936 &7.3231e-02_jprb,7.3261e-02_jprb,7.3087e-02_jprb,7.2888e-02_jprb,7.2674e-02_jprb/)
937 kbo( :,22, 6) = (/&
938 &6.0317e-02_jprb,6.0219e-02_jprb,6.0056e-02_jprb,5.9896e-02_jprb,5.9688e-02_jprb/)
939 kbo( :,23, 6) = (/&
940 &4.9481e-02_jprb,4.9377e-02_jprb,4.9249e-02_jprb,4.9098e-02_jprb,4.8909e-02_jprb/)
941 kbo( :,24, 6) = (/&
942 &4.0434e-02_jprb,4.0336e-02_jprb,4.0225e-02_jprb,4.0073e-02_jprb,3.9896e-02_jprb/)
943 kbo( :,25, 6) = (/&
944 &3.3025e-02_jprb,3.2945e-02_jprb,3.2829e-02_jprb,3.2695e-02_jprb,3.2543e-02_jprb/)
945 kbo( :,26, 6) = (/&
946 &2.6990e-02_jprb,2.6922e-02_jprb,2.6821e-02_jprb,2.6706e-02_jprb,2.6588e-02_jprb/)
947 kbo( :,27, 6) = (/&
948 &2.2079e-02_jprb,2.2020e-02_jprb,2.1942e-02_jprb,2.1852e-02_jprb,2.1768e-02_jprb/)
949 kbo( :,28, 6) = (/&
950 &1.8069e-02_jprb,1.8022e-02_jprb,1.7962e-02_jprb,1.7900e-02_jprb,1.7838e-02_jprb/)
951 kbo( :,29, 6) = (/&
952 &1.4852e-02_jprb,1.4820e-02_jprb,1.4781e-02_jprb,1.4749e-02_jprb,1.4702e-02_jprb/)
953 kbo( :,30, 6) = (/&
954 &1.2224e-02_jprb,1.2208e-02_jprb,1.2195e-02_jprb,1.2181e-02_jprb,1.2148e-02_jprb/)
955 kbo( :,31, 6) = (/&
956 &1.0105e-02_jprb,1.0111e-02_jprb,1.0120e-02_jprb,1.0118e-02_jprb,1.0103e-02_jprb/)
957 kbo( :,32, 6) = (/&
958 &8.3725e-03_jprb,8.4005e-03_jprb,8.4201e-03_jprb,8.4294e-03_jprb,8.4380e-03_jprb/)
959 kbo( :,33, 6) = (/&
960 &6.9608e-03_jprb,6.9985e-03_jprb,7.0246e-03_jprb,7.0506e-03_jprb,7.0801e-03_jprb/)
961 kbo( :,34, 6) = (/&
962 &5.7896e-03_jprb,5.8293e-03_jprb,5.8636e-03_jprb,5.9033e-03_jprb,5.9423e-03_jprb/)
963 kbo( :,35, 6) = (/&
964 &4.8109e-03_jprb,4.8516e-03_jprb,4.8942e-03_jprb,4.9402e-03_jprb,4.9858e-03_jprb/)
965 kbo( :,36, 6) = (/&
966 &3.9871e-03_jprb,4.0286e-03_jprb,4.0750e-03_jprb,4.1227e-03_jprb,4.1698e-03_jprb/)
967 kbo( :,37, 6) = (/&
968 &3.3096e-03_jprb,3.3515e-03_jprb,3.3976e-03_jprb,3.4442e-03_jprb,3.4909e-03_jprb/)
969 kbo( :,38, 6) = (/&
970 &2.7496e-03_jprb,2.7916e-03_jprb,2.8359e-03_jprb,2.8815e-03_jprb,2.9281e-03_jprb/)
971 kbo( :,39, 6) = (/&
972 &2.2877e-03_jprb,2.3291e-03_jprb,2.3716e-03_jprb,2.4163e-03_jprb,2.4637e-03_jprb/)
973 kbo( :,40, 6) = (/&
974 &1.8936e-03_jprb,1.9309e-03_jprb,1.9696e-03_jprb,2.0107e-03_jprb,2.0549e-03_jprb/)
975 kbo( :,41, 6) = (/&
976 &1.5662e-03_jprb,1.5994e-03_jprb,1.6345e-03_jprb,1.6724e-03_jprb,1.7133e-03_jprb/)
977 kbo( :,42, 6) = (/&
978 &1.2955e-03_jprb,1.3254e-03_jprb,1.3573e-03_jprb,1.3919e-03_jprb,1.4291e-03_jprb/)
979 kbo( :,43, 6) = (/&
980 &1.0710e-03_jprb,1.0978e-03_jprb,1.1266e-03_jprb,1.1585e-03_jprb,1.1927e-03_jprb/)
981 kbo( :,44, 6) = (/&
982 &8.8505e-04_jprb,9.0944e-04_jprb,9.3598e-04_jprb,9.6529e-04_jprb,9.9625e-04_jprb/)
983 kbo( :,45, 6) = (/&
984 &7.3173e-04_jprb,7.5385e-04_jprb,7.7814e-04_jprb,8.0503e-04_jprb,8.3318e-04_jprb/)
985 kbo( :,46, 6) = (/&
986 &6.0428e-04_jprb,6.2394e-04_jprb,6.4629e-04_jprb,6.7060e-04_jprb,6.9612e-04_jprb/)
987 kbo( :,47, 6) = (/&
988 &4.9743e-04_jprb,5.1490e-04_jprb,5.3489e-04_jprb,5.5664e-04_jprb,5.7933e-04_jprb/)
989 kbo( :,48, 6) = (/&
990 &4.0957e-04_jprb,4.2541e-04_jprb,4.4342e-04_jprb,4.6291e-04_jprb,4.8300e-04_jprb/)
991 kbo( :,49, 6) = (/&
992 &3.3774e-04_jprb,3.5226e-04_jprb,3.6850e-04_jprb,3.8591e-04_jprb,4.0393e-04_jprb/)
993 kbo( :,50, 6) = (/&
994 &2.7754e-04_jprb,2.9045e-04_jprb,3.0466e-04_jprb,3.1969e-04_jprb,3.3544e-04_jprb/)
995 kbo( :,51, 6) = (/&
996 &2.2753e-04_jprb,2.3884e-04_jprb,2.5106e-04_jprb,2.6388e-04_jprb,2.7745e-04_jprb/)
997 kbo( :,52, 6) = (/&
998 &1.8669e-04_jprb,1.9654e-04_jprb,2.0712e-04_jprb,2.1810e-04_jprb,2.2988e-04_jprb/)
999 kbo( :,53, 6) = (/&
1000 &1.5338e-04_jprb,1.6202e-04_jprb,1.7120e-04_jprb,1.8071e-04_jprb,1.9105e-04_jprb/)
1001 kbo( :,54, 6) = (/&
1002 &1.2486e-04_jprb,1.3205e-04_jprb,1.3971e-04_jprb,1.4755e-04_jprb,1.5604e-04_jprb/)
1003 kbo( :,55, 6) = (/&
1004 &1.0106e-04_jprb,1.0690e-04_jprb,1.1311e-04_jprb,1.1943e-04_jprb,1.2616e-04_jprb/)
1005 kbo( :,56, 6) = (/&
1006 &8.1771e-05_jprb,8.6502e-05_jprb,9.1586e-05_jprb,9.6653e-05_jprb,1.0202e-04_jprb/)
1007 kbo( :,57, 6) = (/&
1008 &6.6144e-05_jprb,6.9933e-05_jprb,7.4136e-05_jprb,7.8259e-05_jprb,8.2530e-05_jprb/)
1009 kbo( :,58, 6) = (/&
1010 &5.3465e-05_jprb,5.6462e-05_jprb,5.9920e-05_jprb,6.3267e-05_jprb,6.6666e-05_jprb/)
1011 kbo( :,59, 6) = (/&
1012 &4.3125e-05_jprb,4.5368e-05_jprb,4.8072e-05_jprb,5.0671e-05_jprb,5.3226e-05_jprb/)
1013 kbo( :, 7, 7) = (/&
1014 &1.6077e+00_jprb,1.7981e+00_jprb,2.0341e+00_jprb,2.3365e+00_jprb,2.7141e+00_jprb/)
1015 kbo( :, 8, 7) = (/&
1016 &1.0311e+00_jprb,1.1132e+00_jprb,1.2137e+00_jprb,1.3415e+00_jprb,1.5087e+00_jprb/)
1017 kbo( :, 9, 7) = (/&
1018 &7.6937e-01_jprb,8.0602e-01_jprb,8.5228e-01_jprb,9.1262e-01_jprb,9.8815e-01_jprb/)
1019 kbo( :,10, 7) = (/&
1020 &6.4929e-01_jprb,6.6760e-01_jprb,6.9118e-01_jprb,7.1882e-01_jprb,7.5540e-01_jprb/)
1021 kbo( :,11, 7) = (/&
1022 &5.9378e-01_jprb,6.0842e-01_jprb,6.2583e-01_jprb,6.4567e-01_jprb,6.6995e-01_jprb/)
1023 kbo( :,12, 7) = (/&
1024 &5.6066e-01_jprb,5.7335e-01_jprb,5.8800e-01_jprb,6.0558e-01_jprb,6.2619e-01_jprb/)
1025 kbo( :,13, 7) = (/&
1026 &5.2201e-01_jprb,5.3299e-01_jprb,5.4556e-01_jprb,5.5961e-01_jprb,5.7566e-01_jprb/)
1027 kbo( :,14, 7) = (/&
1028 &4.6501e-01_jprb,4.7434e-01_jprb,4.8336e-01_jprb,4.9210e-01_jprb,5.0157e-01_jprb/)
1029 kbo( :,15, 7) = (/&
1030 &4.1255e-01_jprb,4.2030e-01_jprb,4.2720e-01_jprb,4.3352e-01_jprb,4.3993e-01_jprb/)
1031 kbo( :,16, 7) = (/&
1032 &3.6768e-01_jprb,3.7401e-01_jprb,3.7974e-01_jprb,3.8485e-01_jprb,3.8978e-01_jprb/)
1033 kbo( :,17, 7) = (/&
1034 &3.2496e-01_jprb,3.3013e-01_jprb,3.3469e-01_jprb,3.3855e-01_jprb,3.4245e-01_jprb/)
1035 kbo( :,18, 7) = (/&
1036 &2.8473e-01_jprb,2.8863e-01_jprb,2.9200e-01_jprb,2.9483e-01_jprb,2.9767e-01_jprb/)
1037 kbo( :,19, 7) = (/&
1038 &2.4598e-01_jprb,2.4883e-01_jprb,2.5108e-01_jprb,2.5281e-01_jprb,2.5427e-01_jprb/)
1039 kbo( :,20, 7) = (/&
1040 &2.1080e-01_jprb,2.1273e-01_jprb,2.1404e-01_jprb,2.1479e-01_jprb,2.1513e-01_jprb/)
1041 kbo( :,21, 7) = (/&
1042 &1.7884e-01_jprb,1.8005e-01_jprb,1.8057e-01_jprb,1.8053e-01_jprb,1.8015e-01_jprb/)
1043 kbo( :,22, 7) = (/&
1044 &1.5046e-01_jprb,1.5096e-01_jprb,1.5087e-01_jprb,1.5039e-01_jprb,1.4970e-01_jprb/)
1045 kbo( :,23, 7) = (/&
1046 &1.2553e-01_jprb,1.2553e-01_jprb,1.2506e-01_jprb,1.2444e-01_jprb,1.2374e-01_jprb/)
1047 kbo( :,24, 7) = (/&
1048 &1.0391e-01_jprb,1.0358e-01_jprb,1.0303e-01_jprb,1.0238e-01_jprb,1.0167e-01_jprb/)
1049 kbo( :,25, 7) = (/&
1050 &8.5584e-02_jprb,8.5157e-02_jprb,8.4645e-02_jprb,8.4056e-02_jprb,8.3409e-02_jprb/)
1051 kbo( :,26, 7) = (/&
1052 &7.0315e-02_jprb,6.9930e-02_jprb,6.9473e-02_jprb,6.8949e-02_jprb,6.8424e-02_jprb/)
1053 kbo( :,27, 7) = (/&
1054 &5.7710e-02_jprb,5.7391e-02_jprb,5.7008e-02_jprb,5.6586e-02_jprb,5.6210e-02_jprb/)
1055 kbo( :,28, 7) = (/&
1056 &4.7344e-02_jprb,4.7085e-02_jprb,4.6768e-02_jprb,4.6467e-02_jprb,4.6249e-02_jprb/)
1057 kbo( :,29, 7) = (/&
1058 &3.8923e-02_jprb,3.8733e-02_jprb,3.8524e-02_jprb,3.8372e-02_jprb,3.8309e-02_jprb/)
1059 kbo( :,30, 7) = (/&
1060 &3.2033e-02_jprb,3.1913e-02_jprb,3.1817e-02_jprb,3.1789e-02_jprb,3.1818e-02_jprb/)
1061 kbo( :,31, 7) = (/&
1062 &2.6460e-02_jprb,2.6427e-02_jprb,2.6436e-02_jprb,2.6518e-02_jprb,2.6590e-02_jprb/)
1063 kbo( :,32, 7) = (/&
1064 &2.1922e-02_jprb,2.1964e-02_jprb,2.2067e-02_jprb,2.2187e-02_jprb,2.2275e-02_jprb/)
1065 kbo( :,33, 7) = (/&
1066 &1.8236e-02_jprb,1.8348e-02_jprb,1.8498e-02_jprb,1.8631e-02_jprb,1.8753e-02_jprb/)
1067 kbo( :,34, 7) = (/&
1068 &1.5224e-02_jprb,1.5383e-02_jprb,1.5538e-02_jprb,1.5679e-02_jprb,1.5835e-02_jprb/)
1069 kbo( :,35, 7) = (/&
1070 &1.2735e-02_jprb,1.2900e-02_jprb,1.3051e-02_jprb,1.3209e-02_jprb,1.3385e-02_jprb/)
1071 kbo( :,36, 7) = (/&
1072 &1.0628e-02_jprb,1.0788e-02_jprb,1.0937e-02_jprb,1.1102e-02_jprb,1.1287e-02_jprb/)
1073 kbo( :,37, 7) = (/&
1074 &8.9166e-03_jprb,9.0712e-03_jprb,9.2215e-03_jprb,9.3908e-03_jprb,9.5808e-03_jprb/)
1075 kbo( :,38, 7) = (/&
1076 &7.4940e-03_jprb,7.6454e-03_jprb,7.7999e-03_jprb,7.9731e-03_jprb,8.1630e-03_jprb/)
1077 kbo( :,39, 7) = (/&
1078 &6.3066e-03_jprb,6.4579e-03_jprb,6.6165e-03_jprb,6.7948e-03_jprb,6.9866e-03_jprb/)
1079 kbo( :,40, 7) = (/&
1080 &5.2690e-03_jprb,5.4111e-03_jprb,5.5610e-03_jprb,5.7292e-03_jprb,5.9108e-03_jprb/)
1081 kbo( :,41, 7) = (/&
1082 &4.3956e-03_jprb,4.5258e-03_jprb,4.6643e-03_jprb,4.8199e-03_jprb,4.9873e-03_jprb/)
1083 kbo( :,42, 7) = (/&
1084 &3.6658e-03_jprb,3.7854e-03_jprb,3.9129e-03_jprb,4.0544e-03_jprb,4.2074e-03_jprb/)
1085 kbo( :,43, 7) = (/&
1086 &3.0541e-03_jprb,3.1620e-03_jprb,3.2785e-03_jprb,3.4070e-03_jprb,3.5478e-03_jprb/)
1087 kbo( :,44, 7) = (/&
1088 &2.5426e-03_jprb,2.6415e-03_jprb,2.7479e-03_jprb,2.8645e-03_jprb,2.9935e-03_jprb/)
1089 kbo( :,45, 7) = (/&
1090 &2.1195e-03_jprb,2.2094e-03_jprb,2.3059e-03_jprb,2.4121e-03_jprb,2.5314e-03_jprb/)
1091 kbo( :,46, 7) = (/&
1092 &1.7648e-03_jprb,1.8463e-03_jprb,1.9334e-03_jprb,2.0302e-03_jprb,2.1404e-03_jprb/)
1093 kbo( :,47, 7) = (/&
1094 &1.4634e-03_jprb,1.5361e-03_jprb,1.6140e-03_jprb,1.7015e-03_jprb,1.8026e-03_jprb/)
1095 kbo( :,48, 7) = (/&
1096 &1.2139e-03_jprb,1.2801e-03_jprb,1.3517e-03_jprb,1.4311e-03_jprb,1.5246e-03_jprb/)
1097 kbo( :,49, 7) = (/&
1098 &1.0084e-03_jprb,1.0696e-03_jprb,1.1358e-03_jprb,1.2100e-03_jprb,1.2983e-03_jprb/)
1099 kbo( :,50, 7) = (/&
1100 &8.3348e-04_jprb,8.8778e-04_jprb,9.4722e-04_jprb,1.0145e-03_jprb,1.0957e-03_jprb/)
1101 kbo( :,51, 7) = (/&
1102 &6.8674e-04_jprb,7.3388e-04_jprb,7.8672e-04_jprb,8.4662e-04_jprb,9.1942e-04_jprb/)
1103 kbo( :,52, 7) = (/&
1104 &5.6565e-04_jprb,6.0707e-04_jprb,6.5426e-04_jprb,7.0839e-04_jprb,7.7411e-04_jprb/)
1105 kbo( :,53, 7) = (/&
1106 &4.6652e-04_jprb,5.0305e-04_jprb,5.4564e-04_jprb,5.9512e-04_jprb,6.5514e-04_jprb/)
1107 kbo( :,54, 7) = (/&
1108 &3.8020e-04_jprb,4.1066e-04_jprb,4.4674e-04_jprb,4.8863e-04_jprb,5.3927e-04_jprb/)
1109 kbo( :,55, 7) = (/&
1110 &3.0778e-04_jprb,3.3217e-04_jprb,3.6157e-04_jprb,3.9555e-04_jprb,4.3630e-04_jprb/)
1111 kbo( :,56, 7) = (/&
1112 &2.4903e-04_jprb,2.6857e-04_jprb,2.9236e-04_jprb,3.2037e-04_jprb,3.5294e-04_jprb/)
1113 kbo( :,57, 7) = (/&
1114 &2.0141e-04_jprb,2.1696e-04_jprb,2.3614e-04_jprb,2.5898e-04_jprb,2.8543e-04_jprb/)
1115 kbo( :,58, 7) = (/&
1116 &1.6266e-04_jprb,1.7505e-04_jprb,1.9031e-04_jprb,2.0880e-04_jprb,2.2991e-04_jprb/)
1117 kbo( :,59, 7) = (/&
1118 &1.3098e-04_jprb,1.4063e-04_jprb,1.5198e-04_jprb,1.6574e-04_jprb,1.8129e-04_jprb/)
1119 kbo( :, 7, 8) = (/&
1120 &3.3211e+00_jprb,3.8117e+00_jprb,4.3961e+00_jprb,5.0891e+00_jprb,5.9185e+00_jprb/)
1121 kbo( :, 8, 8) = (/&
1122 &1.8613e+00_jprb,2.0568e+00_jprb,2.2883e+00_jprb,2.5535e+00_jprb,2.8756e+00_jprb/)
1123 kbo( :, 9, 8) = (/&
1124 &1.2496e+00_jprb,1.3135e+00_jprb,1.3903e+00_jprb,1.4889e+00_jprb,1.6200e+00_jprb/)
1125 kbo( :,10, 8) = (/&
1126 &1.0270e+00_jprb,1.0590e+00_jprb,1.0952e+00_jprb,1.1413e+00_jprb,1.1993e+00_jprb/)
1127 kbo( :,11, 8) = (/&
1128 &9.5413e-01_jprb,9.8150e-01_jprb,1.0111e+00_jprb,1.0458e+00_jprb,1.0870e+00_jprb/)
1129 kbo( :,12, 8) = (/&
1130 &9.3205e-01_jprb,9.5733e-01_jprb,9.8351e-01_jprb,1.0122e+00_jprb,1.0457e+00_jprb/)
1131 kbo( :,13, 8) = (/&
1132 &9.0876e-01_jprb,9.3132e-01_jprb,9.5428e-01_jprb,9.7851e-01_jprb,1.0060e+00_jprb/)
1133 kbo( :,14, 8) = (/&
1134 &8.5246e-01_jprb,8.7119e-01_jprb,8.8993e-01_jprb,9.0965e-01_jprb,9.3087e-01_jprb/)
1135 kbo( :,15, 8) = (/&
1136 &8.0357e-01_jprb,8.1893e-01_jprb,8.3481e-01_jprb,8.5136e-01_jprb,8.6824e-01_jprb/)
1137 kbo( :,16, 8) = (/&
1138 &7.6497e-01_jprb,7.7909e-01_jprb,7.9306e-01_jprb,8.0699e-01_jprb,8.2094e-01_jprb/)
1139 kbo( :,17, 8) = (/&
1140 &7.2426e-01_jprb,7.3747e-01_jprb,7.4973e-01_jprb,7.6144e-01_jprb,7.7249e-01_jprb/)
1141 kbo( :,18, 8) = (/&
1142 &6.8011e-01_jprb,6.9229e-01_jprb,7.0291e-01_jprb,7.1244e-01_jprb,7.2174e-01_jprb/)
1143 kbo( :,19, 8) = (/&
1144 &6.2929e-01_jprb,6.4006e-01_jprb,6.4901e-01_jprb,6.5727e-01_jprb,6.6513e-01_jprb/)
1145 kbo( :,20, 8) = (/&
1146 &5.7567e-01_jprb,5.8515e-01_jprb,5.9318e-01_jprb,6.0058e-01_jprb,6.0766e-01_jprb/)
1147 kbo( :,21, 8) = (/&
1148 &5.1892e-01_jprb,5.2717e-01_jprb,5.3431e-01_jprb,5.4099e-01_jprb,5.4743e-01_jprb/)
1149 kbo( :,22, 8) = (/&
1150 &4.6089e-01_jprb,4.6796e-01_jprb,4.7423e-01_jprb,4.8007e-01_jprb,4.8563e-01_jprb/)
1151 kbo( :,23, 8) = (/&
1152 &4.0358e-01_jprb,4.0957e-01_jprb,4.1496e-01_jprb,4.1964e-01_jprb,4.2400e-01_jprb/)
1153 kbo( :,24, 8) = (/&
1154 &3.4857e-01_jprb,3.5354e-01_jprb,3.5772e-01_jprb,3.6116e-01_jprb,3.6425e-01_jprb/)
1155 kbo( :,25, 8) = (/&
1156 &2.9819e-01_jprb,3.0212e-01_jprb,3.0511e-01_jprb,3.0743e-01_jprb,3.0973e-01_jprb/)
1157 kbo( :,26, 8) = (/&
1158 &2.5341e-01_jprb,2.5614e-01_jprb,2.5815e-01_jprb,2.5994e-01_jprb,2.6173e-01_jprb/)
1159 kbo( :,27, 8) = (/&
1160 &2.1391e-01_jprb,2.1577e-01_jprb,2.1730e-01_jprb,2.1901e-01_jprb,2.2050e-01_jprb/)
1161 kbo( :,28, 8) = (/&
1162 &1.7949e-01_jprb,1.8088e-01_jprb,1.8241e-01_jprb,1.8396e-01_jprb,1.8539e-01_jprb/)
1163 kbo( :,29, 8) = (/&
1164 &1.5049e-01_jprb,1.5188e-01_jprb,1.5349e-01_jprb,1.5504e-01_jprb,1.5657e-01_jprb/)
1165 kbo( :,30, 8) = (/&
1166 &1.2605e-01_jprb,1.2767e-01_jprb,1.2921e-01_jprb,1.3083e-01_jprb,1.3263e-01_jprb/)
1167 kbo( :,31, 8) = (/&
1168 &1.0607e-01_jprb,1.0765e-01_jprb,1.0930e-01_jprb,1.1112e-01_jprb,1.1342e-01_jprb/)
1169 kbo( :,32, 8) = (/&
1170 &8.9368e-02_jprb,9.1008e-02_jprb,9.2774e-02_jprb,9.4981e-02_jprb,9.7872e-02_jprb/)
1171 kbo( :,33, 8) = (/&
1172 &7.5524e-02_jprb,7.7232e-02_jprb,7.9299e-02_jprb,8.2001e-02_jprb,8.5510e-02_jprb/)
1173 kbo( :,34, 8) = (/&
1174 &6.3951e-02_jprb,6.5799e-02_jprb,6.8200e-02_jprb,7.1324e-02_jprb,7.5176e-02_jprb/)
1175 kbo( :,35, 8) = (/&
1176 &5.4154e-02_jprb,5.6182e-02_jprb,5.8823e-02_jprb,6.2186e-02_jprb,6.6087e-02_jprb/)
1177 kbo( :,36, 8) = (/&
1178 &4.5779e-02_jprb,4.7854e-02_jprb,5.0601e-02_jprb,5.3968e-02_jprb,5.7802e-02_jprb/)
1179 kbo( :,37, 8) = (/&
1180 &3.8721e-02_jprb,4.0789e-02_jprb,4.3532e-02_jprb,4.6821e-02_jprb,5.0588e-02_jprb/)
1181 kbo( :,38, 8) = (/&
1182 &3.2891e-02_jprb,3.4951e-02_jprb,3.7677e-02_jprb,4.0901e-02_jprb,4.4641e-02_jprb/)
1183 kbo( :,39, 8) = (/&
1184 &2.8118e-02_jprb,3.0183e-02_jprb,3.2884e-02_jprb,3.6081e-02_jprb,3.9837e-02_jprb/)
1185 kbo( :,40, 8) = (/&
1186 &2.3847e-02_jprb,2.5787e-02_jprb,2.8347e-02_jprb,3.1459e-02_jprb,3.5061e-02_jprb/)
1187 kbo( :,41, 8) = (/&
1188 &2.0268e-02_jprb,2.2079e-02_jprb,2.4495e-02_jprb,2.7477e-02_jprb,3.0979e-02_jprb/)
1189 kbo( :,42, 8) = (/&
1190 &1.7304e-02_jprb,1.9004e-02_jprb,2.1294e-02_jprb,2.4161e-02_jprb,2.7579e-02_jprb/)
1191 kbo( :,43, 8) = (/&
1192 &1.4797e-02_jprb,1.6382e-02_jprb,1.8537e-02_jprb,2.1286e-02_jprb,2.4610e-02_jprb/)
1193 kbo( :,44, 8) = (/&
1194 &1.2690e-02_jprb,1.4182e-02_jprb,1.6231e-02_jprb,1.8878e-02_jprb,2.2106e-02_jprb/)
1195 kbo( :,45, 8) = (/&
1196 &1.0930e-02_jprb,1.2370e-02_jprb,1.4353e-02_jprb,1.6936e-02_jprb,2.0100e-02_jprb/)
1197 kbo( :,46, 8) = (/&
1198 &9.3910e-03_jprb,1.0819e-02_jprb,1.2738e-02_jprb,1.5273e-02_jprb,1.8465e-02_jprb/)
1199 kbo( :,47, 8) = (/&
1200 &7.9861e-03_jprb,9.3365e-03_jprb,1.1203e-02_jprb,1.3684e-02_jprb,1.6817e-02_jprb/)
1201 kbo( :,48, 8) = (/&
1202 &6.8013e-03_jprb,8.0839e-03_jprb,9.9438e-03_jprb,1.2411e-02_jprb,1.5563e-02_jprb/)
1203 kbo( :,49, 8) = (/&
1204 &5.8190e-03_jprb,7.0513e-03_jprb,8.8856e-03_jprb,1.1416e-02_jprb,1.4708e-02_jprb/)
1205 kbo( :,50, 8) = (/&
1206 &4.9304e-03_jprb,6.0739e-03_jprb,7.8186e-03_jprb,1.0316e-02_jprb,1.3667e-02_jprb/)
1207 kbo( :,51, 8) = (/&
1208 &4.1610e-03_jprb,5.1921e-03_jprb,6.8130e-03_jprb,9.2232e-03_jprb,1.2553e-02_jprb/)
1209 kbo( :,52, 8) = (/&
1210 &3.5138e-03_jprb,4.4587e-03_jprb,5.9783e-03_jprb,8.3075e-03_jprb,1.1637e-02_jprb/)
1211 kbo( :,53, 8) = (/&
1212 &2.9769e-03_jprb,3.8545e-03_jprb,5.3084e-03_jprb,7.5851e-03_jprb,1.0949e-02_jprb/)
1213 kbo( :,54, 8) = (/&
1214 &2.4427e-03_jprb,3.1932e-03_jprb,4.4660e-03_jprb,6.5058e-03_jprb,9.6124e-03_jprb/)
1215 kbo( :,55, 8) = (/&
1216 &1.9622e-03_jprb,2.5690e-03_jprb,3.6206e-03_jprb,5.3411e-03_jprb,8.0479e-03_jprb/)
1217 kbo( :,56, 8) = (/&
1218 &1.5709e-03_jprb,2.0592e-03_jprb,2.9210e-03_jprb,4.3945e-03_jprb,6.6922e-03_jprb/)
1219 kbo( :,57, 8) = (/&
1220 &1.2535e-03_jprb,1.6436e-03_jprb,2.3438e-03_jprb,3.5705e-03_jprb,5.5260e-03_jprb/)
1221 kbo( :,58, 8) = (/&
1222 &9.9517e-04_jprb,1.3029e-03_jprb,1.8612e-03_jprb,2.8649e-03_jprb,4.4948e-03_jprb/)
1223 kbo( :,59, 8) = (/&
1224 &7.8554e-04_jprb,1.0228e-03_jprb,1.4402e-03_jprb,2.2044e-03_jprb,3.4577e-03_jprb/)
1225 kbo( :, 7, 9) = (/&
1226 &8.6167e+00_jprb,9.9993e+00_jprb,1.1774e+01_jprb,1.3928e+01_jprb,1.6806e+01_jprb/)
1227 kbo( :, 8, 9) = (/&
1228 &4.6456e+00_jprb,5.1596e+00_jprb,5.8731e+00_jprb,6.7813e+00_jprb,7.8273e+00_jprb/)
1229 kbo( :, 9, 9) = (/&
1230 &2.8817e+00_jprb,2.9866e+00_jprb,3.1829e+00_jprb,3.4539e+00_jprb,3.7883e+00_jprb/)
1231 kbo( :,10, 9) = (/&
1232 &2.1848e+00_jprb,2.2145e+00_jprb,2.2894e+00_jprb,2.3929e+00_jprb,2.5188e+00_jprb/)
1233 kbo( :,11, 9) = (/&
1234 &1.8617e+00_jprb,1.8904e+00_jprb,1.9482e+00_jprb,2.0265e+00_jprb,2.1151e+00_jprb/)
1235 kbo( :,12, 9) = (/&
1236 &1.7740e+00_jprb,1.8058e+00_jprb,1.8594e+00_jprb,1.9279e+00_jprb,2.0057e+00_jprb/)
1237 kbo( :,13, 9) = (/&
1238 &1.7170e+00_jprb,1.7519e+00_jprb,1.8033e+00_jprb,1.8660e+00_jprb,1.9366e+00_jprb/)
1239 kbo( :,14, 9) = (/&
1240 &1.6290e+00_jprb,1.6661e+00_jprb,1.7138e+00_jprb,1.7672e+00_jprb,1.8242e+00_jprb/)
1241 kbo( :,15, 9) = (/&
1242 &1.6136e+00_jprb,1.6519e+00_jprb,1.6950e+00_jprb,1.7410e+00_jprb,1.7875e+00_jprb/)
1243 kbo( :,16, 9) = (/&
1244 &1.6442e+00_jprb,1.6834e+00_jprb,1.7244e+00_jprb,1.7672e+00_jprb,1.8100e+00_jprb/)
1245 kbo( :,17, 9) = (/&
1246 &1.6931e+00_jprb,1.7318e+00_jprb,1.7716e+00_jprb,1.8124e+00_jprb,1.8535e+00_jprb/)
1247 kbo( :,18, 9) = (/&
1248 &1.7458e+00_jprb,1.7837e+00_jprb,1.8217e+00_jprb,1.8608e+00_jprb,1.8986e+00_jprb/)
1249 kbo( :,19, 9) = (/&
1250 &1.7845e+00_jprb,1.8215e+00_jprb,1.8581e+00_jprb,1.8942e+00_jprb,1.9287e+00_jprb/)
1251 kbo( :,20, 9) = (/&
1252 &1.8060e+00_jprb,1.8426e+00_jprb,1.8782e+00_jprb,1.9127e+00_jprb,1.9453e+00_jprb/)
1253 kbo( :,21, 9) = (/&
1254 &1.8043e+00_jprb,1.8411e+00_jprb,1.8774e+00_jprb,1.9117e+00_jprb,1.9436e+00_jprb/)
1255 kbo( :,22, 9) = (/&
1256 &1.7831e+00_jprb,1.8215e+00_jprb,1.8592e+00_jprb,1.8938e+00_jprb,1.9262e+00_jprb/)
1257 kbo( :,23, 9) = (/&
1258 &1.7432e+00_jprb,1.7837e+00_jprb,1.8229e+00_jprb,1.8594e+00_jprb,1.8938e+00_jprb/)
1259 kbo( :,24, 9) = (/&
1260 &1.6875e+00_jprb,1.7308e+00_jprb,1.7727e+00_jprb,1.8123e+00_jprb,1.8497e+00_jprb/)
1261 kbo( :,25, 9) = (/&
1262 &1.6225e+00_jprb,1.6694e+00_jprb,1.7148e+00_jprb,1.7578e+00_jprb,1.7985e+00_jprb/)
1263 kbo( :,26, 9) = (/&
1264 &1.5531e+00_jprb,1.6049e+00_jprb,1.6541e+00_jprb,1.7008e+00_jprb,1.7454e+00_jprb/)
1265 kbo( :,27, 9) = (/&
1266 &1.4838e+00_jprb,1.5403e+00_jprb,1.5937e+00_jprb,1.6447e+00_jprb,1.6935e+00_jprb/)
1267 kbo( :,28, 9) = (/&
1268 &1.4175e+00_jprb,1.4786e+00_jprb,1.5364e+00_jprb,1.5921e+00_jprb,1.6457e+00_jprb/)
1269 kbo( :,29, 9) = (/&
1270 &1.3581e+00_jprb,1.4237e+00_jprb,1.4868e+00_jprb,1.5478e+00_jprb,1.6068e+00_jprb/)
1271 kbo( :,30, 9) = (/&
1272 &1.3065e+00_jprb,1.3770e+00_jprb,1.4457e+00_jprb,1.5119e+00_jprb,1.5768e+00_jprb/)
1273 kbo( :,31, 9) = (/&
1274 &1.2654e+00_jprb,1.3417e+00_jprb,1.4156e+00_jprb,1.4877e+00_jprb,1.5592e+00_jprb/)
1275 kbo( :,32, 9) = (/&
1276 &1.2347e+00_jprb,1.3163e+00_jprb,1.3958e+00_jprb,1.4744e+00_jprb,1.5534e+00_jprb/)
1277 kbo( :,33, 9) = (/&
1278 &1.2142e+00_jprb,1.3012e+00_jprb,1.3868e+00_jprb,1.4727e+00_jprb,1.5601e+00_jprb/)
1279 kbo( :,34, 9) = (/&
1280 &1.1993e+00_jprb,1.2916e+00_jprb,1.3831e+00_jprb,1.4762e+00_jprb,1.5688e+00_jprb/)
1281 kbo( :,35, 9) = (/&
1282 &1.1833e+00_jprb,1.2807e+00_jprb,1.3785e+00_jprb,1.4785e+00_jprb,1.5752e+00_jprb/)
1283 kbo( :,36, 9) = (/&
1284 &1.1625e+00_jprb,1.2651e+00_jprb,1.3689e+00_jprb,1.4743e+00_jprb,1.5754e+00_jprb/)
1285 kbo( :,37, 9) = (/&
1286 &1.1303e+00_jprb,1.2371e+00_jprb,1.3460e+00_jprb,1.4555e+00_jprb,1.5610e+00_jprb/)
1287 kbo( :,38, 9) = (/&
1288 &1.1009e+00_jprb,1.2122e+00_jprb,1.3263e+00_jprb,1.4399e+00_jprb,1.5500e+00_jprb/)
1289 kbo( :,39, 9) = (/&
1290 &1.0754e+00_jprb,1.1914e+00_jprb,1.3110e+00_jprb,1.4289e+00_jprb,1.5440e+00_jprb/)
1291 kbo( :,40, 9) = (/&
1292 &1.0372e+00_jprb,1.1560e+00_jprb,1.2790e+00_jprb,1.4000e+00_jprb,1.5190e+00_jprb/)
1293 kbo( :,41, 9) = (/&
1294 &9.9871e-01_jprb,1.1200e+00_jprb,1.2460e+00_jprb,1.3704e+00_jprb,1.4926e+00_jprb/)
1295 kbo( :,42, 9) = (/&
1296 &9.6171e-01_jprb,1.0854e+00_jprb,1.2142e+00_jprb,1.3421e+00_jprb,1.4677e+00_jprb/)
1297 kbo( :,43, 9) = (/&
1298 &9.1903e-01_jprb,1.0445e+00_jprb,1.1757e+00_jprb,1.3075e+00_jprb,1.4366e+00_jprb/)
1299 kbo( :,44, 9) = (/&
1300 &8.7442e-01_jprb,1.0015e+00_jprb,1.1348e+00_jprb,1.2703e+00_jprb,1.4033e+00_jprb/)
1301 kbo( :,45, 9) = (/&
1302 &8.3107e-01_jprb,9.5973e-01_jprb,1.0952e+00_jprb,1.2344e+00_jprb,1.3716e+00_jprb/)
1303 kbo( :,46, 9) = (/&
1304 &7.8543e-01_jprb,9.1559e-01_jprb,1.0528e+00_jprb,1.1955e+00_jprb,1.3366e+00_jprb/)
1305 kbo( :,47, 9) = (/&
1306 &7.3439e-01_jprb,8.6539e-01_jprb,1.0031e+00_jprb,1.1485e+00_jprb,1.2936e+00_jprb/)
1307 kbo( :,48, 9) = (/&
1308 &6.8465e-01_jprb,8.1643e-01_jprb,9.5503e-01_jprb,1.1032e+00_jprb,1.2524e+00_jprb/)
1309 kbo( :,49, 9) = (/&
1310 &6.3687e-01_jprb,7.6933e-01_jprb,9.0975e-01_jprb,1.0608e+00_jprb,1.2144e+00_jprb/)
1311 kbo( :,50, 9) = (/&
1312 &5.9153e-01_jprb,7.2348e-01_jprb,8.6434e-01_jprb,1.0167e+00_jprb,1.1731e+00_jprb/)
1313 kbo( :,51, 9) = (/&
1314 &5.4771e-01_jprb,6.7868e-01_jprb,8.1882e-01_jprb,9.7145e-01_jprb,1.1300e+00_jprb/)
1315 kbo( :,52, 9) = (/&
1316 &5.0614e-01_jprb,6.3574e-01_jprb,7.7544e-01_jprb,9.2863e-01_jprb,1.0894e+00_jprb/)
1317 kbo( :,53, 9) = (/&
1318 &4.6783e-01_jprb,5.9578e-01_jprb,7.3527e-01_jprb,8.8939e-01_jprb,1.0528e+00_jprb/)
1319 kbo( :,54, 9) = (/&
1320 &4.2858e-01_jprb,5.5309e-01_jprb,6.8975e-01_jprb,8.4016e-01_jprb,1.0034e+00_jprb/)
1321 kbo( :,55, 9) = (/&
1322 &3.8876e-01_jprb,5.0900e-01_jprb,6.4137e-01_jprb,7.8611e-01_jprb,9.4586e-01_jprb/)
1323 kbo( :,56, 9) = (/&
1324 &3.5092e-01_jprb,4.6656e-01_jprb,5.9498e-01_jprb,7.3470e-01_jprb,8.8954e-01_jprb/)
1325 kbo( :,57, 9) = (/&
1326 &3.1483e-01_jprb,4.2575e-01_jprb,5.4997e-01_jprb,6.8552e-01_jprb,8.3410e-01_jprb/)
1327 kbo( :,58, 9) = (/&
1328 &2.8132e-01_jprb,3.8740e-01_jprb,5.0731e-01_jprb,6.3876e-01_jprb,7.8141e-01_jprb/)
1329 kbo( :,59, 9) = (/&
1330 &2.6003e-01_jprb,3.6342e-01_jprb,4.7940e-01_jprb,6.0625e-01_jprb,7.4174e-01_jprb/)
1331 kbo( :, 7,10) = (/&
1332 &1.5697e+01_jprb,1.7679e+01_jprb,2.1528e+01_jprb,3.0021e+01_jprb,4.1007e+01_jprb/)
1333 kbo( :, 8,10) = (/&
1334 &9.2952e+00_jprb,1.0046e+01_jprb,1.1296e+01_jprb,1.2956e+01_jprb,1.5022e+01_jprb/)
1335 kbo( :, 9,10) = (/&
1336 &6.0955e+00_jprb,6.1520e+00_jprb,6.4442e+00_jprb,6.9113e+00_jprb,7.6410e+00_jprb/)
1337 kbo( :,10,10) = (/&
1338 &4.2479e+00_jprb,4.2558e+00_jprb,4.3823e+00_jprb,4.5849e+00_jprb,4.8443e+00_jprb/)
1339 kbo( :,11,10) = (/&
1340 &3.5882e+00_jprb,3.5777e+00_jprb,3.6465e+00_jprb,3.7844e+00_jprb,3.9918e+00_jprb/)
1341 kbo( :,12,10) = (/&
1342 &3.3077e+00_jprb,3.3279e+00_jprb,3.4118e+00_jprb,3.5356e+00_jprb,3.6964e+00_jprb/)
1343 kbo( :,13,10) = (/&
1344 &3.1132e+00_jprb,3.1610e+00_jprb,3.2411e+00_jprb,3.3566e+00_jprb,3.4933e+00_jprb/)
1345 kbo( :,14,10) = (/&
1346 &2.6876e+00_jprb,2.7279e+00_jprb,2.7858e+00_jprb,2.8724e+00_jprb,2.9756e+00_jprb/)
1347 kbo( :,15,10) = (/&
1348 &2.5898e+00_jprb,2.6527e+00_jprb,2.7165e+00_jprb,2.7974e+00_jprb,2.8915e+00_jprb/)
1349 kbo( :,16,10) = (/&
1350 &2.7402e+00_jprb,2.8161e+00_jprb,2.8979e+00_jprb,2.9945e+00_jprb,3.0907e+00_jprb/)
1351 kbo( :,17,10) = (/&
1352 &2.9795e+00_jprb,3.0670e+00_jprb,3.1571e+00_jprb,3.2540e+00_jprb,3.3473e+00_jprb/)
1353 kbo( :,18,10) = (/&
1354 &3.2307e+00_jprb,3.3198e+00_jprb,3.4108e+00_jprb,3.5052e+00_jprb,3.6016e+00_jprb/)
1355 kbo( :,19,10) = (/&
1356 &3.4826e+00_jprb,3.5697e+00_jprb,3.6620e+00_jprb,3.7547e+00_jprb,3.8494e+00_jprb/)
1357 kbo( :,20,10) = (/&
1358 &3.7406e+00_jprb,3.8282e+00_jprb,3.9146e+00_jprb,4.0064e+00_jprb,4.0952e+00_jprb/)
1359 kbo( :,21,10) = (/&
1360 &4.0052e+00_jprb,4.0906e+00_jprb,4.1674e+00_jprb,4.2500e+00_jprb,4.3292e+00_jprb/)
1361 kbo( :,22,10) = (/&
1362 &4.2533e+00_jprb,4.3366e+00_jprb,4.4069e+00_jprb,4.4888e+00_jprb,4.5601e+00_jprb/)
1363 kbo( :,23,10) = (/&
1364 &4.4651e+00_jprb,4.5450e+00_jprb,4.6244e+00_jprb,4.7038e+00_jprb,4.7723e+00_jprb/)
1365 kbo( :,24,10) = (/&
1366 &4.6357e+00_jprb,4.7250e+00_jprb,4.8121e+00_jprb,4.8897e+00_jprb,4.9609e+00_jprb/)
1367 kbo( :,25,10) = (/&
1368 &4.7760e+00_jprb,4.8704e+00_jprb,4.9689e+00_jprb,5.0528e+00_jprb,5.1275e+00_jprb/)
1369 kbo( :,26,10) = (/&
1370 &4.8874e+00_jprb,4.9911e+00_jprb,5.1002e+00_jprb,5.1918e+00_jprb,5.2692e+00_jprb/)
1371 kbo( :,27,10) = (/&
1372 &4.9748e+00_jprb,5.0953e+00_jprb,5.2124e+00_jprb,5.3083e+00_jprb,5.3926e+00_jprb/)
1373 kbo( :,28,10) = (/&
1374 &5.0502e+00_jprb,5.1884e+00_jprb,5.3119e+00_jprb,5.4148e+00_jprb,5.5003e+00_jprb/)
1375 kbo( :,29,10) = (/&
1376 &5.1279e+00_jprb,5.2762e+00_jprb,5.4025e+00_jprb,5.5131e+00_jprb,5.6036e+00_jprb/)
1377 kbo( :,30,10) = (/&
1378 &5.2044e+00_jprb,5.3581e+00_jprb,5.4889e+00_jprb,5.6058e+00_jprb,5.6994e+00_jprb/)
1379 kbo( :,31,10) = (/&
1380 &5.2832e+00_jprb,5.4378e+00_jprb,5.5764e+00_jprb,5.6975e+00_jprb,5.7881e+00_jprb/)
1381 kbo( :,32,10) = (/&
1382 &5.3589e+00_jprb,5.5221e+00_jprb,5.6642e+00_jprb,5.7794e+00_jprb,5.8684e+00_jprb/)
1383 kbo( :,33,10) = (/&
1384 &5.4422e+00_jprb,5.6051e+00_jprb,5.7472e+00_jprb,5.8589e+00_jprb,5.9492e+00_jprb/)
1385 kbo( :,34,10) = (/&
1386 &5.5143e+00_jprb,5.6758e+00_jprb,5.8184e+00_jprb,5.9324e+00_jprb,6.0581e+00_jprb/)
1387 kbo( :,35,10) = (/&
1388 &5.5663e+00_jprb,5.7307e+00_jprb,5.8759e+00_jprb,6.0007e+00_jprb,6.1676e+00_jprb/)
1389 kbo( :,36,10) = (/&
1390 &5.5957e+00_jprb,5.7658e+00_jprb,5.9172e+00_jprb,6.0677e+00_jprb,6.2475e+00_jprb/)
1391 kbo( :,37,10) = (/&
1392 &5.5911e+00_jprb,5.7698e+00_jprb,5.9275e+00_jprb,6.1033e+00_jprb,6.2899e+00_jprb/)
1393 kbo( :,38,10) = (/&
1394 &5.5847e+00_jprb,5.7702e+00_jprb,5.9359e+00_jprb,6.1377e+00_jprb,6.3291e+00_jprb/)
1395 kbo( :,39,10) = (/&
1396 &5.5785e+00_jprb,5.7701e+00_jprb,5.9474e+00_jprb,6.1752e+00_jprb,6.3726e+00_jprb/)
1397 kbo( :,40,10) = (/&
1398 &5.5411e+00_jprb,5.7435e+00_jprb,5.9235e+00_jprb,6.1610e+00_jprb,6.3723e+00_jprb/)
1399 kbo( :,41,10) = (/&
1400 &5.4950e+00_jprb,5.7121e+00_jprb,5.8935e+00_jprb,6.1377e+00_jprb,6.3632e+00_jprb/)
1401 kbo( :,42,10) = (/&
1402 &5.4435e+00_jprb,5.6770e+00_jprb,5.8638e+00_jprb,6.1135e+00_jprb,6.3531e+00_jprb/)
1403 kbo( :,43,10) = (/&
1404 &5.3711e+00_jprb,5.6253e+00_jprb,5.8214e+00_jprb,6.0734e+00_jprb,6.3283e+00_jprb/)
1405 kbo( :,44,10) = (/&
1406 &5.2841e+00_jprb,5.5611e+00_jprb,5.7743e+00_jprb,6.0249e+00_jprb,6.2949e+00_jprb/)
1407 kbo( :,45,10) = (/&
1408 &5.1898e+00_jprb,5.4904e+00_jprb,5.7247e+00_jprb,5.9791e+00_jprb,6.2621e+00_jprb/)
1409 kbo( :,46,10) = (/&
1410 &5.0867e+00_jprb,5.4031e+00_jprb,5.6642e+00_jprb,5.9247e+00_jprb,6.2201e+00_jprb/)
1411 kbo( :,47,10) = (/&
1412 &4.9588e+00_jprb,5.2939e+00_jprb,5.5834e+00_jprb,5.8490e+00_jprb,6.1549e+00_jprb/)
1413 kbo( :,48,10) = (/&
1414 &4.8216e+00_jprb,5.1792e+00_jprb,5.4914e+00_jprb,5.7730e+00_jprb,6.0921e+00_jprb/)
1415 kbo( :,49,10) = (/&
1416 &4.6738e+00_jprb,5.0604e+00_jprb,5.3912e+00_jprb,5.6961e+00_jprb,6.0396e+00_jprb/)
1417 kbo( :,50,10) = (/&
1418 &4.5187e+00_jprb,4.9359e+00_jprb,5.2845e+00_jprb,5.6050e+00_jprb,5.9698e+00_jprb/)
1419 kbo( :,51,10) = (/&
1420 &4.3577e+00_jprb,4.8020e+00_jprb,5.1743e+00_jprb,5.5057e+00_jprb,5.8886e+00_jprb/)
1421 kbo( :,52,10) = (/&
1422 &4.1875e+00_jprb,4.6601e+00_jprb,5.0599e+00_jprb,5.4039e+00_jprb,5.8085e+00_jprb/)
1423 kbo( :,53,10) = (/&
1424 &4.0066e+00_jprb,4.5088e+00_jprb,4.9396e+00_jprb,5.3035e+00_jprb,5.7324e+00_jprb/)
1425 kbo( :,54,10) = (/&
1426 &3.8264e+00_jprb,4.3529e+00_jprb,4.8099e+00_jprb,5.1931e+00_jprb,5.6043e+00_jprb/)
1427 kbo( :,55,10) = (/&
1428 &3.6414e+00_jprb,4.1888e+00_jprb,4.6681e+00_jprb,5.0739e+00_jprb,5.4467e+00_jprb/)
1429 kbo( :,56,10) = (/&
1430 &3.4467e+00_jprb,4.0187e+00_jprb,4.5175e+00_jprb,4.9476e+00_jprb,5.3119e+00_jprb/)
1431 kbo( :,57,10) = (/&
1432 &3.2449e+00_jprb,3.8431e+00_jprb,4.3635e+00_jprb,4.8167e+00_jprb,5.1973e+00_jprb/)
1433 kbo( :,58,10) = (/&
1434 &3.0504e+00_jprb,3.6676e+00_jprb,4.2101e+00_jprb,4.6788e+00_jprb,5.0833e+00_jprb/)
1435 kbo( :,59,10) = (/&
1436 &2.9706e+00_jprb,3.5768e+00_jprb,4.1308e+00_jprb,4.6019e+00_jprb,5.0071e+00_jprb/)
1437 kbo( :, 7,11) = (/&
1438 &1.7920e+01_jprb,2.1641e+01_jprb,2.9884e+01_jprb,4.1982e+01_jprb,5.8086e+01_jprb/)
1439 kbo( :, 8,11) = (/&
1440 &1.1126e+01_jprb,1.2099e+01_jprb,1.3449e+01_jprb,1.5213e+01_jprb,1.8753e+01_jprb/)
1441 kbo( :, 9,11) = (/&
1442 &7.7621e+00_jprb,7.7863e+00_jprb,8.0891e+00_jprb,8.6591e+00_jprb,9.4525e+00_jprb/)
1443 kbo( :,10,11) = (/&
1444 &5.3764e+00_jprb,5.3165e+00_jprb,5.3549e+00_jprb,5.6476e+00_jprb,6.0580e+00_jprb/)
1445 kbo( :,11,11) = (/&
1446 &4.4238e+00_jprb,4.4268e+00_jprb,4.4710e+00_jprb,4.6447e+00_jprb,4.9156e+00_jprb/)
1447 kbo( :,12,11) = (/&
1448 &4.1742e+00_jprb,4.1694e+00_jprb,4.2134e+00_jprb,4.3731e+00_jprb,4.5989e+00_jprb/)
1449 kbo( :,13,11) = (/&
1450 &3.8539e+00_jprb,3.8850e+00_jprb,3.9664e+00_jprb,4.1051e+00_jprb,4.2861e+00_jprb/)
1451 kbo( :,14,11) = (/&
1452 &3.3455e+00_jprb,3.3983e+00_jprb,3.4591e+00_jprb,3.5679e+00_jprb,3.6998e+00_jprb/)
1453 kbo( :,15,11) = (/&
1454 &3.0374e+00_jprb,3.0982e+00_jprb,3.1712e+00_jprb,3.2728e+00_jprb,3.3905e+00_jprb/)
1455 kbo( :,16,11) = (/&
1456 &3.2400e+00_jprb,3.3230e+00_jprb,3.4115e+00_jprb,3.5107e+00_jprb,3.6327e+00_jprb/)
1457 kbo( :,17,11) = (/&
1458 &3.5796e+00_jprb,3.6714e+00_jprb,3.7619e+00_jprb,3.8672e+00_jprb,3.9895e+00_jprb/)
1459 kbo( :,18,11) = (/&
1460 &3.9339e+00_jprb,4.0372e+00_jprb,4.1451e+00_jprb,4.2637e+00_jprb,4.3878e+00_jprb/)
1461 kbo( :,19,11) = (/&
1462 &4.3003e+00_jprb,4.4193e+00_jprb,4.5347e+00_jprb,4.6623e+00_jprb,4.7825e+00_jprb/)
1463 kbo( :,20,11) = (/&
1464 &4.6837e+00_jprb,4.8067e+00_jprb,4.9249e+00_jprb,5.0479e+00_jprb,5.1713e+00_jprb/)
1465 kbo( :,21,11) = (/&
1466 &5.0626e+00_jprb,5.1843e+00_jprb,5.2993e+00_jprb,5.4194e+00_jprb,5.5447e+00_jprb/)
1467 kbo( :,22,11) = (/&
1468 &5.4464e+00_jprb,5.5600e+00_jprb,5.6663e+00_jprb,5.7827e+00_jprb,5.9026e+00_jprb/)
1469 kbo( :,23,11) = (/&
1470 &5.8230e+00_jprb,5.9290e+00_jprb,6.0201e+00_jprb,6.1295e+00_jprb,6.2404e+00_jprb/)
1471 kbo( :,24,11) = (/&
1472 &6.1873e+00_jprb,6.2763e+00_jprb,6.3564e+00_jprb,6.4571e+00_jprb,6.5535e+00_jprb/)
1473 kbo( :,25,11) = (/&
1474 &6.5161e+00_jprb,6.5971e+00_jprb,6.6674e+00_jprb,6.7623e+00_jprb,6.8469e+00_jprb/)
1475 kbo( :,26,11) = (/&
1476 &6.8093e+00_jprb,6.8834e+00_jprb,6.9596e+00_jprb,7.0463e+00_jprb,7.1184e+00_jprb/)
1477 kbo( :,27,11) = (/&
1478 &7.0690e+00_jprb,7.1424e+00_jprb,7.2255e+00_jprb,7.3026e+00_jprb,7.3674e+00_jprb/)
1479 kbo( :,28,11) = (/&
1480 &7.2957e+00_jprb,7.3779e+00_jprb,7.4665e+00_jprb,7.5315e+00_jprb,7.5874e+00_jprb/)
1481 kbo( :,29,11) = (/&
1482 &7.4992e+00_jprb,7.5961e+00_jprb,7.6823e+00_jprb,7.7381e+00_jprb,7.7862e+00_jprb/)
1483 kbo( :,30,11) = (/&
1484 &7.6816e+00_jprb,7.7926e+00_jprb,7.8689e+00_jprb,7.9230e+00_jprb,7.9632e+00_jprb/)
1485 kbo( :,31,11) = (/&
1486 &7.8556e+00_jprb,7.9647e+00_jprb,8.0377e+00_jprb,8.0903e+00_jprb,8.1303e+00_jprb/)
1487 kbo( :,32,11) = (/&
1488 &8.0202e+00_jprb,8.1171e+00_jprb,8.1880e+00_jprb,8.2406e+00_jprb,8.2756e+00_jprb/)
1489 kbo( :,33,11) = (/&
1490 &8.1619e+00_jprb,8.2627e+00_jprb,8.3314e+00_jprb,8.3764e+00_jprb,8.4039e+00_jprb/)
1491 kbo( :,34,11) = (/&
1492 &8.2897e+00_jprb,8.3916e+00_jprb,8.4495e+00_jprb,8.4834e+00_jprb,8.5104e+00_jprb/)
1493 kbo( :,35,11) = (/&
1494 &8.3973e+00_jprb,8.4969e+00_jprb,8.5504e+00_jprb,8.5788e+00_jprb,8.6250e+00_jprb/)
1495 kbo( :,36,11) = (/&
1496 &8.4783e+00_jprb,8.5783e+00_jprb,8.6329e+00_jprb,8.6663e+00_jprb,8.7603e+00_jprb/)
1497 kbo( :,37,11) = (/&
1498 &8.5262e+00_jprb,8.6348e+00_jprb,8.6984e+00_jprb,8.7369e+00_jprb,8.8563e+00_jprb/)
1499 kbo( :,38,11) = (/&
1500 &8.5648e+00_jprb,8.6833e+00_jprb,8.7565e+00_jprb,8.8061e+00_jprb,8.9518e+00_jprb/)
1501 kbo( :,39,11) = (/&
1502 &8.5959e+00_jprb,8.7278e+00_jprb,8.8134e+00_jprb,8.8823e+00_jprb,9.0526e+00_jprb/)
1503 kbo( :,40,11) = (/&
1504 &8.5957e+00_jprb,8.7419e+00_jprb,8.8442e+00_jprb,8.9192e+00_jprb,9.0935e+00_jprb/)
1505 kbo( :,41,11) = (/&
1506 &8.5854e+00_jprb,8.7451e+00_jprb,8.8638e+00_jprb,8.9464e+00_jprb,9.1244e+00_jprb/)
1507 kbo( :,42,11) = (/&
1508 &8.5691e+00_jprb,8.7426e+00_jprb,8.8772e+00_jprb,8.9702e+00_jprb,9.1549e+00_jprb/)
1509 kbo( :,43,11) = (/&
1510 &8.5353e+00_jprb,8.7238e+00_jprb,8.8789e+00_jprb,8.9815e+00_jprb,9.1732e+00_jprb/)
1511 kbo( :,44,11) = (/&
1512 &8.4888e+00_jprb,8.6962e+00_jprb,8.8660e+00_jprb,8.9836e+00_jprb,9.1847e+00_jprb/)
1513 kbo( :,45,11) = (/&
1514 &8.4356e+00_jprb,8.6623e+00_jprb,8.8484e+00_jprb,8.9837e+00_jprb,9.1994e+00_jprb/)
1515 kbo( :,46,11) = (/&
1516 &8.3622e+00_jprb,8.6149e+00_jprb,8.8200e+00_jprb,8.9745e+00_jprb,9.2060e+00_jprb/)
1517 kbo( :,47,11) = (/&
1518 &8.2619e+00_jprb,8.5445e+00_jprb,8.7739e+00_jprb,8.9475e+00_jprb,9.1875e+00_jprb/)
1519 kbo( :,48,11) = (/&
1520 &8.1513e+00_jprb,8.4680e+00_jprb,8.7219e+00_jprb,8.9176e+00_jprb,9.1678e+00_jprb/)
1521 kbo( :,49,11) = (/&
1522 &8.0316e+00_jprb,8.3787e+00_jprb,8.6678e+00_jprb,8.8862e+00_jprb,9.1522e+00_jprb/)
1523 kbo( :,50,11) = (/&
1524 &7.8984e+00_jprb,8.2757e+00_jprb,8.5998e+00_jprb,8.8430e+00_jprb,9.1103e+00_jprb/)
1525 kbo( :,51,11) = (/&
1526 &7.7437e+00_jprb,8.1650e+00_jprb,8.5164e+00_jprb,8.7904e+00_jprb,9.0499e+00_jprb/)
1527 kbo( :,52,11) = (/&
1528 &7.5822e+00_jprb,8.0442e+00_jprb,8.4217e+00_jprb,8.7308e+00_jprb,8.9942e+00_jprb/)
1529 kbo( :,53,11) = (/&
1530 &7.4003e+00_jprb,7.9114e+00_jprb,8.3203e+00_jprb,8.6646e+00_jprb,8.9454e+00_jprb/)
1531 kbo( :,54,11) = (/&
1532 &7.2039e+00_jprb,7.7594e+00_jprb,8.2013e+00_jprb,8.5703e+00_jprb,8.8555e+00_jprb/)
1533 kbo( :,55,11) = (/&
1534 &6.9900e+00_jprb,7.5960e+00_jprb,8.0681e+00_jprb,8.4581e+00_jprb,8.7673e+00_jprb/)
1535 kbo( :,56,11) = (/&
1536 &6.7720e+00_jprb,7.4183e+00_jprb,7.9272e+00_jprb,8.3307e+00_jprb,8.6758e+00_jprb/)
1537 kbo( :,57,11) = (/&
1538 &6.5509e+00_jprb,7.2181e+00_jprb,7.7728e+00_jprb,8.2049e+00_jprb,8.5685e+00_jprb/)
1539 kbo( :,58,11) = (/&
1540 &6.3303e+00_jprb,7.0170e+00_jprb,7.6150e+00_jprb,8.0806e+00_jprb,8.4555e+00_jprb/)
1541 kbo( :,59,11) = (/&
1542 &6.2363e+00_jprb,6.9228e+00_jprb,7.5131e+00_jprb,7.9939e+00_jprb,8.3670e+00_jprb/)
1543 kbo( :, 7,12) = (/&
1544 &2.2304e+01_jprb,3.2911e+01_jprb,4.6319e+01_jprb,6.2557e+01_jprb,8.3356e+01_jprb/)
1545 kbo( :, 8,12) = (/&
1546 &1.3203e+01_jprb,1.4115e+01_jprb,1.5516e+01_jprb,1.9088e+01_jprb,2.6621e+01_jprb/)
1547 kbo( :, 9,12) = (/&
1548 &9.6210e+00_jprb,9.7022e+00_jprb,9.9693e+00_jprb,1.0635e+01_jprb,1.1509e+01_jprb/)
1549 kbo( :,10,12) = (/&
1550 &6.9200e+00_jprb,6.8772e+00_jprb,6.8479e+00_jprb,7.1633e+00_jprb,7.6773e+00_jprb/)
1551 kbo( :,11,12) = (/&
1552 &5.3676e+00_jprb,5.4048e+00_jprb,5.4687e+00_jprb,5.6602e+00_jprb,5.9583e+00_jprb/)
1553 kbo( :,12,12) = (/&
1554 &5.2136e+00_jprb,5.2336e+00_jprb,5.2831e+00_jprb,5.4582e+00_jprb,5.7388e+00_jprb/)
1555 kbo( :,13,12) = (/&
1556 &4.8924e+00_jprb,4.9073e+00_jprb,4.9522e+00_jprb,5.1280e+00_jprb,5.3932e+00_jprb/)
1557 kbo( :,14,12) = (/&
1558 &4.0853e+00_jprb,4.1772e+00_jprb,4.2731e+00_jprb,4.4007e+00_jprb,4.5816e+00_jprb/)
1559 kbo( :,15,12) = (/&
1560 &3.8900e+00_jprb,3.9892e+00_jprb,4.0771e+00_jprb,4.2126e+00_jprb,4.4082e+00_jprb/)
1561 kbo( :,16,12) = (/&
1562 &4.1327e+00_jprb,4.2242e+00_jprb,4.3125e+00_jprb,4.4391e+00_jprb,4.6138e+00_jprb/)
1563 kbo( :,17,12) = (/&
1564 &4.4414e+00_jprb,4.5415e+00_jprb,4.6376e+00_jprb,4.7581e+00_jprb,4.9174e+00_jprb/)
1565 kbo( :,18,12) = (/&
1566 &4.8741e+00_jprb,4.9856e+00_jprb,5.0865e+00_jprb,5.2000e+00_jprb,5.3496e+00_jprb/)
1567 kbo( :,19,12) = (/&
1568 &5.3942e+00_jprb,5.5159e+00_jprb,5.6209e+00_jprb,5.7303e+00_jprb,5.8792e+00_jprb/)
1569 kbo( :,20,12) = (/&
1570 &5.9449e+00_jprb,6.0804e+00_jprb,6.1977e+00_jprb,6.3136e+00_jprb,6.4625e+00_jprb/)
1571 kbo( :,21,12) = (/&
1572 &6.5083e+00_jprb,6.6571e+00_jprb,6.7844e+00_jprb,6.9105e+00_jprb,7.0578e+00_jprb/)
1573 kbo( :,22,12) = (/&
1574 &7.0948e+00_jprb,7.2430e+00_jprb,7.3777e+00_jprb,7.5057e+00_jprb,7.6548e+00_jprb/)
1575 kbo( :,23,12) = (/&
1576 &7.6728e+00_jprb,7.8216e+00_jprb,7.9521e+00_jprb,8.0848e+00_jprb,8.2305e+00_jprb/)
1577 kbo( :,24,12) = (/&
1578 &8.2357e+00_jprb,8.3751e+00_jprb,8.4992e+00_jprb,8.6326e+00_jprb,8.7728e+00_jprb/)
1579 kbo( :,25,12) = (/&
1580 &8.7737e+00_jprb,8.9042e+00_jprb,9.0205e+00_jprb,9.1429e+00_jprb,9.2764e+00_jprb/)
1581 kbo( :,26,12) = (/&
1582 &9.2933e+00_jprb,9.4039e+00_jprb,9.4975e+00_jprb,9.6155e+00_jprb,9.7364e+00_jprb/)
1583 kbo( :,27,12) = (/&
1584 &9.7761e+00_jprb,9.8603e+00_jprb,9.9374e+00_jprb,1.0052e+01_jprb,1.0156e+01_jprb/)
1585 kbo( :,28,12) = (/&
1586 &1.0209e+01_jprb,1.0271e+01_jprb,1.0341e+01_jprb,1.0444e+01_jprb,1.0534e+01_jprb/)
1587 kbo( :,29,12) = (/&
1588 &1.0592e+01_jprb,1.0638e+01_jprb,1.0711e+01_jprb,1.0795e+01_jprb,1.0874e+01_jprb/)
1589 kbo( :,30,12) = (/&
1590 &1.0926e+01_jprb,1.0968e+01_jprb,1.1042e+01_jprb,1.1108e+01_jprb,1.1175e+01_jprb/)
1591 kbo( :,31,12) = (/&
1592 &1.1210e+01_jprb,1.1270e+01_jprb,1.1330e+01_jprb,1.1391e+01_jprb,1.1455e+01_jprb/)
1593 kbo( :,32,12) = (/&
1594 &1.1473e+01_jprb,1.1530e+01_jprb,1.1583e+01_jprb,1.1643e+01_jprb,1.1703e+01_jprb/)
1595 kbo( :,33,12) = (/&
1596 &1.1714e+01_jprb,1.1754e+01_jprb,1.1808e+01_jprb,1.1874e+01_jprb,1.1936e+01_jprb/)
1597 kbo( :,34,12) = (/&
1598 &1.1910e+01_jprb,1.1948e+01_jprb,1.2008e+01_jprb,1.2077e+01_jprb,1.2125e+01_jprb/)
1599 kbo( :,35,12) = (/&
1600 &1.2080e+01_jprb,1.2122e+01_jprb,1.2185e+01_jprb,1.2249e+01_jprb,1.2289e+01_jprb/)
1601 kbo( :,36,12) = (/&
1602 &1.2230e+01_jprb,1.2275e+01_jprb,1.2329e+01_jprb,1.2385e+01_jprb,1.2434e+01_jprb/)
1603 kbo( :,37,12) = (/&
1604 &1.2355e+01_jprb,1.2395e+01_jprb,1.2440e+01_jprb,1.2491e+01_jprb,1.2554e+01_jprb/)
1605 kbo( :,38,12) = (/&
1606 &1.2468e+01_jprb,1.2508e+01_jprb,1.2543e+01_jprb,1.2592e+01_jprb,1.2683e+01_jprb/)
1607 kbo( :,39,12) = (/&
1608 &1.2575e+01_jprb,1.2612e+01_jprb,1.2642e+01_jprb,1.2692e+01_jprb,1.2838e+01_jprb/)
1609 kbo( :,40,12) = (/&
1610 &1.2650e+01_jprb,1.2686e+01_jprb,1.2711e+01_jprb,1.2759e+01_jprb,1.2904e+01_jprb/)
1611 kbo( :,41,12) = (/&
1612 &1.2712e+01_jprb,1.2745e+01_jprb,1.2773e+01_jprb,1.2817e+01_jprb,1.2955e+01_jprb/)
1613 kbo( :,42,12) = (/&
1614 &1.2767e+01_jprb,1.2799e+01_jprb,1.2828e+01_jprb,1.2873e+01_jprb,1.3007e+01_jprb/)
1615 kbo( :,43,12) = (/&
1616 &1.2813e+01_jprb,1.2848e+01_jprb,1.2879e+01_jprb,1.2924e+01_jprb,1.3044e+01_jprb/)
1617 kbo( :,44,12) = (/&
1618 &1.2854e+01_jprb,1.2894e+01_jprb,1.2928e+01_jprb,1.2974e+01_jprb,1.3081e+01_jprb/)
1619 kbo( :,45,12) = (/&
1620 &1.2883e+01_jprb,1.2938e+01_jprb,1.2974e+01_jprb,1.3025e+01_jprb,1.3125e+01_jprb/)
1621 kbo( :,46,12) = (/&
1622 &1.2900e+01_jprb,1.2975e+01_jprb,1.3019e+01_jprb,1.3074e+01_jprb,1.3167e+01_jprb/)
1623 kbo( :,47,12) = (/&
1624 &1.2899e+01_jprb,1.3003e+01_jprb,1.3052e+01_jprb,1.3111e+01_jprb,1.3185e+01_jprb/)
1625 kbo( :,48,12) = (/&
1626 &1.2888e+01_jprb,1.3016e+01_jprb,1.3084e+01_jprb,1.3147e+01_jprb,1.3217e+01_jprb/)
1627 kbo( :,49,12) = (/&
1628 &1.2858e+01_jprb,1.3028e+01_jprb,1.3122e+01_jprb,1.3196e+01_jprb,1.3269e+01_jprb/)
1629 kbo( :,50,12) = (/&
1630 &1.2801e+01_jprb,1.3021e+01_jprb,1.3135e+01_jprb,1.3222e+01_jprb,1.3293e+01_jprb/)
1631 kbo( :,51,12) = (/&
1632 &1.2720e+01_jprb,1.2990e+01_jprb,1.3139e+01_jprb,1.3235e+01_jprb,1.3314e+01_jprb/)
1633 kbo( :,52,12) = (/&
1634 &1.2625e+01_jprb,1.2948e+01_jprb,1.3140e+01_jprb,1.3259e+01_jprb,1.3347e+01_jprb/)
1635 kbo( :,53,12) = (/&
1636 &1.2524e+01_jprb,1.2897e+01_jprb,1.3137e+01_jprb,1.3283e+01_jprb,1.3383e+01_jprb/)
1637 kbo( :,54,12) = (/&
1638 &1.2387e+01_jprb,1.2811e+01_jprb,1.3084e+01_jprb,1.3257e+01_jprb,1.3377e+01_jprb/)
1639 kbo( :,55,12) = (/&
1640 &1.2253e+01_jprb,1.2679e+01_jprb,1.3005e+01_jprb,1.3202e+01_jprb,1.3339e+01_jprb/)
1641 kbo( :,56,12) = (/&
1642 &1.2121e+01_jprb,1.2542e+01_jprb,1.2916e+01_jprb,1.3156e+01_jprb,1.3289e+01_jprb/)
1643 kbo( :,57,12) = (/&
1644 &1.1979e+01_jprb,1.2408e+01_jprb,1.2809e+01_jprb,1.3086e+01_jprb,1.3246e+01_jprb/)
1645 kbo( :,58,12) = (/&
1646 &1.1823e+01_jprb,1.2282e+01_jprb,1.2681e+01_jprb,1.3001e+01_jprb,1.3194e+01_jprb/)
1647 kbo( :,59,12) = (/&
1648 &1.1755e+01_jprb,1.2232e+01_jprb,1.2597e+01_jprb,1.2896e+01_jprb,1.3110e+01_jprb/)
1649 kbo( :, 7,13) = (/&
1650 &3.5643e+01_jprb,5.1949e+01_jprb,7.4063e+01_jprb,1.0270e+02_jprb,1.3794e+02_jprb/)
1651 kbo( :, 8,13) = (/&
1652 &1.5141e+01_jprb,1.6031e+01_jprb,1.9997e+01_jprb,2.8469e+01_jprb,4.0147e+01_jprb/)
1653 kbo( :, 9,13) = (/&
1654 &1.1387e+01_jprb,1.1580e+01_jprb,1.1786e+01_jprb,1.2550e+01_jprb,1.3679e+01_jprb/)
1655 kbo( :,10,13) = (/&
1656 &8.4794e+00_jprb,8.5268e+00_jprb,8.5378e+00_jprb,8.7582e+00_jprb,9.4039e+00_jprb/)
1657 kbo( :,11,13) = (/&
1658 &6.6590e+00_jprb,6.6857e+00_jprb,6.6700e+00_jprb,6.8819e+00_jprb,7.3175e+00_jprb/)
1659 kbo( :,12,13) = (/&
1660 &6.2717e+00_jprb,6.3757e+00_jprb,6.4443e+00_jprb,6.6558e+00_jprb,6.9844e+00_jprb/)
1661 kbo( :,13,13) = (/&
1662 &6.0914e+00_jprb,6.1740e+00_jprb,6.2405e+00_jprb,6.4377e+00_jprb,6.7503e+00_jprb/)
1663 kbo( :,14,13) = (/&
1664 &4.9794e+00_jprb,5.0536e+00_jprb,5.1492e+00_jprb,5.3795e+00_jprb,5.7518e+00_jprb/)
1665 kbo( :,15,13) = (/&
1666 &5.1843e+00_jprb,5.3190e+00_jprb,5.4758e+00_jprb,5.6793e+00_jprb,6.0175e+00_jprb/)
1667 kbo( :,16,13) = (/&
1668 &5.7049e+00_jprb,5.8741e+00_jprb,6.0283e+00_jprb,6.2146e+00_jprb,6.5273e+00_jprb/)
1669 kbo( :,17,13) = (/&
1670 &6.2538e+00_jprb,6.4179e+00_jprb,6.5692e+00_jprb,6.7387e+00_jprb,7.0279e+00_jprb/)
1671 kbo( :,18,13) = (/&
1672 &6.7525e+00_jprb,6.9110e+00_jprb,7.0637e+00_jprb,7.2266e+00_jprb,7.4943e+00_jprb/)
1673 kbo( :,19,13) = (/&
1674 &7.2519e+00_jprb,7.4118e+00_jprb,7.5663e+00_jprb,7.7263e+00_jprb,7.9629e+00_jprb/)
1675 kbo( :,20,13) = (/&
1676 &7.8324e+00_jprb,7.9965e+00_jprb,8.1590e+00_jprb,8.3205e+00_jprb,8.5444e+00_jprb/)
1677 kbo( :,21,13) = (/&
1678 &8.5287e+00_jprb,8.6915e+00_jprb,8.8554e+00_jprb,9.0146e+00_jprb,9.2285e+00_jprb/)
1679 kbo( :,22,13) = (/&
1680 &9.3469e+00_jprb,9.5083e+00_jprb,9.6626e+00_jprb,9.8140e+00_jprb,1.0022e+01_jprb/)
1681 kbo( :,23,13) = (/&
1682 &1.0237e+01_jprb,1.0396e+01_jprb,1.0540e+01_jprb,1.0676e+01_jprb,1.0870e+01_jprb/)
1683 kbo( :,24,13) = (/&
1684 &1.1146e+01_jprb,1.1303e+01_jprb,1.1436e+01_jprb,1.1550e+01_jprb,1.1722e+01_jprb/)
1685 kbo( :,25,13) = (/&
1686 &1.2050e+01_jprb,1.2190e+01_jprb,1.2298e+01_jprb,1.2397e+01_jprb,1.2546e+01_jprb/)
1687 kbo( :,26,13) = (/&
1688 &1.2909e+01_jprb,1.3024e+01_jprb,1.3107e+01_jprb,1.3185e+01_jprb,1.3314e+01_jprb/)
1689 kbo( :,27,13) = (/&
1690 &1.3701e+01_jprb,1.3792e+01_jprb,1.3849e+01_jprb,1.3913e+01_jprb,1.4022e+01_jprb/)
1691 kbo( :,28,13) = (/&
1692 &1.4427e+01_jprb,1.4484e+01_jprb,1.4511e+01_jprb,1.4572e+01_jprb,1.4654e+01_jprb/)
1693 kbo( :,29,13) = (/&
1694 &1.5072e+01_jprb,1.5093e+01_jprb,1.5109e+01_jprb,1.5170e+01_jprb,1.5215e+01_jprb/)
1695 kbo( :,30,13) = (/&
1696 &1.5628e+01_jprb,1.5619e+01_jprb,1.5649e+01_jprb,1.5693e+01_jprb,1.5715e+01_jprb/)
1697 kbo( :,31,13) = (/&
1698 &1.6105e+01_jprb,1.6099e+01_jprb,1.6147e+01_jprb,1.6155e+01_jprb,1.6164e+01_jprb/)
1699 kbo( :,32,13) = (/&
1700 &1.6511e+01_jprb,1.6547e+01_jprb,1.6576e+01_jprb,1.6572e+01_jprb,1.6565e+01_jprb/)
1701 kbo( :,33,13) = (/&
1702 &1.6897e+01_jprb,1.6951e+01_jprb,1.6956e+01_jprb,1.6944e+01_jprb,1.6929e+01_jprb/)
1703 kbo( :,34,13) = (/&
1704 &1.7252e+01_jprb,1.7277e+01_jprb,1.7273e+01_jprb,1.7259e+01_jprb,1.7247e+01_jprb/)
1705 kbo( :,35,13) = (/&
1706 &1.7555e+01_jprb,1.7563e+01_jprb,1.7552e+01_jprb,1.7549e+01_jprb,1.7549e+01_jprb/)
1707 kbo( :,36,13) = (/&
1708 &1.7803e+01_jprb,1.7812e+01_jprb,1.7811e+01_jprb,1.7814e+01_jprb,1.7805e+01_jprb/)
1709 kbo( :,37,13) = (/&
1710 &1.8013e+01_jprb,1.8025e+01_jprb,1.8034e+01_jprb,1.8035e+01_jprb,1.8022e+01_jprb/)
1711 kbo( :,38,13) = (/&
1712 &1.8201e+01_jprb,1.8222e+01_jprb,1.8247e+01_jprb,1.8244e+01_jprb,1.8226e+01_jprb/)
1713 kbo( :,39,13) = (/&
1714 &1.8383e+01_jprb,1.8417e+01_jprb,1.8445e+01_jprb,1.8444e+01_jprb,1.8423e+01_jprb/)
1715 kbo( :,40,13) = (/&
1716 &1.8521e+01_jprb,1.8556e+01_jprb,1.8589e+01_jprb,1.8588e+01_jprb,1.8570e+01_jprb/)
1717 kbo( :,41,13) = (/&
1718 &1.8644e+01_jprb,1.8681e+01_jprb,1.8714e+01_jprb,1.8712e+01_jprb,1.8700e+01_jprb/)
1719 kbo( :,42,13) = (/&
1720 &1.8752e+01_jprb,1.8798e+01_jprb,1.8834e+01_jprb,1.8832e+01_jprb,1.8827e+01_jprb/)
1721 kbo( :,43,13) = (/&
1722 &1.8844e+01_jprb,1.8901e+01_jprb,1.8939e+01_jprb,1.8943e+01_jprb,1.8946e+01_jprb/)
1723 kbo( :,44,13) = (/&
1724 &1.8930e+01_jprb,1.8996e+01_jprb,1.9046e+01_jprb,1.9057e+01_jprb,1.9063e+01_jprb/)
1725 kbo( :,45,13) = (/&
1726 &1.9023e+01_jprb,1.9089e+01_jprb,1.9147e+01_jprb,1.9171e+01_jprb,1.9190e+01_jprb/)
1727 kbo( :,46,13) = (/&
1728 &1.9108e+01_jprb,1.9173e+01_jprb,1.9241e+01_jprb,1.9282e+01_jprb,1.9317e+01_jprb/)
1729 kbo( :,47,13) = (/&
1730 &1.9179e+01_jprb,1.9235e+01_jprb,1.9323e+01_jprb,1.9378e+01_jprb,1.9424e+01_jprb/)
1731 kbo( :,48,13) = (/&
1732 &1.9259e+01_jprb,1.9311e+01_jprb,1.9403e+01_jprb,1.9481e+01_jprb,1.9542e+01_jprb/)
1733 kbo( :,49,13) = (/&
1734 &1.9353e+01_jprb,1.9401e+01_jprb,1.9487e+01_jprb,1.9582e+01_jprb,1.9677e+01_jprb/)
1735 kbo( :,50,13) = (/&
1736 &1.9435e+01_jprb,1.9470e+01_jprb,1.9546e+01_jprb,1.9648e+01_jprb,1.9775e+01_jprb/)
1737 kbo( :,51,13) = (/&
1738 &1.9528e+01_jprb,1.9522e+01_jprb,1.9589e+01_jprb,1.9698e+01_jprb,1.9835e+01_jprb/)
1739 kbo( :,52,13) = (/&
1740 &1.9619e+01_jprb,1.9589e+01_jprb,1.9648e+01_jprb,1.9751e+01_jprb,1.9897e+01_jprb/)
1741 kbo( :,53,13) = (/&
1742 &1.9714e+01_jprb,1.9664e+01_jprb,1.9723e+01_jprb,1.9814e+01_jprb,1.9980e+01_jprb/)
1743 kbo( :,54,13) = (/&
1744 &1.9804e+01_jprb,1.9687e+01_jprb,1.9738e+01_jprb,1.9817e+01_jprb,1.9959e+01_jprb/)
1745 kbo( :,55,13) = (/&
1746 &1.9891e+01_jprb,1.9703e+01_jprb,1.9714e+01_jprb,1.9787e+01_jprb,1.9905e+01_jprb/)
1747 kbo( :,56,13) = (/&
1748 &1.9968e+01_jprb,1.9742e+01_jprb,1.9687e+01_jprb,1.9751e+01_jprb,1.9853e+01_jprb/)
1749 kbo( :,57,13) = (/&
1750 &2.0032e+01_jprb,1.9814e+01_jprb,1.9687e+01_jprb,1.9714e+01_jprb,1.9803e+01_jprb/)
1751 kbo( :,58,13) = (/&
1752 &2.0080e+01_jprb,1.9895e+01_jprb,1.9702e+01_jprb,1.9670e+01_jprb,1.9752e+01_jprb/)
1753 kbo( :,59,13) = (/&
1754 &2.0098e+01_jprb,1.9929e+01_jprb,1.9672e+01_jprb,1.9573e+01_jprb,1.9576e+01_jprb/)
1755 kbo( :, 7,14) = (/&
1756 &9.1966e+01_jprb,1.3562e+02_jprb,1.9017e+02_jprb,2.5592e+02_jprb,3.3333e+02_jprb/)
1757 kbo( :, 8,14) = (/&
1758 &2.2693e+01_jprb,3.3411e+01_jprb,4.8518e+01_jprb,6.7308e+01_jprb,8.9702e+01_jprb/)
1759 kbo( :, 9,14) = (/&
1760 &1.2882e+01_jprb,1.3153e+01_jprb,1.3364e+01_jprb,1.4883e+01_jprb,2.1107e+01_jprb/)
1761 kbo( :,10,14) = (/&
1762 &9.8362e+00_jprb,9.9117e+00_jprb,9.9648e+00_jprb,1.0153e+01_jprb,1.0885e+01_jprb/)
1763 kbo( :,11,14) = (/&
1764 &7.9433e+00_jprb,7.9973e+00_jprb,8.0475e+00_jprb,8.2315e+00_jprb,8.7834e+00_jprb/)
1765 kbo( :,12,14) = (/&
1766 &7.3895e+00_jprb,7.4583e+00_jprb,7.5219e+00_jprb,7.7292e+00_jprb,8.2231e+00_jprb/)
1767 kbo( :,13,14) = (/&
1768 &7.1435e+00_jprb,7.2885e+00_jprb,7.3950e+00_jprb,7.6192e+00_jprb,8.1085e+00_jprb/)
1769 kbo( :,14,14) = (/&
1770 &6.9992e+00_jprb,7.1773e+00_jprb,7.3399e+00_jprb,7.5909e+00_jprb,8.2289e+00_jprb/)
1771 kbo( :,15,14) = (/&
1772 &7.9125e+00_jprb,8.1063e+00_jprb,8.2644e+00_jprb,8.4250e+00_jprb,8.8258e+00_jprb/)
1773 kbo( :,16,14) = (/&
1774 &8.8516e+00_jprb,9.0393e+00_jprb,9.2237e+00_jprb,9.3959e+00_jprb,9.6957e+00_jprb/)
1775 kbo( :,17,14) = (/&
1776 &9.8145e+00_jprb,1.0045e+01_jprb,1.0264e+01_jprb,1.0472e+01_jprb,1.0729e+01_jprb/)
1777 kbo( :,18,14) = (/&
1778 &1.0863e+01_jprb,1.1143e+01_jprb,1.1400e+01_jprb,1.1634e+01_jprb,1.1884e+01_jprb/)
1779 kbo( :,19,14) = (/&
1780 &1.1987e+01_jprb,1.2302e+01_jprb,1.2594e+01_jprb,1.2857e+01_jprb,1.3115e+01_jprb/)
1781 kbo( :,20,14) = (/&
1782 &1.3163e+01_jprb,1.3504e+01_jprb,1.3819e+01_jprb,1.4119e+01_jprb,1.4393e+01_jprb/)
1783 kbo( :,21,14) = (/&
1784 &1.4360e+01_jprb,1.4728e+01_jprb,1.5076e+01_jprb,1.5394e+01_jprb,1.5681e+01_jprb/)
1785 kbo( :,22,14) = (/&
1786 &1.5564e+01_jprb,1.5972e+01_jprb,1.6343e+01_jprb,1.6667e+01_jprb,1.6964e+01_jprb/)
1787 kbo( :,23,14) = (/&
1788 &1.6820e+01_jprb,1.7233e+01_jprb,1.7594e+01_jprb,1.7909e+01_jprb,1.8214e+01_jprb/)
1789 kbo( :,24,14) = (/&
1790 &1.8109e+01_jprb,1.8494e+01_jprb,1.8826e+01_jprb,1.9111e+01_jprb,1.9401e+01_jprb/)
1791 kbo( :,25,14) = (/&
1792 &1.9392e+01_jprb,1.9724e+01_jprb,2.0018e+01_jprb,2.0268e+01_jprb,2.0538e+01_jprb/)
1793 kbo( :,26,14) = (/&
1794 &2.0628e+01_jprb,2.0920e+01_jprb,2.1173e+01_jprb,2.1372e+01_jprb,2.1625e+01_jprb/)
1795 kbo( :,27,14) = (/&
1796 &2.1805e+01_jprb,2.2040e+01_jprb,2.2243e+01_jprb,2.2391e+01_jprb,2.2631e+01_jprb/)
1797 kbo( :,28,14) = (/&
1798 &2.2897e+01_jprb,2.3059e+01_jprb,2.3185e+01_jprb,2.3305e+01_jprb,2.3583e+01_jprb/)
1799 kbo( :,29,14) = (/&
1800 &2.3866e+01_jprb,2.3956e+01_jprb,2.4031e+01_jprb,2.4181e+01_jprb,2.4577e+01_jprb/)
1801 kbo( :,30,14) = (/&
1802 &2.4714e+01_jprb,2.4744e+01_jprb,2.4786e+01_jprb,2.5037e+01_jprb,2.5553e+01_jprb/)
1803 kbo( :,31,14) = (/&
1804 &2.5442e+01_jprb,2.5420e+01_jprb,2.5528e+01_jprb,2.5980e+01_jprb,2.6575e+01_jprb/)
1805 kbo( :,32,14) = (/&
1806 &2.6060e+01_jprb,2.6042e+01_jprb,2.6355e+01_jprb,2.6934e+01_jprb,2.7574e+01_jprb/)
1807 kbo( :,33,14) = (/&
1808 &2.6582e+01_jprb,2.6720e+01_jprb,2.7257e+01_jprb,2.7902e+01_jprb,2.8582e+01_jprb/)
1809 kbo( :,34,14) = (/&
1810 &2.7091e+01_jprb,2.7462e+01_jprb,2.8092e+01_jprb,2.8769e+01_jprb,2.9492e+01_jprb/)
1811 kbo( :,35,14) = (/&
1812 &2.7632e+01_jprb,2.8159e+01_jprb,2.8835e+01_jprb,2.9549e+01_jprb,3.0321e+01_jprb/)
1813 kbo( :,36,14) = (/&
1814 &2.8159e+01_jprb,2.8745e+01_jprb,2.9458e+01_jprb,3.0219e+01_jprb,3.1043e+01_jprb/)
1815 kbo( :,37,14) = (/&
1816 &2.8540e+01_jprb,2.9146e+01_jprb,2.9877e+01_jprb,3.0672e+01_jprb,3.1544e+01_jprb/)
1817 kbo( :,38,14) = (/&
1818 &2.8901e+01_jprb,2.9532e+01_jprb,3.0283e+01_jprb,3.1140e+01_jprb,3.2071e+01_jprb/)
1819 kbo( :,39,14) = (/&
1820 &2.9260e+01_jprb,2.9925e+01_jprb,3.0734e+01_jprb,3.1664e+01_jprb,3.2694e+01_jprb/)
1821 kbo( :,40,14) = (/&
1822 &2.9430e+01_jprb,3.0093e+01_jprb,3.0912e+01_jprb,3.1873e+01_jprb,3.2935e+01_jprb/)
1823 kbo( :,41,14) = (/&
1824 &2.9569e+01_jprb,3.0227e+01_jprb,3.1048e+01_jprb,3.2034e+01_jprb,3.3124e+01_jprb/)
1825 kbo( :,42,14) = (/&
1826 &2.9715e+01_jprb,3.0354e+01_jprb,3.1194e+01_jprb,3.2201e+01_jprb,3.3328e+01_jprb/)
1827 kbo( :,43,14) = (/&
1828 &2.9833e+01_jprb,3.0439e+01_jprb,3.1280e+01_jprb,3.2309e+01_jprb,3.3467e+01_jprb/)
1829 kbo( :,44,14) = (/&
1830 &2.9941e+01_jprb,3.0510e+01_jprb,3.1343e+01_jprb,3.2396e+01_jprb,3.3596e+01_jprb/)
1831 kbo( :,45,14) = (/&
1832 &3.0066e+01_jprb,3.0604e+01_jprb,3.1448e+01_jprb,3.2529e+01_jprb,3.3774e+01_jprb/)
1833 kbo( :,46,14) = (/&
1834 &3.0186e+01_jprb,3.0696e+01_jprb,3.1535e+01_jprb,3.2640e+01_jprb,3.3926e+01_jprb/)
1835 kbo( :,47,14) = (/&
1836 &3.0293e+01_jprb,3.0717e+01_jprb,3.1531e+01_jprb,3.2630e+01_jprb,3.3950e+01_jprb/)
1837 kbo( :,48,14) = (/&
1838 &3.0429e+01_jprb,3.0794e+01_jprb,3.1577e+01_jprb,3.2679e+01_jprb,3.4060e+01_jprb/)
1839 kbo( :,49,14) = (/&
1840 &3.0616e+01_jprb,3.0920e+01_jprb,3.1697e+01_jprb,3.2833e+01_jprb,3.4261e+01_jprb/)
1841 kbo( :,50,14) = (/&
1842 &3.0818e+01_jprb,3.0958e+01_jprb,3.1730e+01_jprb,3.2862e+01_jprb,3.4287e+01_jprb/)
1843 kbo( :,51,14) = (/&
1844 &3.1037e+01_jprb,3.0997e+01_jprb,3.1705e+01_jprb,3.2813e+01_jprb,3.4237e+01_jprb/)
1845 kbo( :,52,14) = (/&
1846 &3.1309e+01_jprb,3.1076e+01_jprb,3.1722e+01_jprb,3.2817e+01_jprb,3.4252e+01_jprb/)
1847 kbo( :,53,14) = (/&
1848 &3.1610e+01_jprb,3.1224e+01_jprb,3.1798e+01_jprb,3.2922e+01_jprb,3.4372e+01_jprb/)
1849 kbo( :,54,14) = (/&
1850 &3.1900e+01_jprb,3.1278e+01_jprb,3.1648e+01_jprb,3.2670e+01_jprb,3.4089e+01_jprb/)
1851 kbo( :,55,14) = (/&
1852 &3.2210e+01_jprb,3.1399e+01_jprb,3.1421e+01_jprb,3.2230e+01_jprb,3.3508e+01_jprb/)
1853 kbo( :,56,14) = (/&
1854 &3.2550e+01_jprb,3.1633e+01_jprb,3.1312e+01_jprb,3.1877e+01_jprb,3.2983e+01_jprb/)
1855 kbo( :,57,14) = (/&
1856 &3.2910e+01_jprb,3.1902e+01_jprb,3.1284e+01_jprb,3.1616e+01_jprb,3.2534e+01_jprb/)
1857 kbo( :,58,14) = (/&
1858 &3.3271e+01_jprb,3.2188e+01_jprb,3.1382e+01_jprb,3.1393e+01_jprb,3.2095e+01_jprb/)
1859 kbo( :,59,14) = (/&
1860 &3.3433e+01_jprb,3.2317e+01_jprb,3.1456e+01_jprb,3.1063e+01_jprb,3.1513e+01_jprb/)
1861 kbo( :, 7,15) = (/&
1862 &2.8363e+02_jprb,4.1355e+02_jprb,5.7180e+02_jprb,7.5690e+02_jprb,9.6654e+02_jprb/)
1863 kbo( :, 8,15) = (/&
1864 &7.4865e+01_jprb,1.1268e+02_jprb,1.5979e+02_jprb,2.1605e+02_jprb,2.8202e+02_jprb/)
1865 kbo( :, 9,15) = (/&
1866 &1.4273e+01_jprb,1.7483e+01_jprb,2.3317e+01_jprb,3.2081e+01_jprb,4.4022e+01_jprb/)
1867 kbo( :,10,15) = (/&
1868 &1.0822e+01_jprb,1.0897e+01_jprb,1.0977e+01_jprb,1.1194e+01_jprb,1.5009e+01_jprb/)
1869 kbo( :,11,15) = (/&
1870 &8.8651e+00_jprb,8.9560e+00_jprb,9.0304e+00_jprb,9.2295e+00_jprb,1.2083e+01_jprb/)
1871 kbo( :,12,15) = (/&
1872 &8.4071e+00_jprb,8.4990e+00_jprb,8.5668e+00_jprb,8.7783e+00_jprb,1.1395e+01_jprb/)
1873 kbo( :,13,15) = (/&
1874 &7.8874e+00_jprb,8.0981e+00_jprb,8.3286e+00_jprb,8.6740e+00_jprb,1.0797e+01_jprb/)
1875 kbo( :,14,15) = (/&
1876 &9.0700e+00_jprb,9.4397e+00_jprb,9.7504e+00_jprb,1.0023e+01_jprb,1.0663e+01_jprb/)
1877 kbo( :,15,15) = (/&
1878 &1.0836e+01_jprb,1.1231e+01_jprb,1.1580e+01_jprb,1.1881e+01_jprb,1.2185e+01_jprb/)
1879 kbo( :,16,15) = (/&
1880 &1.2867e+01_jprb,1.3302e+01_jprb,1.3683e+01_jprb,1.4016e+01_jprb,1.4292e+01_jprb/)
1881 kbo( :,17,15) = (/&
1882 &1.5179e+01_jprb,1.5649e+01_jprb,1.6067e+01_jprb,1.6423e+01_jprb,1.6719e+01_jprb/)
1883 kbo( :,18,15) = (/&
1884 &1.7779e+01_jprb,1.8278e+01_jprb,1.8717e+01_jprb,1.9093e+01_jprb,1.9383e+01_jprb/)
1885 kbo( :,19,15) = (/&
1886 &2.0642e+01_jprb,2.1170e+01_jprb,2.1612e+01_jprb,2.1976e+01_jprb,2.2234e+01_jprb/)
1887 kbo( :,20,15) = (/&
1888 &2.3750e+01_jprb,2.4283e+01_jprb,2.4723e+01_jprb,2.5032e+01_jprb,2.5262e+01_jprb/)
1889 kbo( :,21,15) = (/&
1890 &2.7026e+01_jprb,2.7553e+01_jprb,2.7924e+01_jprb,2.8192e+01_jprb,2.8376e+01_jprb/)
1891 kbo( :,22,15) = (/&
1892 &3.0466e+01_jprb,3.0907e+01_jprb,3.1208e+01_jprb,3.1413e+01_jprb,3.1533e+01_jprb/)
1893 kbo( :,23,15) = (/&
1894 &3.3884e+01_jprb,3.4236e+01_jprb,3.4483e+01_jprb,3.4605e+01_jprb,3.4634e+01_jprb/)
1895 kbo( :,24,15) = (/&
1896 &3.7294e+01_jprb,3.7565e+01_jprb,3.7709e+01_jprb,3.7756e+01_jprb,3.7674e+01_jprb/)
1897 kbo( :,25,15) = (/&
1898 &4.0647e+01_jprb,4.0822e+01_jprb,4.0862e+01_jprb,4.0770e+01_jprb,4.0545e+01_jprb/)
1899 kbo( :,26,15) = (/&
1900 &4.3918e+01_jprb,4.3923e+01_jprb,4.3794e+01_jprb,4.3551e+01_jprb,4.3172e+01_jprb/)
1901 kbo( :,27,15) = (/&
1902 &4.6948e+01_jprb,4.6779e+01_jprb,4.6473e+01_jprb,4.6062e+01_jprb,4.5548e+01_jprb/)
1903 kbo( :,28,15) = (/&
1904 &4.9671e+01_jprb,4.9327e+01_jprb,4.8876e+01_jprb,4.8297e+01_jprb,4.7637e+01_jprb/)
1905 kbo( :,29,15) = (/&
1906 &5.2077e+01_jprb,5.1573e+01_jprb,5.0947e+01_jprb,5.0200e+01_jprb,4.9391e+01_jprb/)
1907 kbo( :,30,15) = (/&
1908 &5.4175e+01_jprb,5.3476e+01_jprb,5.2686e+01_jprb,5.1783e+01_jprb,5.0979e+01_jprb/)
1909 kbo( :,31,15) = (/&
1910 &5.5918e+01_jprb,5.5055e+01_jprb,5.4106e+01_jprb,5.3112e+01_jprb,5.2750e+01_jprb/)
1911 kbo( :,32,15) = (/&
1912 &5.7323e+01_jprb,5.6310e+01_jprb,5.5227e+01_jprb,5.4570e+01_jprb,5.5133e+01_jprb/)
1913 kbo( :,33,15) = (/&
1914 &5.8423e+01_jprb,5.7290e+01_jprb,5.6381e+01_jprb,5.6660e+01_jprb,5.8115e+01_jprb/)
1915 kbo( :,34,15) = (/&
1916 &5.9305e+01_jprb,5.8151e+01_jprb,5.7902e+01_jprb,5.9181e+01_jprb,6.1024e+01_jprb/)
1917 kbo( :,35,15) = (/&
1918 &6.0090e+01_jprb,5.9220e+01_jprb,5.9907e+01_jprb,6.1721e+01_jprb,6.3818e+01_jprb/)
1919 kbo( :,36,15) = (/&
1920 &6.0898e+01_jprb,6.0514e+01_jprb,6.1931e+01_jprb,6.4064e+01_jprb,6.6503e+01_jprb/)
1921 kbo( :,37,15) = (/&
1922 &6.1807e+01_jprb,6.1684e+01_jprb,6.3418e+01_jprb,6.5762e+01_jprb,6.8620e+01_jprb/)
1923 kbo( :,38,15) = (/&
1924 &6.2675e+01_jprb,6.2924e+01_jprb,6.5022e+01_jprb,6.7556e+01_jprb,7.1076e+01_jprb/)
1925 kbo( :,39,15) = (/&
1926 &6.3549e+01_jprb,6.4372e+01_jprb,6.6780e+01_jprb,6.9607e+01_jprb,7.4223e+01_jprb/)
1927 kbo( :,40,15) = (/&
1928 &6.4290e+01_jprb,6.5073e+01_jprb,6.7567e+01_jprb,7.0533e+01_jprb,7.5366e+01_jprb/)
1929 kbo( :,41,15) = (/&
1930 &6.4963e+01_jprb,6.5642e+01_jprb,6.8216e+01_jprb,7.1296e+01_jprb,7.6285e+01_jprb/)
1931 kbo( :,42,15) = (/&
1932 &6.5588e+01_jprb,6.6218e+01_jprb,6.8898e+01_jprb,7.2126e+01_jprb,7.7367e+01_jprb/)
1933 kbo( :,43,15) = (/&
1934 &6.6237e+01_jprb,6.6662e+01_jprb,6.9435e+01_jprb,7.2789e+01_jprb,7.8130e+01_jprb/)
1935 kbo( :,44,15) = (/&
1936 &6.6904e+01_jprb,6.7116e+01_jprb,6.9940e+01_jprb,7.3441e+01_jprb,7.8892e+01_jprb/)
1937 kbo( :,45,15) = (/&
1938 &6.7540e+01_jprb,6.7647e+01_jprb,7.0523e+01_jprb,7.4251e+01_jprb,7.9999e+01_jprb/)
1939 kbo( :,46,15) = (/&
1940 &6.8229e+01_jprb,6.8156e+01_jprb,7.1033e+01_jprb,7.4993e+01_jprb,8.1031e+01_jprb/)
1941 kbo( :,47,15) = (/&
1942 &6.8961e+01_jprb,6.8535e+01_jprb,7.1211e+01_jprb,7.5329e+01_jprb,8.1268e+01_jprb/)
1943 kbo( :,48,15) = (/&
1944 &6.9704e+01_jprb,6.8995e+01_jprb,7.1616e+01_jprb,7.5892e+01_jprb,8.1953e+01_jprb/)
1945 kbo( :,49,15) = (/&
1946 &7.0407e+01_jprb,6.9549e+01_jprb,7.2228e+01_jprb,7.6829e+01_jprb,8.3431e+01_jprb/)
1947 kbo( :,50,15) = (/&
1948 &7.1019e+01_jprb,6.9986e+01_jprb,7.2345e+01_jprb,7.7143e+01_jprb,8.3800e+01_jprb/)
1949 kbo( :,51,15) = (/&
1950 &7.1592e+01_jprb,7.0396e+01_jprb,7.2261e+01_jprb,7.7126e+01_jprb,8.3618e+01_jprb/)
1951 kbo( :,52,15) = (/&
1952 &7.2111e+01_jprb,7.0874e+01_jprb,7.2332e+01_jprb,7.7310e+01_jprb,8.3944e+01_jprb/)
1953 kbo( :,53,15) = (/&
1954 &7.2640e+01_jprb,7.1374e+01_jprb,7.2614e+01_jprb,7.7805e+01_jprb,8.4912e+01_jprb/)
1955 kbo( :,54,15) = (/&
1956 &7.3148e+01_jprb,7.1814e+01_jprb,7.2024e+01_jprb,7.6722e+01_jprb,8.3248e+01_jprb/)
1957 kbo( :,55,15) = (/&
1958 &7.3606e+01_jprb,7.2253e+01_jprb,7.1500e+01_jprb,7.4839e+01_jprb,8.0825e+01_jprb/)
1959 kbo( :,56,15) = (/&
1960 &7.4051e+01_jprb,7.2698e+01_jprb,7.1487e+01_jprb,7.3230e+01_jprb,7.8699e+01_jprb/)
1961 kbo( :,57,15) = (/&
1962 &7.4472e+01_jprb,7.3171e+01_jprb,7.1839e+01_jprb,7.2012e+01_jprb,7.6638e+01_jprb/)
1963 kbo( :,58,15) = (/&
1964 &7.4894e+01_jprb,7.3601e+01_jprb,7.2242e+01_jprb,7.1442e+01_jprb,7.4559e+01_jprb/)
1965 kbo( :,59,15) = (/&
1966 &7.5080e+01_jprb,7.3786e+01_jprb,7.2416e+01_jprb,7.1080e+01_jprb,7.1531e+01_jprb/)
1967 kbo( :, 7,16) = (/&
1968 &3.8856e+02_jprb,5.7915e+02_jprb,8.1817e+02_jprb,1.1061e+03_jprb,1.4420e+03_jprb/)
1969 kbo( :, 8,16) = (/&
1970 &1.1173e+02_jprb,1.7284e+02_jprb,2.5169e+02_jprb,3.4886e+02_jprb,4.6421e+02_jprb/)
1971 kbo( :, 9,16) = (/&
1972 &1.6570e+01_jprb,2.6651e+01_jprb,4.0077e+01_jprb,5.7028e+01_jprb,7.7570e+01_jprb/)
1973 kbo( :,10,16) = (/&
1974 &1.1513e+01_jprb,1.1599e+01_jprb,1.1623e+01_jprb,1.2273e+01_jprb,2.0793e+01_jprb/)
1975 kbo( :,11,16) = (/&
1976 &9.4745e+00_jprb,9.5365e+00_jprb,9.5728e+00_jprb,1.0446e+01_jprb,1.7579e+01_jprb/)
1977 kbo( :,12,16) = (/&
1978 &9.0416e+00_jprb,9.1073e+00_jprb,9.1539e+00_jprb,1.0349e+01_jprb,1.7350e+01_jprb/)
1979 kbo( :,13,16) = (/&
1980 &8.4084e+00_jprb,8.5999e+00_jprb,8.8332e+00_jprb,1.0153e+01_jprb,1.6939e+01_jprb/)
1981 kbo( :,14,16) = (/&
1982 &1.0079e+01_jprb,1.0411e+01_jprb,1.0702e+01_jprb,1.0966e+01_jprb,1.3320e+01_jprb/)
1983 kbo( :,15,16) = (/&
1984 &1.2199e+01_jprb,1.2610e+01_jprb,1.2964e+01_jprb,1.3286e+01_jprb,1.3632e+01_jprb/)
1985 kbo( :,16,16) = (/&
1986 &1.4758e+01_jprb,1.5257e+01_jprb,1.5682e+01_jprb,1.6062e+01_jprb,1.6458e+01_jprb/)
1987 kbo( :,17,16) = (/&
1988 &1.7830e+01_jprb,1.8419e+01_jprb,1.8910e+01_jprb,1.9353e+01_jprb,1.9779e+01_jprb/)
1989 kbo( :,18,16) = (/&
1990 &2.1465e+01_jprb,2.2139e+01_jprb,2.2704e+01_jprb,2.3183e+01_jprb,2.3616e+01_jprb/)
1991 kbo( :,19,16) = (/&
1992 &2.5737e+01_jprb,2.6464e+01_jprb,2.7066e+01_jprb,2.7553e+01_jprb,2.7959e+01_jprb/)
1993 kbo( :,20,16) = (/&
1994 &3.0665e+01_jprb,3.1418e+01_jprb,3.2018e+01_jprb,3.2468e+01_jprb,3.2800e+01_jprb/)
1995 kbo( :,21,16) = (/&
1996 &3.6239e+01_jprb,3.6953e+01_jprb,3.7470e+01_jprb,3.7836e+01_jprb,3.8047e+01_jprb/)
1997 kbo( :,22,16) = (/&
1998 &4.2431e+01_jprb,4.3003e+01_jprb,4.3369e+01_jprb,4.3556e+01_jprb,4.3562e+01_jprb/)
1999 kbo( :,23,16) = (/&
2000 &4.9017e+01_jprb,4.9364e+01_jprb,4.9493e+01_jprb,4.9449e+01_jprb,4.9166e+01_jprb/)
2001 kbo( :,24,16) = (/&
2002 &5.5807e+01_jprb,5.5827e+01_jprb,5.5659e+01_jprb,5.5279e+01_jprb,5.4693e+01_jprb/)
2003 kbo( :,25,16) = (/&
2004 &6.2605e+01_jprb,6.2250e+01_jprb,6.1658e+01_jprb,6.0879e+01_jprb,5.9925e+01_jprb/)
2005 kbo( :,26,16) = (/&
2006 &6.9126e+01_jprb,6.8329e+01_jprb,6.7305e+01_jprb,6.6047e+01_jprb,6.4706e+01_jprb/)
2007 kbo( :,27,16) = (/&
2008 &7.5229e+01_jprb,7.3889e+01_jprb,7.2393e+01_jprb,7.0704e+01_jprb,6.8940e+01_jprb/)
2009 kbo( :,28,16) = (/&
2010 &8.0701e+01_jprb,7.8841e+01_jprb,7.6868e+01_jprb,7.4764e+01_jprb,7.2600e+01_jprb/)
2011 kbo( :,29,16) = (/&
2012 &8.5434e+01_jprb,8.3106e+01_jprb,8.0668e+01_jprb,7.8169e+01_jprb,7.5668e+01_jprb/)
2013 kbo( :,30,16) = (/&
2014 &8.9445e+01_jprb,8.6639e+01_jprb,8.3811e+01_jprb,8.0953e+01_jprb,7.8147e+01_jprb/)
2015 kbo( :,31,16) = (/&
2016 &9.2661e+01_jprb,8.9490e+01_jprb,8.6283e+01_jprb,8.3138e+01_jprb,8.0087e+01_jprb/)
2017 kbo( :,32,16) = (/&
2018 &9.5180e+01_jprb,9.1672e+01_jprb,8.8175e+01_jprb,8.4788e+01_jprb,8.1658e+01_jprb/)
2019 kbo( :,33,16) = (/&
2020 &9.7060e+01_jprb,9.3296e+01_jprb,8.9535e+01_jprb,8.5975e+01_jprb,8.6733e+01_jprb/)
2021 kbo( :,34,16) = (/&
2022 &9.8535e+01_jprb,9.4543e+01_jprb,9.0580e+01_jprb,8.8544e+01_jprb,9.8376e+01_jprb/)
2023 kbo( :,35,16) = (/&
2024 &9.9986e+01_jprb,9.5782e+01_jprb,9.1765e+01_jprb,9.5678e+01_jprb,1.1682e+02_jprb/)
2025 kbo( :,36,16) = (/&
2026 &1.0154e+02_jprb,9.7161e+01_jprb,9.4575e+01_jprb,1.0592e+02_jprb,1.3789e+02_jprb/)
2027 kbo( :,37,16) = (/&
2028 &1.0353e+02_jprb,9.8977e+01_jprb,9.7885e+01_jprb,1.1385e+02_jprb,1.5187e+02_jprb/)
2029 kbo( :,38,16) = (/&
2030 &1.0537e+02_jprb,1.0066e+02_jprb,1.0193e+02_jprb,1.2434e+02_jprb,1.6894e+02_jprb/)
2031 kbo( :,39,16) = (/&
2032 &1.0709e+02_jprb,1.0226e+02_jprb,1.0840e+02_jprb,1.3970e+02_jprb,1.9203e+02_jprb/)
2033 kbo( :,40,16) = (/&
2034 &1.0920e+02_jprb,1.0414e+02_jprb,1.1026e+02_jprb,1.4309e+02_jprb,1.9842e+02_jprb/)
2035 kbo( :,41,16) = (/&
2036 &1.1129e+02_jprb,1.0602e+02_jprb,1.1150e+02_jprb,1.4497e+02_jprb,2.0309e+02_jprb/)
2037 kbo( :,42,16) = (/&
2038 &1.1332e+02_jprb,1.0786e+02_jprb,1.1308e+02_jprb,1.4794e+02_jprb,2.0952e+02_jprb/)
2039 kbo( :,43,16) = (/&
2040 &1.1559e+02_jprb,1.1003e+02_jprb,1.1380e+02_jprb,1.4865e+02_jprb,2.1325e+02_jprb/)
2041 kbo( :,44,16) = (/&
2042 &1.1806e+02_jprb,1.1228e+02_jprb,1.1464e+02_jprb,1.4922e+02_jprb,2.1715e+02_jprb/)
2043 kbo( :,45,16) = (/&
2044 &1.2053e+02_jprb,1.1454e+02_jprb,1.1628e+02_jprb,1.5180e+02_jprb,2.2438e+02_jprb/)
2045 kbo( :,46,16) = (/&
2046 &1.2309e+02_jprb,1.1696e+02_jprb,1.1783e+02_jprb,1.5362e+02_jprb,2.3111e+02_jprb/)
2047 kbo( :,47,16) = (/&
2048 &1.2599e+02_jprb,1.1969e+02_jprb,1.1823e+02_jprb,1.5084e+02_jprb,2.3026e+02_jprb/)
2049 kbo( :,48,16) = (/&
2050 &1.2892e+02_jprb,1.2242e+02_jprb,1.1952e+02_jprb,1.5067e+02_jprb,2.3396e+02_jprb/)
2051 kbo( :,49,16) = (/&
2052 &1.3193e+02_jprb,1.2519e+02_jprb,1.2177e+02_jprb,1.5425e+02_jprb,2.4535e+02_jprb/)
2053 kbo( :,50,16) = (/&
2054 &1.3498e+02_jprb,1.2786e+02_jprb,1.2310e+02_jprb,1.5233e+02_jprb,2.4573e+02_jprb/)
2055 kbo( :,51,16) = (/&
2056 &1.3812e+02_jprb,1.3051e+02_jprb,1.2450e+02_jprb,1.4796e+02_jprb,2.3986e+02_jprb/)
2057 kbo( :,52,16) = (/&
2058 &1.4129e+02_jprb,1.3328e+02_jprb,1.2643e+02_jprb,1.4628e+02_jprb,2.3868e+02_jprb/)
2059 kbo( :,53,16) = (/&
2060 &1.4456e+02_jprb,1.3621e+02_jprb,1.2885e+02_jprb,1.4756e+02_jprb,2.4494e+02_jprb/)
2061 kbo( :,54,16) = (/&
2062 &1.4765e+02_jprb,1.3898e+02_jprb,1.3126e+02_jprb,1.3886e+02_jprb,2.1886e+02_jprb/)
2063 kbo( :,55,16) = (/&
2064 &1.5067e+02_jprb,1.4175e+02_jprb,1.3370e+02_jprb,1.3097e+02_jprb,1.8055e+02_jprb/)
2065 kbo( :,56,16) = (/&
2066 &1.5379e+02_jprb,1.4459e+02_jprb,1.3623e+02_jprb,1.2922e+02_jprb,1.5393e+02_jprb/)
2067 kbo( :,57,16) = (/&
2068 &1.5705e+02_jprb,1.4750e+02_jprb,1.3886e+02_jprb,1.3117e+02_jprb,1.3814e+02_jprb/)
2069 kbo( :,58,16) = (/&
2070 &1.6030e+02_jprb,1.5034e+02_jprb,1.4144e+02_jprb,1.3342e+02_jprb,1.3000e+02_jprb/)
2071 kbo( :,59,16) = (/&
2072 &1.6165e+02_jprb,1.5155e+02_jprb,1.4250e+02_jprb,1.3439e+02_jprb,1.2723e+02_jprb/)
2073 
2074 ! SELFREFO is the array for the self-continuum.
2075 
2076 selfrefo( :, 1) = (/&
2077 &3.15710e-02_jprb, 2.74495e-02_jprb, 2.38660e-02_jprb, 2.07504e-02_jprb, 1.80415e-02_jprb,&
2078 &1.56862e-02_jprb, 1.36384e-02_jprb, 1.18580e-02_jprb, 1.03099e-02_jprb, 8.96400e-03_jprb/)
2079 selfrefo( :, 2) = (/&
2080 &3.10782e-02_jprb, 2.71526e-02_jprb, 2.37228e-02_jprb, 2.07262e-02_jprb, 1.81082e-02_jprb,&
2081 &1.58209e-02_jprb, 1.38224e-02_jprb, 1.20765e-02_jprb, 1.05510e-02_jprb, 9.21827e-03_jprb/)
2082 selfrefo( :, 3) = (/&
2083 &3.08052e-02_jprb, 2.68989e-02_jprb, 2.34880e-02_jprb, 2.05096e-02_jprb, 1.79089e-02_jprb,&
2084 &1.56380e-02_jprb, 1.36550e-02_jprb, 1.19235e-02_jprb, 1.04116e-02_jprb, 9.09133e-03_jprb/)
2085 selfrefo( :, 4) = (/&
2086 &3.02590e-02_jprb, 2.64547e-02_jprb, 2.31287e-02_jprb, 2.02209e-02_jprb, 1.76786e-02_jprb,&
2087 &1.54560e-02_jprb, 1.35128e-02_jprb, 1.18139e-02_jprb, 1.03286e-02_jprb, 9.03003e-03_jprb/)
2088 selfrefo( :, 5) = (/&
2089 &2.98458e-02_jprb, 2.61601e-02_jprb, 2.29295e-02_jprb, 2.00978e-02_jprb, 1.76159e-02_jprb,&
2090 &1.54404e-02_jprb, 1.35336e-02_jprb, 1.18623e-02_jprb, 1.03974e-02_jprb, 9.11337e-03_jprb/)
2091 selfrefo( :, 6) = (/&
2092 &2.95965e-02_jprb, 2.59395e-02_jprb, 2.27343e-02_jprb, 1.99252e-02_jprb, 1.74632e-02_jprb,&
2093 &1.53054e-02_jprb, 1.34142e-02_jprb, 1.17567e-02_jprb, 1.03040e-02_jprb, 9.03083e-03_jprb/)
2094 selfrefo( :, 7) = (/&
2095 &2.97590e-02_jprb, 2.60522e-02_jprb, 2.28071e-02_jprb, 1.99662e-02_jprb, 1.74792e-02_jprb,&
2096 &1.53020e-02_jprb, 1.33959e-02_jprb, 1.17273e-02_jprb, 1.02665e-02_jprb, 8.98772e-03_jprb/)
2097 selfrefo( :, 8) = (/&
2098 &2.96582e-02_jprb, 2.59789e-02_jprb, 2.27560e-02_jprb, 1.99330e-02_jprb, 1.74602e-02_jprb,&
2099 &1.52941e-02_jprb, 1.33968e-02_jprb, 1.17348e-02_jprb, 1.02790e-02_jprb, 9.00382e-03_jprb/)
2100 selfrefo( :, 9) = (/&
2101 &2.97945e-02_jprb, 2.60711e-02_jprb, 2.28129e-02_jprb, 1.99620e-02_jprb, 1.74673e-02_jprb,&
2102 &1.52844e-02_jprb, 1.33743e-02_jprb, 1.17029e-02_jprb, 1.02404e-02_jprb, 8.96062e-03_jprb/)
2103 selfrefo( :,10) = (/&
2104 &2.97731e-02_jprb, 2.60436e-02_jprb, 2.27813e-02_jprb, 1.99276e-02_jprb, 1.74314e-02_jprb,&
2105 &1.52478e-02_jprb, 1.33378e-02_jprb, 1.16671e-02_jprb, 1.02056e-02_jprb, 8.92719e-03_jprb/)
2106 selfrefo( :,11) = (/&
2107 &2.94084e-02_jprb, 2.57680e-02_jprb, 2.25782e-02_jprb, 1.97832e-02_jprb, 1.73343e-02_jprb,&
2108 &1.51885e-02_jprb, 1.33083e-02_jprb, 1.16609e-02_jprb, 1.02174e-02_jprb, 8.95261e-03_jprb/)
2109 selfrefo( :,12) = (/&
2110 &2.97023e-02_jprb, 2.60117e-02_jprb, 2.27796e-02_jprb, 1.99491e-02_jprb, 1.74703e-02_jprb,&
2111 &1.52996e-02_jprb, 1.33985e-02_jprb, 1.17337e-02_jprb, 1.02757e-02_jprb, 8.99890e-03_jprb/)
2112 selfrefo( :,13) = (/&
2113 &2.96542e-02_jprb, 2.59249e-02_jprb, 2.26645e-02_jprb, 1.98142e-02_jprb, 1.73223e-02_jprb,&
2114 &1.51438e-02_jprb, 1.32393e-02_jprb, 1.15743e-02_jprb, 1.01187e-02_jprb, 8.84612e-03_jprb/)
2115 selfrefo( :,14) = (/&
2116 &2.89971e-02_jprb, 2.53964e-02_jprb, 2.22429e-02_jprb, 1.94809e-02_jprb, 1.70619e-02_jprb,&
2117 &1.49433e-02_jprb, 1.30877e-02_jprb, 1.14626e-02_jprb, 1.00392e-02_jprb, 8.79262e-03_jprb/)
2118 selfrefo( :,15) = (/&
2119 &2.80866e-02_jprb, 2.46970e-02_jprb, 2.17166e-02_jprb, 1.90958e-02_jprb, 1.67913e-02_jprb,&
2120 &1.47649e-02_jprb, 1.29830e-02_jprb, 1.14162e-02_jprb, 1.00385e-02_jprb, 8.82704e-03_jprb/)
2121 selfrefo( :,16) = (/&
2122 &2.80866e-02_jprb, 2.46970e-02_jprb, 2.17166e-02_jprb, 1.90958e-02_jprb, 1.67913e-02_jprb,&
2123 &1.47649e-02_jprb, 1.29830e-02_jprb, 1.14162e-02_jprb, 1.00385e-02_jprb, 8.82704e-03_jprb/)
2124 
2125 ! -----------------------------------------------------------------
2126 RETURN
2127 END SUBROUTINE rrtm_kgb8
yoerrto8::absn2obo
real(kind=jprb), dimension(no8) absn2obo
Definition: yoerrto8.F90:23
yoerrto8::fracrefao
real(kind=jprb), dimension(no8) fracrefao
Definition: yoerrto8.F90:16
yoerrto8::absco2bo
real(kind=jprb), dimension(no8) absco2bo
Definition: yoerrto8.F90:21
yoerrto8::cfc12o
real(kind=jprb), dimension(no8) cfc12o
Definition: yoerrto8.F90:18
yoerrto8::absco2ao
real(kind=jprb), dimension(no8) absco2ao
Definition: yoerrto8.F90:20
yoerrto8::kao
real(kind=jprb), dimension(5, 7, no8) kao
Definition: yoerrto8.F90:25
yoerrta8::o3ref
real(kind=jprb), dimension(59) o3ref
Definition: yoerrta8.F90:26
rrtm_kgb8
subroutine rrtm_kgb8
Definition: rrtm_kgb8.F90:7
yoerrto8::fracrefbo
real(kind=jprb), dimension(no8) fracrefbo
Definition: yoerrto8.F90:17
yoerrto8::selfrefo
real(kind=jprb), dimension(10, no8) selfrefo
Definition: yoerrto8.F90:27
yoerrto8::cfc22adjo
real(kind=jprb), dimension(no8) cfc22adjo
Definition: yoerrto8.F90:19
yoerrta8::n2oref
real(kind=jprb), dimension(59) n2oref
Definition: yoerrta8.F90:25
yoerrto8::absn2oao
real(kind=jprb), dimension(no8) absn2oao
Definition: yoerrto8.F90:22
yoerrta8::h2oref
real(kind=jprb), dimension(59) h2oref
Definition: yoerrta8.F90:24
yoerrto8::kbo
real(kind=jprb), dimension(5, 7:59, no8) kbo
Definition: yoerrto8.F90:26