LMDZ
rrtm_kgb1_02.F90
Go to the documentation of this file.
1 !OCL SCALAR
2 SUBROUTINE rrtm_kgb1_02
3 
4 ! Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
5 ! BAND 1: 10-250 cm-1 (low - H2O; high - H2O)
6 ! Reformatted for F90 by JJMorcrette, ECMWF
7 
8 ! ------------------------------------------------------------------
9 
10 #include "tsmbkind.h"
11 
12 USE yoerrto1 , ONLY : kao ,kbo ,selfrefo ,fracrefao ,&
14 
15 ! ------------------------------------------------------------------
16 
17 
18 IMPLICIT NONE
19 
20 ! The array KBO contains absorption coefs at the 16 chosen g-values
21 ! for a range of pressure levels < ~100mb and temperatures. The first
22 ! index in the array, JT, which runs from 1 to 5, corresponds to
23 ! different temperatures. More specifically, JT = 3 means that the
24 ! data are for the reference temperature TREF for this pressure
25 ! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
26 ! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.
27 ! The second index, JP, runs from 13 to 59 and refers to the JPth
28 ! reference pressure level (see taumol.f for the value of these
29 ! pressure levels in mb). The third index, IG, goes from 1 to 16,
30 ! and tells us which g-interval the absorption coefficients are for.
31 
32 kbo( :,13, 1) = (/&
33 &6.6025e-02_jprb,6.0321e-02_jprb,5.5586e-02_jprb,5.1665e-02_jprb,4.8458e-02_jprb/)
34 kbo( :,14, 1) = (/&
35 &6.0235e-02_jprb,5.5378e-02_jprb,5.1361e-02_jprb,4.8017e-02_jprb,4.5225e-02_jprb/)
36 kbo( :,15, 1) = (/&
37 &5.4400e-02_jprb,5.0262e-02_jprb,4.6762e-02_jprb,4.3816e-02_jprb,4.1346e-02_jprb/)
38 kbo( :,16, 1) = (/&
39 &4.7050e-02_jprb,4.3532e-02_jprb,4.0554e-02_jprb,3.8051e-02_jprb,3.5973e-02_jprb/)
40 kbo( :,17, 1) = (/&
41 &4.0158e-02_jprb,3.7199e-02_jprb,3.4718e-02_jprb,3.2658e-02_jprb,3.0958e-02_jprb/)
42 kbo( :,18, 1) = (/&
43 &3.3944e-02_jprb,3.1506e-02_jprb,2.9487e-02_jprb,2.7811e-02_jprb,2.6421e-02_jprb/)
44 kbo( :,19, 1) = (/&
45 &2.8784e-02_jprb,2.6805e-02_jprb,2.5163e-02_jprb,2.3816e-02_jprb,2.2648e-02_jprb/)
46 kbo( :,20, 1) = (/&
47 &2.4061e-02_jprb,2.2468e-02_jprb,2.1155e-02_jprb,2.0067e-02_jprb,1.9096e-02_jprb/)
48 kbo( :,21, 1) = (/&
49 &2.0001e-02_jprb,1.8722e-02_jprb,1.7675e-02_jprb,1.6787e-02_jprb,1.5981e-02_jprb/)
50 kbo( :,22, 1) = (/&
51 &1.6465e-02_jprb,1.5454e-02_jprb,1.4621e-02_jprb,1.3904e-02_jprb,1.3240e-02_jprb/)
52 kbo( :,23, 1) = (/&
53 &1.3531e-02_jprb,1.2731e-02_jprb,1.2060e-02_jprb,1.1483e-02_jprb,1.0937e-02_jprb/)
54 kbo( :,24, 1) = (/&
55 &1.1122e-02_jprb,1.0488e-02_jprb,9.9449e-03_jprb,9.4777e-03_jprb,9.0360e-03_jprb/)
56 kbo( :,25, 1) = (/&
57 &9.1073e-03_jprb,8.6036e-03_jprb,8.1702e-03_jprb,7.7857e-03_jprb,7.4321e-03_jprb/)
58 kbo( :,26, 1) = (/&
59 &7.4301e-03_jprb,7.0285e-03_jprb,6.6816e-03_jprb,6.3677e-03_jprb,6.0862e-03_jprb/)
60 kbo( :,27, 1) = (/&
61 &6.0232e-03_jprb,5.7026e-03_jprb,5.4272e-03_jprb,5.1710e-03_jprb,4.9473e-03_jprb/)
62 kbo( :,28, 1) = (/&
63 &4.8603e-03_jprb,4.6055e-03_jprb,4.3859e-03_jprb,4.1792e-03_jprb,4.0017e-03_jprb/)
64 kbo( :,29, 1) = (/&
65 &3.8797e-03_jprb,3.6792e-03_jprb,3.5020e-03_jprb,3.3388e-03_jprb,3.1981e-03_jprb/)
66 kbo( :,30, 1) = (/&
67 &3.0812e-03_jprb,2.9236e-03_jprb,2.7805e-03_jprb,2.6518e-03_jprb,2.5406e-03_jprb/)
68 kbo( :,31, 1) = (/&
69 &2.4193e-03_jprb,2.2960e-03_jprb,2.1816e-03_jprb,2.0808e-03_jprb,1.9933e-03_jprb/)
70 kbo( :,32, 1) = (/&
71 &1.8919e-03_jprb,1.7956e-03_jprb,1.7054e-03_jprb,1.6268e-03_jprb,1.5587e-03_jprb/)
72 kbo( :,33, 1) = (/&
73 &1.4723e-03_jprb,1.3971e-03_jprb,1.3273e-03_jprb,1.2662e-03_jprb,1.2122e-03_jprb/)
74 kbo( :,34, 1) = (/&
75 &1.1545e-03_jprb,1.0954e-03_jprb,1.0408e-03_jprb,9.9313e-04_jprb,9.5040e-04_jprb/)
76 kbo( :,35, 1) = (/&
77 &9.0984e-04_jprb,8.6285e-04_jprb,8.1968e-04_jprb,7.8221e-04_jprb,7.4823e-04_jprb/)
78 kbo( :,36, 1) = (/&
79 &7.2230e-04_jprb,6.8430e-04_jprb,6.4998e-04_jprb,6.2002e-04_jprb,5.9274e-04_jprb/)
80 kbo( :,37, 1) = (/&
81 &5.8190e-04_jprb,5.5079e-04_jprb,5.2276e-04_jprb,4.9827e-04_jprb,4.7605e-04_jprb/)
82 kbo( :,38, 1) = (/&
83 &4.6798e-04_jprb,4.4253e-04_jprb,4.1941e-04_jprb,3.9951e-04_jprb,3.8152e-04_jprb/)
84 kbo( :,39, 1) = (/&
85 &3.7512e-04_jprb,3.5422e-04_jprb,3.3519e-04_jprb,3.1894e-04_jprb,3.0452e-04_jprb/)
86 kbo( :,40, 1) = (/&
87 &3.0666e-04_jprb,2.8941e-04_jprb,2.7336e-04_jprb,2.6010e-04_jprb,2.4845e-04_jprb/)
88 kbo( :,41, 1) = (/&
89 &2.5152e-04_jprb,2.3686e-04_jprb,2.2364e-04_jprb,2.1291e-04_jprb,2.0310e-04_jprb/)
90 kbo( :,42, 1) = (/&
91 &2.0566e-04_jprb,1.9385e-04_jprb,1.8299e-04_jprb,1.7309e-04_jprb,1.6576e-04_jprb/)
92 kbo( :,43, 1) = (/&
93 &1.6932e-04_jprb,1.5934e-04_jprb,1.5033e-04_jprb,1.4188e-04_jprb,1.3564e-04_jprb/)
94 kbo( :,44, 1) = (/&
95 &1.3958e-04_jprb,1.3104e-04_jprb,1.2350e-04_jprb,1.1633e-04_jprb,1.1027e-04_jprb/)
96 kbo( :,45, 1) = (/&
97 &1.1479e-04_jprb,1.0750e-04_jprb,1.0104e-04_jprb,9.5141e-05_jprb,8.9953e-05_jprb/)
98 kbo( :,46, 1) = (/&
99 &9.4553e-05_jprb,8.8276e-05_jprb,8.2742e-05_jprb,7.7888e-05_jprb,7.3435e-05_jprb/)
100 kbo( :,47, 1) = (/&
101 &7.8399e-05_jprb,7.2932e-05_jprb,6.8177e-05_jprb,6.4080e-05_jprb,6.0318e-05_jprb/)
102 kbo( :,48, 1) = (/&
103 &6.4849e-05_jprb,5.9884e-05_jprb,5.6012e-05_jprb,5.2488e-05_jprb,4.9388e-05_jprb/)
104 kbo( :,49, 1) = (/&
105 &5.3502e-05_jprb,4.9159e-05_jprb,4.5822e-05_jprb,4.2806e-05_jprb,4.0245e-05_jprb/)
106 kbo( :,50, 1) = (/&
107 &4.4506e-05_jprb,4.0716e-05_jprb,3.7652e-05_jprb,3.5217e-05_jprb,3.3017e-05_jprb/)
108 kbo( :,51, 1) = (/&
109 &3.7201e-05_jprb,3.3887e-05_jprb,3.1219e-05_jprb,2.9106e-05_jprb,2.7216e-05_jprb/)
110 kbo( :,52, 1) = (/&
111 &3.0990e-05_jprb,2.8176e-05_jprb,2.5850e-05_jprb,2.4002e-05_jprb,2.2382e-05_jprb/)
112 kbo( :,53, 1) = (/&
113 &2.5835e-05_jprb,2.3389e-05_jprb,2.1361e-05_jprb,1.9746e-05_jprb,1.8343e-05_jprb/)
114 kbo( :,54, 1) = (/&
115 &2.1861e-05_jprb,1.9731e-05_jprb,1.7961e-05_jprb,1.6554e-05_jprb,1.5340e-05_jprb/)
116 kbo( :,55, 1) = (/&
117 &1.8660e-05_jprb,1.6806e-05_jprb,1.5260e-05_jprb,1.3974e-05_jprb,1.2979e-05_jprb/)
118 kbo( :,56, 1) = (/&
119 &1.5934e-05_jprb,1.4319e-05_jprb,1.2975e-05_jprb,1.1855e-05_jprb,1.0987e-05_jprb/)
120 kbo( :,57, 1) = (/&
121 &1.3617e-05_jprb,1.2204e-05_jprb,1.1040e-05_jprb,1.0065e-05_jprb,9.2784e-06_jprb/)
122 kbo( :,58, 1) = (/&
123 &1.1657e-05_jprb,1.0421e-05_jprb,9.4154e-06_jprb,8.5710e-06_jprb,7.8889e-06_jprb/)
124 kbo( :,59, 1) = (/&
125 &1.0037e-05_jprb,8.9852e-06_jprb,8.1354e-06_jprb,7.4217e-06_jprb,6.8483e-06_jprb/)
126 kbo( :,13, 2) = (/&
127 &1.7296e-01_jprb,1.6235e-01_jprb,1.5299e-01_jprb,1.4476e-01_jprb,1.3736e-01_jprb/)
128 kbo( :,14, 2) = (/&
129 &1.4802e-01_jprb,1.3939e-01_jprb,1.3201e-01_jprb,1.2559e-01_jprb,1.1999e-01_jprb/)
130 kbo( :,15, 2) = (/&
131 &1.2666e-01_jprb,1.2001e-01_jprb,1.1439e-01_jprb,1.0960e-01_jprb,1.0553e-01_jprb/)
132 kbo( :,16, 2) = (/&
133 &1.0662e-01_jprb,1.0147e-01_jprb,9.7166e-02_jprb,9.3517e-02_jprb,9.0354e-02_jprb/)
134 kbo( :,17, 2) = (/&
135 &8.9370e-02_jprb,8.5365e-02_jprb,8.2044e-02_jprb,7.9207e-02_jprb,7.6642e-02_jprb/)
136 kbo( :,18, 2) = (/&
137 &7.4539e-02_jprb,7.1393e-02_jprb,6.8781e-02_jprb,6.6515e-02_jprb,6.4461e-02_jprb/)
138 kbo( :,19, 2) = (/&
139 &6.2471e-02_jprb,5.9987e-02_jprb,5.7923e-02_jprb,5.6100e-02_jprb,5.4514e-02_jprb/)
140 kbo( :,20, 2) = (/&
141 &5.1909e-02_jprb,4.9946e-02_jprb,4.8296e-02_jprb,4.6857e-02_jprb,4.5636e-02_jprb/)
142 kbo( :,21, 2) = (/&
143 &4.2988e-02_jprb,4.1439e-02_jprb,4.0114e-02_jprb,3.8994e-02_jprb,3.8038e-02_jprb/)
144 kbo( :,22, 2) = (/&
145 &3.5398e-02_jprb,3.4178e-02_jprb,3.3135e-02_jprb,3.2273e-02_jprb,3.1510e-02_jprb/)
146 kbo( :,23, 2) = (/&
147 &2.9122e-02_jprb,2.8160e-02_jprb,2.7348e-02_jprb,2.6671e-02_jprb,2.6057e-02_jprb/)
148 kbo( :,24, 2) = (/&
149 &2.4007e-02_jprb,2.3245e-02_jprb,2.2611e-02_jprb,2.2076e-02_jprb,2.1589e-02_jprb/)
150 kbo( :,25, 2) = (/&
151 &1.9740e-02_jprb,1.9139e-02_jprb,1.8649e-02_jprb,1.8220e-02_jprb,1.7833e-02_jprb/)
152 kbo( :,26, 2) = (/&
153 &1.6183e-02_jprb,1.5716e-02_jprb,1.5331e-02_jprb,1.4993e-02_jprb,1.4681e-02_jprb/)
154 kbo( :,27, 2) = (/&
155 &1.3189e-02_jprb,1.2828e-02_jprb,1.2525e-02_jprb,1.2251e-02_jprb,1.1998e-02_jprb/)
156 kbo( :,28, 2) = (/&
157 &1.0709e-02_jprb,1.0427e-02_jprb,1.0183e-02_jprb,9.9604e-03_jprb,9.7547e-03_jprb/)
158 kbo( :,29, 2) = (/&
159 &8.6054e-03_jprb,8.3799e-03_jprb,8.1829e-03_jprb,8.0027e-03_jprb,7.8337e-03_jprb/)
160 kbo( :,30, 2) = (/&
161 &6.8847e-03_jprb,6.7028e-03_jprb,6.5429e-03_jprb,6.3953e-03_jprb,6.2560e-03_jprb/)
162 kbo( :,31, 2) = (/&
163 &5.4573e-03_jprb,5.3105e-03_jprb,5.1791e-03_jprb,5.0569e-03_jprb,4.9413e-03_jprb/)
164 kbo( :,32, 2) = (/&
165 &4.3219e-03_jprb,4.2029e-03_jprb,4.0937e-03_jprb,3.9929e-03_jprb,3.8969e-03_jprb/)
166 kbo( :,33, 2) = (/&
167 &3.4170e-03_jprb,3.3182e-03_jprb,3.2286e-03_jprb,3.1450e-03_jprb,3.0655e-03_jprb/)
168 kbo( :,34, 2) = (/&
169 &2.7189e-03_jprb,2.6370e-03_jprb,2.5635e-03_jprb,2.4948e-03_jprb,2.4287e-03_jprb/)
170 kbo( :,35, 2) = (/&
171 &2.1701e-03_jprb,2.1021e-03_jprb,2.0414e-03_jprb,1.9845e-03_jprb,1.9298e-03_jprb/)
172 kbo( :,36, 2) = (/&
173 &1.7404e-03_jprb,1.6842e-03_jprb,1.6334e-03_jprb,1.5862e-03_jprb,1.5407e-03_jprb/)
174 kbo( :,37, 2) = (/&
175 &1.4096e-03_jprb,1.3631e-03_jprb,1.3204e-03_jprb,1.2809e-03_jprb,1.2432e-03_jprb/)
176 kbo( :,38, 2) = (/&
177 &1.1406e-03_jprb,1.1018e-03_jprb,1.0661e-03_jprb,1.0329e-03_jprb,1.0017e-03_jprb/)
178 kbo( :,39, 2) = (/&
179 &9.2061e-04_jprb,8.8850e-04_jprb,8.5860e-04_jprb,8.3080e-04_jprb,8.0479e-04_jprb/)
180 kbo( :,40, 2) = (/&
181 &7.5311e-04_jprb,7.2636e-04_jprb,7.0127e-04_jprb,6.7848e-04_jprb,6.5692e-04_jprb/)
182 kbo( :,41, 2) = (/&
183 &6.1744e-04_jprb,5.9466e-04_jprb,5.7382e-04_jprb,5.5531e-04_jprb,5.3731e-04_jprb/)
184 kbo( :,42, 2) = (/&
185 &5.0580e-04_jprb,4.8681e-04_jprb,4.6945e-04_jprb,4.5312e-04_jprb,4.3911e-04_jprb/)
186 kbo( :,43, 2) = (/&
187 &4.1621e-04_jprb,3.9990e-04_jprb,3.8526e-04_jprb,3.7146e-04_jprb,3.5984e-04_jprb/)
188 kbo( :,44, 2) = (/&
189 &3.4312e-04_jprb,3.2894e-04_jprb,3.1642e-04_jprb,3.0474e-04_jprb,2.9403e-04_jprb/)
190 kbo( :,45, 2) = (/&
191 &2.8281e-04_jprb,2.7042e-04_jprb,2.5951e-04_jprb,2.4968e-04_jprb,2.4057e-04_jprb/)
192 kbo( :,46, 2) = (/&
193 &2.3357e-04_jprb,2.2272e-04_jprb,2.1318e-04_jprb,2.0478e-04_jprb,1.9704e-04_jprb/)
194 kbo( :,47, 2) = (/&
195 &1.9389e-04_jprb,1.8431e-04_jprb,1.7596e-04_jprb,1.6864e-04_jprb,1.6210e-04_jprb/)
196 kbo( :,48, 2) = (/&
197 &1.6095e-04_jprb,1.5228e-04_jprb,1.4517e-04_jprb,1.3875e-04_jprb,1.3313e-04_jprb/)
198 kbo( :,49, 2) = (/&
199 &1.3353e-04_jprb,1.2596e-04_jprb,1.1967e-04_jprb,1.1403e-04_jprb,1.0914e-04_jprb/)
200 kbo( :,50, 2) = (/&
201 &1.1117e-04_jprb,1.0462e-04_jprb,9.8990e-05_jprb,9.4240e-05_jprb,8.9977e-05_jprb/)
202 kbo( :,51, 2) = (/&
203 &9.2729e-05_jprb,8.7105e-05_jprb,8.2233e-05_jprb,7.8109e-05_jprb,7.4418e-05_jprb/)
204 kbo( :,52, 2) = (/&
205 &7.7287e-05_jprb,7.2506e-05_jprb,6.8306e-05_jprb,6.4721e-05_jprb,6.1530e-05_jprb/)
206 kbo( :,53, 2) = (/&
207 &6.4464e-05_jprb,6.0324e-05_jprb,5.6713e-05_jprb,5.3606e-05_jprb,5.0841e-05_jprb/)
208 kbo( :,54, 2) = (/&
209 &5.4091e-05_jprb,5.0519e-05_jprb,4.7424e-05_jprb,4.4759e-05_jprb,4.2387e-05_jprb/)
210 kbo( :,55, 2) = (/&
211 &4.5573e-05_jprb,4.2477e-05_jprb,3.9832e-05_jprb,3.7495e-05_jprb,3.5529e-05_jprb/)
212 kbo( :,56, 2) = (/&
213 &3.8441e-05_jprb,3.5737e-05_jprb,3.3472e-05_jprb,3.1478e-05_jprb,2.9797e-05_jprb/)
214 kbo( :,57, 2) = (/&
215 &3.2461e-05_jprb,3.0095e-05_jprb,2.8145e-05_jprb,2.6441e-05_jprb,2.4970e-05_jprb/)
216 kbo( :,58, 2) = (/&
217 &2.7443e-05_jprb,2.5378e-05_jprb,2.3692e-05_jprb,2.2241e-05_jprb,2.0988e-05_jprb/)
218 kbo( :,59, 2) = (/&
219 &2.3149e-05_jprb,2.1418e-05_jprb,2.0012e-05_jprb,1.8802e-05_jprb,1.7768e-05_jprb/)
220 kbo( :,13, 3) = (/&
221 &2.8224e-01_jprb,2.6908e-01_jprb,2.5766e-01_jprb,2.4741e-01_jprb,2.3813e-01_jprb/)
222 kbo( :,14, 3) = (/&
223 &2.4257e-01_jprb,2.3240e-01_jprb,2.2331e-01_jprb,2.1490e-01_jprb,2.0721e-01_jprb/)
224 kbo( :,15, 3) = (/&
225 &2.0889e-01_jprb,2.0084e-01_jprb,1.9363e-01_jprb,1.8713e-01_jprb,1.8096e-01_jprb/)
226 kbo( :,16, 3) = (/&
227 &1.7673e-01_jprb,1.7035e-01_jprb,1.6477e-01_jprb,1.5966e-01_jprb,1.5481e-01_jprb/)
228 kbo( :,17, 3) = (/&
229 &1.4881e-01_jprb,1.4382e-01_jprb,1.3951e-01_jprb,1.3543e-01_jprb,1.3171e-01_jprb/)
230 kbo( :,18, 3) = (/&
231 &1.2458e-01_jprb,1.2075e-01_jprb,1.1737e-01_jprb,1.1420e-01_jprb,1.1137e-01_jprb/)
232 kbo( :,19, 3) = (/&
233 &1.0492e-01_jprb,1.0202e-01_jprb,9.9387e-02_jprb,9.7022e-02_jprb,9.4878e-02_jprb/)
234 kbo( :,20, 3) = (/&
235 &8.7628e-02_jprb,8.5398e-02_jprb,8.3368e-02_jprb,8.1588e-02_jprb,7.9957e-02_jprb/)
236 kbo( :,21, 3) = (/&
237 &7.2933e-02_jprb,7.1178e-02_jprb,6.9640e-02_jprb,6.8291e-02_jprb,6.7043e-02_jprb/)
238 kbo( :,22, 3) = (/&
239 &6.0366e-02_jprb,5.8999e-02_jprb,5.7832e-02_jprb,5.6813e-02_jprb,5.5848e-02_jprb/)
240 kbo( :,23, 3) = (/&
241 &4.9914e-02_jprb,4.8873e-02_jprb,4.8003e-02_jprb,4.7216e-02_jprb,4.6455e-02_jprb/)
242 kbo( :,24, 3) = (/&
243 &4.1391e-02_jprb,4.0620e-02_jprb,3.9959e-02_jprb,3.9347e-02_jprb,3.8754e-02_jprb/)
244 kbo( :,25, 3) = (/&
245 &3.4252e-02_jprb,3.3678e-02_jprb,3.3169e-02_jprb,3.2674e-02_jprb,3.2208e-02_jprb/)
246 kbo( :,26, 3) = (/&
247 &2.8274e-02_jprb,2.7835e-02_jprb,2.7424e-02_jprb,2.7032e-02_jprb,2.6670e-02_jprb/)
248 kbo( :,27, 3) = (/&
249 &2.3167e-02_jprb,2.2814e-02_jprb,2.2487e-02_jprb,2.2168e-02_jprb,2.1877e-02_jprb/)
250 kbo( :,28, 3) = (/&
251 &1.8878e-02_jprb,1.8591e-02_jprb,1.8322e-02_jprb,1.8060e-02_jprb,1.7820e-02_jprb/)
252 kbo( :,29, 3) = (/&
253 &1.5174e-02_jprb,1.4934e-02_jprb,1.4701e-02_jprb,1.4483e-02_jprb,1.4279e-02_jprb/)
254 kbo( :,30, 3) = (/&
255 &1.2128e-02_jprb,1.1922e-02_jprb,1.1721e-02_jprb,1.1534e-02_jprb,1.1359e-02_jprb/)
256 kbo( :,31, 3) = (/&
257 &9.5821e-03_jprb,9.4015e-03_jprb,9.2253e-03_jprb,9.0655e-03_jprb,8.9152e-03_jprb/)
258 kbo( :,32, 3) = (/&
259 &7.5634e-03_jprb,7.4049e-03_jprb,7.2553e-03_jprb,7.1189e-03_jprb,6.9900e-03_jprb/)
260 kbo( :,33, 3) = (/&
261 &5.9579e-03_jprb,5.8225e-03_jprb,5.6947e-03_jprb,5.5780e-03_jprb,5.4685e-03_jprb/)
262 kbo( :,34, 3) = (/&
263 &4.7299e-03_jprb,4.6155e-03_jprb,4.5082e-03_jprb,4.4109e-03_jprb,4.3191e-03_jprb/)
264 kbo( :,35, 3) = (/&
265 &3.7680e-03_jprb,3.6721e-03_jprb,3.5816e-03_jprb,3.4997e-03_jprb,3.4229e-03_jprb/)
266 kbo( :,36, 3) = (/&
267 &3.0177e-03_jprb,2.9373e-03_jprb,2.8611e-03_jprb,2.7917e-03_jprb,2.7276e-03_jprb/)
268 kbo( :,37, 3) = (/&
269 &2.4418e-03_jprb,2.3740e-03_jprb,2.3098e-03_jprb,2.2509e-03_jprb,2.1971e-03_jprb/)
270 kbo( :,38, 3) = (/&
271 &1.9747e-03_jprb,1.9173e-03_jprb,1.8635e-03_jprb,1.8136e-03_jprb,1.7682e-03_jprb/)
272 kbo( :,39, 3) = (/&
273 &1.5944e-03_jprb,1.5460e-03_jprb,1.5009e-03_jprb,1.4588e-03_jprb,1.4203e-03_jprb/)
274 kbo( :,40, 3) = (/&
275 &1.3041e-03_jprb,1.2634e-03_jprb,1.2255e-03_jprb,1.1907e-03_jprb,1.1583e-03_jprb/)
276 kbo( :,41, 3) = (/&
277 &1.0685e-03_jprb,1.0341e-03_jprb,1.0025e-03_jprb,9.7393e-04_jprb,9.4659e-04_jprb/)
278 kbo( :,42, 3) = (/&
279 &8.7449e-04_jprb,8.4639e-04_jprb,8.1987e-04_jprb,7.9484e-04_jprb,7.7315e-04_jprb/)
280 kbo( :,43, 3) = (/&
281 &7.1788e-04_jprb,6.9483e-04_jprb,6.7250e-04_jprb,6.5138e-04_jprb,6.3319e-04_jprb/)
282 kbo( :,44, 3) = (/&
283 &5.8977e-04_jprb,5.7088e-04_jprb,5.5200e-04_jprb,5.3418e-04_jprb,5.1765e-04_jprb/)
284 kbo( :,45, 3) = (/&
285 &4.8411e-04_jprb,4.6836e-04_jprb,4.5260e-04_jprb,4.3755e-04_jprb,4.2370e-04_jprb/)
286 kbo( :,46, 3) = (/&
287 &3.9795e-04_jprb,3.8453e-04_jprb,3.7150e-04_jprb,3.5880e-04_jprb,3.4714e-04_jprb/)
288 kbo( :,47, 3) = (/&
289 &3.2839e-04_jprb,3.1685e-04_jprb,3.0597e-04_jprb,2.9536e-04_jprb,2.8543e-04_jprb/)
290 kbo( :,48, 3) = (/&
291 &2.7072e-04_jprb,2.6046e-04_jprb,2.5163e-04_jprb,2.4282e-04_jprb,2.3441e-04_jprb/)
292 kbo( :,49, 3) = (/&
293 &2.2287e-04_jprb,2.1412e-04_jprb,2.0662e-04_jprb,1.9921e-04_jprb,1.9220e-04_jprb/)
294 kbo( :,50, 3) = (/&
295 &1.8426e-04_jprb,1.7673e-04_jprb,1.7009e-04_jprb,1.6411e-04_jprb,1.5828e-04_jprb/)
296 kbo( :,51, 3) = (/&
297 &1.5273e-04_jprb,1.4618e-04_jprb,1.4053e-04_jprb,1.3551e-04_jprb,1.3063e-04_jprb/)
298 kbo( :,52, 3) = (/&
299 &1.2644e-04_jprb,1.2087e-04_jprb,1.1601e-04_jprb,1.1179e-04_jprb,1.0769e-04_jprb/)
300 kbo( :,53, 3) = (/&
301 &1.0472e-04_jprb,9.9917e-05_jprb,9.5685e-05_jprb,9.2134e-05_jprb,8.8673e-05_jprb/)
302 kbo( :,54, 3) = (/&
303 &8.7277e-05_jprb,8.3176e-05_jprb,7.9528e-05_jprb,7.6521e-05_jprb,7.3630e-05_jprb/)
304 kbo( :,55, 3) = (/&
305 &7.3027e-05_jprb,6.9537e-05_jprb,6.6419e-05_jprb,6.3736e-05_jprb,6.1447e-05_jprb/)
306 kbo( :,56, 3) = (/&
307 &6.1140e-05_jprb,5.8170e-05_jprb,5.5506e-05_jprb,5.3220e-05_jprb,5.1302e-05_jprb/)
308 kbo( :,57, 3) = (/&
309 &5.1226e-05_jprb,4.8684e-05_jprb,4.6422e-05_jprb,4.4463e-05_jprb,4.2775e-05_jprb/)
310 kbo( :,58, 3) = (/&
311 &4.2970e-05_jprb,4.0795e-05_jprb,3.8883e-05_jprb,3.7209e-05_jprb,3.5788e-05_jprb/)
312 kbo( :,59, 3) = (/&
313 &3.6137e-05_jprb,3.4363e-05_jprb,3.2789e-05_jprb,3.1431e-05_jprb,3.0267e-05_jprb/)
314 kbo( :,13, 4) = (/&
315 &4.4498e-01_jprb,4.2624e-01_jprb,4.0964e-01_jprb,3.9457e-01_jprb,3.8094e-01_jprb/)
316 kbo( :,14, 4) = (/&
317 &3.8421e-01_jprb,3.6885e-01_jprb,3.5551e-01_jprb,3.4386e-01_jprb,3.3352e-01_jprb/)
318 kbo( :,15, 4) = (/&
319 &3.3432e-01_jprb,3.2219e-01_jprb,3.1159e-01_jprb,3.0226e-01_jprb,2.9429e-01_jprb/)
320 kbo( :,16, 4) = (/&
321 &2.8560e-01_jprb,2.7613e-01_jprb,2.6777e-01_jprb,2.6061e-01_jprb,2.5464e-01_jprb/)
322 kbo( :,17, 4) = (/&
323 &2.4342e-01_jprb,2.3605e-01_jprb,2.2955e-01_jprb,2.2421e-01_jprb,2.1979e-01_jprb/)
324 kbo( :,18, 4) = (/&
325 &2.0619e-01_jprb,2.0048e-01_jprb,1.9555e-01_jprb,1.9161e-01_jprb,1.8825e-01_jprb/)
326 kbo( :,19, 4) = (/&
327 &1.7598e-01_jprb,1.7158e-01_jprb,1.6796e-01_jprb,1.6505e-01_jprb,1.6259e-01_jprb/)
328 kbo( :,20, 4) = (/&
329 &1.4854e-01_jprb,1.4525e-01_jprb,1.4255e-01_jprb,1.4041e-01_jprb,1.3862e-01_jprb/)
330 kbo( :,21, 4) = (/&
331 &1.2481e-01_jprb,1.2236e-01_jprb,1.2038e-01_jprb,1.1880e-01_jprb,1.1756e-01_jprb/)
332 kbo( :,22, 4) = (/&
333 &1.0419e-01_jprb,1.0238e-01_jprb,1.0094e-01_jprb,9.9828e-02_jprb,9.8963e-02_jprb/)
334 kbo( :,23, 4) = (/&
335 &8.6892e-02_jprb,8.5552e-02_jprb,8.4508e-02_jprb,8.3742e-02_jprb,8.3137e-02_jprb/)
336 kbo( :,24, 4) = (/&
337 &7.2705e-02_jprb,7.1741e-02_jprb,7.1008e-02_jprb,7.0499e-02_jprb,7.0039e-02_jprb/)
338 kbo( :,25, 4) = (/&
339 &6.0676e-02_jprb,5.9993e-02_jprb,5.9492e-02_jprb,5.9114e-02_jprb,5.8730e-02_jprb/)
340 kbo( :,26, 4) = (/&
341 &5.0468e-02_jprb,4.9976e-02_jprb,4.9610e-02_jprb,4.9307e-02_jprb,4.8978e-02_jprb/)
342 kbo( :,27, 4) = (/&
343 &4.1559e-02_jprb,4.1193e-02_jprb,4.0911e-02_jprb,4.0637e-02_jprb,4.0354e-02_jprb/)
344 kbo( :,28, 4) = (/&
345 &3.3971e-02_jprb,3.3679e-02_jprb,3.3442e-02_jprb,3.3204e-02_jprb,3.2964e-02_jprb/)
346 kbo( :,29, 4) = (/&
347 &2.7264e-02_jprb,2.7013e-02_jprb,2.6808e-02_jprb,2.6604e-02_jprb,2.6386e-02_jprb/)
348 kbo( :,30, 4) = (/&
349 &2.1713e-02_jprb,2.1498e-02_jprb,2.1318e-02_jprb,2.1130e-02_jprb,2.0938e-02_jprb/)
350 kbo( :,31, 4) = (/&
351 &1.7042e-02_jprb,1.6858e-02_jprb,1.6691e-02_jprb,1.6519e-02_jprb,1.6352e-02_jprb/)
352 kbo( :,32, 4) = (/&
353 &1.3370e-02_jprb,1.3212e-02_jprb,1.3061e-02_jprb,1.2908e-02_jprb,1.2763e-02_jprb/)
354 kbo( :,33, 4) = (/&
355 &1.0471e-02_jprb,1.0335e-02_jprb,1.0205e-02_jprb,1.0071e-02_jprb,9.9443e-03_jprb/)
356 kbo( :,34, 4) = (/&
357 &8.2822e-03_jprb,8.1673e-03_jprb,8.0568e-03_jprb,7.9430e-03_jprb,7.8343e-03_jprb/)
358 kbo( :,35, 4) = (/&
359 &6.5706e-03_jprb,6.4732e-03_jprb,6.3800e-03_jprb,6.2836e-03_jprb,6.1906e-03_jprb/)
360 kbo( :,36, 4) = (/&
361 &5.2374e-03_jprb,5.1544e-03_jprb,5.0765e-03_jprb,4.9959e-03_jprb,4.9170e-03_jprb/)
362 kbo( :,37, 4) = (/&
363 &4.2152e-03_jprb,4.1453e-03_jprb,4.0802e-03_jprb,4.0137e-03_jprb,3.9470e-03_jprb/)
364 kbo( :,38, 4) = (/&
365 &3.3887e-03_jprb,3.3299e-03_jprb,3.2750e-03_jprb,3.2202e-03_jprb,3.1640e-03_jprb/)
366 kbo( :,39, 4) = (/&
367 &2.7192e-03_jprb,2.6687e-03_jprb,2.6217e-03_jprb,2.5767e-03_jprb,2.5302e-03_jprb/)
368 kbo( :,40, 4) = (/&
369 &2.2135e-03_jprb,2.1698e-03_jprb,2.1301e-03_jprb,2.0941e-03_jprb,2.0563e-03_jprb/)
370 kbo( :,41, 4) = (/&
371 &1.8054e-03_jprb,1.7673e-03_jprb,1.7338e-03_jprb,1.7053e-03_jprb,1.6746e-03_jprb/)
372 kbo( :,42, 4) = (/&
373 &1.4708e-03_jprb,1.4392e-03_jprb,1.4108e-03_jprb,1.3843e-03_jprb,1.3624e-03_jprb/)
374 kbo( :,43, 4) = (/&
375 &1.2027e-03_jprb,1.1753e-03_jprb,1.1507e-03_jprb,1.1283e-03_jprb,1.1105e-03_jprb/)
376 kbo( :,44, 4) = (/&
377 &9.8462e-04_jprb,9.6042e-04_jprb,9.3913e-04_jprb,9.1991e-04_jprb,9.0230e-04_jprb/)
378 kbo( :,45, 4) = (/&
379 &8.0542e-04_jprb,7.8415e-04_jprb,7.6564e-04_jprb,7.4892e-04_jprb,7.3408e-04_jprb/)
380 kbo( :,46, 4) = (/&
381 &6.5968e-04_jprb,6.4114e-04_jprb,6.2484e-04_jprb,6.1027e-04_jprb,5.9757e-04_jprb/)
382 kbo( :,47, 4) = (/&
383 &5.4254e-04_jprb,5.2637e-04_jprb,5.1198e-04_jprb,4.9924e-04_jprb,4.8823e-04_jprb/)
384 kbo( :,48, 4) = (/&
385 &4.4583e-04_jprb,4.3098e-04_jprb,4.1917e-04_jprb,4.0789e-04_jprb,3.9833e-04_jprb/)
386 kbo( :,49, 4) = (/&
387 &3.6597e-04_jprb,3.5313e-04_jprb,3.4272e-04_jprb,3.3276e-04_jprb,3.2437e-04_jprb/)
388 kbo( :,50, 4) = (/&
389 &3.0183e-04_jprb,2.9081e-04_jprb,2.8109e-04_jprb,2.7313e-04_jprb,2.6573e-04_jprb/)
390 kbo( :,51, 4) = (/&
391 &2.4952e-04_jprb,2.4012e-04_jprb,2.3178e-04_jprb,2.2484e-04_jprb,2.1839e-04_jprb/)
392 kbo( :,52, 4) = (/&
393 &2.0590e-04_jprb,1.9816e-04_jprb,1.9102e-04_jprb,1.8499e-04_jprb,1.7939e-04_jprb/)
394 kbo( :,53, 4) = (/&
395 &1.6997e-04_jprb,1.6338e-04_jprb,1.5728e-04_jprb,1.5208e-04_jprb,1.4721e-04_jprb/)
396 kbo( :,54, 4) = (/&
397 &1.4137e-04_jprb,1.3582e-04_jprb,1.3065e-04_jprb,1.2623e-04_jprb,1.2203e-04_jprb/)
398 kbo( :,55, 4) = (/&
399 &1.1811e-04_jprb,1.1349e-04_jprb,1.0913e-04_jprb,1.0509e-04_jprb,1.0178e-04_jprb/)
400 kbo( :,56, 4) = (/&
401 &9.8748e-05_jprb,9.4876e-05_jprb,9.1206e-05_jprb,8.7799e-05_jprb,8.4972e-05_jprb/)
402 kbo( :,57, 4) = (/&
403 &8.2626e-05_jprb,7.9374e-05_jprb,7.6285e-05_jprb,7.3421e-05_jprb,7.0844e-05_jprb/)
404 kbo( :,58, 4) = (/&
405 &6.9274e-05_jprb,6.6523e-05_jprb,6.3940e-05_jprb,6.1535e-05_jprb,5.9367e-05_jprb/)
406 kbo( :,59, 4) = (/&
407 &5.8640e-05_jprb,5.6344e-05_jprb,5.4214e-05_jprb,5.2234e-05_jprb,5.0475e-05_jprb/)
408 kbo( :,13, 5) = (/&
409 &7.7160e-01_jprb,7.4444e-01_jprb,7.1907e-01_jprb,6.9531e-01_jprb,6.7298e-01_jprb/)
410 kbo( :,14, 5) = (/&
411 &6.7466e-01_jprb,6.5300e-01_jprb,6.3239e-01_jprb,6.1248e-01_jprb,5.9379e-01_jprb/)
412 kbo( :,15, 5) = (/&
413 &5.9635e-01_jprb,5.7861e-01_jprb,5.6121e-01_jprb,5.4480e-01_jprb,5.2962e-01_jprb/)
414 kbo( :,16, 5) = (/&
415 &5.1541e-01_jprb,5.0066e-01_jprb,4.8672e-01_jprb,4.7349e-01_jprb,4.6138e-01_jprb/)
416 kbo( :,17, 5) = (/&
417 &4.4269e-01_jprb,4.3080e-01_jprb,4.1977e-01_jprb,4.0931e-01_jprb,3.9988e-01_jprb/)
418 kbo( :,18, 5) = (/&
419 &3.7780e-01_jprb,3.6850e-01_jprb,3.5976e-01_jprb,3.5172e-01_jprb,3.4458e-01_jprb/)
420 kbo( :,19, 5) = (/&
421 &3.2514e-01_jprb,3.1806e-01_jprb,3.1138e-01_jprb,3.0554e-01_jprb,3.0027e-01_jprb/)
422 kbo( :,20, 5) = (/&
423 &2.7650e-01_jprb,2.7122e-01_jprb,2.6628e-01_jprb,2.6193e-01_jprb,2.5804e-01_jprb/)
424 kbo( :,21, 5) = (/&
425 &2.3395e-01_jprb,2.2994e-01_jprb,2.2632e-01_jprb,2.2310e-01_jprb,2.2015e-01_jprb/)
426 kbo( :,22, 5) = (/&
427 &1.9653e-01_jprb,1.9358e-01_jprb,1.9093e-01_jprb,1.8856e-01_jprb,1.8639e-01_jprb/)
428 kbo( :,23, 5) = (/&
429 &1.6491e-01_jprb,1.6277e-01_jprb,1.6085e-01_jprb,1.5911e-01_jprb,1.5759e-01_jprb/)
430 kbo( :,24, 5) = (/&
431 &1.3897e-01_jprb,1.3743e-01_jprb,1.3602e-01_jprb,1.3482e-01_jprb,1.3382e-01_jprb/)
432 kbo( :,25, 5) = (/&
433 &1.1669e-01_jprb,1.1561e-01_jprb,1.1461e-01_jprb,1.1379e-01_jprb,1.1309e-01_jprb/)
434 kbo( :,26, 5) = (/&
435 &9.7609e-02_jprb,9.6847e-02_jprb,9.6135e-02_jprb,9.5565e-02_jprb,9.5002e-02_jprb/)
436 kbo( :,27, 5) = (/&
437 &8.0793e-02_jprb,8.0221e-02_jprb,7.9703e-02_jprb,7.9212e-02_jprb,7.8694e-02_jprb/)
438 kbo( :,28, 5) = (/&
439 &6.6330e-02_jprb,6.5862e-02_jprb,6.5425e-02_jprb,6.4984e-02_jprb,6.4496e-02_jprb/)
440 kbo( :,29, 5) = (/&
441 &5.3342e-02_jprb,5.2927e-02_jprb,5.2528e-02_jprb,5.2127e-02_jprb,5.1683e-02_jprb/)
442 kbo( :,30, 5) = (/&
443 &4.2517e-02_jprb,4.2134e-02_jprb,4.1768e-02_jprb,4.1401e-02_jprb,4.1018e-02_jprb/)
444 kbo( :,31, 5) = (/&
445 &3.3321e-02_jprb,3.2971e-02_jprb,3.2637e-02_jprb,3.2307e-02_jprb,3.1983e-02_jprb/)
446 kbo( :,32, 5) = (/&
447 &2.6085e-02_jprb,2.5777e-02_jprb,2.5482e-02_jprb,2.5197e-02_jprb,2.4920e-02_jprb/)
448 kbo( :,33, 5) = (/&
449 &2.0380e-02_jprb,2.0114e-02_jprb,1.9855e-02_jprb,1.9613e-02_jprb,1.9379e-02_jprb/)
450 kbo( :,34, 5) = (/&
451 &1.6094e-02_jprb,1.5866e-02_jprb,1.5645e-02_jprb,1.5443e-02_jprb,1.5250e-02_jprb/)
452 kbo( :,35, 5) = (/&
453 &1.2747e-02_jprb,1.2551e-02_jprb,1.2366e-02_jprb,1.2199e-02_jprb,1.2040e-02_jprb/)
454 kbo( :,36, 5) = (/&
455 &1.0146e-02_jprb,9.9805e-03_jprb,9.8261e-03_jprb,9.6852e-03_jprb,9.5528e-03_jprb/)
456 kbo( :,37, 5) = (/&
457 &8.1592e-03_jprb,8.0204e-03_jprb,7.8907e-03_jprb,7.7704e-03_jprb,7.6600e-03_jprb/)
458 kbo( :,38, 5) = (/&
459 &6.5529e-03_jprb,6.4351e-03_jprb,6.3266e-03_jprb,6.2249e-03_jprb,6.1328e-03_jprb/)
460 kbo( :,39, 5) = (/&
461 &5.2501e-03_jprb,5.1505e-03_jprb,5.0574e-03_jprb,4.9738e-03_jprb,4.8970e-03_jprb/)
462 kbo( :,40, 5) = (/&
463 &4.2699e-03_jprb,4.1868e-03_jprb,4.1077e-03_jprb,4.0405e-03_jprb,3.9772e-03_jprb/)
464 kbo( :,41, 5) = (/&
465 &3.4793e-03_jprb,3.4089e-03_jprb,3.3430e-03_jprb,3.2899e-03_jprb,3.2370e-03_jprb/)
466 kbo( :,42, 5) = (/&
467 &2.8300e-03_jprb,2.7744e-03_jprb,2.7198e-03_jprb,2.6679e-03_jprb,2.6320e-03_jprb/)
468 kbo( :,43, 5) = (/&
469 &2.3102e-03_jprb,2.2637e-03_jprb,2.2184e-03_jprb,2.1738e-03_jprb,2.1446e-03_jprb/)
470 kbo( :,44, 5) = (/&
471 &1.8868e-03_jprb,1.8478e-03_jprb,1.8100e-03_jprb,1.7720e-03_jprb,1.7388e-03_jprb/)
472 kbo( :,45, 5) = (/&
473 &1.5390e-03_jprb,1.5063e-03_jprb,1.4743e-03_jprb,1.4422e-03_jprb,1.4137e-03_jprb/)
474 kbo( :,46, 5) = (/&
475 &1.2560e-03_jprb,1.2289e-03_jprb,1.2018e-03_jprb,1.1747e-03_jprb,1.1502e-03_jprb/)
476 kbo( :,47, 5) = (/&
477 &1.0286e-03_jprb,1.0064e-03_jprb,9.8327e-04_jprb,9.6042e-04_jprb,9.3954e-04_jprb/)
478 kbo( :,48, 5) = (/&
479 &8.4091e-04_jprb,8.1988e-04_jprb,8.0308e-04_jprb,7.8384e-04_jprb,7.6613e-04_jprb/)
480 kbo( :,49, 5) = (/&
481 &6.8566e-04_jprb,6.6838e-04_jprb,6.5450e-04_jprb,6.3815e-04_jprb,6.2312e-04_jprb/)
482 kbo( :,50, 5) = (/&
483 &5.6202e-04_jprb,5.4792e-04_jprb,5.3430e-04_jprb,5.2267e-04_jprb,5.0999e-04_jprb/)
484 kbo( :,51, 5) = (/&
485 &4.6200e-04_jprb,4.5031e-04_jprb,4.3906e-04_jprb,4.2940e-04_jprb,4.1869e-04_jprb/)
486 kbo( :,52, 5) = (/&
487 &3.7843e-04_jprb,3.6947e-04_jprb,3.6036e-04_jprb,3.5233e-04_jprb,3.4327e-04_jprb/)
488 kbo( :,53, 5) = (/&
489 &3.1055e-04_jprb,3.0267e-04_jprb,2.9523e-04_jprb,2.8852e-04_jprb,2.8094e-04_jprb/)
490 kbo( :,54, 5) = (/&
491 &2.5746e-04_jprb,2.5066e-04_jprb,2.4444e-04_jprb,2.3894e-04_jprb,2.3267e-04_jprb/)
492 kbo( :,55, 5) = (/&
493 &2.1472e-04_jprb,2.0894e-04_jprb,2.0371e-04_jprb,1.9841e-04_jprb,1.9408e-04_jprb/)
494 kbo( :,56, 5) = (/&
495 &1.7913e-04_jprb,1.7430e-04_jprb,1.6988e-04_jprb,1.6554e-04_jprb,1.6197e-04_jprb/)
496 kbo( :,57, 5) = (/&
497 &1.4951e-04_jprb,1.4553e-04_jprb,1.4177e-04_jprb,1.3820e-04_jprb,1.3474e-04_jprb/)
498 kbo( :,58, 5) = (/&
499 &1.2504e-04_jprb,1.2181e-04_jprb,1.1864e-04_jprb,1.1569e-04_jprb,1.1287e-04_jprb/)
500 kbo( :,59, 5) = (/&
501 &1.0614e-04_jprb,1.0364e-04_jprb,1.0111e-04_jprb,9.8749e-05_jprb,9.6452e-05_jprb/)
502 kbo( :,13, 6) = (/&
503 &1.5191e+00_jprb,1.4695e+00_jprb,1.4192e+00_jprb,1.3697e+00_jprb,1.3235e+00_jprb/)
504 kbo( :,14, 6) = (/&
505 &1.3318e+00_jprb,1.2897e+00_jprb,1.2478e+00_jprb,1.2076e+00_jprb,1.1701e+00_jprb/)
506 kbo( :,15, 6) = (/&
507 &1.1798e+00_jprb,1.1443e+00_jprb,1.1093e+00_jprb,1.0759e+00_jprb,1.0445e+00_jprb/)
508 kbo( :,16, 6) = (/&
509 &1.0281e+00_jprb,9.9819e-01_jprb,9.6877e-01_jprb,9.4092e-01_jprb,9.1439e-01_jprb/)
510 kbo( :,17, 6) = (/&
511 &8.8986e-01_jprb,8.6523e-01_jprb,8.4111e-01_jprb,8.1786e-01_jprb,7.9588e-01_jprb/)
512 kbo( :,18, 6) = (/&
513 &7.6316e-01_jprb,7.4298e-01_jprb,7.2337e-01_jprb,7.0449e-01_jprb,6.8700e-01_jprb/)
514 kbo( :,19, 6) = (/&
515 &6.5943e-01_jprb,6.4308e-01_jprb,6.2731e-01_jprb,6.1232e-01_jprb,5.9858e-01_jprb/)
516 kbo( :,20, 6) = (/&
517 &5.6316e-01_jprb,5.4994e-01_jprb,5.3764e-01_jprb,5.2623e-01_jprb,5.1573e-01_jprb/)
518 kbo( :,21, 6) = (/&
519 &4.7806e-01_jprb,4.6791e-01_jprb,4.5861e-01_jprb,4.4996e-01_jprb,4.4207e-01_jprb/)
520 kbo( :,22, 6) = (/&
521 &4.0277e-01_jprb,3.9520e-01_jprb,3.8813e-01_jprb,3.8164e-01_jprb,3.7585e-01_jprb/)
522 kbo( :,23, 6) = (/&
523 &3.3902e-01_jprb,3.3325e-01_jprb,3.2795e-01_jprb,3.2312e-01_jprb,3.1896e-01_jprb/)
524 kbo( :,24, 6) = (/&
525 &2.8650e-01_jprb,2.8213e-01_jprb,2.7823e-01_jprb,2.7486e-01_jprb,2.7205e-01_jprb/)
526 kbo( :,25, 6) = (/&
527 &2.4143e-01_jprb,2.3816e-01_jprb,2.3547e-01_jprb,2.3317e-01_jprb,2.3145e-01_jprb/)
528 kbo( :,26, 6) = (/&
529 &2.0266e-01_jprb,2.0036e-01_jprb,1.9851e-01_jprb,1.9709e-01_jprb,1.9604e-01_jprb/)
530 kbo( :,27, 6) = (/&
531 &1.6827e-01_jprb,1.6669e-01_jprb,1.6549e-01_jprb,1.6454e-01_jprb,1.6379e-01_jprb/)
532 kbo( :,28, 6) = (/&
533 &1.3863e-01_jprb,1.3755e-01_jprb,1.3670e-01_jprb,1.3598e-01_jprb,1.3532e-01_jprb/)
534 kbo( :,29, 6) = (/&
535 &1.1195e-01_jprb,1.1112e-01_jprb,1.1039e-01_jprb,1.0972e-01_jprb,1.0905e-01_jprb/)
536 kbo( :,30, 6) = (/&
537 &8.9622e-02_jprb,8.8892e-02_jprb,8.8204e-02_jprb,8.7546e-02_jprb,8.6864e-02_jprb/)
538 kbo( :,31, 6) = (/&
539 &7.0503e-02_jprb,6.9820e-02_jprb,6.9151e-02_jprb,6.8505e-02_jprb,6.7845e-02_jprb/)
540 kbo( :,32, 6) = (/&
541 &5.5386e-02_jprb,5.4746e-02_jprb,5.4116e-02_jprb,5.3514e-02_jprb,5.2914e-02_jprb/)
542 kbo( :,33, 6) = (/&
543 &4.3379e-02_jprb,4.2797e-02_jprb,4.2232e-02_jprb,4.1691e-02_jprb,4.1166e-02_jprb/)
544 kbo( :,34, 6) = (/&
545 &3.4320e-02_jprb,3.3808e-02_jprb,3.3321e-02_jprb,3.2856e-02_jprb,3.2407e-02_jprb/)
546 kbo( :,35, 6) = (/&
547 &2.7216e-02_jprb,2.6777e-02_jprb,2.6359e-02_jprb,2.5963e-02_jprb,2.5584e-02_jprb/)
548 kbo( :,36, 6) = (/&
549 &2.1684e-02_jprb,2.1311e-02_jprb,2.0954e-02_jprb,2.0621e-02_jprb,2.0303e-02_jprb/)
550 kbo( :,37, 6) = (/&
551 &1.7460e-02_jprb,1.7144e-02_jprb,1.6842e-02_jprb,1.6560e-02_jprb,1.6295e-02_jprb/)
552 kbo( :,38, 6) = (/&
553 &1.4038e-02_jprb,1.3770e-02_jprb,1.3517e-02_jprb,1.3278e-02_jprb,1.3058e-02_jprb/)
554 kbo( :,39, 6) = (/&
555 &1.1256e-02_jprb,1.1031e-02_jprb,1.0816e-02_jprb,1.0618e-02_jprb,1.0434e-02_jprb/)
556 kbo( :,40, 6) = (/&
557 &9.1649e-03_jprb,8.9760e-03_jprb,8.7972e-03_jprb,8.6398e-03_jprb,8.4878e-03_jprb/)
558 kbo( :,41, 6) = (/&
559 &7.4755e-03_jprb,7.3166e-03_jprb,7.1692e-03_jprb,7.0488e-03_jprb,6.9207e-03_jprb/)
560 kbo( :,42, 6) = (/&
561 &6.0804e-03_jprb,5.9624e-03_jprb,5.8409e-03_jprb,5.7188e-03_jprb,5.6367e-03_jprb/)
562 kbo( :,43, 6) = (/&
563 &4.9643e-03_jprb,4.8712e-03_jprb,4.7704e-03_jprb,4.6675e-03_jprb,4.6008e-03_jprb/)
564 kbo( :,44, 6) = (/&
565 &4.0546e-03_jprb,3.9806e-03_jprb,3.8967e-03_jprb,3.8101e-03_jprb,3.7308e-03_jprb/)
566 kbo( :,45, 6) = (/&
567 &3.3063e-03_jprb,3.2467e-03_jprb,3.1772e-03_jprb,3.1048e-03_jprb,3.0380e-03_jprb/)
568 kbo( :,46, 6) = (/&
569 &2.6976e-03_jprb,2.6493e-03_jprb,2.5918e-03_jprb,2.5315e-03_jprb,2.4753e-03_jprb/)
570 kbo( :,47, 6) = (/&
571 &2.2084e-03_jprb,2.1692e-03_jprb,2.1216e-03_jprb,2.0717e-03_jprb,2.0247e-03_jprb/)
572 kbo( :,48, 6) = (/&
573 &1.8045e-03_jprb,1.7627e-03_jprb,1.7331e-03_jprb,1.6919e-03_jprb,1.6528e-03_jprb/)
574 kbo( :,49, 6) = (/&
575 &1.4712e-03_jprb,1.4359e-03_jprb,1.4119e-03_jprb,1.3778e-03_jprb,1.3455e-03_jprb/)
576 kbo( :,50, 6) = (/&
577 &1.2061e-03_jprb,1.1766e-03_jprb,1.1505e-03_jprb,1.1288e-03_jprb,1.1022e-03_jprb/)
578 kbo( :,51, 6) = (/&
579 &9.9096e-04_jprb,9.6691e-04_jprb,9.4524e-04_jprb,9.2753e-04_jprb,9.0555e-04_jprb/)
580 kbo( :,52, 6) = (/&
581 &8.0904e-04_jprb,7.9365e-04_jprb,7.7550e-04_jprb,7.6091e-04_jprb,7.4280e-04_jprb/)
582 kbo( :,53, 6) = (/&
583 &6.6208e-04_jprb,6.5010e-04_jprb,6.3515e-04_jprb,6.2298e-04_jprb,6.0802e-04_jprb/)
584 kbo( :,54, 6) = (/&
585 &5.4731e-04_jprb,5.3810e-04_jprb,5.2612e-04_jprb,5.1599e-04_jprb,5.0369e-04_jprb/)
586 kbo( :,55, 6) = (/&
587 &4.5523e-04_jprb,4.4817e-04_jprb,4.3877e-04_jprb,4.2800e-04_jprb,4.2030e-04_jprb/)
588 kbo( :,56, 6) = (/&
589 &3.7865e-04_jprb,3.7332e-04_jprb,3.6607e-04_jprb,3.5724e-04_jprb,3.5095e-04_jprb/)
590 kbo( :,57, 6) = (/&
591 &3.1496e-04_jprb,3.1113e-04_jprb,3.0556e-04_jprb,2.9842e-04_jprb,2.9145e-04_jprb/)
592 kbo( :,58, 6) = (/&
593 &2.6256e-04_jprb,2.5998e-04_jprb,2.5570e-04_jprb,2.5003e-04_jprb,2.4428e-04_jprb/)
594 kbo( :,59, 6) = (/&
595 &2.2328e-04_jprb,2.2151e-04_jprb,2.1824e-04_jprb,2.1368e-04_jprb,2.0910e-04_jprb/)
596 kbo( :,13, 7) = (/&
597 &3.5144e+00_jprb,3.3937e+00_jprb,3.2768e+00_jprb,3.1634e+00_jprb,3.0537e+00_jprb/)
598 kbo( :,14, 7) = (/&
599 &3.0165e+00_jprb,2.9173e+00_jprb,2.8200e+00_jprb,2.7244e+00_jprb,2.6317e+00_jprb/)
600 kbo( :,15, 7) = (/&
601 &2.6711e+00_jprb,2.5902e+00_jprb,2.5088e+00_jprb,2.4285e+00_jprb,2.3516e+00_jprb/)
602 kbo( :,16, 7) = (/&
603 &2.3379e+00_jprb,2.2701e+00_jprb,2.2031e+00_jprb,2.1365e+00_jprb,2.0740e+00_jprb/)
604 kbo( :,17, 7) = (/&
605 &2.0449e+00_jprb,1.9876e+00_jprb,1.9309e+00_jprb,1.8761e+00_jprb,1.8247e+00_jprb/)
606 kbo( :,18, 7) = (/&
607 &1.7762e+00_jprb,1.7285e+00_jprb,1.6813e+00_jprb,1.6362e+00_jprb,1.5941e+00_jprb/)
608 kbo( :,19, 7) = (/&
609 &1.5531e+00_jprb,1.5133e+00_jprb,1.4745e+00_jprb,1.4378e+00_jprb,1.4037e+00_jprb/)
610 kbo( :,20, 7) = (/&
611 &1.3391e+00_jprb,1.3069e+00_jprb,1.2760e+00_jprb,1.2466e+00_jprb,1.2198e+00_jprb/)
612 kbo( :,21, 7) = (/&
613 &1.1467e+00_jprb,1.1212e+00_jprb,1.0970e+00_jprb,1.0743e+00_jprb,1.0539e+00_jprb/)
614 kbo( :,22, 7) = (/&
615 &9.7329e-01_jprb,9.5340e-01_jprb,9.3512e-01_jprb,9.1844e-01_jprb,9.0375e-01_jprb/)
616 kbo( :,23, 7) = (/&
617 &8.2392e-01_jprb,8.0923e-01_jprb,7.9603e-01_jprb,7.8447e-01_jprb,7.7374e-01_jprb/)
618 kbo( :,24, 7) = (/&
619 &7.0013e-01_jprb,6.8981e-01_jprb,6.8073e-01_jprb,6.7262e-01_jprb,6.6488e-01_jprb/)
620 kbo( :,25, 7) = (/&
621 &5.9333e-01_jprb,5.8623e-01_jprb,5.8008e-01_jprb,5.7417e-01_jprb,5.6882e-01_jprb/)
622 kbo( :,26, 7) = (/&
623 &5.0099e-01_jprb,4.9624e-01_jprb,4.9180e-01_jprb,4.8790e-01_jprb,4.8459e-01_jprb/)
624 kbo( :,27, 7) = (/&
625 &4.1867e-01_jprb,4.1536e-01_jprb,4.1237e-01_jprb,4.0992e-01_jprb,4.0810e-01_jprb/)
626 kbo( :,28, 7) = (/&
627 &3.4703e-01_jprb,3.4468e-01_jprb,3.4282e-01_jprb,3.4143e-01_jprb,3.4043e-01_jprb/)
628 kbo( :,29, 7) = (/&
629 &2.8153e-01_jprb,2.7991e-01_jprb,2.7869e-01_jprb,2.7784e-01_jprb,2.7705e-01_jprb/)
630 kbo( :,30, 7) = (/&
631 &2.2635e-01_jprb,2.2520e-01_jprb,2.2433e-01_jprb,2.2358e-01_jprb,2.2275e-01_jprb/)
632 kbo( :,31, 7) = (/&
633 &1.7873e-01_jprb,1.7779e-01_jprb,1.7701e-01_jprb,1.7620e-01_jprb,1.7525e-01_jprb/)
634 kbo( :,32, 7) = (/&
635 &1.4094e-01_jprb,1.4013e-01_jprb,1.3934e-01_jprb,1.3848e-01_jprb,1.3746e-01_jprb/)
636 kbo( :,33, 7) = (/&
637 &1.1081e-01_jprb,1.1005e-01_jprb,1.0925e-01_jprb,1.0837e-01_jprb,1.0737e-01_jprb/)
638 kbo( :,34, 7) = (/&
639 &8.8073e-02_jprb,8.7360e-02_jprb,8.6598e-02_jprb,8.5752e-02_jprb,8.4831e-02_jprb/)
640 kbo( :,35, 7) = (/&
641 &7.0093e-02_jprb,6.9431e-02_jprb,6.8725e-02_jprb,6.7961e-02_jprb,6.7163e-02_jprb/)
642 kbo( :,36, 7) = (/&
643 &5.5974e-02_jprb,5.5383e-02_jprb,5.4751e-02_jprb,5.4084e-02_jprb,5.3401e-02_jprb/)
644 kbo( :,37, 7) = (/&
645 &4.5129e-02_jprb,4.4617e-02_jprb,4.4069e-02_jprb,4.3496e-02_jprb,4.2919e-02_jprb/)
646 kbo( :,38, 7) = (/&
647 &3.6297e-02_jprb,3.5849e-02_jprb,3.5383e-02_jprb,3.4895e-02_jprb,3.4409e-02_jprb/)
648 kbo( :,39, 7) = (/&
649 &2.9094e-02_jprb,2.8702e-02_jprb,2.8301e-02_jprb,2.7894e-02_jprb,2.7483e-02_jprb/)
650 kbo( :,40, 7) = (/&
651 &2.3698e-02_jprb,2.3361e-02_jprb,2.3022e-02_jprb,2.2702e-02_jprb,2.2363e-02_jprb/)
652 kbo( :,41, 7) = (/&
653 &1.9342e-02_jprb,1.9046e-02_jprb,1.8762e-02_jprb,1.8535e-02_jprb,1.8252e-02_jprb/)
654 kbo( :,42, 7) = (/&
655 &1.5735e-02_jprb,1.5529e-02_jprb,1.5289e-02_jprb,1.5039e-02_jprb,1.4884e-02_jprb/)
656 kbo( :,43, 7) = (/&
657 &1.2856e-02_jprb,1.2693e-02_jprb,1.2490e-02_jprb,1.2276e-02_jprb,1.2162e-02_jprb/)
658 kbo( :,44, 7) = (/&
659 &1.0504e-02_jprb,1.0374e-02_jprb,1.0203e-02_jprb,1.0021e-02_jprb,9.8561e-03_jprb/)
660 kbo( :,45, 7) = (/&
661 &8.5662e-03_jprb,8.4611e-03_jprb,8.3174e-03_jprb,8.1619e-03_jprb,8.0238e-03_jprb/)
662 kbo( :,46, 7) = (/&
663 &6.9878e-03_jprb,6.9029e-03_jprb,6.7830e-03_jprb,6.6504e-03_jprb,6.5338e-03_jprb/)
664 kbo( :,47, 7) = (/&
665 &5.7199e-03_jprb,5.6500e-03_jprb,5.5517e-03_jprb,5.4400e-03_jprb,5.3409e-03_jprb/)
666 kbo( :,48, 7) = (/&
667 &4.6721e-03_jprb,4.5783e-03_jprb,4.5326e-03_jprb,4.4394e-03_jprb,4.3553e-03_jprb/)
668 kbo( :,49, 7) = (/&
669 &3.8045e-03_jprb,3.7261e-03_jprb,3.6884e-03_jprb,3.6111e-03_jprb,3.5400e-03_jprb/)
670 kbo( :,50, 7) = (/&
671 &3.1168e-03_jprb,3.0525e-03_jprb,2.9971e-03_jprb,2.9577e-03_jprb,2.8982e-03_jprb/)
672 kbo( :,51, 7) = (/&
673 &2.5606e-03_jprb,2.5082e-03_jprb,2.4624e-03_jprb,2.4305e-03_jprb,2.3812e-03_jprb/)
674 kbo( :,52, 7) = (/&
675 &2.0858e-03_jprb,2.0571e-03_jprb,2.0195e-03_jprb,1.9935e-03_jprb,1.9528e-03_jprb/)
676 kbo( :,53, 7) = (/&
677 &1.7067e-03_jprb,1.6831e-03_jprb,1.6522e-03_jprb,1.6308e-03_jprb,1.5976e-03_jprb/)
678 kbo( :,54, 7) = (/&
679 &1.4124e-03_jprb,1.3940e-03_jprb,1.3693e-03_jprb,1.3524e-03_jprb,1.3253e-03_jprb/)
680 kbo( :,55, 7) = (/&
681 &1.1765e-03_jprb,1.1628e-03_jprb,1.1437e-03_jprb,1.1214e-03_jprb,1.1087e-03_jprb/)
682 kbo( :,56, 7) = (/&
683 &9.8017e-04_jprb,9.7016e-04_jprb,9.5539e-04_jprb,9.3773e-04_jprb,9.2785e-04_jprb/)
684 kbo( :,57, 7) = (/&
685 &8.1688e-04_jprb,8.0965e-04_jprb,7.9840e-04_jprb,7.8450e-04_jprb,7.6983e-04_jprb/)
686 kbo( :,58, 7) = (/&
687 &6.8243e-04_jprb,6.7751e-04_jprb,6.6917e-04_jprb,6.5832e-04_jprb,6.4667e-04_jprb/)
688 kbo( :,59, 7) = (/&
689 &5.8205e-04_jprb,5.7925e-04_jprb,5.7356e-04_jprb,5.6509e-04_jprb,5.5607e-04_jprb/)
690 kbo( :,13, 8) = (/&
691 &1.1247e+01_jprb,1.0949e+01_jprb,1.0618e+01_jprb,1.0275e+01_jprb,9.9354e+00_jprb/)
692 kbo( :,14, 8) = (/&
693 &9.4998e+00_jprb,9.2422e+00_jprb,8.9633e+00_jprb,8.6775e+00_jprb,8.4009e+00_jprb/)
694 kbo( :,15, 8) = (/&
695 &8.1034e+00_jprb,7.8837e+00_jprb,7.6521e+00_jprb,7.4181e+00_jprb,7.1838e+00_jprb/)
696 kbo( :,16, 8) = (/&
697 &6.9956e+00_jprb,6.8151e+00_jprb,6.6234e+00_jprb,6.4261e+00_jprb,6.2274e+00_jprb/)
698 kbo( :,17, 8) = (/&
699 &6.1438e+00_jprb,5.9920e+00_jprb,5.8323e+00_jprb,5.6650e+00_jprb,5.4972e+00_jprb/)
700 kbo( :,18, 8) = (/&
701 &5.4091e+00_jprb,5.2794e+00_jprb,5.1420e+00_jprb,4.9996e+00_jprb,4.8583e+00_jprb/)
702 kbo( :,19, 8) = (/&
703 &4.8000e+00_jprb,4.6894e+00_jprb,4.5724e+00_jprb,4.4526e+00_jprb,4.3345e+00_jprb/)
704 kbo( :,20, 8) = (/&
705 &4.2099e+00_jprb,4.1143e+00_jprb,4.0152e+00_jprb,3.9152e+00_jprb,3.8177e+00_jprb/)
706 kbo( :,21, 8) = (/&
707 &3.6600e+00_jprb,3.5795e+00_jprb,3.4965e+00_jprb,3.4138e+00_jprb,3.3344e+00_jprb/)
708 kbo( :,22, 8) = (/&
709 &3.1475e+00_jprb,3.0803e+00_jprb,3.0119e+00_jprb,2.9452e+00_jprb,2.8804e+00_jprb/)
710 kbo( :,23, 8) = (/&
711 &2.6953e+00_jprb,2.6395e+00_jprb,2.5848e+00_jprb,2.5305e+00_jprb,2.4794e+00_jprb/)
712 kbo( :,24, 8) = (/&
713 &2.3108e+00_jprb,2.2665e+00_jprb,2.2227e+00_jprb,2.1812e+00_jprb,2.1425e+00_jprb/)
714 kbo( :,25, 8) = (/&
715 &1.9716e+00_jprb,1.9373e+00_jprb,1.9040e+00_jprb,1.8732e+00_jprb,1.8452e+00_jprb/)
716 kbo( :,26, 8) = (/&
717 &1.6730e+00_jprb,1.6473e+00_jprb,1.6232e+00_jprb,1.6019e+00_jprb,1.5822e+00_jprb/)
718 kbo( :,27, 8) = (/&
719 &1.4039e+00_jprb,1.3856e+00_jprb,1.3691e+00_jprb,1.3536e+00_jprb,1.3394e+00_jprb/)
720 kbo( :,28, 8) = (/&
721 &1.1694e+00_jprb,1.1563e+00_jprb,1.1443e+00_jprb,1.1331e+00_jprb,1.1233e+00_jprb/)
722 kbo( :,29, 8) = (/&
723 &9.5436e-01_jprb,9.4464e-01_jprb,9.3564e-01_jprb,9.2762e-01_jprb,9.2078e-01_jprb/)
724 kbo( :,30, 8) = (/&
725 &7.7171e-01_jprb,7.6417e-01_jprb,7.5736e-01_jprb,7.5152e-01_jprb,7.4699e-01_jprb/)
726 kbo( :,31, 8) = (/&
727 &6.1295e-01_jprb,6.0696e-01_jprb,6.0170e-01_jprb,5.9736e-01_jprb,5.9407e-01_jprb/)
728 kbo( :,32, 8) = (/&
729 &4.8600e-01_jprb,4.8128e-01_jprb,4.7723e-01_jprb,4.7397e-01_jprb,4.7138e-01_jprb/)
730 kbo( :,33, 8) = (/&
731 &3.8415e-01_jprb,3.8042e-01_jprb,3.7730e-01_jprb,3.7473e-01_jprb,3.7262e-01_jprb/)
732 kbo( :,34, 8) = (/&
733 &3.0697e-01_jprb,3.0410e-01_jprb,3.0171e-01_jprb,2.9969e-01_jprb,2.9792e-01_jprb/)
734 kbo( :,35, 8) = (/&
735 &2.4580e-01_jprb,2.4358e-01_jprb,2.4169e-01_jprb,2.4002e-01_jprb,2.3839e-01_jprb/)
736 kbo( :,36, 8) = (/&
737 &1.9762e-01_jprb,1.9584e-01_jprb,1.9432e-01_jprb,1.9290e-01_jprb,1.9143e-01_jprb/)
738 kbo( :,37, 8) = (/&
739 &1.6039e-01_jprb,1.5897e-01_jprb,1.5773e-01_jprb,1.5653e-01_jprb,1.5525e-01_jprb/)
740 kbo( :,38, 8) = (/&
741 &1.2981e-01_jprb,1.2864e-01_jprb,1.2763e-01_jprb,1.2661e-01_jprb,1.2550e-01_jprb/)
742 kbo( :,39, 8) = (/&
743 &1.0464e-01_jprb,1.0367e-01_jprb,1.0279e-01_jprb,1.0196e-01_jprb,1.0102e-01_jprb/)
744 kbo( :,40, 8) = (/&
745 &8.5656e-02_jprb,8.4878e-02_jprb,8.4168e-02_jprb,8.3551e-02_jprb,8.2787e-02_jprb/)
746 kbo( :,41, 8) = (/&
747 &7.0184e-02_jprb,6.9534e-02_jprb,6.8986e-02_jprb,6.8614e-02_jprb,6.7985e-02_jprb/)
748 kbo( :,42, 8) = (/&
749 &5.7310e-02_jprb,5.6919e-02_jprb,5.6491e-02_jprb,5.5977e-02_jprb,5.5749e-02_jprb/)
750 kbo( :,43, 8) = (/&
751 &4.6943e-02_jprb,4.6680e-02_jprb,4.6336e-02_jprb,4.5896e-02_jprb,4.5779e-02_jprb/)
752 kbo( :,44, 8) = (/&
753 &3.8447e-02_jprb,3.8265e-02_jprb,3.7983e-02_jprb,3.7610e-02_jprb,3.7254e-02_jprb/)
754 kbo( :,45, 8) = (/&
755 &3.1416e-02_jprb,3.1280e-02_jprb,3.1046e-02_jprb,3.0737e-02_jprb,3.0447e-02_jprb/)
756 kbo( :,46, 8) = (/&
757 &2.5663e-02_jprb,2.5562e-02_jprb,2.5366e-02_jprb,2.5110e-02_jprb,2.4876e-02_jprb/)
758 kbo( :,47, 8) = (/&
759 &2.1026e-02_jprb,2.0945e-02_jprb,2.0784e-02_jprb,2.0576e-02_jprb,2.0390e-02_jprb/)
760 kbo( :,48, 8) = (/&
761 &1.7175e-02_jprb,1.6957e-02_jprb,1.6972e-02_jprb,1.6802e-02_jprb,1.6659e-02_jprb/)
762 kbo( :,49, 8) = (/&
763 &1.3974e-02_jprb,1.3790e-02_jprb,1.3801e-02_jprb,1.3660e-02_jprb,1.3550e-02_jprb/)
764 kbo( :,50, 8) = (/&
765 &1.1444e-02_jprb,1.1294e-02_jprb,1.1196e-02_jprb,1.1188e-02_jprb,1.1103e-02_jprb/)
766 kbo( :,51, 8) = (/&
767 &9.4010e-03_jprb,9.2766e-03_jprb,9.1976e-03_jprb,9.1935e-03_jprb,9.1284e-03_jprb/)
768 kbo( :,52, 8) = (/&
769 &7.6374e-03_jprb,7.6018e-03_jprb,7.5370e-03_jprb,7.5350e-03_jprb,7.4842e-03_jprb/)
770 kbo( :,53, 8) = (/&
771 &6.2404e-03_jprb,6.2108e-03_jprb,6.1568e-03_jprb,6.1543e-03_jprb,6.1140e-03_jprb/)
772 kbo( :,54, 8) = (/&
773 &5.1676e-03_jprb,5.1471e-03_jprb,5.1049e-03_jprb,5.1078e-03_jprb,5.0779e-03_jprb/)
774 kbo( :,55, 8) = (/&
775 &4.3128e-03_jprb,4.3025e-03_jprb,4.2708e-03_jprb,4.2369e-03_jprb,4.2598e-03_jprb/)
776 kbo( :,56, 8) = (/&
777 &3.5995e-03_jprb,3.5977e-03_jprb,3.5746e-03_jprb,3.5491e-03_jprb,3.5749e-03_jprb/)
778 kbo( :,57, 8) = (/&
779 &3.0055e-03_jprb,3.0101e-03_jprb,2.9938e-03_jprb,2.9746e-03_jprb,2.9652e-03_jprb/)
780 kbo( :,58, 8) = (/&
781 &2.5176e-03_jprb,2.5272e-03_jprb,2.5169e-03_jprb,2.5032e-03_jprb,2.4979e-03_jprb/)
782 kbo( :,59, 8) = (/&
783 &2.1638e-03_jprb,2.1807e-03_jprb,2.1789e-03_jprb,2.1728e-03_jprb,2.1711e-03_jprb/)
784 kbo( :,13, 9) = (/&
785 &6.6930e+01_jprb,6.5036e+01_jprb,6.3159e+01_jprb,6.1318e+01_jprb,5.9549e+01_jprb/)
786 kbo( :,14, 9) = (/&
787 &5.8293e+01_jprb,5.6634e+01_jprb,5.4990e+01_jprb,5.3428e+01_jprb,5.1912e+01_jprb/)
788 kbo( :,15, 9) = (/&
789 &5.0205e+01_jprb,4.8785e+01_jprb,4.7427e+01_jprb,4.6113e+01_jprb,4.4777e+01_jprb/)
790 kbo( :,16, 9) = (/&
791 &4.2911e+01_jprb,4.1757e+01_jprb,4.0616e+01_jprb,3.9459e+01_jprb,3.8271e+01_jprb/)
792 kbo( :,17, 9) = (/&
793 &3.6557e+01_jprb,3.5595e+01_jprb,3.4588e+01_jprb,3.3574e+01_jprb,3.2559e+01_jprb/)
794 kbo( :,18, 9) = (/&
795 &3.1149e+01_jprb,3.0309e+01_jprb,2.9446e+01_jprb,2.8581e+01_jprb,2.7714e+01_jprb/)
796 kbo( :,19, 9) = (/&
797 &2.6798e+01_jprb,2.6081e+01_jprb,2.5351e+01_jprb,2.4620e+01_jprb,2.3892e+01_jprb/)
798 kbo( :,20, 9) = (/&
799 &2.3235e+01_jprb,2.2624e+01_jprb,2.2007e+01_jprb,2.1386e+01_jprb,2.0773e+01_jprb/)
800 kbo( :,21, 9) = (/&
801 &2.0332e+01_jprb,1.9813e+01_jprb,1.9282e+01_jprb,1.8758e+01_jprb,1.8233e+01_jprb/)
802 kbo( :,22, 9) = (/&
803 &1.7867e+01_jprb,1.7423e+01_jprb,1.6975e+01_jprb,1.6525e+01_jprb,1.6078e+01_jprb/)
804 kbo( :,23, 9) = (/&
805 &1.5726e+01_jprb,1.5346e+01_jprb,1.4961e+01_jprb,1.4574e+01_jprb,1.4194e+01_jprb/)
806 kbo( :,24, 9) = (/&
807 &1.3878e+01_jprb,1.3552e+01_jprb,1.3218e+01_jprb,1.2890e+01_jprb,1.2567e+01_jprb/)
808 kbo( :,25, 9) = (/&
809 &1.2174e+01_jprb,1.1894e+01_jprb,1.1612e+01_jprb,1.1333e+01_jprb,1.1065e+01_jprb/)
810 kbo( :,26, 9) = (/&
811 &1.0586e+01_jprb,1.0349e+01_jprb,1.0113e+01_jprb,9.8834e+00_jprb,9.6689e+00_jprb/)
812 kbo( :,27, 9) = (/&
813 &9.0691e+00_jprb,8.8721e+00_jprb,8.6784e+00_jprb,8.4956e+00_jprb,8.3263e+00_jprb/)
814 kbo( :,28, 9) = (/&
815 &7.6767e+00_jprb,7.5165e+00_jprb,7.3638e+00_jprb,7.2221e+00_jprb,7.0906e+00_jprb/)
816 kbo( :,29, 9) = (/&
817 &6.3535e+00_jprb,6.2280e+00_jprb,6.1107e+00_jprb,6.0030e+00_jprb,5.9021e+00_jprb/)
818 kbo( :,30, 9) = (/&
819 &5.2055e+00_jprb,5.1092e+00_jprb,5.0195e+00_jprb,4.9376e+00_jprb,4.8626e+00_jprb/)
820 kbo( :,31, 9) = (/&
821 &4.1917e+00_jprb,4.1182e+00_jprb,4.0499e+00_jprb,3.9891e+00_jprb,3.9344e+00_jprb/)
822 kbo( :,32, 9) = (/&
823 &3.3675e+00_jprb,3.3117e+00_jprb,3.2607e+00_jprb,3.2163e+00_jprb,3.1756e+00_jprb/)
824 kbo( :,33, 9) = (/&
825 &2.6963e+00_jprb,2.6546e+00_jprb,2.6175e+00_jprb,2.5837e+00_jprb,2.5542e+00_jprb/)
826 kbo( :,34, 9) = (/&
827 &2.1803e+00_jprb,2.1495e+00_jprb,2.1217e+00_jprb,2.0970e+00_jprb,2.0762e+00_jprb/)
828 kbo( :,35, 9) = (/&
829 &1.7668e+00_jprb,1.7436e+00_jprb,1.7230e+00_jprb,1.7051e+00_jprb,1.6899e+00_jprb/)
830 kbo( :,36, 9) = (/&
831 &1.4368e+00_jprb,1.4193e+00_jprb,1.4041e+00_jprb,1.3910e+00_jprb,1.3800e+00_jprb/)
832 kbo( :,37, 9) = (/&
833 &1.1784e+00_jprb,1.1654e+00_jprb,1.1542e+00_jprb,1.1446e+00_jprb,1.1369e+00_jprb/)
834 kbo( :,38, 9) = (/&
835 &9.6334e-01_jprb,9.5349e-01_jprb,9.4564e-01_jprb,9.3870e-01_jprb,9.3338e-01_jprb/)
836 kbo( :,39, 9) = (/&
837 &7.8429e-01_jprb,7.7685e-01_jprb,7.7074e-01_jprb,7.6618e-01_jprb,7.6263e-01_jprb/)
838 kbo( :,40, 9) = (/&
839 &6.4772e-01_jprb,6.4229e-01_jprb,6.3796e-01_jprb,6.3535e-01_jprb,6.3341e-01_jprb/)
840 kbo( :,41, 9) = (/&
841 &5.3551e-01_jprb,5.3135e-01_jprb,5.2845e-01_jprb,5.2779e-01_jprb,5.2692e-01_jprb/)
842 kbo( :,42, 9) = (/&
843 &4.4125e-01_jprb,4.3914e-01_jprb,4.3725e-01_jprb,4.3576e-01_jprb,4.3762e-01_jprb/)
844 kbo( :,43, 9) = (/&
845 &3.6461e-01_jprb,3.6349e-01_jprb,3.6221e-01_jprb,3.6126e-01_jprb,3.6369e-01_jprb/)
846 kbo( :,44, 9) = (/&
847 &3.0116e-01_jprb,3.0069e-01_jprb,2.9982e-01_jprb,2.9918e-01_jprb,2.9973e-01_jprb/)
848 kbo( :,45, 9) = (/&
849 &2.4811e-01_jprb,2.4796e-01_jprb,2.4739e-01_jprb,2.4699e-01_jprb,2.4766e-01_jprb/)
850 kbo( :,46, 9) = (/&
851 &2.0425e-01_jprb,2.0434e-01_jprb,2.0395e-01_jprb,2.0369e-01_jprb,2.0438e-01_jprb/)
852 kbo( :,47, 9) = (/&
853 &1.6854e-01_jprb,1.6878e-01_jprb,1.6855e-01_jprb,1.6839e-01_jprb,1.6908e-01_jprb/)
854 kbo( :,48, 9) = (/&
855 &1.3856e-01_jprb,1.3781e-01_jprb,1.3873e-01_jprb,1.3865e-01_jprb,1.3926e-01_jprb/)
856 kbo( :,49, 9) = (/&
857 &1.1334e-01_jprb,1.1274e-01_jprb,1.1357e-01_jprb,1.1351e-01_jprb,1.1403e-01_jprb/)
858 kbo( :,50, 9) = (/&
859 &9.3340e-02_jprb,9.2916e-02_jprb,9.2960e-02_jprb,9.3712e-02_jprb,9.4205e-02_jprb/)
860 kbo( :,51, 9) = (/&
861 &7.7078e-02_jprb,7.6810e-02_jprb,7.6922e-02_jprb,7.7641e-02_jprb,7.8122e-02_jprb/)
862 kbo( :,52, 9) = (/&
863 &6.2961e-02_jprb,6.3281e-02_jprb,6.3427e-02_jprb,6.4092e-02_jprb,6.4534e-02_jprb/)
864 kbo( :,53, 9) = (/&
865 &5.1588e-02_jprb,5.1905e-02_jprb,5.2063e-02_jprb,5.2646e-02_jprb,5.3031e-02_jprb/)
866 kbo( :,54, 9) = (/&
867 &4.2943e-02_jprb,4.3300e-02_jprb,4.3511e-02_jprb,4.4097e-02_jprb,4.4499e-02_jprb/)
868 kbo( :,55, 9) = (/&
869 &3.6096e-02_jprb,3.6506e-02_jprb,3.6778e-02_jprb,3.7049e-02_jprb,3.7847e-02_jprb/)
870 kbo( :,56, 9) = (/&
871 &3.0345e-02_jprb,3.0787e-02_jprb,3.1097e-02_jprb,3.1405e-02_jprb,3.2218e-02_jprb/)
872 kbo( :,57, 9) = (/&
873 &2.5512e-02_jprb,2.5968e-02_jprb,2.6302e-02_jprb,2.6632e-02_jprb,2.7138e-02_jprb/)
874 kbo( :,58, 9) = (/&
875 &2.1539e-02_jprb,2.1998e-02_jprb,2.2352e-02_jprb,2.2699e-02_jprb,2.3217e-02_jprb/)
876 kbo( :,59, 9) = (/&
877 &1.8855e-02_jprb,1.9380e-02_jprb,1.9801e-02_jprb,2.0231e-02_jprb,2.0859e-02_jprb/)
878 kbo( :,13,10) = (/&
879 &2.5222e+02_jprb,2.4612e+02_jprb,2.3929e+02_jprb,2.3199e+02_jprb,2.2461e+02_jprb/)
880 kbo( :,14,10) = (/&
881 &2.3124e+02_jprb,2.2528e+02_jprb,2.1850e+02_jprb,2.1149e+02_jprb,2.0433e+02_jprb/)
882 kbo( :,15,10) = (/&
883 &2.0842e+02_jprb,2.0210e+02_jprb,1.9531e+02_jprb,1.8854e+02_jprb,1.8251e+02_jprb/)
884 kbo( :,16,10) = (/&
885 &1.8399e+02_jprb,1.7799e+02_jprb,1.7194e+02_jprb,1.6680e+02_jprb,1.6231e+02_jprb/)
886 kbo( :,17,10) = (/&
887 &1.6010e+02_jprb,1.5487e+02_jprb,1.5049e+02_jprb,1.4638e+02_jprb,1.4212e+02_jprb/)
888 kbo( :,18,10) = (/&
889 &1.3804e+02_jprb,1.3430e+02_jprb,1.3065e+02_jprb,1.2671e+02_jprb,1.2276e+02_jprb/)
890 kbo( :,19,10) = (/&
891 &1.1867e+02_jprb,1.1546e+02_jprb,1.1199e+02_jprb,1.0849e+02_jprb,1.0500e+02_jprb/)
892 kbo( :,20,10) = (/&
893 &1.0103e+02_jprb,9.8101e+01_jprb,9.5080e+01_jprb,9.2102e+01_jprb,8.9111e+01_jprb/)
894 kbo( :,21,10) = (/&
895 &8.5674e+01_jprb,8.3188e+01_jprb,8.0672e+01_jprb,7.8136e+01_jprb,7.5728e+01_jprb/)
896 kbo( :,22,10) = (/&
897 &7.2715e+01_jprb,7.0591e+01_jprb,6.8415e+01_jprb,6.6340e+01_jprb,6.4345e+01_jprb/)
898 kbo( :,23,10) = (/&
899 &6.3022e+01_jprb,6.1199e+01_jprb,5.9439e+01_jprb,5.7725e+01_jprb,5.6010e+01_jprb/)
900 kbo( :,24,10) = (/&
901 &5.5774e+01_jprb,5.4272e+01_jprb,5.2819e+01_jprb,5.1321e+01_jprb,4.9883e+01_jprb/)
902 kbo( :,25,10) = (/&
903 &4.9593e+01_jprb,4.8355e+01_jprb,4.7055e+01_jprb,4.5778e+01_jprb,4.4535e+01_jprb/)
904 kbo( :,26,10) = (/&
905 &4.4197e+01_jprb,4.3085e+01_jprb,4.1954e+01_jprb,4.0860e+01_jprb,3.9753e+01_jprb/)
906 kbo( :,27,10) = (/&
907 &3.8885e+01_jprb,3.7934e+01_jprb,3.6990e+01_jprb,3.6031e+01_jprb,3.5121e+01_jprb/)
908 kbo( :,28,10) = (/&
909 &3.3738e+01_jprb,3.2939e+01_jprb,3.2117e+01_jprb,3.1331e+01_jprb,3.0617e+01_jprb/)
910 kbo( :,29,10) = (/&
911 &2.8541e+01_jprb,2.7853e+01_jprb,2.7182e+01_jprb,2.6569e+01_jprb,2.6005e+01_jprb/)
912 kbo( :,30,10) = (/&
913 &2.3779e+01_jprb,2.3214e+01_jprb,2.2688e+01_jprb,2.2215e+01_jprb,2.1758e+01_jprb/)
914 kbo( :,31,10) = (/&
915 &1.9404e+01_jprb,1.8965e+01_jprb,1.8559e+01_jprb,1.8185e+01_jprb,1.7827e+01_jprb/)
916 kbo( :,32,10) = (/&
917 &1.5788e+01_jprb,1.5447e+01_jprb,1.5130e+01_jprb,1.4835e+01_jprb,1.4579e+01_jprb/)
918 kbo( :,33,10) = (/&
919 &1.2793e+01_jprb,1.2531e+01_jprb,1.2285e+01_jprb,1.2073e+01_jprb,1.1879e+01_jprb/)
920 kbo( :,34,10) = (/&
921 &1.0446e+01_jprb,1.0243e+01_jprb,1.0069e+01_jprb,9.9145e+00_jprb,9.7688e+00_jprb/)
922 kbo( :,35,10) = (/&
923 &8.5407e+00_jprb,8.3976e+00_jprb,8.2688e+00_jprb,8.1501e+00_jprb,8.0525e+00_jprb/)
924 kbo( :,36,10) = (/&
925 &7.0161e+00_jprb,6.9119e+00_jprb,6.8145e+00_jprb,6.7306e+00_jprb,6.6644e+00_jprb/)
926 kbo( :,37,10) = (/&
927 &5.8170e+00_jprb,5.7380e+00_jprb,5.6680e+00_jprb,5.6107e+00_jprb,5.5656e+00_jprb/)
928 kbo( :,38,10) = (/&
929 &4.8093e+00_jprb,4.7487e+00_jprb,4.7024e+00_jprb,4.6645e+00_jprb,4.6357e+00_jprb/)
930 kbo( :,39,10) = (/&
931 &3.9585e+00_jprb,3.9132e+00_jprb,3.8808e+00_jprb,3.8606e+00_jprb,3.8428e+00_jprb/)
932 kbo( :,40,10) = (/&
933 &3.2997e+00_jprb,3.2689e+00_jprb,3.2488e+00_jprb,3.2415e+00_jprb,3.2340e+00_jprb/)
934 kbo( :,41,10) = (/&
935 &2.7489e+00_jprb,2.7291e+00_jprb,2.7189e+00_jprb,2.7232e+00_jprb,2.7224e+00_jprb/)
936 kbo( :,42,10) = (/&
937 &2.2781e+00_jprb,2.2743e+00_jprb,2.2709e+00_jprb,2.2713e+00_jprb,2.2863e+00_jprb/)
938 kbo( :,43,10) = (/&
939 &1.8935e+00_jprb,1.8963e+00_jprb,1.8973e+00_jprb,1.9006e+00_jprb,1.9189e+00_jprb/)
940 kbo( :,44,10) = (/&
941 &1.5720e+00_jprb,1.5786e+00_jprb,1.5822e+00_jprb,1.5873e+00_jprb,1.5962e+00_jprb/)
942 kbo( :,45,10) = (/&
943 &1.3015e+00_jprb,1.3098e+00_jprb,1.3146e+00_jprb,1.3205e+00_jprb,1.3299e+00_jprb/)
944 kbo( :,46,10) = (/&
945 &1.0763e+00_jprb,1.0855e+00_jprb,1.0907e+00_jprb,1.0967e+00_jprb,1.1061e+00_jprb/)
946 kbo( :,47,10) = (/&
947 &8.9190e-01_jprb,9.0098e-01_jprb,9.0614e-01_jprb,9.1228e-01_jprb,9.2153e-01_jprb/)
948 kbo( :,48,10) = (/&
949 &7.3634e-01_jprb,7.3759e-01_jprb,7.4968e-01_jprb,7.5555e-01_jprb,7.6432e-01_jprb/)
950 kbo( :,49,10) = (/&
951 &6.0496e-01_jprb,6.0623e-01_jprb,6.1696e-01_jprb,6.2219e-01_jprb,6.3000e-01_jprb/)
952 kbo( :,50,10) = (/&
953 &5.0029e-01_jprb,5.0191e-01_jprb,5.0745e-01_jprb,5.1663e-01_jprb,5.2391e-01_jprb/)
954 kbo( :,51,10) = (/&
955 &4.1493e-01_jprb,4.1674e-01_jprb,4.2213e-01_jprb,4.3055e-01_jprb,4.3747e-01_jprb/)
956 kbo( :,52,10) = (/&
957 &3.3972e-01_jprb,3.4486e-01_jprb,3.4995e-01_jprb,3.5750e-01_jprb,3.6394e-01_jprb/)
958 kbo( :,53,10) = (/&
959 &2.7969e-01_jprb,2.8412e-01_jprb,2.8871e-01_jprb,2.9534e-01_jprb,3.0120e-01_jprb/)
960 kbo( :,54,10) = (/&
961 &2.3381e-01_jprb,2.3806e-01_jprb,2.4256e-01_jprb,2.4899e-01_jprb,2.5461e-01_jprb/)
962 kbo( :,55,10) = (/&
963 &1.9747e-01_jprb,2.0173e-01_jprb,2.0629e-01_jprb,2.1052e-01_jprb,2.1835e-01_jprb/)
964 kbo( :,56,10) = (/&
965 &1.6704e-01_jprb,1.7122e-01_jprb,1.7573e-01_jprb,1.8004e-01_jprb,1.8767e-01_jprb/)
966 kbo( :,57,10) = (/&
967 &1.4152e-01_jprb,1.4559e-01_jprb,1.5002e-01_jprb,1.5430e-01_jprb,1.5960e-01_jprb/)
968 kbo( :,58,10) = (/&
969 &1.2052e-01_jprb,1.2461e-01_jprb,1.2894e-01_jprb,1.3321e-01_jprb,1.3854e-01_jprb/)
970 kbo( :,59,10) = (/&
971 &1.0716e-01_jprb,1.1189e-01_jprb,1.1675e-01_jprb,1.2166e-01_jprb,1.2804e-01_jprb/)
972 kbo( :,13,11) = (/&
973 &4.2154e+02_jprb,4.0884e+02_jprb,3.9820e+02_jprb,3.8820e+02_jprb,3.7793e+02_jprb/)
974 kbo( :,14,11) = (/&
975 &3.9257e+02_jprb,3.8172e+02_jprb,3.7181e+02_jprb,3.6139e+02_jprb,3.5047e+02_jprb/)
976 kbo( :,15,11) = (/&
977 &3.6309e+02_jprb,3.5353e+02_jprb,3.4340e+02_jprb,3.3282e+02_jprb,3.2240e+02_jprb/)
978 kbo( :,16,11) = (/&
979 &3.3141e+02_jprb,3.2240e+02_jprb,3.1248e+02_jprb,3.0233e+02_jprb,2.9245e+02_jprb/)
980 kbo( :,17,11) = (/&
981 &2.9757e+02_jprb,2.8848e+02_jprb,2.7872e+02_jprb,2.6968e+02_jprb,2.6158e+02_jprb/)
982 kbo( :,18,11) = (/&
983 &2.6199e+02_jprb,2.5343e+02_jprb,2.4537e+02_jprb,2.3848e+02_jprb,2.3223e+02_jprb/)
984 kbo( :,19,11) = (/&
985 &2.2769e+02_jprb,2.2078e+02_jprb,2.1490e+02_jprb,2.0918e+02_jprb,2.0314e+02_jprb/)
986 kbo( :,20,11) = (/&
987 &1.9687e+02_jprb,1.9172e+02_jprb,1.8662e+02_jprb,1.8113e+02_jprb,1.7551e+02_jprb/)
988 kbo( :,21,11) = (/&
989 &1.6926e+02_jprb,1.6478e+02_jprb,1.5994e+02_jprb,1.5502e+02_jprb,1.5010e+02_jprb/)
990 kbo( :,22,11) = (/&
991 &1.4392e+02_jprb,1.3980e+02_jprb,1.3565e+02_jprb,1.3147e+02_jprb,1.2734e+02_jprb/)
992 kbo( :,23,11) = (/&
993 &1.2176e+02_jprb,1.1828e+02_jprb,1.1480e+02_jprb,1.1132e+02_jprb,1.0802e+02_jprb/)
994 kbo( :,24,11) = (/&
995 &1.0420e+02_jprb,1.0127e+02_jprb,9.8266e+01_jprb,9.5452e+01_jprb,9.2657e+01_jprb/)
996 kbo( :,25,11) = (/&
997 &9.1405e+01_jprb,8.8856e+01_jprb,8.6441e+01_jprb,8.4023e+01_jprb,8.1601e+01_jprb/)
998 kbo( :,26,11) = (/&
999 &8.1068e+01_jprb,7.8976e+01_jprb,7.6905e+01_jprb,7.4806e+01_jprb,7.2749e+01_jprb/)
1000 kbo( :,27,11) = (/&
1001 &7.1641e+01_jprb,6.9868e+01_jprb,6.8049e+01_jprb,6.6237e+01_jprb,6.4456e+01_jprb/)
1002 kbo( :,28,11) = (/&
1003 &6.3023e+01_jprb,6.1456e+01_jprb,5.9871e+01_jprb,5.8321e+01_jprb,5.6798e+01_jprb/)
1004 kbo( :,29,11) = (/&
1005 &5.4205e+01_jprb,5.2861e+01_jprb,5.1529e+01_jprb,5.0220e+01_jprb,4.8999e+01_jprb/)
1006 kbo( :,30,11) = (/&
1007 &4.5934e+01_jprb,4.4818e+01_jprb,4.3703e+01_jprb,4.2668e+01_jprb,4.1730e+01_jprb/)
1008 kbo( :,31,11) = (/&
1009 &3.8066e+01_jprb,3.7138e+01_jprb,3.6268e+01_jprb,3.5481e+01_jprb,3.4768e+01_jprb/)
1010 kbo( :,32,11) = (/&
1011 &3.1328e+01_jprb,3.0606e+01_jprb,2.9939e+01_jprb,2.9343e+01_jprb,2.8780e+01_jprb/)
1012 kbo( :,33,11) = (/&
1013 &2.5648e+01_jprb,2.5098e+01_jprb,2.4592e+01_jprb,2.4122e+01_jprb,2.3697e+01_jprb/)
1014 kbo( :,34,11) = (/&
1015 &2.1176e+01_jprb,2.0755e+01_jprb,2.0363e+01_jprb,2.0008e+01_jprb,1.9706e+01_jprb/)
1016 kbo( :,35,11) = (/&
1017 &1.7503e+01_jprb,1.7179e+01_jprb,1.6884e+01_jprb,1.6631e+01_jprb,1.6410e+01_jprb/)
1018 kbo( :,36,11) = (/&
1019 &1.4490e+01_jprb,1.4242e+01_jprb,1.4035e+01_jprb,1.3856e+01_jprb,1.3691e+01_jprb/)
1020 kbo( :,37,11) = (/&
1021 &1.2080e+01_jprb,1.1899e+01_jprb,1.1752e+01_jprb,1.1622e+01_jprb,1.1507e+01_jprb/)
1022 kbo( :,38,11) = (/&
1023 &1.0040e+01_jprb,9.9127e+00_jprb,9.8092e+00_jprb,9.7168e+00_jprb,9.6388e+00_jprb/)
1024 kbo( :,39,11) = (/&
1025 &8.3186e+00_jprb,8.2268e+00_jprb,8.1489e+00_jprb,8.0924e+00_jprb,8.0458e+00_jprb/)
1026 kbo( :,40,11) = (/&
1027 &6.9855e+00_jprb,6.9204e+00_jprb,6.8705e+00_jprb,6.8363e+00_jprb,6.8129e+00_jprb/)
1028 kbo( :,41,11) = (/&
1029 &5.8673e+00_jprb,5.8227e+00_jprb,5.7933e+00_jprb,5.7844e+00_jprb,5.7806e+00_jprb/)
1030 kbo( :,42,11) = (/&
1031 &4.9033e+00_jprb,4.8902e+00_jprb,4.8772e+00_jprb,4.8711e+00_jprb,4.8995e+00_jprb/)
1032 kbo( :,43,11) = (/&
1033 &4.1043e+00_jprb,4.1084e+00_jprb,4.1066e+00_jprb,4.1113e+00_jprb,4.1531e+00_jprb/)
1034 kbo( :,44,11) = (/&
1035 &3.4292e+00_jprb,3.4435e+00_jprb,3.4506e+00_jprb,3.4628e+00_jprb,3.4927e+00_jprb/)
1036 kbo( :,45,11) = (/&
1037 &2.8550e+00_jprb,2.8746e+00_jprb,2.8867e+00_jprb,2.9043e+00_jprb,2.9376e+00_jprb/)
1038 kbo( :,46,11) = (/&
1039 &2.3728e+00_jprb,2.3953e+00_jprb,2.4108e+00_jprb,2.4301e+00_jprb,2.4648e+00_jprb/)
1040 kbo( :,47,11) = (/&
1041 &1.9739e+00_jprb,1.9977e+00_jprb,2.0154e+00_jprb,2.0359e+00_jprb,2.0698e+00_jprb/)
1042 kbo( :,48,11) = (/&
1043 &1.6359e+00_jprb,1.6436e+00_jprb,1.6769e+00_jprb,1.6970e+00_jprb,1.7291e+00_jprb/)
1044 kbo( :,49,11) = (/&
1045 &1.3494e+00_jprb,1.3567e+00_jprb,1.3870e+00_jprb,1.4058e+00_jprb,1.4355e+00_jprb/)
1046 kbo( :,50,11) = (/&
1047 &1.1201e+00_jprb,1.1274e+00_jprb,1.1447e+00_jprb,1.1735e+00_jprb,1.2015e+00_jprb/)
1048 kbo( :,51,11) = (/&
1049 &9.3236e-01_jprb,9.3956e-01_jprb,9.5616e-01_jprb,9.8266e-01_jprb,1.0088e+00_jprb/)
1050 kbo( :,52,11) = (/&
1051 &7.6514e-01_jprb,7.8058e-01_jprb,7.9612e-01_jprb,8.2019e-01_jprb,8.4401e-01_jprb/)
1052 kbo( :,53,11) = (/&
1053 &6.3163e-01_jprb,6.4570e-01_jprb,6.5991e-01_jprb,6.8147e-01_jprb,7.0283e-01_jprb/)
1054 kbo( :,54,11) = (/&
1055 &5.2916e-01_jprb,5.4264e-01_jprb,5.5622e-01_jprb,5.7680e-01_jprb,5.9711e-01_jprb/)
1056 kbo( :,55,11) = (/&
1057 &4.4763e-01_jprb,4.6092e-01_jprb,4.7420e-01_jprb,4.8811e-01_jprb,5.1412e-01_jprb/)
1058 kbo( :,56,11) = (/&
1059 &3.7915e-01_jprb,3.9216e-01_jprb,4.0486e-01_jprb,4.1856e-01_jprb,4.4359e-01_jprb/)
1060 kbo( :,57,11) = (/&
1061 &3.2167e-01_jprb,3.3432e-01_jprb,3.4630e-01_jprb,3.5981e-01_jprb,3.7784e-01_jprb/)
1062 kbo( :,58,11) = (/&
1063 &2.7464e-01_jprb,2.8702e-01_jprb,2.9867e-01_jprb,3.1204e-01_jprb,3.2934e-01_jprb/)
1064 kbo( :,59,11) = (/&
1065 &2.4621e-01_jprb,2.6016e-01_jprb,2.7340e-01_jprb,2.8845e-01_jprb,3.0710e-01_jprb/)
1066 kbo( :,13,12) = (/&
1067 &7.6977e+02_jprb,7.4793e+02_jprb,7.2446e+02_jprb,7.0066e+02_jprb,6.7917e+02_jprb/)
1068 kbo( :,14,12) = (/&
1069 &7.3387e+02_jprb,7.1230e+02_jprb,6.9130e+02_jprb,6.7176e+02_jprb,6.5300e+02_jprb/)
1070 kbo( :,15,12) = (/&
1071 &6.8782e+02_jprb,6.6903e+02_jprb,6.5059e+02_jprb,6.3401e+02_jprb,6.1759e+02_jprb/)
1072 kbo( :,16,12) = (/&
1073 &6.4095e+02_jprb,6.2380e+02_jprb,6.0836e+02_jprb,5.9188e+02_jprb,5.7529e+02_jprb/)
1074 kbo( :,17,12) = (/&
1075 &5.9449e+02_jprb,5.7921e+02_jprb,5.6352e+02_jprb,5.4698e+02_jprb,5.3012e+02_jprb/)
1076 kbo( :,18,12) = (/&
1077 &5.4607e+02_jprb,5.3143e+02_jprb,5.1532e+02_jprb,4.9867e+02_jprb,4.8280e+02_jprb/)
1078 kbo( :,19,12) = (/&
1079 &4.9392e+02_jprb,4.7903e+02_jprb,4.6380e+02_jprb,4.4890e+02_jprb,4.3556e+02_jprb/)
1080 kbo( :,20,12) = (/&
1081 &4.3831e+02_jprb,4.2422e+02_jprb,4.1067e+02_jprb,3.9873e+02_jprb,3.8790e+02_jprb/)
1082 kbo( :,21,12) = (/&
1083 &3.8303e+02_jprb,3.7136e+02_jprb,3.6097e+02_jprb,3.5152e+02_jprb,3.4179e+02_jprb/)
1084 kbo( :,22,12) = (/&
1085 &3.3154e+02_jprb,3.2264e+02_jprb,3.1420e+02_jprb,3.0537e+02_jprb,2.9621e+02_jprb/)
1086 kbo( :,23,12) = (/&
1087 &2.8552e+02_jprb,2.7799e+02_jprb,2.7005e+02_jprb,2.6190e+02_jprb,2.5375e+02_jprb/)
1088 kbo( :,24,12) = (/&
1089 &2.4392e+02_jprb,2.3705e+02_jprb,2.3003e+02_jprb,2.2307e+02_jprb,2.1616e+02_jprb/)
1090 kbo( :,25,12) = (/&
1091 &2.0671e+02_jprb,2.0086e+02_jprb,1.9497e+02_jprb,1.8915e+02_jprb,1.8353e+02_jprb/)
1092 kbo( :,26,12) = (/&
1093 &1.7664e+02_jprb,1.7174e+02_jprb,1.6687e+02_jprb,1.6216e+02_jprb,1.5754e+02_jprb/)
1094 kbo( :,27,12) = (/&
1095 &1.5319e+02_jprb,1.4908e+02_jprb,1.4506e+02_jprb,1.4106e+02_jprb,1.3709e+02_jprb/)
1096 kbo( :,28,12) = (/&
1097 &1.3430e+02_jprb,1.3082e+02_jprb,1.2741e+02_jprb,1.2394e+02_jprb,1.2050e+02_jprb/)
1098 kbo( :,29,12) = (/&
1099 &1.1630e+02_jprb,1.1343e+02_jprb,1.1046e+02_jprb,1.0751e+02_jprb,1.0464e+02_jprb/)
1100 kbo( :,30,12) = (/&
1101 &1.0003e+02_jprb,9.7504e+01_jprb,9.4984e+01_jprb,9.2511e+01_jprb,9.0094e+01_jprb/)
1102 kbo( :,31,12) = (/&
1103 &8.4543e+01_jprb,8.2421e+01_jprb,8.0309e+01_jprb,7.8252e+01_jprb,7.6362e+01_jprb/)
1104 kbo( :,32,12) = (/&
1105 &7.1066e+01_jprb,6.9287e+01_jprb,6.7542e+01_jprb,6.5943e+01_jprb,6.4517e+01_jprb/)
1106 kbo( :,33,12) = (/&
1107 &5.9266e+01_jprb,5.7811e+01_jprb,5.6464e+01_jprb,5.5276e+01_jprb,5.4194e+01_jprb/)
1108 kbo( :,34,12) = (/&
1109 &4.9681e+01_jprb,4.8546e+01_jprb,4.7554e+01_jprb,4.6656e+01_jprb,4.5832e+01_jprb/)
1110 kbo( :,35,12) = (/&
1111 &4.1619e+01_jprb,4.0779e+01_jprb,4.0048e+01_jprb,3.9371e+01_jprb,3.8753e+01_jprb/)
1112 kbo( :,36,12) = (/&
1113 &3.4973e+01_jprb,3.4356e+01_jprb,3.3793e+01_jprb,3.3278e+01_jprb,3.2853e+01_jprb/)
1114 kbo( :,37,12) = (/&
1115 &2.9625e+01_jprb,2.9160e+01_jprb,2.8725e+01_jprb,2.8363e+01_jprb,2.8073e+01_jprb/)
1116 kbo( :,38,12) = (/&
1117 &2.4970e+01_jprb,2.4629e+01_jprb,2.4322e+01_jprb,2.4082e+01_jprb,2.3896e+01_jprb/)
1118 kbo( :,39,12) = (/&
1119 &2.0934e+01_jprb,2.0693e+01_jprb,2.0489e+01_jprb,2.0344e+01_jprb,2.0233e+01_jprb/)
1120 kbo( :,40,12) = (/&
1121 &1.7744e+01_jprb,1.7586e+01_jprb,1.7465e+01_jprb,1.7392e+01_jprb,1.7346e+01_jprb/)
1122 kbo( :,41,12) = (/&
1123 &1.5025e+01_jprb,1.4924e+01_jprb,1.4869e+01_jprb,1.4860e+01_jprb,1.4867e+01_jprb/)
1124 kbo( :,42,12) = (/&
1125 &1.2685e+01_jprb,1.2638e+01_jprb,1.2631e+01_jprb,1.2651e+01_jprb,1.2715e+01_jprb/)
1126 kbo( :,43,12) = (/&
1127 &1.0719e+01_jprb,1.0717e+01_jprb,1.0742e+01_jprb,1.0783e+01_jprb,1.0880e+01_jprb/)
1128 kbo( :,44,12) = (/&
1129 &9.0501e+00_jprb,9.0820e+00_jprb,9.1279e+00_jprb,9.1850e+00_jprb,9.2721e+00_jprb/)
1130 kbo( :,45,12) = (/&
1131 &7.6162e+00_jprb,7.6722e+00_jprb,7.7324e+00_jprb,7.8018e+00_jprb,7.9000e+00_jprb/)
1132 kbo( :,46,12) = (/&
1133 &6.3962e+00_jprb,6.4687e+00_jprb,6.5373e+00_jprb,6.6160e+00_jprb,6.7192e+00_jprb/)
1134 kbo( :,47,12) = (/&
1135 &5.3742e+00_jprb,5.4559e+00_jprb,5.5296e+00_jprb,5.6153e+00_jprb,5.7197e+00_jprb/)
1136 kbo( :,48,12) = (/&
1137 &4.4947e+00_jprb,4.5364e+00_jprb,4.6536e+00_jprb,4.7417e+00_jprb,4.8452e+00_jprb/)
1138 kbo( :,49,12) = (/&
1139 &3.7377e+00_jprb,3.7797e+00_jprb,3.8917e+00_jprb,3.9774e+00_jprb,4.0760e+00_jprb/)
1140 kbo( :,50,12) = (/&
1141 &3.1257e+00_jprb,3.1688e+00_jprb,3.2414e+00_jprb,3.3587e+00_jprb,3.4531e+00_jprb/)
1142 kbo( :,51,12) = (/&
1143 &2.6197e+00_jprb,2.6616e+00_jprb,2.7310e+00_jprb,2.8422e+00_jprb,2.9329e+00_jprb/)
1144 kbo( :,52,12) = (/&
1145 &2.1600e+00_jprb,2.2271e+00_jprb,2.2920e+00_jprb,2.3952e+00_jprb,2.4794e+00_jprb/)
1146 kbo( :,53,12) = (/&
1147 &1.7940e+00_jprb,1.8552e+00_jprb,1.9143e+00_jprb,2.0071e+00_jprb,2.0842e+00_jprb/)
1148 kbo( :,54,12) = (/&
1149 &1.5125e+00_jprb,1.5709e+00_jprb,1.6271e+00_jprb,1.7149e+00_jprb,1.7900e+00_jprb/)
1150 kbo( :,55,12) = (/&
1151 &1.2864e+00_jprb,1.3434e+00_jprb,1.3983e+00_jprb,1.4607e+00_jprb,1.5586e+00_jprb/)
1152 kbo( :,56,12) = (/&
1153 &1.0940e+00_jprb,1.1493e+00_jprb,1.2023e+00_jprb,1.2621e+00_jprb,1.3583e+00_jprb/)
1154 kbo( :,57,12) = (/&
1155 &9.3078e-01_jprb,9.8417e-01_jprb,1.0349e+00_jprb,1.0915e+00_jprb,1.1646e+00_jprb/)
1156 kbo( :,58,12) = (/&
1157 &7.9608e-01_jprb,8.4769e-01_jprb,8.9646e-01_jprb,9.5071e-01_jprb,1.0223e+00_jprb/)
1158 kbo( :,59,12) = (/&
1159 &7.1554e-01_jprb,7.6833e-01_jprb,8.2032e-01_jprb,8.7901e-01_jprb,9.5749e-01_jprb/)
1160 kbo( :,13,13) = (/&
1161 &1.4216e+03_jprb,1.3963e+03_jprb,1.3631e+03_jprb,1.3261e+03_jprb,1.2872e+03_jprb/)
1162 kbo( :,14,13) = (/&
1163 &1.4474e+03_jprb,1.4163e+03_jprb,1.3787e+03_jprb,1.3394e+03_jprb,1.2981e+03_jprb/)
1164 kbo( :,15,13) = (/&
1165 &1.4512e+03_jprb,1.4149e+03_jprb,1.3749e+03_jprb,1.3327e+03_jprb,1.2901e+03_jprb/)
1166 kbo( :,16,13) = (/&
1167 &1.4256e+03_jprb,1.3858e+03_jprb,1.3435e+03_jprb,1.3004e+03_jprb,1.2608e+03_jprb/)
1168 kbo( :,17,13) = (/&
1169 &1.3679e+03_jprb,1.3285e+03_jprb,1.2893e+03_jprb,1.2520e+03_jprb,1.2169e+03_jprb/)
1170 kbo( :,18,13) = (/&
1171 &1.2910e+03_jprb,1.2552e+03_jprb,1.2211e+03_jprb,1.1883e+03_jprb,1.1564e+03_jprb/)
1172 kbo( :,19,13) = (/&
1173 &1.2049e+03_jprb,1.1727e+03_jprb,1.1421e+03_jprb,1.1114e+03_jprb,1.0816e+03_jprb/)
1174 kbo( :,20,13) = (/&
1175 &1.1167e+03_jprb,1.0881e+03_jprb,1.0594e+03_jprb,1.0292e+03_jprb,9.9813e+02_jprb/)
1176 kbo( :,21,13) = (/&
1177 &1.0270e+03_jprb,9.9863e+02_jprb,9.6867e+02_jprb,9.3868e+02_jprb,9.1038e+02_jprb/)
1178 kbo( :,22,13) = (/&
1179 &9.2976e+02_jprb,9.0181e+02_jprb,8.7366e+02_jprb,8.4725e+02_jprb,8.2285e+02_jprb/)
1180 kbo( :,23,13) = (/&
1181 &8.2725e+02_jprb,8.0202e+02_jprb,7.7822e+02_jprb,7.5610e+02_jprb,7.3490e+02_jprb/)
1182 kbo( :,24,13) = (/&
1183 &7.2581e+02_jprb,7.0458e+02_jprb,6.8480e+02_jprb,6.6655e+02_jprb,6.4907e+02_jprb/)
1184 kbo( :,25,13) = (/&
1185 &6.3072e+02_jprb,6.1389e+02_jprb,5.9813e+02_jprb,5.8216e+02_jprb,5.6605e+02_jprb/)
1186 kbo( :,26,13) = (/&
1187 &5.4441e+02_jprb,5.3034e+02_jprb,5.1604e+02_jprb,5.0169e+02_jprb,4.8714e+02_jprb/)
1188 kbo( :,27,13) = (/&
1189 &4.6653e+02_jprb,4.5389e+02_jprb,4.4148e+02_jprb,4.2897e+02_jprb,4.1698e+02_jprb/)
1190 kbo( :,28,13) = (/&
1191 &3.9708e+02_jprb,3.8655e+02_jprb,3.7613e+02_jprb,3.6588e+02_jprb,3.5605e+02_jprb/)
1192 kbo( :,29,13) = (/&
1193 &3.3742e+02_jprb,3.2877e+02_jprb,3.2031e+02_jprb,3.1201e+02_jprb,3.0377e+02_jprb/)
1194 kbo( :,30,13) = (/&
1195 &2.8701e+02_jprb,2.8009e+02_jprb,2.7310e+02_jprb,2.6617e+02_jprb,2.5918e+02_jprb/)
1196 kbo( :,31,13) = (/&
1197 &2.4344e+02_jprb,2.3761e+02_jprb,2.3174e+02_jprb,2.2586e+02_jprb,2.1997e+02_jprb/)
1198 kbo( :,32,13) = (/&
1199 &2.0631e+02_jprb,2.0140e+02_jprb,1.9647e+02_jprb,1.9146e+02_jprb,1.8661e+02_jprb/)
1200 kbo( :,33,13) = (/&
1201 &1.7451e+02_jprb,1.7040e+02_jprb,1.6625e+02_jprb,1.6215e+02_jprb,1.5828e+02_jprb/)
1202 kbo( :,34,13) = (/&
1203 &1.4849e+02_jprb,1.4504e+02_jprb,1.4164e+02_jprb,1.3837e+02_jprb,1.3534e+02_jprb/)
1204 kbo( :,35,13) = (/&
1205 &1.2667e+02_jprb,1.2383e+02_jprb,1.2110e+02_jprb,1.1850e+02_jprb,1.1620e+02_jprb/)
1206 kbo( :,36,13) = (/&
1207 &1.0839e+02_jprb,1.0609e+02_jprb,1.0390e+02_jprb,1.0191e+02_jprb,1.0024e+02_jprb/)
1208 kbo( :,37,13) = (/&
1209 &9.3433e+01_jprb,9.1633e+01_jprb,8.9904e+01_jprb,8.8384e+01_jprb,8.7182e+01_jprb/)
1210 kbo( :,38,13) = (/&
1211 &8.0277e+01_jprb,7.8883e+01_jprb,7.7590e+01_jprb,7.6493e+01_jprb,7.5656e+01_jprb/)
1212 kbo( :,39,13) = (/&
1213 &6.8616e+01_jprb,6.7545e+01_jprb,6.6602e+01_jprb,6.5907e+01_jprb,6.5350e+01_jprb/)
1214 kbo( :,40,13) = (/&
1215 &5.9404e+01_jprb,5.8632e+01_jprb,5.7971e+01_jprb,5.7558e+01_jprb,5.7248e+01_jprb/)
1216 kbo( :,41,13) = (/&
1217 &5.1376e+01_jprb,5.0859e+01_jprb,5.0445e+01_jprb,5.0221e+01_jprb,5.0128e+01_jprb/)
1218 kbo( :,42,13) = (/&
1219 &4.4234e+01_jprb,4.3936e+01_jprb,4.3743e+01_jprb,4.3725e+01_jprb,4.3767e+01_jprb/)
1220 kbo( :,43,13) = (/&
1221 &3.8053e+01_jprb,3.7937e+01_jprb,3.7898e+01_jprb,3.8023e+01_jprb,3.8201e+01_jprb/)
1222 kbo( :,44,13) = (/&
1223 &3.2676e+01_jprb,3.2705e+01_jprb,3.2770e+01_jprb,3.2989e+01_jprb,3.3265e+01_jprb/)
1224 kbo( :,45,13) = (/&
1225 &2.7944e+01_jprb,2.8089e+01_jprb,2.8247e+01_jprb,2.8518e+01_jprb,2.8846e+01_jprb/)
1226 kbo( :,46,13) = (/&
1227 &2.3845e+01_jprb,2.4085e+01_jprb,2.4309e+01_jprb,2.4615e+01_jprb,2.4979e+01_jprb/)
1228 kbo( :,47,13) = (/&
1229 &2.0369e+01_jprb,2.0675e+01_jprb,2.0941e+01_jprb,2.1268e+01_jprb,2.1673e+01_jprb/)
1230 kbo( :,48,13) = (/&
1231 &1.7326e+01_jprb,1.7556e+01_jprb,1.7948e+01_jprb,1.8285e+01_jprb,1.8703e+01_jprb/)
1232 kbo( :,49,13) = (/&
1233 &1.4637e+01_jprb,1.4880e+01_jprb,1.5276e+01_jprb,1.5608e+01_jprb,1.6019e+01_jprb/)
1234 kbo( :,50,13) = (/&
1235 &1.2439e+01_jprb,1.2696e+01_jprb,1.3009e+01_jprb,1.3432e+01_jprb,1.3843e+01_jprb/)
1236 kbo( :,51,13) = (/&
1237 &1.0584e+01_jprb,1.0852e+01_jprb,1.1176e+01_jprb,1.1603e+01_jprb,1.2011e+01_jprb/)
1238 kbo( :,52,13) = (/&
1239 &8.8615e+00_jprb,9.2312e+00_jprb,9.5521e+00_jprb,9.9700e+00_jprb,1.0369e+01_jprb/)
1240 kbo( :,53,13) = (/&
1241 &7.4436e+00_jprb,7.8034e+00_jprb,8.1100e+00_jprb,8.5076e+00_jprb,8.8838e+00_jprb/)
1242 kbo( :,54,13) = (/&
1243 &6.3609e+00_jprb,6.7200e+00_jprb,7.0326e+00_jprb,7.4311e+00_jprb,7.8042e+00_jprb/)
1244 kbo( :,55,13) = (/&
1245 &5.4942e+00_jprb,5.8571e+00_jprb,6.1799e+00_jprb,6.4978e+00_jprb,6.9694e+00_jprb/)
1246 kbo( :,56,13) = (/&
1247 &4.7434e+00_jprb,5.1101e+00_jprb,5.4346e+00_jprb,5.7533e+00_jprb,6.2335e+00_jprb/)
1248 kbo( :,57,13) = (/&
1249 &4.0946e+00_jprb,4.4592e+00_jprb,4.7823e+00_jprb,5.1021e+00_jprb,5.4957e+00_jprb/)
1250 kbo( :,58,13) = (/&
1251 &3.5510e+00_jprb,3.9146e+00_jprb,4.2394e+00_jprb,4.5624e+00_jprb,4.9570e+00_jprb/)
1252 kbo( :,59,13) = (/&
1253 &3.2469e+00_jprb,3.6400e+00_jprb,4.0004e+00_jprb,4.3660e+00_jprb,4.8112e+00_jprb/)
1254 kbo( :,13,14) = (/&
1255 &2.9334e+03_jprb,2.8777e+03_jprb,2.8251e+03_jprb,2.7722e+03_jprb,2.7139e+03_jprb/)
1256 kbo( :,14,14) = (/&
1257 &3.0980e+03_jprb,3.0395e+03_jprb,2.9754e+03_jprb,2.9139e+03_jprb,2.8590e+03_jprb/)
1258 kbo( :,15,14) = (/&
1259 &3.2422e+03_jprb,3.1687e+03_jprb,3.1071e+03_jprb,3.0415e+03_jprb,2.9792e+03_jprb/)
1260 kbo( :,16,14) = (/&
1261 &3.3594e+03_jprb,3.2894e+03_jprb,3.2245e+03_jprb,3.1534e+03_jprb,3.0780e+03_jprb/)
1262 kbo( :,17,14) = (/&
1263 &3.4662e+03_jprb,3.3974e+03_jprb,3.3177e+03_jprb,3.2347e+03_jprb,3.1458e+03_jprb/)
1264 kbo( :,18,14) = (/&
1265 &3.5551e+03_jprb,3.4706e+03_jprb,3.3818e+03_jprb,3.2833e+03_jprb,3.1871e+03_jprb/)
1266 kbo( :,19,14) = (/&
1267 &3.5953e+03_jprb,3.5053e+03_jprb,3.4059e+03_jprb,3.3056e+03_jprb,3.2071e+03_jprb/)
1268 kbo( :,20,14) = (/&
1269 &3.5722e+03_jprb,3.4751e+03_jprb,3.3772e+03_jprb,3.2793e+03_jprb,3.1813e+03_jprb/)
1270 kbo( :,21,14) = (/&
1271 &3.4918e+03_jprb,3.3970e+03_jprb,3.3000e+03_jprb,3.2054e+03_jprb,3.1102e+03_jprb/)
1272 kbo( :,22,14) = (/&
1273 &3.3556e+03_jprb,3.2639e+03_jprb,3.1694e+03_jprb,3.0789e+03_jprb,2.9903e+03_jprb/)
1274 kbo( :,23,14) = (/&
1275 &3.1787e+03_jprb,3.0917e+03_jprb,3.0049e+03_jprb,2.9210e+03_jprb,2.8398e+03_jprb/)
1276 kbo( :,24,14) = (/&
1277 &2.9739e+03_jprb,2.8938e+03_jprb,2.8153e+03_jprb,2.7372e+03_jprb,2.6621e+03_jprb/)
1278 kbo( :,25,14) = (/&
1279 &2.7453e+03_jprb,2.6720e+03_jprb,2.6011e+03_jprb,2.5300e+03_jprb,2.4637e+03_jprb/)
1280 kbo( :,26,14) = (/&
1281 &2.5096e+03_jprb,2.4426e+03_jprb,2.3775e+03_jprb,2.3148e+03_jprb,2.2551e+03_jprb/)
1282 kbo( :,27,14) = (/&
1283 &2.2699e+03_jprb,2.2101e+03_jprb,2.1525e+03_jprb,2.0966e+03_jprb,2.0458e+03_jprb/)
1284 kbo( :,28,14) = (/&
1285 &2.0339e+03_jprb,1.9809e+03_jprb,1.9302e+03_jprb,1.8831e+03_jprb,1.8402e+03_jprb/)
1286 kbo( :,29,14) = (/&
1287 &1.8034e+03_jprb,1.7583e+03_jprb,1.7163e+03_jprb,1.6782e+03_jprb,1.6421e+03_jprb/)
1288 kbo( :,30,14) = (/&
1289 &1.5820e+03_jprb,1.5447e+03_jprb,1.5128e+03_jprb,1.4831e+03_jprb,1.4550e+03_jprb/)
1290 kbo( :,31,14) = (/&
1291 &1.3768e+03_jprb,1.3502e+03_jprb,1.3259e+03_jprb,1.3028e+03_jprb,1.2805e+03_jprb/)
1292 kbo( :,32,14) = (/&
1293 &1.1943e+03_jprb,1.1745e+03_jprb,1.1559e+03_jprb,1.1380e+03_jprb,1.1211e+03_jprb/)
1294 kbo( :,33,14) = (/&
1295 &1.0318e+03_jprb,1.0174e+03_jprb,1.0030e+03_jprb,9.8941e+02_jprb,9.7764e+02_jprb/)
1296 kbo( :,34,14) = (/&
1297 &8.9071e+02_jprb,8.7939e+02_jprb,8.6886e+02_jprb,8.6024e+02_jprb,8.5244e+02_jprb/)
1298 kbo( :,35,14) = (/&
1299 &7.6798e+02_jprb,7.6029e+02_jprb,7.5422e+02_jprb,7.4951e+02_jprb,7.4470e+02_jprb/)
1300 kbo( :,36,14) = (/&
1301 &6.6325e+02_jprb,6.5893e+02_jprb,6.5635e+02_jprb,6.5426e+02_jprb,6.5190e+02_jprb/)
1302 kbo( :,37,14) = (/&
1303 &5.7400e+02_jprb,5.7252e+02_jprb,5.7250e+02_jprb,5.7225e+02_jprb,5.7202e+02_jprb/)
1304 kbo( :,38,14) = (/&
1305 &4.9686e+02_jprb,4.9759e+02_jprb,4.9968e+02_jprb,5.0087e+02_jprb,5.0220e+02_jprb/)
1306 kbo( :,39,14) = (/&
1307 &4.3040e+02_jprb,4.3277e+02_jprb,4.3573e+02_jprb,4.3837e+02_jprb,4.4124e+02_jprb/)
1308 kbo( :,40,14) = (/&
1309 &3.7403e+02_jprb,3.7755e+02_jprb,3.8110e+02_jprb,3.8474e+02_jprb,3.8876e+02_jprb/)
1310 kbo( :,41,14) = (/&
1311 &3.2578e+02_jprb,3.3002e+02_jprb,3.3411e+02_jprb,3.3839e+02_jprb,3.4323e+02_jprb/)
1312 kbo( :,42,14) = (/&
1313 &2.8407e+02_jprb,2.8896e+02_jprb,2.9341e+02_jprb,2.9793e+02_jprb,3.0372e+02_jprb/)
1314 kbo( :,43,14) = (/&
1315 &2.4780e+02_jprb,2.5311e+02_jprb,2.5804e+02_jprb,2.6300e+02_jprb,2.6916e+02_jprb/)
1316 kbo( :,44,14) = (/&
1317 &2.1608e+02_jprb,2.2160e+02_jprb,2.2690e+02_jprb,2.3233e+02_jprb,2.3866e+02_jprb/)
1318 kbo( :,45,14) = (/&
1319 &1.8824e+02_jprb,1.9381e+02_jprb,1.9935e+02_jprb,2.0504e+02_jprb,2.1167e+02_jprb/)
1320 kbo( :,46,14) = (/&
1321 &1.6388e+02_jprb,1.6938e+02_jprb,1.7501e+02_jprb,1.8081e+02_jprb,1.8759e+02_jprb/)
1322 kbo( :,47,14) = (/&
1323 &1.4266e+02_jprb,1.4798e+02_jprb,1.5358e+02_jprb,1.5946e+02_jprb,1.6626e+02_jprb/)
1324 kbo( :,48,14) = (/&
1325 &1.2380e+02_jprb,1.2887e+02_jprb,1.3460e+02_jprb,1.4036e+02_jprb,1.4712e+02_jprb/)
1326 kbo( :,49,14) = (/&
1327 &1.0697e+02_jprb,1.1187e+02_jprb,1.1753e+02_jprb,1.2324e+02_jprb,1.2991e+02_jprb/)
1328 kbo( :,50,14) = (/&
1329 &9.2940e+01_jprb,9.7678e+01_jprb,1.0307e+02_jprb,1.0888e+02_jprb,1.1536e+02_jprb/)
1330 kbo( :,51,14) = (/&
1331 &8.1029e+01_jprb,8.5527e+01_jprb,9.0730e+01_jprb,9.6501e+01_jprb,1.0280e+02_jprb/)
1332 kbo( :,52,14) = (/&
1333 &7.0406e+01_jprb,7.4706e+01_jprb,7.9713e+01_jprb,8.5353e+01_jprb,9.1529e+01_jprb/)
1334 kbo( :,53,14) = (/&
1335 &6.0914e+01_jprb,6.5029e+01_jprb,6.9770e+01_jprb,7.5302e+01_jprb,8.1302e+01_jprb/)
1336 kbo( :,54,14) = (/&
1337 &5.3685e+01_jprb,5.7712e+01_jprb,6.2246e+01_jprb,6.7555e+01_jprb,7.3372e+01_jprb/)
1338 kbo( :,55,14) = (/&
1339 &4.8002e+01_jprb,5.1999e+01_jprb,5.6435e+01_jprb,6.1422e+01_jprb,6.7178e+01_jprb/)
1340 kbo( :,56,14) = (/&
1341 &4.3069e+01_jprb,4.7058e+01_jprb,5.1421e+01_jprb,5.6338e+01_jprb,6.1901e+01_jprb/)
1342 kbo( :,57,14) = (/&
1343 &3.8718e+01_jprb,4.2795e+01_jprb,4.7064e+01_jprb,5.1974e+01_jprb,5.7337e+01_jprb/)
1344 kbo( :,58,14) = (/&
1345 &3.5127e+01_jprb,3.9394e+01_jprb,4.3676e+01_jprb,4.8594e+01_jprb,5.4054e+01_jprb/)
1346 kbo( :,59,14) = (/&
1347 &3.4411e+01_jprb,3.9387e+01_jprb,4.4312e+01_jprb,4.9761e+01_jprb,5.5833e+01_jprb/)
1348 kbo( :,13,15) = (/&
1349 &5.8626e+03_jprb,5.7531e+03_jprb,5.6999e+03_jprb,5.6080e+03_jprb,5.5646e+03_jprb/)
1350 kbo( :,14,15) = (/&
1351 &6.6299e+03_jprb,6.5552e+03_jprb,6.4532e+03_jprb,6.3570e+03_jprb,6.2707e+03_jprb/)
1352 kbo( :,15,15) = (/&
1353 &7.5140e+03_jprb,7.3938e+03_jprb,7.2851e+03_jprb,7.1606e+03_jprb,7.0596e+03_jprb/)
1354 kbo( :,16,15) = (/&
1355 &8.4004e+03_jprb,8.2640e+03_jprb,8.1296e+03_jprb,7.9995e+03_jprb,7.8682e+03_jprb/)
1356 kbo( :,17,15) = (/&
1357 &9.2783e+03_jprb,9.1233e+03_jprb,8.9809e+03_jprb,8.8341e+03_jprb,8.6706e+03_jprb/)
1358 kbo( :,18,15) = (/&
1359 &1.0203e+04_jprb,9.9981e+03_jprb,9.8375e+03_jprb,9.6605e+03_jprb,9.4887e+03_jprb/)
1360 kbo( :,19,15) = (/&
1361 &1.1106e+04_jprb,1.0894e+04_jprb,1.0688e+04_jprb,1.0490e+04_jprb,1.0272e+04_jprb/)
1362 kbo( :,20,15) = (/&
1363 &1.2022e+04_jprb,1.1788e+04_jprb,1.1526e+04_jprb,1.1301e+04_jprb,1.1063e+04_jprb/)
1364 kbo( :,21,15) = (/&
1365 &1.2860e+04_jprb,1.2601e+04_jprb,1.2351e+04_jprb,1.2080e+04_jprb,1.1797e+04_jprb/)
1366 kbo( :,22,15) = (/&
1367 &1.3622e+04_jprb,1.3359e+04_jprb,1.3050e+04_jprb,1.2774e+04_jprb,1.2461e+04_jprb/)
1368 kbo( :,23,15) = (/&
1369 &1.4282e+04_jprb,1.3995e+04_jprb,1.3676e+04_jprb,1.3349e+04_jprb,1.3009e+04_jprb/)
1370 kbo( :,24,15) = (/&
1371 &1.4830e+04_jprb,1.4486e+04_jprb,1.4138e+04_jprb,1.3782e+04_jprb,1.3441e+04_jprb/)
1372 kbo( :,25,15) = (/&
1373 &1.5198e+04_jprb,1.4832e+04_jprb,1.4459e+04_jprb,1.4100e+04_jprb,1.3752e+04_jprb/)
1374 kbo( :,26,15) = (/&
1375 &1.5360e+04_jprb,1.4999e+04_jprb,1.4642e+04_jprb,1.4292e+04_jprb,1.3943e+04_jprb/)
1376 kbo( :,27,15) = (/&
1377 &1.5406e+04_jprb,1.5053e+04_jprb,1.4691e+04_jprb,1.4344e+04_jprb,1.3993e+04_jprb/)
1378 kbo( :,28,15) = (/&
1379 &1.5350e+04_jprb,1.4989e+04_jprb,1.4625e+04_jprb,1.4280e+04_jprb,1.3936e+04_jprb/)
1380 kbo( :,29,15) = (/&
1381 &1.5162e+04_jprb,1.4811e+04_jprb,1.4452e+04_jprb,1.4117e+04_jprb,1.3798e+04_jprb/)
1382 kbo( :,30,15) = (/&
1383 &1.4888e+04_jprb,1.4556e+04_jprb,1.4228e+04_jprb,1.3905e+04_jprb,1.3609e+04_jprb/)
1384 kbo( :,31,15) = (/&
1385 &1.4511e+04_jprb,1.4207e+04_jprb,1.3919e+04_jprb,1.3634e+04_jprb,1.3368e+04_jprb/)
1386 kbo( :,32,15) = (/&
1387 &1.4068e+04_jprb,1.3811e+04_jprb,1.3560e+04_jprb,1.3325e+04_jprb,1.3103e+04_jprb/)
1388 kbo( :,33,15) = (/&
1389 &1.3601e+04_jprb,1.3399e+04_jprb,1.3196e+04_jprb,1.3006e+04_jprb,1.2830e+04_jprb/)
1390 kbo( :,34,15) = (/&
1391 &1.3119e+04_jprb,1.2976e+04_jprb,1.2834e+04_jprb,1.2699e+04_jprb,1.2559e+04_jprb/)
1392 kbo( :,35,15) = (/&
1393 &1.2646e+04_jprb,1.2564e+04_jprb,1.2475e+04_jprb,1.2392e+04_jprb,1.2320e+04_jprb/)
1394 kbo( :,36,15) = (/&
1395 &1.2190e+04_jprb,1.2170e+04_jprb,1.2138e+04_jprb,1.2103e+04_jprb,1.2079e+04_jprb/)
1396 kbo( :,37,15) = (/&
1397 &1.1737e+04_jprb,1.1781e+04_jprb,1.1808e+04_jprb,1.1824e+04_jprb,1.1847e+04_jprb/)
1398 kbo( :,38,15) = (/&
1399 &1.1288e+04_jprb,1.1385e+04_jprb,1.1474e+04_jprb,1.1550e+04_jprb,1.1619e+04_jprb/)
1400 kbo( :,39,15) = (/&
1401 &1.0856e+04_jprb,1.1010e+04_jprb,1.1156e+04_jprb,1.1287e+04_jprb,1.1401e+04_jprb/)
1402 kbo( :,40,15) = (/&
1403 &1.0434e+04_jprb,1.0638e+04_jprb,1.0839e+04_jprb,1.1017e+04_jprb,1.1176e+04_jprb/)
1404 kbo( :,41,15) = (/&
1405 &1.0025e+04_jprb,1.0281e+04_jprb,1.0529e+04_jprb,1.0755e+04_jprb,1.0956e+04_jprb/)
1406 kbo( :,42,15) = (/&
1407 &9.6179e+03_jprb,9.9405e+03_jprb,1.0234e+04_jprb,1.0504e+04_jprb,1.0740e+04_jprb/)
1408 kbo( :,43,15) = (/&
1409 &9.2261e+03_jprb,9.6002e+03_jprb,9.9385e+03_jprb,1.0249e+04_jprb,1.0522e+04_jprb/)
1410 kbo( :,44,15) = (/&
1411 &8.8369e+03_jprb,9.2610e+03_jprb,9.6434e+03_jprb,9.9917e+03_jprb,1.0304e+04_jprb/)
1412 kbo( :,45,15) = (/&
1413 &8.4565e+03_jprb,8.9270e+03_jprb,9.3572e+03_jprb,9.7378e+03_jprb,1.0089e+04_jprb/)
1414 kbo( :,46,15) = (/&
1415 &8.0787e+03_jprb,8.5914e+03_jprb,9.0699e+03_jprb,9.4822e+03_jprb,9.8664e+03_jprb/)
1416 kbo( :,47,15) = (/&
1417 &7.6853e+03_jprb,8.2420e+03_jprb,8.7669e+03_jprb,9.2155e+03_jprb,9.6327e+03_jprb/)
1418 kbo( :,48,15) = (/&
1419 &7.2976e+03_jprb,7.9018e+03_jprb,8.4572e+03_jprb,8.9503e+03_jprb,9.3974e+03_jprb/)
1420 kbo( :,49,15) = (/&
1421 &6.9137e+03_jprb,7.5530e+03_jprb,8.1461e+03_jprb,8.6824e+03_jprb,9.1633e+03_jprb/)
1422 kbo( :,50,15) = (/&
1423 &6.5439e+03_jprb,7.2215e+03_jprb,7.8385e+03_jprb,8.4232e+03_jprb,8.9404e+03_jprb/)
1424 kbo( :,51,15) = (/&
1425 &6.1848e+03_jprb,6.8963e+03_jprb,7.5471e+03_jprb,8.1684e+03_jprb,8.7207e+03_jprb/)
1426 kbo( :,52,15) = (/&
1427 &5.8189e+03_jprb,6.5740e+03_jprb,7.2547e+03_jprb,7.9146e+03_jprb,8.4977e+03_jprb/)
1428 kbo( :,53,15) = (/&
1429 &5.4670e+03_jprb,6.2525e+03_jprb,6.9648e+03_jprb,7.6568e+03_jprb,8.2688e+03_jprb/)
1430 kbo( :,54,15) = (/&
1431 &5.1436e+03_jprb,5.9527e+03_jprb,6.6949e+03_jprb,7.4192e+03_jprb,8.0568e+03_jprb/)
1432 kbo( :,55,15) = (/&
1433 &4.8355e+03_jprb,5.6683e+03_jprb,6.4321e+03_jprb,7.1732e+03_jprb,7.8507e+03_jprb/)
1434 kbo( :,56,15) = (/&
1435 &4.5326e+03_jprb,5.3883e+03_jprb,6.1757e+03_jprb,6.9385e+03_jprb,7.6455e+03_jprb/)
1436 kbo( :,57,15) = (/&
1437 &4.2335e+03_jprb,5.1109e+03_jprb,5.9237e+03_jprb,6.7072e+03_jprb,7.4206e+03_jprb/)
1438 kbo( :,58,15) = (/&
1439 &3.9599e+03_jprb,4.8524e+03_jprb,5.6868e+03_jprb,6.4919e+03_jprb,7.2242e+03_jprb/)
1440 kbo( :,59,15) = (/&
1441 &3.8525e+03_jprb,4.7532e+03_jprb,5.5997e+03_jprb,6.4149e+03_jprb,7.1557e+03_jprb/)
1442 kbo( :,13,16) = (/&
1443 &1.1371e+04_jprb,1.1323e+04_jprb,1.1315e+04_jprb,1.1164e+04_jprb,1.1081e+04_jprb/)
1444 kbo( :,14,16) = (/&
1445 &1.3431e+04_jprb,1.3485e+04_jprb,1.3332e+04_jprb,1.3142e+04_jprb,1.2900e+04_jprb/)
1446 kbo( :,15,16) = (/&
1447 &1.5843e+04_jprb,1.5741e+04_jprb,1.5575e+04_jprb,1.5331e+04_jprb,1.5089e+04_jprb/)
1448 kbo( :,16,16) = (/&
1449 &1.8399e+04_jprb,1.8340e+04_jprb,1.8137e+04_jprb,1.7913e+04_jprb,1.7697e+04_jprb/)
1450 kbo( :,17,16) = (/&
1451 &2.1310e+04_jprb,2.1226e+04_jprb,2.1046e+04_jprb,2.0865e+04_jprb,2.0549e+04_jprb/)
1452 kbo( :,18,16) = (/&
1453 &2.4633e+04_jprb,2.4423e+04_jprb,2.4337e+04_jprb,2.4031e+04_jprb,2.3685e+04_jprb/)
1454 kbo( :,19,16) = (/&
1455 &2.8116e+04_jprb,2.8107e+04_jprb,2.7914e+04_jprb,2.7644e+04_jprb,2.7235e+04_jprb/)
1456 kbo( :,20,16) = (/&
1457 &3.2352e+04_jprb,3.2111e+04_jprb,3.1818e+04_jprb,3.1625e+04_jprb,3.1234e+04_jprb/)
1458 kbo( :,21,16) = (/&
1459 &3.7036e+04_jprb,3.6651e+04_jprb,3.6428e+04_jprb,3.6095e+04_jprb,3.5692e+04_jprb/)
1460 kbo( :,22,16) = (/&
1461 &4.2524e+04_jprb,4.2050e+04_jprb,4.1496e+04_jprb,4.1174e+04_jprb,4.0706e+04_jprb/)
1462 kbo( :,23,16) = (/&
1463 &4.8715e+04_jprb,4.8086e+04_jprb,4.7446e+04_jprb,4.6855e+04_jprb,4.6215e+04_jprb/)
1464 kbo( :,24,16) = (/&
1465 &5.5639e+04_jprb,5.4833e+04_jprb,5.3941e+04_jprb,5.3072e+04_jprb,5.2154e+04_jprb/)
1466 kbo( :,25,16) = (/&
1467 &6.3125e+04_jprb,6.2076e+04_jprb,6.0936e+04_jprb,5.9802e+04_jprb,5.8643e+04_jprb/)
1468 kbo( :,26,16) = (/&
1469 &7.0969e+04_jprb,6.9666e+04_jprb,6.8250e+04_jprb,6.6863e+04_jprb,6.5447e+04_jprb/)
1470 kbo( :,27,16) = (/&
1471 &7.9041e+04_jprb,7.7424e+04_jprb,7.5739e+04_jprb,7.4111e+04_jprb,7.2428e+04_jprb/)
1472 kbo( :,28,16) = (/&
1473 &8.7171e+04_jprb,8.5329e+04_jprb,8.3283e+04_jprb,8.1385e+04_jprb,7.9412e+04_jprb/)
1474 kbo( :,29,16) = (/&
1475 &9.5287e+04_jprb,9.3095e+04_jprb,9.0725e+04_jprb,8.8465e+04_jprb,8.6095e+04_jprb/)
1476 kbo( :,30,16) = (/&
1477 &1.0333e+05_jprb,1.0061e+05_jprb,9.7918e+04_jprb,9.5190e+04_jprb,9.2462e+04_jprb/)
1478 kbo( :,31,16) = (/&
1479 &1.1108e+05_jprb,1.0788e+05_jprb,1.0471e+05_jprb,1.0154e+05_jprb,9.8354e+04_jprb/)
1480 kbo( :,32,16) = (/&
1481 &1.1839e+05_jprb,1.1468e+05_jprb,1.1110e+05_jprb,1.0744e+05_jprb,1.0381e+05_jprb/)
1482 kbo( :,33,16) = (/&
1483 &1.2510e+05_jprb,1.2097e+05_jprb,1.1682e+05_jprb,1.1275e+05_jprb,1.0867e+05_jprb/)
1484 kbo( :,34,16) = (/&
1485 &1.3142e+05_jprb,1.2677e+05_jprb,1.2209e+05_jprb,1.1755e+05_jprb,1.1311e+05_jprb/)
1486 kbo( :,35,16) = (/&
1487 &1.3764e+05_jprb,1.3245e+05_jprb,1.2727e+05_jprb,1.2228e+05_jprb,1.1753e+05_jprb/)
1488 kbo( :,36,16) = (/&
1489 &1.4383e+05_jprb,1.3810e+05_jprb,1.3243e+05_jprb,1.2701e+05_jprb,1.2185e+05_jprb/)
1490 kbo( :,37,16) = (/&
1491 &1.5046e+05_jprb,1.4418e+05_jprb,1.3799e+05_jprb,1.3212e+05_jprb,1.2655e+05_jprb/)
1492 kbo( :,38,16) = (/&
1493 &1.5675e+05_jprb,1.4982e+05_jprb,1.4330e+05_jprb,1.3693e+05_jprb,1.3095e+05_jprb/)
1494 kbo( :,39,16) = (/&
1495 &1.6258e+05_jprb,1.5518e+05_jprb,1.4815e+05_jprb,1.4138e+05_jprb,1.3502e+05_jprb/)
1496 kbo( :,40,16) = (/&
1497 &1.6871e+05_jprb,1.6088e+05_jprb,1.5341e+05_jprb,1.4623e+05_jprb,1.3948e+05_jprb/)
1498 kbo( :,41,16) = (/&
1499 &1.7458e+05_jprb,1.6635e+05_jprb,1.5848e+05_jprb,1.5090e+05_jprb,1.4379e+05_jprb/)
1500 kbo( :,42,16) = (/&
1501 &1.7998e+05_jprb,1.7152e+05_jprb,1.6328e+05_jprb,1.5532e+05_jprb,1.4790e+05_jprb/)
1502 kbo( :,43,16) = (/&
1503 &1.8575e+05_jprb,1.7689e+05_jprb,1.6831e+05_jprb,1.5999e+05_jprb,1.5225e+05_jprb/)
1504 kbo( :,44,16) = (/&
1505 &1.9152e+05_jprb,1.8231e+05_jprb,1.7334e+05_jprb,1.6472e+05_jprb,1.5657e+05_jprb/)
1506 kbo( :,45,16) = (/&
1507 &1.9710e+05_jprb,1.8756e+05_jprb,1.7825e+05_jprb,1.6934e+05_jprb,1.6086e+05_jprb/)
1508 kbo( :,46,16) = (/&
1509 &2.0271e+05_jprb,1.9287e+05_jprb,1.8321e+05_jprb,1.7404e+05_jprb,1.6527e+05_jprb/)
1510 kbo( :,47,16) = (/&
1511 &2.0857e+05_jprb,1.9849e+05_jprb,1.8848e+05_jprb,1.7903e+05_jprb,1.6997e+05_jprb/)
1512 kbo( :,48,16) = (/&
1513 &2.1432e+05_jprb,2.0416e+05_jprb,1.9373e+05_jprb,1.8395e+05_jprb,1.7463e+05_jprb/)
1514 kbo( :,49,16) = (/&
1515 &2.1996e+05_jprb,2.0961e+05_jprb,1.9896e+05_jprb,1.8885e+05_jprb,1.7927e+05_jprb/)
1516 kbo( :,50,16) = (/&
1517 &2.2527e+05_jprb,2.1474e+05_jprb,2.0397e+05_jprb,1.9350e+05_jprb,1.8363e+05_jprb/)
1518 kbo( :,51,16) = (/&
1519 &2.3036e+05_jprb,2.1969e+05_jprb,2.0872e+05_jprb,1.9800e+05_jprb,1.8789e+05_jprb/)
1520 kbo( :,52,16) = (/&
1521 &2.3557e+05_jprb,2.2457e+05_jprb,2.1344e+05_jprb,2.0248e+05_jprb,1.9215e+05_jprb/)
1522 kbo( :,53,16) = (/&
1523 &2.4051e+05_jprb,2.2942e+05_jprb,2.1813e+05_jprb,2.0698e+05_jprb,1.9645e+05_jprb/)
1524 kbo( :,54,16) = (/&
1525 &2.4502e+05_jprb,2.3386e+05_jprb,2.2247e+05_jprb,2.1113e+05_jprb,2.0043e+05_jprb/)
1526 kbo( :,55,16) = (/&
1527 &2.4930e+05_jprb,2.3811e+05_jprb,2.2662e+05_jprb,2.1524e+05_jprb,2.0429e+05_jprb/)
1528 kbo( :,56,16) = (/&
1529 &2.5354e+05_jprb,2.4234e+05_jprb,2.3079e+05_jprb,2.1928e+05_jprb,2.0814e+05_jprb/)
1530 kbo( :,57,16) = (/&
1531 &2.5774e+05_jprb,2.4654e+05_jprb,2.3491e+05_jprb,2.2331e+05_jprb,2.1201e+05_jprb/)
1532 kbo( :,58,16) = (/&
1533 &2.6172e+05_jprb,2.5053e+05_jprb,2.3885e+05_jprb,2.2717e+05_jprb,2.1576e+05_jprb/)
1534 kbo( :,59,16) = (/&
1535 &2.6363e+05_jprb,2.5242e+05_jprb,2.4067e+05_jprb,2.2890e+05_jprb,2.1741e+05_jprb/)
1536 
1537 ! -----------------------------------------------------------------
1538 RETURN
1539 END SUBROUTINE rrtm_kgb1_02
real(kind=jprb), dimension(10, no1) selfrefo
Definition: yoerrto1.F90:19
real(kind=jprb), dimension(no1) fracrefao
Definition: yoerrto1.F90:16
subroutine rrtm_kgb1_02
Definition: rrtm_kgb1_02.F90:3
real(kind=jprb), dimension(5, 13:59, no1) kbo
Definition: yoerrto1.F90:18
real(kind=jprb), dimension(5, 13, no1) kao
Definition: yoerrto1.F90:17
real(kind=jprb), dimension(no1) fracrefbo
Definition: yoerrto1.F90:16
real(kind=jprb), dimension(no1) forrefo
Definition: yoerrto1.F90:19