LMDZ
rrtm_kgb2_02.F90
Go to the documentation of this file.
1 !OCL SCALAR
2 SUBROUTINE rrtm_kgb2_02
3 
4 ! Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
5 ! BAND 2: 250-500 cm-1 (low - H2O; high - H2O)
6 ! Reformatted for F90 by JJMorcrette, ECMWF
7 
8 ! ------------------------------------------------------------------
9 
10 #include "tsmbkind.h"
11 
12 USE yoerrto2 , ONLY : kao ,kbo ,selfrefo ,fracrefao ,&
14 USE yoerrta2 , ONLY : refparam
15 
16 ! ------------------------------------------------------------------
17 
18 
19 IMPLICIT NONE
20 
21 ! ------------------------------------------------------------------
22 
23 ! The array KBO contains absorption coefs at the 16 chosen g-values
24 ! for a range of pressure levels < ~100mb and temperatures. The first
25 ! index in the array, JT, which runs from 1 to 5, corresponds to
26 ! different temperatures. More specifically, JT = 3 means that the
27 ! data are for the reference temperature TREF for this pressure
28 ! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
29 ! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.
30 ! The second index, JP, runs from 13 to 59 and refers to the JPth
31 ! reference pressure level (see taumol.f for the value of these
32 ! pressure levels in mb). The third index, IG, goes from 1 to 16,
33 ! and tells us which g-interval the absorption coefficients are for.
34 
35 kbo( :,13, 1) = (/&
36 &1.1165e-03_jprb,1.1247e-03_jprb,1.1560e-03_jprb,1.2076e-03_jprb,1.2869e-03_jprb/)
37 kbo( :,14, 1) = (/&
38 &9.1499e-04_jprb,9.2417e-04_jprb,9.5214e-04_jprb,9.9793e-04_jprb,1.0647e-03_jprb/)
39 kbo( :,15, 1) = (/&
40 &7.4895e-04_jprb,7.5885e-04_jprb,7.8398e-04_jprb,8.2364e-04_jprb,8.7934e-04_jprb/)
41 kbo( :,16, 1) = (/&
42 &6.1285e-04_jprb,6.2301e-04_jprb,6.4528e-04_jprb,6.7919e-04_jprb,7.2561e-04_jprb/)
43 kbo( :,17, 1) = (/&
44 &5.0161e-04_jprb,5.1162e-04_jprb,5.3088e-04_jprb,5.5956e-04_jprb,5.9827e-04_jprb/)
45 kbo( :,18, 1) = (/&
46 &4.1059e-04_jprb,4.2007e-04_jprb,4.3635e-04_jprb,4.6069e-04_jprb,4.9285e-04_jprb/)
47 kbo( :,19, 1) = (/&
48 &3.3641e-04_jprb,3.4500e-04_jprb,3.5879e-04_jprb,3.7929e-04_jprb,4.0616e-04_jprb/)
49 kbo( :,20, 1) = (/&
50 &2.7603e-04_jprb,2.8363e-04_jprb,2.9537e-04_jprb,3.1276e-04_jprb,3.3531e-04_jprb/)
51 kbo( :,21, 1) = (/&
52 &2.2659e-04_jprb,2.3317e-04_jprb,2.4324e-04_jprb,2.5796e-04_jprb,2.7695e-04_jprb/)
53 kbo( :,22, 1) = (/&
54 &1.8631e-04_jprb,1.9217e-04_jprb,2.0103e-04_jprb,2.1374e-04_jprb,2.2994e-04_jprb/)
55 kbo( :,23, 1) = (/&
56 &1.5327e-04_jprb,1.5846e-04_jprb,1.6631e-04_jprb,1.7723e-04_jprb,1.9096e-04_jprb/)
57 kbo( :,24, 1) = (/&
58 &1.2620e-04_jprb,1.3080e-04_jprb,1.3778e-04_jprb,1.4714e-04_jprb,1.5867e-04_jprb/)
59 kbo( :,25, 1) = (/&
60 &1.0400e-04_jprb,1.0810e-04_jprb,1.1426e-04_jprb,1.2231e-04_jprb,1.3192e-04_jprb/)
61 kbo( :,26, 1) = (/&
62 &8.5812e-05_jprb,8.9507e-05_jprb,9.4927e-05_jprb,1.0190e-04_jprb,1.0982e-04_jprb/)
63 kbo( :,27, 1) = (/&
64 &7.0859e-05_jprb,7.4205e-05_jprb,7.8939e-05_jprb,8.4957e-05_jprb,9.1449e-05_jprb/)
65 kbo( :,28, 1) = (/&
66 &5.8569e-05_jprb,6.1594e-05_jprb,6.5700e-05_jprb,7.0820e-05_jprb,7.6191e-05_jprb/)
67 kbo( :,29, 1) = (/&
68 &4.8465e-05_jprb,5.1177e-05_jprb,5.4745e-05_jprb,5.9040e-05_jprb,6.3532e-05_jprb/)
69 kbo( :,30, 1) = (/&
70 &4.0147e-05_jprb,4.2553e-05_jprb,4.5653e-05_jprb,4.9207e-05_jprb,5.2981e-05_jprb/)
71 kbo( :,31, 1) = (/&
72 &3.3300e-05_jprb,3.5414e-05_jprb,3.8102e-05_jprb,4.1014e-05_jprb,4.4195e-05_jprb/)
73 kbo( :,32, 1) = (/&
74 &2.7662e-05_jprb,2.9504e-05_jprb,3.1798e-05_jprb,3.4208e-05_jprb,3.6892e-05_jprb/)
75 kbo( :,33, 1) = (/&
76 &2.3000e-05_jprb,2.4605e-05_jprb,2.6531e-05_jprb,2.8549e-05_jprb,3.0814e-05_jprb/)
77 kbo( :,34, 1) = (/&
78 &1.9101e-05_jprb,2.0488e-05_jprb,2.2081e-05_jprb,2.3773e-05_jprb,2.5683e-05_jprb/)
79 kbo( :,35, 1) = (/&
80 &1.5772e-05_jprb,1.6945e-05_jprb,1.8248e-05_jprb,1.9654e-05_jprb,2.1248e-05_jprb/)
81 kbo( :,36, 1) = (/&
82 &1.2932e-05_jprb,1.3897e-05_jprb,1.4964e-05_jprb,1.6118e-05_jprb,1.7427e-05_jprb/)
83 kbo( :,37, 1) = (/&
84 &1.0500e-05_jprb,1.1266e-05_jprb,1.2140e-05_jprb,1.3070e-05_jprb,1.4122e-05_jprb/)
85 kbo( :,38, 1) = (/&
86 &8.5232e-06_jprb,9.1293e-06_jprb,9.8424e-06_jprb,1.0593e-05_jprb,1.1438e-05_jprb/)
87 kbo( :,39, 1) = (/&
88 &6.9199e-06_jprb,7.4001e-06_jprb,7.9793e-06_jprb,8.5851e-06_jprb,9.2651e-06_jprb/)
89 kbo( :,40, 1) = (/&
90 &5.5869e-06_jprb,5.9579e-06_jprb,6.4208e-06_jprb,6.9067e-06_jprb,7.4490e-06_jprb/)
91 kbo( :,41, 1) = (/&
92 &4.5102e-06_jprb,4.7959e-06_jprb,5.1598e-06_jprb,5.5535e-06_jprb,5.9845e-06_jprb/)
93 kbo( :,42, 1) = (/&
94 &3.6455e-06_jprb,3.8634e-06_jprb,4.1445e-06_jprb,4.4666e-06_jprb,4.8093e-06_jprb/)
95 kbo( :,43, 1) = (/&
96 &2.9434e-06_jprb,3.1045e-06_jprb,3.3181e-06_jprb,3.5779e-06_jprb,3.8500e-06_jprb/)
97 kbo( :,44, 1) = (/&
98 &2.3784e-06_jprb,2.4940e-06_jprb,2.6554e-06_jprb,2.8596e-06_jprb,3.0773e-06_jprb/)
99 kbo( :,45, 1) = (/&
100 &1.9254e-06_jprb,2.0073e-06_jprb,2.1280e-06_jprb,2.2840e-06_jprb,2.4615e-06_jprb/)
101 kbo( :,46, 1) = (/&
102 &1.5599e-06_jprb,1.6176e-06_jprb,1.7055e-06_jprb,1.8226e-06_jprb,1.9656e-06_jprb/)
103 kbo( :,47, 1) = (/&
104 &1.2647e-06_jprb,1.3045e-06_jprb,1.3657e-06_jprb,1.4527e-06_jprb,1.5636e-06_jprb/)
105 kbo( :,48, 1) = (/&
106 &1.0280e-06_jprb,1.0546e-06_jprb,1.0967e-06_jprb,1.1602e-06_jprb,1.2430e-06_jprb/)
107 kbo( :,49, 1) = (/&
108 &8.3899e-07_jprb,8.5435e-07_jprb,8.8348e-07_jprb,9.2841e-07_jprb,9.8990e-07_jprb/)
109 kbo( :,50, 1) = (/&
110 &6.8758e-07_jprb,6.9417e-07_jprb,7.1424e-07_jprb,7.4551e-07_jprb,7.9125e-07_jprb/)
111 kbo( :,51, 1) = (/&
112 &5.6525e-07_jprb,5.6564e-07_jprb,5.7879e-07_jprb,6.0067e-07_jprb,6.3406e-07_jprb/)
113 kbo( :,52, 1) = (/&
114 &4.6614e-07_jprb,4.6262e-07_jprb,4.6991e-07_jprb,4.8521e-07_jprb,5.0895e-07_jprb/)
115 kbo( :,53, 1) = (/&
116 &3.8583e-07_jprb,3.7971e-07_jprb,3.8237e-07_jprb,3.9285e-07_jprb,4.0940e-07_jprb/)
117 kbo( :,54, 1) = (/&
118 &3.1998e-07_jprb,3.1249e-07_jprb,3.1214e-07_jprb,3.1896e-07_jprb,3.3069e-07_jprb/)
119 kbo( :,55, 1) = (/&
120 &2.6585e-07_jprb,2.5784e-07_jprb,2.5568e-07_jprb,2.5953e-07_jprb,2.6785e-07_jprb/)
121 kbo( :,56, 1) = (/&
122 &2.2137e-07_jprb,2.1341e-07_jprb,2.1005e-07_jprb,2.1159e-07_jprb,2.1739e-07_jprb/)
123 kbo( :,57, 1) = (/&
124 &1.8477e-07_jprb,1.7712e-07_jprb,1.7304e-07_jprb,1.7292e-07_jprb,1.7676e-07_jprb/)
125 kbo( :,58, 1) = (/&
126 &1.5448e-07_jprb,1.4728e-07_jprb,1.4291e-07_jprb,1.4181e-07_jprb,1.4406e-07_jprb/)
127 kbo( :,59, 1) = (/&
128 &1.2795e-07_jprb,1.2169e-07_jprb,1.1777e-07_jprb,1.1651e-07_jprb,1.1802e-07_jprb/)
129 kbo( :,13, 2) = (/&
130 &2.9516e-03_jprb,2.9713e-03_jprb,3.0616e-03_jprb,3.2019e-03_jprb,3.4017e-03_jprb/)
131 kbo( :,14, 2) = (/&
132 &2.4197e-03_jprb,2.4414e-03_jprb,2.5207e-03_jprb,2.6407e-03_jprb,2.8167e-03_jprb/)
133 kbo( :,15, 2) = (/&
134 &1.9831e-03_jprb,2.0063e-03_jprb,2.0755e-03_jprb,2.1800e-03_jprb,2.3342e-03_jprb/)
135 kbo( :,16, 2) = (/&
136 &1.6252e-03_jprb,1.6492e-03_jprb,1.7097e-03_jprb,1.8014e-03_jprb,1.9341e-03_jprb/)
137 kbo( :,17, 2) = (/&
138 &1.3321e-03_jprb,1.3556e-03_jprb,1.4086e-03_jprb,1.4882e-03_jprb,1.6017e-03_jprb/)
139 kbo( :,18, 2) = (/&
140 &1.0920e-03_jprb,1.1148e-03_jprb,1.1610e-03_jprb,1.2292e-03_jprb,1.3248e-03_jprb/)
141 kbo( :,19, 2) = (/&
142 &8.9534e-04_jprb,9.1690e-04_jprb,9.5709e-04_jprb,1.0148e-03_jprb,1.0951e-03_jprb/)
143 kbo( :,20, 2) = (/&
144 &7.3445e-04_jprb,7.5503e-04_jprb,7.8958e-04_jprb,8.3863e-04_jprb,9.0600e-04_jprb/)
145 kbo( :,21, 2) = (/&
146 &6.0290e-04_jprb,6.2180e-04_jprb,6.5148e-04_jprb,6.9308e-04_jprb,7.4966e-04_jprb/)
147 kbo( :,22, 2) = (/&
148 &4.9595e-04_jprb,5.1353e-04_jprb,5.3937e-04_jprb,5.7561e-04_jprb,6.2348e-04_jprb/)
149 kbo( :,23, 2) = (/&
150 &4.0855e-04_jprb,4.2434e-04_jprb,4.4677e-04_jprb,4.7846e-04_jprb,5.1897e-04_jprb/)
151 kbo( :,24, 2) = (/&
152 &3.3704e-04_jprb,3.5087e-04_jprb,3.7041e-04_jprb,3.9825e-04_jprb,4.3254e-04_jprb/)
153 kbo( :,25, 2) = (/&
154 &2.7823e-04_jprb,2.9034e-04_jprb,3.0756e-04_jprb,3.3176e-04_jprb,3.6108e-04_jprb/)
155 kbo( :,26, 2) = (/&
156 &2.2988e-04_jprb,2.4065e-04_jprb,2.5599e-04_jprb,2.7689e-04_jprb,3.0218e-04_jprb/)
157 kbo( :,27, 2) = (/&
158 &1.9008e-04_jprb,1.9966e-04_jprb,2.1335e-04_jprb,2.3118e-04_jprb,2.5287e-04_jprb/)
159 kbo( :,28, 2) = (/&
160 &1.5729e-04_jprb,1.6582e-04_jprb,1.7804e-04_jprb,1.9321e-04_jprb,2.1158e-04_jprb/)
161 kbo( :,29, 2) = (/&
162 &1.3030e-04_jprb,1.3794e-04_jprb,1.4870e-04_jprb,1.6172e-04_jprb,1.7712e-04_jprb/)
163 kbo( :,30, 2) = (/&
164 &1.0807e-04_jprb,1.1491e-04_jprb,1.2423e-04_jprb,1.3552e-04_jprb,1.4830e-04_jprb/)
165 kbo( :,31, 2) = (/&
166 &8.9737e-05_jprb,9.5873e-05_jprb,1.0385e-04_jprb,1.1357e-04_jprb,1.2422e-04_jprb/)
167 kbo( :,32, 2) = (/&
168 &7.4607e-05_jprb,8.0114e-05_jprb,8.6925e-05_jprb,9.5160e-05_jprb,1.0409e-04_jprb/)
169 kbo( :,33, 2) = (/&
170 &6.2115e-05_jprb,6.6976e-05_jprb,7.2842e-05_jprb,7.9749e-05_jprb,8.7261e-05_jprb/)
171 kbo( :,34, 2) = (/&
172 &5.1667e-05_jprb,5.5854e-05_jprb,6.0911e-05_jprb,6.6641e-05_jprb,7.2945e-05_jprb/)
173 kbo( :,35, 2) = (/&
174 &4.2714e-05_jprb,4.6224e-05_jprb,5.0476e-05_jprb,5.5207e-05_jprb,6.0446e-05_jprb/)
175 kbo( :,36, 2) = (/&
176 &3.5033e-05_jprb,3.7916e-05_jprb,4.1413e-05_jprb,4.5290e-05_jprb,4.9590e-05_jprb/)
177 kbo( :,37, 2) = (/&
178 &2.8417e-05_jprb,3.0724e-05_jprb,3.3511e-05_jprb,3.6656e-05_jprb,4.0123e-05_jprb/)
179 kbo( :,38, 2) = (/&
180 &2.3044e-05_jprb,2.4879e-05_jprb,2.7091e-05_jprb,2.9646e-05_jprb,3.2440e-05_jprb/)
181 kbo( :,39, 2) = (/&
182 &1.8696e-05_jprb,2.0150e-05_jprb,2.1905e-05_jprb,2.3977e-05_jprb,2.6231e-05_jprb/)
183 kbo( :,40, 2) = (/&
184 &1.5079e-05_jprb,1.6190e-05_jprb,1.7561e-05_jprb,1.9219e-05_jprb,2.1019e-05_jprb/)
185 kbo( :,41, 2) = (/&
186 &1.2166e-05_jprb,1.2998e-05_jprb,1.4076e-05_jprb,1.5387e-05_jprb,1.6826e-05_jprb/)
187 kbo( :,42, 2) = (/&
188 &9.8245e-06_jprb,1.0447e-05_jprb,1.1292e-05_jprb,1.2314e-05_jprb,1.3470e-05_jprb/)
189 kbo( :,43, 2) = (/&
190 &7.9207e-06_jprb,8.3766e-06_jprb,9.0212e-06_jprb,9.8015e-06_jprb,1.0730e-05_jprb/)
191 kbo( :,44, 2) = (/&
192 &6.3891e-06_jprb,6.7204e-06_jprb,7.1950e-06_jprb,7.7968e-06_jprb,8.5295e-06_jprb/)
193 kbo( :,45, 2) = (/&
194 &5.1614e-06_jprb,5.4018e-06_jprb,5.7463e-06_jprb,6.2126e-06_jprb,6.7779e-06_jprb/)
195 kbo( :,46, 2) = (/&
196 &4.1735e-06_jprb,4.3451e-06_jprb,4.5931e-06_jprb,4.9450e-06_jprb,5.3724e-06_jprb/)
197 kbo( :,47, 2) = (/&
198 &3.3750e-06_jprb,3.4959e-06_jprb,3.6722e-06_jprb,3.9247e-06_jprb,4.2513e-06_jprb/)
199 kbo( :,48, 2) = (/&
200 &2.7418e-06_jprb,2.8192e-06_jprb,2.9434e-06_jprb,3.1225e-06_jprb,3.3711e-06_jprb/)
201 kbo( :,49, 2) = (/&
202 &2.2371e-06_jprb,2.2775e-06_jprb,2.3656e-06_jprb,2.4925e-06_jprb,2.6750e-06_jprb/)
203 kbo( :,50, 2) = (/&
204 &1.8317e-06_jprb,1.8465e-06_jprb,1.9073e-06_jprb,1.9984e-06_jprb,2.1290e-06_jprb/)
205 kbo( :,51, 2) = (/&
206 &1.5036e-06_jprb,1.5039e-06_jprb,1.5416e-06_jprb,1.6065e-06_jprb,1.7002e-06_jprb/)
207 kbo( :,52, 2) = (/&
208 &1.2365e-06_jprb,1.2289e-06_jprb,1.2476e-06_jprb,1.2944e-06_jprb,1.3617e-06_jprb/)
209 kbo( :,53, 2) = (/&
210 &1.0180e-06_jprb,1.0070e-06_jprb,1.0130e-06_jprb,1.0447e-06_jprb,1.0931e-06_jprb/)
211 kbo( :,54, 2) = (/&
212 &8.3881e-07_jprb,8.2694e-07_jprb,8.2607e-07_jprb,8.4574e-07_jprb,8.8059e-07_jprb/)
213 kbo( :,55, 2) = (/&
214 &6.9195e-07_jprb,6.7987e-07_jprb,6.7548e-07_jprb,6.8562e-07_jprb,7.1114e-07_jprb/)
215 kbo( :,56, 2) = (/&
216 &5.7173e-07_jprb,5.5948e-07_jprb,5.5356e-07_jprb,5.5733e-07_jprb,5.7508e-07_jprb/)
217 kbo( :,57, 2) = (/&
218 &4.7316e-07_jprb,4.6096e-07_jprb,4.5452e-07_jprb,4.5448e-07_jprb,4.6581e-07_jprb/)
219 kbo( :,58, 2) = (/&
220 &3.9189e-07_jprb,3.8013e-07_jprb,3.7366e-07_jprb,3.7160e-07_jprb,3.7785e-07_jprb/)
221 kbo( :,59, 2) = (/&
222 &3.2262e-07_jprb,3.1241e-07_jprb,3.0663e-07_jprb,3.0438e-07_jprb,3.0850e-07_jprb/)
223 kbo( :,13, 3) = (/&
224 &7.5527e-03_jprb,7.7875e-03_jprb,8.1613e-03_jprb,8.7500e-03_jprb,9.4693e-03_jprb/)
225 kbo( :,14, 3) = (/&
226 &6.2162e-03_jprb,6.4179e-03_jprb,6.7443e-03_jprb,7.2436e-03_jprb,7.8488e-03_jprb/)
227 kbo( :,15, 3) = (/&
228 &5.1154e-03_jprb,5.2899e-03_jprb,5.5758e-03_jprb,5.9977e-03_jprb,6.5097e-03_jprb/)
229 kbo( :,16, 3) = (/&
230 &4.2091e-03_jprb,4.3598e-03_jprb,4.6108e-03_jprb,4.9662e-03_jprb,5.4041e-03_jprb/)
231 kbo( :,17, 3) = (/&
232 &3.4624e-03_jprb,3.5931e-03_jprb,3.8125e-03_jprb,4.1118e-03_jprb,4.4867e-03_jprb/)
233 kbo( :,18, 3) = (/&
234 &2.8478e-03_jprb,2.9611e-03_jprb,3.1513e-03_jprb,3.4056e-03_jprb,3.7227e-03_jprb/)
235 kbo( :,19, 3) = (/&
236 &2.3424e-03_jprb,2.4403e-03_jprb,2.6050e-03_jprb,2.8205e-03_jprb,3.0875e-03_jprb/)
237 kbo( :,20, 3) = (/&
238 &1.9279e-03_jprb,2.0136e-03_jprb,2.1568e-03_jprb,2.3394e-03_jprb,2.5633e-03_jprb/)
239 kbo( :,21, 3) = (/&
240 &1.5868e-03_jprb,1.6625e-03_jprb,1.7866e-03_jprb,1.9403e-03_jprb,2.1279e-03_jprb/)
241 kbo( :,22, 3) = (/&
242 &1.3095e-03_jprb,1.3798e-03_jprb,1.4873e-03_jprb,1.6185e-03_jprb,1.7762e-03_jprb/)
243 kbo( :,23, 3) = (/&
244 &1.0820e-03_jprb,1.1470e-03_jprb,1.2388e-03_jprb,1.3506e-03_jprb,1.4828e-03_jprb/)
245 kbo( :,24, 3) = (/&
246 &8.9533e-04_jprb,9.5480e-04_jprb,1.0325e-03_jprb,1.1273e-03_jprb,1.2391e-03_jprb/)
247 kbo( :,25, 3) = (/&
248 &7.4229e-04_jprb,7.9534e-04_jprb,8.6151e-04_jprb,9.4186e-04_jprb,1.0361e-03_jprb/)
249 kbo( :,26, 3) = (/&
250 &6.1705e-04_jprb,6.6349e-04_jprb,7.2018e-04_jprb,7.8870e-04_jprb,8.6741e-04_jprb/)
251 kbo( :,27, 3) = (/&
252 &5.1373e-04_jprb,5.5377e-04_jprb,6.0259e-04_jprb,6.6085e-04_jprb,7.2640e-04_jprb/)
253 kbo( :,28, 3) = (/&
254 &4.2826e-04_jprb,4.6245e-04_jprb,5.0434e-04_jprb,5.5405e-04_jprb,6.0850e-04_jprb/)
255 kbo( :,29, 3) = (/&
256 &3.5730e-04_jprb,3.8667e-04_jprb,4.2255e-04_jprb,4.6475e-04_jprb,5.1008e-04_jprb/)
257 kbo( :,30, 3) = (/&
258 &2.9823e-04_jprb,3.2356e-04_jprb,3.5427e-04_jprb,3.8963e-04_jprb,4.2762e-04_jprb/)
259 kbo( :,31, 3) = (/&
260 &2.4915e-04_jprb,2.7111e-04_jprb,2.9730e-04_jprb,3.2676e-04_jprb,3.5853e-04_jprb/)
261 kbo( :,32, 3) = (/&
262 &2.0835e-04_jprb,2.2726e-04_jprb,2.4969e-04_jprb,2.7415e-04_jprb,3.0052e-04_jprb/)
263 kbo( :,33, 3) = (/&
264 &1.7440e-04_jprb,1.9063e-04_jprb,2.0966e-04_jprb,2.3004e-04_jprb,2.5180e-04_jprb/)
265 kbo( :,34, 3) = (/&
266 &1.4566e-04_jprb,1.5949e-04_jprb,1.7537e-04_jprb,1.9242e-04_jprb,2.1028e-04_jprb/)
267 kbo( :,35, 3) = (/&
268 &1.2069e-04_jprb,1.3227e-04_jprb,1.4538e-04_jprb,1.5949e-04_jprb,1.7412e-04_jprb/)
269 kbo( :,36, 3) = (/&
270 &9.9043e-05_jprb,1.0856e-04_jprb,1.1931e-04_jprb,1.3088e-04_jprb,1.4285e-04_jprb/)
271 kbo( :,37, 3) = (/&
272 &8.0192e-05_jprb,8.7828e-05_jprb,9.6552e-05_jprb,1.0592e-04_jprb,1.1571e-04_jprb/)
273 kbo( :,38, 3) = (/&
274 &6.4895e-05_jprb,7.1006e-05_jprb,7.8078e-05_jprb,8.5641e-05_jprb,9.3649e-05_jprb/)
275 kbo( :,39, 3) = (/&
276 &5.2529e-05_jprb,5.7417e-05_jprb,6.3137e-05_jprb,6.9248e-05_jprb,7.5786e-05_jprb/)
277 kbo( :,40, 3) = (/&
278 &4.2172e-05_jprb,4.6011e-05_jprb,5.0550e-05_jprb,5.5469e-05_jprb,6.0782e-05_jprb/)
279 kbo( :,41, 3) = (/&
280 &3.3845e-05_jprb,3.6843e-05_jprb,4.0405e-05_jprb,4.4378e-05_jprb,4.8669e-05_jprb/)
281 kbo( :,42, 3) = (/&
282 &2.7178e-05_jprb,2.9499e-05_jprb,3.2305e-05_jprb,3.5507e-05_jprb,3.8948e-05_jprb/)
283 kbo( :,43, 3) = (/&
284 &2.1748e-05_jprb,2.3526e-05_jprb,2.5707e-05_jprb,2.8262e-05_jprb,3.0999e-05_jprb/)
285 kbo( :,44, 3) = (/&
286 &1.7386e-05_jprb,1.8745e-05_jprb,2.0430e-05_jprb,2.2420e-05_jprb,2.4615e-05_jprb/)
287 kbo( :,45, 3) = (/&
288 &1.3919e-05_jprb,1.4955e-05_jprb,1.6239e-05_jprb,1.7786e-05_jprb,1.9548e-05_jprb/)
289 kbo( :,46, 3) = (/&
290 &1.1164e-05_jprb,1.1925e-05_jprb,1.2898e-05_jprb,1.4092e-05_jprb,1.5493e-05_jprb/)
291 kbo( :,47, 3) = (/&
292 &8.9724e-06_jprb,9.4906e-06_jprb,1.0225e-05_jprb,1.1136e-05_jprb,1.2214e-05_jprb/)
293 kbo( :,48, 3) = (/&
294 &7.2294e-06_jprb,7.5737e-06_jprb,8.1199e-06_jprb,8.8033e-06_jprb,9.6335e-06_jprb/)
295 kbo( :,49, 3) = (/&
296 &5.8381e-06_jprb,6.0726e-06_jprb,6.4582e-06_jprb,6.9718e-06_jprb,7.6076e-06_jprb/)
297 kbo( :,50, 3) = (/&
298 &4.7296e-06_jprb,4.8930e-06_jprb,5.1532e-06_jprb,5.5428e-06_jprb,6.0261e-06_jprb/)
299 kbo( :,51, 3) = (/&
300 &3.8399e-06_jprb,3.9514e-06_jprb,4.1284e-06_jprb,4.4168e-06_jprb,4.7822e-06_jprb/)
301 kbo( :,52, 3) = (/&
302 &3.1245e-06_jprb,3.1973e-06_jprb,3.3211e-06_jprb,3.5239e-06_jprb,3.8012e-06_jprb/)
303 kbo( :,53, 3) = (/&
304 &2.5471e-06_jprb,2.5925e-06_jprb,2.6785e-06_jprb,2.8158e-06_jprb,3.0258e-06_jprb/)
305 kbo( :,54, 3) = (/&
306 &2.0814e-06_jprb,2.1073e-06_jprb,2.1664e-06_jprb,2.2617e-06_jprb,2.4173e-06_jprb/)
307 kbo( :,55, 3) = (/&
308 &1.7028e-06_jprb,1.7165e-06_jprb,1.7558e-06_jprb,1.8239e-06_jprb,1.9350e-06_jprb/)
309 kbo( :,56, 3) = (/&
310 &1.3936e-06_jprb,1.4001e-06_jprb,1.4255e-06_jprb,1.4737e-06_jprb,1.5508e-06_jprb/)
311 kbo( :,57, 3) = (/&
312 &1.1409e-06_jprb,1.1442e-06_jprb,1.1589e-06_jprb,1.1924e-06_jprb,1.2461e-06_jprb/)
313 kbo( :,58, 3) = (/&
314 &9.3532e-07_jprb,9.3617e-07_jprb,9.4415e-07_jprb,9.6677e-07_jprb,1.0053e-06_jprb/)
315 kbo( :,59, 3) = (/&
316 &7.6716e-07_jprb,7.6655e-07_jprb,7.7193e-07_jprb,7.8900e-07_jprb,8.1899e-07_jprb/)
317 kbo( :,13, 4) = (/&
318 &2.0095e-02_jprb,2.1182e-02_jprb,2.2225e-02_jprb,2.3304e-02_jprb,2.4394e-02_jprb/)
319 kbo( :,14, 4) = (/&
320 &1.6601e-02_jprb,1.7480e-02_jprb,1.8338e-02_jprb,1.9231e-02_jprb,2.0128e-02_jprb/)
321 kbo( :,15, 4) = (/&
322 &1.3711e-02_jprb,1.4425e-02_jprb,1.5134e-02_jprb,1.5868e-02_jprb,1.6611e-02_jprb/)
323 kbo( :,16, 4) = (/&
324 &1.1319e-02_jprb,1.1903e-02_jprb,1.2490e-02_jprb,1.3094e-02_jprb,1.3700e-02_jprb/)
325 kbo( :,17, 4) = (/&
326 &9.3377e-03_jprb,9.8166e-03_jprb,1.0301e-02_jprb,1.0797e-02_jprb,1.1296e-02_jprb/)
327 kbo( :,18, 4) = (/&
328 &7.6994e-03_jprb,8.0931e-03_jprb,8.4951e-03_jprb,8.8986e-03_jprb,9.3140e-03_jprb/)
329 kbo( :,19, 4) = (/&
330 &6.3454e-03_jprb,6.6690e-03_jprb,7.0019e-03_jprb,7.3313e-03_jprb,7.6829e-03_jprb/)
331 kbo( :,20, 4) = (/&
332 &5.2328e-03_jprb,5.5001e-03_jprb,5.7724e-03_jprb,6.0469e-03_jprb,6.3413e-03_jprb/)
333 kbo( :,21, 4) = (/&
334 &4.3150e-03_jprb,4.5344e-03_jprb,4.7593e-03_jprb,4.9881e-03_jprb,5.2336e-03_jprb/)
335 kbo( :,22, 4) = (/&
336 &3.5703e-03_jprb,3.7499e-03_jprb,3.9366e-03_jprb,4.1268e-03_jprb,4.3318e-03_jprb/)
337 kbo( :,23, 4) = (/&
338 &2.9547e-03_jprb,3.1024e-03_jprb,3.2576e-03_jprb,3.4140e-03_jprb,3.5849e-03_jprb/)
339 kbo( :,24, 4) = (/&
340 &2.4452e-03_jprb,2.5697e-03_jprb,2.6961e-03_jprb,2.8259e-03_jprb,2.9642e-03_jprb/)
341 kbo( :,25, 4) = (/&
342 &2.0245e-03_jprb,2.1288e-03_jprb,2.2320e-03_jprb,2.3397e-03_jprb,2.4511e-03_jprb/)
343 kbo( :,26, 4) = (/&
344 &1.6785e-03_jprb,1.7643e-03_jprb,1.8488e-03_jprb,1.9387e-03_jprb,2.0283e-03_jprb/)
345 kbo( :,27, 4) = (/&
346 &1.3920e-03_jprb,1.4619e-03_jprb,1.5313e-03_jprb,1.6067e-03_jprb,1.6789e-03_jprb/)
347 kbo( :,28, 4) = (/&
348 &1.1548e-03_jprb,1.2112e-03_jprb,1.2686e-03_jprb,1.3305e-03_jprb,1.3899e-03_jprb/)
349 kbo( :,29, 4) = (/&
350 &9.5779e-04_jprb,1.0036e-03_jprb,1.0515e-03_jprb,1.1016e-03_jprb,1.1501e-03_jprb/)
351 kbo( :,30, 4) = (/&
352 &7.9398e-04_jprb,8.3159e-04_jprb,8.7176e-04_jprb,9.1222e-04_jprb,9.5119e-04_jprb/)
353 kbo( :,31, 4) = (/&
354 &6.5813e-04_jprb,6.8913e-04_jprb,7.2305e-04_jprb,7.5559e-04_jprb,7.8680e-04_jprb/)
355 kbo( :,32, 4) = (/&
356 &5.4557e-04_jprb,5.7133e-04_jprb,5.9920e-04_jprb,6.2591e-04_jprb,6.5094e-04_jprb/)
357 kbo( :,33, 4) = (/&
358 &4.5225e-04_jprb,4.7384e-04_jprb,4.9635e-04_jprb,5.1810e-04_jprb,5.3850e-04_jprb/)
359 kbo( :,34, 4) = (/&
360 &3.7429e-04_jprb,3.9240e-04_jprb,4.1057e-04_jprb,4.2811e-04_jprb,4.4483e-04_jprb/)
361 kbo( :,35, 4) = (/&
362 &3.0841e-04_jprb,3.2350e-04_jprb,3.3821e-04_jprb,3.5240e-04_jprb,3.6608e-04_jprb/)
363 kbo( :,36, 4) = (/&
364 &2.5285e-04_jprb,2.6525e-04_jprb,2.7729e-04_jprb,2.8885e-04_jprb,3.0006e-04_jprb/)
365 kbo( :,37, 4) = (/&
366 &2.0586e-04_jprb,2.1585e-04_jprb,2.2582e-04_jprb,2.3540e-04_jprb,2.4457e-04_jprb/)
367 kbo( :,38, 4) = (/&
368 &1.6753e-04_jprb,1.7559e-04_jprb,1.8384e-04_jprb,1.9177e-04_jprb,1.9927e-04_jprb/)
369 kbo( :,39, 4) = (/&
370 &1.3635e-04_jprb,1.4286e-04_jprb,1.4968e-04_jprb,1.5622e-04_jprb,1.6235e-04_jprb/)
371 kbo( :,40, 4) = (/&
372 &1.1045e-04_jprb,1.1567e-04_jprb,1.2132e-04_jprb,1.2672e-04_jprb,1.3176e-04_jprb/)
373 kbo( :,41, 4) = (/&
374 &8.9410e-05_jprb,9.3610e-05_jprb,9.8241e-05_jprb,1.0266e-04_jprb,1.0686e-04_jprb/)
375 kbo( :,42, 4) = (/&
376 &7.2378e-05_jprb,7.5781e-05_jprb,7.9465e-05_jprb,8.3145e-05_jprb,8.6672e-05_jprb/)
377 kbo( :,43, 4) = (/&
378 &5.8424e-05_jprb,6.1188e-05_jprb,6.4107e-05_jprb,6.7188e-05_jprb,7.0140e-05_jprb/)
379 kbo( :,44, 4) = (/&
380 &4.7058e-05_jprb,4.9346e-05_jprb,5.1671e-05_jprb,5.4230e-05_jprb,5.6657e-05_jprb/)
381 kbo( :,45, 4) = (/&
382 &3.7899e-05_jprb,3.9798e-05_jprb,4.1669e-05_jprb,4.3706e-05_jprb,4.5724e-05_jprb/)
383 kbo( :,46, 4) = (/&
384 &3.0497e-05_jprb,3.2055e-05_jprb,3.3572e-05_jprb,3.5176e-05_jprb,3.6873e-05_jprb/)
385 kbo( :,47, 4) = (/&
386 &2.4479e-05_jprb,2.5732e-05_jprb,2.6995e-05_jprb,2.8267e-05_jprb,2.9671e-05_jprb/)
387 kbo( :,48, 4) = (/&
388 &1.9635e-05_jprb,2.0659e-05_jprb,2.1706e-05_jprb,2.2729e-05_jprb,2.3830e-05_jprb/)
389 kbo( :,49, 4) = (/&
390 &1.5750e-05_jprb,1.6588e-05_jprb,1.7438e-05_jprb,1.8276e-05_jprb,1.9144e-05_jprb/)
391 kbo( :,50, 4) = (/&
392 &1.2638e-05_jprb,1.3327e-05_jprb,1.4014e-05_jprb,1.4713e-05_jprb,1.5408e-05_jprb/)
393 kbo( :,51, 4) = (/&
394 &1.0134e-05_jprb,1.0710e-05_jprb,1.1273e-05_jprb,1.1849e-05_jprb,1.2410e-05_jprb/)
395 kbo( :,52, 4) = (/&
396 &8.1350e-06_jprb,8.6070e-06_jprb,9.0666e-06_jprb,9.5314e-06_jprb,9.9961e-06_jprb/)
397 kbo( :,53, 4) = (/&
398 &6.5268e-06_jprb,6.9077e-06_jprb,7.2874e-06_jprb,7.6647e-06_jprb,8.0514e-06_jprb/)
399 kbo( :,54, 4) = (/&
400 &5.2400e-06_jprb,5.5504e-06_jprb,5.8662e-06_jprb,6.1754e-06_jprb,6.4922e-06_jprb/)
401 kbo( :,55, 4) = (/&
402 &4.2244e-06_jprb,4.4665e-06_jprb,4.7250e-06_jprb,4.9775e-06_jprb,5.2331e-06_jprb/)
403 kbo( :,56, 4) = (/&
404 &3.4163e-06_jprb,3.5930e-06_jprb,3.8023e-06_jprb,4.0104e-06_jprb,4.2175e-06_jprb/)
405 kbo( :,57, 4) = (/&
406 &2.7693e-06_jprb,2.8867e-06_jprb,3.0575e-06_jprb,3.2307e-06_jprb,3.4003e-06_jprb/)
407 kbo( :,58, 4) = (/&
408 &2.2500e-06_jprb,2.3279e-06_jprb,2.4627e-06_jprb,2.6048e-06_jprb,2.7433e-06_jprb/)
409 kbo( :,59, 4) = (/&
410 &1.8386e-06_jprb,1.8966e-06_jprb,2.0040e-06_jprb,2.1199e-06_jprb,2.2332e-06_jprb/)
411 kbo( :,13, 5) = (/&
412 &3.7227e-02_jprb,3.9236e-02_jprb,4.1136e-02_jprb,4.2635e-02_jprb,4.4125e-02_jprb/)
413 kbo( :,14, 5) = (/&
414 &3.0731e-02_jprb,3.2386e-02_jprb,3.3908e-02_jprb,3.5126e-02_jprb,3.6383e-02_jprb/)
415 kbo( :,15, 5) = (/&
416 &2.5378e-02_jprb,2.6727e-02_jprb,2.7941e-02_jprb,2.8947e-02_jprb,3.0002e-02_jprb/)
417 kbo( :,16, 5) = (/&
418 &2.0959e-02_jprb,2.2046e-02_jprb,2.3014e-02_jprb,2.3851e-02_jprb,2.4734e-02_jprb/)
419 kbo( :,17, 5) = (/&
420 &1.7294e-02_jprb,1.8176e-02_jprb,1.8952e-02_jprb,1.9643e-02_jprb,2.0380e-02_jprb/)
421 kbo( :,18, 5) = (/&
422 &1.4261e-02_jprb,1.4983e-02_jprb,1.5597e-02_jprb,1.6174e-02_jprb,1.6784e-02_jprb/)
423 kbo( :,19, 5) = (/&
424 &1.1754e-02_jprb,1.2342e-02_jprb,1.2837e-02_jprb,1.3312e-02_jprb,1.3820e-02_jprb/)
425 kbo( :,20, 5) = (/&
426 &9.6940e-03_jprb,1.0172e-02_jprb,1.0569e-02_jprb,1.0962e-02_jprb,1.1389e-02_jprb/)
427 kbo( :,21, 5) = (/&
428 &7.9935e-03_jprb,8.3804e-03_jprb,8.7019e-03_jprb,9.0256e-03_jprb,9.3917e-03_jprb/)
429 kbo( :,22, 5) = (/&
430 &6.6098e-03_jprb,6.9213e-03_jprb,7.1802e-03_jprb,7.4552e-03_jprb,7.7626e-03_jprb/)
431 kbo( :,23, 5) = (/&
432 &5.4675e-03_jprb,5.7122e-03_jprb,5.9276e-03_jprb,6.1590e-03_jprb,6.4177e-03_jprb/)
433 kbo( :,24, 5) = (/&
434 &4.5248e-03_jprb,4.7145e-03_jprb,4.8956e-03_jprb,5.0905e-03_jprb,5.3103e-03_jprb/)
435 kbo( :,25, 5) = (/&
436 &3.7436e-03_jprb,3.8938e-03_jprb,4.0451e-03_jprb,4.2083e-03_jprb,4.3977e-03_jprb/)
437 kbo( :,26, 5) = (/&
438 &3.0980e-03_jprb,3.2193e-03_jprb,3.3446e-03_jprb,3.4820e-03_jprb,3.6461e-03_jprb/)
439 kbo( :,27, 5) = (/&
440 &2.5629e-03_jprb,2.6621e-03_jprb,2.7660e-03_jprb,2.8810e-03_jprb,3.0242e-03_jprb/)
441 kbo( :,28, 5) = (/&
442 &2.1185e-03_jprb,2.2012e-03_jprb,2.2881e-03_jprb,2.3854e-03_jprb,2.5100e-03_jprb/)
443 kbo( :,29, 5) = (/&
444 &1.7520e-03_jprb,1.8201e-03_jprb,1.8933e-03_jprb,1.9774e-03_jprb,2.0861e-03_jprb/)
445 kbo( :,30, 5) = (/&
446 &1.4490e-03_jprb,1.5053e-03_jprb,1.5668e-03_jprb,1.6405e-03_jprb,1.7353e-03_jprb/)
447 kbo( :,31, 5) = (/&
448 &1.1987e-03_jprb,1.2454e-03_jprb,1.2970e-03_jprb,1.3620e-03_jprb,1.4446e-03_jprb/)
449 kbo( :,32, 5) = (/&
450 &9.9162e-04_jprb,1.0307e-03_jprb,1.0749e-03_jprb,1.1317e-03_jprb,1.2036e-03_jprb/)
451 kbo( :,33, 5) = (/&
452 &8.2024e-04_jprb,8.5336e-04_jprb,8.9176e-04_jprb,9.4137e-04_jprb,1.0034e-03_jprb/)
453 kbo( :,34, 5) = (/&
454 &6.7773e-04_jprb,7.0554e-04_jprb,7.3898e-04_jprb,7.8201e-04_jprb,8.3490e-04_jprb/)
455 kbo( :,35, 5) = (/&
456 &5.5797e-04_jprb,5.8103e-04_jprb,6.0950e-04_jprb,6.4595e-04_jprb,6.9024e-04_jprb/)
457 kbo( :,36, 5) = (/&
458 &4.5741e-04_jprb,4.7636e-04_jprb,4.9987e-04_jprb,5.2994e-04_jprb,5.6634e-04_jprb/)
459 kbo( :,37, 5) = (/&
460 &3.7275e-04_jprb,3.8812e-04_jprb,4.0671e-04_jprb,4.3063e-04_jprb,4.5983e-04_jprb/)
461 kbo( :,38, 5) = (/&
462 &3.0368e-04_jprb,3.1612e-04_jprb,3.3079e-04_jprb,3.4977e-04_jprb,3.7316e-04_jprb/)
463 kbo( :,39, 5) = (/&
464 &2.4743e-04_jprb,2.5746e-04_jprb,2.6909e-04_jprb,2.8414e-04_jprb,3.0287e-04_jprb/)
465 kbo( :,40, 5) = (/&
466 &2.0083e-04_jprb,2.0881e-04_jprb,2.1786e-04_jprb,2.2950e-04_jprb,2.4422e-04_jprb/)
467 kbo( :,41, 5) = (/&
468 &1.6290e-04_jprb,1.6930e-04_jprb,1.7640e-04_jprb,1.8539e-04_jprb,1.9681e-04_jprb/)
469 kbo( :,42, 5) = (/&
470 &1.3212e-04_jprb,1.3729e-04_jprb,1.4297e-04_jprb,1.4983e-04_jprb,1.5865e-04_jprb/)
471 kbo( :,43, 5) = (/&
472 &1.0692e-04_jprb,1.1111e-04_jprb,1.1561e-04_jprb,1.2081e-04_jprb,1.2752e-04_jprb/)
473 kbo( :,44, 5) = (/&
474 &8.6484e-05_jprb,8.9851e-05_jprb,9.3401e-05_jprb,9.7384e-05_jprb,1.0246e-04_jprb/)
475 kbo( :,45, 5) = (/&
476 &6.9902e-05_jprb,7.2641e-05_jprb,7.5491e-05_jprb,7.8632e-05_jprb,8.2438e-05_jprb/)
477 kbo( :,46, 5) = (/&
478 &5.6357e-05_jprb,5.8678e-05_jprb,6.0987e-05_jprb,6.3456e-05_jprb,6.6309e-05_jprb/)
479 kbo( :,47, 5) = (/&
480 &4.5246e-05_jprb,4.7351e-05_jprb,4.9188e-05_jprb,5.1132e-05_jprb,5.3302e-05_jprb/)
481 kbo( :,48, 5) = (/&
482 &3.6331e-05_jprb,3.8149e-05_jprb,3.9667e-05_jprb,4.1226e-05_jprb,4.2932e-05_jprb/)
483 kbo( :,49, 5) = (/&
484 &2.9150e-05_jprb,3.0662e-05_jprb,3.1997e-05_jprb,3.3254e-05_jprb,3.4583e-05_jprb/)
485 kbo( :,50, 5) = (/&
486 &2.3393e-05_jprb,2.4645e-05_jprb,2.5835e-05_jprb,2.6842e-05_jprb,2.7903e-05_jprb/)
487 kbo( :,51, 5) = (/&
488 &1.8850e-05_jprb,1.9822e-05_jprb,2.0830e-05_jprb,2.1675e-05_jprb,2.2533e-05_jprb/)
489 kbo( :,52, 5) = (/&
490 &1.5259e-05_jprb,1.5932e-05_jprb,1.6760e-05_jprb,1.7514e-05_jprb,1.8199e-05_jprb/)
491 kbo( :,53, 5) = (/&
492 &1.2418e-05_jprb,1.2796e-05_jprb,1.3482e-05_jprb,1.4141e-05_jprb,1.4696e-05_jprb/)
493 kbo( :,54, 5) = (/&
494 &1.0153e-05_jprb,1.0334e-05_jprb,1.0859e-05_jprb,1.1414e-05_jprb,1.1882e-05_jprb/)
495 kbo( :,55, 5) = (/&
496 &8.3134e-06_jprb,8.3805e-06_jprb,8.7476e-06_jprb,9.2016e-06_jprb,9.6168e-06_jprb/)
497 kbo( :,56, 5) = (/&
498 &6.8128e-06_jprb,6.8250e-06_jprb,7.0422e-06_jprb,7.4184e-06_jprb,7.7786e-06_jprb/)
499 kbo( :,57, 5) = (/&
500 &5.5871e-06_jprb,5.5794e-06_jprb,5.6879e-06_jprb,5.9805e-06_jprb,6.2836e-06_jprb/)
501 kbo( :,58, 5) = (/&
502 &4.5833e-06_jprb,4.5677e-06_jprb,4.6123e-06_jprb,4.8228e-06_jprb,5.0715e-06_jprb/)
503 kbo( :,59, 5) = (/&
504 &3.7554e-06_jprb,3.7413e-06_jprb,3.7664e-06_jprb,3.9250e-06_jprb,4.1286e-06_jprb/)
505 kbo( :,13, 6) = (/&
506 &5.9721e-02_jprb,6.1354e-02_jprb,6.5184e-02_jprb,7.1296e-02_jprb,7.9076e-02_jprb/)
507 kbo( :,14, 6) = (/&
508 &4.9090e-02_jprb,5.0657e-02_jprb,5.4055e-02_jprb,5.9268e-02_jprb,6.5784e-02_jprb/)
509 kbo( :,15, 6) = (/&
510 &4.0373e-02_jprb,4.1857e-02_jprb,4.4839e-02_jprb,4.9265e-02_jprb,5.4749e-02_jprb/)
511 kbo( :,16, 6) = (/&
512 &3.3205e-02_jprb,3.4589e-02_jprb,3.7200e-02_jprb,4.0963e-02_jprb,4.5588e-02_jprb/)
513 kbo( :,17, 6) = (/&
514 &2.7321e-02_jprb,2.8572e-02_jprb,3.0844e-02_jprb,3.4044e-02_jprb,3.7943e-02_jprb/)
515 kbo( :,18, 6) = (/&
516 &2.2479e-02_jprb,2.3595e-02_jprb,2.5570e-02_jprb,2.8293e-02_jprb,3.1545e-02_jprb/)
517 kbo( :,19, 6) = (/&
518 &1.8500e-02_jprb,1.9491e-02_jprb,2.1196e-02_jprb,2.3496e-02_jprb,2.6203e-02_jprb/)
519 kbo( :,20, 6) = (/&
520 &1.5238e-02_jprb,1.6125e-02_jprb,1.7598e-02_jprb,1.9543e-02_jprb,2.1792e-02_jprb/)
521 kbo( :,21, 6) = (/&
522 &1.2557e-02_jprb,1.3343e-02_jprb,1.4614e-02_jprb,1.6252e-02_jprb,1.8124e-02_jprb/)
523 kbo( :,22, 6) = (/&
524 &1.0384e-02_jprb,1.1107e-02_jprb,1.2217e-02_jprb,1.3612e-02_jprb,1.5187e-02_jprb/)
525 kbo( :,23, 6) = (/&
526 &8.6014e-03_jprb,9.2602e-03_jprb,1.0223e-02_jprb,1.1410e-02_jprb,1.2737e-02_jprb/)
527 kbo( :,24, 6) = (/&
528 &7.1344e-03_jprb,7.7349e-03_jprb,8.5670e-03_jprb,9.5773e-03_jprb,1.0688e-02_jprb/)
529 kbo( :,25, 6) = (/&
530 &5.9318e-03_jprb,6.4720e-03_jprb,7.1956e-03_jprb,8.0463e-03_jprb,8.9744e-03_jprb/)
531 kbo( :,26, 6) = (/&
532 &4.9484e-03_jprb,5.4321e-03_jprb,6.0595e-03_jprb,6.7732e-03_jprb,7.5465e-03_jprb/)
533 kbo( :,27, 6) = (/&
534 &4.1359e-03_jprb,4.5660e-03_jprb,5.1046e-03_jprb,5.7011e-03_jprb,6.3447e-03_jprb/)
535 kbo( :,28, 6) = (/&
536 &3.4651e-03_jprb,3.8427e-03_jprb,4.2986e-03_jprb,4.7976e-03_jprb,5.3324e-03_jprb/)
537 kbo( :,29, 6) = (/&
538 &2.9102e-03_jprb,3.2386e-03_jprb,3.6218e-03_jprb,4.0393e-03_jprb,4.4830e-03_jprb/)
539 kbo( :,30, 6) = (/&
540 &2.4470e-03_jprb,2.7307e-03_jprb,3.0520e-03_jprb,3.4007e-03_jprb,3.7682e-03_jprb/)
541 kbo( :,31, 6) = (/&
542 &2.0606e-03_jprb,2.3037e-03_jprb,2.5728e-03_jprb,2.8636e-03_jprb,3.1684e-03_jprb/)
543 kbo( :,32, 6) = (/&
544 &1.7372e-03_jprb,1.9434e-03_jprb,2.1690e-03_jprb,2.4112e-03_jprb,2.6643e-03_jprb/)
545 kbo( :,33, 6) = (/&
546 &1.4660e-03_jprb,1.6395e-03_jprb,1.8287e-03_jprb,2.0301e-03_jprb,2.2400e-03_jprb/)
547 kbo( :,34, 6) = (/&
548 &1.2328e-03_jprb,1.3780e-03_jprb,1.5359e-03_jprb,1.7027e-03_jprb,1.8761e-03_jprb/)
549 kbo( :,35, 6) = (/&
550 &1.0255e-03_jprb,1.1459e-03_jprb,1.2766e-03_jprb,1.4142e-03_jprb,1.5568e-03_jprb/)
551 kbo( :,36, 6) = (/&
552 &8.4246e-04_jprb,9.4144e-04_jprb,1.0489e-03_jprb,1.1618e-03_jprb,1.2788e-03_jprb/)
553 kbo( :,37, 6) = (/&
554 &6.8032e-04_jprb,7.6059e-04_jprb,8.4800e-04_jprb,9.4011e-04_jprb,1.0358e-03_jprb/)
555 kbo( :,38, 6) = (/&
556 &5.4877e-04_jprb,6.1380e-04_jprb,6.8481e-04_jprb,7.5996e-04_jprb,8.3820e-04_jprb/)
557 kbo( :,39, 6) = (/&
558 &4.4270e-04_jprb,4.9539e-04_jprb,5.5302e-04_jprb,6.1429e-04_jprb,6.7818e-04_jprb/)
559 kbo( :,40, 6) = (/&
560 &3.5308e-04_jprb,3.9528e-04_jprb,4.4159e-04_jprb,4.9127e-04_jprb,5.4322e-04_jprb/)
561 kbo( :,41, 6) = (/&
562 &2.8136e-04_jprb,3.1489e-04_jprb,3.5201e-04_jprb,3.9219e-04_jprb,4.3434e-04_jprb/)
563 kbo( :,42, 6) = (/&
564 &2.2435e-04_jprb,2.5074e-04_jprb,2.8049e-04_jprb,3.1292e-04_jprb,3.4710e-04_jprb/)
565 kbo( :,43, 6) = (/&
566 &1.7802e-04_jprb,1.9831e-04_jprb,2.2204e-04_jprb,2.4800e-04_jprb,2.7568e-04_jprb/)
567 kbo( :,44, 6) = (/&
568 &1.4111e-04_jprb,1.5650e-04_jprb,1.7526e-04_jprb,1.9592e-04_jprb,2.1824e-04_jprb/)
569 kbo( :,45, 6) = (/&
570 &1.1219e-04_jprb,1.2365e-04_jprb,1.3828e-04_jprb,1.5471e-04_jprb,1.7263e-04_jprb/)
571 kbo( :,46, 6) = (/&
572 &8.9353e-05_jprb,9.7626e-05_jprb,1.0876e-04_jprb,1.2182e-04_jprb,1.3611e-04_jprb/)
573 kbo( :,47, 6) = (/&
574 &7.1331e-05_jprb,7.6923e-05_jprb,8.5223e-05_jprb,9.5443e-05_jprb,1.0675e-04_jprb/)
575 kbo( :,48, 6) = (/&
576 &5.7219e-05_jprb,6.0885e-05_jprb,6.6897e-05_jprb,7.4726e-05_jprb,8.3664e-05_jprb/)
577 kbo( :,49, 6) = (/&
578 &4.6157e-05_jprb,4.8450e-05_jprb,5.2634e-05_jprb,5.8499e-05_jprb,6.5552e-05_jprb/)
579 kbo( :,50, 6) = (/&
580 &3.7497e-05_jprb,3.8822e-05_jprb,4.1643e-05_jprb,4.5997e-05_jprb,5.1490e-05_jprb/)
581 kbo( :,51, 6) = (/&
582 &3.0548e-05_jprb,3.1258e-05_jprb,3.3116e-05_jprb,3.6272e-05_jprb,4.0468e-05_jprb/)
583 kbo( :,52, 6) = (/&
584 &2.4904e-05_jprb,2.5290e-05_jprb,2.6467e-05_jprb,2.8662e-05_jprb,3.1824e-05_jprb/)
585 kbo( :,53, 6) = (/&
586 &2.0318e-05_jprb,2.0573e-05_jprb,2.1239e-05_jprb,2.2721e-05_jprb,2.5059e-05_jprb/)
587 kbo( :,54, 6) = (/&
588 &1.6597e-05_jprb,1.6771e-05_jprb,1.7139e-05_jprb,1.8127e-05_jprb,1.9830e-05_jprb/)
589 kbo( :,55, 6) = (/&
590 &1.3561e-05_jprb,1.3681e-05_jprb,1.3892e-05_jprb,1.4536e-05_jprb,1.5739e-05_jprb/)
591 kbo( :,56, 6) = (/&
592 &1.1086e-05_jprb,1.1167e-05_jprb,1.1310e-05_jprb,1.1693e-05_jprb,1.2526e-05_jprb/)
593 kbo( :,57, 6) = (/&
594 &9.0628e-06_jprb,9.1225e-06_jprb,9.2203e-06_jprb,9.4367e-06_jprb,9.9993e-06_jprb/)
595 kbo( :,58, 6) = (/&
596 &7.4303e-06_jprb,7.4548e-06_jprb,7.5223e-06_jprb,7.6481e-06_jprb,8.0215e-06_jprb/)
597 kbo( :,59, 6) = (/&
598 &6.0935e-06_jprb,6.1009e-06_jprb,6.1525e-06_jprb,6.2448e-06_jprb,6.5226e-06_jprb/)
599 kbo( :,13, 7) = (/&
600 &1.1588e-01_jprb,1.3365e-01_jprb,1.5332e-01_jprb,1.7451e-01_jprb,1.9690e-01_jprb/)
601 kbo( :,14, 7) = (/&
602 &9.7055e-02_jprb,1.1196e-01_jprb,1.2839e-01_jprb,1.4612e-01_jprb,1.6488e-01_jprb/)
603 kbo( :,15, 7) = (/&
604 &8.1294e-02_jprb,9.3772e-02_jprb,1.0756e-01_jprb,1.2240e-01_jprb,1.3809e-01_jprb/)
605 kbo( :,16, 7) = (/&
606 &6.8061e-02_jprb,7.8545e-02_jprb,9.0101e-02_jprb,1.0250e-01_jprb,1.1550e-01_jprb/)
607 kbo( :,17, 7) = (/&
608 &5.6952e-02_jprb,6.5739e-02_jprb,7.5393e-02_jprb,8.5665e-02_jprb,9.6436e-02_jprb/)
609 kbo( :,18, 7) = (/&
610 &4.7617e-02_jprb,5.4966e-02_jprb,6.2979e-02_jprb,7.1480e-02_jprb,8.0409e-02_jprb/)
611 kbo( :,19, 7) = (/&
612 &3.9773e-02_jprb,4.5894e-02_jprb,5.2544e-02_jprb,5.9585e-02_jprb,6.7003e-02_jprb/)
613 kbo( :,20, 7) = (/&
614 &3.3266e-02_jprb,3.8381e-02_jprb,4.3891e-02_jprb,4.9742e-02_jprb,5.5899e-02_jprb/)
615 kbo( :,21, 7) = (/&
616 &2.7821e-02_jprb,3.2077e-02_jprb,3.6647e-02_jprb,4.1505e-02_jprb,4.6608e-02_jprb/)
617 kbo( :,22, 7) = (/&
618 &2.3478e-02_jprb,2.7039e-02_jprb,3.0839e-02_jprb,3.4879e-02_jprb,3.9103e-02_jprb/)
619 kbo( :,23, 7) = (/&
620 &1.9822e-02_jprb,2.2790e-02_jprb,2.5960e-02_jprb,2.9305e-02_jprb,3.2804e-02_jprb/)
621 kbo( :,24, 7) = (/&
622 &1.6745e-02_jprb,1.9225e-02_jprb,2.1856e-02_jprb,2.4636e-02_jprb,2.7545e-02_jprb/)
623 kbo( :,25, 7) = (/&
624 &1.4161e-02_jprb,1.6225e-02_jprb,1.8415e-02_jprb,2.0732e-02_jprb,2.3157e-02_jprb/)
625 kbo( :,26, 7) = (/&
626 &1.2003e-02_jprb,1.3719e-02_jprb,1.5547e-02_jprb,1.7489e-02_jprb,1.9498e-02_jprb/)
627 kbo( :,27, 7) = (/&
628 &1.0171e-02_jprb,1.1602e-02_jprb,1.3133e-02_jprb,1.4753e-02_jprb,1.6413e-02_jprb/)
629 kbo( :,28, 7) = (/&
630 &8.6151e-03_jprb,9.8138e-03_jprb,1.1097e-02_jprb,1.2440e-02_jprb,1.3808e-02_jprb/)
631 kbo( :,29, 7) = (/&
632 &7.3031e-03_jprb,8.3100e-03_jprb,9.3806e-03_jprb,1.0489e-02_jprb,1.1614e-02_jprb/)
633 kbo( :,30, 7) = (/&
634 &6.1924e-03_jprb,7.0350e-03_jprb,7.9243e-03_jprb,8.8379e-03_jprb,9.7615e-03_jprb/)
635 kbo( :,31, 7) = (/&
636 &5.2533e-03_jprb,5.9562e-03_jprb,6.6929e-03_jprb,7.4442e-03_jprb,8.2040e-03_jprb/)
637 kbo( :,32, 7) = (/&
638 &4.4571e-03_jprb,5.0422e-03_jprb,5.6504e-03_jprb,6.2688e-03_jprb,6.8946e-03_jprb/)
639 kbo( :,33, 7) = (/&
640 &3.7800e-03_jprb,4.2660e-03_jprb,4.7678e-03_jprb,5.2772e-03_jprb,5.7931e-03_jprb/)
641 kbo( :,34, 7) = (/&
642 &3.1899e-03_jprb,3.5923e-03_jprb,4.0058e-03_jprb,4.4259e-03_jprb,4.8520e-03_jprb/)
643 kbo( :,35, 7) = (/&
644 &2.6588e-03_jprb,2.9911e-03_jprb,3.3311e-03_jprb,3.6773e-03_jprb,4.0289e-03_jprb/)
645 kbo( :,36, 7) = (/&
646 &2.1867e-03_jprb,2.4598e-03_jprb,2.7392e-03_jprb,3.0239e-03_jprb,3.3135e-03_jprb/)
647 kbo( :,37, 7) = (/&
648 &1.7654e-03_jprb,1.9884e-03_jprb,2.2175e-03_jprb,2.4512e-03_jprb,2.6886e-03_jprb/)
649 kbo( :,38, 7) = (/&
650 &1.4235e-03_jprb,1.6055e-03_jprb,1.7932e-03_jprb,1.9849e-03_jprb,2.1796e-03_jprb/)
651 kbo( :,39, 7) = (/&
652 &1.1477e-03_jprb,1.2961e-03_jprb,1.4499e-03_jprb,1.6071e-03_jprb,1.7668e-03_jprb/)
653 kbo( :,40, 7) = (/&
654 &9.1302e-04_jprb,1.0335e-03_jprb,1.1591e-03_jprb,1.2877e-03_jprb,1.4185e-03_jprb/)
655 kbo( :,41, 7) = (/&
656 &7.2467e-04_jprb,8.2221e-04_jprb,9.2464e-04_jprb,1.0298e-03_jprb,1.1370e-03_jprb/)
657 kbo( :,42, 7) = (/&
658 &5.7474e-04_jprb,6.5369e-04_jprb,7.3701e-04_jprb,8.2293e-04_jprb,9.1070e-04_jprb/)
659 kbo( :,43, 7) = (/&
660 &4.5204e-04_jprb,5.1571e-04_jprb,5.8312e-04_jprb,6.5322e-04_jprb,7.2492e-04_jprb/)
661 kbo( :,44, 7) = (/&
662 &3.5397e-04_jprb,4.0509e-04_jprb,4.5944e-04_jprb,5.1651e-04_jprb,5.7502e-04_jprb/)
663 kbo( :,45, 7) = (/&
664 &2.7677e-04_jprb,3.1783e-04_jprb,3.6162e-04_jprb,4.0793e-04_jprb,4.5562e-04_jprb/)
665 kbo( :,46, 7) = (/&
666 &2.1540e-04_jprb,2.4835e-04_jprb,2.8358e-04_jprb,3.2093e-04_jprb,3.5979e-04_jprb/)
667 kbo( :,47, 7) = (/&
668 &1.6633e-04_jprb,1.9266e-04_jprb,2.2081e-04_jprb,2.5080e-04_jprb,2.8236e-04_jprb/)
669 kbo( :,48, 7) = (/&
670 &1.2830e-04_jprb,1.4914e-04_jprb,1.7167e-04_jprb,1.9573e-04_jprb,2.2121e-04_jprb/)
671 kbo( :,49, 7) = (/&
672 &9.8900e-05_jprb,1.1524e-04_jprb,1.3325e-04_jprb,1.5252e-04_jprb,1.7300e-04_jprb/)
673 kbo( :,50, 7) = (/&
674 &7.6523e-05_jprb,8.9264e-05_jprb,1.0363e-04_jprb,1.1906e-04_jprb,1.3550e-04_jprb/)
675 kbo( :,51, 7) = (/&
676 &5.9350e-05_jprb,6.9204e-05_jprb,8.0571e-05_jprb,9.2952e-05_jprb,1.0617e-04_jprb/)
677 kbo( :,52, 7) = (/&
678 &4.6110e-05_jprb,5.3638e-05_jprb,6.2565e-05_jprb,7.2480e-05_jprb,8.3081e-05_jprb/)
679 kbo( :,53, 7) = (/&
680 &3.5907e-05_jprb,4.1572e-05_jprb,4.8523e-05_jprb,5.6421e-05_jprb,6.4919e-05_jprb/)
681 kbo( :,54, 7) = (/&
682 &2.8169e-05_jprb,3.2394e-05_jprb,3.7786e-05_jprb,4.4047e-05_jprb,5.0874e-05_jprb/)
683 kbo( :,55, 7) = (/&
684 &2.2244e-05_jprb,2.5332e-05_jprb,2.9480e-05_jprb,3.4420e-05_jprb,3.9903e-05_jprb/)
685 kbo( :,56, 7) = (/&
686 &1.7661e-05_jprb,1.9848e-05_jprb,2.3004e-05_jprb,2.6875e-05_jprb,3.1261e-05_jprb/)
687 kbo( :,57, 7) = (/&
688 &1.4116e-05_jprb,1.5590e-05_jprb,1.7962e-05_jprb,2.0972e-05_jprb,2.4457e-05_jprb/)
689 kbo( :,58, 7) = (/&
690 &1.1342e-05_jprb,1.2323e-05_jprb,1.4076e-05_jprb,1.6403e-05_jprb,1.9161e-05_jprb/)
691 kbo( :,59, 7) = (/&
692 &9.2282e-06_jprb,9.9669e-06_jprb,1.1338e-05_jprb,1.3199e-05_jprb,1.5427e-05_jprb/)
693 kbo( :,13, 8) = (/&
694 &3.3007e-01_jprb,3.9651e-01_jprb,4.6809e-01_jprb,5.4357e-01_jprb,6.2157e-01_jprb/)
695 kbo( :,14, 8) = (/&
696 &2.7899e-01_jprb,3.3507e-01_jprb,3.9534e-01_jprb,4.5851e-01_jprb,5.2383e-01_jprb/)
697 kbo( :,15, 8) = (/&
698 &2.3603e-01_jprb,2.8320e-01_jprb,3.3377e-01_jprb,3.8669e-01_jprb,4.4137e-01_jprb/)
699 kbo( :,16, 8) = (/&
700 &1.9959e-01_jprb,2.3926e-01_jprb,2.8155e-01_jprb,3.2567e-01_jprb,3.7161e-01_jprb/)
701 kbo( :,17, 8) = (/&
702 &1.6854e-01_jprb,2.0171e-01_jprb,2.3696e-01_jprb,2.7391e-01_jprb,3.1236e-01_jprb/)
703 kbo( :,18, 8) = (/&
704 &1.4209e-01_jprb,1.6977e-01_jprb,1.9918e-01_jprb,2.3009e-01_jprb,2.6229e-01_jprb/)
705 kbo( :,19, 8) = (/&
706 &1.1954e-01_jprb,1.4262e-01_jprb,1.6719e-01_jprb,1.9301e-01_jprb,2.1984e-01_jprb/)
707 kbo( :,20, 8) = (/&
708 &1.0077e-01_jprb,1.2005e-01_jprb,1.4054e-01_jprb,1.6208e-01_jprb,1.8429e-01_jprb/)
709 kbo( :,21, 8) = (/&
710 &8.4914e-02_jprb,1.0100e-01_jprb,1.1806e-01_jprb,1.3588e-01_jprb,1.5437e-01_jprb/)
711 kbo( :,22, 8) = (/&
712 &7.2355e-02_jprb,8.5791e-02_jprb,9.9982e-02_jprb,1.1481e-01_jprb,1.3020e-01_jprb/)
713 kbo( :,23, 8) = (/&
714 &6.1637e-02_jprb,7.2833e-02_jprb,8.4658e-02_jprb,9.6984e-02_jprb,1.0981e-01_jprb/)
715 kbo( :,24, 8) = (/&
716 &5.2514e-02_jprb,6.1860e-02_jprb,7.1701e-02_jprb,8.1967e-02_jprb,9.2596e-02_jprb/)
717 kbo( :,25, 8) = (/&
718 &4.4769e-02_jprb,5.2568e-02_jprb,6.0763e-02_jprb,6.9296e-02_jprb,7.8120e-02_jprb/)
719 kbo( :,26, 8) = (/&
720 &3.8253e-02_jprb,4.4756e-02_jprb,5.1578e-02_jprb,5.8670e-02_jprb,6.6013e-02_jprb/)
721 kbo( :,27, 8) = (/&
722 &3.2667e-02_jprb,3.8088e-02_jprb,4.3757e-02_jprb,4.9656e-02_jprb,5.5793e-02_jprb/)
723 kbo( :,28, 8) = (/&
724 &2.7877e-02_jprb,3.2393e-02_jprb,3.7109e-02_jprb,4.2030e-02_jprb,4.7179e-02_jprb/)
725 kbo( :,29, 8) = (/&
726 &2.3797e-02_jprb,2.7555e-02_jprb,3.1491e-02_jprb,3.5617e-02_jprb,3.9923e-02_jprb/)
727 kbo( :,30, 8) = (/&
728 &2.0298e-02_jprb,2.3432e-02_jprb,2.6727e-02_jprb,3.0189e-02_jprb,3.3773e-02_jprb/)
729 kbo( :,31, 8) = (/&
730 &1.7314e-02_jprb,1.9936e-02_jprb,2.2701e-02_jprb,2.5587e-02_jprb,2.8571e-02_jprb/)
731 kbo( :,32, 8) = (/&
732 &1.4770e-02_jprb,1.6972e-02_jprb,1.9281e-02_jprb,2.1688e-02_jprb,2.4162e-02_jprb/)
733 kbo( :,33, 8) = (/&
734 &1.2600e-02_jprb,1.4446e-02_jprb,1.6373e-02_jprb,1.8374e-02_jprb,2.0424e-02_jprb/)
735 kbo( :,34, 8) = (/&
736 &1.0696e-02_jprb,1.2236e-02_jprb,1.3839e-02_jprb,1.5497e-02_jprb,1.7194e-02_jprb/)
737 kbo( :,35, 8) = (/&
738 &8.9555e-03_jprb,1.0232e-02_jprb,1.1559e-02_jprb,1.2931e-02_jprb,1.4335e-02_jprb/)
739 kbo( :,36, 8) = (/&
740 &7.3846e-03_jprb,8.4373e-03_jprb,9.5325e-03_jprb,1.0662e-02_jprb,1.1822e-02_jprb/)
741 kbo( :,37, 8) = (/&
742 &5.9606e-03_jprb,6.8233e-03_jprb,7.7209e-03_jprb,8.6487e-03_jprb,9.6041e-03_jprb/)
743 kbo( :,38, 8) = (/&
744 &4.8037e-03_jprb,5.5105e-03_jprb,6.2459e-03_jprb,7.0079e-03_jprb,7.7943e-03_jprb/)
745 kbo( :,39, 8) = (/&
746 &3.8706e-03_jprb,4.4491e-03_jprb,5.0519e-03_jprb,5.6779e-03_jprb,6.3251e-03_jprb/)
747 kbo( :,40, 8) = (/&
748 &3.0705e-03_jprb,3.5417e-03_jprb,4.0336e-03_jprb,4.5461e-03_jprb,5.0773e-03_jprb/)
749 kbo( :,41, 8) = (/&
750 &2.4285e-03_jprb,2.8118e-03_jprb,3.2129e-03_jprb,3.6318e-03_jprb,4.0673e-03_jprb/)
751 kbo( :,42, 8) = (/&
752 &1.9184e-03_jprb,2.2300e-03_jprb,2.5570e-03_jprb,2.8991e-03_jprb,3.2561e-03_jprb/)
753 kbo( :,43, 8) = (/&
754 &1.4999e-03_jprb,1.7522e-03_jprb,2.0180e-03_jprb,2.2966e-03_jprb,2.5881e-03_jprb/)
755 kbo( :,44, 8) = (/&
756 &1.1655e-03_jprb,1.3694e-03_jprb,1.5849e-03_jprb,1.8113e-03_jprb,2.0488e-03_jprb/)
757 kbo( :,45, 8) = (/&
758 &9.0376e-04_jprb,1.0682e-03_jprb,1.2427e-03_jprb,1.4266e-03_jprb,1.6199e-03_jprb/)
759 kbo( :,46, 8) = (/&
760 &6.9650e-04_jprb,8.2858e-04_jprb,9.6950e-04_jprb,1.1186e-03_jprb,1.2755e-03_jprb/)
761 kbo( :,47, 8) = (/&
762 &5.3108e-04_jprb,6.3643e-04_jprb,7.4984e-04_jprb,8.7018e-04_jprb,9.9721e-04_jprb/)
763 kbo( :,48, 8) = (/&
764 &4.0361e-04_jprb,4.8742e-04_jprb,5.7833e-04_jprb,6.7534e-04_jprb,7.7807e-04_jprb/)
765 kbo( :,49, 8) = (/&
766 &3.0566e-04_jprb,3.7215e-04_jprb,4.4475e-04_jprb,5.2279e-04_jprb,6.0579e-04_jprb/)
767 kbo( :,50, 8) = (/&
768 &2.3193e-04_jprb,2.8459e-04_jprb,3.4251e-04_jprb,4.0526e-04_jprb,4.7230e-04_jprb/)
769 kbo( :,51, 8) = (/&
770 &1.7590e-04_jprb,2.1748e-04_jprb,2.6361e-04_jprb,3.1395e-04_jprb,3.6804e-04_jprb/)
771 kbo( :,52, 8) = (/&
772 &1.3304e-04_jprb,1.6573e-04_jprb,2.0240e-04_jprb,2.4265e-04_jprb,2.8621e-04_jprb/)
773 kbo( :,53, 8) = (/&
774 &1.0033e-04_jprb,1.2590e-04_jprb,1.5496e-04_jprb,1.8704e-04_jprb,2.2201e-04_jprb/)
775 kbo( :,54, 8) = (/&
776 &7.6043e-05_jprb,9.6033e-05_jprb,1.1903e-04_jprb,1.4464e-04_jprb,1.7271e-04_jprb/)
777 kbo( :,55, 8) = (/&
778 &5.7725e-05_jprb,7.3309e-05_jprb,9.1482e-05_jprb,1.1190e-04_jprb,1.3439e-04_jprb/)
779 kbo( :,56, 8) = (/&
780 &4.3773e-05_jprb,5.5845e-05_jprb,7.0155e-05_jprb,8.6401e-05_jprb,1.0439e-04_jprb/)
781 kbo( :,57, 8) = (/&
782 &3.3178e-05_jprb,4.2466e-05_jprb,5.3677e-05_jprb,6.6562e-05_jprb,8.0932e-05_jprb/)
783 kbo( :,58, 8) = (/&
784 &2.5276e-05_jprb,3.2365e-05_jprb,4.1133e-05_jprb,5.1343e-05_jprb,6.2815e-05_jprb/)
785 kbo( :,59, 8) = (/&
786 &2.0138e-05_jprb,2.5779e-05_jprb,3.2836e-05_jprb,4.1105e-05_jprb,5.0433e-05_jprb/)
787 kbo( :,13, 9) = (/&
788 &2.0575e+00_jprb,2.5259e+00_jprb,3.0234e+00_jprb,3.5471e+00_jprb,4.0892e+00_jprb/)
789 kbo( :,14, 9) = (/&
790 &1.7896e+00_jprb,2.1936e+00_jprb,2.6243e+00_jprb,3.0754e+00_jprb,3.5357e+00_jprb/)
791 kbo( :,15, 9) = (/&
792 &1.5532e+00_jprb,1.9005e+00_jprb,2.2698e+00_jprb,2.6534e+00_jprb,3.0460e+00_jprb/)
793 kbo( :,16, 9) = (/&
794 &1.3431e+00_jprb,1.6399e+00_jprb,1.9542e+00_jprb,2.2801e+00_jprb,2.6154e+00_jprb/)
795 kbo( :,17, 9) = (/&
796 &1.1564e+00_jprb,1.4091e+00_jprb,1.6750e+00_jprb,1.9517e+00_jprb,2.2353e+00_jprb/)
797 kbo( :,18, 9) = (/&
798 &9.9261e-01_jprb,1.2059e+00_jprb,1.4303e+00_jprb,1.6635e+00_jprb,1.9029e+00_jprb/)
799 kbo( :,19, 9) = (/&
800 &8.4829e-01_jprb,1.0283e+00_jprb,1.2171e+00_jprb,1.4131e+00_jprb,1.6142e+00_jprb/)
801 kbo( :,20, 9) = (/&
802 &7.2551e-01_jprb,8.7689e-01_jprb,1.0360e+00_jprb,1.2012e+00_jprb,1.3703e+00_jprb/)
803 kbo( :,21, 9) = (/&
804 &6.1932e-01_jprb,7.4645e-01_jprb,8.8019e-01_jprb,1.0189e+00_jprb,1.1616e+00_jprb/)
805 kbo( :,22, 9) = (/&
806 &5.3436e-01_jprb,6.4171e-01_jprb,7.5441e-01_jprb,8.7104e-01_jprb,9.9107e-01_jprb/)
807 kbo( :,23, 9) = (/&
808 &4.6064e-01_jprb,5.5112e-01_jprb,6.4570e-01_jprb,7.4365e-01_jprb,8.4436e-01_jprb/)
809 kbo( :,24, 9) = (/&
810 &3.9696e-01_jprb,4.7292e-01_jprb,5.5220e-01_jprb,6.3452e-01_jprb,7.1905e-01_jprb/)
811 kbo( :,25, 9) = (/&
812 &3.4206e-01_jprb,4.0576e-01_jprb,4.7240e-01_jprb,5.4144e-01_jprb,6.1253e-01_jprb/)
813 kbo( :,26, 9) = (/&
814 &2.9509e-01_jprb,3.4866e-01_jprb,4.0462e-01_jprb,4.6255e-01_jprb,5.2212e-01_jprb/)
815 kbo( :,27, 9) = (/&
816 &2.5432e-01_jprb,2.9938e-01_jprb,3.4636e-01_jprb,3.9487e-01_jprb,4.4473e-01_jprb/)
817 kbo( :,28, 9) = (/&
818 &2.1897e-01_jprb,2.5686e-01_jprb,2.9621e-01_jprb,3.3690e-01_jprb,3.7871e-01_jprb/)
819 kbo( :,29, 9) = (/&
820 &1.8863e-01_jprb,2.2035e-01_jprb,2.5338e-01_jprb,2.8746e-01_jprb,3.2276e-01_jprb/)
821 kbo( :,30, 9) = (/&
822 &1.6227e-01_jprb,1.8891e-01_jprb,2.1659e-01_jprb,2.4532e-01_jprb,2.7508e-01_jprb/)
823 kbo( :,31, 9) = (/&
824 &1.3961e-01_jprb,1.6197e-01_jprb,1.8522e-01_jprb,2.0946e-01_jprb,2.3451e-01_jprb/)
825 kbo( :,32, 9) = (/&
826 &1.2009e-01_jprb,1.3886e-01_jprb,1.5848e-01_jprb,1.7888e-01_jprb,2.0001e-01_jprb/)
827 kbo( :,33, 9) = (/&
828 &1.0324e-01_jprb,1.1904e-01_jprb,1.3559e-01_jprb,1.5281e-01_jprb,1.7071e-01_jprb/)
829 kbo( :,34, 9) = (/&
830 &8.8245e-02_jprb,1.0156e-01_jprb,1.1550e-01_jprb,1.3006e-01_jprb,1.4528e-01_jprb/)
831 kbo( :,35, 9) = (/&
832 &7.4373e-02_jprb,8.5551e-02_jprb,9.7297e-02_jprb,1.0957e-01_jprb,1.2251e-01_jprb/)
833 kbo( :,36, 9) = (/&
834 &6.1704e-02_jprb,7.1049e-02_jprb,8.0900e-02_jprb,9.1251e-02_jprb,1.0221e-01_jprb/)
835 kbo( :,37, 9) = (/&
836 &5.0060e-02_jprb,5.7820e-02_jprb,6.6024e-02_jprb,7.4701e-02_jprb,8.3923e-02_jprb/)
837 kbo( :,38, 9) = (/&
838 &4.0550e-02_jprb,4.6991e-02_jprb,5.3826e-02_jprb,6.1105e-02_jprb,6.8864e-02_jprb/)
839 kbo( :,39, 9) = (/&
840 &3.2845e-02_jprb,3.8185e-02_jprb,4.3883e-02_jprb,4.9990e-02_jprb,5.6512e-02_jprb/)
841 kbo( :,40, 9) = (/&
842 &2.6159e-02_jprb,3.0559e-02_jprb,3.5279e-02_jprb,4.0364e-02_jprb,4.5803e-02_jprb/)
843 kbo( :,41, 9) = (/&
844 &2.0762e-02_jprb,2.4380e-02_jprb,2.8285e-02_jprb,3.2514e-02_jprb,3.7041e-02_jprb/)
845 kbo( :,42, 9) = (/&
846 &1.6454e-02_jprb,1.9426e-02_jprb,2.2652e-02_jprb,2.6163e-02_jprb,2.9929e-02_jprb/)
847 kbo( :,43, 9) = (/&
848 &1.2889e-02_jprb,1.5316e-02_jprb,1.7969e-02_jprb,2.0865e-02_jprb,2.3986e-02_jprb/)
849 kbo( :,44, 9) = (/&
850 &1.0025e-02_jprb,1.2000e-02_jprb,1.4172e-02_jprb,1.6553e-02_jprb,1.9131e-02_jprb/)
851 kbo( :,45, 9) = (/&
852 &7.7746e-03_jprb,9.3784e-03_jprb,1.1153e-02_jprb,1.3107e-02_jprb,1.5232e-02_jprb/)
853 kbo( :,46, 9) = (/&
854 &5.9839e-03_jprb,7.2803e-03_jprb,8.7236e-03_jprb,1.0320e-02_jprb,1.2066e-02_jprb/)
855 kbo( :,47, 9) = (/&
856 &4.5469e-03_jprb,5.5872e-03_jprb,6.7527e-03_jprb,8.0490e-03_jprb,9.4737e-03_jprb/)
857 kbo( :,48, 9) = (/&
858 &3.4387e-03_jprb,4.2707e-03_jprb,5.2081e-03_jprb,6.2578e-03_jprb,7.4170e-03_jprb/)
859 kbo( :,49, 9) = (/&
860 &2.5872e-03_jprb,3.2502e-03_jprb,4.0014e-03_jprb,4.8487e-03_jprb,5.7896e-03_jprb/)
861 kbo( :,50, 9) = (/&
862 &1.9484e-03_jprb,2.4763e-03_jprb,3.0782e-03_jprb,3.7619e-03_jprb,4.5255e-03_jprb/)
863 kbo( :,51, 9) = (/&
864 &1.4641e-03_jprb,1.8833e-03_jprb,2.3642e-03_jprb,2.9156e-03_jprb,3.5343e-03_jprb/)
865 kbo( :,52, 9) = (/&
866 &1.0947e-03_jprb,1.4260e-03_jprb,1.8092e-03_jprb,2.2525e-03_jprb,2.7523e-03_jprb/)
867 kbo( :,53, 9) = (/&
868 &8.1385e-04_jprb,1.0744e-03_jprb,1.3788e-03_jprb,1.7335e-03_jprb,2.1363e-03_jprb/)
869 kbo( :,54, 9) = (/&
870 &6.0727e-04_jprb,8.1227e-04_jprb,1.0543e-03_jprb,1.3383e-03_jprb,1.6634e-03_jprb/)
871 kbo( :,55, 9) = (/&
872 &4.5272e-04_jprb,6.1374e-04_jprb,8.0589e-04_jprb,1.0331e-03_jprb,1.2952e-03_jprb/)
873 kbo( :,56, 9) = (/&
874 &3.3583e-04_jprb,4.6181e-04_jprb,6.1377e-04_jprb,7.9508e-04_jprb,1.0057e-03_jprb/)
875 kbo( :,57, 9) = (/&
876 &2.4776e-04_jprb,3.4590e-04_jprb,4.6559e-04_jprb,6.0978e-04_jprb,7.7861e-04_jprb/)
877 kbo( :,58, 9) = (/&
878 &1.8283e-04_jprb,2.5924e-04_jprb,3.5338e-04_jprb,4.6808e-04_jprb,6.0340e-04_jprb/)
879 kbo( :,59, 9) = (/&
880 &1.4394e-04_jprb,2.0565e-04_jprb,2.8231e-04_jprb,3.7641e-04_jprb,4.8766e-04_jprb/)
881 kbo( :,13,10) = (/&
882 &9.3904e+00_jprb,1.1558e+01_jprb,1.3845e+01_jprb,1.6163e+01_jprb,1.8555e+01_jprb/)
883 kbo( :,14,10) = (/&
884 &8.3973e+00_jprb,1.0270e+01_jprb,1.2209e+01_jprb,1.4231e+01_jprb,1.6403e+01_jprb/)
885 kbo( :,15,10) = (/&
886 &7.4227e+00_jprb,9.0328e+00_jprb,1.0725e+01_jprb,1.2539e+01_jprb,1.4424e+01_jprb/)
887 kbo( :,16,10) = (/&
888 &6.5205e+00_jprb,7.9257e+00_jprb,9.4310e+00_jprb,1.1012e+01_jprb,1.2602e+01_jprb/)
889 kbo( :,17,10) = (/&
890 &5.6968e+00_jprb,6.9236e+00_jprb,8.2313e+00_jprb,9.5792e+00_jprb,1.0956e+01_jprb/)
891 kbo( :,18,10) = (/&
892 &4.9471e+00_jprb,6.0161e+00_jprb,7.1339e+00_jprb,8.2948e+00_jprb,9.4857e+00_jprb/)
893 kbo( :,19,10) = (/&
894 &4.2895e+00_jprb,5.2029e+00_jprb,6.1642e+00_jprb,7.1527e+00_jprb,8.1730e+00_jprb/)
895 kbo( :,20,10) = (/&
896 &3.7147e+00_jprb,4.4929e+00_jprb,5.3068e+00_jprb,6.1474e+00_jprb,7.0078e+00_jprb/)
897 kbo( :,21,10) = (/&
898 &3.2024e+00_jprb,3.8631e+00_jprb,4.5499e+00_jprb,5.2596e+00_jprb,5.9867e+00_jprb/)
899 kbo( :,22,10) = (/&
900 &2.7881e+00_jprb,3.3462e+00_jprb,3.9291e+00_jprb,4.5332e+00_jprb,5.1516e+00_jprb/)
901 kbo( :,23,10) = (/&
902 &2.4221e+00_jprb,2.8934e+00_jprb,3.3888e+00_jprb,3.9007e+00_jprb,4.4296e+00_jprb/)
903 kbo( :,24,10) = (/&
904 &2.1012e+00_jprb,2.5042e+00_jprb,2.9257e+00_jprb,3.3605e+00_jprb,3.8099e+00_jprb/)
905 kbo( :,25,10) = (/&
906 &1.8234e+00_jprb,2.1683e+00_jprb,2.5234e+00_jprb,2.8940e+00_jprb,3.2740e+00_jprb/)
907 kbo( :,26,10) = (/&
908 &1.5880e+00_jprb,1.8773e+00_jprb,2.1781e+00_jprb,2.4921e+00_jprb,2.8182e+00_jprb/)
909 kbo( :,27,10) = (/&
910 &1.3795e+00_jprb,1.6233e+00_jprb,1.8790e+00_jprb,2.1463e+00_jprb,2.4246e+00_jprb/)
911 kbo( :,28,10) = (/&
912 &1.1952e+00_jprb,1.4020e+00_jprb,1.6204e+00_jprb,1.8473e+00_jprb,2.0818e+00_jprb/)
913 kbo( :,29,10) = (/&
914 &1.0353e+00_jprb,1.2126e+00_jprb,1.3974e+00_jprb,1.5895e+00_jprb,1.7854e+00_jprb/)
915 kbo( :,30,10) = (/&
916 &8.9710e-01_jprb,1.0479e+00_jprb,1.2046e+00_jprb,1.3665e+00_jprb,1.5321e+00_jprb/)
917 kbo( :,31,10) = (/&
918 &7.7817e-01_jprb,9.0519e-01_jprb,1.0386e+00_jprb,1.1754e+00_jprb,1.3182e+00_jprb/)
919 kbo( :,32,10) = (/&
920 &6.7399e-01_jprb,7.8251e-01_jprb,8.9515e-01_jprb,1.0127e+00_jprb,1.1369e+00_jprb/)
921 kbo( :,33,10) = (/&
922 &5.8405e-01_jprb,6.7622e-01_jprb,7.7236e-01_jprb,8.7403e-01_jprb,9.7956e-01_jprb/)
923 kbo( :,34,10) = (/&
924 &5.0357e-01_jprb,5.8182e-01_jprb,6.6452e-01_jprb,7.5151e-01_jprb,8.4035e-01_jprb/)
925 kbo( :,35,10) = (/&
926 &4.2779e-01_jprb,4.9440e-01_jprb,5.6491e-01_jprb,6.3892e-01_jprb,7.1333e-01_jprb/)
927 kbo( :,36,10) = (/&
928 &3.5777e-01_jprb,4.1421e-01_jprb,4.7387e-01_jprb,5.3617e-01_jprb,5.9900e-01_jprb/)
929 kbo( :,37,10) = (/&
930 &2.9234e-01_jprb,3.3963e-01_jprb,3.8973e-01_jprb,4.4194e-01_jprb,4.9508e-01_jprb/)
931 kbo( :,38,10) = (/&
932 &2.3845e-01_jprb,2.7804e-01_jprb,3.2014e-01_jprb,3.6393e-01_jprb,4.0887e-01_jprb/)
933 kbo( :,39,10) = (/&
934 &1.9449e-01_jprb,2.2762e-01_jprb,2.6303e-01_jprb,2.9987e-01_jprb,3.3808e-01_jprb/)
935 kbo( :,40,10) = (/&
936 &1.5581e-01_jprb,1.8338e-01_jprb,2.1298e-01_jprb,2.4388e-01_jprb,2.7640e-01_jprb/)
937 kbo( :,41,10) = (/&
938 &1.2437e-01_jprb,1.4728e-01_jprb,1.7198e-01_jprb,1.9790e-01_jprb,2.2561e-01_jprb/)
939 kbo( :,42,10) = (/&
940 &9.9114e-02_jprb,1.1814e-01_jprb,1.3871e-01_jprb,1.6049e-01_jprb,1.8409e-01_jprb/)
941 kbo( :,43,10) = (/&
942 &7.8014e-02_jprb,9.3699e-02_jprb,1.1072e-01_jprb,1.2897e-01_jprb,1.4893e-01_jprb/)
943 kbo( :,44,10) = (/&
944 &6.0930e-02_jprb,7.3813e-02_jprb,8.7829e-02_jprb,1.0306e-01_jprb,1.1990e-01_jprb/)
945 kbo( :,45,10) = (/&
946 &4.7439e-02_jprb,5.7963e-02_jprb,6.9524e-02_jprb,8.2179e-02_jprb,9.6377e-02_jprb/)
947 kbo( :,46,10) = (/&
948 &3.6628e-02_jprb,4.5189e-02_jprb,5.4663e-02_jprb,6.5139e-02_jprb,7.7031e-02_jprb/)
949 kbo( :,47,10) = (/&
950 &2.7890e-02_jprb,3.4787e-02_jprb,4.2493e-02_jprb,5.1096e-02_jprb,6.0965e-02_jprb/)
951 kbo( :,48,10) = (/&
952 &2.1119e-02_jprb,2.6645e-02_jprb,3.2896e-02_jprb,3.9921e-02_jprb,4.8089e-02_jprb/)
953 kbo( :,49,10) = (/&
954 &1.5900e-02_jprb,2.0307e-02_jprb,2.5351e-02_jprb,3.1064e-02_jprb,3.7792e-02_jprb/)
955 kbo( :,50,10) = (/&
956 &1.1982e-02_jprb,1.5486e-02_jprb,1.9553e-02_jprb,2.4196e-02_jprb,2.9727e-02_jprb/)
957 kbo( :,51,10) = (/&
958 &9.0056e-03_jprb,1.1788e-02_jprb,1.5051e-02_jprb,1.8815e-02_jprb,2.3348e-02_jprb/)
959 kbo( :,52,10) = (/&
960 &6.7287e-03_jprb,8.9323e-03_jprb,1.1543e-02_jprb,1.4581e-02_jprb,1.8277e-02_jprb/)
961 kbo( :,53,10) = (/&
962 &4.9917e-03_jprb,6.7318e-03_jprb,8.8095e-03_jprb,1.1255e-02_jprb,1.4250e-02_jprb/)
963 kbo( :,54,10) = (/&
964 &3.7166e-03_jprb,5.0897e-03_jprb,6.7438e-03_jprb,8.7155e-03_jprb,1.1147e-02_jprb/)
965 kbo( :,55,10) = (/&
966 &2.7631e-03_jprb,3.8456e-03_jprb,5.1593e-03_jprb,6.7476e-03_jprb,8.7195e-03_jprb/)
967 kbo( :,56,10) = (/&
968 &2.0411e-03_jprb,2.8905e-03_jprb,3.9308e-03_jprb,5.2031e-03_jprb,6.7949e-03_jprb/)
969 kbo( :,57,10) = (/&
970 &1.4978e-03_jprb,2.1598e-03_jprb,2.9807e-03_jprb,3.9948e-03_jprb,5.2752e-03_jprb/)
971 kbo( :,58,10) = (/&
972 &1.0985e-03_jprb,1.6142e-03_jprb,2.2613e-03_jprb,3.0687e-03_jprb,4.0986e-03_jprb/)
973 kbo( :,59,10) = (/&
974 &8.6500e-04_jprb,1.2833e-03_jprb,1.8127e-03_jprb,2.4817e-03_jprb,3.3443e-03_jprb/)
975 kbo( :,13,11) = (/&
976 &1.8372e+01_jprb,2.2531e+01_jprb,2.6942e+01_jprb,3.1721e+01_jprb,3.6666e+01_jprb/)
977 kbo( :,14,11) = (/&
978 &1.6476e+01_jprb,2.0266e+01_jprb,2.4375e+01_jprb,2.8673e+01_jprb,3.2960e+01_jprb/)
979 kbo( :,15,11) = (/&
980 &1.4838e+01_jprb,1.8258e+01_jprb,2.1874e+01_jprb,2.5540e+01_jprb,2.9299e+01_jprb/)
981 kbo( :,16,11) = (/&
982 &1.3322e+01_jprb,1.6282e+01_jprb,1.9361e+01_jprb,2.2553e+01_jprb,2.5938e+01_jprb/)
983 kbo( :,17,11) = (/&
984 &1.1797e+01_jprb,1.4340e+01_jprb,1.7022e+01_jprb,1.9865e+01_jprb,2.2805e+01_jprb/)
985 kbo( :,18,11) = (/&
986 &1.0354e+01_jprb,1.2576e+01_jprb,1.4945e+01_jprb,1.7409e+01_jprb,1.9880e+01_jprb/)
987 kbo( :,19,11) = (/&
988 &9.0365e+00_jprb,1.0980e+01_jprb,1.3039e+01_jprb,1.5152e+01_jprb,1.7258e+01_jprb/)
989 kbo( :,20,11) = (/&
990 &7.8834e+00_jprb,9.5695e+00_jprb,1.1327e+01_jprb,1.3132e+01_jprb,1.4932e+01_jprb/)
991 kbo( :,21,11) = (/&
992 &6.8550e+00_jprb,8.2970e+00_jprb,9.8119e+00_jprb,1.1335e+01_jprb,1.2856e+01_jprb/)
993 kbo( :,22,11) = (/&
994 &6.0199e+00_jprb,7.2562e+00_jprb,8.5326e+00_jprb,9.8104e+00_jprb,1.1086e+01_jprb/)
995 kbo( :,23,11) = (/&
996 &5.2655e+00_jprb,6.3155e+00_jprb,7.3813e+00_jprb,8.4546e+00_jprb,9.5205e+00_jprb/)
997 kbo( :,24,11) = (/&
998 &4.5968e+00_jprb,5.4765e+00_jprb,6.3717e+00_jprb,7.2772e+00_jprb,8.1752e+00_jprb/)
999 kbo( :,25,11) = (/&
1000 &4.0046e+00_jprb,4.7437e+00_jprb,5.5012e+00_jprb,6.2582e+00_jprb,7.0243e+00_jprb/)
1001 kbo( :,26,11) = (/&
1002 &3.4899e+00_jprb,4.1156e+00_jprb,4.7544e+00_jprb,5.3978e+00_jprb,6.0478e+00_jprb/)
1003 kbo( :,27,11) = (/&
1004 &3.0370e+00_jprb,3.5704e+00_jprb,4.1083e+00_jprb,4.6559e+00_jprb,5.2026e+00_jprb/)
1005 kbo( :,28,11) = (/&
1006 &2.6441e+00_jprb,3.0908e+00_jprb,3.5452e+00_jprb,4.0092e+00_jprb,4.4774e+00_jprb/)
1007 kbo( :,29,11) = (/&
1008 &2.2991e+00_jprb,2.6744e+00_jprb,3.0609e+00_jprb,3.4545e+00_jprb,3.8571e+00_jprb/)
1009 kbo( :,30,11) = (/&
1010 &1.9952e+00_jprb,2.3130e+00_jprb,2.6436e+00_jprb,2.9785e+00_jprb,3.3224e+00_jprb/)
1011 kbo( :,31,11) = (/&
1012 &1.7303e+00_jprb,2.0035e+00_jprb,2.2828e+00_jprb,2.5698e+00_jprb,2.8597e+00_jprb/)
1013 kbo( :,32,11) = (/&
1014 &1.5021e+00_jprb,1.7349e+00_jprb,1.9723e+00_jprb,2.2162e+00_jprb,2.4607e+00_jprb/)
1015 kbo( :,33,11) = (/&
1016 &1.3048e+00_jprb,1.5022e+00_jprb,1.7054e+00_jprb,1.9112e+00_jprb,2.1255e+00_jprb/)
1017 kbo( :,34,11) = (/&
1018 &1.1267e+00_jprb,1.2952e+00_jprb,1.4682e+00_jprb,1.6457e+00_jprb,1.8352e+00_jprb/)
1019 kbo( :,35,11) = (/&
1020 &9.5958e-01_jprb,1.1033e+00_jprb,1.2514e+00_jprb,1.4063e+00_jprb,1.5730e+00_jprb/)
1021 kbo( :,36,11) = (/&
1022 &8.0543e-01_jprb,9.2728e-01_jprb,1.0546e+00_jprb,1.1895e+00_jprb,1.3346e+00_jprb/)
1023 kbo( :,37,11) = (/&
1024 &6.6117e-01_jprb,7.6429e-01_jprb,8.7311e-01_jprb,9.8956e-01_jprb,1.1138e+00_jprb/)
1025 kbo( :,38,11) = (/&
1026 &5.4219e-01_jprb,6.2915e-01_jprb,7.2220e-01_jprb,8.2189e-01_jprb,9.2832e-01_jprb/)
1027 kbo( :,39,11) = (/&
1028 &4.4474e-01_jprb,5.1851e-01_jprb,5.9758e-01_jprb,6.8269e-01_jprb,7.7379e-01_jprb/)
1029 kbo( :,40,11) = (/&
1030 &3.5874e-01_jprb,4.2077e-01_jprb,4.8738e-01_jprb,5.5930e-01_jprb,6.3666e-01_jprb/)
1031 kbo( :,41,11) = (/&
1032 &2.8809e-01_jprb,3.4018e-01_jprb,3.9623e-01_jprb,4.5702e-01_jprb,5.2265e-01_jprb/)
1033 kbo( :,42,11) = (/&
1034 &2.3093e-01_jprb,2.7453e-01_jprb,3.2175e-01_jprb,3.7304e-01_jprb,4.2866e-01_jprb/)
1035 kbo( :,43,11) = (/&
1036 &1.8286e-01_jprb,2.1908e-01_jprb,2.5860e-01_jprb,3.0169e-01_jprb,3.4866e-01_jprb/)
1037 kbo( :,44,11) = (/&
1038 &1.4371e-01_jprb,1.7364e-01_jprb,2.0655e-01_jprb,2.4258e-01_jprb,2.8218e-01_jprb/)
1039 kbo( :,45,11) = (/&
1040 &1.1254e-01_jprb,1.3724e-01_jprb,1.6458e-01_jprb,1.9466e-01_jprb,2.2800e-01_jprb/)
1041 kbo( :,46,11) = (/&
1042 &8.7419e-02_jprb,1.0769e-01_jprb,1.3029e-01_jprb,1.5534e-01_jprb,1.8325e-01_jprb/)
1043 kbo( :,47,11) = (/&
1044 &6.6946e-02_jprb,8.3455e-02_jprb,1.0198e-01_jprb,1.2266e-01_jprb,1.4588e-01_jprb/)
1045 kbo( :,48,11) = (/&
1046 &5.0941e-02_jprb,6.4338e-02_jprb,7.9485e-02_jprb,9.6523e-02_jprb,1.1573e-01_jprb/)
1047 kbo( :,49,11) = (/&
1048 &3.8506e-02_jprb,4.9326e-02_jprb,6.1662e-02_jprb,7.5682e-02_jprb,9.1536e-02_jprb/)
1049 kbo( :,50,11) = (/&
1050 &2.9103e-02_jprb,3.7840e-02_jprb,4.7868e-02_jprb,5.9376e-02_jprb,7.2482e-02_jprb/)
1051 kbo( :,51,11) = (/&
1052 &2.1916e-02_jprb,2.8951e-02_jprb,3.7067e-02_jprb,4.6499e-02_jprb,5.7317e-02_jprb/)
1053 kbo( :,52,11) = (/&
1054 &1.6392e-02_jprb,2.2020e-02_jprb,2.8575e-02_jprb,3.6268e-02_jprb,4.5169e-02_jprb/)
1055 kbo( :,53,11) = (/&
1056 &1.2172e-02_jprb,1.6642e-02_jprb,2.1908e-02_jprb,2.8155e-02_jprb,3.5457e-02_jprb/)
1057 kbo( :,54,11) = (/&
1058 &9.0658e-03_jprb,1.2613e-02_jprb,1.6847e-02_jprb,2.1915e-02_jprb,2.7906e-02_jprb/)
1059 kbo( :,55,11) = (/&
1060 &6.7444e-03_jprb,9.5483e-03_jprb,1.2947e-02_jprb,1.7041e-02_jprb,2.1954e-02_jprb/)
1061 kbo( :,56,11) = (/&
1062 &4.9837e-03_jprb,7.1893e-03_jprb,9.9031e-03_jprb,1.3201e-02_jprb,1.7215e-02_jprb/)
1063 kbo( :,57,11) = (/&
1064 &3.6555e-03_jprb,5.3797e-03_jprb,7.5345e-03_jprb,1.0185e-02_jprb,1.3448e-02_jprb/)
1065 kbo( :,58,11) = (/&
1066 &2.6798e-03_jprb,4.0234e-03_jprb,5.7322e-03_jprb,7.8591e-03_jprb,1.0509e-02_jprb/)
1067 kbo( :,59,11) = (/&
1068 &2.1174e-03_jprb,3.2126e-03_jprb,4.6178e-03_jprb,6.3890e-03_jprb,8.6307e-03_jprb/)
1069 kbo( :,13,12) = (/&
1070 &3.9037e+01_jprb,4.8595e+01_jprb,5.8290e+01_jprb,6.7743e+01_jprb,7.7175e+01_jprb/)
1071 kbo( :,14,12) = (/&
1072 &3.6731e+01_jprb,4.5143e+01_jprb,5.3367e+01_jprb,6.1735e+01_jprb,7.0266e+01_jprb/)
1073 kbo( :,15,12) = (/&
1074 &3.3782e+01_jprb,4.1053e+01_jprb,4.8465e+01_jprb,5.6101e+01_jprb,6.4046e+01_jprb/)
1075 kbo( :,16,12) = (/&
1076 &3.0361e+01_jprb,3.6837e+01_jprb,4.3692e+01_jprb,5.0749e+01_jprb,5.7770e+01_jprb/)
1077 kbo( :,17,12) = (/&
1078 &2.7181e+01_jprb,3.3037e+01_jprb,3.9122e+01_jprb,4.5236e+01_jprb,5.1302e+01_jprb/)
1079 kbo( :,18,12) = (/&
1080 &2.4289e+01_jprb,2.9373e+01_jprb,3.4573e+01_jprb,3.9820e+01_jprb,4.5254e+01_jprb/)
1081 kbo( :,19,12) = (/&
1082 &2.1489e+01_jprb,2.5832e+01_jprb,3.0286e+01_jprb,3.4895e+01_jprb,3.9728e+01_jprb/)
1083 kbo( :,20,12) = (/&
1084 &1.8889e+01_jprb,2.2626e+01_jprb,2.6516e+01_jprb,3.0573e+01_jprb,3.4729e+01_jprb/)
1085 kbo( :,21,12) = (/&
1086 &1.6499e+01_jprb,1.9772e+01_jprb,2.3169e+01_jprb,2.6668e+01_jprb,3.0247e+01_jprb/)
1087 kbo( :,22,12) = (/&
1088 &1.4564e+01_jprb,1.7397e+01_jprb,2.0332e+01_jprb,2.3375e+01_jprb,2.6482e+01_jprb/)
1089 kbo( :,23,12) = (/&
1090 &1.2811e+01_jprb,1.5254e+01_jprb,1.7803e+01_jprb,2.0436e+01_jprb,2.3110e+01_jprb/)
1091 kbo( :,24,12) = (/&
1092 &1.1250e+01_jprb,1.3354e+01_jprb,1.5549e+01_jprb,1.7797e+01_jprb,2.0094e+01_jprb/)
1093 kbo( :,25,12) = (/&
1094 &9.8597e+00_jprb,1.1670e+01_jprb,1.3537e+01_jprb,1.5466e+01_jprb,1.7423e+01_jprb/)
1095 kbo( :,26,12) = (/&
1096 &8.6447e+00_jprb,1.0181e+01_jprb,1.1779e+01_jprb,1.3417e+01_jprb,1.5081e+01_jprb/)
1097 kbo( :,27,12) = (/&
1098 &7.5594e+00_jprb,8.8642e+00_jprb,1.0226e+01_jprb,1.1630e+01_jprb,1.3058e+01_jprb/)
1099 kbo( :,28,12) = (/&
1100 &6.5925e+00_jprb,7.7161e+00_jprb,8.8897e+00_jprb,1.0087e+01_jprb,1.1327e+01_jprb/)
1101 kbo( :,29,12) = (/&
1102 &5.7565e+00_jprb,6.7240e+00_jprb,7.7268e+00_jprb,8.7632e+00_jprb,9.8409e+00_jprb/)
1103 kbo( :,30,12) = (/&
1104 &5.0290e+00_jprb,5.8636e+00_jprb,6.7247e+00_jprb,7.6290e+00_jprb,8.5599e+00_jprb/)
1105 kbo( :,31,12) = (/&
1106 &4.4035e+00_jprb,5.1182e+00_jprb,5.8680e+00_jprb,6.6555e+00_jprb,7.4665e+00_jprb/)
1107 kbo( :,32,12) = (/&
1108 &3.8578e+00_jprb,4.4752e+00_jprb,5.1308e+00_jprb,5.8151e+00_jprb,6.5278e+00_jprb/)
1109 kbo( :,33,12) = (/&
1110 &3.3794e+00_jprb,3.9167e+00_jprb,4.4904e+00_jprb,5.0880e+00_jprb,5.7148e+00_jprb/)
1111 kbo( :,34,12) = (/&
1112 &2.9486e+00_jprb,3.4193e+00_jprb,3.9167e+00_jprb,4.4410e+00_jprb,4.9898e+00_jprb/)
1113 kbo( :,35,12) = (/&
1114 &2.5384e+00_jprb,2.9485e+00_jprb,3.3806e+00_jprb,3.8382e+00_jprb,4.3138e+00_jprb/)
1115 kbo( :,36,12) = (/&
1116 &2.1524e+00_jprb,2.5062e+00_jprb,2.8802e+00_jprb,3.2776e+00_jprb,3.6933e+00_jprb/)
1117 kbo( :,37,12) = (/&
1118 &1.7833e+00_jprb,2.0847e+00_jprb,2.4072e+00_jprb,2.7505e+00_jprb,3.1124e+00_jprb/)
1119 kbo( :,38,12) = (/&
1120 &1.4749e+00_jprb,1.7326e+00_jprb,2.0108e+00_jprb,2.3067e+00_jprb,2.6244e+00_jprb/)
1121 kbo( :,39,12) = (/&
1122 &1.2194e+00_jprb,1.4403e+00_jprb,1.6807e+00_jprb,1.9373e+00_jprb,2.2164e+00_jprb/)
1123 kbo( :,40,12) = (/&
1124 &9.9010e-01_jprb,1.1776e+00_jprb,1.3838e+00_jprb,1.6055e+00_jprb,1.8489e+00_jprb/)
1125 kbo( :,41,12) = (/&
1126 &8.0150e-01_jprb,9.6002e-01_jprb,1.1360e+00_jprb,1.3281e+00_jprb,1.5396e+00_jprb/)
1127 kbo( :,42,12) = (/&
1128 &6.4778e-01_jprb,7.8194e-01_jprb,9.3223e-01_jprb,1.0980e+00_jprb,1.2824e+00_jprb/)
1129 kbo( :,43,12) = (/&
1130 &5.1676e-01_jprb,6.2955e-01_jprb,7.5710e-01_jprb,8.9908e-01_jprb,1.0583e+00_jprb/)
1131 kbo( :,44,12) = (/&
1132 &4.0901e-01_jprb,5.0320e-01_jprb,6.1071e-01_jprb,7.3181e-01_jprb,8.6848e-01_jprb/)
1133 kbo( :,45,12) = (/&
1134 &3.2265e-01_jprb,4.0131e-01_jprb,4.9147e-01_jprb,5.9412e-01_jprb,7.1124e-01_jprb/)
1135 kbo( :,46,12) = (/&
1136 &2.5210e-01_jprb,3.1747e-01_jprb,3.9284e-01_jprb,4.7937e-01_jprb,5.7886e-01_jprb/)
1137 kbo( :,47,12) = (/&
1138 &1.9387e-01_jprb,2.4750e-01_jprb,3.1014e-01_jprb,3.8262e-01_jprb,4.6634e-01_jprb/)
1139 kbo( :,48,12) = (/&
1140 &1.4828e-01_jprb,1.9192e-01_jprb,2.4351e-01_jprb,3.0403e-01_jprb,3.7442e-01_jprb/)
1141 kbo( :,49,12) = (/&
1142 &1.1268e-01_jprb,1.4796e-01_jprb,1.9021e-01_jprb,2.4026e-01_jprb,2.9934e-01_jprb/)
1143 kbo( :,50,12) = (/&
1144 &8.5692e-02_jprb,1.1419e-01_jprb,1.4876e-01_jprb,1.9007e-01_jprb,2.3948e-01_jprb/)
1145 kbo( :,51,12) = (/&
1146 &6.4968e-02_jprb,8.7898e-02_jprb,1.1604e-01_jprb,1.5016e-01_jprb,1.9137e-01_jprb/)
1147 kbo( :,52,12) = (/&
1148 &4.8913e-02_jprb,6.7280e-02_jprb,9.0117e-02_jprb,1.1814e-01_jprb,1.5238e-01_jprb/)
1149 kbo( :,53,12) = (/&
1150 &3.6537e-02_jprb,5.1125e-02_jprb,6.9609e-02_jprb,9.2472e-02_jprb,1.2076e-01_jprb/)
1151 kbo( :,54,12) = (/&
1152 &2.7389e-02_jprb,3.8999e-02_jprb,5.3932e-02_jprb,7.2676e-02_jprb,9.6049e-02_jprb/)
1153 kbo( :,55,12) = (/&
1154 &2.0487e-02_jprb,2.9701e-02_jprb,4.1725e-02_jprb,5.7075e-02_jprb,7.6390e-02_jprb/)
1155 kbo( :,56,12) = (/&
1156 &1.5211e-02_jprb,2.2473e-02_jprb,3.2096e-02_jprb,4.4552e-02_jprb,6.0534e-02_jprb/)
1157 kbo( :,57,12) = (/&
1158 &1.1206e-02_jprb,1.6892e-02_jprb,2.4543e-02_jprb,3.4596e-02_jprb,4.7689e-02_jprb/)
1159 kbo( :,58,12) = (/&
1160 &8.2520e-03_jprb,1.2686e-02_jprb,1.8758e-02_jprb,2.6873e-02_jprb,3.7588e-02_jprb/)
1161 kbo( :,59,12) = (/&
1162 &6.5700e-03_jprb,1.0221e-02_jprb,1.5297e-02_jprb,2.2161e-02_jprb,3.1343e-02_jprb/)
1163 kbo( :,13,13) = (/&
1164 &9.2129e+01_jprb,1.1302e+02_jprb,1.3488e+02_jprb,1.5732e+02_jprb,1.8023e+02_jprb/)
1165 kbo( :,14,13) = (/&
1166 &8.7183e+01_jprb,1.0718e+02_jprb,1.2873e+02_jprb,1.5116e+02_jprb,1.7346e+02_jprb/)
1167 kbo( :,15,13) = (/&
1168 &8.2328e+01_jprb,1.0157e+02_jprb,1.2222e+02_jprb,1.4315e+02_jprb,1.6347e+02_jprb/)
1169 kbo( :,16,13) = (/&
1170 &7.8040e+01_jprb,9.6014e+01_jprb,1.1471e+02_jprb,1.3306e+02_jprb,1.5181e+02_jprb/)
1171 kbo( :,17,13) = (/&
1172 &7.3174e+01_jprb,8.9440e+01_jprb,1.0586e+02_jprb,1.2255e+02_jprb,1.3976e+02_jprb/)
1173 kbo( :,18,13) = (/&
1174 &6.7948e+01_jprb,8.2226e+01_jprb,9.6794e+01_jprb,1.1202e+02_jprb,1.2767e+02_jprb/)
1175 kbo( :,19,13) = (/&
1176 &6.1809e+01_jprb,7.4613e+01_jprb,8.7919e+01_jprb,1.0172e+02_jprb,1.1585e+02_jprb/)
1177 kbo( :,20,13) = (/&
1178 &5.5733e+01_jprb,6.7276e+01_jprb,7.9378e+01_jprb,9.1765e+01_jprb,1.0432e+02_jprb/)
1179 kbo( :,21,13) = (/&
1180 &5.0119e+01_jprb,6.0399e+01_jprb,7.1023e+01_jprb,8.1955e+01_jprb,9.3098e+01_jprb/)
1181 kbo( :,22,13) = (/&
1182 &4.5387e+01_jprb,5.4362e+01_jprb,6.3623e+01_jprb,7.3263e+01_jprb,8.3176e+01_jprb/)
1183 kbo( :,23,13) = (/&
1184 &4.0785e+01_jprb,4.8586e+01_jprb,5.6740e+01_jprb,6.5256e+01_jprb,7.4004e+01_jprb/)
1185 kbo( :,24,13) = (/&
1186 &3.6418e+01_jprb,4.3297e+01_jprb,5.0491e+01_jprb,5.7972e+01_jprb,6.5666e+01_jprb/)
1187 kbo( :,25,13) = (/&
1188 &3.2482e+01_jprb,3.8561e+01_jprb,4.4879e+01_jprb,5.1407e+01_jprb,5.8182e+01_jprb/)
1189 kbo( :,26,13) = (/&
1190 &2.9006e+01_jprb,3.4335e+01_jprb,3.9885e+01_jprb,4.5662e+01_jprb,5.1599e+01_jprb/)
1191 kbo( :,27,13) = (/&
1192 &2.5837e+01_jprb,3.0498e+01_jprb,3.5383e+01_jprb,4.0444e+01_jprb,4.5658e+01_jprb/)
1193 kbo( :,28,13) = (/&
1194 &2.2962e+01_jprb,2.7037e+01_jprb,3.1320e+01_jprb,3.5758e+01_jprb,4.0290e+01_jprb/)
1195 kbo( :,29,13) = (/&
1196 &2.0397e+01_jprb,2.3995e+01_jprb,2.7731e+01_jprb,3.1631e+01_jprb,3.5578e+01_jprb/)
1197 kbo( :,30,13) = (/&
1198 &1.8112e+01_jprb,2.1250e+01_jprb,2.4540e+01_jprb,2.7936e+01_jprb,3.1421e+01_jprb/)
1199 kbo( :,31,13) = (/&
1200 &1.6067e+01_jprb,1.8811e+01_jprb,2.1703e+01_jprb,2.4693e+01_jprb,2.7776e+01_jprb/)
1201 kbo( :,32,13) = (/&
1202 &1.4258e+01_jprb,1.6681e+01_jprb,1.9216e+01_jprb,2.1851e+01_jprb,2.4609e+01_jprb/)
1203 kbo( :,33,13) = (/&
1204 &1.2678e+01_jprb,1.4812e+01_jprb,1.7059e+01_jprb,1.9407e+01_jprb,2.1877e+01_jprb/)
1205 kbo( :,34,13) = (/&
1206 &1.1234e+01_jprb,1.3124e+01_jprb,1.5116e+01_jprb,1.7220e+01_jprb,1.9477e+01_jprb/)
1207 kbo( :,35,13) = (/&
1208 &9.8183e+00_jprb,1.1494e+01_jprb,1.3264e+01_jprb,1.5165e+01_jprb,1.7217e+01_jprb/)
1209 kbo( :,36,13) = (/&
1210 &8.4512e+00_jprb,9.9248e+00_jprb,1.1505e+01_jprb,1.3215e+01_jprb,1.5066e+01_jprb/)
1211 kbo( :,37,13) = (/&
1212 &7.1046e+00_jprb,8.3927e+00_jprb,9.7872e+00_jprb,1.1310e+01_jprb,1.2976e+01_jprb/)
1213 kbo( :,38,13) = (/&
1214 &5.9713e+00_jprb,7.0990e+00_jprb,8.3334e+00_jprb,9.6940e+00_jprb,1.1182e+01_jprb/)
1215 kbo( :,39,13) = (/&
1216 &5.0257e+00_jprb,6.0152e+00_jprb,7.1078e+00_jprb,8.3261e+00_jprb,9.6615e+00_jprb/)
1217 kbo( :,40,13) = (/&
1218 &4.1523e+00_jprb,5.0116e+00_jprb,5.9715e+00_jprb,7.0484e+00_jprb,8.2344e+00_jprb/)
1219 kbo( :,41,13) = (/&
1220 &3.4206e+00_jprb,4.1640e+00_jprb,5.0022e+00_jprb,5.9574e+00_jprb,7.0137e+00_jprb/)
1221 kbo( :,42,13) = (/&
1222 &2.8151e+00_jprb,3.4582e+00_jprb,4.1916e+00_jprb,5.0330e+00_jprb,5.9745e+00_jprb/)
1223 kbo( :,43,13) = (/&
1224 &2.2836e+00_jprb,2.8346e+00_jprb,3.4702e+00_jprb,4.2076e+00_jprb,5.0392e+00_jprb/)
1225 kbo( :,44,13) = (/&
1226 &1.8358e+00_jprb,2.3065e+00_jprb,2.8540e+00_jprb,3.4947e+00_jprb,4.2292e+00_jprb/)
1227 kbo( :,45,13) = (/&
1228 &1.4699e+00_jprb,1.8708e+00_jprb,2.3414e+00_jprb,2.8971e+00_jprb,3.5454e+00_jprb/)
1229 kbo( :,46,13) = (/&
1230 &1.1650e+00_jprb,1.5043e+00_jprb,1.9061e+00_jprb,2.3856e+00_jprb,2.9537e+00_jprb/)
1231 kbo( :,47,13) = (/&
1232 &9.0755e-01_jprb,1.1912e+00_jprb,1.5311e+00_jprb,1.9396e+00_jprb,2.4325e+00_jprb/)
1233 kbo( :,48,13) = (/&
1234 &7.0184e-01_jprb,9.3709e-01_jprb,1.2239e+00_jprb,1.5710e+00_jprb,1.9958e+00_jprb/)
1235 kbo( :,49,13) = (/&
1236 &5.3970e-01_jprb,7.3243e-01_jprb,9.7194e-01_jprb,1.2677e+00_jprb,1.6307e+00_jprb/)
1237 kbo( :,50,13) = (/&
1238 &4.1584e-01_jprb,5.7380e-01_jprb,7.7303e-01_jprb,1.0235e+00_jprb,1.3360e+00_jprb/)
1239 kbo( :,51,13) = (/&
1240 &3.1970e-01_jprb,4.4857e-01_jprb,6.1406e-01_jprb,8.2493e-01_jprb,1.0932e+00_jprb/)
1241 kbo( :,52,13) = (/&
1242 &2.4403e-01_jprb,3.4872e-01_jprb,4.8565e-01_jprb,6.6228e-01_jprb,8.9043e-01_jprb/)
1243 kbo( :,53,13) = (/&
1244 &1.8461e-01_jprb,2.6942e-01_jprb,3.8200e-01_jprb,5.2938e-01_jprb,7.2205e-01_jprb/)
1245 kbo( :,54,13) = (/&
1246 &1.4016e-01_jprb,2.0879e-01_jprb,3.0199e-01_jprb,4.2537e-01_jprb,5.8863e-01_jprb/)
1247 kbo( :,55,13) = (/&
1248 &1.0627e-01_jprb,1.6160e-01_jprb,2.3840e-01_jprb,3.4179e-01_jprb,4.8036e-01_jprb/)
1249 kbo( :,56,13) = (/&
1250 &7.9975e-02_jprb,1.2430e-01_jprb,1.8699e-01_jprb,2.7356e-01_jprb,3.9081e-01_jprb/)
1251 kbo( :,57,13) = (/&
1252 &5.9672e-02_jprb,9.4998e-02_jprb,1.4581e-01_jprb,2.1774e-01_jprb,3.1655e-01_jprb/)
1253 kbo( :,58,13) = (/&
1254 &4.4475e-02_jprb,7.2566e-02_jprb,1.1372e-01_jprb,1.7325e-01_jprb,2.5698e-01_jprb/)
1255 kbo( :,59,13) = (/&
1256 &3.6215e-02_jprb,6.0132e-02_jprb,9.5691e-02_jprb,1.4806e-01_jprb,2.2323e-01_jprb/)
1257 kbo( :,13,14) = (/&
1258 &2.6336e+02_jprb,3.2548e+02_jprb,3.9074e+02_jprb,4.5756e+02_jprb,5.2579e+02_jprb/)
1259 kbo( :,14,14) = (/&
1260 &2.7039e+02_jprb,3.3171e+02_jprb,3.9551e+02_jprb,4.6127e+02_jprb,5.2944e+02_jprb/)
1261 kbo( :,15,14) = (/&
1262 &2.7394e+02_jprb,3.3456e+02_jprb,3.9772e+02_jprb,4.6386e+02_jprb,5.3259e+02_jprb/)
1263 kbo( :,16,14) = (/&
1264 &2.7489e+02_jprb,3.3472e+02_jprb,3.9868e+02_jprb,4.6474e+02_jprb,5.3170e+02_jprb/)
1265 kbo( :,17,14) = (/&
1266 &2.7361e+02_jprb,3.3269e+02_jprb,3.9532e+02_jprb,4.5778e+02_jprb,5.2000e+02_jprb/)
1267 kbo( :,18,14) = (/&
1268 &2.6867e+02_jprb,3.2519e+02_jprb,3.8389e+02_jprb,4.4282e+02_jprb,5.0150e+02_jprb/)
1269 kbo( :,19,14) = (/&
1270 &2.5965e+02_jprb,3.1265e+02_jprb,3.6765e+02_jprb,4.2321e+02_jprb,4.7874e+02_jprb/)
1271 kbo( :,20,14) = (/&
1272 &2.4734e+02_jprb,2.9762e+02_jprb,3.4946e+02_jprb,4.0232e+02_jprb,4.5540e+02_jprb/)
1273 kbo( :,21,14) = (/&
1274 &2.3283e+02_jprb,2.7966e+02_jprb,3.2877e+02_jprb,3.7834e+02_jprb,4.2789e+02_jprb/)
1275 kbo( :,22,14) = (/&
1276 &2.2036e+02_jprb,2.6406e+02_jprb,3.0915e+02_jprb,3.5433e+02_jprb,3.9946e+02_jprb/)
1277 kbo( :,23,14) = (/&
1278 &2.0698e+02_jprb,2.4687e+02_jprb,2.8731e+02_jprb,3.2870e+02_jprb,3.7050e+02_jprb/)
1279 kbo( :,24,14) = (/&
1280 &1.9330e+02_jprb,2.2881e+02_jprb,2.6520e+02_jprb,3.0278e+02_jprb,3.4148e+02_jprb/)
1281 kbo( :,25,14) = (/&
1282 &1.7915e+02_jprb,2.1082e+02_jprb,2.4386e+02_jprb,2.7843e+02_jprb,3.1413e+02_jprb/)
1283 kbo( :,26,14) = (/&
1284 &1.6500e+02_jprb,1.9389e+02_jprb,2.2412e+02_jprb,2.5557e+02_jprb,2.8754e+02_jprb/)
1285 kbo( :,27,14) = (/&
1286 &1.5126e+02_jprb,1.7765e+02_jprb,2.0524e+02_jprb,2.3351e+02_jprb,2.6284e+02_jprb/)
1287 kbo( :,28,14) = (/&
1288 &1.3836e+02_jprb,1.6228e+02_jprb,1.8728e+02_jprb,2.1350e+02_jprb,2.4088e+02_jprb/)
1289 kbo( :,29,14) = (/&
1290 &1.2669e+02_jprb,1.4825e+02_jprb,1.7120e+02_jprb,1.9571e+02_jprb,2.2144e+02_jprb/)
1291 kbo( :,30,14) = (/&
1292 &1.1586e+02_jprb,1.3560e+02_jprb,1.5706e+02_jprb,1.7985e+02_jprb,2.0425e+02_jprb/)
1293 kbo( :,31,14) = (/&
1294 &1.0606e+02_jprb,1.2445e+02_jprb,1.4457e+02_jprb,1.6605e+02_jprb,1.8909e+02_jprb/)
1295 kbo( :,32,14) = (/&
1296 &9.7506e+01_jprb,1.1472e+02_jprb,1.3364e+02_jprb,1.5393e+02_jprb,1.7576e+02_jprb/)
1297 kbo( :,33,14) = (/&
1298 &9.0128e+01_jprb,1.0634e+02_jprb,1.2404e+02_jprb,1.4330e+02_jprb,1.6431e+02_jprb/)
1299 kbo( :,34,14) = (/&
1300 &8.3269e+01_jprb,9.8432e+01_jprb,1.1521e+02_jprb,1.3353e+02_jprb,1.5390e+02_jprb/)
1301 kbo( :,35,14) = (/&
1302 &7.5995e+01_jprb,9.0208e+01_jprb,1.0603e+02_jprb,1.2357e+02_jprb,1.4330e+02_jprb/)
1303 kbo( :,36,14) = (/&
1304 &6.8313e+01_jprb,8.1602e+01_jprb,9.6446e+01_jprb,1.1317e+02_jprb,1.3204e+02_jprb/)
1305 kbo( :,37,14) = (/&
1306 &5.9886e+01_jprb,7.2145e+01_jprb,8.5923e+01_jprb,1.0161e+02_jprb,1.1943e+02_jprb/)
1307 kbo( :,38,14) = (/&
1308 &5.2518e+01_jprb,6.3836e+01_jprb,7.6674e+01_jprb,9.1446e+01_jprb,1.0826e+02_jprb/)
1309 kbo( :,39,14) = (/&
1310 &4.6141e+01_jprb,5.6624e+01_jprb,6.8640e+01_jprb,8.2585e+01_jprb,9.8545e+01_jprb/)
1311 kbo( :,40,14) = (/&
1312 &3.9743e+01_jprb,4.9296e+01_jprb,6.0431e+01_jprb,7.3425e+01_jprb,8.8431e+01_jprb/)
1313 kbo( :,41,14) = (/&
1314 &3.4132e+01_jprb,4.2840e+01_jprb,5.3118e+01_jprb,6.5214e+01_jprb,7.9338e+01_jprb/)
1315 kbo( :,42,14) = (/&
1316 &2.9302e+01_jprb,3.7264e+01_jprb,4.6737e+01_jprb,5.8014e+01_jprb,7.1287e+01_jprb/)
1317 kbo( :,43,14) = (/&
1318 &2.4764e+01_jprb,3.1960e+01_jprb,4.0612e+01_jprb,5.1039e+01_jprb,6.3433e+01_jprb/)
1319 kbo( :,44,14) = (/&
1320 &2.0724e+01_jprb,2.7192e+01_jprb,3.5067e+01_jprb,4.4640e+01_jprb,5.6164e+01_jprb/)
1321 kbo( :,45,14) = (/&
1322 &1.7302e+01_jprb,2.3086e+01_jprb,3.0232e+01_jprb,3.8995e+01_jprb,4.9699e+01_jprb/)
1323 kbo( :,46,14) = (/&
1324 &1.4294e+01_jprb,1.9412e+01_jprb,2.5856e+01_jprb,3.3850e+01_jprb,4.3695e+01_jprb/)
1325 kbo( :,47,14) = (/&
1326 &1.1576e+01_jprb,1.6045e+01_jprb,2.1765e+01_jprb,2.8969e+01_jprb,3.7957e+01_jprb/)
1327 kbo( :,48,14) = (/&
1328 &9.3047e+00_jprb,1.3187e+01_jprb,1.8238e+01_jprb,2.4704e+01_jprb,3.2846e+01_jprb/)
1329 kbo( :,49,14) = (/&
1330 &7.4233e+00_jprb,1.0766e+01_jprb,1.5205e+01_jprb,2.0973e+01_jprb,2.8303e+01_jprb/)
1331 kbo( :,50,14) = (/&
1332 &5.9319e+00_jprb,8.8036e+00_jprb,1.2699e+01_jprb,1.7857e+01_jprb,2.4492e+01_jprb/)
1333 kbo( :,51,14) = (/&
1334 &4.7353e+00_jprb,7.1869e+00_jprb,1.0601e+01_jprb,1.5199e+01_jprb,2.1205e+01_jprb/)
1335 kbo( :,52,14) = (/&
1336 &3.7469e+00_jprb,5.8275e+00_jprb,8.7938e+00_jprb,1.2866e+01_jprb,1.8302e+01_jprb/)
1337 kbo( :,53,14) = (/&
1338 &2.9368e+00_jprb,4.6957e+00_jprb,7.2478e+00_jprb,1.0838e+01_jprb,1.5721e+01_jprb/)
1339 kbo( :,54,14) = (/&
1340 &2.3156e+00_jprb,3.8057e+00_jprb,6.0167e+00_jprb,9.1925e+00_jprb,1.3590e+01_jprb/)
1341 kbo( :,55,14) = (/&
1342 &1.8252e+00_jprb,3.0811e+00_jprb,5.0017e+00_jprb,7.8029e+00_jprb,1.1764e+01_jprb/)
1343 kbo( :,56,14) = (/&
1344 &1.4272e+00_jprb,2.4767e+00_jprb,4.1376e+00_jprb,6.5946e+00_jprb,1.0136e+01_jprb/)
1345 kbo( :,57,14) = (/&
1346 &1.1086e+00_jprb,1.9781e+00_jprb,3.3958e+00_jprb,5.5471e+00_jprb,8.7031e+00_jprb/)
1347 kbo( :,58,14) = (/&
1348 &8.6140e-01_jprb,1.5824e+00_jprb,2.7911e+00_jprb,4.6768e+00_jprb,7.4888e+00_jprb/)
1349 kbo( :,59,14) = (/&
1350 &7.4828e-01_jprb,1.4056e+00_jprb,2.5265e+00_jprb,4.3052e+00_jprb,6.9802e+00_jprb/)
1351 kbo( :,13,15) = (/&
1352 &1.0111e+03_jprb,1.2570e+03_jprb,1.4901e+03_jprb,1.7375e+03_jprb,1.9647e+03_jprb/)
1353 kbo( :,14,15) = (/&
1354 &1.0798e+03_jprb,1.3354e+03_jprb,1.5807e+03_jprb,1.8253e+03_jprb,2.0644e+03_jprb/)
1355 kbo( :,15,15) = (/&
1356 &1.1550e+03_jprb,1.4096e+03_jprb,1.6671e+03_jprb,1.9146e+03_jprb,2.1680e+03_jprb/)
1357 kbo( :,16,15) = (/&
1358 &1.2133e+03_jprb,1.4796e+03_jprb,1.7458e+03_jprb,1.9980e+03_jprb,2.2730e+03_jprb/)
1359 kbo( :,17,15) = (/&
1360 &1.2650e+03_jprb,1.5359e+03_jprb,1.8049e+03_jprb,2.0803e+03_jprb,2.3678e+03_jprb/)
1361 kbo( :,18,15) = (/&
1362 &1.3114e+03_jprb,1.5935e+03_jprb,1.8807e+03_jprb,2.1759e+03_jprb,2.4722e+03_jprb/)
1363 kbo( :,19,15) = (/&
1364 &1.3601e+03_jprb,1.6562e+03_jprb,1.9621e+03_jprb,2.2640e+03_jprb,2.5731e+03_jprb/)
1365 kbo( :,20,15) = (/&
1366 &1.4219e+03_jprb,1.7257e+03_jprb,2.0357e+03_jprb,2.3424e+03_jprb,2.6494e+03_jprb/)
1367 kbo( :,21,15) = (/&
1368 &1.4797e+03_jprb,1.7824e+03_jprb,2.0872e+03_jprb,2.4001e+03_jprb,2.7105e+03_jprb/)
1369 kbo( :,22,15) = (/&
1370 &1.5335e+03_jprb,1.8378e+03_jprb,2.1448e+03_jprb,2.4560e+03_jprb,2.7714e+03_jprb/)
1371 kbo( :,23,15) = (/&
1372 &1.5773e+03_jprb,1.8793e+03_jprb,2.1836e+03_jprb,2.4946e+03_jprb,2.8114e+03_jprb/)
1373 kbo( :,24,15) = (/&
1374 &1.6080e+03_jprb,1.9047e+03_jprb,2.2086e+03_jprb,2.5288e+03_jprb,2.8346e+03_jprb/)
1375 kbo( :,25,15) = (/&
1376 &1.6263e+03_jprb,1.9189e+03_jprb,2.2269e+03_jprb,2.5372e+03_jprb,2.8437e+03_jprb/)
1377 kbo( :,26,15) = (/&
1378 &1.6402e+03_jprb,1.9311e+03_jprb,2.2342e+03_jprb,2.5429e+03_jprb,2.8526e+03_jprb/)
1379 kbo( :,27,15) = (/&
1380 &1.6484e+03_jprb,1.9393e+03_jprb,2.2378e+03_jprb,2.5479e+03_jprb,2.8584e+03_jprb/)
1381 kbo( :,28,15) = (/&
1382 &1.6552e+03_jprb,1.9438e+03_jprb,2.2426e+03_jprb,2.5488e+03_jprb,2.8513e+03_jprb/)
1383 kbo( :,29,15) = (/&
1384 &1.6623e+03_jprb,1.9469e+03_jprb,2.2435e+03_jprb,2.5469e+03_jprb,2.8487e+03_jprb/)
1385 kbo( :,30,15) = (/&
1386 &1.6645e+03_jprb,1.9461e+03_jprb,2.2408e+03_jprb,2.5383e+03_jprb,2.8471e+03_jprb/)
1387 kbo( :,31,15) = (/&
1388 &1.6666e+03_jprb,1.9464e+03_jprb,2.2424e+03_jprb,2.5437e+03_jprb,2.8541e+03_jprb/)
1389 kbo( :,32,15) = (/&
1390 &1.6715e+03_jprb,1.9532e+03_jprb,2.2512e+03_jprb,2.5534e+03_jprb,2.8676e+03_jprb/)
1391 kbo( :,33,15) = (/&
1392 &1.6819e+03_jprb,1.9666e+03_jprb,2.2688e+03_jprb,2.5748e+03_jprb,2.8918e+03_jprb/)
1393 kbo( :,34,15) = (/&
1394 &1.6895e+03_jprb,1.9778e+03_jprb,2.2816e+03_jprb,2.5925e+03_jprb,2.9158e+03_jprb/)
1395 kbo( :,35,15) = (/&
1396 &1.6762e+03_jprb,1.9659e+03_jprb,2.2723e+03_jprb,2.5875e+03_jprb,2.9156e+03_jprb/)
1397 kbo( :,36,15) = (/&
1398 &1.6393e+03_jprb,1.9297e+03_jprb,2.2372e+03_jprb,2.5554e+03_jprb,2.8869e+03_jprb/)
1399 kbo( :,37,15) = (/&
1400 &1.5657e+03_jprb,1.8547e+03_jprb,2.1621e+03_jprb,2.4812e+03_jprb,2.8134e+03_jprb/)
1401 kbo( :,38,15) = (/&
1402 &1.4959e+03_jprb,1.7834e+03_jprb,2.0905e+03_jprb,2.4085e+03_jprb,2.7423e+03_jprb/)
1403 kbo( :,39,15) = (/&
1404 &1.4312e+03_jprb,1.7180e+03_jprb,2.0231e+03_jprb,2.3408e+03_jprb,2.6756e+03_jprb/)
1405 kbo( :,40,15) = (/&
1406 &1.3437e+03_jprb,1.6273e+03_jprb,1.9282e+03_jprb,2.2440e+03_jprb,2.5841e+03_jprb/)
1407 kbo( :,41,15) = (/&
1408 &1.2581e+03_jprb,1.5370e+03_jprb,1.8334e+03_jprb,2.1461e+03_jprb,2.4843e+03_jprb/)
1409 kbo( :,42,15) = (/&
1410 &1.1774e+03_jprb,1.4499e+03_jprb,1.7425e+03_jprb,2.0516e+03_jprb,2.3873e+03_jprb/)
1411 kbo( :,43,15) = (/&
1412 &1.0861e+03_jprb,1.3512e+03_jprb,1.6377e+03_jprb,1.9415e+03_jprb,2.2734e+03_jprb/)
1413 kbo( :,44,15) = (/&
1414 &9.9323e+02_jprb,1.2501e+03_jprb,1.5289e+03_jprb,1.8275e+03_jprb,2.1544e+03_jprb/)
1415 kbo( :,45,15) = (/&
1416 &9.0550e+02_jprb,1.1536e+03_jprb,1.4239e+03_jprb,1.7214e+03_jprb,2.0382e+03_jprb/)
1417 kbo( :,46,15) = (/&
1418 &8.1702e+02_jprb,1.0558e+03_jprb,1.3173e+03_jprb,1.6071e+03_jprb,1.9180e+03_jprb/)
1419 kbo( :,47,15) = (/&
1420 &7.2488e+02_jprb,9.5181e+02_jprb,1.2036e+03_jprb,1.4836e+03_jprb,1.7874e+03_jprb/)
1421 kbo( :,48,15) = (/&
1422 &6.3986e+02_jprb,8.5318e+02_jprb,1.0938e+03_jprb,1.3648e+03_jprb,1.6602e+03_jprb/)
1423 kbo( :,49,15) = (/&
1424 &5.5978e+02_jprb,7.6064e+02_jprb,9.8918e+02_jprb,1.2514e+03_jprb,1.5371e+03_jprb/)
1425 kbo( :,50,15) = (/&
1426 &4.9043e+02_jprb,6.7832e+02_jprb,8.9646e+02_jprb,1.1489e+03_jprb,1.4252e+03_jprb/)
1427 kbo( :,51,15) = (/&
1428 &4.2854e+02_jprb,6.0344e+02_jprb,8.1294e+02_jprb,1.0522e+03_jprb,1.3193e+03_jprb/)
1429 kbo( :,52,15) = (/&
1430 &3.7247e+02_jprb,5.3364e+02_jprb,7.3121e+02_jprb,9.5966e+02_jprb,1.2181e+03_jprb/)
1431 kbo( :,53,15) = (/&
1432 &3.2147e+02_jprb,4.6899e+02_jprb,6.5393e+02_jprb,8.7133e+02_jprb,1.1199e+03_jprb/)
1433 kbo( :,54,15) = (/&
1434 &2.7925e+02_jprb,4.1444e+02_jprb,5.8692e+02_jprb,7.9382e+02_jprb,1.0327e+03_jprb/)
1435 kbo( :,55,15) = (/&
1436 &2.4236e+02_jprb,3.6648e+02_jprb,5.2661e+02_jprb,7.2283e+02_jprb,9.5269e+02_jprb/)
1437 kbo( :,56,15) = (/&
1438 &2.0878e+02_jprb,3.2240e+02_jprb,4.7042e+02_jprb,6.5558e+02_jprb,8.7457e+02_jprb/)
1439 kbo( :,57,15) = (/&
1440 &1.7832e+02_jprb,2.8217e+02_jprb,4.1844e+02_jprb,5.9173e+02_jprb,8.0081e+02_jprb/)
1441 kbo( :,58,15) = (/&
1442 &1.5222e+02_jprb,2.4706e+02_jprb,3.7269e+02_jprb,5.3459e+02_jprb,7.3370e+02_jprb/)
1443 kbo( :,59,15) = (/&
1444 &1.4227e+02_jprb,2.3374e+02_jprb,3.5521e+02_jprb,5.1259e+02_jprb,7.0748e+02_jprb/)
1445 kbo( :,13,16) = (/&
1446 &3.6681e+03_jprb,4.4146e+03_jprb,5.0601e+03_jprb,5.8217e+03_jprb,6.4602e+03_jprb/)
1447 kbo( :,14,16) = (/&
1448 &4.1383e+03_jprb,5.0055e+03_jprb,5.7969e+03_jprb,6.5815e+03_jprb,7.3466e+03_jprb/)
1449 kbo( :,15,16) = (/&
1450 &4.7877e+03_jprb,5.7010e+03_jprb,6.6308e+03_jprb,7.5076e+03_jprb,8.4346e+03_jprb/)
1451 kbo( :,16,16) = (/&
1452 &5.4281e+03_jprb,6.5150e+03_jprb,7.5529e+03_jprb,8.5202e+03_jprb,9.5967e+03_jprb/)
1453 kbo( :,17,16) = (/&
1454 &6.1845e+03_jprb,7.4144e+03_jprb,8.5274e+03_jprb,9.6391e+03_jprb,1.0752e+04_jprb/)
1455 kbo( :,18,16) = (/&
1456 &7.0091e+03_jprb,8.3702e+03_jprb,9.5741e+03_jprb,1.0846e+04_jprb,1.1981e+04_jprb/)
1457 kbo( :,19,16) = (/&
1458 &7.8177e+03_jprb,9.3538e+03_jprb,1.0755e+04_jprb,1.2016e+04_jprb,1.3317e+04_jprb/)
1459 kbo( :,20,16) = (/&
1460 &8.7063e+03_jprb,1.0319e+04_jprb,1.1914e+04_jprb,1.3366e+04_jprb,1.4769e+04_jprb/)
1461 kbo( :,21,16) = (/&
1462 &9.6583e+03_jprb,1.1430e+04_jprb,1.3099e+04_jprb,1.4798e+04_jprb,1.6351e+04_jprb/)
1463 kbo( :,22,16) = (/&
1464 &1.0855e+04_jprb,1.2791e+04_jprb,1.4609e+04_jprb,1.6400e+04_jprb,1.8171e+04_jprb/)
1465 kbo( :,23,16) = (/&
1466 &1.2201e+04_jprb,1.4278e+04_jprb,1.6275e+04_jprb,1.8206e+04_jprb,2.0113e+04_jprb/)
1467 kbo( :,24,16) = (/&
1468 &1.3628e+04_jprb,1.5860e+04_jprb,1.8039e+04_jprb,2.0176e+04_jprb,2.2137e+04_jprb/)
1469 kbo( :,25,16) = (/&
1470 &1.5188e+04_jprb,1.7579e+04_jprb,1.9918e+04_jprb,2.2170e+04_jprb,2.4222e+04_jprb/)
1471 kbo( :,26,16) = (/&
1472 &1.6826e+04_jprb,1.9365e+04_jprb,2.1844e+04_jprb,2.4184e+04_jprb,2.6322e+04_jprb/)
1473 kbo( :,27,16) = (/&
1474 &1.8524e+04_jprb,2.1162e+04_jprb,2.3751e+04_jprb,2.6170e+04_jprb,2.8371e+04_jprb/)
1475 kbo( :,28,16) = (/&
1476 &2.0216e+04_jprb,2.2951e+04_jprb,2.5589e+04_jprb,2.8116e+04_jprb,3.0326e+04_jprb/)
1477 kbo( :,29,16) = (/&
1478 &2.1910e+04_jprb,2.4742e+04_jprb,2.7452e+04_jprb,3.0040e+04_jprb,3.2278e+04_jprb/)
1479 kbo( :,30,16) = (/&
1480 &2.3613e+04_jprb,2.6515e+04_jprb,2.9278e+04_jprb,3.1815e+04_jprb,3.4145e+04_jprb/)
1481 kbo( :,31,16) = (/&
1482 &2.5314e+04_jprb,2.8268e+04_jprb,3.1043e+04_jprb,3.3568e+04_jprb,3.5897e+04_jprb/)
1483 kbo( :,32,16) = (/&
1484 &2.6975e+04_jprb,2.9937e+04_jprb,3.2719e+04_jprb,3.5244e+04_jprb,3.7549e+04_jprb/)
1485 kbo( :,33,16) = (/&
1486 &2.8572e+04_jprb,3.1529e+04_jprb,3.4290e+04_jprb,3.6787e+04_jprb,3.9063e+04_jprb/)
1487 kbo( :,34,16) = (/&
1488 &2.9977e+04_jprb,3.2921e+04_jprb,3.5678e+04_jprb,3.8134e+04_jprb,4.0357e+04_jprb/)
1489 kbo( :,35,16) = (/&
1490 &3.0980e+04_jprb,3.3963e+04_jprb,3.6707e+04_jprb,3.9142e+04_jprb,4.1334e+04_jprb/)
1491 kbo( :,36,16) = (/&
1492 &3.1578e+04_jprb,3.4586e+04_jprb,3.7314e+04_jprb,3.9783e+04_jprb,4.1980e+04_jprb/)
1493 kbo( :,37,16) = (/&
1494 &3.1622e+04_jprb,3.4683e+04_jprb,3.7456e+04_jprb,3.9972e+04_jprb,4.2211e+04_jprb/)
1495 kbo( :,38,16) = (/&
1496 &3.1560e+04_jprb,3.4667e+04_jprb,3.7489e+04_jprb,4.0060e+04_jprb,4.2344e+04_jprb/)
1497 kbo( :,39,16) = (/&
1498 &3.1432e+04_jprb,3.4581e+04_jprb,3.7452e+04_jprb,4.0068e+04_jprb,4.2389e+04_jprb/)
1499 kbo( :,40,16) = (/&
1500 &3.0900e+04_jprb,3.4111e+04_jprb,3.7067e+04_jprb,3.9756e+04_jprb,4.2232e+04_jprb/)
1501 kbo( :,41,16) = (/&
1502 &3.0258e+04_jprb,3.3539e+04_jprb,3.6571e+04_jprb,3.9344e+04_jprb,4.1895e+04_jprb/)
1503 kbo( :,42,16) = (/&
1504 &2.9543e+04_jprb,3.2906e+04_jprb,3.6015e+04_jprb,3.8861e+04_jprb,4.1489e+04_jprb/)
1505 kbo( :,43,16) = (/&
1506 &2.8595e+04_jprb,3.2035e+04_jprb,3.5232e+04_jprb,3.8174e+04_jprb,4.0894e+04_jprb/)
1507 kbo( :,44,16) = (/&
1508 &2.7503e+04_jprb,3.1021e+04_jprb,3.4315e+04_jprb,3.7350e+04_jprb,4.0170e+04_jprb/)
1509 kbo( :,45,16) = (/&
1510 &2.6360e+04_jprb,2.9953e+04_jprb,3.3340e+04_jprb,3.6512e+04_jprb,3.9389e+04_jprb/)
1511 kbo( :,46,16) = (/&
1512 &2.5097e+04_jprb,2.8760e+04_jprb,3.2236e+04_jprb,3.5509e+04_jprb,3.8490e+04_jprb/)
1513 kbo( :,47,16) = (/&
1514 &2.3642e+04_jprb,2.7372e+04_jprb,3.0938e+04_jprb,3.4319e+04_jprb,3.7409e+04_jprb/)
1515 kbo( :,48,16) = (/&
1516 &2.2183e+04_jprb,2.5937e+04_jprb,2.9591e+04_jprb,3.3067e+04_jprb,3.6272e+04_jprb/)
1517 kbo( :,49,16) = (/&
1518 &2.0670e+04_jprb,2.4507e+04_jprb,2.8195e+04_jprb,3.1753e+04_jprb,3.5074e+04_jprb/)
1519 kbo( :,50,16) = (/&
1520 &1.9238e+04_jprb,2.3103e+04_jprb,2.6846e+04_jprb,3.0481e+04_jprb,3.3904e+04_jprb/)
1521 kbo( :,51,16) = (/&
1522 &1.7844e+04_jprb,2.1722e+04_jprb,2.5514e+04_jprb,2.9217e+04_jprb,3.2732e+04_jprb/)
1523 kbo( :,52,16) = (/&
1524 &1.6449e+04_jprb,2.0331e+04_jprb,2.4157e+04_jprb,2.7921e+04_jprb,3.1511e+04_jprb/)
1525 kbo( :,53,16) = (/&
1526 &1.5063e+04_jprb,1.8925e+04_jprb,2.2776e+04_jprb,2.6593e+04_jprb,3.0255e+04_jprb/)
1527 kbo( :,54,16) = (/&
1528 &1.3809e+04_jprb,1.7636e+04_jprb,2.1500e+04_jprb,2.5353e+04_jprb,2.9077e+04_jprb/)
1529 kbo( :,55,16) = (/&
1530 &1.2629e+04_jprb,1.6403e+04_jprb,2.0265e+04_jprb,2.4149e+04_jprb,2.7924e+04_jprb/)
1531 kbo( :,56,16) = (/&
1532 &1.1481e+04_jprb,1.5182e+04_jprb,1.9032e+04_jprb,2.2931e+04_jprb,2.6738e+04_jprb/)
1533 kbo( :,57,16) = (/&
1534 &1.0369e+04_jprb,1.3975e+04_jprb,1.7793e+04_jprb,2.1704e+04_jprb,2.5546e+04_jprb/)
1535 kbo( :,58,16) = (/&
1536 &9.3525e+03_jprb,1.2853e+04_jprb,1.6624e+04_jprb,2.0533e+04_jprb,2.4399e+04_jprb/)
1537 kbo( :,59,16) = (/&
1538 &8.9578e+03_jprb,1.2412e+04_jprb,1.6161e+04_jprb,2.0067e+04_jprb,2.3943e+04_jprb/)
1539 
1540 ! -----------------------------------------------------------------
1541 RETURN
1542 END SUBROUTINE rrtm_kgb2_02
real(kind=jprb), dimension(no2) forrefo
Definition: yoerrto2.F90:21
subroutine rrtm_kgb2_02
Definition: rrtm_kgb2_02.F90:3
real(kind=jprb), dimension(13) refparam
Definition: yoerrta2.F90:18
real(kind=jprb), dimension(10, no2) selfrefo
Definition: yoerrto2.F90:21
real(kind=jprb), dimension(5, 13, no2) kao
Definition: yoerrto2.F90:19
real(kind=jprb), dimension(no2) fracrefbo
Definition: yoerrto2.F90:18
real(kind=jprb), dimension(no2, 13) fracrefao
Definition: yoerrto2.F90:18
real(kind=jprb), dimension(5, 13:59, no2) kbo
Definition: yoerrto2.F90:20