LMDZ
rrtm_kgb9_BB.F90
Go to the documentation of this file.
1 !OCL SCALAR
2 SUBROUTINE rrtm_kgb9_bb
3 
4 ! Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
5 ! BAND 9: 1180-1390 cm-1 (low - H2O,CH4; high - CH4)
6 ! Reformatted for F90 by JJMorcrette, ECMWF
7 ! Reformatted for NEC by H.Gallée , LGGE (splitting)
8 
9 ! ------------------------------------------------------------------
10 
11 #include "tsmbkind.h"
12 
13 USE yoerrto9 , ONLY : kao ,kbo ,selfrefo ,fracrefao ,&
15 USE yoerrta9 , ONLY : n2oref ,h2oref ,ch4ref ,etaref ,strrat
16 
17 ! ------------------------------------------------------------------
18 
19 
20 IMPLICIT NONE
21 
22 ! ------------------------------------------------------------------
23 
24 
25 ! The array KBO contains absorption coefs at the 16 chosen g-values
26 ! for a range of pressure levels < ~100mb and temperatures. The first
27 ! index in the array, JT, which runs from 1 to 5, corresponds to
28 ! different temperatures. More specifically, JT = 3 means that the
29 ! data are for the reference temperature TREF for this pressure
30 ! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
31 ! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.
32 ! The second index, JP, runs from 13 to 59 and refers to the JPth
33 ! reference pressure level (see taumol.f for the value of these
34 ! pressure levels in mb). The third index, IG, goes from 1 to 16,
35 ! and tells us which g-interval the absorption coefficients are for.
36 
37 kbo( :,13, 1) = (/&
38 &4.0994e-03_jprb,5.0728e-03_jprb,6.1420e-03_jprb,7.2969e-03_jprb,8.5215e-03_jprb/)
39 kbo( :,14, 1) = (/&
40 &3.5608e-03_jprb,4.4025e-03_jprb,5.3259e-03_jprb,6.3236e-03_jprb,7.3838e-03_jprb/)
41 kbo( :,15, 1) = (/&
42 &3.1441e-03_jprb,3.8833e-03_jprb,4.6911e-03_jprb,5.5651e-03_jprb,6.4864e-03_jprb/)
43 kbo( :,16, 1) = (/&
44 &2.7804e-03_jprb,3.4263e-03_jprb,4.1318e-03_jprb,4.8903e-03_jprb,5.6839e-03_jprb/)
45 kbo( :,17, 1) = (/&
46 &2.5177e-03_jprb,3.0931e-03_jprb,3.7229e-03_jprb,4.3958e-03_jprb,5.0932e-03_jprb/)
47 kbo( :,18, 1) = (/&
48 &2.3397e-03_jprb,2.8662e-03_jprb,3.4383e-03_jprb,4.0476e-03_jprb,4.6762e-03_jprb/)
49 kbo( :,19, 1) = (/&
50 &2.2067e-03_jprb,2.6944e-03_jprb,3.2196e-03_jprb,3.7730e-03_jprb,4.3369e-03_jprb/)
51 kbo( :,20, 1) = (/&
52 &1.9900e-03_jprb,2.4229e-03_jprb,2.8861e-03_jprb,3.3669e-03_jprb,3.8498e-03_jprb/)
53 kbo( :,21, 1) = (/&
54 &1.7699e-03_jprb,2.1476e-03_jprb,2.5489e-03_jprb,2.9591e-03_jprb,3.3696e-03_jprb/)
55 kbo( :,22, 1) = (/&
56 &1.5791e-03_jprb,1.9073e-03_jprb,2.2490e-03_jprb,2.5953e-03_jprb,2.9423e-03_jprb/)
57 kbo( :,23, 1) = (/&
58 &1.4083e-03_jprb,1.6913e-03_jprb,1.9813e-03_jprb,2.2728e-03_jprb,2.5656e-03_jprb/)
59 kbo( :,24, 1) = (/&
60 &1.2531e-03_jprb,1.4945e-03_jprb,1.7386e-03_jprb,1.9824e-03_jprb,2.2278e-03_jprb/)
61 kbo( :,25, 1) = (/&
62 &1.1116e-03_jprb,1.3151e-03_jprb,1.5192e-03_jprb,1.7227e-03_jprb,1.9286e-03_jprb/)
63 kbo( :,26, 1) = (/&
64 &9.8108e-04_jprb,1.1510e-03_jprb,1.3208e-03_jprb,1.4915e-03_jprb,1.6636e-03_jprb/)
65 kbo( :,27, 1) = (/&
66 &8.5741e-04_jprb,9.9814e-04_jprb,1.1394e-03_jprb,1.2818e-03_jprb,1.4244e-03_jprb/)
67 kbo( :,28, 1) = (/&
68 &7.4362e-04_jprb,8.5993e-04_jprb,9.7672e-04_jprb,1.0942e-03_jprb,1.2112e-03_jprb/)
69 kbo( :,29, 1) = (/&
70 &6.4173e-04_jprb,7.3787e-04_jprb,8.3430e-04_jprb,9.3077e-04_jprb,1.0275e-03_jprb/)
71 kbo( :,30, 1) = (/&
72 &5.5206e-04_jprb,6.3117e-04_jprb,7.1043e-04_jprb,7.8981e-04_jprb,8.6914e-04_jprb/)
73 kbo( :,31, 1) = (/&
74 &4.7282e-04_jprb,5.3772e-04_jprb,6.0295e-04_jprb,6.6810e-04_jprb,7.3341e-04_jprb/)
75 kbo( :,32, 1) = (/&
76 &4.0428e-04_jprb,4.5779e-04_jprb,5.1149e-04_jprb,5.6525e-04_jprb,6.1880e-04_jprb/)
77 kbo( :,33, 1) = (/&
78 &3.4491e-04_jprb,3.8913e-04_jprb,4.3344e-04_jprb,4.7736e-04_jprb,5.2088e-04_jprb/)
79 kbo( :,34, 1) = (/&
80 &2.9576e-04_jprb,3.3268e-04_jprb,3.6928e-04_jprb,4.0567e-04_jprb,4.4172e-04_jprb/)
81 kbo( :,35, 1) = (/&
82 &2.5077e-04_jprb,2.8136e-04_jprb,3.1174e-04_jprb,3.4190e-04_jprb,3.7190e-04_jprb/)
83 kbo( :,36, 1) = (/&
84 &2.0965e-04_jprb,2.3515e-04_jprb,2.6041e-04_jprb,2.8542e-04_jprb,3.1056e-04_jprb/)
85 kbo( :,37, 1) = (/&
86 &1.6881e-04_jprb,1.8974e-04_jprb,2.1051e-04_jprb,2.3106e-04_jprb,2.5174e-04_jprb/)
87 kbo( :,38, 1) = (/&
88 &1.3519e-04_jprb,1.5238e-04_jprb,1.6942e-04_jprb,1.8630e-04_jprb,2.0323e-04_jprb/)
89 kbo( :,39, 1) = (/&
90 &1.0769e-04_jprb,1.2175e-04_jprb,1.3571e-04_jprb,1.4957e-04_jprb,1.6341e-04_jprb/)
91 kbo( :,40, 1) = (/&
92 &8.3659e-05_jprb,9.4997e-05_jprb,1.0624e-04_jprb,1.1742e-04_jprb,1.2854e-04_jprb/)
93 kbo( :,41, 1) = (/&
94 &6.4553e-05_jprb,7.3658e-05_jprb,8.2687e-05_jprb,9.1644e-05_jprb,1.0055e-04_jprb/)
95 kbo( :,42, 1) = (/&
96 &4.9559e-05_jprb,5.6844e-05_jprb,6.4074e-05_jprb,7.1250e-05_jprb,7.8380e-05_jprb/)
97 kbo( :,43, 1) = (/&
98 &3.7325e-05_jprb,4.3138e-05_jprb,4.8889e-05_jprb,5.4599e-05_jprb,6.0264e-05_jprb/)
99 kbo( :,44, 1) = (/&
100 &2.7719e-05_jprb,3.2330e-05_jprb,3.6894e-05_jprb,4.1410e-05_jprb,4.5899e-05_jprb/)
101 kbo( :,45, 1) = (/&
102 &2.0321e-05_jprb,2.3995e-05_jprb,2.7586e-05_jprb,3.1159e-05_jprb,3.4704e-05_jprb/)
103 kbo( :,46, 1) = (/&
104 &1.4684e-05_jprb,1.7602e-05_jprb,2.0438e-05_jprb,2.3255e-05_jprb,2.6055e-05_jprb/)
105 kbo( :,47, 1) = (/&
106 &1.0495e-05_jprb,1.2761e-05_jprb,1.5036e-05_jprb,1.7255e-05_jprb,1.9472e-05_jprb/)
107 kbo( :,48, 1) = (/&
108 &7.3772e-06_jprb,9.1061e-06_jprb,1.0897e-05_jprb,1.2655e-05_jprb,1.4395e-05_jprb/)
109 kbo( :,49, 1) = (/&
110 &5.0673e-06_jprb,6.3724e-06_jprb,7.7347e-06_jprb,9.1249e-06_jprb,1.0486e-05_jprb/)
111 kbo( :,50, 1) = (/&
112 &3.5302e-06_jprb,4.5180e-06_jprb,5.5663e-06_jprb,6.6492e-06_jprb,7.7336e-06_jprb/)
113 kbo( :,51, 1) = (/&
114 &2.4650e-06_jprb,3.2117e-06_jprb,4.0196e-06_jprb,4.8590e-06_jprb,5.7209e-06_jprb/)
115 kbo( :,52, 1) = (/&
116 &1.6959e-06_jprb,2.2491e-06_jprb,2.8606e-06_jprb,3.5081e-06_jprb,4.1772e-06_jprb/)
117 kbo( :,53, 1) = (/&
118 &1.1461e-06_jprb,1.5466e-06_jprb,1.9999e-06_jprb,2.4909e-06_jprb,3.0024e-06_jprb/)
119 kbo( :,54, 1) = (/&
120 &8.1277e-07_jprb,1.1151e-06_jprb,1.4623e-06_jprb,1.8438e-06_jprb,2.2473e-06_jprb/)
121 kbo( :,55, 1) = (/&
122 &5.9132e-07_jprb,8.2491e-07_jprb,1.0964e-06_jprb,1.3990e-06_jprb,1.7223e-06_jprb/)
123 kbo( :,56, 1) = (/&
124 &4.2770e-07_jprb,6.0720e-07_jprb,8.1863e-07_jprb,1.0577e-06_jprb,1.3158e-06_jprb/)
125 kbo( :,57, 1) = (/&
126 &3.0731e-07_jprb,4.4442e-07_jprb,6.0841e-07_jprb,7.9635e-07_jprb,1.0017e-06_jprb/)
127 kbo( :,58, 1) = (/&
128 &2.2286e-07_jprb,3.2839e-07_jprb,4.5650e-07_jprb,6.0508e-07_jprb,7.6969e-07_jprb/)
129 kbo( :,59, 1) = (/&
130 &1.8935e-07_jprb,2.8208e-07_jprb,3.9434e-07_jprb,5.2454e-07_jprb,6.6793e-07_jprb/)
131 kbo( :,13, 2) = (/&
132 &2.0350e-02_jprb,2.3737e-02_jprb,2.7056e-02_jprb,3.0424e-02_jprb,3.3880e-02_jprb/)
133 kbo( :,14, 2) = (/&
134 &1.7887e-02_jprb,2.0698e-02_jprb,2.3474e-02_jprb,2.6314e-02_jprb,2.9218e-02_jprb/)
135 kbo( :,15, 2) = (/&
136 &1.5699e-02_jprb,1.8063e-02_jprb,2.0419e-02_jprb,2.2807e-02_jprb,2.5263e-02_jprb/)
137 kbo( :,16, 2) = (/&
138 &1.3704e-02_jprb,1.5696e-02_jprb,1.7682e-02_jprb,1.9683e-02_jprb,2.1758e-02_jprb/)
139 kbo( :,17, 2) = (/&
140 &1.2174e-02_jprb,1.3873e-02_jprb,1.5565e-02_jprb,1.7279e-02_jprb,1.9055e-02_jprb/)
141 kbo( :,18, 2) = (/&
142 &1.1051e-02_jprb,1.2529e-02_jprb,1.4014e-02_jprb,1.5532e-02_jprb,1.7091e-02_jprb/)
143 kbo( :,19, 2) = (/&
144 &1.0133e-02_jprb,1.1442e-02_jprb,1.2772e-02_jprb,1.4145e-02_jprb,1.5532e-02_jprb/)
145 kbo( :,20, 2) = (/&
146 &8.9501e-03_jprb,1.0074e-02_jprb,1.1232e-02_jprb,1.2420e-02_jprb,1.3612e-02_jprb/)
147 kbo( :,21, 2) = (/&
148 &7.8061e-03_jprb,8.7666e-03_jprb,9.7638e-03_jprb,1.0776e-02_jprb,1.1786e-02_jprb/)
149 kbo( :,22, 2) = (/&
150 &6.7985e-03_jprb,7.6154e-03_jprb,8.4665e-03_jprb,9.3161e-03_jprb,1.0161e-02_jprb/)
151 kbo( :,23, 2) = (/&
152 &5.9115e-03_jprb,6.6091e-03_jprb,7.3264e-03_jprb,8.0410e-03_jprb,8.7466e-03_jprb/)
153 kbo( :,24, 2) = (/&
154 &5.1182e-03_jprb,5.7070e-03_jprb,6.3037e-03_jprb,6.8969e-03_jprb,7.4832e-03_jprb/)
155 kbo( :,25, 2) = (/&
156 &4.4185e-03_jprb,4.9117e-03_jprb,5.4043e-03_jprb,5.8933e-03_jprb,6.3802e-03_jprb/)
157 kbo( :,26, 2) = (/&
158 &3.8039e-03_jprb,4.2126e-03_jprb,4.6157e-03_jprb,5.0191e-03_jprb,5.4221e-03_jprb/)
159 kbo( :,27, 2) = (/&
160 &3.2526e-03_jprb,3.5834e-03_jprb,3.9131e-03_jprb,4.2430e-03_jprb,4.5744e-03_jprb/)
161 kbo( :,28, 2) = (/&
162 &2.7589e-03_jprb,3.0253e-03_jprb,3.2916e-03_jprb,3.5602e-03_jprb,3.8315e-03_jprb/)
163 kbo( :,29, 2) = (/&
164 &2.3366e-03_jprb,2.5520e-03_jprb,2.7694e-03_jprb,2.9896e-03_jprb,3.2113e-03_jprb/)
165 kbo( :,30, 2) = (/&
166 &1.9721e-03_jprb,2.1482e-03_jprb,2.3261e-03_jprb,2.5062e-03_jprb,2.6880e-03_jprb/)
167 kbo( :,31, 2) = (/&
168 &1.6646e-03_jprb,1.8093e-03_jprb,1.9562e-03_jprb,2.1055e-03_jprb,2.2560e-03_jprb/)
169 kbo( :,32, 2) = (/&
170 &1.4084e-03_jprb,1.5283e-03_jprb,1.6508e-03_jprb,1.7751e-03_jprb,1.9009e-03_jprb/)
171 kbo( :,33, 2) = (/&
172 &1.1942e-03_jprb,1.2940e-03_jprb,1.3964e-03_jprb,1.5007e-03_jprb,1.6067e-03_jprb/)
173 kbo( :,34, 2) = (/&
174 &1.0227e-03_jprb,1.1075e-03_jprb,1.1945e-03_jprb,1.2830e-03_jprb,1.3735e-03_jprb/)
175 kbo( :,35, 2) = (/&
176 &8.7018e-04_jprb,9.4216e-04_jprb,1.0160e-03_jprb,1.0916e-03_jprb,1.1695e-03_jprb/)
177 kbo( :,36, 2) = (/&
178 &7.3515e-04_jprb,7.9615e-04_jprb,8.5904e-04_jprb,9.2392e-04_jprb,9.9055e-04_jprb/)
179 kbo( :,37, 2) = (/&
180 &6.0212e-04_jprb,6.5252e-04_jprb,7.0452e-04_jprb,7.5835e-04_jprb,8.1370e-04_jprb/)
181 kbo( :,38, 2) = (/&
182 &4.9188e-04_jprb,5.3334e-04_jprb,5.7632e-04_jprb,6.2087e-04_jprb,6.6682e-04_jprb/)
183 kbo( :,39, 2) = (/&
184 &4.0118e-04_jprb,4.3525e-04_jprb,4.7078e-04_jprb,5.0765e-04_jprb,5.4579e-04_jprb/)
185 kbo( :,40, 2) = (/&
186 &3.1804e-04_jprb,3.4535e-04_jprb,3.7372e-04_jprb,4.0332e-04_jprb,4.3403e-04_jprb/)
187 kbo( :,41, 2) = (/&
188 &2.5079e-04_jprb,2.7257e-04_jprb,2.9509e-04_jprb,3.1873e-04_jprb,3.4326e-04_jprb/)
189 kbo( :,42, 2) = (/&
190 &1.9734e-04_jprb,2.1467e-04_jprb,2.3255e-04_jprb,2.5134e-04_jprb,2.7095e-04_jprb/)
191 kbo( :,43, 2) = (/&
192 &1.5339e-04_jprb,1.6697e-04_jprb,1.8107e-04_jprb,1.9578e-04_jprb,2.1125e-04_jprb/)
193 kbo( :,44, 2) = (/&
194 &1.1845e-04_jprb,1.2903e-04_jprb,1.4006e-04_jprb,1.5150e-04_jprb,1.6358e-04_jprb/)
195 kbo( :,45, 2) = (/&
196 &9.1280e-05_jprb,9.9479e-05_jprb,1.0807e-04_jprb,1.1698e-04_jprb,1.2633e-04_jprb/)
197 kbo( :,46, 2) = (/&
198 &7.0194e-05_jprb,7.6516e-05_jprb,8.3188e-05_jprb,9.0126e-05_jprb,9.7367e-05_jprb/)
199 kbo( :,47, 2) = (/&
200 &5.3867e-05_jprb,5.8795e-05_jprb,6.3952e-05_jprb,6.9343e-05_jprb,7.4969e-05_jprb/)
201 kbo( :,48, 2) = (/&
202 &4.1189e-05_jprb,4.5058e-05_jprb,4.9041e-05_jprb,5.3206e-05_jprb,5.7575e-05_jprb/)
203 kbo( :,49, 2) = (/&
204 &3.1341e-05_jprb,3.4382e-05_jprb,3.7483e-05_jprb,4.0694e-05_jprb,4.4051e-05_jprb/)
205 kbo( :,50, 2) = (/&
206 &2.4027e-05_jprb,2.6443e-05_jprb,2.8884e-05_jprb,3.1394e-05_jprb,3.3991e-05_jprb/)
207 kbo( :,51, 2) = (/&
208 &1.8468e-05_jprb,2.0396e-05_jprb,2.2328e-05_jprb,2.4296e-05_jprb,2.6326e-05_jprb/)
209 kbo( :,52, 2) = (/&
210 &1.4146e-05_jprb,1.5676e-05_jprb,1.7214e-05_jprb,1.8760e-05_jprb,2.0350e-05_jprb/)
211 kbo( :,53, 2) = (/&
212 &1.0781e-05_jprb,1.1992e-05_jprb,1.3217e-05_jprb,1.4439e-05_jprb,1.5682e-05_jprb/)
213 kbo( :,54, 2) = (/&
214 &8.3350e-06_jprb,9.3049e-06_jprb,1.0280e-05_jprb,1.1258e-05_jprb,1.2239e-05_jprb/)
215 kbo( :,55, 2) = (/&
216 &6.4823e-06_jprb,7.2753e-06_jprb,8.0542e-06_jprb,8.8375e-06_jprb,9.6163e-06_jprb/)
217 kbo( :,56, 2) = (/&
218 &5.0178e-06_jprb,5.6802e-06_jprb,6.3041e-06_jprb,6.9292e-06_jprb,7.5496e-06_jprb/)
219 kbo( :,57, 2) = (/&
220 &3.8663e-06_jprb,4.4221e-06_jprb,4.9273e-06_jprb,5.4254e-06_jprb,5.9221e-06_jprb/)
221 kbo( :,58, 2) = (/&
222 &2.9804e-06_jprb,3.4457e-06_jprb,3.8617e-06_jprb,4.2609e-06_jprb,4.6580e-06_jprb/)
223 kbo( :,59, 2) = (/&
224 &2.4280e-06_jprb,2.8160e-06_jprb,3.1595e-06_jprb,3.4836e-06_jprb,3.8045e-06_jprb/)
225 kbo( :,13, 3) = (/&
226 &5.2207e-02_jprb,5.8218e-02_jprb,6.4867e-02_jprb,7.1854e-02_jprb,7.9269e-02_jprb/)
227 kbo( :,14, 3) = (/&
228 &4.5186e-02_jprb,5.0511e-02_jprb,5.6225e-02_jprb,6.2140e-02_jprb,6.8380e-02_jprb/)
229 kbo( :,15, 3) = (/&
230 &3.9072e-02_jprb,4.3588e-02_jprb,4.8378e-02_jprb,5.3369e-02_jprb,5.8579e-02_jprb/)
231 kbo( :,16, 3) = (/&
232 &3.3600e-02_jprb,3.7414e-02_jprb,4.1420e-02_jprb,4.5603e-02_jprb,4.9920e-02_jprb/)
233 kbo( :,17, 3) = (/&
234 &2.9352e-02_jprb,3.2637e-02_jprb,3.6077e-02_jprb,3.9644e-02_jprb,4.3315e-02_jprb/)
235 kbo( :,18, 3) = (/&
236 &2.6239e-02_jprb,2.9170e-02_jprb,3.2236e-02_jprb,3.5401e-02_jprb,3.8652e-02_jprb/)
237 kbo( :,19, 3) = (/&
238 &2.3733e-02_jprb,2.6395e-02_jprb,2.9161e-02_jprb,3.2005e-02_jprb,3.4969e-02_jprb/)
239 kbo( :,20, 3) = (/&
240 &2.0795e-02_jprb,2.3131e-02_jprb,2.5535e-02_jprb,2.8011e-02_jprb,3.0599e-02_jprb/)
241 kbo( :,21, 3) = (/&
242 &1.8040e-02_jprb,2.0057e-02_jprb,2.2116e-02_jprb,2.4262e-02_jprb,2.6478e-02_jprb/)
243 kbo( :,22, 3) = (/&
244 &1.5612e-02_jprb,1.7322e-02_jprb,1.9070e-02_jprb,2.0895e-02_jprb,2.2752e-02_jprb/)
245 kbo( :,23, 3) = (/&
246 &1.3484e-02_jprb,1.4923e-02_jprb,1.6411e-02_jprb,1.7947e-02_jprb,1.9492e-02_jprb/)
247 kbo( :,24, 3) = (/&
248 &1.1550e-02_jprb,1.2744e-02_jprb,1.3987e-02_jprb,1.5260e-02_jprb,1.6517e-02_jprb/)
249 kbo( :,25, 3) = (/&
250 &9.8605e-03_jprb,1.0848e-02_jprb,1.1882e-02_jprb,1.2919e-02_jprb,1.3956e-02_jprb/)
251 kbo( :,26, 3) = (/&
252 &8.3958e-03_jprb,9.2176e-03_jprb,1.0068e-02_jprb,1.0918e-02_jprb,1.1783e-02_jprb/)
253 kbo( :,27, 3) = (/&
254 &7.0886e-03_jprb,7.7689e-03_jprb,8.4604e-03_jprb,9.1621e-03_jprb,9.8810e-03_jprb/)
255 kbo( :,28, 3) = (/&
256 &5.9371e-03_jprb,6.4915e-03_jprb,7.0594e-03_jprb,7.6411e-03_jprb,8.2339e-03_jprb/)
257 kbo( :,29, 3) = (/&
258 &4.9851e-03_jprb,5.4425e-03_jprb,5.9143e-03_jprb,6.3959e-03_jprb,6.8922e-03_jprb/)
259 kbo( :,30, 3) = (/&
260 &4.1812e-03_jprb,4.5627e-03_jprb,4.9527e-03_jprb,5.3553e-03_jprb,5.7728e-03_jprb/)
261 kbo( :,31, 3) = (/&
262 &3.5208e-03_jprb,3.8377e-03_jprb,4.1624e-03_jprb,4.5005e-03_jprb,4.8529e-03_jprb/)
263 kbo( :,32, 3) = (/&
264 &2.9794e-03_jprb,3.2434e-03_jprb,3.5171e-03_jprb,3.8033e-03_jprb,4.1013e-03_jprb/)
265 kbo( :,33, 3) = (/&
266 &2.5298e-03_jprb,2.7525e-03_jprb,2.9853e-03_jprb,3.2295e-03_jprb,3.4800e-03_jprb/)
267 kbo( :,34, 3) = (/&
268 &2.1748e-03_jprb,2.3658e-03_jprb,2.5669e-03_jprb,2.7771e-03_jprb,2.9911e-03_jprb/)
269 kbo( :,35, 3) = (/&
270 &1.8567e-03_jprb,2.0216e-03_jprb,2.1956e-03_jprb,2.3760e-03_jprb,2.5595e-03_jprb/)
271 kbo( :,36, 3) = (/&
272 &1.5731e-03_jprb,1.7153e-03_jprb,1.8654e-03_jprb,2.0205e-03_jprb,2.1791e-03_jprb/)
273 kbo( :,37, 3) = (/&
274 &1.2933e-03_jprb,1.4114e-03_jprb,1.5364e-03_jprb,1.6658e-03_jprb,1.7984e-03_jprb/)
275 kbo( :,38, 3) = (/&
276 &1.0616e-03_jprb,1.1594e-03_jprb,1.2634e-03_jprb,1.3712e-03_jprb,1.4820e-03_jprb/)
277 kbo( :,39, 3) = (/&
278 &8.7125e-04_jprb,9.5245e-04_jprb,1.0387e-03_jprb,1.1287e-03_jprb,1.2213e-03_jprb/)
279 kbo( :,40, 3) = (/&
280 &6.9327e-04_jprb,7.5826e-04_jprb,8.2752e-04_jprb,8.9995e-04_jprb,9.7479e-04_jprb/)
281 kbo( :,41, 3) = (/&
282 &5.4868e-04_jprb,6.0043e-04_jprb,6.5570e-04_jprb,7.1362e-04_jprb,7.7402e-04_jprb/)
283 kbo( :,42, 3) = (/&
284 &4.3350e-04_jprb,4.7475e-04_jprb,5.1866e-04_jprb,5.6496e-04_jprb,6.1339e-04_jprb/)
285 kbo( :,43, 3) = (/&
286 &3.3831e-04_jprb,3.7074e-04_jprb,4.0518e-04_jprb,4.4169e-04_jprb,4.7994e-04_jprb/)
287 kbo( :,44, 3) = (/&
288 &2.6244e-04_jprb,2.8770e-04_jprb,3.1459e-04_jprb,3.4301e-04_jprb,3.7299e-04_jprb/)
289 kbo( :,45, 3) = (/&
290 &2.0330e-04_jprb,2.2282e-04_jprb,2.4376e-04_jprb,2.6587e-04_jprb,2.8931e-04_jprb/)
291 kbo( :,46, 3) = (/&
292 &1.5718e-04_jprb,1.7223e-04_jprb,1.8847e-04_jprb,2.0565e-04_jprb,2.2386e-04_jprb/)
293 kbo( :,47, 3) = (/&
294 &1.2137e-04_jprb,1.3292e-04_jprb,1.4544e-04_jprb,1.5881e-04_jprb,1.7290e-04_jprb/)
295 kbo( :,48, 3) = (/&
296 &9.3602e-05_jprb,1.0245e-04_jprb,1.1206e-04_jprb,1.2242e-04_jprb,1.3333e-04_jprb/)
297 kbo( :,49, 3) = (/&
298 &7.2096e-05_jprb,7.8857e-05_jprb,8.6198e-05_jprb,9.4146e-05_jprb,1.0259e-04_jprb/)
299 kbo( :,50, 3) = (/&
300 &5.5913e-05_jprb,6.1131e-05_jprb,6.6766e-05_jprb,7.2901e-05_jprb,7.9460e-05_jprb/)
301 kbo( :,51, 3) = (/&
302 &4.3511e-05_jprb,4.7559e-05_jprb,5.1896e-05_jprb,5.6624e-05_jprb,6.1713e-05_jprb/)
303 kbo( :,52, 3) = (/&
304 &3.3817e-05_jprb,3.6967e-05_jprb,4.0308e-05_jprb,4.3936e-05_jprb,4.7870e-05_jprb/)
305 kbo( :,53, 3) = (/&
306 &2.6251e-05_jprb,2.8701e-05_jprb,3.1278e-05_jprb,3.4055e-05_jprb,3.7076e-05_jprb/)
307 kbo( :,54, 3) = (/&
308 &2.0565e-05_jprb,2.2472e-05_jprb,2.4493e-05_jprb,2.6647e-05_jprb,2.8987e-05_jprb/)
309 kbo( :,55, 3) = (/&
310 &1.6201e-05_jprb,1.7665e-05_jprb,1.9265e-05_jprb,2.0950e-05_jprb,2.2778e-05_jprb/)
311 kbo( :,56, 3) = (/&
312 &1.2781e-05_jprb,1.3883e-05_jprb,1.5142e-05_jprb,1.6468e-05_jprb,1.7890e-05_jprb/)
313 kbo( :,57, 3) = (/&
314 &1.0089e-05_jprb,1.0916e-05_jprb,1.1894e-05_jprb,1.2940e-05_jprb,1.4042e-05_jprb/)
315 kbo( :,58, 3) = (/&
316 &7.9784e-06_jprb,8.6088e-06_jprb,9.3610e-06_jprb,1.0185e-05_jprb,1.1049e-05_jprb/)
317 kbo( :,59, 3) = (/&
318 &6.4510e-06_jprb,6.9647e-06_jprb,7.5759e-06_jprb,8.2439e-06_jprb,8.9478e-06_jprb/)
319 kbo( :,13, 4) = (/&
320 &1.1841e-01_jprb,1.2983e-01_jprb,1.4154e-01_jprb,1.5381e-01_jprb,1.6654e-01_jprb/)
321 kbo( :,14, 4) = (/&
322 &1.0163e-01_jprb,1.1119e-01_jprb,1.2120e-01_jprb,1.3164e-01_jprb,1.4262e-01_jprb/)
323 kbo( :,15, 4) = (/&
324 &8.7533e-02_jprb,9.5453e-02_jprb,1.0360e-01_jprb,1.1225e-01_jprb,1.2143e-01_jprb/)
325 kbo( :,16, 4) = (/&
326 &7.4718e-02_jprb,8.1074e-02_jprb,8.7917e-02_jprb,9.5269e-02_jprb,1.0309e-01_jprb/)
327 kbo( :,17, 4) = (/&
328 &6.4598e-02_jprb,7.0161e-02_jprb,7.6195e-02_jprb,8.2691e-02_jprb,8.9645e-02_jprb/)
329 kbo( :,18, 4) = (/&
330 &5.7466e-02_jprb,6.2589e-02_jprb,6.8109e-02_jprb,7.4052e-02_jprb,8.0449e-02_jprb/)
331 kbo( :,19, 4) = (/&
332 &5.1818e-02_jprb,5.6571e-02_jprb,6.1696e-02_jprb,6.7232e-02_jprb,7.3092e-02_jprb/)
333 kbo( :,20, 4) = (/&
334 &4.5333e-02_jprb,4.9583e-02_jprb,5.4175e-02_jprb,5.9119e-02_jprb,6.4307e-02_jprb/)
335 kbo( :,21, 4) = (/&
336 &3.9244e-02_jprb,4.2988e-02_jprb,4.7056e-02_jprb,5.1390e-02_jprb,5.5921e-02_jprb/)
337 kbo( :,22, 4) = (/&
338 &3.3762e-02_jprb,3.7028e-02_jprb,4.0590e-02_jprb,4.4367e-02_jprb,4.8278e-02_jprb/)
339 kbo( :,23, 4) = (/&
340 &2.8964e-02_jprb,3.1825e-02_jprb,3.4924e-02_jprb,3.8192e-02_jprb,4.1570e-02_jprb/)
341 kbo( :,24, 4) = (/&
342 &2.4605e-02_jprb,2.7087e-02_jprb,2.9744e-02_jprb,3.2528e-02_jprb,3.5398e-02_jprb/)
343 kbo( :,25, 4) = (/&
344 &2.0888e-02_jprb,2.3028e-02_jprb,2.5293e-02_jprb,2.7664e-02_jprb,3.0056e-02_jprb/)
345 kbo( :,26, 4) = (/&
346 &1.7768e-02_jprb,1.9595e-02_jprb,2.1528e-02_jprb,2.3523e-02_jprb,2.5480e-02_jprb/)
347 kbo( :,27, 4) = (/&
348 &1.5025e-02_jprb,1.6582e-02_jprb,1.8208e-02_jprb,1.9851e-02_jprb,2.1449e-02_jprb/)
349 kbo( :,28, 4) = (/&
350 &1.2630e-02_jprb,1.3940e-02_jprb,1.5283e-02_jprb,1.6619e-02_jprb,1.7935e-02_jprb/)
351 kbo( :,29, 4) = (/&
352 &1.0679e-02_jprb,1.1777e-02_jprb,1.2882e-02_jprb,1.3981e-02_jprb,1.5077e-02_jprb/)
353 kbo( :,30, 4) = (/&
354 &9.0255e-03_jprb,9.9336e-03_jprb,1.0847e-02_jprb,1.1760e-02_jprb,1.2675e-02_jprb/)
355 kbo( :,31, 4) = (/&
356 &7.6536e-03_jprb,8.4086e-03_jprb,9.1742e-03_jprb,9.9429e-03_jprb,1.0712e-02_jprb/)
357 kbo( :,32, 4) = (/&
358 &6.5182e-03_jprb,7.1536e-03_jprb,7.8014e-03_jprb,8.4515e-03_jprb,9.1065e-03_jprb/)
359 kbo( :,33, 4) = (/&
360 &5.5704e-03_jprb,6.1113e-03_jprb,6.6630e-03_jprb,7.2151e-03_jprb,7.7820e-03_jprb/)
361 kbo( :,34, 4) = (/&
362 &4.8181e-03_jprb,5.2845e-03_jprb,5.7551e-03_jprb,6.2347e-03_jprb,6.7271e-03_jprb/)
363 kbo( :,35, 4) = (/&
364 &4.1344e-03_jprb,4.5342e-03_jprb,4.9410e-03_jprb,5.3600e-03_jprb,5.7876e-03_jprb/)
365 kbo( :,36, 4) = (/&
366 &3.5137e-03_jprb,3.8568e-03_jprb,4.2105e-03_jprb,4.5744e-03_jprb,4.9478e-03_jprb/)
367 kbo( :,37, 4) = (/&
368 &2.9015e-03_jprb,3.1894e-03_jprb,3.4867e-03_jprb,3.7928e-03_jprb,4.1062e-03_jprb/)
369 kbo( :,38, 4) = (/&
370 &2.3922e-03_jprb,2.6336e-03_jprb,2.8833e-03_jprb,3.1403e-03_jprb,3.4033e-03_jprb/)
371 kbo( :,39, 4) = (/&
372 &1.9717e-03_jprb,2.1746e-03_jprb,2.3846e-03_jprb,2.6005e-03_jprb,2.8213e-03_jprb/)
373 kbo( :,40, 4) = (/&
374 &1.5744e-03_jprb,1.7398e-03_jprb,1.9111e-03_jprb,2.0874e-03_jprb,2.2673e-03_jprb/)
375 kbo( :,41, 4) = (/&
376 &1.2499e-03_jprb,1.3841e-03_jprb,1.5231e-03_jprb,1.6664e-03_jprb,1.8122e-03_jprb/)
377 kbo( :,42, 4) = (/&
378 &9.9026e-04_jprb,1.0991e-03_jprb,1.2117e-03_jprb,1.3281e-03_jprb,1.4464e-03_jprb/)
379 kbo( :,43, 4) = (/&
380 &7.7424e-04_jprb,8.6142e-04_jprb,9.5183e-04_jprb,1.0452e-03_jprb,1.1404e-03_jprb/)
381 kbo( :,44, 4) = (/&
382 &6.0102e-04_jprb,6.7034e-04_jprb,7.4252e-04_jprb,8.1707e-04_jprb,8.9311e-04_jprb/)
383 kbo( :,45, 4) = (/&
384 &4.6542e-04_jprb,5.2035e-04_jprb,5.7783e-04_jprb,6.3732e-04_jprb,6.9797e-04_jprb/)
385 kbo( :,46, 4) = (/&
386 &3.5929e-04_jprb,4.0259e-04_jprb,4.4817e-04_jprb,4.9561e-04_jprb,5.4403e-04_jprb/)
387 kbo( :,47, 4) = (/&
388 &2.7639e-04_jprb,3.1035e-04_jprb,3.4642e-04_jprb,3.8415e-04_jprb,4.2283e-04_jprb/)
389 kbo( :,48, 4) = (/&
390 &2.1223e-04_jprb,2.3861e-04_jprb,2.6709e-04_jprb,2.9688e-04_jprb,3.2776e-04_jprb/)
391 kbo( :,49, 4) = (/&
392 &1.6266e-04_jprb,1.8298e-04_jprb,2.0524e-04_jprb,2.2871e-04_jprb,2.5327e-04_jprb/)
393 kbo( :,50, 4) = (/&
394 &1.2558e-04_jprb,1.4128e-04_jprb,1.5863e-04_jprb,1.7722e-04_jprb,1.9672e-04_jprb/)
395 kbo( :,51, 4) = (/&
396 &9.7209e-05_jprb,1.0936e-04_jprb,1.2288e-04_jprb,1.3753e-04_jprb,1.5302e-04_jprb/)
397 kbo( :,52, 4) = (/&
398 &7.5228e-05_jprb,8.4554e-05_jprb,9.5027e-05_jprb,1.0648e-04_jprb,1.1875e-04_jprb/)
399 kbo( :,53, 4) = (/&
400 &5.8185e-05_jprb,6.5291e-05_jprb,7.3346e-05_jprb,8.2261e-05_jprb,9.1865e-05_jprb/)
401 kbo( :,54, 4) = (/&
402 &4.5374e-05_jprb,5.0847e-05_jprb,5.7097e-05_jprb,6.4058e-05_jprb,7.1601e-05_jprb/)
403 kbo( :,55, 4) = (/&
404 &3.5491e-05_jprb,3.9770e-05_jprb,4.4634e-05_jprb,5.0070e-05_jprb,5.6003e-05_jprb/)
405 kbo( :,56, 4) = (/&
406 &2.7730e-05_jprb,3.1107e-05_jprb,3.4873e-05_jprb,3.9105e-05_jprb,4.3754e-05_jprb/)
407 kbo( :,57, 4) = (/&
408 &2.1648e-05_jprb,2.4314e-05_jprb,2.7229e-05_jprb,3.0516e-05_jprb,3.4148e-05_jprb/)
409 kbo( :,58, 4) = (/&
410 &1.6951e-05_jprb,1.9038e-05_jprb,2.1314e-05_jprb,2.3872e-05_jprb,2.6710e-05_jprb/)
411 kbo( :,59, 4) = (/&
412 &1.3663e-05_jprb,1.5351e-05_jprb,1.7200e-05_jprb,1.9273e-05_jprb,2.1558e-05_jprb/)
413 kbo( :,13, 5) = (/&
414 &2.7737e-01_jprb,2.9322e-01_jprb,3.0941e-01_jprb,3.2627e-01_jprb,3.4434e-01_jprb/)
415 kbo( :,14, 5) = (/&
416 &2.3065e-01_jprb,2.4437e-01_jprb,2.5863e-01_jprb,2.7404e-01_jprb,2.9080e-01_jprb/)
417 kbo( :,15, 5) = (/&
418 &1.9306e-01_jprb,2.0550e-01_jprb,2.1890e-01_jprb,2.3329e-01_jprb,2.4884e-01_jprb/)
419 kbo( :,16, 5) = (/&
420 &1.6288e-01_jprb,1.7408e-01_jprb,1.8590e-01_jprb,1.9857e-01_jprb,2.1238e-01_jprb/)
421 kbo( :,17, 5) = (/&
422 &1.4081e-01_jprb,1.5068e-01_jprb,1.6123e-01_jprb,1.7280e-01_jprb,1.8532e-01_jprb/)
423 kbo( :,18, 5) = (/&
424 &1.2553e-01_jprb,1.3466e-01_jprb,1.4467e-01_jprb,1.5557e-01_jprb,1.6709e-01_jprb/)
425 kbo( :,19, 5) = (/&
426 &1.1351e-01_jprb,1.2221e-01_jprb,1.3178e-01_jprb,1.4202e-01_jprb,1.5283e-01_jprb/)
427 kbo( :,20, 5) = (/&
428 &9.9675e-02_jprb,1.0772e-01_jprb,1.1652e-01_jprb,1.2577e-01_jprb,1.3562e-01_jprb/)
429 kbo( :,21, 5) = (/&
430 &8.6695e-02_jprb,9.4022e-02_jprb,1.0192e-01_jprb,1.1025e-01_jprb,1.1913e-01_jprb/)
431 kbo( :,22, 5) = (/&
432 &7.4874e-02_jprb,8.1502e-02_jprb,8.8514e-02_jprb,9.5955e-02_jprb,1.0385e-01_jprb/)
433 kbo( :,23, 5) = (/&
434 &6.4540e-02_jprb,7.0395e-02_jprb,7.6612e-02_jprb,8.3224e-02_jprb,9.0095e-02_jprb/)
435 kbo( :,24, 5) = (/&
436 &5.4946e-02_jprb,6.0047e-02_jprb,6.5517e-02_jprb,7.1296e-02_jprb,7.7220e-02_jprb/)
437 kbo( :,25, 5) = (/&
438 &4.6677e-02_jprb,5.1141e-02_jprb,5.5940e-02_jprb,6.0917e-02_jprb,6.6053e-02_jprb/)
439 kbo( :,26, 5) = (/&
440 &3.9709e-02_jprb,4.3642e-02_jprb,4.7787e-02_jprb,5.2078e-02_jprb,5.6505e-02_jprb/)
441 kbo( :,27, 5) = (/&
442 &3.3623e-02_jprb,3.7042e-02_jprb,4.0591e-02_jprb,4.4263e-02_jprb,4.8022e-02_jprb/)
443 kbo( :,28, 5) = (/&
444 &2.8328e-02_jprb,3.1245e-02_jprb,3.4254e-02_jprb,3.7363e-02_jprb,4.0510e-02_jprb/)
445 kbo( :,29, 5) = (/&
446 &2.4050e-02_jprb,2.6527e-02_jprb,2.9098e-02_jprb,3.1727e-02_jprb,3.4395e-02_jprb/)
447 kbo( :,30, 5) = (/&
448 &2.0420e-02_jprb,2.2529e-02_jprb,2.4722e-02_jprb,2.6950e-02_jprb,2.9231e-02_jprb/)
449 kbo( :,31, 5) = (/&
450 &1.7429e-02_jprb,1.9242e-02_jprb,2.1110e-02_jprb,2.3032e-02_jprb,2.5014e-02_jprb/)
451 kbo( :,32, 5) = (/&
452 &1.4961e-02_jprb,1.6521e-02_jprb,1.8130e-02_jprb,1.9805e-02_jprb,2.1542e-02_jprb/)
453 kbo( :,33, 5) = (/&
454 &1.2897e-02_jprb,1.4245e-02_jprb,1.5653e-02_jprb,1.7131e-02_jprb,1.8661e-02_jprb/)
455 kbo( :,34, 5) = (/&
456 &1.1253e-02_jprb,1.2438e-02_jprb,1.3692e-02_jprb,1.5008e-02_jprb,1.6374e-02_jprb/)
457 kbo( :,35, 5) = (/&
458 &9.7397e-03_jprb,1.0786e-02_jprb,1.1902e-02_jprb,1.3073e-02_jprb,1.4295e-02_jprb/)
459 kbo( :,36, 5) = (/&
460 &8.3444e-03_jprb,9.2674e-03_jprb,1.0255e-02_jprb,1.1299e-02_jprb,1.2388e-02_jprb/)
461 kbo( :,37, 5) = (/&
462 &6.9467e-03_jprb,7.7344e-03_jprb,8.5805e-03_jprb,9.4769e-03_jprb,1.0414e-02_jprb/)
463 kbo( :,38, 5) = (/&
464 &5.7736e-03_jprb,6.4450e-03_jprb,7.1687e-03_jprb,7.9368e-03_jprb,8.7424e-03_jprb/)
465 kbo( :,39, 5) = (/&
466 &4.7981e-03_jprb,5.3703e-03_jprb,5.9884e-03_jprb,6.6480e-03_jprb,7.3403e-03_jprb/)
467 kbo( :,40, 5) = (/&
468 &3.8576e-03_jprb,4.3274e-03_jprb,4.8368e-03_jprb,5.3827e-03_jprb,5.9574e-03_jprb/)
469 kbo( :,41, 5) = (/&
470 &3.0825e-03_jprb,3.4658e-03_jprb,3.8827e-03_jprb,4.3318e-03_jprb,4.8066e-03_jprb/)
471 kbo( :,42, 5) = (/&
472 &2.4580e-03_jprb,2.7697e-03_jprb,3.1105e-03_jprb,3.4793e-03_jprb,3.8701e-03_jprb/)
473 kbo( :,43, 5) = (/&
474 &1.9332e-03_jprb,2.1836e-03_jprb,2.4577e-03_jprb,2.7557e-03_jprb,3.0732e-03_jprb/)
475 kbo( :,44, 5) = (/&
476 &1.5097e-03_jprb,1.7091e-03_jprb,1.9276e-03_jprb,2.1661e-03_jprb,2.4221e-03_jprb/)
477 kbo( :,45, 5) = (/&
478 &1.1763e-03_jprb,1.3345e-03_jprb,1.5083e-03_jprb,1.6985e-03_jprb,1.9040e-03_jprb/)
479 kbo( :,46, 5) = (/&
480 &9.1296e-04_jprb,1.0380e-03_jprb,1.1758e-03_jprb,1.3270e-03_jprb,1.4913e-03_jprb/)
481 kbo( :,47, 5) = (/&
482 &7.0476e-04_jprb,8.0366e-04_jprb,9.1252e-04_jprb,1.0324e-03_jprb,1.1627e-03_jprb/)
483 kbo( :,48, 5) = (/&
484 &5.4241e-04_jprb,6.2078e-04_jprb,7.0617e-04_jprb,8.0101e-04_jprb,9.0392e-04_jprb/)
485 kbo( :,49, 5) = (/&
486 &4.1608e-04_jprb,4.7812e-04_jprb,5.4515e-04_jprb,6.1960e-04_jprb,7.0075e-04_jprb/)
487 kbo( :,50, 5) = (/&
488 &3.2092e-04_jprb,3.7020e-04_jprb,4.2343e-04_jprb,4.8196e-04_jprb,5.4630e-04_jprb/)
489 kbo( :,51, 5) = (/&
490 &2.4810e-04_jprb,2.8709e-04_jprb,3.2948e-04_jprb,3.7570e-04_jprb,4.2676e-04_jprb/)
491 kbo( :,52, 5) = (/&
492 &1.9141e-04_jprb,2.2213e-04_jprb,2.5579e-04_jprb,2.9244e-04_jprb,3.3280e-04_jprb/)
493 kbo( :,53, 5) = (/&
494 &1.4731e-04_jprb,1.7148e-04_jprb,1.9808e-04_jprb,2.2719e-04_jprb,2.5899e-04_jprb/)
495 kbo( :,54, 5) = (/&
496 &1.1424e-04_jprb,1.3342e-04_jprb,1.5446e-04_jprb,1.7772e-04_jprb,2.0300e-04_jprb/)
497 kbo( :,55, 5) = (/&
498 &8.8904e-05_jprb,1.0414e-04_jprb,1.2079e-04_jprb,1.3937e-04_jprb,1.5956e-04_jprb/)
499 kbo( :,56, 5) = (/&
500 &6.9133e-05_jprb,8.1185e-05_jprb,9.4325e-05_jprb,1.0911e-04_jprb,1.2522e-04_jprb/)
501 kbo( :,57, 5) = (/&
502 &5.3742e-05_jprb,6.3143e-05_jprb,7.3567e-05_jprb,8.5265e-05_jprb,9.8102e-05_jprb/)
503 kbo( :,58, 5) = (/&
504 &4.1907e-05_jprb,4.9238e-05_jprb,5.7492e-05_jprb,6.6736e-05_jprb,7.6984e-05_jprb/)
505 kbo( :,59, 5) = (/&
506 &3.3859e-05_jprb,3.9819e-05_jprb,4.6565e-05_jprb,5.4107e-05_jprb,6.2503e-05_jprb/)
507 kbo( :,13, 6) = (/&
508 &6.4121e-01_jprb,6.6739e-01_jprb,6.9468e-01_jprb,7.2265e-01_jprb,7.5107e-01_jprb/)
509 kbo( :,14, 6) = (/&
510 &5.3428e-01_jprb,5.5697e-01_jprb,5.8044e-01_jprb,6.0466e-01_jprb,6.2906e-01_jprb/)
511 kbo( :,15, 6) = (/&
512 &4.4250e-01_jprb,4.6307e-01_jprb,4.8477e-01_jprb,5.0676e-01_jprb,5.2972e-01_jprb/)
513 kbo( :,16, 6) = (/&
514 &3.7115e-01_jprb,3.9071e-01_jprb,4.1071e-01_jprb,4.3131e-01_jprb,4.5290e-01_jprb/)
515 kbo( :,17, 6) = (/&
516 &3.2201e-01_jprb,3.3982e-01_jprb,3.5775e-01_jprb,3.7619e-01_jprb,3.9590e-01_jprb/)
517 kbo( :,18, 6) = (/&
518 &2.8860e-01_jprb,3.0433e-01_jprb,3.2058e-01_jprb,3.3778e-01_jprb,3.5711e-01_jprb/)
519 kbo( :,19, 6) = (/&
520 &2.6093e-01_jprb,2.7547e-01_jprb,2.9092e-01_jprb,3.0787e-01_jprb,3.2715e-01_jprb/)
521 kbo( :,20, 6) = (/&
522 &2.2906e-01_jprb,2.4252e-01_jprb,2.5706e-01_jprb,2.7353e-01_jprb,2.9188e-01_jprb/)
523 kbo( :,21, 6) = (/&
524 &1.9921e-01_jprb,2.1163e-01_jprb,2.2547e-01_jprb,2.4100e-01_jprb,2.5826e-01_jprb/)
525 kbo( :,22, 6) = (/&
526 &1.7190e-01_jprb,1.8347e-01_jprb,1.9652e-01_jprb,2.1104e-01_jprb,2.2725e-01_jprb/)
527 kbo( :,23, 6) = (/&
528 &1.4807e-01_jprb,1.5892e-01_jprb,1.7107e-01_jprb,1.8464e-01_jprb,1.9976e-01_jprb/)
529 kbo( :,24, 6) = (/&
530 &1.2630e-01_jprb,1.3639e-01_jprb,1.4760e-01_jprb,1.6015e-01_jprb,1.7395e-01_jprb/)
531 kbo( :,25, 6) = (/&
532 &1.0785e-01_jprb,1.1709e-01_jprb,1.2743e-01_jprb,1.3890e-01_jprb,1.5149e-01_jprb/)
533 kbo( :,26, 6) = (/&
534 &9.2383e-02_jprb,1.0082e-01_jprb,1.1033e-01_jprb,1.2082e-01_jprb,1.3229e-01_jprb/)
535 kbo( :,27, 6) = (/&
536 &7.8812e-02_jprb,8.6542e-02_jprb,9.5218e-02_jprb,1.0477e-01_jprb,1.1508e-01_jprb/)
537 kbo( :,28, 6) = (/&
538 &6.6953e-02_jprb,7.4005e-02_jprb,8.1900e-02_jprb,9.0499e-02_jprb,9.9667e-02_jprb/)
539 kbo( :,29, 6) = (/&
540 &5.7472e-02_jprb,6.3923e-02_jprb,7.1088e-02_jprb,7.8810e-02_jprb,8.6979e-02_jprb/)
541 kbo( :,30, 6) = (/&
542 &4.9506e-02_jprb,5.5394e-02_jprb,6.1825e-02_jprb,6.8714e-02_jprb,7.5948e-02_jprb/)
543 kbo( :,31, 6) = (/&
544 &4.3026e-02_jprb,4.8351e-02_jprb,5.4145e-02_jprb,6.0281e-02_jprb,6.6645e-02_jprb/)
545 kbo( :,32, 6) = (/&
546 &3.7695e-02_jprb,4.2520e-02_jprb,4.7714e-02_jprb,5.3158e-02_jprb,5.8754e-02_jprb/)
547 kbo( :,33, 6) = (/&
548 &3.3253e-02_jprb,3.7612e-02_jprb,4.2238e-02_jprb,4.7058e-02_jprb,5.2057e-02_jprb/)
549 kbo( :,34, 6) = (/&
550 &2.9687e-02_jprb,3.3639e-02_jprb,3.7802e-02_jprb,4.2143e-02_jprb,4.6713e-02_jprb/)
551 kbo( :,35, 6) = (/&
552 &2.6238e-02_jprb,2.9780e-02_jprb,3.3512e-02_jprb,3.7433e-02_jprb,4.1618e-02_jprb/)
553 kbo( :,36, 6) = (/&
554 &2.2870e-02_jprb,2.6020e-02_jprb,2.9343e-02_jprb,3.2882e-02_jprb,3.6681e-02_jprb/)
555 kbo( :,37, 6) = (/&
556 &1.9322e-02_jprb,2.2060e-02_jprb,2.4965e-02_jprb,2.8086e-02_jprb,3.1456e-02_jprb/)
557 kbo( :,38, 6) = (/&
558 &1.6289e-02_jprb,1.8667e-02_jprb,2.1206e-02_jprb,2.3953e-02_jprb,2.6938e-02_jprb/)
559 kbo( :,39, 6) = (/&
560 &1.3724e-02_jprb,1.5787e-02_jprb,1.8005e-02_jprb,2.0421e-02_jprb,2.3064e-02_jprb/)
561 kbo( :,40, 6) = (/&
562 &1.1170e-02_jprb,1.2903e-02_jprb,1.4777e-02_jprb,1.6832e-02_jprb,1.9094e-02_jprb/)
563 kbo( :,41, 6) = (/&
564 &9.0289e-03_jprb,1.0474e-02_jprb,1.2048e-02_jprb,1.3783e-02_jprb,1.5707e-02_jprb/)
565 kbo( :,42, 6) = (/&
566 &7.2786e-03_jprb,8.4784e-03_jprb,9.7962e-03_jprb,1.1257e-02_jprb,1.2889e-02_jprb/)
567 kbo( :,43, 6) = (/&
568 &5.7746e-03_jprb,6.7579e-03_jprb,7.8468e-03_jprb,9.0602e-03_jprb,1.0425e-02_jprb/)
569 kbo( :,44, 6) = (/&
570 &4.5415e-03_jprb,5.3414e-03_jprb,6.2337e-03_jprb,7.2326e-03_jprb,8.3633e-03_jprb/)
571 kbo( :,45, 6) = (/&
572 &3.5601e-03_jprb,4.2081e-03_jprb,4.9346e-03_jprb,5.7558e-03_jprb,6.6891e-03_jprb/)
573 kbo( :,46, 6) = (/&
574 &2.7754e-03_jprb,3.2977e-03_jprb,3.8855e-03_jprb,4.5569e-03_jprb,5.3238e-03_jprb/)
575 kbo( :,47, 6) = (/&
576 &2.1475e-03_jprb,2.5657e-03_jprb,3.0384e-03_jprb,3.5836e-03_jprb,4.2109e-03_jprb/)
577 kbo( :,48, 6) = (/&
578 &1.6563e-03_jprb,1.9892e-03_jprb,2.3684e-03_jprb,2.8081e-03_jprb,3.3184e-03_jprb/)
579 kbo( :,49, 6) = (/&
580 &1.2736e-03_jprb,1.5366e-03_jprb,1.8396e-03_jprb,2.1918e-03_jprb,2.6053e-03_jprb/)
581 kbo( :,50, 6) = (/&
582 &9.8514e-04_jprb,1.1938e-03_jprb,1.4366e-03_jprb,1.7199e-03_jprb,2.0561e-03_jprb/)
583 kbo( :,51, 6) = (/&
584 &7.6305e-04_jprb,9.2853e-04_jprb,1.1230e-03_jprb,1.3507e-03_jprb,1.6237e-03_jprb/)
585 kbo( :,52, 6) = (/&
586 &5.8964e-04_jprb,7.2048e-04_jprb,8.7539e-04_jprb,1.0577e-03_jprb,1.2781e-03_jprb/)
587 kbo( :,53, 6) = (/&
588 &4.5442e-04_jprb,5.5764e-04_jprb,6.8041e-04_jprb,8.2614e-04_jprb,1.0025e-03_jprb/)
589 kbo( :,54, 6) = (/&
590 &3.5277e-04_jprb,4.3435e-04_jprb,5.3231e-04_jprb,6.4901e-04_jprb,7.9056e-04_jprb/)
591 kbo( :,55, 6) = (/&
592 &2.7456e-04_jprb,3.3899e-04_jprb,4.1714e-04_jprb,5.1074e-04_jprb,6.2435e-04_jprb/)
593 kbo( :,56, 6) = (/&
594 &2.1331e-04_jprb,2.6410e-04_jprb,3.2619e-04_jprb,4.0097e-04_jprb,4.9192e-04_jprb/)
595 kbo( :,57, 6) = (/&
596 &1.6544e-04_jprb,2.0526e-04_jprb,2.5453e-04_jprb,3.1404e-04_jprb,3.8660e-04_jprb/)
597 kbo( :,58, 6) = (/&
598 &1.2858e-04_jprb,1.5986e-04_jprb,1.9897e-04_jprb,2.4635e-04_jprb,3.0450e-04_jprb/)
599 kbo( :,59, 6) = (/&
600 &1.0424e-04_jprb,1.3005e-04_jprb,1.6246e-04_jprb,2.0168e-04_jprb,2.5022e-04_jprb/)
601 kbo( :,13, 7) = (/&
602 &1.5651e+00_jprb,1.6169e+00_jprb,1.6708e+00_jprb,1.7263e+00_jprb,1.7852e+00_jprb/)
603 kbo( :,14, 7) = (/&
604 &1.3034e+00_jprb,1.3495e+00_jprb,1.3970e+00_jprb,1.4470e+00_jprb,1.4990e+00_jprb/)
605 kbo( :,15, 7) = (/&
606 &1.0798e+00_jprb,1.1205e+00_jprb,1.1627e+00_jprb,1.2066e+00_jprb,1.2529e+00_jprb/)
607 kbo( :,16, 7) = (/&
608 &9.0502e-01_jprb,9.4264e-01_jprb,9.8168e-01_jprb,1.0232e+00_jprb,1.0668e+00_jprb/)
609 kbo( :,17, 7) = (/&
610 &7.8533e-01_jprb,8.2264e-01_jprb,8.6170e-01_jprb,9.0297e-01_jprb,9.4574e-01_jprb/)
611 kbo( :,18, 7) = (/&
612 &7.0905e-01_jprb,7.4606e-01_jprb,7.8445e-01_jprb,8.2385e-01_jprb,8.6498e-01_jprb/)
613 kbo( :,19, 7) = (/&
614 &6.5117e-01_jprb,6.8581e-01_jprb,7.2084e-01_jprb,7.5738e-01_jprb,7.9689e-01_jprb/)
615 kbo( :,20, 7) = (/&
616 &5.8055e-01_jprb,6.1130e-01_jprb,6.4302e-01_jprb,6.7746e-01_jprb,7.1553e-01_jprb/)
617 kbo( :,21, 7) = (/&
618 &5.1109e-01_jprb,5.3883e-01_jprb,5.6867e-01_jprb,6.0178e-01_jprb,6.3866e-01_jprb/)
619 kbo( :,22, 7) = (/&
620 &4.4535e-01_jprb,4.7107e-01_jprb,4.9963e-01_jprb,5.3173e-01_jprb,5.6752e-01_jprb/)
621 kbo( :,23, 7) = (/&
622 &3.8693e-01_jprb,4.1147e-01_jprb,4.3911e-01_jprb,4.7015e-01_jprb,5.0472e-01_jprb/)
623 kbo( :,24, 7) = (/&
624 &3.3299e-01_jprb,3.5628e-01_jprb,3.8277e-01_jprb,4.1248e-01_jprb,4.4550e-01_jprb/)
625 kbo( :,25, 7) = (/&
626 &2.8674e-01_jprb,3.0903e-01_jprb,3.3447e-01_jprb,3.6286e-01_jprb,3.9391e-01_jprb/)
627 kbo( :,26, 7) = (/&
628 &2.4799e-01_jprb,2.6945e-01_jprb,2.9359e-01_jprb,3.2034e-01_jprb,3.4997e-01_jprb/)
629 kbo( :,27, 7) = (/&
630 &2.1431e-01_jprb,2.3461e-01_jprb,2.5723e-01_jprb,2.8249e-01_jprb,3.1067e-01_jprb/)
631 kbo( :,28, 7) = (/&
632 &1.8505e-01_jprb,2.0390e-01_jprb,2.2502e-01_jprb,2.4887e-01_jprb,2.7537e-01_jprb/)
633 kbo( :,29, 7) = (/&
634 &1.6146e-01_jprb,1.7908e-01_jprb,1.9912e-01_jprb,2.2167e-01_jprb,2.4667e-01_jprb/)
635 kbo( :,30, 7) = (/&
636 &1.4137e-01_jprb,1.5806e-01_jprb,1.7706e-01_jprb,1.9835e-01_jprb,2.2209e-01_jprb/)
637 kbo( :,31, 7) = (/&
638 &1.2498e-01_jprb,1.4092e-01_jprb,1.5896e-01_jprb,1.7927e-01_jprb,2.0199e-01_jprb/)
639 kbo( :,32, 7) = (/&
640 &1.1162e-01_jprb,1.2686e-01_jprb,1.4411e-01_jprb,1.6362e-01_jprb,1.8544e-01_jprb/)
641 kbo( :,33, 7) = (/&
642 &1.0058e-01_jprb,1.1519e-01_jprb,1.3185e-01_jprb,1.5062e-01_jprb,1.7164e-01_jprb/)
643 kbo( :,34, 7) = (/&
644 &9.1872e-02_jprb,1.0605e-01_jprb,1.2221e-01_jprb,1.4049e-01_jprb,1.6092e-01_jprb/)
645 kbo( :,35, 7) = (/&
646 &8.3134e-02_jprb,9.6731e-02_jprb,1.1227e-01_jprb,1.2986e-01_jprb,1.4952e-01_jprb/)
647 kbo( :,36, 7) = (/&
648 &7.4081e-02_jprb,8.6894e-02_jprb,1.0163e-01_jprb,1.1830e-01_jprb,1.3703e-01_jprb/)
649 kbo( :,37, 7) = (/&
650 &6.4153e-02_jprb,7.5901e-02_jprb,8.9515e-02_jprb,1.0499e-01_jprb,1.2245e-01_jprb/)
651 kbo( :,38, 7) = (/&
652 &5.5459e-02_jprb,6.6199e-02_jprb,7.8762e-02_jprb,9.3144e-02_jprb,1.0945e-01_jprb/)
653 kbo( :,39, 7) = (/&
654 &4.7923e-02_jprb,5.7730e-02_jprb,6.9328e-02_jprb,8.2715e-02_jprb,9.7968e-02_jprb/)
655 kbo( :,40, 7) = (/&
656 &3.9991e-02_jprb,4.8626e-02_jprb,5.8962e-02_jprb,7.1033e-02_jprb,8.4866e-02_jprb/)
657 kbo( :,41, 7) = (/&
658 &3.3132e-02_jprb,4.0668e-02_jprb,4.9786e-02_jprb,6.0601e-02_jprb,7.3110e-02_jprb/)
659 kbo( :,42, 7) = (/&
660 &2.7362e-02_jprb,3.3907e-02_jprb,4.1915e-02_jprb,5.1544e-02_jprb,6.2838e-02_jprb/)
661 kbo( :,43, 7) = (/&
662 &2.2196e-02_jprb,2.7768e-02_jprb,3.4671e-02_jprb,4.3090e-02_jprb,5.3119e-02_jprb/)
663 kbo( :,44, 7) = (/&
664 &1.7818e-02_jprb,2.2501e-02_jprb,2.8380e-02_jprb,3.5655e-02_jprb,4.4455e-02_jprb/)
665 kbo( :,45, 7) = (/&
666 &1.4243e-02_jprb,1.8150e-02_jprb,2.3128e-02_jprb,2.9377e-02_jprb,3.7045e-02_jprb/)
667 kbo( :,46, 7) = (/&
668 &1.1286e-02_jprb,1.4511e-02_jprb,1.8685e-02_jprb,2.4000e-02_jprb,3.0616e-02_jprb/)
669 kbo( :,47, 7) = (/&
670 &8.8305e-03_jprb,1.1453e-02_jprb,1.4902e-02_jprb,1.9356e-02_jprb,2.5001e-02_jprb/)
671 kbo( :,48, 7) = (/&
672 &6.8710e-03_jprb,8.9888e-03_jprb,1.1814e-02_jprb,1.5517e-02_jprb,2.0294e-02_jprb/)
673 kbo( :,49, 7) = (/&
674 &5.3150e-03_jprb,7.0121e-03_jprb,9.3059e-03_jprb,1.2357e-02_jprb,1.6365e-02_jprb/)
675 kbo( :,50, 7) = (/&
676 &4.1309e-03_jprb,5.4944e-03_jprb,7.3653e-03_jprb,9.8877e-03_jprb,1.3254e-02_jprb/)
677 kbo( :,51, 7) = (/&
678 &3.2122e-03_jprb,4.3028e-03_jprb,5.8246e-03_jprb,7.9072e-03_jprb,1.0730e-02_jprb/)
679 kbo( :,52, 7) = (/&
680 &2.4855e-03_jprb,3.3518e-03_jprb,4.5791e-03_jprb,6.2870e-03_jprb,8.6345e-03_jprb/)
681 kbo( :,53, 7) = (/&
682 &1.9144e-03_jprb,2.5958e-03_jprb,3.5772e-03_jprb,4.9679e-03_jprb,6.9029e-03_jprb/)
683 kbo( :,54, 7) = (/&
684 &1.4846e-03_jprb,2.0243e-03_jprb,2.8131e-03_jprb,3.9506e-03_jprb,5.5585e-03_jprb/)
685 kbo( :,55, 7) = (/&
686 &1.1531e-03_jprb,1.5804e-03_jprb,2.2143e-03_jprb,3.1436e-03_jprb,4.4799e-03_jprb/)
687 kbo( :,56, 7) = (/&
688 &8.9241e-04_jprb,1.2296e-03_jprb,1.7344e-03_jprb,2.4879e-03_jprb,3.5892e-03_jprb/)
689 kbo( :,57, 7) = (/&
690 &6.8839e-04_jprb,9.5206e-04_jprb,1.3509e-03_jprb,1.9572e-03_jprb,2.8575e-03_jprb/)
691 kbo( :,58, 7) = (/&
692 &5.3236e-04_jprb,7.3837e-04_jprb,1.0535e-03_jprb,1.5406e-03_jprb,2.2793e-03_jprb/)
693 kbo( :,59, 7) = (/&
694 &4.3598e-04_jprb,6.1022e-04_jprb,8.8068e-04_jprb,1.3033e-03_jprb,1.9553e-03_jprb/)
695 kbo( :,13, 8) = (/&
696 &4.7769e+00_jprb,4.8848e+00_jprb,4.9874e+00_jprb,5.0917e+00_jprb,5.1968e+00_jprb/)
697 kbo( :,14, 8) = (/&
698 &4.0252e+00_jprb,4.1225e+00_jprb,4.2203e+00_jprb,4.3172e+00_jprb,4.4173e+00_jprb/)
699 kbo( :,15, 8) = (/&
700 &3.3636e+00_jprb,3.4557e+00_jprb,3.5447e+00_jprb,3.6379e+00_jprb,3.7313e+00_jprb/)
701 kbo( :,16, 8) = (/&
702 &2.8215e+00_jprb,2.9045e+00_jprb,2.9912e+00_jprb,3.0777e+00_jprb,3.1703e+00_jprb/)
703 kbo( :,17, 8) = (/&
704 &2.4207e+00_jprb,2.5043e+00_jprb,2.5895e+00_jprb,2.6793e+00_jprb,2.7738e+00_jprb/)
705 kbo( :,18, 8) = (/&
706 &2.1596e+00_jprb,2.2496e+00_jprb,2.3425e+00_jprb,2.4404e+00_jprb,2.5399e+00_jprb/)
707 kbo( :,19, 8) = (/&
708 &1.9873e+00_jprb,2.0853e+00_jprb,2.1866e+00_jprb,2.2891e+00_jprb,2.3905e+00_jprb/)
709 kbo( :,20, 8) = (/&
710 &1.8046e+00_jprb,1.9022e+00_jprb,2.0007e+00_jprb,2.0973e+00_jprb,2.1932e+00_jprb/)
711 kbo( :,21, 8) = (/&
712 &1.6245e+00_jprb,1.7151e+00_jprb,1.8038e+00_jprb,1.8907e+00_jprb,1.9795e+00_jprb/)
713 kbo( :,22, 8) = (/&
714 &1.4461e+00_jprb,1.5258e+00_jprb,1.6036e+00_jprb,1.6835e+00_jprb,1.7677e+00_jprb/)
715 kbo( :,23, 8) = (/&
716 &1.2784e+00_jprb,1.3484e+00_jprb,1.4202e+00_jprb,1.4958e+00_jprb,1.5781e+00_jprb/)
717 kbo( :,24, 8) = (/&
718 &1.1162e+00_jprb,1.1799e+00_jprb,1.2469e+00_jprb,1.3197e+00_jprb,1.4014e+00_jprb/)
719 kbo( :,25, 8) = (/&
720 &9.7290e-01_jprb,1.0323e+00_jprb,1.0964e+00_jprb,1.1683e+00_jprb,1.2507e+00_jprb/)
721 kbo( :,26, 8) = (/&
722 &8.5083e-01_jprb,9.0746e-01_jprb,9.7028e-01_jprb,1.0426e+00_jprb,1.1250e+00_jprb/)
723 kbo( :,27, 8) = (/&
724 &7.4331e-01_jprb,7.9805e-01_jprb,8.6066e-01_jprb,9.3282e-01_jprb,1.0150e+00_jprb/)
725 kbo( :,28, 8) = (/&
726 &6.4875e-01_jprb,7.0258e-01_jprb,7.6476e-01_jprb,8.3624e-01_jprb,9.1880e-01_jprb/)
727 kbo( :,29, 8) = (/&
728 &5.7353e-01_jprb,6.2704e-01_jprb,6.8898e-01_jprb,7.6115e-01_jprb,8.4456e-01_jprb/)
729 kbo( :,30, 8) = (/&
730 &5.1081e-01_jprb,5.6430e-01_jprb,6.2672e-01_jprb,6.9960e-01_jprb,7.8366e-01_jprb/)
731 kbo( :,31, 8) = (/&
732 &4.6060e-01_jprb,5.1474e-01_jprb,5.7850e-01_jprb,6.5276e-01_jprb,7.3784e-01_jprb/)
733 kbo( :,32, 8) = (/&
734 &4.2054e-01_jprb,4.7584e-01_jprb,5.4138e-01_jprb,6.1744e-01_jprb,7.0416e-01_jprb/)
735 kbo( :,33, 8) = (/&
736 &3.8881e-01_jprb,4.4574e-01_jprb,5.1326e-01_jprb,5.9158e-01_jprb,6.8101e-01_jprb/)
737 kbo( :,34, 8) = (/&
738 &3.6582e-01_jprb,4.2446e-01_jprb,4.9413e-01_jprb,5.7504e-01_jprb,6.6797e-01_jprb/)
739 kbo( :,35, 8) = (/&
740 &3.4211e-01_jprb,4.0158e-01_jprb,4.7243e-01_jprb,5.5519e-01_jprb,6.5095e-01_jprb/)
741 kbo( :,36, 8) = (/&
742 &3.1584e-01_jprb,3.7515e-01_jprb,4.4596e-01_jprb,5.2948e-01_jprb,6.2662e-01_jprb/)
743 kbo( :,37, 8) = (/&
744 &2.8335e-01_jprb,3.4000e-01_jprb,4.0808e-01_jprb,4.8925e-01_jprb,5.8433e-01_jprb/)
745 kbo( :,38, 8) = (/&
746 &2.5439e-01_jprb,3.0837e-01_jprb,3.7382e-01_jprb,4.5256e-01_jprb,5.4554e-01_jprb/)
747 kbo( :,39, 8) = (/&
748 &2.2884e-01_jprb,2.8037e-01_jprb,3.4336e-01_jprb,4.1988e-01_jprb,5.1084e-01_jprb/)
749 kbo( :,40, 8) = (/&
750 &1.9894e-01_jprb,2.4621e-01_jprb,3.0460e-01_jprb,3.7622e-01_jprb,4.6217e-01_jprb/)
751 kbo( :,41, 8) = (/&
752 &1.7202e-01_jprb,2.1505e-01_jprb,2.6889e-01_jprb,3.3546e-01_jprb,4.1631e-01_jprb/)
753 kbo( :,42, 8) = (/&
754 &1.4851e-01_jprb,1.8770e-01_jprb,2.3715e-01_jprb,2.9895e-01_jprb,3.7473e-01_jprb/)
755 kbo( :,43, 8) = (/&
756 &1.2600e-01_jprb,1.6095e-01_jprb,2.0554e-01_jprb,2.6188e-01_jprb,3.3169e-01_jprb/)
757 kbo( :,44, 8) = (/&
758 &1.0584e-01_jprb,1.3667e-01_jprb,1.7652e-01_jprb,2.2729e-01_jprb,2.9097e-01_jprb/)
759 kbo( :,45, 8) = (/&
760 &8.8493e-02_jprb,1.1567e-01_jprb,1.5110e-01_jprb,1.9672e-01_jprb,2.5462e-01_jprb/)
761 kbo( :,46, 8) = (/&
762 &7.3233e-02_jprb,9.7022e-02_jprb,1.2827e-01_jprb,1.6892e-01_jprb,2.2114e-01_jprb/)
763 kbo( :,47, 8) = (/&
764 &5.9636e-02_jprb,8.0163e-02_jprb,1.0738e-01_jprb,1.4314e-01_jprb,1.8961e-01_jprb/)
765 kbo( :,48, 8) = (/&
766 &4.8167e-02_jprb,6.5765e-02_jprb,8.9346e-02_jprb,1.2067e-01_jprb,1.6184e-01_jprb/)
767 kbo( :,49, 8) = (/&
768 &3.8566e-02_jprb,5.3500e-02_jprb,7.3805e-02_jprb,1.0114e-01_jprb,1.3740e-01_jprb/)
769 kbo( :,50, 8) = (/&
770 &3.0986e-02_jprb,4.3657e-02_jprb,6.1235e-02_jprb,8.5187e-02_jprb,1.1732e-01_jprb/)
771 kbo( :,51, 8) = (/&
772 &2.4855e-02_jprb,3.5538e-02_jprb,5.0728e-02_jprb,7.1690e-02_jprb,1.0021e-01_jprb/)
773 kbo( :,52, 8) = (/&
774 &1.9770e-02_jprb,2.8704e-02_jprb,4.1703e-02_jprb,5.9943e-02_jprb,8.5157e-02_jprb/)
775 kbo( :,53, 8) = (/&
776 &1.5594e-02_jprb,2.2973e-02_jprb,3.3967e-02_jprb,4.9762e-02_jprb,7.1853e-02_jprb/)
777 kbo( :,54, 8) = (/&
778 &1.2395e-02_jprb,1.8523e-02_jprb,2.7877e-02_jprb,4.1630e-02_jprb,6.1144e-02_jprb/)
779 kbo( :,55, 8) = (/&
780 &9.8575e-03_jprb,1.4938e-02_jprb,2.2890e-02_jprb,3.4846e-02_jprb,5.2121e-02_jprb/)
781 kbo( :,56, 8) = (/&
782 &7.7929e-03_jprb,1.1970e-02_jprb,1.8661e-02_jprb,2.8954e-02_jprb,4.4168e-02_jprb/)
783 kbo( :,57, 8) = (/&
784 &6.1195e-03_jprb,9.5111e-03_jprb,1.5088e-02_jprb,2.3882e-02_jprb,3.7179e-02_jprb/)
785 kbo( :,58, 8) = (/&
786 &4.8102e-03_jprb,7.5604e-03_jprb,1.2200e-02_jprb,1.9713e-02_jprb,3.1334e-02_jprb/)
787 kbo( :,59, 8) = (/&
788 &4.0994e-03_jprb,6.5648e-03_jprb,1.0813e-02_jprb,1.7794e-02_jprb,2.8755e-02_jprb/)
789 kbo( :,13, 9) = (/&
790 &2.2033e+01_jprb,2.2174e+01_jprb,2.2343e+01_jprb,2.2507e+01_jprb,2.2688e+01_jprb/)
791 kbo( :,14, 9) = (/&
792 &1.9641e+01_jprb,1.9826e+01_jprb,1.9998e+01_jprb,2.0195e+01_jprb,2.0429e+01_jprb/)
793 kbo( :,15, 9) = (/&
794 &1.7181e+01_jprb,1.7367e+01_jprb,1.7589e+01_jprb,1.7835e+01_jprb,1.8095e+01_jprb/)
795 kbo( :,16, 9) = (/&
796 &1.4894e+01_jprb,1.5133e+01_jprb,1.5386e+01_jprb,1.5657e+01_jprb,1.5957e+01_jprb/)
797 kbo( :,17, 9) = (/&
798 &1.3089e+01_jprb,1.3342e+01_jprb,1.3618e+01_jprb,1.3934e+01_jprb,1.4266e+01_jprb/)
799 kbo( :,18, 9) = (/&
800 &1.1731e+01_jprb,1.2006e+01_jprb,1.2330e+01_jprb,1.2671e+01_jprb,1.3025e+01_jprb/)
801 kbo( :,19, 9) = (/&
802 &1.0583e+01_jprb,1.0906e+01_jprb,1.1254e+01_jprb,1.1621e+01_jprb,1.2024e+01_jprb/)
803 kbo( :,20, 9) = (/&
804 &9.4570e+00_jprb,9.7937e+00_jprb,1.0152e+01_jprb,1.0555e+01_jprb,1.0995e+01_jprb/)
805 kbo( :,21, 9) = (/&
806 &8.4559e+00_jprb,8.8026e+00_jprb,9.1952e+00_jprb,9.6304e+00_jprb,1.0095e+01_jprb/)
807 kbo( :,22, 9) = (/&
808 &7.5782e+00_jprb,7.9554e+00_jprb,8.3755e+00_jprb,8.8282e+00_jprb,9.3139e+00_jprb/)
809 kbo( :,23, 9) = (/&
810 &6.8684e+00_jprb,7.2684e+00_jprb,7.7047e+00_jprb,8.1736e+00_jprb,8.6781e+00_jprb/)
811 kbo( :,24, 9) = (/&
812 &6.2497e+00_jprb,6.6572e+00_jprb,7.0979e+00_jprb,7.5746e+00_jprb,8.0821e+00_jprb/)
813 kbo( :,25, 9) = (/&
814 &5.7300e+00_jprb,6.1337e+00_jprb,6.5736e+00_jprb,7.0462e+00_jprb,7.5518e+00_jprb/)
815 kbo( :,26, 9) = (/&
816 &5.2905e+00_jprb,5.6892e+00_jprb,6.1183e+00_jprb,6.5857e+00_jprb,7.0904e+00_jprb/)
817 kbo( :,27, 9) = (/&
818 &4.8852e+00_jprb,5.2716e+00_jprb,5.6895e+00_jprb,6.1477e+00_jprb,6.6506e+00_jprb/)
819 kbo( :,28, 9) = (/&
820 &4.4993e+00_jprb,4.8815e+00_jprb,5.2912e+00_jprb,5.7427e+00_jprb,6.2498e+00_jprb/)
821 kbo( :,29, 9) = (/&
822 &4.1817e+00_jprb,4.5681e+00_jprb,4.9858e+00_jprb,5.4440e+00_jprb,5.9661e+00_jprb/)
823 kbo( :,30, 9) = (/&
824 &3.9159e+00_jprb,4.3103e+00_jprb,4.7415e+00_jprb,5.2227e+00_jprb,5.7617e+00_jprb/)
825 kbo( :,31, 9) = (/&
826 &3.7169e+00_jprb,4.1255e+00_jprb,4.5793e+00_jprb,5.0892e+00_jprb,5.6531e+00_jprb/)
827 kbo( :,32, 9) = (/&
828 &3.5834e+00_jprb,4.0122e+00_jprb,4.4950e+00_jprb,5.0349e+00_jprb,5.6294e+00_jprb/)
829 kbo( :,33, 9) = (/&
830 &3.5101e+00_jprb,3.9652e+00_jprb,4.4790e+00_jprb,5.0498e+00_jprb,5.6789e+00_jprb/)
831 kbo( :,34, 9) = (/&
832 &3.5050e+00_jprb,3.9930e+00_jprb,4.5402e+00_jprb,5.1475e+00_jprb,5.8191e+00_jprb/)
833 kbo( :,35, 9) = (/&
834 &3.4979e+00_jprb,4.0137e+00_jprb,4.5890e+00_jprb,5.2289e+00_jprb,5.9375e+00_jprb/)
835 kbo( :,36, 9) = (/&
836 &3.4706e+00_jprb,4.0059e+00_jprb,4.6026e+00_jprb,5.2687e+00_jprb,6.0062e+00_jprb/)
837 kbo( :,37, 9) = (/&
838 &3.3275e+00_jprb,3.8631e+00_jprb,4.4602e+00_jprb,5.1262e+00_jprb,5.8660e+00_jprb/)
839 kbo( :,38, 9) = (/&
840 &3.1941e+00_jprb,3.7291e+00_jprb,4.3242e+00_jprb,4.9885e+00_jprb,5.7266e+00_jprb/)
841 kbo( :,39, 9) = (/&
842 &3.0740e+00_jprb,3.6084e+00_jprb,4.2006e+00_jprb,4.8620e+00_jprb,5.5962e+00_jprb/)
843 kbo( :,40, 9) = (/&
844 &2.8552e+00_jprb,3.3739e+00_jprb,3.9447e+00_jprb,4.5808e+00_jprb,5.2902e+00_jprb/)
845 kbo( :,41, 9) = (/&
846 &2.6380e+00_jprb,3.1381e+00_jprb,3.6872e+00_jprb,4.2961e+00_jprb,4.9750e+00_jprb/)
847 kbo( :,42, 9) = (/&
848 &2.4342e+00_jprb,2.9148e+00_jprb,3.4437e+00_jprb,4.0255e+00_jprb,4.6737e+00_jprb/)
849 kbo( :,43, 9) = (/&
850 &2.2073e+00_jprb,2.6629e+00_jprb,3.1662e+00_jprb,3.7162e+00_jprb,4.3269e+00_jprb/)
851 kbo( :,44, 9) = (/&
852 &1.9815e+00_jprb,2.4093e+00_jprb,2.8849e+00_jprb,3.4033e+00_jprb,3.9755e+00_jprb/)
853 kbo( :,45, 9) = (/&
854 &1.7719e+00_jprb,2.1718e+00_jprb,2.6189e+00_jprb,3.1075e+00_jprb,3.6437e+00_jprb/)
855 kbo( :,46, 9) = (/&
856 &1.5723e+00_jprb,1.9443e+00_jprb,2.3619e+00_jprb,2.8217e+00_jprb,3.3236e+00_jprb/)
857 kbo( :,47, 9) = (/&
858 &1.3802e+00_jprb,1.7245e+00_jprb,2.1129e+00_jprb,2.5440e+00_jprb,3.0139e+00_jprb/)
859 kbo( :,48, 9) = (/&
860 &1.2042e+00_jprb,1.5204e+00_jprb,1.8800e+00_jprb,2.2805e+00_jprb,2.7207e+00_jprb/)
861 kbo( :,49, 9) = (/&
862 &1.0431e+00_jprb,1.3311e+00_jprb,1.6618e+00_jprb,2.0323e+00_jprb,2.4425e+00_jprb/)
863 kbo( :,50, 9) = (/&
864 &9.1020e-01_jprb,1.1754e+00_jprb,1.4811e+00_jprb,1.8261e+00_jprb,2.2093e+00_jprb/)
865 kbo( :,51, 9) = (/&
866 &7.9478e-01_jprb,1.0402e+00_jprb,1.3230e+00_jprb,1.6448e+00_jprb,2.0037e+00_jprb/)
867 kbo( :,52, 9) = (/&
868 &6.8856e-01_jprb,9.1521e-01_jprb,1.1763e+00_jprb,1.4752e+00_jprb,1.8102e+00_jprb/)
869 kbo( :,53, 9) = (/&
870 &5.9135e-01_jprb,7.9906e-01_jprb,1.0400e+00_jprb,1.3162e+00_jprb,1.6282e+00_jprb/)
871 kbo( :,54, 9) = (/&
872 &5.1488e-01_jprb,7.0709e-01_jprb,9.3257e-01_jprb,1.1913e+00_jprb,1.4845e+00_jprb/)
873 kbo( :,55, 9) = (/&
874 &4.5023e-01_jprb,6.2878e-01_jprb,8.4073e-01_jprb,1.0847e+00_jprb,1.3619e+00_jprb/)
875 kbo( :,56, 9) = (/&
876 &3.9100e-01_jprb,5.5634e-01_jprb,7.5480e-01_jprb,9.8459e-01_jprb,1.2461e+00_jprb/)
877 kbo( :,57, 9) = (/&
878 &3.3683e-01_jprb,4.8921e-01_jprb,6.7380e-01_jprb,8.9005e-01_jprb,1.1368e+00_jprb/)
879 kbo( :,58, 9) = (/&
880 &2.9052e-01_jprb,4.3080e-01_jprb,6.0283e-01_jprb,8.0653e-01_jprb,1.0401e+00_jprb/)
881 kbo( :,59, 9) = (/&
882 &2.7497e-01_jprb,4.1213e-01_jprb,5.8166e-01_jprb,7.8275e-01_jprb,1.0139e+00_jprb/)
883 kbo( :,13,10) = (/&
884 &6.2443e+01_jprb,6.2764e+01_jprb,6.3247e+01_jprb,6.3715e+01_jprb,6.4108e+01_jprb/)
885 kbo( :,14,10) = (/&
886 &5.9985e+01_jprb,6.0474e+01_jprb,6.1209e+01_jprb,6.1839e+01_jprb,6.2132e+01_jprb/)
887 kbo( :,15,10) = (/&
888 &5.6302e+01_jprb,5.7213e+01_jprb,5.7905e+01_jprb,5.8328e+01_jprb,5.8930e+01_jprb/)
889 kbo( :,16,10) = (/&
890 &5.2360e+01_jprb,5.3074e+01_jprb,5.3755e+01_jprb,5.4642e+01_jprb,5.5349e+01_jprb/)
891 kbo( :,17,10) = (/&
892 &4.8557e+01_jprb,4.9472e+01_jprb,5.0546e+01_jprb,5.1358e+01_jprb,5.2195e+01_jprb/)
893 kbo( :,18,10) = (/&
894 &4.5817e+01_jprb,4.7034e+01_jprb,4.8009e+01_jprb,4.9111e+01_jprb,5.0457e+01_jprb/)
895 kbo( :,19,10) = (/&
896 &4.3325e+01_jprb,4.4456e+01_jprb,4.5754e+01_jprb,4.7330e+01_jprb,4.8976e+01_jprb/)
897 kbo( :,20,10) = (/&
898 &3.9745e+01_jprb,4.1127e+01_jprb,4.2837e+01_jprb,4.4567e+01_jprb,4.6284e+01_jprb/)
899 kbo( :,21,10) = (/&
900 &3.6127e+01_jprb,3.7823e+01_jprb,3.9580e+01_jprb,4.1335e+01_jprb,4.3236e+01_jprb/)
901 kbo( :,22,10) = (/&
902 &3.2661e+01_jprb,3.4362e+01_jprb,3.6109e+01_jprb,3.8022e+01_jprb,4.0162e+01_jprb/)
903 kbo( :,23,10) = (/&
904 &2.9316e+01_jprb,3.1011e+01_jprb,3.2886e+01_jprb,3.5036e+01_jprb,3.7336e+01_jprb/)
905 kbo( :,24,10) = (/&
906 &2.6133e+01_jprb,2.7977e+01_jprb,3.0126e+01_jprb,3.2424e+01_jprb,3.4907e+01_jprb/)
907 kbo( :,25,10) = (/&
908 &2.3786e+01_jprb,2.5903e+01_jprb,2.8212e+01_jprb,3.0718e+01_jprb,3.3428e+01_jprb/)
909 kbo( :,26,10) = (/&
910 &2.2187e+01_jprb,2.4436e+01_jprb,2.6979e+01_jprb,2.9726e+01_jprb,3.2775e+01_jprb/)
911 kbo( :,27,10) = (/&
912 &2.0867e+01_jprb,2.3290e+01_jprb,2.6025e+01_jprb,2.9060e+01_jprb,3.2420e+01_jprb/)
913 kbo( :,28,10) = (/&
914 &1.9963e+01_jprb,2.2440e+01_jprb,2.5348e+01_jprb,2.8653e+01_jprb,3.2222e+01_jprb/)
915 kbo( :,29,10) = (/&
916 &1.9439e+01_jprb,2.1951e+01_jprb,2.4945e+01_jprb,2.8411e+01_jprb,3.2065e+01_jprb/)
917 kbo( :,30,10) = (/&
918 &1.9217e+01_jprb,2.1773e+01_jprb,2.4822e+01_jprb,2.8258e+01_jprb,3.1954e+01_jprb/)
919 kbo( :,31,10) = (/&
920 &1.9236e+01_jprb,2.1821e+01_jprb,2.4835e+01_jprb,2.8172e+01_jprb,3.1859e+01_jprb/)
921 kbo( :,32,10) = (/&
922 &1.9497e+01_jprb,2.2156e+01_jprb,2.5072e+01_jprb,2.8334e+01_jprb,3.2036e+01_jprb/)
923 kbo( :,33,10) = (/&
924 &1.9927e+01_jprb,2.2649e+01_jprb,2.5483e+01_jprb,2.8731e+01_jprb,3.2414e+01_jprb/)
925 kbo( :,34,10) = (/&
926 &2.0616e+01_jprb,2.3435e+01_jprb,2.6339e+01_jprb,2.9629e+01_jprb,3.3264e+01_jprb/)
927 kbo( :,35,10) = (/&
928 &2.1144e+01_jprb,2.4078e+01_jprb,2.7155e+01_jprb,3.0411e+01_jprb,3.3926e+01_jprb/)
929 kbo( :,36,10) = (/&
930 &2.1438e+01_jprb,2.4511e+01_jprb,2.7776e+01_jprb,3.1069e+01_jprb,3.4391e+01_jprb/)
931 kbo( :,37,10) = (/&
932 &2.0912e+01_jprb,2.3999e+01_jprb,2.7304e+01_jprb,3.0662e+01_jprb,3.3903e+01_jprb/)
933 kbo( :,38,10) = (/&
934 &2.0345e+01_jprb,2.3428e+01_jprb,2.6766e+01_jprb,3.0163e+01_jprb,3.3445e+01_jprb/)
935 kbo( :,39,10) = (/&
936 &1.9778e+01_jprb,2.2831e+01_jprb,2.6185e+01_jprb,2.9606e+01_jprb,3.2946e+01_jprb/)
937 kbo( :,40,10) = (/&
938 &1.8680e+01_jprb,2.1589e+01_jprb,2.4845e+01_jprb,2.8243e+01_jprb,3.1561e+01_jprb/)
939 kbo( :,41,10) = (/&
940 &1.7550e+01_jprb,2.0318e+01_jprb,2.3431e+01_jprb,2.6770e+01_jprb,3.0077e+01_jprb/)
941 kbo( :,42,10) = (/&
942 &1.6473e+01_jprb,1.9098e+01_jprb,2.2042e+01_jprb,2.5289e+01_jprb,2.8560e+01_jprb/)
943 kbo( :,43,10) = (/&
944 &1.5257e+01_jprb,1.7707e+01_jprb,2.0444e+01_jprb,2.3540e+01_jprb,2.6749e+01_jprb/)
945 kbo( :,44,10) = (/&
946 &1.4023e+01_jprb,1.6313e+01_jprb,1.8839e+01_jprb,2.1729e+01_jprb,2.4856e+01_jprb/)
947 kbo( :,45,10) = (/&
948 &1.2858e+01_jprb,1.5005e+01_jprb,1.7331e+01_jprb,2.0013e+01_jprb,2.3009e+01_jprb/)
949 kbo( :,46,10) = (/&
950 &1.1732e+01_jprb,1.3762e+01_jprb,1.5932e+01_jprb,1.8398e+01_jprb,2.1229e+01_jprb/)
951 kbo( :,47,10) = (/&
952 &1.0637e+01_jprb,1.2563e+01_jprb,1.4611e+01_jprb,1.6882e+01_jprb,1.9522e+01_jprb/)
953 kbo( :,48,10) = (/&
954 &9.5989e+00_jprb,1.1430e+01_jprb,1.3382e+01_jprb,1.5508e+01_jprb,1.7946e+01_jprb/)
955 kbo( :,49,10) = (/&
956 &8.6105e+00_jprb,1.0367e+01_jprb,1.2235e+01_jprb,1.4247e+01_jprb,1.6502e+01_jprb/)
957 kbo( :,50,10) = (/&
958 &7.7795e+00_jprb,9.4717e+00_jprb,1.1267e+01_jprb,1.3203e+01_jprb,1.5335e+01_jprb/)
959 kbo( :,51,10) = (/&
960 &7.0327e+00_jprb,8.6531e+00_jprb,1.0392e+01_jprb,1.2262e+01_jprb,1.4298e+01_jprb/)
961 kbo( :,52,10) = (/&
962 &6.3294e+00_jprb,7.8785e+00_jprb,9.5601e+00_jprb,1.1364e+01_jprb,1.3321e+01_jprb/)
963 kbo( :,53,10) = (/&
964 &5.6735e+00_jprb,7.1473e+00_jprb,8.7577e+00_jprb,1.0501e+01_jprb,1.2384e+01_jprb/)
965 kbo( :,54,10) = (/&
966 &5.1171e+00_jprb,6.5109e+00_jprb,8.0578e+00_jprb,9.7452e+00_jprb,1.1565e+01_jprb/)
967 kbo( :,55,10) = (/&
968 &4.6203e+00_jprb,5.9356e+00_jprb,7.4153e+00_jprb,9.0377e+00_jprb,1.0796e+01_jprb/)
969 kbo( :,56,10) = (/&
970 &4.1502e+00_jprb,5.3934e+00_jprb,6.7922e+00_jprb,8.3512e+00_jprb,1.0055e+01_jprb/)
971 kbo( :,57,10) = (/&
972 &3.7055e+00_jprb,4.8827e+00_jprb,6.2007e+00_jprb,7.6928e+00_jprb,9.3383e+00_jprb/)
973 kbo( :,58,10) = (/&
974 &3.3017e+00_jprb,4.4251e+00_jprb,5.6661e+00_jprb,7.0836e+00_jprb,8.6693e+00_jprb/)
975 kbo( :,59,10) = (/&
976 &3.1387e+00_jprb,4.2362e+00_jprb,5.4398e+00_jprb,6.8151e+00_jprb,8.3756e+00_jprb/)
977 kbo( :,13,11) = (/&
978 &8.6501e+01_jprb,8.6756e+01_jprb,8.7009e+01_jprb,8.7807e+01_jprb,8.8321e+01_jprb/)
979 kbo( :,14,11) = (/&
980 &8.6001e+01_jprb,8.6390e+01_jprb,8.7153e+01_jprb,8.7884e+01_jprb,8.8485e+01_jprb/)
981 kbo( :,15,11) = (/&
982 &8.3396e+01_jprb,8.4271e+01_jprb,8.5263e+01_jprb,8.6231e+01_jprb,8.7169e+01_jprb/)
983 kbo( :,16,11) = (/&
984 &8.0216e+01_jprb,8.1367e+01_jprb,8.2641e+01_jprb,8.3850e+01_jprb,8.5113e+01_jprb/)
985 kbo( :,17,11) = (/&
986 &7.7559e+01_jprb,7.9123e+01_jprb,8.0637e+01_jprb,8.2229e+01_jprb,8.3780e+01_jprb/)
987 kbo( :,18,11) = (/&
988 &7.6113e+01_jprb,7.8038e+01_jprb,8.0039e+01_jprb,8.1955e+01_jprb,8.3906e+01_jprb/)
989 kbo( :,19,11) = (/&
990 &7.4701e+01_jprb,7.7061e+01_jprb,7.9341e+01_jprb,8.1777e+01_jprb,8.4316e+01_jprb/)
991 kbo( :,20,11) = (/&
992 &7.1644e+01_jprb,7.4182e+01_jprb,7.6892e+01_jprb,7.9840e+01_jprb,8.2902e+01_jprb/)
993 kbo( :,21,11) = (/&
994 &6.7620e+01_jprb,7.0516e+01_jprb,7.3720e+01_jprb,7.7152e+01_jprb,8.0637e+01_jprb/)
995 kbo( :,22,11) = (/&
996 &6.3004e+01_jprb,6.6364e+01_jprb,7.0039e+01_jprb,7.3871e+01_jprb,7.7820e+01_jprb/)
997 kbo( :,23,11) = (/&
998 &5.8500e+01_jprb,6.2279e+01_jprb,6.6312e+01_jprb,7.0504e+01_jprb,7.4998e+01_jprb/)
999 kbo( :,24,11) = (/&
1000 &5.3727e+01_jprb,5.7825e+01_jprb,6.2144e+01_jprb,6.6890e+01_jprb,7.2071e+01_jprb/)
1001 kbo( :,25,11) = (/&
1002 &4.9481e+01_jprb,5.3871e+01_jprb,5.8717e+01_jprb,6.4044e+01_jprb,6.9704e+01_jprb/)
1003 kbo( :,26,11) = (/&
1004 &4.6254e+01_jprb,5.1111e+01_jprb,5.6460e+01_jprb,6.2228e+01_jprb,6.8093e+01_jprb/)
1005 kbo( :,27,11) = (/&
1006 &4.3953e+01_jprb,4.9258e+01_jprb,5.5047e+01_jprb,6.1083e+01_jprb,6.7149e+01_jprb/)
1007 kbo( :,28,11) = (/&
1008 &4.2333e+01_jprb,4.8051e+01_jprb,5.4161e+01_jprb,6.0348e+01_jprb,6.6482e+01_jprb/)
1009 kbo( :,29,11) = (/&
1010 &4.1519e+01_jprb,4.7571e+01_jprb,5.3856e+01_jprb,6.0162e+01_jprb,6.6490e+01_jprb/)
1011 kbo( :,30,11) = (/&
1012 &4.1079e+01_jprb,4.7326e+01_jprb,5.3742e+01_jprb,6.0205e+01_jprb,6.6744e+01_jprb/)
1013 kbo( :,31,11) = (/&
1014 &4.0957e+01_jprb,4.7315e+01_jprb,5.3845e+01_jprb,6.0494e+01_jprb,6.7153e+01_jprb/)
1015 kbo( :,32,11) = (/&
1016 &4.1227e+01_jprb,4.7602e+01_jprb,5.4282e+01_jprb,6.1081e+01_jprb,6.7763e+01_jprb/)
1017 kbo( :,33,11) = (/&
1018 &4.1826e+01_jprb,4.8137e+01_jprb,5.4944e+01_jprb,6.1784e+01_jprb,6.8374e+01_jprb/)
1019 kbo( :,34,11) = (/&
1020 &4.3072e+01_jprb,4.9391e+01_jprb,5.6254e+01_jprb,6.3099e+01_jprb,6.9725e+01_jprb/)
1021 kbo( :,35,11) = (/&
1022 &4.3986e+01_jprb,5.0200e+01_jprb,5.6858e+01_jprb,6.3640e+01_jprb,7.0415e+01_jprb/)
1023 kbo( :,36,11) = (/&
1024 &4.4502e+01_jprb,5.0408e+01_jprb,5.6628e+01_jprb,6.3171e+01_jprb,7.0200e+01_jprb/)
1025 kbo( :,37,11) = (/&
1026 &4.3850e+01_jprb,4.9526e+01_jprb,5.5508e+01_jprb,6.1846e+01_jprb,6.8955e+01_jprb/)
1027 kbo( :,38,11) = (/&
1028 &4.3288e+01_jprb,4.8717e+01_jprb,5.4460e+01_jprb,6.0601e+01_jprb,6.7672e+01_jprb/)
1029 kbo( :,39,11) = (/&
1030 &4.2793e+01_jprb,4.8055e+01_jprb,5.3543e+01_jprb,5.9508e+01_jprb,6.6570e+01_jprb/)
1031 kbo( :,40,11) = (/&
1032 &4.0982e+01_jprb,4.6218e+01_jprb,5.1475e+01_jprb,5.7189e+01_jprb,6.4026e+01_jprb/)
1033 kbo( :,41,11) = (/&
1034 &3.9015e+01_jprb,4.4241e+01_jprb,4.9337e+01_jprb,5.4818e+01_jprb,6.1396e+01_jprb/)
1035 kbo( :,42,11) = (/&
1036 &3.7029e+01_jprb,4.2233e+01_jprb,4.7279e+01_jprb,5.2574e+01_jprb,5.8917e+01_jprb/)
1037 kbo( :,43,11) = (/&
1038 &3.4672e+01_jprb,3.9813e+01_jprb,4.4910e+01_jprb,5.0015e+01_jprb,5.6019e+01_jprb/)
1039 kbo( :,44,11) = (/&
1040 &3.2216e+01_jprb,3.7254e+01_jprb,4.2367e+01_jprb,4.7396e+01_jprb,5.3071e+01_jprb/)
1041 kbo( :,45,11) = (/&
1042 &2.9847e+01_jprb,3.4776e+01_jprb,3.9855e+01_jprb,4.4920e+01_jprb,5.0317e+01_jprb/)
1043 kbo( :,46,11) = (/&
1044 &2.7555e+01_jprb,3.2329e+01_jprb,3.7304e+01_jprb,4.2424e+01_jprb,4.7633e+01_jprb/)
1045 kbo( :,47,11) = (/&
1046 &2.5262e+01_jprb,2.9854e+01_jprb,3.4721e+01_jprb,3.9795e+01_jprb,4.4945e+01_jprb/)
1047 kbo( :,48,11) = (/&
1048 &2.3081e+01_jprb,2.7503e+01_jprb,3.2213e+01_jprb,3.7177e+01_jprb,4.2342e+01_jprb/)
1049 kbo( :,49,11) = (/&
1050 &2.1057e+01_jprb,2.5246e+01_jprb,2.9758e+01_jprb,3.4602e+01_jprb,3.9727e+01_jprb/)
1051 kbo( :,50,11) = (/&
1052 &1.9318e+01_jprb,2.3248e+01_jprb,2.7618e+01_jprb,3.2289e+01_jprb,3.7300e+01_jprb/)
1053 kbo( :,51,11) = (/&
1054 &1.7764e+01_jprb,2.1445e+01_jprb,2.5630e+01_jprb,3.0117e+01_jprb,3.5003e+01_jprb/)
1055 kbo( :,52,11) = (/&
1056 &1.6284e+01_jprb,1.9745e+01_jprb,2.3706e+01_jprb,2.8037e+01_jprb,3.2754e+01_jprb/)
1057 kbo( :,53,11) = (/&
1058 &1.4870e+01_jprb,1.8170e+01_jprb,2.1878e+01_jprb,2.6032e+01_jprb,3.0559e+01_jprb/)
1059 kbo( :,54,11) = (/&
1060 &1.3618e+01_jprb,1.6796e+01_jprb,2.0287e+01_jprb,2.4249e+01_jprb,2.8597e+01_jprb/)
1061 kbo( :,55,11) = (/&
1062 &1.2457e+01_jprb,1.5534e+01_jprb,1.8860e+01_jprb,2.2616e+01_jprb,2.6796e+01_jprb/)
1063 kbo( :,56,11) = (/&
1064 &1.1356e+01_jprb,1.4314e+01_jprb,1.7512e+01_jprb,2.1058e+01_jprb,2.5045e+01_jprb/)
1065 kbo( :,57,11) = (/&
1066 &1.0320e+01_jprb,1.3127e+01_jprb,1.6224e+01_jprb,1.9585e+01_jprb,2.3359e+01_jprb/)
1067 kbo( :,58,11) = (/&
1068 &9.3830e+00_jprb,1.2046e+01_jprb,1.5046e+01_jprb,1.8261e+01_jprb,2.1817e+01_jprb/)
1069 kbo( :,59,11) = (/&
1070 &8.9391e+00_jprb,1.1539e+01_jprb,1.4477e+01_jprb,1.7622e+01_jprb,2.1055e+01_jprb/)
1071 kbo( :,13,12) = (/&
1072 &1.1536e+02_jprb,1.1632e+02_jprb,1.1676e+02_jprb,1.1687e+02_jprb,1.1771e+02_jprb/)
1073 kbo( :,14,12) = (/&
1074 &1.1996e+02_jprb,1.2089e+02_jprb,1.2132e+02_jprb,1.2216e+02_jprb,1.2355e+02_jprb/)
1075 kbo( :,15,12) = (/&
1076 &1.2190e+02_jprb,1.2270e+02_jprb,1.2390e+02_jprb,1.2571e+02_jprb,1.2681e+02_jprb/)
1077 kbo( :,16,12) = (/&
1078 &1.2181e+02_jprb,1.2365e+02_jprb,1.2585e+02_jprb,1.2744e+02_jprb,1.2865e+02_jprb/)
1079 kbo( :,17,12) = (/&
1080 &1.2361e+02_jprb,1.2611e+02_jprb,1.2809e+02_jprb,1.2991e+02_jprb,1.3207e+02_jprb/)
1081 kbo( :,18,12) = (/&
1082 &1.2791e+02_jprb,1.3042e+02_jprb,1.3285e+02_jprb,1.3575e+02_jprb,1.3866e+02_jprb/)
1083 kbo( :,19,12) = (/&
1084 &1.3167e+02_jprb,1.3492e+02_jprb,1.3862e+02_jprb,1.4230e+02_jprb,1.4589e+02_jprb/)
1085 kbo( :,20,12) = (/&
1086 &1.3240e+02_jprb,1.3677e+02_jprb,1.4130e+02_jprb,1.4568e+02_jprb,1.5011e+02_jprb/)
1087 kbo( :,21,12) = (/&
1088 &1.3167e+02_jprb,1.3705e+02_jprb,1.4232e+02_jprb,1.4765e+02_jprb,1.5295e+02_jprb/)
1089 kbo( :,22,12) = (/&
1090 &1.2941e+02_jprb,1.3568e+02_jprb,1.4188e+02_jprb,1.4812e+02_jprb,1.5420e+02_jprb/)
1091 kbo( :,23,12) = (/&
1092 &1.2650e+02_jprb,1.3362e+02_jprb,1.4090e+02_jprb,1.4804e+02_jprb,1.5493e+02_jprb/)
1093 kbo( :,24,12) = (/&
1094 &1.2203e+02_jprb,1.3010e+02_jprb,1.3824e+02_jprb,1.4621e+02_jprb,1.5349e+02_jprb/)
1095 kbo( :,25,12) = (/&
1096 &1.1780e+02_jprb,1.2675e+02_jprb,1.3578e+02_jprb,1.4425e+02_jprb,1.5220e+02_jprb/)
1097 kbo( :,26,12) = (/&
1098 &1.1452e+02_jprb,1.2433e+02_jprb,1.3394e+02_jprb,1.4292e+02_jprb,1.5154e+02_jprb/)
1099 kbo( :,27,12) = (/&
1100 &1.1158e+02_jprb,1.2202e+02_jprb,1.3200e+02_jprb,1.4156e+02_jprb,1.5071e+02_jprb/)
1101 kbo( :,28,12) = (/&
1102 &1.0877e+02_jprb,1.1953e+02_jprb,1.2986e+02_jprb,1.3983e+02_jprb,1.4949e+02_jprb/)
1103 kbo( :,29,12) = (/&
1104 &1.0758e+02_jprb,1.1863e+02_jprb,1.2937e+02_jprb,1.3977e+02_jprb,1.4973e+02_jprb/)
1105 kbo( :,30,12) = (/&
1106 &1.0679e+02_jprb,1.1811e+02_jprb,1.2916e+02_jprb,1.3989e+02_jprb,1.4980e+02_jprb/)
1107 kbo( :,31,12) = (/&
1108 &1.0688e+02_jprb,1.1849e+02_jprb,1.2989e+02_jprb,1.4068e+02_jprb,1.5077e+02_jprb/)
1109 kbo( :,32,12) = (/&
1110 &1.0761e+02_jprb,1.1953e+02_jprb,1.3110e+02_jprb,1.4225e+02_jprb,1.5305e+02_jprb/)
1111 kbo( :,33,12) = (/&
1112 &1.0869e+02_jprb,1.2092e+02_jprb,1.3311e+02_jprb,1.4513e+02_jprb,1.5706e+02_jprb/)
1113 kbo( :,34,12) = (/&
1114 &1.1112e+02_jprb,1.2403e+02_jprb,1.3695e+02_jprb,1.4972e+02_jprb,1.6276e+02_jprb/)
1115 kbo( :,35,12) = (/&
1116 &1.1246e+02_jprb,1.2623e+02_jprb,1.4002e+02_jprb,1.5398e+02_jprb,1.6809e+02_jprb/)
1117 kbo( :,36,12) = (/&
1118 &1.1250e+02_jprb,1.2737e+02_jprb,1.4246e+02_jprb,1.5783e+02_jprb,1.7316e+02_jprb/)
1119 kbo( :,37,12) = (/&
1120 &1.1061e+02_jprb,1.2593e+02_jprb,1.4155e+02_jprb,1.5744e+02_jprb,1.7321e+02_jprb/)
1121 kbo( :,38,12) = (/&
1122 &1.0863e+02_jprb,1.2441e+02_jprb,1.4054e+02_jprb,1.5693e+02_jprb,1.7309e+02_jprb/)
1123 kbo( :,39,12) = (/&
1124 &1.0682e+02_jprb,1.2301e+02_jprb,1.3972e+02_jprb,1.5664e+02_jprb,1.7318e+02_jprb/)
1125 kbo( :,40,12) = (/&
1126 &1.0231e+02_jprb,1.1830e+02_jprb,1.3525e+02_jprb,1.5235e+02_jprb,1.6904e+02_jprb/)
1127 kbo( :,41,12) = (/&
1128 &9.7591e+01_jprb,1.1325e+02_jprb,1.3028e+02_jprb,1.4750e+02_jprb,1.6434e+02_jprb/)
1129 kbo( :,42,12) = (/&
1130 &9.3027e+01_jprb,1.0842e+02_jprb,1.2533e+02_jprb,1.4267e+02_jprb,1.5965e+02_jprb/)
1131 kbo( :,43,12) = (/&
1132 &8.7538e+01_jprb,1.0245e+02_jprb,1.1885e+02_jprb,1.3623e+02_jprb,1.5326e+02_jprb/)
1133 kbo( :,44,12) = (/&
1134 &8.1886e+01_jprb,9.6138e+01_jprb,1.1198e+02_jprb,1.2909e+02_jprb,1.4608e+02_jprb/)
1135 kbo( :,45,12) = (/&
1136 &7.6645e+01_jprb,9.0087e+01_jprb,1.0542e+02_jprb,1.2199e+02_jprb,1.3900e+02_jprb/)
1137 kbo( :,46,12) = (/&
1138 &7.1474e+01_jprb,8.4055e+01_jprb,9.8742e+01_jprb,1.1474e+02_jprb,1.3156e+02_jprb/)
1139 kbo( :,47,12) = (/&
1140 &6.6310e+01_jprb,7.7963e+01_jprb,9.1690e+01_jprb,1.0705e+02_jprb,1.2340e+02_jprb/)
1141 kbo( :,48,12) = (/&
1142 &6.1600e+01_jprb,7.2276e+01_jprb,8.5037e+01_jprb,9.9673e+01_jprb,1.1542e+02_jprb/)
1143 kbo( :,49,12) = (/&
1144 &5.7283e+01_jprb,6.7050e+01_jprb,7.8923e+01_jprb,9.2652e+01_jprb,1.0778e+02_jprb/)
1145 kbo( :,50,12) = (/&
1146 &5.3478e+01_jprb,6.2571e+01_jprb,7.3516e+01_jprb,8.6380e+01_jprb,1.0082e+02_jprb/)
1147 kbo( :,51,12) = (/&
1148 &4.9875e+01_jprb,5.8576e+01_jprb,6.8672e+01_jprb,8.0731e+01_jprb,9.4376e+01_jprb/)
1149 kbo( :,52,12) = (/&
1150 &4.6408e+01_jprb,5.4871e+01_jprb,6.4185e+01_jprb,7.5407e+01_jprb,8.8241e+01_jprb/)
1151 kbo( :,53,12) = (/&
1152 &4.3049e+01_jprb,5.1245e+01_jprb,6.0053e+01_jprb,7.0436e+01_jprb,8.2512e+01_jprb/)
1153 kbo( :,54,12) = (/&
1154 &4.0074e+01_jprb,4.8005e+01_jprb,5.6523e+01_jprb,6.6130e+01_jprb,7.7483e+01_jprb/)
1155 kbo( :,55,12) = (/&
1156 &3.7334e+01_jprb,4.4988e+01_jprb,5.3284e+01_jprb,6.2287e+01_jprb,7.2912e+01_jprb/)
1157 kbo( :,56,12) = (/&
1158 &3.4721e+01_jprb,4.2060e+01_jprb,5.0133e+01_jprb,5.8707e+01_jprb,6.8606e+01_jprb/)
1159 kbo( :,57,12) = (/&
1160 &3.2171e+01_jprb,3.9229e+01_jprb,4.7079e+01_jprb,5.5373e+01_jprb,6.4605e+01_jprb/)
1161 kbo( :,58,12) = (/&
1162 &2.9794e+01_jprb,3.6617e+01_jprb,4.4198e+01_jprb,5.2314e+01_jprb,6.1016e+01_jprb/)
1163 kbo( :,59,12) = (/&
1164 &2.8699e+01_jprb,3.5397e+01_jprb,4.2806e+01_jprb,5.0814e+01_jprb,5.9273e+01_jprb/)
1165 kbo( :,13,13) = (/&
1166 &1.6492e+02_jprb,1.6388e+02_jprb,1.6346e+02_jprb,1.6281e+02_jprb,1.6185e+02_jprb/)
1167 kbo( :,14,13) = (/&
1168 &1.7807e+02_jprb,1.7770e+02_jprb,1.7743e+02_jprb,1.7669e+02_jprb,1.7598e+02_jprb/)
1169 kbo( :,15,13) = (/&
1170 &1.8993e+02_jprb,1.9024e+02_jprb,1.8997e+02_jprb,1.8962e+02_jprb,1.9043e+02_jprb/)
1171 kbo( :,16,13) = (/&
1172 &2.0050e+02_jprb,2.0095e+02_jprb,2.0135e+02_jprb,2.0291e+02_jprb,2.0501e+02_jprb/)
1173 kbo( :,17,13) = (/&
1174 &2.0905e+02_jprb,2.1062e+02_jprb,2.1338e+02_jprb,2.1661e+02_jprb,2.1875e+02_jprb/)
1175 kbo( :,18,13) = (/&
1176 &2.1804e+02_jprb,2.2224e+02_jprb,2.2674e+02_jprb,2.3000e+02_jprb,2.3246e+02_jprb/)
1177 kbo( :,19,13) = (/&
1178 &2.3115e+02_jprb,2.3655e+02_jprb,2.4106e+02_jprb,2.4477e+02_jprb,2.4852e+02_jprb/)
1179 kbo( :,20,13) = (/&
1180 &2.4329e+02_jprb,2.4898e+02_jprb,2.5395e+02_jprb,2.5885e+02_jprb,2.6364e+02_jprb/)
1181 kbo( :,21,13) = (/&
1182 &2.5437e+02_jprb,2.6055e+02_jprb,2.6661e+02_jprb,2.7260e+02_jprb,2.7787e+02_jprb/)
1183 kbo( :,22,13) = (/&
1184 &2.6250e+02_jprb,2.7007e+02_jprb,2.7766e+02_jprb,2.8448e+02_jprb,2.9027e+02_jprb/)
1185 kbo( :,23,13) = (/&
1186 &2.6919e+02_jprb,2.7869e+02_jprb,2.8736e+02_jprb,2.9473e+02_jprb,3.0099e+02_jprb/)
1187 kbo( :,24,13) = (/&
1188 &2.7228e+02_jprb,2.8325e+02_jprb,2.9264e+02_jprb,3.0066e+02_jprb,3.0797e+02_jprb/)
1189 kbo( :,25,13) = (/&
1190 &2.7478e+02_jprb,2.8650e+02_jprb,2.9632e+02_jprb,3.0547e+02_jprb,3.1366e+02_jprb/)
1191 kbo( :,26,13) = (/&
1192 &2.7718e+02_jprb,2.8924e+02_jprb,3.0014e+02_jprb,3.1019e+02_jprb,3.1917e+02_jprb/)
1193 kbo( :,27,13) = (/&
1194 &2.7773e+02_jprb,2.9063e+02_jprb,3.0281e+02_jprb,3.1393e+02_jprb,3.2342e+02_jprb/)
1195 kbo( :,28,13) = (/&
1196 &2.7669e+02_jprb,2.9127e+02_jprb,3.0469e+02_jprb,3.1685e+02_jprb,3.2697e+02_jprb/)
1197 kbo( :,29,13) = (/&
1198 &2.7898e+02_jprb,2.9479e+02_jprb,3.0937e+02_jprb,3.2216e+02_jprb,3.3294e+02_jprb/)
1199 kbo( :,30,13) = (/&
1200 &2.8228e+02_jprb,2.9938e+02_jprb,3.1508e+02_jprb,3.2858e+02_jprb,3.4068e+02_jprb/)
1201 kbo( :,31,13) = (/&
1202 &2.8807e+02_jprb,3.0670e+02_jprb,3.2315e+02_jprb,3.3792e+02_jprb,3.5112e+02_jprb/)
1203 kbo( :,32,13) = (/&
1204 &2.9599e+02_jprb,3.1568e+02_jprb,3.3326e+02_jprb,3.4888e+02_jprb,3.6266e+02_jprb/)
1205 kbo( :,33,13) = (/&
1206 &3.0608e+02_jprb,3.2668e+02_jprb,3.4478e+02_jprb,3.6084e+02_jprb,3.7554e+02_jprb/)
1207 kbo( :,34,13) = (/&
1208 &3.1667e+02_jprb,3.3765e+02_jprb,3.5613e+02_jprb,3.7316e+02_jprb,3.8829e+02_jprb/)
1209 kbo( :,35,13) = (/&
1210 &3.2596e+02_jprb,3.4758e+02_jprb,3.6720e+02_jprb,3.8537e+02_jprb,4.0075e+02_jprb/)
1211 kbo( :,36,13) = (/&
1212 &3.3359e+02_jprb,3.5628e+02_jprb,3.7747e+02_jprb,3.9672e+02_jprb,4.1282e+02_jprb/)
1213 kbo( :,37,13) = (/&
1214 &3.3360e+02_jprb,3.5721e+02_jprb,3.7933e+02_jprb,3.9940e+02_jprb,4.1630e+02_jprb/)
1215 kbo( :,38,13) = (/&
1216 &3.3326e+02_jprb,3.5780e+02_jprb,3.8082e+02_jprb,4.0174e+02_jprb,4.1947e+02_jprb/)
1217 kbo( :,39,13) = (/&
1218 &3.3309e+02_jprb,3.5850e+02_jprb,3.8253e+02_jprb,4.0436e+02_jprb,4.2297e+02_jprb/)
1219 kbo( :,40,13) = (/&
1220 &3.2648e+02_jprb,3.5268e+02_jprb,3.7698e+02_jprb,3.9960e+02_jprb,4.1913e+02_jprb/)
1221 kbo( :,41,13) = (/&
1222 &3.1896e+02_jprb,3.4578e+02_jprb,3.7035e+02_jprb,3.9368e+02_jprb,4.1397e+02_jprb/)
1223 kbo( :,42,13) = (/&
1224 &3.1112e+02_jprb,3.3866e+02_jprb,3.6362e+02_jprb,3.8746e+02_jprb,4.0853e+02_jprb/)
1225 kbo( :,43,13) = (/&
1226 &3.0052e+02_jprb,3.2869e+02_jprb,3.5427e+02_jprb,3.7807e+02_jprb,3.9999e+02_jprb/)
1227 kbo( :,44,13) = (/&
1228 &2.8853e+02_jprb,3.1745e+02_jprb,3.4358e+02_jprb,3.6752e+02_jprb,3.9013e+02_jprb/)
1229 kbo( :,45,13) = (/&
1230 &2.7601e+02_jprb,3.0588e+02_jprb,3.3279e+02_jprb,3.5705e+02_jprb,3.7967e+02_jprb/)
1231 kbo( :,46,13) = (/&
1232 &2.6267e+02_jprb,2.9363e+02_jprb,3.2123e+02_jprb,3.4597e+02_jprb,3.6877e+02_jprb/)
1233 kbo( :,47,13) = (/&
1234 &2.4757e+02_jprb,2.7937e+02_jprb,3.0805e+02_jprb,3.3376e+02_jprb,3.5676e+02_jprb/)
1235 kbo( :,48,13) = (/&
1236 &2.3214e+02_jprb,2.6483e+02_jprb,2.9482e+02_jprb,3.2128e+02_jprb,3.4490e+02_jprb/)
1237 kbo( :,49,13) = (/&
1238 &2.1667e+02_jprb,2.4994e+02_jprb,2.8075e+02_jprb,3.0839e+02_jprb,3.3291e+02_jprb/)
1239 kbo( :,50,13) = (/&
1240 &2.0214e+02_jprb,2.3567e+02_jprb,2.6727e+02_jprb,2.9615e+02_jprb,3.2136e+02_jprb/)
1241 kbo( :,51,13) = (/&
1242 &1.8827e+02_jprb,2.2174e+02_jprb,2.5386e+02_jprb,2.8344e+02_jprb,3.0975e+02_jprb/)
1243 kbo( :,52,13) = (/&
1244 &1.7469e+02_jprb,2.0766e+02_jprb,2.4021e+02_jprb,2.7051e+02_jprb,2.9806e+02_jprb/)
1245 kbo( :,53,13) = (/&
1246 &1.6154e+02_jprb,1.9380e+02_jprb,2.2644e+02_jprb,2.5730e+02_jprb,2.8551e+02_jprb/)
1247 kbo( :,54,13) = (/&
1248 &1.4971e+02_jprb,1.8121e+02_jprb,2.1351e+02_jprb,2.4474e+02_jprb,2.7363e+02_jprb/)
1249 kbo( :,55,13) = (/&
1250 &1.3871e+02_jprb,1.6943e+02_jprb,2.0115e+02_jprb,2.3248e+02_jprb,2.6185e+02_jprb/)
1251 kbo( :,56,13) = (/&
1252 &1.2829e+02_jprb,1.5787e+02_jprb,1.8899e+02_jprb,2.2029e+02_jprb,2.4989e+02_jprb/)
1253 kbo( :,57,13) = (/&
1254 &1.1862e+02_jprb,1.4668e+02_jprb,1.7707e+02_jprb,2.0801e+02_jprb,2.3778e+02_jprb/)
1255 kbo( :,58,13) = (/&
1256 &1.1001e+02_jprb,1.3648e+02_jprb,1.6587e+02_jprb,1.9633e+02_jprb,2.2625e+02_jprb/)
1257 kbo( :,59,13) = (/&
1258 &1.0617e+02_jprb,1.3192e+02_jprb,1.6056e+02_jprb,1.9063e+02_jprb,2.2036e+02_jprb/)
1259 kbo( :,13,14) = (/&
1260 &2.3740e+02_jprb,2.3433e+02_jprb,2.3150e+02_jprb,2.2987e+02_jprb,2.2791e+02_jprb/)
1261 kbo( :,14,14) = (/&
1262 &2.6697e+02_jprb,2.6354e+02_jprb,2.6091e+02_jprb,2.5890e+02_jprb,2.5611e+02_jprb/)
1263 kbo( :,15,14) = (/&
1264 &2.9866e+02_jprb,2.9528e+02_jprb,2.9285e+02_jprb,2.8971e+02_jprb,2.8602e+02_jprb/)
1265 kbo( :,16,14) = (/&
1266 &3.3180e+02_jprb,3.2877e+02_jprb,3.2564e+02_jprb,3.2149e+02_jprb,3.1785e+02_jprb/)
1267 kbo( :,17,14) = (/&
1268 &3.6593e+02_jprb,3.6291e+02_jprb,3.5866e+02_jprb,3.5483e+02_jprb,3.5327e+02_jprb/)
1269 kbo( :,18,14) = (/&
1270 &4.0089e+02_jprb,3.9701e+02_jprb,3.9353e+02_jprb,3.9249e+02_jprb,3.9242e+02_jprb/)
1271 kbo( :,19,14) = (/&
1272 &4.3492e+02_jprb,4.3255e+02_jprb,4.3249e+02_jprb,4.3314e+02_jprb,4.3203e+02_jprb/)
1273 kbo( :,20,14) = (/&
1274 &4.6851e+02_jprb,4.6867e+02_jprb,4.6996e+02_jprb,4.7008e+02_jprb,4.6768e+02_jprb/)
1275 kbo( :,21,14) = (/&
1276 &5.0160e+02_jprb,5.0368e+02_jprb,5.0510e+02_jprb,5.0393e+02_jprb,5.0142e+02_jprb/)
1277 kbo( :,22,14) = (/&
1278 &5.3436e+02_jprb,5.3662e+02_jprb,5.3668e+02_jprb,5.3522e+02_jprb,5.3316e+02_jprb/)
1279 kbo( :,23,14) = (/&
1280 &5.6475e+02_jprb,5.6646e+02_jprb,5.6617e+02_jprb,5.6492e+02_jprb,5.6377e+02_jprb/)
1281 kbo( :,24,14) = (/&
1282 &5.9117e+02_jprb,5.9235e+02_jprb,5.9305e+02_jprb,5.9284e+02_jprb,5.9155e+02_jprb/)
1283 kbo( :,25,14) = (/&
1284 &6.1433e+02_jprb,6.1663e+02_jprb,6.1844e+02_jprb,6.1841e+02_jprb,6.1657e+02_jprb/)
1285 kbo( :,26,14) = (/&
1286 &6.3532e+02_jprb,6.3942e+02_jprb,6.4146e+02_jprb,6.4105e+02_jprb,6.3887e+02_jprb/)
1287 kbo( :,27,14) = (/&
1288 &6.5539e+02_jprb,6.6044e+02_jprb,6.6224e+02_jprb,6.6141e+02_jprb,6.5941e+02_jprb/)
1289 kbo( :,28,14) = (/&
1290 &6.7497e+02_jprb,6.7980e+02_jprb,6.8130e+02_jprb,6.7994e+02_jprb,6.7811e+02_jprb/)
1291 kbo( :,29,14) = (/&
1292 &6.9431e+02_jprb,6.9884e+02_jprb,6.9950e+02_jprb,6.9835e+02_jprb,6.9642e+02_jprb/)
1293 kbo( :,30,14) = (/&
1294 &7.1327e+02_jprb,7.1751e+02_jprb,7.1742e+02_jprb,7.1698e+02_jprb,7.1542e+02_jprb/)
1295 kbo( :,31,14) = (/&
1296 &7.3356e+02_jprb,7.3622e+02_jprb,7.3751e+02_jprb,7.3724e+02_jprb,7.3663e+02_jprb/)
1297 kbo( :,32,14) = (/&
1298 &7.5311e+02_jprb,7.5602e+02_jprb,7.5787e+02_jprb,7.5927e+02_jprb,7.5912e+02_jprb/)
1299 kbo( :,33,14) = (/&
1300 &7.7307e+02_jprb,7.7793e+02_jprb,7.8149e+02_jprb,7.8317e+02_jprb,7.8351e+02_jprb/)
1301 kbo( :,34,14) = (/&
1302 &7.9467e+02_jprb,8.0056e+02_jprb,8.0525e+02_jprb,8.0749e+02_jprb,8.0900e+02_jprb/)
1303 kbo( :,35,14) = (/&
1304 &8.1769e+02_jprb,8.2551e+02_jprb,8.3062e+02_jprb,8.3402e+02_jprb,8.3937e+02_jprb/)
1305 kbo( :,36,14) = (/&
1306 &8.4220e+02_jprb,8.5215e+02_jprb,8.5810e+02_jprb,8.6400e+02_jprb,8.7476e+02_jprb/)
1307 kbo( :,37,14) = (/&
1308 &8.5305e+02_jprb,8.6405e+02_jprb,8.7082e+02_jprb,8.7797e+02_jprb,8.9053e+02_jprb/)
1309 kbo( :,38,14) = (/&
1310 &8.6322e+02_jprb,8.7544e+02_jprb,8.8314e+02_jprb,8.9164e+02_jprb,9.0590e+02_jprb/)
1311 kbo( :,39,14) = (/&
1312 &8.7378e+02_jprb,8.8745e+02_jprb,8.9629e+02_jprb,9.0629e+02_jprb,9.2255e+02_jprb/)
1313 kbo( :,40,14) = (/&
1314 &8.7238e+02_jprb,8.8620e+02_jprb,8.9614e+02_jprb,9.0579e+02_jprb,9.1970e+02_jprb/)
1315 kbo( :,41,14) = (/&
1316 &8.6852e+02_jprb,8.8300e+02_jprb,8.9419e+02_jprb,9.0301e+02_jprb,9.1475e+02_jprb/)
1317 kbo( :,42,14) = (/&
1318 &8.6436e+02_jprb,8.7945e+02_jprb,8.9208e+02_jprb,9.0006e+02_jprb,9.1044e+02_jprb/)
1319 kbo( :,43,14) = (/&
1320 &8.5621e+02_jprb,8.7164e+02_jprb,8.8447e+02_jprb,8.9300e+02_jprb,9.0169e+02_jprb/)
1321 kbo( :,44,14) = (/&
1322 &8.4579e+02_jprb,8.6160e+02_jprb,8.7458e+02_jprb,8.8449e+02_jprb,8.9117e+02_jprb/)
1323 kbo( :,45,14) = (/&
1324 &8.3552e+02_jprb,8.5159e+02_jprb,8.6481e+02_jprb,8.7553e+02_jprb,8.8180e+02_jprb/)
1325 kbo( :,46,14) = (/&
1326 &8.2373e+02_jprb,8.4082e+02_jprb,8.5433e+02_jprb,8.6532e+02_jprb,8.7296e+02_jprb/)
1327 kbo( :,47,14) = (/&
1328 &8.0885e+02_jprb,8.2944e+02_jprb,8.4330e+02_jprb,8.5448e+02_jprb,8.6308e+02_jprb/)
1329 kbo( :,48,14) = (/&
1330 &7.9282e+02_jprb,8.1701e+02_jprb,8.3172e+02_jprb,8.4330e+02_jprb,8.5233e+02_jprb/)
1331 kbo( :,49,14) = (/&
1332 &7.7474e+02_jprb,8.0258e+02_jprb,8.2078e+02_jprb,8.3236e+02_jprb,8.4158e+02_jprb/)
1333 kbo( :,50,14) = (/&
1334 &7.5683e+02_jprb,7.8804e+02_jprb,8.0940e+02_jprb,8.2148e+02_jprb,8.3083e+02_jprb/)
1335 kbo( :,51,14) = (/&
1336 &7.3938e+02_jprb,7.7206e+02_jprb,7.9641e+02_jprb,8.1162e+02_jprb,8.2058e+02_jprb/)
1337 kbo( :,52,14) = (/&
1338 &7.2202e+02_jprb,7.5535e+02_jprb,7.8294e+02_jprb,8.0108e+02_jprb,8.1024e+02_jprb/)
1339 kbo( :,53,14) = (/&
1340 &7.0324e+02_jprb,7.3897e+02_jprb,7.6789e+02_jprb,7.8856e+02_jprb,8.0094e+02_jprb/)
1341 kbo( :,54,14) = (/&
1342 &6.8557e+02_jprb,7.2372e+02_jprb,7.5272e+02_jprb,7.7628e+02_jprb,7.9095e+02_jprb/)
1343 kbo( :,55,14) = (/&
1344 &6.6859e+02_jprb,7.0784e+02_jprb,7.3838e+02_jprb,7.6303e+02_jprb,7.7977e+02_jprb/)
1345 kbo( :,56,14) = (/&
1346 &6.5053e+02_jprb,6.9180e+02_jprb,7.2460e+02_jprb,7.4881e+02_jprb,7.6818e+02_jprb/)
1347 kbo( :,57,14) = (/&
1348 &6.3162e+02_jprb,6.7617e+02_jprb,7.0983e+02_jprb,7.3529e+02_jprb,7.5540e+02_jprb/)
1349 kbo( :,58,14) = (/&
1350 &6.1260e+02_jprb,6.6039e+02_jprb,6.9564e+02_jprb,7.2278e+02_jprb,7.4208e+02_jprb/)
1351 kbo( :,59,14) = (/&
1352 &6.0339e+02_jprb,6.5209e+02_jprb,6.8806e+02_jprb,7.1492e+02_jprb,7.3375e+02_jprb/)
1353 kbo( :,13,15) = (/&
1354 &3.5098e+02_jprb,3.4253e+02_jprb,3.3549e+02_jprb,3.2928e+02_jprb,3.2668e+02_jprb/)
1355 kbo( :,14,15) = (/&
1356 &4.0377e+02_jprb,3.9399e+02_jprb,3.8548e+02_jprb,3.7889e+02_jprb,3.7631e+02_jprb/)
1357 kbo( :,15,15) = (/&
1358 &4.6249e+02_jprb,4.5101e+02_jprb,4.4105e+02_jprb,4.3505e+02_jprb,4.3250e+02_jprb/)
1359 kbo( :,16,15) = (/&
1360 &5.2722e+02_jprb,5.1397e+02_jprb,5.0360e+02_jprb,4.9808e+02_jprb,4.9380e+02_jprb/)
1361 kbo( :,17,15) = (/&
1362 &5.9816e+02_jprb,5.8291e+02_jprb,5.7380e+02_jprb,5.6753e+02_jprb,5.5862e+02_jprb/)
1363 kbo( :,18,15) = (/&
1364 &6.7401e+02_jprb,6.5981e+02_jprb,6.5045e+02_jprb,6.3876e+02_jprb,6.2938e+02_jprb/)
1365 kbo( :,19,15) = (/&
1366 &7.5603e+02_jprb,7.4243e+02_jprb,7.2713e+02_jprb,7.1493e+02_jprb,7.1147e+02_jprb/)
1367 kbo( :,20,15) = (/&
1368 &8.4018e+02_jprb,8.2182e+02_jprb,8.0329e+02_jprb,7.9254e+02_jprb,7.9403e+02_jprb/)
1369 kbo( :,21,15) = (/&
1370 &9.2407e+02_jprb,8.9903e+02_jprb,8.7966e+02_jprb,8.7268e+02_jprb,8.7487e+02_jprb/)
1371 kbo( :,22,15) = (/&
1372 &1.0011e+03_jprb,9.7360e+02_jprb,9.5759e+02_jprb,9.5258e+02_jprb,9.5318e+02_jprb/)
1373 kbo( :,23,15) = (/&
1374 &1.0752e+03_jprb,1.0483e+03_jprb,1.0346e+03_jprb,1.0305e+03_jprb,1.0291e+03_jprb/)
1375 kbo( :,24,15) = (/&
1376 &1.1456e+03_jprb,1.1222e+03_jprb,1.1083e+03_jprb,1.1031e+03_jprb,1.1046e+03_jprb/)
1377 kbo( :,25,15) = (/&
1378 &1.2128e+03_jprb,1.1904e+03_jprb,1.1781e+03_jprb,1.1730e+03_jprb,1.1805e+03_jprb/)
1379 kbo( :,26,15) = (/&
1380 &1.2750e+03_jprb,1.2517e+03_jprb,1.2401e+03_jprb,1.2396e+03_jprb,1.2511e+03_jprb/)
1381 kbo( :,27,15) = (/&
1382 &1.3306e+03_jprb,1.3092e+03_jprb,1.2993e+03_jprb,1.3047e+03_jprb,1.3242e+03_jprb/)
1383 kbo( :,28,15) = (/&
1384 &1.3803e+03_jprb,1.3622e+03_jprb,1.3582e+03_jprb,1.3721e+03_jprb,1.4060e+03_jprb/)
1385 kbo( :,29,15) = (/&
1386 &1.4288e+03_jprb,1.4164e+03_jprb,1.4235e+03_jprb,1.4518e+03_jprb,1.5063e+03_jprb/)
1387 kbo( :,30,15) = (/&
1388 &1.4796e+03_jprb,1.4775e+03_jprb,1.4997e+03_jprb,1.5506e+03_jprb,1.6294e+03_jprb/)
1389 kbo( :,31,15) = (/&
1390 &1.5388e+03_jprb,1.5544e+03_jprb,1.6015e+03_jprb,1.6845e+03_jprb,1.7959e+03_jprb/)
1391 kbo( :,32,15) = (/&
1392 &1.6108e+03_jprb,1.6524e+03_jprb,1.7357e+03_jprb,1.8549e+03_jprb,2.0073e+03_jprb/)
1393 kbo( :,33,15) = (/&
1394 &1.7049e+03_jprb,1.7848e+03_jprb,1.9109e+03_jprb,2.0795e+03_jprb,2.2809e+03_jprb/)
1395 kbo( :,34,15) = (/&
1396 &1.8222e+03_jprb,1.9474e+03_jprb,2.1232e+03_jprb,2.3448e+03_jprb,2.6010e+03_jprb/)
1397 kbo( :,35,15) = (/&
1398 &1.9666e+03_jprb,2.1410e+03_jprb,2.3742e+03_jprb,2.6548e+03_jprb,2.9712e+03_jprb/)
1399 kbo( :,36,15) = (/&
1400 &2.1340e+03_jprb,2.3637e+03_jprb,2.6606e+03_jprb,3.0085e+03_jprb,3.3914e+03_jprb/)
1401 kbo( :,37,15) = (/&
1402 &2.1914e+03_jprb,2.4375e+03_jprb,2.7564e+03_jprb,3.1300e+03_jprb,3.5406e+03_jprb/)
1403 kbo( :,38,15) = (/&
1404 &2.2462e+03_jprb,2.5086e+03_jprb,2.8496e+03_jprb,3.2486e+03_jprb,3.6885e+03_jprb/)
1405 kbo( :,39,15) = (/&
1406 &2.3075e+03_jprb,2.5896e+03_jprb,2.9560e+03_jprb,3.3853e+03_jprb,3.8593e+03_jprb/)
1407 kbo( :,40,15) = (/&
1408 &2.2597e+03_jprb,2.5238e+03_jprb,2.8725e+03_jprb,3.2888e+03_jprb,3.7565e+03_jprb/)
1409 kbo( :,41,15) = (/&
1410 &2.2030e+03_jprb,2.4431e+03_jprb,2.7663e+03_jprb,3.1637e+03_jprb,3.6169e+03_jprb/)
1411 kbo( :,42,15) = (/&
1412 &2.1527e+03_jprb,2.3676e+03_jprb,2.6649e+03_jprb,3.0437e+03_jprb,3.4807e+03_jprb/)
1413 kbo( :,43,15) = (/&
1414 &2.0801e+03_jprb,2.2578e+03_jprb,2.5168e+03_jprb,2.8580e+03_jprb,3.2606e+03_jprb/)
1415 kbo( :,44,15) = (/&
1416 &2.0120e+03_jprb,2.1487e+03_jprb,2.3643e+03_jprb,2.6580e+03_jprb,3.0218e+03_jprb/)
1417 kbo( :,45,15) = (/&
1418 &1.9613e+03_jprb,2.0594e+03_jprb,2.2322e+03_jprb,2.4807e+03_jprb,2.8037e+03_jprb/)
1419 kbo( :,46,15) = (/&
1420 &1.9248e+03_jprb,1.9849e+03_jprb,2.1161e+03_jprb,2.3204e+03_jprb,2.5965e+03_jprb/)
1421 kbo( :,47,15) = (/&
1422 &1.9027e+03_jprb,1.9263e+03_jprb,2.0143e+03_jprb,2.1716e+03_jprb,2.3989e+03_jprb/)
1423 kbo( :,48,15) = (/&
1424 &1.8901e+03_jprb,1.8881e+03_jprb,1.9372e+03_jprb,2.0507e+03_jprb,2.2312e+03_jprb/)
1425 kbo( :,49,15) = (/&
1426 &1.8889e+03_jprb,1.8669e+03_jprb,1.8827e+03_jprb,1.9550e+03_jprb,2.0905e+03_jprb/)
1427 kbo( :,50,15) = (/&
1428 &1.8989e+03_jprb,1.8542e+03_jprb,1.8471e+03_jprb,1.8860e+03_jprb,1.9820e+03_jprb/)
1429 kbo( :,51,15) = (/&
1430 &1.9169e+03_jprb,1.8516e+03_jprb,1.8269e+03_jprb,1.8368e+03_jprb,1.8967e+03_jprb/)
1431 kbo( :,52,15) = (/&
1432 &1.9362e+03_jprb,1.8607e+03_jprb,1.8138e+03_jprb,1.8022e+03_jprb,1.8318e+03_jprb/)
1433 kbo( :,53,15) = (/&
1434 &1.9614e+03_jprb,1.8769e+03_jprb,1.8109e+03_jprb,1.7819e+03_jprb,1.7849e+03_jprb/)
1435 kbo( :,54,15) = (/&
1436 &1.9844e+03_jprb,1.8925e+03_jprb,1.8175e+03_jprb,1.7685e+03_jprb,1.7516e+03_jprb/)
1437 kbo( :,55,15) = (/&
1438 &2.0020e+03_jprb,1.9117e+03_jprb,1.8292e+03_jprb,1.7630e+03_jprb,1.7309e+03_jprb/)
1439 kbo( :,56,15) = (/&
1440 &2.0278e+03_jprb,1.9328e+03_jprb,1.8420e+03_jprb,1.7676e+03_jprb,1.7165e+03_jprb/)
1441 kbo( :,57,15) = (/&
1442 &2.0604e+03_jprb,1.9486e+03_jprb,1.8586e+03_jprb,1.7772e+03_jprb,1.7105e+03_jprb/)
1443 kbo( :,58,15) = (/&
1444 &2.0975e+03_jprb,1.9708e+03_jprb,1.8754e+03_jprb,1.7869e+03_jprb,1.7130e+03_jprb/)
1445 kbo( :,59,15) = (/&
1446 &2.1134e+03_jprb,1.9790e+03_jprb,1.8747e+03_jprb,1.7853e+03_jprb,1.7084e+03_jprb/)
1447 kbo( :,13,16) = (/&
1448 &5.7032e+02_jprb,5.5610e+02_jprb,5.4108e+02_jprb,5.2545e+02_jprb,5.0988e+02_jprb/)
1449 kbo( :,14,16) = (/&
1450 &6.6729e+02_jprb,6.4906e+02_jprb,6.2994e+02_jprb,6.1106e+02_jprb,5.9252e+02_jprb/)
1451 kbo( :,15,16) = (/&
1452 &7.7710e+02_jprb,7.5381e+02_jprb,7.3065e+02_jprb,7.0752e+02_jprb,6.8404e+02_jprb/)
1453 kbo( :,16,16) = (/&
1454 &8.9983e+02_jprb,8.7150e+02_jprb,8.4258e+02_jprb,8.1329e+02_jprb,7.9266e+02_jprb/)
1455 kbo( :,17,16) = (/&
1456 &1.0356e+03_jprb,9.9960e+02_jprb,9.6297e+02_jprb,9.3112e+02_jprb,9.3376e+02_jprb/)
1457 kbo( :,18,16) = (/&
1458 &1.1805e+03_jprb,1.1349e+03_jprb,1.0927e+03_jprb,1.0913e+03_jprb,1.1178e+03_jprb/)
1459 kbo( :,19,16) = (/&
1460 &1.3301e+03_jprb,1.2743e+03_jprb,1.2636e+03_jprb,1.2905e+03_jprb,1.3412e+03_jprb/)
1461 kbo( :,20,16) = (/&
1462 &1.4790e+03_jprb,1.4325e+03_jprb,1.4416e+03_jprb,1.4834e+03_jprb,1.5509e+03_jprb/)
1463 kbo( :,21,16) = (/&
1464 &1.6248e+03_jprb,1.6005e+03_jprb,1.6227e+03_jprb,1.6765e+03_jprb,1.7801e+03_jprb/)
1465 kbo( :,22,16) = (/&
1466 &1.7789e+03_jprb,1.7751e+03_jprb,1.8121e+03_jprb,1.8963e+03_jprb,2.0533e+03_jprb/)
1467 kbo( :,23,16) = (/&
1468 &1.9420e+03_jprb,1.9550e+03_jprb,2.0171e+03_jprb,2.1515e+03_jprb,2.3736e+03_jprb/)
1469 kbo( :,24,16) = (/&
1470 &2.1057e+03_jprb,2.1395e+03_jprb,2.2516e+03_jprb,2.4478e+03_jprb,2.7312e+03_jprb/)
1471 kbo( :,25,16) = (/&
1472 &2.2727e+03_jprb,2.3487e+03_jprb,2.5135e+03_jprb,2.7876e+03_jprb,3.1353e+03_jprb/)
1473 kbo( :,26,16) = (/&
1474 &2.4430e+03_jprb,2.5769e+03_jprb,2.8118e+03_jprb,3.1571e+03_jprb,3.5871e+03_jprb/)
1475 kbo( :,27,16) = (/&
1476 &2.6427e+03_jprb,2.8396e+03_jprb,3.1669e+03_jprb,3.5883e+03_jprb,4.0930e+03_jprb/)
1477 kbo( :,28,16) = (/&
1478 &2.8823e+03_jprb,3.1635e+03_jprb,3.5805e+03_jprb,4.0928e+03_jprb,4.6511e+03_jprb/)
1479 kbo( :,29,16) = (/&
1480 &3.1912e+03_jprb,3.5861e+03_jprb,4.1049e+03_jprb,4.7016e+03_jprb,5.3176e+03_jprb/)
1481 kbo( :,30,16) = (/&
1482 &3.5968e+03_jprb,4.1208e+03_jprb,4.7628e+03_jprb,5.4277e+03_jprb,6.1129e+03_jprb/)
1483 kbo( :,31,16) = (/&
1484 &4.1669e+03_jprb,4.8568e+03_jprb,5.5986e+03_jprb,6.3508e+03_jprb,7.1245e+03_jprb/)
1485 kbo( :,32,16) = (/&
1486 &4.9181e+03_jprb,5.7548e+03_jprb,6.5943e+03_jprb,7.4480e+03_jprb,8.3250e+03_jprb/)
1487 kbo( :,33,16) = (/&
1488 &5.8885e+03_jprb,6.8470e+03_jprb,7.8053e+03_jprb,8.7780e+03_jprb,9.7768e+03_jprb/)
1489 kbo( :,34,16) = (/&
1490 &6.9635e+03_jprb,8.0514e+03_jprb,9.1398e+03_jprb,1.0245e+04_jprb,1.1380e+04_jprb/)
1491 kbo( :,35,16) = (/&
1492 &8.1473e+03_jprb,9.3881e+03_jprb,1.0630e+04_jprb,1.1894e+04_jprb,1.3185e+04_jprb/)
1493 kbo( :,36,16) = (/&
1494 &9.4364e+03_jprb,1.0865e+04_jprb,1.2293e+04_jprb,1.3743e+04_jprb,1.5227e+04_jprb/)
1495 kbo( :,37,16) = (/&
1496 &9.8676e+03_jprb,1.1389e+04_jprb,1.2910e+04_jprb,1.4442e+04_jprb,1.6011e+04_jprb/)
1497 kbo( :,38,16) = (/&
1498 &1.0288e+04_jprb,1.1907e+04_jprb,1.3518e+04_jprb,1.5146e+04_jprb,1.6802e+04_jprb/)
1499 kbo( :,39,16) = (/&
1500 &1.0771e+04_jprb,1.2499e+04_jprb,1.4216e+04_jprb,1.5954e+04_jprb,1.7707e+04_jprb/)
1501 kbo( :,40,16) = (/&
1502 &1.0414e+04_jprb,1.2148e+04_jprb,1.3875e+04_jprb,1.5613e+04_jprb,1.7368e+04_jprb/)
1503 kbo( :,41,16) = (/&
1504 &9.9384e+03_jprb,1.1661e+04_jprb,1.3383e+04_jprb,1.5104e+04_jprb,1.6844e+04_jprb/)
1505 kbo( :,42,16) = (/&
1506 &9.4612e+03_jprb,1.1170e+04_jprb,1.2888e+04_jprb,1.4596e+04_jprb,1.6317e+04_jprb/)
1507 kbo( :,43,16) = (/&
1508 &8.7147e+03_jprb,1.0370e+04_jprb,1.2042e+04_jprb,1.3705e+04_jprb,1.5380e+04_jprb/)
1509 kbo( :,44,16) = (/&
1510 &7.8820e+03_jprb,9.4600e+03_jprb,1.1070e+04_jprb,1.2678e+04_jprb,1.4284e+04_jprb/)
1511 kbo( :,45,16) = (/&
1512 &7.0926e+03_jprb,8.5904e+03_jprb,1.0135e+04_jprb,1.1689e+04_jprb,1.3230e+04_jprb/)
1513 kbo( :,46,16) = (/&
1514 &6.3333e+03_jprb,7.7267e+03_jprb,9.1993e+03_jprb,1.0689e+04_jprb,1.2169e+04_jprb/)
1515 kbo( :,47,16) = (/&
1516 &5.6159e+03_jprb,6.8398e+03_jprb,8.2286e+03_jprb,9.6499e+03_jprb,1.1071e+04_jprb/)
1517 kbo( :,48,16) = (/&
1518 &5.0469e+03_jprb,6.0380e+03_jprb,7.3127e+03_jprb,8.6620e+03_jprb,1.0021e+04_jprb/)
1519 kbo( :,49,16) = (/&
1520 &4.6114e+03_jprb,5.3556e+03_jprb,6.4573e+03_jprb,7.7273e+03_jprb,9.0204e+03_jprb/)
1521 kbo( :,50,16) = (/&
1522 &4.2827e+03_jprb,4.8418e+03_jprb,5.7290e+03_jprb,6.8837e+03_jprb,8.1065e+03_jprb/)
1523 kbo( :,51,16) = (/&
1524 &4.0377e+03_jprb,4.4505e+03_jprb,5.1216e+03_jprb,6.1118e+03_jprb,7.2612e+03_jprb/)
1525 kbo( :,52,16) = (/&
1526 &3.9027e+03_jprb,4.1388e+03_jprb,4.6373e+03_jprb,5.4292e+03_jprb,6.4624e+03_jprb/)
1527 kbo( :,53,16) = (/&
1528 &3.8594e+03_jprb,3.9014e+03_jprb,4.2603e+03_jprb,4.8496e+03_jprb,5.7176e+03_jprb/)
1529 kbo( :,54,16) = (/&
1530 &3.9053e+03_jprb,3.7705e+03_jprb,3.9739e+03_jprb,4.4065e+03_jprb,5.0959e+03_jprb/)
1531 kbo( :,55,16) = (/&
1532 &4.0460e+03_jprb,3.7217e+03_jprb,3.7544e+03_jprb,4.0660e+03_jprb,4.5765e+03_jprb/)
1533 kbo( :,56,16) = (/&
1534 &4.2054e+03_jprb,3.7493e+03_jprb,3.6207e+03_jprb,3.7906e+03_jprb,4.1568e+03_jprb/)
1535 kbo( :,57,16) = (/&
1536 &4.3770e+03_jprb,3.8799e+03_jprb,3.5717e+03_jprb,3.5790e+03_jprb,3.8293e+03_jprb/)
1537 kbo( :,58,16) = (/&
1538 &4.5510e+03_jprb,4.0210e+03_jprb,3.5972e+03_jprb,3.4529e+03_jprb,3.5736e+03_jprb/)
1539 kbo( :,59,16) = (/&
1540 &4.6237e+03_jprb,4.0799e+03_jprb,3.6344e+03_jprb,3.3958e+03_jprb,3.4194e+03_jprb/)
1541 
1542 ! -----------------------------------------------------------------
1543 RETURN
1544 END SUBROUTINE rrtm_kgb9_bb
real(kind=jprb), dimension(no9) fracrefbo
Definition: yoerrto9.F90:18
real(kind=jprb), dimension(11, 5, 13, no9) kao
Definition: yoerrto9.F90:22
real(kind=jprb), dimension(48) absn2oo
Definition: yoerrto9.F90:20
subroutine rrtm_kgb9_bb
Definition: rrtm_kgb9_BB.F90:3
real(kind=jprb), dimension(13) ch4ref
Definition: yoerrta9.F90:21
real(kind=jprb), dimension(13) n2oref
Definition: yoerrta9.F90:19
real(kind=jprb), dimension(10, no9) selfrefo
Definition: yoerrto9.F90:24
real(kind=jprb) strrat
Definition: yoerrta9.F90:29
real(kind=jprb), dimension(no9, 9) fracrefao
Definition: yoerrto9.F90:16
real(kind=jprb), dimension(11) etaref
Definition: yoerrta9.F90:22
real(kind=jprb), dimension(13) h2oref
Definition: yoerrta9.F90:20
real(kind=jprb), dimension(5, 13:59, no9) kbo
Definition: yoerrto9.F90:23