LMDZ
rrtm_kgb10.F90
Go to the documentation of this file.
1 !OCL SCALAR
2 SUBROUTINE rrtm_kgb10
3 
4 ! Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
5 ! BAND 10: 1390-1480 cm-1 (low - H2O; high - H2O)
6 ! Reformatted for F90 by JJMorcrette, ECMWF
7 
8 ! ------------------------------------------------------------------
9 
10 #include "tsmbkind.h"
11 
12 USE yoerrto10, ONLY : kao ,kbo ,fracrefao ,fracrefbo
13 
14 ! ------------------------------------------------------------------
15 
16 
17 IMPLICIT NONE
18 fracrefao( :) = (/&
19 ! From P = 473 mb.
20  &0.16271301_jprb,0.15141940_jprb,0.14065412_jprb,0.12899506_jprb,&
21  &0.11607002_jprb,0.10142808_jprb,0.08116794_jprb,0.06104711_jprb,&
22  &0.04146209_jprb,0.00447386_jprb,0.00372902_jprb,0.00287258_jprb,&
23  &0.00206028_jprb,0.00134634_jprb,0.00049232_jprb,0.00006927_jprb/)
24 
25 fracrefbo( :) = (/&
26 ! From P = 1.17 mb.
27  &0.16571465_jprb,0.15262246_jprb,0.14036226_jprb,0.12620729_jprb,&
28  &0.11477834_jprb,0.09967982_jprb,0.08155201_jprb,0.06159503_jprb,&
29  &0.04196607_jprb,0.00453940_jprb,0.00376881_jprb,0.00300437_jprb,&
30  &0.00223034_jprb,0.00139432_jprb,0.00051516_jprb,0.00007095_jprb/)
31 
32 ! ------------------------------------------------------------------
33 
34 ! The array KAO contains absorption coefs at the 16 chosen g-values
35 ! for a range of pressure levels > ~100mb and temperatures. The first
36 ! index in the array, JT, which runs from 1 to 5, corresponds to
37 ! different temperatures. More specifically, JT = 3 means that the
38 ! data are for the corresponding TREF for this pressure level,
39 ! JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30,
40 ! JT = 4 is for TREF+15, and JT = 5 is for TREF+30. The second
41 ! index, JP, runs from 1 to 13 and refers to the corresponding
42 ! pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).
43 ! The third index, IG, goes from 1 to 16, and tells us which
44 ! g-interval the absorption coefficients are for.
45 
46 kao( :, 1, 1) = (/&
47 &4.3436e-02_jprb,4.4287e-02_jprb,4.5209e-02_jprb,4.6235e-02_jprb,4.7373e-02_jprb/)
48 kao( :, 2, 1) = (/&
49 &3.3904e-02_jprb,3.4737e-02_jprb,3.5589e-02_jprb,3.6523e-02_jprb,3.7507e-02_jprb/)
50 kao( :, 3, 1) = (/&
51 &2.6121e-02_jprb,2.6913e-02_jprb,2.7706e-02_jprb,2.8545e-02_jprb,2.9408e-02_jprb/)
52 kao( :, 4, 1) = (/&
53 &2.0504e-02_jprb,2.1226e-02_jprb,2.1920e-02_jprb,2.2632e-02_jprb,2.3375e-02_jprb/)
54 kao( :, 5, 1) = (/&
55 &1.6329e-02_jprb,1.6959e-02_jprb,1.7565e-02_jprb,1.8162e-02_jprb,1.8767e-02_jprb/)
56 kao( :, 6, 1) = (/&
57 &1.3082e-02_jprb,1.3618e-02_jprb,1.4143e-02_jprb,1.4651e-02_jprb,1.5156e-02_jprb/)
58 kao( :, 7, 1) = (/&
59 &1.0505e-02_jprb,1.0980e-02_jprb,1.1432e-02_jprb,1.1872e-02_jprb,1.2303e-02_jprb/)
60 kao( :, 8, 1) = (/&
61 &8.4782e-03_jprb,8.9309e-03_jprb,9.3409e-03_jprb,9.7321e-03_jprb,1.0116e-02_jprb/)
62 kao( :, 9, 1) = (/&
63 &7.0083e-03_jprb,7.5470e-03_jprb,8.0513e-03_jprb,8.5154e-03_jprb,8.9405e-03_jprb/)
64 kao( :,10, 1) = (/&
65 &6.2679e-03_jprb,6.8607e-03_jprb,7.4696e-03_jprb,8.0836e-03_jprb,8.7113e-03_jprb/)
66 kao( :,11, 1) = (/&
67 &5.5738e-03_jprb,6.1775e-03_jprb,6.7768e-03_jprb,7.3796e-03_jprb,7.9869e-03_jprb/)
68 kao( :,12, 1) = (/&
69 &4.8170e-03_jprb,5.3653e-03_jprb,5.9132e-03_jprb,6.4615e-03_jprb,6.9965e-03_jprb/)
70 kao( :,13, 1) = (/&
71 &4.0124e-03_jprb,4.4686e-03_jprb,4.9254e-03_jprb,5.3837e-03_jprb,5.8220e-03_jprb/)
72 kao( :, 1, 2) = (/&
73 &7.6052e-02_jprb,7.8155e-02_jprb,8.0398e-02_jprb,8.2890e-02_jprb,8.5349e-02_jprb/)
74 kao( :, 2, 2) = (/&
75 &5.9857e-02_jprb,6.1820e-02_jprb,6.3993e-02_jprb,6.6271e-02_jprb,6.8386e-02_jprb/)
76 kao( :, 3, 2) = (/&
77 &4.6547e-02_jprb,4.8389e-02_jprb,5.0377e-02_jprb,5.2388e-02_jprb,5.4300e-02_jprb/)
78 kao( :, 4, 2) = (/&
79 &3.6687e-02_jprb,3.8357e-02_jprb,4.0103e-02_jprb,4.1837e-02_jprb,4.3530e-02_jprb/)
80 kao( :, 5, 2) = (/&
81 &2.9237e-02_jprb,3.0733e-02_jprb,3.2226e-02_jprb,3.3703e-02_jprb,3.5156e-02_jprb/)
82 kao( :, 6, 2) = (/&
83 &2.3348e-02_jprb,2.4684e-02_jprb,2.5978e-02_jprb,2.7223e-02_jprb,2.8447e-02_jprb/)
84 kao( :, 7, 2) = (/&
85 &1.8712e-02_jprb,1.9885e-02_jprb,2.1023e-02_jprb,2.2089e-02_jprb,2.3117e-02_jprb/)
86 kao( :, 8, 2) = (/&
87 &1.5248e-02_jprb,1.6226e-02_jprb,1.7260e-02_jprb,1.8206e-02_jprb,1.9081e-02_jprb/)
88 kao( :, 9, 2) = (/&
89 &1.3662e-02_jprb,1.4539e-02_jprb,1.5452e-02_jprb,1.6398e-02_jprb,1.7332e-02_jprb/)
90 kao( :,10, 2) = (/&
91 &1.5758e-02_jprb,1.7065e-02_jprb,1.8351e-02_jprb,1.9608e-02_jprb,2.0713e-02_jprb/)
92 kao( :,11, 2) = (/&
93 &1.5809e-02_jprb,1.7330e-02_jprb,1.8795e-02_jprb,2.0165e-02_jprb,2.1363e-02_jprb/)
94 kao( :,12, 2) = (/&
95 &1.4427e-02_jprb,1.5923e-02_jprb,1.7365e-02_jprb,1.8668e-02_jprb,1.9829e-02_jprb/)
96 kao( :,13, 2) = (/&
97 &1.2159e-02_jprb,1.3438e-02_jprb,1.4645e-02_jprb,1.5727e-02_jprb,1.6711e-02_jprb/)
98 kao( :, 1, 3) = (/&
99 &1.1941e-01_jprb,1.2154e-01_jprb,1.2325e-01_jprb,1.2478e-01_jprb,1.2668e-01_jprb/)
100 kao( :, 2, 3) = (/&
101 &9.4949e-02_jprb,9.7174e-02_jprb,9.8951e-02_jprb,1.0048e-01_jprb,1.0239e-01_jprb/)
102 kao( :, 3, 3) = (/&
103 &7.4601e-02_jprb,7.6873e-02_jprb,7.8765e-02_jprb,8.0479e-02_jprb,8.2213e-02_jprb/)
104 kao( :, 4, 3) = (/&
105 &5.9324e-02_jprb,6.1532e-02_jprb,6.3434e-02_jprb,6.5160e-02_jprb,6.6762e-02_jprb/)
106 kao( :, 5, 3) = (/&
107 &4.7627e-02_jprb,4.9624e-02_jprb,5.1388e-02_jprb,5.3000e-02_jprb,5.4460e-02_jprb/)
108 kao( :, 6, 3) = (/&
109 &3.8325e-02_jprb,4.0081e-02_jprb,4.1660e-02_jprb,4.3161e-02_jprb,4.4493e-02_jprb/)
110 kao( :, 7, 3) = (/&
111 &3.1008e-02_jprb,3.2491e-02_jprb,3.3918e-02_jprb,3.5275e-02_jprb,3.6482e-02_jprb/)
112 kao( :, 8, 3) = (/&
113 &2.5375e-02_jprb,2.6683e-02_jprb,2.7918e-02_jprb,2.9119e-02_jprb,3.0227e-02_jprb/)
114 kao( :, 9, 3) = (/&
115 &2.2773e-02_jprb,2.4067e-02_jprb,2.5227e-02_jprb,2.6300e-02_jprb,2.7274e-02_jprb/)
116 kao( :,10, 3) = (/&
117 &2.5056e-02_jprb,2.7108e-02_jprb,2.9103e-02_jprb,3.1105e-02_jprb,3.2910e-02_jprb/)
118 kao( :,11, 3) = (/&
119 &2.5964e-02_jprb,2.7973e-02_jprb,2.9944e-02_jprb,3.1965e-02_jprb,3.4025e-02_jprb/)
120 kao( :,12, 3) = (/&
121 &2.4537e-02_jprb,2.6383e-02_jprb,2.8189e-02_jprb,3.0029e-02_jprb,3.1820e-02_jprb/)
122 kao( :,13, 3) = (/&
123 &2.0785e-02_jprb,2.2351e-02_jprb,2.3915e-02_jprb,2.5481e-02_jprb,2.6957e-02_jprb/)
124 kao( :, 1, 4) = (/&
125 &1.7062e-01_jprb,1.7437e-01_jprb,1.7838e-01_jprb,1.8288e-01_jprb,1.8787e-01_jprb/)
126 kao( :, 2, 4) = (/&
127 &1.3654e-01_jprb,1.4010e-01_jprb,1.4403e-01_jprb,1.4850e-01_jprb,1.5295e-01_jprb/)
128 kao( :, 3, 4) = (/&
129 &1.0835e-01_jprb,1.1169e-01_jprb,1.1522e-01_jprb,1.1900e-01_jprb,1.2314e-01_jprb/)
130 kao( :, 4, 4) = (/&
131 &8.6891e-02_jprb,8.9909e-02_jprb,9.2966e-02_jprb,9.6155e-02_jprb,9.9768e-02_jprb/)
132 kao( :, 5, 4) = (/&
133 &7.0296e-02_jprb,7.2932e-02_jprb,7.5596e-02_jprb,7.8371e-02_jprb,8.1518e-02_jprb/)
134 kao( :, 6, 4) = (/&
135 &5.7106e-02_jprb,5.9401e-02_jprb,6.1747e-02_jprb,6.4154e-02_jprb,6.6823e-02_jprb/)
136 kao( :, 7, 4) = (/&
137 &4.6442e-02_jprb,4.8507e-02_jprb,5.0535e-02_jprb,5.2614e-02_jprb,5.4880e-02_jprb/)
138 kao( :, 8, 4) = (/&
139 &3.8129e-02_jprb,3.9923e-02_jprb,4.1657e-02_jprb,4.3454e-02_jprb,4.5387e-02_jprb/)
140 kao( :, 9, 4) = (/&
141 &3.3848e-02_jprb,3.5287e-02_jprb,3.6775e-02_jprb,3.8335e-02_jprb,4.0012e-02_jprb/)
142 kao( :,10, 4) = (/&
143 &4.0975e-02_jprb,4.3174e-02_jprb,4.4060e-02_jprb,4.4660e-02_jprb,4.5678e-02_jprb/)
144 kao( :,11, 4) = (/&
145 &4.1946e-02_jprb,4.4641e-02_jprb,4.6896e-02_jprb,4.7962e-02_jprb,4.8832e-02_jprb/)
146 kao( :,12, 4) = (/&
147 &3.9213e-02_jprb,4.1960e-02_jprb,4.4202e-02_jprb,4.5849e-02_jprb,4.6828e-02_jprb/)
148 kao( :,13, 4) = (/&
149 &3.3349e-02_jprb,3.5638e-02_jprb,3.7527e-02_jprb,3.8919e-02_jprb,3.9723e-02_jprb/)
150 kao( :, 1, 5) = (/&
151 &2.9031e-01_jprb,3.0033e-01_jprb,3.0967e-01_jprb,3.1844e-01_jprb,3.2668e-01_jprb/)
152 kao( :, 2, 5) = (/&
153 &2.3357e-01_jprb,2.4199e-01_jprb,2.5006e-01_jprb,2.5762e-01_jprb,2.6525e-01_jprb/)
154 kao( :, 3, 5) = (/&
155 &1.8503e-01_jprb,1.9252e-01_jprb,1.9961e-01_jprb,2.0653e-01_jprb,2.1345e-01_jprb/)
156 kao( :, 4, 5) = (/&
157 &1.4814e-01_jprb,1.5482e-01_jprb,1.6122e-01_jprb,1.6737e-01_jprb,1.7343e-01_jprb/)
158 kao( :, 5, 5) = (/&
159 &1.1942e-01_jprb,1.2535e-01_jprb,1.3092e-01_jprb,1.3637e-01_jprb,1.4171e-01_jprb/)
160 kao( :, 6, 5) = (/&
161 &9.6108e-02_jprb,1.0135e-01_jprb,1.0623e-01_jprb,1.1100e-01_jprb,1.1566e-01_jprb/)
162 kao( :, 7, 5) = (/&
163 &7.7384e-02_jprb,8.2024e-02_jprb,8.6286e-02_jprb,9.0422e-02_jprb,9.4500e-02_jprb/)
164 kao( :, 8, 5) = (/&
165 &6.2754e-02_jprb,6.6850e-02_jprb,7.0634e-02_jprb,7.4249e-02_jprb,7.7804e-02_jprb/)
166 kao( :, 9, 5) = (/&
167 &5.3581e-02_jprb,5.7247e-02_jprb,6.0673e-02_jprb,6.3910e-02_jprb,6.7155e-02_jprb/)
168 kao( :,10, 5) = (/&
169 &5.9240e-02_jprb,6.0661e-02_jprb,6.3351e-02_jprb,6.6308e-02_jprb,6.9274e-02_jprb/)
170 kao( :,11, 5) = (/&
171 &6.3231e-02_jprb,6.3689e-02_jprb,6.4470e-02_jprb,6.6608e-02_jprb,6.9366e-02_jprb/)
172 kao( :,12, 5) = (/&
173 &6.0132e-02_jprb,6.0508e-02_jprb,6.1046e-02_jprb,6.2310e-02_jprb,6.4789e-02_jprb/)
174 kao( :,13, 5) = (/&
175 &5.1121e-02_jprb,5.1506e-02_jprb,5.2003e-02_jprb,5.3196e-02_jprb,5.5479e-02_jprb/)
176 kao( :, 1, 6) = (/&
177 &6.0412e-01_jprb,6.3664e-01_jprb,6.6664e-01_jprb,6.9440e-01_jprb,7.1921e-01_jprb/)
178 kao( :, 2, 6) = (/&
179 &4.9197e-01_jprb,5.2036e-01_jprb,5.4668e-01_jprb,5.6991e-01_jprb,5.8959e-01_jprb/)
180 kao( :, 3, 6) = (/&
181 &3.9398e-01_jprb,4.1866e-01_jprb,4.4086e-01_jprb,4.6020e-01_jprb,4.7687e-01_jprb/)
182 kao( :, 4, 6) = (/&
183 &3.1559e-01_jprb,3.3697e-01_jprb,3.5576e-01_jprb,3.7272e-01_jprb,3.8759e-01_jprb/)
184 kao( :, 5, 6) = (/&
185 &2.5260e-01_jprb,2.7101e-01_jprb,2.8744e-01_jprb,3.0238e-01_jprb,3.1591e-01_jprb/)
186 kao( :, 6, 6) = (/&
187 &2.0091e-01_jprb,2.1697e-01_jprb,2.3138e-01_jprb,2.4461e-01_jprb,2.5682e-01_jprb/)
188 kao( :, 7, 6) = (/&
189 &1.5940e-01_jprb,1.7343e-01_jprb,1.8618e-01_jprb,1.9790e-01_jprb,2.0866e-01_jprb/)
190 kao( :, 8, 6) = (/&
191 &1.2672e-01_jprb,1.3889e-01_jprb,1.5007e-01_jprb,1.6032e-01_jprb,1.6978e-01_jprb/)
192 kao( :, 9, 6) = (/&
193 &1.0353e-01_jprb,1.1398e-01_jprb,1.2372e-01_jprb,1.3277e-01_jprb,1.4111e-01_jprb/)
194 kao( :,10, 6) = (/&
195 &9.9695e-02_jprb,1.0872e-01_jprb,1.1790e-01_jprb,1.2674e-01_jprb,1.3501e-01_jprb/)
196 kao( :,11, 6) = (/&
197 &9.7426e-02_jprb,1.0472e-01_jprb,1.1248e-01_jprb,1.2011e-01_jprb,1.2749e-01_jprb/)
198 kao( :,12, 6) = (/&
199 &9.0482e-02_jprb,9.5993e-02_jprb,1.0239e-01_jprb,1.0916e-01_jprb,1.1593e-01_jprb/)
200 kao( :,13, 6) = (/&
201 &7.7446e-02_jprb,8.2236e-02_jprb,8.7832e-02_jprb,9.3763e-02_jprb,9.9783e-02_jprb/)
202 kao( :, 1, 7) = (/&
203 &1.4493e+00_jprb,1.5125e+00_jprb,1.5653e+00_jprb,1.6113e+00_jprb,1.6505e+00_jprb/)
204 kao( :, 2, 7) = (/&
205 &1.2048e+00_jprb,1.2601e+00_jprb,1.3081e+00_jprb,1.3501e+00_jprb,1.3864e+00_jprb/)
206 kao( :, 3, 7) = (/&
207 &9.7872e-01_jprb,1.0273e+00_jprb,1.0705e+00_jprb,1.1100e+00_jprb,1.1448e+00_jprb/)
208 kao( :, 4, 7) = (/&
209 &7.9188e-01_jprb,8.3582e-01_jprb,8.7697e-01_jprb,9.1358e-01_jprb,9.4568e-01_jprb/)
210 kao( :, 5, 7) = (/&
211 &6.4056e-01_jprb,6.8141e-01_jprb,7.1898e-01_jprb,7.5224e-01_jprb,7.8089e-01_jprb/)
212 kao( :, 6, 7) = (/&
213 &5.1630e-01_jprb,5.5324e-01_jprb,5.8683e-01_jprb,6.1659e-01_jprb,6.4131e-01_jprb/)
214 kao( :, 7, 7) = (/&
215 &4.1372e-01_jprb,4.4648e-01_jprb,4.7630e-01_jprb,5.0239e-01_jprb,5.2429e-01_jprb/)
216 kao( :, 8, 7) = (/&
217 &3.2974e-01_jprb,3.5852e-01_jprb,3.8490e-01_jprb,4.0778e-01_jprb,4.2741e-01_jprb/)
218 kao( :, 9, 7) = (/&
219 &2.6388e-01_jprb,2.8902e-01_jprb,3.1205e-01_jprb,3.3216e-01_jprb,3.4989e-01_jprb/)
220 kao( :,10, 7) = (/&
221 &2.2852e-01_jprb,2.5006e-01_jprb,2.6982e-01_jprb,2.8757e-01_jprb,3.0387e-01_jprb/)
222 kao( :,11, 7) = (/&
223 &2.0865e-01_jprb,2.2711e-01_jprb,2.4426e-01_jprb,2.6021e-01_jprb,2.7515e-01_jprb/)
224 kao( :,12, 7) = (/&
225 &1.8470e-01_jprb,2.0063e-01_jprb,2.1568e-01_jprb,2.2975e-01_jprb,2.4284e-01_jprb/)
226 kao( :,13, 7) = (/&
227 &1.5719e-01_jprb,1.7078e-01_jprb,1.8355e-01_jprb,1.9562e-01_jprb,2.0694e-01_jprb/)
228 kao( :, 1, 8) = (/&
229 &3.6048e+00_jprb,3.7864e+00_jprb,3.9572e+00_jprb,4.1208e+00_jprb,4.2621e+00_jprb/)
230 kao( :, 2, 8) = (/&
231 &3.2220e+00_jprb,3.3940e+00_jprb,3.5604e+00_jprb,3.7122e+00_jprb,3.8478e+00_jprb/)
232 kao( :, 3, 8) = (/&
233 &2.7870e+00_jprb,2.9546e+00_jprb,3.1086e+00_jprb,3.2475e+00_jprb,3.3673e+00_jprb/)
234 kao( :, 4, 8) = (/&
235 &2.3680e+00_jprb,2.5226e+00_jprb,2.6640e+00_jprb,2.7896e+00_jprb,2.9005e+00_jprb/)
236 kao( :, 5, 8) = (/&
237 &1.9804e+00_jprb,2.1208e+00_jprb,2.2489e+00_jprb,2.3642e+00_jprb,2.4671e+00_jprb/)
238 kao( :, 6, 8) = (/&
239 &1.6272e+00_jprb,1.7543e+00_jprb,1.8719e+00_jprb,1.9790e+00_jprb,2.0761e+00_jprb/)
240 kao( :, 7, 8) = (/&
241 &1.3207e+00_jprb,1.4367e+00_jprb,1.5433e+00_jprb,1.6406e+00_jprb,1.7283e+00_jprb/)
242 kao( :, 8, 8) = (/&
243 &1.0622e+00_jprb,1.1672e+00_jprb,1.2628e+00_jprb,1.3495e+00_jprb,1.4288e+00_jprb/)
244 kao( :, 9, 8) = (/&
245 &8.5006e-01_jprb,9.4334e-01_jprb,1.0274e+00_jprb,1.1050e+00_jprb,1.1774e+00_jprb/)
246 kao( :,10, 8) = (/&
247 &6.9534e-01_jprb,7.7588e-01_jprb,8.4968e-01_jprb,9.1816e-01_jprb,9.8186e-01_jprb/)
248 kao( :,11, 8) = (/&
249 &6.0417e-01_jprb,6.7126e-01_jprb,7.3436e-01_jprb,7.9325e-01_jprb,8.4784e-01_jprb/)
250 kao( :,12, 8) = (/&
251 &5.2502e-01_jprb,5.8268e-01_jprb,6.3773e-01_jprb,6.8892e-01_jprb,7.3666e-01_jprb/)
252 kao( :,13, 8) = (/&
253 &4.4795e-01_jprb,4.9759e-01_jprb,5.4478e-01_jprb,5.8860e-01_jprb,6.2907e-01_jprb/)
254 kao( :, 1, 9) = (/&
255 &1.0325e+01_jprb,1.0910e+01_jprb,1.1448e+01_jprb,1.1915e+01_jprb,1.2359e+01_jprb/)
256 kao( :, 2, 9) = (/&
257 &1.0216e+01_jprb,1.0824e+01_jprb,1.1398e+01_jprb,1.1919e+01_jprb,1.2397e+01_jprb/)
258 kao( :, 3, 9) = (/&
259 &9.7874e+00_jprb,1.0437e+01_jprb,1.1041e+01_jprb,1.1612e+01_jprb,1.2113e+01_jprb/)
260 kao( :, 4, 9) = (/&
261 &9.1882e+00_jprb,9.8563e+00_jprb,1.0485e+01_jprb,1.1057e+01_jprb,1.1572e+01_jprb/)
262 kao( :, 5, 9) = (/&
263 &8.4385e+00_jprb,9.1197e+00_jprb,9.7493e+00_jprb,1.0327e+01_jprb,1.0868e+01_jprb/)
264 kao( :, 6, 9) = (/&
265 &7.5691e+00_jprb,8.2477e+00_jprb,8.8854e+00_jprb,9.4650e+00_jprb,9.9983e+00_jprb/)
266 kao( :, 7, 9) = (/&
267 &6.6646e+00_jprb,7.3353e+00_jprb,7.9606e+00_jprb,8.5227e+00_jprb,9.0234e+00_jprb/)
268 kao( :, 8, 9) = (/&
269 &5.7671e+00_jprb,6.4061e+00_jprb,6.9962e+00_jprb,7.5311e+00_jprb,8.0050e+00_jprb/)
270 kao( :, 9, 9) = (/&
271 &4.9062e+00_jprb,5.4976e+00_jprb,6.0386e+00_jprb,6.5346e+00_jprb,6.9797e+00_jprb/)
272 kao( :,10, 9) = (/&
273 &4.1414e+00_jprb,4.6741e+00_jprb,5.1658e+00_jprb,5.6197e+00_jprb,6.0353e+00_jprb/)
274 kao( :,11, 9) = (/&
275 &3.6507e+00_jprb,4.1155e+00_jprb,4.5422e+00_jprb,4.9433e+00_jprb,5.3072e+00_jprb/)
276 kao( :,12, 9) = (/&
277 &3.1807e+00_jprb,3.5811e+00_jprb,3.9600e+00_jprb,4.3005e+00_jprb,4.6110e+00_jprb/)
278 kao( :,13, 9) = (/&
279 &2.7426e+00_jprb,3.0911e+00_jprb,3.4116e+00_jprb,3.6974e+00_jprb,3.9613e+00_jprb/)
280 kao( :, 1,10) = (/&
281 &1.9502e+01_jprb,2.0541e+01_jprb,2.1654e+01_jprb,2.2558e+01_jprb,2.3382e+01_jprb/)
282 kao( :, 2,10) = (/&
283 &2.0339e+01_jprb,2.1542e+01_jprb,2.2723e+01_jprb,2.3677e+01_jprb,2.4384e+01_jprb/)
284 kao( :, 3,10) = (/&
285 &2.0653e+01_jprb,2.1896e+01_jprb,2.3069e+01_jprb,2.4110e+01_jprb,2.5101e+01_jprb/)
286 kao( :, 4,10) = (/&
287 &2.0148e+01_jprb,2.1653e+01_jprb,2.3150e+01_jprb,2.4435e+01_jprb,2.5600e+01_jprb/)
288 kao( :, 5,10) = (/&
289 &1.9857e+01_jprb,2.1600e+01_jprb,2.3190e+01_jprb,2.4486e+01_jprb,2.5655e+01_jprb/)
290 kao( :, 6,10) = (/&
291 &1.9401e+01_jprb,2.1152e+01_jprb,2.2655e+01_jprb,2.3968e+01_jprb,2.5347e+01_jprb/)
292 kao( :, 7,10) = (/&
293 &1.8259e+01_jprb,1.9961e+01_jprb,2.1523e+01_jprb,2.3098e+01_jprb,2.4731e+01_jprb/)
294 kao( :, 8,10) = (/&
295 &1.6748e+01_jprb,1.8504e+01_jprb,2.0269e+01_jprb,2.2106e+01_jprb,2.3862e+01_jprb/)
296 kao( :, 9,10) = (/&
297 &1.5105e+01_jprb,1.7003e+01_jprb,1.8953e+01_jprb,2.0882e+01_jprb,2.2601e+01_jprb/)
298 kao( :,10,10) = (/&
299 &1.3610e+01_jprb,1.5598e+01_jprb,1.7574e+01_jprb,1.9412e+01_jprb,2.0955e+01_jprb/)
300 kao( :,11,10) = (/&
301 &1.3112e+01_jprb,1.5038e+01_jprb,1.6757e+01_jprb,1.8284e+01_jprb,1.9636e+01_jprb/)
302 kao( :,12,10) = (/&
303 &1.2298e+01_jprb,1.3933e+01_jprb,1.5418e+01_jprb,1.6787e+01_jprb,1.8202e+01_jprb/)
304 kao( :,13,10) = (/&
305 &1.1121e+01_jprb,1.2535e+01_jprb,1.3895e+01_jprb,1.5262e+01_jprb,1.6521e+01_jprb/)
306 kao( :, 1,11) = (/&
307 &2.3585e+01_jprb,2.4605e+01_jprb,2.5501e+01_jprb,2.6482e+01_jprb,2.7552e+01_jprb/)
308 kao( :, 2,11) = (/&
309 &2.5370e+01_jprb,2.6451e+01_jprb,2.7573e+01_jprb,2.8778e+01_jprb,2.9736e+01_jprb/)
310 kao( :, 3,11) = (/&
311 &2.6353e+01_jprb,2.7678e+01_jprb,2.9066e+01_jprb,3.0456e+01_jprb,3.1588e+01_jprb/)
312 kao( :, 4,11) = (/&
313 &2.6933e+01_jprb,2.8519e+01_jprb,3.0105e+01_jprb,3.1590e+01_jprb,3.2868e+01_jprb/)
314 kao( :, 5,11) = (/&
315 &2.6708e+01_jprb,2.8629e+01_jprb,3.0424e+01_jprb,3.2298e+01_jprb,3.3849e+01_jprb/)
316 kao( :, 6,11) = (/&
317 &2.5912e+01_jprb,2.8223e+01_jprb,3.0549e+01_jprb,3.2673e+01_jprb,3.4542e+01_jprb/)
318 kao( :, 7,11) = (/&
319 &2.5158e+01_jprb,2.7915e+01_jprb,3.0571e+01_jprb,3.2861e+01_jprb,3.4743e+01_jprb/)
320 kao( :, 8,11) = (/&
321 &2.4390e+01_jprb,2.7375e+01_jprb,3.0000e+01_jprb,3.2144e+01_jprb,3.4135e+01_jprb/)
322 kao( :, 9,11) = (/&
323 &2.3045e+01_jprb,2.5927e+01_jprb,2.8454e+01_jprb,3.0669e+01_jprb,3.2987e+01_jprb/)
324 kao( :,10,11) = (/&
325 &2.1314e+01_jprb,2.4114e+01_jprb,2.6618e+01_jprb,2.9130e+01_jprb,3.1810e+01_jprb/)
326 kao( :,11,11) = (/&
327 &2.0509e+01_jprb,2.3271e+01_jprb,2.6048e+01_jprb,2.8884e+01_jprb,3.1559e+01_jprb/)
328 kao( :,12,11) = (/&
329 &1.9750e+01_jprb,2.2592e+01_jprb,2.5456e+01_jprb,2.8124e+01_jprb,3.0408e+01_jprb/)
330 kao( :,13,11) = (/&
331 &1.8985e+01_jprb,2.1757e+01_jprb,2.4278e+01_jprb,2.6507e+01_jprb,2.8545e+01_jprb/)
332 kao( :, 1,12) = (/&
333 &2.7620e+01_jprb,2.9109e+01_jprb,3.0583e+01_jprb,3.1779e+01_jprb,3.2904e+01_jprb/)
334 kao( :, 2,12) = (/&
335 &3.0792e+01_jprb,3.2479e+01_jprb,3.3920e+01_jprb,3.5408e+01_jprb,3.6645e+01_jprb/)
336 kao( :, 3,12) = (/&
337 &3.3732e+01_jprb,3.5632e+01_jprb,3.7155e+01_jprb,3.8664e+01_jprb,4.0176e+01_jprb/)
338 kao( :, 4,12) = (/&
339 &3.6062e+01_jprb,3.8172e+01_jprb,3.9899e+01_jprb,4.1650e+01_jprb,4.3354e+01_jprb/)
340 kao( :, 5,12) = (/&
341 &3.7489e+01_jprb,3.9900e+01_jprb,4.2014e+01_jprb,4.4198e+01_jprb,4.6166e+01_jprb/)
342 kao( :, 6,12) = (/&
343 &3.8225e+01_jprb,4.1024e+01_jprb,4.3423e+01_jprb,4.5937e+01_jprb,4.7978e+01_jprb/)
344 kao( :, 7,12) = (/&
345 &3.8206e+01_jprb,4.1095e+01_jprb,4.3824e+01_jprb,4.6668e+01_jprb,4.9398e+01_jprb/)
346 kao( :, 8,12) = (/&
347 &3.6912e+01_jprb,4.0130e+01_jprb,4.3546e+01_jprb,4.7024e+01_jprb,5.0224e+01_jprb/)
348 kao( :, 9,12) = (/&
349 &3.5011e+01_jprb,3.8952e+01_jprb,4.3085e+01_jprb,4.6961e+01_jprb,5.0773e+01_jprb/)
350 kao( :,10,12) = (/&
351 &3.3435e+01_jprb,3.8068e+01_jprb,4.2569e+01_jprb,4.6931e+01_jprb,5.0777e+01_jprb/)
352 kao( :,11,12) = (/&
353 &3.4126e+01_jprb,3.9013e+01_jprb,4.3484e+01_jprb,4.7491e+01_jprb,5.1057e+01_jprb/)
354 kao( :,12,12) = (/&
355 &3.4318e+01_jprb,3.8949e+01_jprb,4.3070e+01_jprb,4.6988e+01_jprb,5.0849e+01_jprb/)
356 kao( :,13,12) = (/&
357 &3.3457e+01_jprb,3.7874e+01_jprb,4.2090e+01_jprb,4.6382e+01_jprb,5.0526e+01_jprb/)
358 kao( :, 1,13) = (/&
359 &3.2081e+01_jprb,3.3951e+01_jprb,3.5976e+01_jprb,3.7442e+01_jprb,3.9187e+01_jprb/)
360 kao( :, 2,13) = (/&
361 &3.6410e+01_jprb,3.8639e+01_jprb,4.0837e+01_jprb,4.2715e+01_jprb,4.4604e+01_jprb/)
362 kao( :, 3,13) = (/&
363 &4.1117e+01_jprb,4.3836e+01_jprb,4.6286e+01_jprb,4.8485e+01_jprb,5.0635e+01_jprb/)
364 kao( :, 4,13) = (/&
365 &4.5894e+01_jprb,4.8808e+01_jprb,5.1561e+01_jprb,5.4122e+01_jprb,5.6665e+01_jprb/)
366 kao( :, 5,13) = (/&
367 &5.0469e+01_jprb,5.3828e+01_jprb,5.7025e+01_jprb,5.9732e+01_jprb,6.2393e+01_jprb/)
368 kao( :, 6,13) = (/&
369 &5.4490e+01_jprb,5.8263e+01_jprb,6.1693e+01_jprb,6.4893e+01_jprb,6.8000e+01_jprb/)
370 kao( :, 7,13) = (/&
371 &5.7509e+01_jprb,6.1997e+01_jprb,6.5932e+01_jprb,6.9593e+01_jprb,7.3010e+01_jprb/)
372 kao( :, 8,13) = (/&
373 &5.9554e+01_jprb,6.4679e+01_jprb,6.9084e+01_jprb,7.3440e+01_jprb,7.7536e+01_jprb/)
374 kao( :, 9,13) = (/&
375 &6.0329e+01_jprb,6.5898e+01_jprb,7.0895e+01_jprb,7.5993e+01_jprb,8.0372e+01_jprb/)
376 kao( :,10,13) = (/&
377 &6.0280e+01_jprb,6.6133e+01_jprb,7.1850e+01_jprb,7.7277e+01_jprb,8.2310e+01_jprb/)
378 kao( :,11,13) = (/&
379 &6.1417e+01_jprb,6.8046e+01_jprb,7.4182e+01_jprb,8.0392e+01_jprb,8.6582e+01_jprb/)
380 kao( :,12,13) = (/&
381 &6.2068e+01_jprb,6.9536e+01_jprb,7.6455e+01_jprb,8.3609e+01_jprb,9.0395e+01_jprb/)
382 kao( :,13,13) = (/&
383 &6.2814e+01_jprb,7.0863e+01_jprb,7.8689e+01_jprb,8.6158e+01_jprb,9.3125e+01_jprb/)
384 kao( :, 1,14) = (/&
385 &4.1518e+01_jprb,4.3146e+01_jprb,4.5346e+01_jprb,4.6853e+01_jprb,4.8598e+01_jprb/)
386 kao( :, 2,14) = (/&
387 &4.6781e+01_jprb,4.8970e+01_jprb,5.1880e+01_jprb,5.4105e+01_jprb,5.6522e+01_jprb/)
388 kao( :, 3,14) = (/&
389 &5.1825e+01_jprb,5.5318e+01_jprb,5.8975e+01_jprb,6.1521e+01_jprb,6.4785e+01_jprb/)
390 kao( :, 4,14) = (/&
391 &5.7018e+01_jprb,6.1165e+01_jprb,6.5581e+01_jprb,6.9138e+01_jprb,7.3301e+01_jprb/)
392 kao( :, 5,14) = (/&
393 &6.2559e+01_jprb,6.7532e+01_jprb,7.2921e+01_jprb,7.7434e+01_jprb,8.2255e+01_jprb/)
394 kao( :, 6,14) = (/&
395 &6.8405e+01_jprb,7.4630e+01_jprb,8.0801e+01_jprb,8.6601e+01_jprb,9.2153e+01_jprb/)
396 kao( :, 7,14) = (/&
397 &7.4932e+01_jprb,8.2383e+01_jprb,8.9625e+01_jprb,9.6790e+01_jprb,1.0268e+02_jprb/)
398 kao( :, 8,14) = (/&
399 &8.2763e+01_jprb,9.1560e+01_jprb,9.9722e+01_jprb,1.0772e+02_jprb,1.1418e+02_jprb/)
400 kao( :, 9,14) = (/&
401 &9.0637e+01_jprb,1.0061e+02_jprb,1.1013e+02_jprb,1.1911e+02_jprb,1.2622e+02_jprb/)
402 kao( :,10,14) = (/&
403 &9.8104e+01_jprb,1.0968e+02_jprb,1.2088e+02_jprb,1.3085e+02_jprb,1.3916e+02_jprb/)
404 kao( :,11,14) = (/&
405 &1.1038e+02_jprb,1.2405e+02_jprb,1.3571e+02_jprb,1.4612e+02_jprb,1.5567e+02_jprb/)
406 kao( :,12,14) = (/&
407 &1.2285e+02_jprb,1.3772e+02_jprb,1.4999e+02_jprb,1.6146e+02_jprb,1.7128e+02_jprb/)
408 kao( :,13,14) = (/&
409 &1.3421e+02_jprb,1.4967e+02_jprb,1.6247e+02_jprb,1.7507e+02_jprb,1.8543e+02_jprb/)
410 kao( :, 1,15) = (/&
411 &5.1285e+01_jprb,5.3369e+01_jprb,5.5201e+01_jprb,5.6834e+01_jprb,5.8171e+01_jprb/)
412 kao( :, 2,15) = (/&
413 &6.1486e+01_jprb,6.4224e+01_jprb,6.6483e+01_jprb,6.8385e+01_jprb,7.0263e+01_jprb/)
414 kao( :, 3,15) = (/&
415 &7.2996e+01_jprb,7.6763e+01_jprb,7.9527e+01_jprb,8.1282e+01_jprb,8.3483e+01_jprb/)
416 kao( :, 4,15) = (/&
417 &8.5243e+01_jprb,8.9543e+01_jprb,9.2811e+01_jprb,9.4927e+01_jprb,9.7733e+01_jprb/)
418 kao( :, 5,15) = (/&
419 &9.7960e+01_jprb,1.0251e+02_jprb,1.0689e+02_jprb,1.0988e+02_jprb,1.1399e+02_jprb/)
420 kao( :, 6,15) = (/&
421 &1.1053e+02_jprb,1.1600e+02_jprb,1.1928e+02_jprb,1.2539e+02_jprb,1.3116e+02_jprb/)
422 kao( :, 7,15) = (/&
423 &1.1978e+02_jprb,1.2735e+02_jprb,1.3342e+02_jprb,1.4289e+02_jprb,1.4830e+02_jprb/)
424 kao( :, 8,15) = (/&
425 &1.3066e+02_jprb,1.3994e+02_jprb,1.4782e+02_jprb,1.6007e+02_jprb,1.6737e+02_jprb/)
426 kao( :, 9,15) = (/&
427 &1.4352e+02_jprb,1.5439e+02_jprb,1.6271e+02_jprb,1.7712e+02_jprb,1.8796e+02_jprb/)
428 kao( :,10,15) = (/&
429 &1.5667e+02_jprb,1.6982e+02_jprb,1.8206e+02_jprb,1.9739e+02_jprb,2.1049e+02_jprb/)
430 kao( :,11,15) = (/&
431 &1.7812e+02_jprb,1.9349e+02_jprb,2.0867e+02_jprb,2.2613e+02_jprb,2.4362e+02_jprb/)
432 kao( :,12,15) = (/&
433 &2.0254e+02_jprb,2.2124e+02_jprb,2.3990e+02_jprb,2.6100e+02_jprb,2.8038e+02_jprb/)
434 kao( :,13,15) = (/&
435 &2.3108e+02_jprb,2.5315e+02_jprb,2.7665e+02_jprb,3.0075e+02_jprb,3.2274e+02_jprb/)
436 kao( :, 1,16) = (/&
437 &5.2777e+01_jprb,5.4993e+01_jprb,5.6841e+01_jprb,5.8609e+01_jprb,6.0050e+01_jprb/)
438 kao( :, 2,16) = (/&
439 &6.3981e+01_jprb,6.6669e+01_jprb,6.9358e+01_jprb,7.1554e+01_jprb,7.3336e+01_jprb/)
440 kao( :, 3,16) = (/&
441 &7.7059e+01_jprb,8.0904e+01_jprb,8.4188e+01_jprb,8.7082e+01_jprb,8.9526e+01_jprb/)
442 kao( :, 4,16) = (/&
443 &9.1463e+01_jprb,9.6542e+01_jprb,1.0088e+02_jprb,1.0476e+02_jprb,1.0800e+02_jprb/)
444 kao( :, 5,16) = (/&
445 &1.0757e+02_jprb,1.1414e+02_jprb,1.1997e+02_jprb,1.2530e+02_jprb,1.2942e+02_jprb/)
446 kao( :, 6,16) = (/&
447 &1.2556e+02_jprb,1.3416e+02_jprb,1.4146e+02_jprb,1.4899e+02_jprb,1.5433e+02_jprb/)
448 kao( :, 7,16) = (/&
449 &1.4547e+02_jprb,1.5695e+02_jprb,1.6648e+02_jprb,1.7621e+02_jprb,1.8397e+02_jprb/)
450 kao( :, 8,16) = (/&
451 &1.6809e+02_jprb,1.8302e+02_jprb,1.9611e+02_jprb,2.0827e+02_jprb,2.1845e+02_jprb/)
452 kao( :, 9,16) = (/&
453 &1.9340e+02_jprb,2.1273e+02_jprb,2.2936e+02_jprb,2.4529e+02_jprb,2.5864e+02_jprb/)
454 kao( :,10,16) = (/&
455 &2.2291e+02_jprb,2.4754e+02_jprb,2.6870e+02_jprb,2.8931e+02_jprb,3.0639e+02_jprb/)
456 kao( :,11,16) = (/&
457 &2.7009e+02_jprb,2.9993e+02_jprb,3.2506e+02_jprb,3.4949e+02_jprb,3.6996e+02_jprb/)
458 kao( :,12,16) = (/&
459 &3.2630e+02_jprb,3.6087e+02_jprb,3.9287e+02_jprb,4.2005e+02_jprb,4.4424e+02_jprb/)
460 kao( :,13,16) = (/&
461 &3.9266e+02_jprb,4.3453e+02_jprb,4.7167e+02_jprb,5.0330e+02_jprb,5.3095e+02_jprb/)
462 
463 ! The array KBO contains absorption coefs at the 16 chosen g-values
464 ! for a range of pressure levels < ~100mb and temperatures. The first
465 ! index in the array, JT, which runs from 1 to 5, corresponds to
466 ! different temperatures. More specifically, JT = 3 means that the
467 ! data are for the reference temperature TREF for this pressure
468 ! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
469 ! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.
470 ! The second index, JP, runs from 13 to 59 and refers to the JPth
471 ! reference pressure level (see taumol.f for the value of these
472 ! pressure levels in mb). The third index, IG, goes from 1 to 16,
473 ! and tells us which g-interval the absorption coefficients are for.
474 
475 kbo( :,13, 1) = (/&
476 &4.0127e-03_jprb,4.4687e-03_jprb,4.9253e-03_jprb,5.3836e-03_jprb,5.8217e-03_jprb/)
477 kbo( :,14, 1) = (/&
478 &3.3542e-03_jprb,3.7289e-03_jprb,4.1053e-03_jprb,4.4790e-03_jprb,4.8344e-03_jprb/)
479 kbo( :,15, 1) = (/&
480 &2.7756e-03_jprb,3.0771e-03_jprb,3.3799e-03_jprb,3.6798e-03_jprb,3.9637e-03_jprb/)
481 kbo( :,16, 1) = (/&
482 &2.2794e-03_jprb,2.5195e-03_jprb,2.7599e-03_jprb,2.9987e-03_jprb,3.2238e-03_jprb/)
483 kbo( :,17, 1) = (/&
484 &1.8616e-03_jprb,2.0514e-03_jprb,2.2420e-03_jprb,2.4313e-03_jprb,2.6094e-03_jprb/)
485 kbo( :,18, 1) = (/&
486 &1.5125e-03_jprb,1.6613e-03_jprb,1.8116e-03_jprb,1.9607e-03_jprb,2.1007e-03_jprb/)
487 kbo( :,19, 1) = (/&
488 &1.2313e-03_jprb,1.3491e-03_jprb,1.4681e-03_jprb,1.5860e-03_jprb,1.6968e-03_jprb/)
489 kbo( :,20, 1) = (/&
490 &1.0110e-03_jprb,1.1056e-03_jprb,1.2012e-03_jprb,1.2955e-03_jprb,1.3844e-03_jprb/)
491 kbo( :,21, 1) = (/&
492 &8.3158e-04_jprb,9.0796e-04_jprb,9.8512e-04_jprb,1.0609e-03_jprb,1.1323e-03_jprb/)
493 kbo( :,22, 1) = (/&
494 &6.8798e-04_jprb,7.4987e-04_jprb,8.1214e-04_jprb,8.7287e-04_jprb,9.3028e-04_jprb/)
495 kbo( :,23, 1) = (/&
496 &5.6933e-04_jprb,6.1950e-04_jprb,6.6971e-04_jprb,7.1844e-04_jprb,7.6466e-04_jprb/)
497 kbo( :,24, 1) = (/&
498 &4.7205e-04_jprb,5.1270e-04_jprb,5.5326e-04_jprb,5.9246e-04_jprb,6.2965e-04_jprb/)
499 kbo( :,25, 1) = (/&
500 &3.9177e-04_jprb,4.2473e-04_jprb,4.5751e-04_jprb,4.8901e-04_jprb,5.1899e-04_jprb/)
501 kbo( :,26, 1) = (/&
502 &3.2582e-04_jprb,3.5264e-04_jprb,3.7910e-04_jprb,4.0446e-04_jprb,4.2868e-04_jprb/)
503 kbo( :,27, 1) = (/&
504 &2.7103e-04_jprb,2.9280e-04_jprb,3.1418e-04_jprb,3.3460e-04_jprb,3.5420e-04_jprb/)
505 kbo( :,28, 1) = (/&
506 &2.2547e-04_jprb,2.4309e-04_jprb,2.6039e-04_jprb,2.7684e-04_jprb,2.9269e-04_jprb/)
507 kbo( :,29, 1) = (/&
508 &1.8743e-04_jprb,2.0170e-04_jprb,2.1564e-04_jprb,2.2888e-04_jprb,2.4168e-04_jprb/)
509 kbo( :,30, 1) = (/&
510 &1.5564e-04_jprb,1.6721e-04_jprb,1.7844e-04_jprb,1.8907e-04_jprb,1.9939e-04_jprb/)
511 kbo( :,31, 1) = (/&
512 &1.2905e-04_jprb,1.3840e-04_jprb,1.4740e-04_jprb,1.5595e-04_jprb,1.6423e-04_jprb/)
513 kbo( :,32, 1) = (/&
514 &1.0702e-04_jprb,1.1456e-04_jprb,1.2177e-04_jprb,1.2865e-04_jprb,1.3529e-04_jprb/)
515 kbo( :,33, 1) = (/&
516 &8.8739e-05_jprb,9.4805e-05_jprb,1.0060e-04_jprb,1.0612e-04_jprb,1.1146e-04_jprb/)
517 kbo( :,34, 1) = (/&
518 &7.3484e-05_jprb,7.8377e-05_jprb,8.3031e-05_jprb,8.7477e-05_jprb,9.1774e-05_jprb/)
519 kbo( :,35, 1) = (/&
520 &6.0456e-05_jprb,6.4420e-05_jprb,6.8176e-05_jprb,7.1769e-05_jprb,7.5241e-05_jprb/)
521 kbo( :,36, 1) = (/&
522 &4.9390e-05_jprb,5.2616e-05_jprb,5.5665e-05_jprb,5.8580e-05_jprb,6.1393e-05_jprb/)
523 kbo( :,37, 1) = (/&
524 &4.0090e-05_jprb,4.2739e-05_jprb,4.5249e-05_jprb,4.7640e-05_jprb,4.9946e-05_jprb/)
525 kbo( :,38, 1) = (/&
526 &3.2525e-05_jprb,3.4701e-05_jprb,3.6769e-05_jprb,3.8731e-05_jprb,4.0622e-05_jprb/)
527 kbo( :,39, 1) = (/&
528 &2.6387e-05_jprb,2.8171e-05_jprb,2.9873e-05_jprb,3.1484e-05_jprb,3.3034e-05_jprb/)
529 kbo( :,40, 1) = (/&
530 &2.1316e-05_jprb,2.2785e-05_jprb,2.4198e-05_jprb,2.5534e-05_jprb,2.6814e-05_jprb/)
531 kbo( :,41, 1) = (/&
532 &1.7206e-05_jprb,1.8415e-05_jprb,1.9590e-05_jprb,2.0699e-05_jprb,2.1759e-05_jprb/)
533 kbo( :,42, 1) = (/&
534 &1.3884e-05_jprb,1.4880e-05_jprb,1.5854e-05_jprb,1.6776e-05_jprb,1.7653e-05_jprb/)
535 kbo( :,43, 1) = (/&
536 &1.1169e-05_jprb,1.1994e-05_jprb,1.2804e-05_jprb,1.3575e-05_jprb,1.4303e-05_jprb/)
537 kbo( :,44, 1) = (/&
538 &8.9694e-06_jprb,9.6558e-06_jprb,1.0326e-05_jprb,1.0973e-05_jprb,1.1582e-05_jprb/)
539 kbo( :,45, 1) = (/&
540 &7.1970e-06_jprb,7.7692e-06_jprb,8.3256e-06_jprb,8.8667e-06_jprb,9.3774e-06_jprb/)
541 kbo( :,46, 1) = (/&
542 &5.7603e-06_jprb,6.2374e-06_jprb,6.7026e-06_jprb,7.1541e-06_jprb,7.5833e-06_jprb/)
543 kbo( :,47, 1) = (/&
544 &4.5904e-06_jprb,4.9886e-06_jprb,5.3792e-06_jprb,5.7558e-06_jprb,6.1172e-06_jprb/)
545 kbo( :,48, 1) = (/&
546 &3.6534e-06_jprb,3.9855e-06_jprb,4.3124e-06_jprb,4.6286e-06_jprb,4.9326e-06_jprb/)
547 kbo( :,49, 1) = (/&
548 &2.9034e-06_jprb,3.1805e-06_jprb,3.4538e-06_jprb,3.7207e-06_jprb,3.9759e-06_jprb/)
549 kbo( :,50, 1) = (/&
550 &2.3065e-06_jprb,2.5402e-06_jprb,2.7688e-06_jprb,2.9931e-06_jprb,3.2082e-06_jprb/)
551 kbo( :,51, 1) = (/&
552 &1.8310e-06_jprb,2.0285e-06_jprb,2.2198e-06_jprb,2.4080e-06_jprb,2.5898e-06_jprb/)
553 kbo( :,52, 1) = (/&
554 &1.4543e-06_jprb,1.6160e-06_jprb,1.7779e-06_jprb,1.9362e-06_jprb,2.0898e-06_jprb/)
555 kbo( :,53, 1) = (/&
556 &1.1560e-06_jprb,1.2848e-06_jprb,1.4229e-06_jprb,1.5555e-06_jprb,1.6854e-06_jprb/)
557 kbo( :,54, 1) = (/&
558 &9.2302e-07_jprb,1.0251e-06_jprb,1.1393e-06_jprb,1.2519e-06_jprb,1.3618e-06_jprb/)
559 kbo( :,55, 1) = (/&
560 &7.3926e-07_jprb,8.1986e-07_jprb,9.1193e-07_jprb,1.0087e-06_jprb,1.1013e-06_jprb/)
561 kbo( :,56, 1) = (/&
562 &5.9333e-07_jprb,6.5666e-07_jprb,7.3046e-07_jprb,8.1142e-07_jprb,8.9049e-07_jprb/)
563 kbo( :,57, 1) = (/&
564 &4.7736e-07_jprb,5.2694e-07_jprb,5.8578e-07_jprb,6.5161e-07_jprb,7.2007e-07_jprb/)
565 kbo( :,58, 1) = (/&
566 &3.8567e-07_jprb,4.2438e-07_jprb,4.7128e-07_jprb,5.2459e-07_jprb,5.8203e-07_jprb/)
567 kbo( :,59, 1) = (/&
568 &3.1642e-07_jprb,3.4778e-07_jprb,3.8612e-07_jprb,4.2992e-07_jprb,4.7734e-07_jprb/)
569 kbo( :,13, 2) = (/&
570 &1.2160e-02_jprb,1.3438e-02_jprb,1.4645e-02_jprb,1.5727e-02_jprb,1.6711e-02_jprb/)
571 kbo( :,14, 2) = (/&
572 &1.0225e-02_jprb,1.1288e-02_jprb,1.2265e-02_jprb,1.3154e-02_jprb,1.3956e-02_jprb/)
573 kbo( :,15, 2) = (/&
574 &8.4456e-03_jprb,9.2918e-03_jprb,1.0065e-02_jprb,1.0768e-02_jprb,1.1393e-02_jprb/)
575 kbo( :,16, 2) = (/&
576 &6.8924e-03_jprb,7.5463e-03_jprb,8.1481e-03_jprb,8.6924e-03_jprb,9.1710e-03_jprb/)
577 kbo( :,17, 2) = (/&
578 &5.5778e-03_jprb,6.0832e-03_jprb,6.5471e-03_jprb,6.9629e-03_jprb,7.3305e-03_jprb/)
579 kbo( :,18, 2) = (/&
580 &4.4688e-03_jprb,4.8540e-03_jprb,5.2070e-03_jprb,5.5215e-03_jprb,5.8036e-03_jprb/)
581 kbo( :,19, 2) = (/&
582 &3.5967e-03_jprb,3.8949e-03_jprb,4.1669e-03_jprb,4.4096e-03_jprb,4.6280e-03_jprb/)
583 kbo( :,20, 2) = (/&
584 &2.9298e-03_jprb,3.1646e-03_jprb,3.3779e-03_jprb,3.5694e-03_jprb,3.7401e-03_jprb/)
585 kbo( :,21, 2) = (/&
586 &2.3932e-03_jprb,2.5790e-03_jprb,2.7477e-03_jprb,2.8993e-03_jprb,3.0338e-03_jprb/)
587 kbo( :,22, 2) = (/&
588 &1.9643e-03_jprb,2.1105e-03_jprb,2.2434e-03_jprb,2.3626e-03_jprb,2.4679e-03_jprb/)
589 kbo( :,23, 2) = (/&
590 &1.6125e-03_jprb,1.7277e-03_jprb,1.8326e-03_jprb,1.9262e-03_jprb,2.0085e-03_jprb/)
591 kbo( :,24, 2) = (/&
592 &1.3282e-03_jprb,1.4199e-03_jprb,1.5028e-03_jprb,1.5765e-03_jprb,1.6410e-03_jprb/)
593 kbo( :,25, 2) = (/&
594 &1.0951e-03_jprb,1.1683e-03_jprb,1.2337e-03_jprb,1.2916e-03_jprb,1.3424e-03_jprb/)
595 kbo( :,26, 2) = (/&
596 &9.0567e-04_jprb,9.6375e-04_jprb,1.0153e-03_jprb,1.0609e-03_jprb,1.1006e-03_jprb/)
597 kbo( :,27, 2) = (/&
598 &7.4971e-04_jprb,7.9563e-04_jprb,8.3627e-04_jprb,8.7231e-04_jprb,9.0333e-04_jprb/)
599 kbo( :,28, 2) = (/&
600 &6.2083e-04_jprb,6.5706e-04_jprb,6.8919e-04_jprb,7.1762e-04_jprb,7.4183e-04_jprb/)
601 kbo( :,29, 2) = (/&
602 &5.1283e-04_jprb,5.4134e-04_jprb,5.6668e-04_jprb,5.8892e-04_jprb,6.0775e-04_jprb/)
603 kbo( :,30, 2) = (/&
604 &4.2274e-04_jprb,4.4513e-04_jprb,4.6510e-04_jprb,4.8244e-04_jprb,4.9704e-04_jprb/)
605 kbo( :,31, 2) = (/&
606 &3.4700e-04_jprb,3.6458e-04_jprb,3.8019e-04_jprb,3.9360e-04_jprb,4.0492e-04_jprb/)
607 kbo( :,32, 2) = (/&
608 &2.8510e-04_jprb,2.9895e-04_jprb,3.1110e-04_jprb,3.2149e-04_jprb,3.3026e-04_jprb/)
609 kbo( :,33, 2) = (/&
610 &2.3440e-04_jprb,2.4528e-04_jprb,2.5470e-04_jprb,2.6280e-04_jprb,2.6955e-04_jprb/)
611 kbo( :,34, 2) = (/&
612 &1.9316e-04_jprb,2.0175e-04_jprb,2.0916e-04_jprb,2.1548e-04_jprb,2.2075e-04_jprb/)
613 kbo( :,35, 2) = (/&
614 &1.5858e-04_jprb,1.6542e-04_jprb,1.7135e-04_jprb,1.7637e-04_jprb,1.8056e-04_jprb/)
615 kbo( :,36, 2) = (/&
616 &1.2966e-04_jprb,1.3522e-04_jprb,1.4003e-04_jprb,1.4410e-04_jprb,1.4751e-04_jprb/)
617 kbo( :,37, 2) = (/&
618 &1.0583e-04_jprb,1.1047e-04_jprb,1.1450e-04_jprb,1.1791e-04_jprb,1.2077e-04_jprb/)
619 kbo( :,38, 2) = (/&
620 &8.6354e-05_jprb,9.0236e-05_jprb,9.3617e-05_jprb,9.6482e-05_jprb,9.8878e-05_jprb/)
621 kbo( :,39, 2) = (/&
622 &7.0455e-05_jprb,7.3698e-05_jprb,7.6539e-05_jprb,7.8943e-05_jprb,8.0950e-05_jprb/)
623 kbo( :,40, 2) = (/&
624 &5.7475e-05_jprb,6.0235e-05_jprb,6.2673e-05_jprb,6.4741e-05_jprb,6.6460e-05_jprb/)
625 kbo( :,41, 2) = (/&
626 &4.6872e-05_jprb,4.9225e-05_jprb,5.1315e-05_jprb,5.3102e-05_jprb,5.4585e-05_jprb/)
627 kbo( :,42, 2) = (/&
628 &3.8212e-05_jprb,4.0216e-05_jprb,4.1999e-05_jprb,4.3546e-05_jprb,4.4830e-05_jprb/)
629 kbo( :,43, 2) = (/&
630 &3.1158e-05_jprb,3.2889e-05_jprb,3.4429e-05_jprb,3.5779e-05_jprb,3.6907e-05_jprb/)
631 kbo( :,44, 2) = (/&
632 &2.5395e-05_jprb,2.6902e-05_jprb,2.8242e-05_jprb,2.9418e-05_jprb,3.0418e-05_jprb/)
633 kbo( :,45, 2) = (/&
634 &2.0690e-05_jprb,2.1996e-05_jprb,2.3163e-05_jprb,2.4189e-05_jprb,2.5065e-05_jprb/)
635 kbo( :,46, 2) = (/&
636 &1.6831e-05_jprb,1.7958e-05_jprb,1.8979e-05_jprb,1.9882e-05_jprb,2.0651e-05_jprb/)
637 kbo( :,47, 2) = (/&
638 &1.3652e-05_jprb,1.4627e-05_jprb,1.5521e-05_jprb,1.6321e-05_jprb,1.7007e-05_jprb/)
639 kbo( :,48, 2) = (/&
640 &1.1060e-05_jprb,1.1904e-05_jprb,1.2686e-05_jprb,1.3393e-05_jprb,1.4006e-05_jprb/)
641 kbo( :,49, 2) = (/&
642 &8.9492e-06_jprb,9.6804e-06_jprb,1.0363e-05_jprb,1.0983e-05_jprb,1.1533e-05_jprb/)
643 kbo( :,50, 2) = (/&
644 &7.2405e-06_jprb,7.8785e-06_jprb,8.4705e-06_jprb,9.0129e-06_jprb,9.5008e-06_jprb/)
645 kbo( :,51, 2) = (/&
646 &5.8460e-06_jprb,6.4101e-06_jprb,6.9248e-06_jprb,7.3984e-06_jprb,7.8284e-06_jprb/)
647 kbo( :,52, 2) = (/&
648 &4.6997e-06_jprb,5.2070e-06_jprb,5.6596e-06_jprb,6.0736e-06_jprb,6.4507e-06_jprb/)
649 kbo( :,53, 2) = (/&
650 &3.7614e-06_jprb,4.2159e-06_jprb,4.6210e-06_jprb,4.9854e-06_jprb,5.3156e-06_jprb/)
651 kbo( :,54, 2) = (/&
652 &3.0075e-06_jprb,3.4121e-06_jprb,3.7745e-06_jprb,4.1002e-06_jprb,4.3906e-06_jprb/)
653 kbo( :,55, 2) = (/&
654 &2.4043e-06_jprb,2.7566e-06_jprb,3.0802e-06_jprb,3.3721e-06_jprb,3.6314e-06_jprb/)
655 kbo( :,56, 2) = (/&
656 &1.9210e-06_jprb,2.2197e-06_jprb,2.5091e-06_jprb,2.7692e-06_jprb,3.0032e-06_jprb/)
657 kbo( :,57, 2) = (/&
658 &1.5317e-06_jprb,1.7871e-06_jprb,2.0379e-06_jprb,2.2717e-06_jprb,2.4826e-06_jprb/)
659 kbo( :,58, 2) = (/&
660 &1.2206e-06_jprb,1.4418e-06_jprb,1.6546e-06_jprb,1.8628e-06_jprb,2.0522e-06_jprb/)
661 kbo( :,59, 2) = (/&
662 &9.9907e-07_jprb,1.1883e-06_jprb,1.3690e-06_jprb,1.5455e-06_jprb,1.7114e-06_jprb/)
663 kbo( :,13, 3) = (/&
664 &2.0786e-02_jprb,2.2351e-02_jprb,2.3914e-02_jprb,2.5482e-02_jprb,2.6955e-02_jprb/)
665 kbo( :,14, 3) = (/&
666 &1.7451e-02_jprb,1.8772e-02_jprb,2.0114e-02_jprb,2.1398e-02_jprb,2.2623e-02_jprb/)
667 kbo( :,15, 3) = (/&
668 &1.4302e-02_jprb,1.5409e-02_jprb,1.6505e-02_jprb,1.7555e-02_jprb,1.8558e-02_jprb/)
669 kbo( :,16, 3) = (/&
670 &1.1560e-02_jprb,1.2473e-02_jprb,1.3359e-02_jprb,1.4211e-02_jprb,1.4998e-02_jprb/)
671 kbo( :,17, 3) = (/&
672 &9.2944e-03_jprb,1.0027e-02_jprb,1.0736e-02_jprb,1.1417e-02_jprb,1.2019e-02_jprb/)
673 kbo( :,18, 3) = (/&
674 &7.4021e-03_jprb,7.9861e-03_jprb,8.5472e-03_jprb,9.0743e-03_jprb,9.5344e-03_jprb/)
675 kbo( :,19, 3) = (/&
676 &5.9440e-03_jprb,6.4084e-03_jprb,6.8519e-03_jprb,7.2597e-03_jprb,7.6128e-03_jprb/)
677 kbo( :,20, 3) = (/&
678 &4.8413e-03_jprb,5.2128e-03_jprb,5.5678e-03_jprb,5.8851e-03_jprb,6.1565e-03_jprb/)
679 kbo( :,21, 3) = (/&
680 &3.9554e-03_jprb,4.2547e-03_jprb,4.5379e-03_jprb,4.7882e-03_jprb,4.9942e-03_jprb/)
681 kbo( :,22, 3) = (/&
682 &3.2474e-03_jprb,3.4884e-03_jprb,3.7113e-03_jprb,3.9077e-03_jprb,4.0588e-03_jprb/)
683 kbo( :,23, 3) = (/&
684 &2.6676e-03_jprb,2.8612e-03_jprb,3.0356e-03_jprb,3.1862e-03_jprb,3.2997e-03_jprb/)
685 kbo( :,24, 3) = (/&
686 &2.2001e-03_jprb,2.3544e-03_jprb,2.4920e-03_jprb,2.6064e-03_jprb,2.6941e-03_jprb/)
687 kbo( :,25, 3) = (/&
688 &1.8169e-03_jprb,1.9393e-03_jprb,2.0482e-03_jprb,2.1336e-03_jprb,2.2024e-03_jprb/)
689 kbo( :,26, 3) = (/&
690 &1.5047e-03_jprb,1.6016e-03_jprb,1.6869e-03_jprb,1.7502e-03_jprb,1.8053e-03_jprb/)
691 kbo( :,27, 3) = (/&
692 &1.2468e-03_jprb,1.3235e-03_jprb,1.3890e-03_jprb,1.4372e-03_jprb,1.4821e-03_jprb/)
693 kbo( :,28, 3) = (/&
694 &1.0331e-03_jprb,1.0942e-03_jprb,1.1434e-03_jprb,1.1812e-03_jprb,1.2183e-03_jprb/)
695 kbo( :,29, 3) = (/&
696 &8.5445e-04_jprb,9.0249e-04_jprb,9.3879e-04_jprb,9.6890e-04_jprb,9.9940e-04_jprb/)
697 kbo( :,30, 3) = (/&
698 &7.0538e-04_jprb,7.4243e-04_jprb,7.6932e-04_jprb,7.9375e-04_jprb,8.1874e-04_jprb/)
699 kbo( :,31, 3) = (/&
700 &5.8013e-04_jprb,6.0755e-04_jprb,6.2805e-04_jprb,6.4789e-04_jprb,6.6815e-04_jprb/)
701 kbo( :,32, 3) = (/&
702 &4.7748e-04_jprb,4.9738e-04_jprb,5.1357e-04_jprb,5.2976e-04_jprb,5.4616e-04_jprb/)
703 kbo( :,33, 3) = (/&
704 &3.9283e-04_jprb,4.0745e-04_jprb,4.2047e-04_jprb,4.3362e-04_jprb,4.4699e-04_jprb/)
705 kbo( :,34, 3) = (/&
706 &3.2354e-04_jprb,3.3493e-04_jprb,3.4555e-04_jprb,3.5630e-04_jprb,3.6722e-04_jprb/)
707 kbo( :,35, 3) = (/&
708 &2.6563e-04_jprb,2.7479e-04_jprb,2.8346e-04_jprb,2.9224e-04_jprb,3.0115e-04_jprb/)
709 kbo( :,36, 3) = (/&
710 &2.1746e-04_jprb,2.2496e-04_jprb,2.3205e-04_jprb,2.3922e-04_jprb,2.4648e-04_jprb/)
711 kbo( :,37, 3) = (/&
712 &1.7790e-04_jprb,1.8421e-04_jprb,1.9005e-04_jprb,1.9594e-04_jprb,2.0188e-04_jprb/)
713 kbo( :,38, 3) = (/&
714 &1.4546e-04_jprb,1.5084e-04_jprb,1.5564e-04_jprb,1.6048e-04_jprb,1.6535e-04_jprb/)
715 kbo( :,39, 3) = (/&
716 &1.1888e-04_jprb,1.2350e-04_jprb,1.2746e-04_jprb,1.3144e-04_jprb,1.3545e-04_jprb/)
717 kbo( :,40, 3) = (/&
718 &9.7055e-05_jprb,1.0127e-04_jprb,1.0459e-04_jprb,1.0789e-04_jprb,1.1120e-04_jprb/)
719 kbo( :,41, 3) = (/&
720 &7.9154e-05_jprb,8.3014e-05_jprb,8.5866e-05_jprb,8.8590e-05_jprb,9.1337e-05_jprb/)
721 kbo( :,42, 3) = (/&
722 &6.4516e-05_jprb,6.7988e-05_jprb,7.0503e-05_jprb,7.2755e-05_jprb,7.5027e-05_jprb/)
723 kbo( :,43, 3) = (/&
724 &5.2586e-05_jprb,5.5638e-05_jprb,5.8012e-05_jprb,5.9918e-05_jprb,6.1807e-05_jprb/)
725 kbo( :,44, 3) = (/&
726 &4.2846e-05_jprb,4.5469e-05_jprb,4.7752e-05_jprb,4.9435e-05_jprb,5.1007e-05_jprb/)
727 kbo( :,45, 3) = (/&
728 &3.4876e-05_jprb,3.7158e-05_jprb,3.9219e-05_jprb,4.0798e-05_jprb,4.2133e-05_jprb/)
729 kbo( :,46, 3) = (/&
730 &2.8345e-05_jprb,3.0331e-05_jprb,3.2109e-05_jprb,3.3641e-05_jprb,3.4818e-05_jprb/)
731 kbo( :,47, 3) = (/&
732 &2.2997e-05_jprb,2.4688e-05_jprb,2.6250e-05_jprb,2.7649e-05_jprb,2.8769e-05_jprb/)
733 kbo( :,48, 3) = (/&
734 &1.8671e-05_jprb,2.0088e-05_jprb,2.1457e-05_jprb,2.2672e-05_jprb,2.3753e-05_jprb/)
735 kbo( :,49, 3) = (/&
736 &1.5172e-05_jprb,1.6362e-05_jprb,1.7526e-05_jprb,1.8600e-05_jprb,1.9566e-05_jprb/)
737 kbo( :,50, 3) = (/&
738 &1.2371e-05_jprb,1.3362e-05_jprb,1.4334e-05_jprb,1.5278e-05_jprb,1.6112e-05_jprb/)
739 kbo( :,51, 3) = (/&
740 &1.0118e-05_jprb,1.0936e-05_jprb,1.1749e-05_jprb,1.2556e-05_jprb,1.3289e-05_jprb/)
741 kbo( :,52, 3) = (/&
742 &8.2966e-06_jprb,8.9718e-06_jprb,9.6516e-06_jprb,1.0325e-05_jprb,1.0972e-05_jprb/)
743 kbo( :,53, 3) = (/&
744 &6.8197e-06_jprb,7.3847e-06_jprb,7.9459e-06_jprb,8.5100e-06_jprb,9.0658e-06_jprb/)
745 kbo( :,54, 3) = (/&
746 &5.6318e-06_jprb,6.1106e-06_jprb,6.5789e-06_jprb,7.0470e-06_jprb,7.5143e-06_jprb/)
747 kbo( :,55, 3) = (/&
748 &4.6648e-06_jprb,5.0803e-06_jprb,5.4755e-06_jprb,5.8623e-06_jprb,6.2545e-06_jprb/)
749 kbo( :,56, 3) = (/&
750 &3.8708e-06_jprb,4.2378e-06_jprb,4.5762e-06_jprb,4.9013e-06_jprb,5.2284e-06_jprb/)
751 kbo( :,57, 3) = (/&
752 &3.2206e-06_jprb,3.5441e-06_jprb,3.8440e-06_jprb,4.1208e-06_jprb,4.3930e-06_jprb/)
753 kbo( :,58, 3) = (/&
754 &2.6894e-06_jprb,2.9742e-06_jprb,3.2435e-06_jprb,3.4859e-06_jprb,3.7158e-06_jprb/)
755 kbo( :,59, 3) = (/&
756 &2.2697e-06_jprb,2.5173e-06_jprb,2.7510e-06_jprb,2.9640e-06_jprb,3.1586e-06_jprb/)
757 kbo( :,13, 4) = (/&
758 &3.3348e-02_jprb,3.5638e-02_jprb,3.7527e-02_jprb,3.8919e-02_jprb,3.9722e-02_jprb/)
759 kbo( :,14, 4) = (/&
760 &2.8133e-02_jprb,2.9965e-02_jprb,3.1537e-02_jprb,3.2552e-02_jprb,3.3172e-02_jprb/)
761 kbo( :,15, 4) = (/&
762 &2.3195e-02_jprb,2.4631e-02_jprb,2.5882e-02_jprb,2.6505e-02_jprb,2.6995e-02_jprb/)
763 kbo( :,16, 4) = (/&
764 &1.8840e-02_jprb,1.9967e-02_jprb,2.0839e-02_jprb,2.1232e-02_jprb,2.1643e-02_jprb/)
765 kbo( :,17, 4) = (/&
766 &1.5191e-02_jprb,1.6076e-02_jprb,1.6629e-02_jprb,1.6911e-02_jprb,1.7254e-02_jprb/)
767 kbo( :,18, 4) = (/&
768 &1.2129e-02_jprb,1.2801e-02_jprb,1.3112e-02_jprb,1.3338e-02_jprb,1.3606e-02_jprb/)
769 kbo( :,19, 4) = (/&
770 &9.7476e-03_jprb,1.0232e-02_jprb,1.0428e-02_jprb,1.0608e-02_jprb,1.0828e-02_jprb/)
771 kbo( :,20, 4) = (/&
772 &7.9368e-03_jprb,8.2717e-03_jprb,8.4067e-03_jprb,8.5556e-03_jprb,8.7467e-03_jprb/)
773 kbo( :,21, 4) = (/&
774 &6.4875e-03_jprb,6.7006e-03_jprb,6.8050e-03_jprb,6.9274e-03_jprb,7.0981e-03_jprb/)
775 kbo( :,22, 4) = (/&
776 &5.3123e-03_jprb,5.4283e-03_jprb,5.5157e-03_jprb,5.6201e-03_jprb,5.7769e-03_jprb/)
777 kbo( :,23, 4) = (/&
778 &4.3285e-03_jprb,4.4003e-03_jprb,4.4749e-03_jprb,4.5691e-03_jprb,4.7070e-03_jprb/)
779 kbo( :,24, 4) = (/&
780 &3.5319e-03_jprb,3.5856e-03_jprb,3.6485e-03_jprb,3.7338e-03_jprb,3.8516e-03_jprb/)
781 kbo( :,25, 4) = (/&
782 &2.8812e-03_jprb,2.9257e-03_jprb,2.9788e-03_jprb,3.0577e-03_jprb,3.1571e-03_jprb/)
783 kbo( :,26, 4) = (/&
784 &2.3549e-03_jprb,2.3931e-03_jprb,2.4398e-03_jprb,2.5120e-03_jprb,2.5956e-03_jprb/)
785 kbo( :,27, 4) = (/&
786 &1.9281e-03_jprb,1.9612e-03_jprb,2.0042e-03_jprb,2.0672e-03_jprb,2.1371e-03_jprb/)
787 kbo( :,28, 4) = (/&
788 &1.5812e-03_jprb,1.6092e-03_jprb,1.6493e-03_jprb,1.7029e-03_jprb,1.7614e-03_jprb/)
789 kbo( :,29, 4) = (/&
790 &1.2934e-03_jprb,1.3182e-03_jprb,1.3554e-03_jprb,1.4008e-03_jprb,1.4497e-03_jprb/)
791 kbo( :,30, 4) = (/&
792 &1.0569e-03_jprb,1.0795e-03_jprb,1.1129e-03_jprb,1.1513e-03_jprb,1.1924e-03_jprb/)
793 kbo( :,31, 4) = (/&
794 &8.6072e-04_jprb,8.8192e-04_jprb,9.1116e-04_jprb,9.4362e-04_jprb,9.7860e-04_jprb/)
795 kbo( :,32, 4) = (/&
796 &7.0258e-04_jprb,7.2255e-04_jprb,7.4782e-04_jprb,7.7514e-04_jprb,8.0493e-04_jprb/)
797 kbo( :,33, 4) = (/&
798 &5.7482e-04_jprb,5.9318e-04_jprb,6.1484e-04_jprb,6.3779e-04_jprb,6.6313e-04_jprb/)
799 kbo( :,34, 4) = (/&
800 &4.7271e-04_jprb,4.8878e-04_jprb,5.0702e-04_jprb,5.2638e-04_jprb,5.4786e-04_jprb/)
801 kbo( :,35, 4) = (/&
802 &3.8824e-04_jprb,4.0194e-04_jprb,4.1715e-04_jprb,4.3337e-04_jprb,4.5133e-04_jprb/)
803 kbo( :,36, 4) = (/&
804 &3.1820e-04_jprb,3.2965e-04_jprb,3.4225e-04_jprb,3.5569e-04_jprb,3.7045e-04_jprb/)
805 kbo( :,37, 4) = (/&
806 &2.6087e-04_jprb,2.7015e-04_jprb,2.8055e-04_jprb,2.9152e-04_jprb,3.0353e-04_jprb/)
807 kbo( :,38, 4) = (/&
808 &2.1395e-04_jprb,2.2142e-04_jprb,2.2996e-04_jprb,2.3892e-04_jprb,2.4870e-04_jprb/)
809 kbo( :,39, 4) = (/&
810 &1.7555e-04_jprb,1.8151e-04_jprb,1.8852e-04_jprb,1.9581e-04_jprb,2.0378e-04_jprb/)
811 kbo( :,40, 4) = (/&
812 &1.4448e-04_jprb,1.4897e-04_jprb,1.5464e-04_jprb,1.6057e-04_jprb,1.6703e-04_jprb/)
813 kbo( :,41, 4) = (/&
814 &1.1907e-04_jprb,1.2237e-04_jprb,1.2690e-04_jprb,1.3173e-04_jprb,1.3696e-04_jprb/)
815 kbo( :,42, 4) = (/&
816 &9.8189e-05_jprb,1.0062e-04_jprb,1.0417e-04_jprb,1.0812e-04_jprb,1.1234e-04_jprb/)
817 kbo( :,43, 4) = (/&
818 &8.1285e-05_jprb,8.3104e-05_jprb,8.5710e-05_jprb,8.8901e-05_jprb,9.2309e-05_jprb/)
819 kbo( :,44, 4) = (/&
820 &6.7490e-05_jprb,6.8895e-05_jprb,7.0708e-05_jprb,7.3224e-05_jprb,7.5980e-05_jprb/)
821 kbo( :,45, 4) = (/&
822 &5.6130e-05_jprb,5.7190e-05_jprb,5.8518e-05_jprb,6.0401e-05_jprb,6.2619e-05_jprb/)
823 kbo( :,46, 4) = (/&
824 &4.6746e-05_jprb,4.7563e-05_jprb,4.8588e-05_jprb,4.9905e-05_jprb,5.1654e-05_jprb/)
825 kbo( :,47, 4) = (/&
826 &3.8886e-05_jprb,3.9651e-05_jprb,4.0414e-05_jprb,4.1369e-05_jprb,4.2661e-05_jprb/)
827 kbo( :,48, 4) = (/&
828 &3.2050e-05_jprb,3.3124e-05_jprb,3.3698e-05_jprb,3.4432e-05_jprb,3.5333e-05_jprb/)
829 kbo( :,49, 4) = (/&
830 &2.6226e-05_jprb,2.7647e-05_jprb,2.8176e-05_jprb,2.8720e-05_jprb,2.9390e-05_jprb/)
831 kbo( :,50, 4) = (/&
832 &2.1474e-05_jprb,2.2897e-05_jprb,2.3616e-05_jprb,2.4028e-05_jprb,2.4549e-05_jprb/)
833 kbo( :,51, 4) = (/&
834 &1.7587e-05_jprb,1.8848e-05_jprb,1.9798e-05_jprb,2.0162e-05_jprb,2.0554e-05_jprb/)
835 kbo( :,52, 4) = (/&
836 &1.4397e-05_jprb,1.5513e-05_jprb,1.6498e-05_jprb,1.6964e-05_jprb,1.7266e-05_jprb/)
837 kbo( :,53, 4) = (/&
838 &1.1772e-05_jprb,1.2776e-05_jprb,1.3653e-05_jprb,1.4290e-05_jprb,1.4555e-05_jprb/)
839 kbo( :,54, 4) = (/&
840 &9.6285e-06_jprb,1.0547e-05_jprb,1.1325e-05_jprb,1.1997e-05_jprb,1.2314e-05_jprb/)
841 kbo( :,55, 4) = (/&
842 &7.8686e-06_jprb,8.7205e-06_jprb,9.4148e-06_jprb,1.0021e-05_jprb,1.0444e-05_jprb/)
843 kbo( :,56, 4) = (/&
844 &6.4474e-06_jprb,7.2044e-06_jprb,7.8377e-06_jprb,8.3851e-06_jprb,8.8446e-06_jprb/)
845 kbo( :,57, 4) = (/&
846 &5.3026e-06_jprb,5.9425e-06_jprb,6.5385e-06_jprb,7.0305e-06_jprb,7.4552e-06_jprb/)
847 kbo( :,58, 4) = (/&
848 &4.3875e-06_jprb,4.9223e-06_jprb,5.4609e-06_jprb,5.9117e-06_jprb,6.2971e-06_jprb/)
849 kbo( :,59, 4) = (/&
850 &3.6889e-06_jprb,4.1378e-06_jprb,4.5957e-06_jprb,4.9992e-06_jprb,5.3354e-06_jprb/)
851 kbo( :,13, 5) = (/&
852 &5.1121e-02_jprb,5.1507e-02_jprb,5.2004e-02_jprb,5.3195e-02_jprb,5.5478e-02_jprb/)
853 kbo( :,14, 5) = (/&
854 &4.2903e-02_jprb,4.3219e-02_jprb,4.3663e-02_jprb,4.5005e-02_jprb,4.7060e-02_jprb/)
855 kbo( :,15, 5) = (/&
856 &3.5068e-02_jprb,3.5353e-02_jprb,3.5864e-02_jprb,3.7306e-02_jprb,3.9103e-02_jprb/)
857 kbo( :,16, 5) = (/&
858 &2.8258e-02_jprb,2.8536e-02_jprb,2.9205e-02_jprb,3.0568e-02_jprb,3.2105e-02_jprb/)
859 kbo( :,17, 5) = (/&
860 &2.2642e-02_jprb,2.2932e-02_jprb,2.3698e-02_jprb,2.4891e-02_jprb,2.6185e-02_jprb/)
861 kbo( :,18, 5) = (/&
862 &1.7964e-02_jprb,1.8281e-02_jprb,1.9084e-02_jprb,2.0096e-02_jprb,2.1180e-02_jprb/)
863 kbo( :,19, 5) = (/&
864 &1.4384e-02_jprb,1.4732e-02_jprb,1.5474e-02_jprb,1.6321e-02_jprb,1.7214e-02_jprb/)
865 kbo( :,20, 5) = (/&
866 &1.1675e-02_jprb,1.2051e-02_jprb,1.2712e-02_jprb,1.3419e-02_jprb,1.4150e-02_jprb/)
867 kbo( :,21, 5) = (/&
868 &9.5108e-03_jprb,9.9043e-03_jprb,1.0466e-02_jprb,1.1048e-02_jprb,1.1656e-02_jprb/)
869 kbo( :,22, 5) = (/&
870 &7.7720e-03_jprb,8.1751e-03_jprb,8.6406e-03_jprb,9.1253e-03_jprb,9.6344e-03_jprb/)
871 kbo( :,23, 5) = (/&
872 &6.3846e-03_jprb,6.7498e-03_jprb,7.1331e-03_jprb,7.5377e-03_jprb,7.9653e-03_jprb/)
873 kbo( :,24, 5) = (/&
874 &5.2771e-03_jprb,5.5862e-03_jprb,5.9043e-03_jprb,6.2445e-03_jprb,6.6015e-03_jprb/)
875 kbo( :,25, 5) = (/&
876 &4.3695e-03_jprb,4.6259e-03_jprb,4.8938e-03_jprb,5.1786e-03_jprb,5.4764e-03_jprb/)
877 kbo( :,26, 5) = (/&
878 &3.6280e-03_jprb,3.8403e-03_jprb,4.0669e-03_jprb,4.3054e-03_jprb,4.5535e-03_jprb/)
879 kbo( :,27, 5) = (/&
880 &3.0145e-03_jprb,3.1918e-03_jprb,3.3815e-03_jprb,3.5819e-03_jprb,3.7878e-03_jprb/)
881 kbo( :,28, 5) = (/&
882 &2.5051e-03_jprb,2.6547e-03_jprb,2.8145e-03_jprb,2.9821e-03_jprb,3.1545e-03_jprb/)
883 kbo( :,29, 5) = (/&
884 &2.0801e-03_jprb,2.2062e-03_jprb,2.3413e-03_jprb,2.4808e-03_jprb,2.6265e-03_jprb/)
885 kbo( :,30, 5) = (/&
886 &1.7263e-03_jprb,1.8332e-03_jprb,1.9470e-03_jprb,2.0638e-03_jprb,2.1862e-03_jprb/)
887 kbo( :,31, 5) = (/&
888 &1.4306e-03_jprb,1.5217e-03_jprb,1.6165e-03_jprb,1.7146e-03_jprb,1.8178e-03_jprb/)
889 kbo( :,32, 5) = (/&
890 &1.1879e-03_jprb,1.2650e-03_jprb,1.3439e-03_jprb,1.4268e-03_jprb,1.5142e-03_jprb/)
891 kbo( :,33, 5) = (/&
892 &9.8791e-04_jprb,1.0524e-03_jprb,1.1186e-03_jprb,1.1891e-03_jprb,1.2634e-03_jprb/)
893 kbo( :,34, 5) = (/&
894 &8.2253e-04_jprb,8.7618e-04_jprb,9.3221e-04_jprb,9.9230e-04_jprb,1.0553e-03_jprb/)
895 kbo( :,35, 5) = (/&
896 &6.8111e-04_jprb,7.2574e-04_jprb,7.7324e-04_jprb,8.2413e-04_jprb,8.7761e-04_jprb/)
897 kbo( :,36, 5) = (/&
898 &5.6044e-04_jprb,5.9769e-04_jprb,6.3770e-04_jprb,6.8068e-04_jprb,7.2574e-04_jprb/)
899 kbo( :,37, 5) = (/&
900 &4.5897e-04_jprb,4.9003e-04_jprb,5.2346e-04_jprb,5.5953e-04_jprb,5.9740e-04_jprb/)
901 kbo( :,38, 5) = (/&
902 &3.7569e-04_jprb,4.0153e-04_jprb,4.2953e-04_jprb,4.5975e-04_jprb,4.9160e-04_jprb/)
903 kbo( :,39, 5) = (/&
904 &3.0744e-04_jprb,3.2897e-04_jprb,3.5240e-04_jprb,3.7773e-04_jprb,4.0452e-04_jprb/)
905 kbo( :,40, 5) = (/&
906 &2.5088e-04_jprb,2.6871e-04_jprb,2.8819e-04_jprb,3.0931e-04_jprb,3.3175e-04_jprb/)
907 kbo( :,41, 5) = (/&
908 &2.0462e-04_jprb,2.1937e-04_jprb,2.3556e-04_jprb,2.5314e-04_jprb,2.7185e-04_jprb/)
909 kbo( :,42, 5) = (/&
910 &1.6686e-04_jprb,1.7907e-04_jprb,1.9249e-04_jprb,2.0708e-04_jprb,2.2271e-04_jprb/)
911 kbo( :,43, 5) = (/&
912 &1.3590e-04_jprb,1.4594e-04_jprb,1.5698e-04_jprb,1.6901e-04_jprb,1.8205e-04_jprb/)
913 kbo( :,44, 5) = (/&
914 &1.1067e-04_jprb,1.1887e-04_jprb,1.2791e-04_jprb,1.3780e-04_jprb,1.4862e-04_jprb/)
915 kbo( :,45, 5) = (/&
916 &9.0208e-05_jprb,9.6857e-05_jprb,1.0424e-04_jprb,1.1235e-04_jprb,1.2129e-04_jprb/)
917 kbo( :,46, 5) = (/&
918 &7.3529e-05_jprb,7.8854e-05_jprb,8.4864e-05_jprb,9.1484e-05_jprb,9.8816e-05_jprb/)
919 kbo( :,47, 5) = (/&
920 &6.0013e-05_jprb,6.4106e-05_jprb,6.8939e-05_jprb,7.4314e-05_jprb,8.0262e-05_jprb/)
921 kbo( :,48, 5) = (/&
922 &4.9475e-05_jprb,5.2215e-05_jprb,5.6060e-05_jprb,6.0396e-05_jprb,6.5219e-05_jprb/)
923 kbo( :,49, 5) = (/&
924 &4.1161e-05_jprb,4.2705e-05_jprb,4.5656e-05_jprb,4.9133e-05_jprb,5.3026e-05_jprb/)
925 kbo( :,50, 5) = (/&
926 &3.4418e-05_jprb,3.5307e-05_jprb,3.7317e-05_jprb,4.0090e-05_jprb,4.3229e-05_jprb/)
927 kbo( :,51, 5) = (/&
928 &2.8922e-05_jprb,2.9472e-05_jprb,3.0638e-05_jprb,3.2797e-05_jprb,3.5318e-05_jprb/)
929 kbo( :,52, 5) = (/&
930 &2.4424e-05_jprb,2.4734e-05_jprb,2.5383e-05_jprb,2.6898e-05_jprb,2.8901e-05_jprb/)
931 kbo( :,53, 5) = (/&
932 &2.0598e-05_jprb,2.0869e-05_jprb,2.1258e-05_jprb,2.2148e-05_jprb,2.3706e-05_jprb/)
933 kbo( :,54, 5) = (/&
934 &1.7186e-05_jprb,1.7712e-05_jprb,1.7923e-05_jprb,1.8433e-05_jprb,1.9552e-05_jprb/)
935 kbo( :,55, 5) = (/&
936 &1.4224e-05_jprb,1.5080e-05_jprb,1.5208e-05_jprb,1.5518e-05_jprb,1.6207e-05_jprb/)
937 kbo( :,56, 5) = (/&
938 &1.1740e-05_jprb,1.2734e-05_jprb,1.2993e-05_jprb,1.3155e-05_jprb,1.3546e-05_jprb/)
939 kbo( :,57, 5) = (/&
940 &9.7276e-06_jprb,1.0657e-05_jprb,1.1168e-05_jprb,1.1239e-05_jprb,1.1467e-05_jprb/)
941 kbo( :,58, 5) = (/&
942 &8.1077e-06_jprb,8.9005e-06_jprb,9.5538e-06_jprb,9.6723e-06_jprb,9.7928e-06_jprb/)
943 kbo( :,59, 5) = (/&
944 &6.8383e-06_jprb,7.5009e-06_jprb,8.1193e-06_jprb,8.2851e-06_jprb,8.3569e-06_jprb/)
945 kbo( :,13, 6) = (/&
946 &7.7444e-02_jprb,8.2236e-02_jprb,8.7838e-02_jprb,9.3753e-02_jprb,9.9786e-02_jprb/)
947 kbo( :,14, 6) = (/&
948 &6.5845e-02_jprb,7.0239e-02_jprb,7.5214e-02_jprb,8.0372e-02_jprb,8.5713e-02_jprb/)
949 kbo( :,15, 6) = (/&
950 &5.5227e-02_jprb,5.9200e-02_jprb,6.3504e-02_jprb,6.7983e-02_jprb,7.2630e-02_jprb/)
951 kbo( :,16, 6) = (/&
952 &4.5844e-02_jprb,4.9349e-02_jprb,5.3056e-02_jprb,5.6921e-02_jprb,6.0814e-02_jprb/)
953 kbo( :,17, 6) = (/&
954 &3.7783e-02_jprb,4.0819e-02_jprb,4.4007e-02_jprb,4.7268e-02_jprb,5.0508e-02_jprb/)
955 kbo( :,18, 6) = (/&
956 &3.0896e-02_jprb,3.3488e-02_jprb,3.6191e-02_jprb,3.8886e-02_jprb,4.1550e-02_jprb/)
957 kbo( :,19, 6) = (/&
958 &2.5364e-02_jprb,2.7572e-02_jprb,2.9829e-02_jprb,3.2058e-02_jprb,3.4260e-02_jprb/)
959 kbo( :,20, 6) = (/&
960 &2.1100e-02_jprb,2.2979e-02_jprb,2.4877e-02_jprb,2.6754e-02_jprb,2.8602e-02_jprb/)
961 kbo( :,21, 6) = (/&
962 &1.7607e-02_jprb,1.9203e-02_jprb,2.0798e-02_jprb,2.2390e-02_jprb,2.3916e-02_jprb/)
963 kbo( :,22, 6) = (/&
964 &1.4783e-02_jprb,1.6131e-02_jprb,1.7478e-02_jprb,1.8806e-02_jprb,2.0049e-02_jprb/)
965 kbo( :,23, 6) = (/&
966 &1.2411e-02_jprb,1.3542e-02_jprb,1.4674e-02_jprb,1.5762e-02_jprb,1.6774e-02_jprb/)
967 kbo( :,24, 6) = (/&
968 &1.0438e-02_jprb,1.1384e-02_jprb,1.2322e-02_jprb,1.3209e-02_jprb,1.4046e-02_jprb/)
969 kbo( :,25, 6) = (/&
970 &8.7842e-03_jprb,9.5736e-03_jprb,1.0349e-02_jprb,1.1074e-02_jprb,1.1769e-02_jprb/)
971 kbo( :,26, 6) = (/&
972 &7.4110e-03_jprb,8.0713e-03_jprb,8.7058e-03_jprb,9.3054e-03_jprb,9.8871e-03_jprb/)
973 kbo( :,27, 6) = (/&
974 &6.2558e-03_jprb,6.8061e-03_jprb,7.3256e-03_jprb,7.8243e-03_jprb,8.3130e-03_jprb/)
975 kbo( :,28, 6) = (/&
976 &5.2801e-03_jprb,5.7341e-03_jprb,6.1638e-03_jprb,6.5800e-03_jprb,6.9900e-03_jprb/)
977 kbo( :,29, 6) = (/&
978 &4.4527e-03_jprb,4.8252e-03_jprb,5.1813e-03_jprb,5.5298e-03_jprb,5.8731e-03_jprb/)
979 kbo( :,30, 6) = (/&
980 &3.7503e-03_jprb,4.0566e-03_jprb,4.3519e-03_jprb,4.6440e-03_jprb,4.9327e-03_jprb/)
981 kbo( :,31, 6) = (/&
982 &3.1521e-03_jprb,3.4037e-03_jprb,3.6510e-03_jprb,3.8964e-03_jprb,4.1394e-03_jprb/)
983 kbo( :,32, 6) = (/&
984 &2.6499e-03_jprb,2.8587e-03_jprb,3.0669e-03_jprb,3.2733e-03_jprb,3.4804e-03_jprb/)
985 kbo( :,33, 6) = (/&
986 &2.2285e-03_jprb,2.4036e-03_jprb,2.5790e-03_jprb,2.7532e-03_jprb,2.9305e-03_jprb/)
987 kbo( :,34, 6) = (/&
988 &1.8728e-03_jprb,2.0206e-03_jprb,2.1684e-03_jprb,2.3169e-03_jprb,2.4685e-03_jprb/)
989 kbo( :,35, 6) = (/&
990 &1.5635e-03_jprb,1.6884e-03_jprb,1.8131e-03_jprb,1.9393e-03_jprb,2.0686e-03_jprb/)
991 kbo( :,36, 6) = (/&
992 &1.2949e-03_jprb,1.4000e-03_jprb,1.5055e-03_jprb,1.6126e-03_jprb,1.7231e-03_jprb/)
993 kbo( :,37, 6) = (/&
994 &1.0650e-03_jprb,1.1540e-03_jprb,1.2435e-03_jprb,1.3349e-03_jprb,1.4294e-03_jprb/)
995 kbo( :,38, 6) = (/&
996 &8.7519e-04_jprb,9.5059e-04_jprb,1.0265e-03_jprb,1.1043e-03_jprb,1.1854e-03_jprb/)
997 kbo( :,39, 6) = (/&
998 &7.1904e-04_jprb,7.8281e-04_jprb,8.4716e-04_jprb,9.1345e-04_jprb,9.8297e-04_jprb/)
999 kbo( :,40, 6) = (/&
1000 &5.8756e-04_jprb,6.4152e-04_jprb,6.9608e-04_jprb,7.5269e-04_jprb,8.1218e-04_jprb/)
1001 kbo( :,41, 6) = (/&
1002 &4.7943e-04_jprb,5.2501e-04_jprb,5.7132e-04_jprb,6.1957e-04_jprb,6.7045e-04_jprb/)
1003 kbo( :,42, 6) = (/&
1004 &3.9089e-04_jprb,4.2934e-04_jprb,4.6858e-04_jprb,5.0963e-04_jprb,5.5304e-04_jprb/)
1005 kbo( :,43, 6) = (/&
1006 &3.1717e-04_jprb,3.4955e-04_jprb,3.8275e-04_jprb,4.1759e-04_jprb,4.5458e-04_jprb/)
1007 kbo( :,44, 6) = (/&
1008 &2.5660e-04_jprb,2.8381e-04_jprb,3.1180e-04_jprb,3.4130e-04_jprb,3.7266e-04_jprb/)
1009 kbo( :,45, 6) = (/&
1010 &2.0734e-04_jprb,2.3011e-04_jprb,2.5370e-04_jprb,2.7860e-04_jprb,3.0513e-04_jprb/)
1011 kbo( :,46, 6) = (/&
1012 &1.6698e-04_jprb,1.8599e-04_jprb,2.0575e-04_jprb,2.2669e-04_jprb,2.4909e-04_jprb/)
1013 kbo( :,47, 6) = (/&
1014 &1.3369e-04_jprb,1.4948e-04_jprb,1.6598e-04_jprb,1.8350e-04_jprb,2.0231e-04_jprb/)
1015 kbo( :,48, 6) = (/&
1016 &1.0692e-04_jprb,1.1997e-04_jprb,1.3372e-04_jprb,1.4834e-04_jprb,1.6409e-04_jprb/)
1017 kbo( :,49, 6) = (/&
1018 &8.5441e-05_jprb,9.6159e-05_jprb,1.0757e-04_jprb,1.1975e-04_jprb,1.3290e-04_jprb/)
1019 kbo( :,50, 6) = (/&
1020 &6.8463e-05_jprb,7.7220e-05_jprb,8.6669e-05_jprb,9.6779e-05_jprb,1.0774e-04_jprb/)
1021 kbo( :,51, 6) = (/&
1022 &5.4963e-05_jprb,6.2053e-05_jprb,6.9849e-05_jprb,7.8222e-05_jprb,8.7346e-05_jprb/)
1023 kbo( :,52, 6) = (/&
1024 &4.4218e-05_jprb,4.9878e-05_jprb,5.6264e-05_jprb,6.3175e-05_jprb,7.0755e-05_jprb/)
1025 kbo( :,53, 6) = (/&
1026 &3.5855e-05_jprb,4.0139e-05_jprb,4.5314e-05_jprb,5.0998e-05_jprb,5.7267e-05_jprb/)
1027 kbo( :,54, 6) = (/&
1028 &2.9695e-05_jprb,3.2492e-05_jprb,3.6654e-05_jprb,4.1299e-05_jprb,4.6492e-05_jprb/)
1029 kbo( :,55, 6) = (/&
1030 &2.5066e-05_jprb,2.6500e-05_jprb,2.9735e-05_jprb,3.3517e-05_jprb,3.7804e-05_jprb/)
1031 kbo( :,56, 6) = (/&
1032 &2.1455e-05_jprb,2.1969e-05_jprb,2.4192e-05_jprb,2.7229e-05_jprb,3.0752e-05_jprb/)
1033 kbo( :,57, 6) = (/&
1034 &1.8563e-05_jprb,1.8584e-05_jprb,1.9785e-05_jprb,2.2171e-05_jprb,2.5035e-05_jprb/)
1035 kbo( :,58, 6) = (/&
1036 &1.6189e-05_jprb,1.5969e-05_jprb,1.6446e-05_jprb,1.8150e-05_jprb,2.0451e-05_jprb/)
1037 kbo( :,59, 6) = (/&
1038 &1.3883e-05_jprb,1.3701e-05_jprb,1.3912e-05_jprb,1.5148e-05_jprb,1.7050e-05_jprb/)
1039 kbo( :,13, 7) = (/&
1040 &1.5712e-01_jprb,1.7077e-01_jprb,1.8355e-01_jprb,1.9563e-01_jprb,2.0695e-01_jprb/)
1041 kbo( :,14, 7) = (/&
1042 &1.3457e-01_jprb,1.4585e-01_jprb,1.5670e-01_jprb,1.6701e-01_jprb,1.7684e-01_jprb/)
1043 kbo( :,15, 7) = (/&
1044 &1.1408e-01_jprb,1.2355e-01_jprb,1.3267e-01_jprb,1.4142e-01_jprb,1.5007e-01_jprb/)
1045 kbo( :,16, 7) = (/&
1046 &9.6177e-02_jprb,1.0414e-01_jprb,1.1181e-01_jprb,1.1927e-01_jprb,1.2686e-01_jprb/)
1047 kbo( :,17, 7) = (/&
1048 &8.0695e-02_jprb,8.7374e-02_jprb,9.3807e-02_jprb,1.0015e-01_jprb,1.0671e-01_jprb/)
1049 kbo( :,18, 7) = (/&
1050 &6.7227e-02_jprb,7.2774e-02_jprb,7.8173e-02_jprb,8.3614e-02_jprb,8.9191e-02_jprb/)
1051 kbo( :,19, 7) = (/&
1052 &5.5951e-02_jprb,6.0594e-02_jprb,6.5183e-02_jprb,6.9851e-02_jprb,7.4565e-02_jprb/)
1053 kbo( :,20, 7) = (/&
1054 &4.7003e-02_jprb,5.0964e-02_jprb,5.4960e-02_jprb,5.9008e-02_jprb,6.3089e-02_jprb/)
1055 kbo( :,21, 7) = (/&
1056 &3.9571e-02_jprb,4.2979e-02_jprb,4.6449e-02_jprb,4.9946e-02_jprb,5.3508e-02_jprb/)
1057 kbo( :,22, 7) = (/&
1058 &3.3519e-02_jprb,3.6474e-02_jprb,3.9467e-02_jprb,4.2489e-02_jprb,4.5580e-02_jprb/)
1059 kbo( :,23, 7) = (/&
1060 &2.8427e-02_jprb,3.0972e-02_jprb,3.3547e-02_jprb,3.6170e-02_jprb,3.8855e-02_jprb/)
1061 kbo( :,24, 7) = (/&
1062 &2.4149e-02_jprb,2.6342e-02_jprb,2.8570e-02_jprb,3.0859e-02_jprb,3.3200e-02_jprb/)
1063 kbo( :,25, 7) = (/&
1064 &2.0558e-02_jprb,2.2456e-02_jprb,2.4392e-02_jprb,2.6381e-02_jprb,2.8422e-02_jprb/)
1065 kbo( :,26, 7) = (/&
1066 &1.7573e-02_jprb,1.9221e-02_jprb,2.0907e-02_jprb,2.2636e-02_jprb,2.4397e-02_jprb/)
1067 kbo( :,27, 7) = (/&
1068 &1.5044e-02_jprb,1.6466e-02_jprb,1.7926e-02_jprb,1.9419e-02_jprb,2.0934e-02_jprb/)
1069 kbo( :,28, 7) = (/&
1070 &1.2886e-02_jprb,1.4109e-02_jprb,1.5370e-02_jprb,1.6664e-02_jprb,1.7968e-02_jprb/)
1071 kbo( :,29, 7) = (/&
1072 &1.1030e-02_jprb,1.2088e-02_jprb,1.3180e-02_jprb,1.4300e-02_jprb,1.5425e-02_jprb/)
1073 kbo( :,30, 7) = (/&
1074 &9.4386e-03_jprb,1.0357e-02_jprb,1.1303e-02_jprb,1.2268e-02_jprb,1.3245e-02_jprb/)
1075 kbo( :,31, 7) = (/&
1076 &8.0733e-03_jprb,8.8677e-03_jprb,9.6883e-03_jprb,1.0518e-02_jprb,1.1366e-02_jprb/)
1077 kbo( :,32, 7) = (/&
1078 &6.9177e-03_jprb,7.6069e-03_jprb,8.3126e-03_jprb,9.0312e-03_jprb,9.7643e-03_jprb/)
1079 kbo( :,33, 7) = (/&
1080 &5.9333e-03_jprb,6.5312e-03_jprb,7.1390e-03_jprb,7.7622e-03_jprb,8.3990e-03_jprb/)
1081 kbo( :,34, 7) = (/&
1082 &5.0834e-03_jprb,5.6003e-03_jprb,6.1274e-03_jprb,6.6689e-03_jprb,7.2266e-03_jprb/)
1083 kbo( :,35, 7) = (/&
1084 &4.3170e-03_jprb,4.7611e-03_jprb,5.2173e-03_jprb,5.6888e-03_jprb,6.1769e-03_jprb/)
1085 kbo( :,36, 7) = (/&
1086 &3.6248e-03_jprb,4.0060e-03_jprb,4.3997e-03_jprb,4.8092e-03_jprb,5.2371e-03_jprb/)
1087 kbo( :,37, 7) = (/&
1088 &3.0276e-03_jprb,3.3587e-03_jprb,3.7027e-03_jprb,4.0632e-03_jprb,4.4411e-03_jprb/)
1089 kbo( :,38, 7) = (/&
1090 &2.5258e-03_jprb,2.8131e-03_jprb,3.1144e-03_jprb,3.4319e-03_jprb,3.7659e-03_jprb/)
1091 kbo( :,39, 7) = (/&
1092 &2.1056e-03_jprb,2.3549e-03_jprb,2.6188e-03_jprb,2.8979e-03_jprb,3.1925e-03_jprb/)
1093 kbo( :,40, 7) = (/&
1094 &1.7476e-03_jprb,1.9653e-03_jprb,2.1979e-03_jprb,2.4447e-03_jprb,2.7070e-03_jprb/)
1095 kbo( :,41, 7) = (/&
1096 &1.4476e-03_jprb,1.6380e-03_jprb,1.8422e-03_jprb,2.0603e-03_jprb,2.2939e-03_jprb/)
1097 kbo( :,42, 7) = (/&
1098 &1.1969e-03_jprb,1.3628e-03_jprb,1.5418e-03_jprb,1.7341e-03_jprb,1.9416e-03_jprb/)
1099 kbo( :,43, 7) = (/&
1100 &9.8263e-04_jprb,1.1265e-03_jprb,1.2827e-03_jprb,1.4514e-03_jprb,1.6351e-03_jprb/)
1101 kbo( :,44, 7) = (/&
1102 &8.0249e-04_jprb,9.2668e-04_jprb,1.0625e-03_jprb,1.2096e-03_jprb,1.3707e-03_jprb/)
1103 kbo( :,45, 7) = (/&
1104 &6.5298e-04_jprb,7.5994e-04_jprb,8.7728e-04_jprb,1.0055e-03_jprb,1.1461e-03_jprb/)
1105 kbo( :,46, 7) = (/&
1106 &5.2766e-04_jprb,6.1908e-04_jprb,7.1997e-04_jprb,8.3119e-04_jprb,9.5370e-04_jprb/)
1107 kbo( :,47, 7) = (/&
1108 &4.2190e-04_jprb,4.9924e-04_jprb,5.8514e-04_jprb,6.8083e-04_jprb,7.8680e-04_jprb/)
1109 kbo( :,48, 7) = (/&
1110 &3.3585e-04_jprb,4.0081e-04_jprb,4.7372e-04_jprb,5.5558e-04_jprb,6.4689e-04_jprb/)
1111 kbo( :,49, 7) = (/&
1112 &2.6612e-04_jprb,3.2038e-04_jprb,3.8190e-04_jprb,4.5171e-04_jprb,5.3004e-04_jprb/)
1113 kbo( :,50, 7) = (/&
1114 &2.1101e-04_jprb,2.5616e-04_jprb,3.0801e-04_jprb,3.6730e-04_jprb,4.3443e-04_jprb/)
1115 kbo( :,51, 7) = (/&
1116 &1.6702e-04_jprb,2.0440e-04_jprb,2.4803e-04_jprb,2.9825e-04_jprb,3.5552e-04_jprb/)
1117 kbo( :,52, 7) = (/&
1118 &1.3173e-04_jprb,1.6253e-04_jprb,1.9899e-04_jprb,2.4139e-04_jprb,2.9010e-04_jprb/)
1119 kbo( :,53, 7) = (/&
1120 &1.0353e-04_jprb,1.2873e-04_jprb,1.5900e-04_jprb,1.9462e-04_jprb,2.3588e-04_jprb/)
1121 kbo( :,54, 7) = (/&
1122 &8.1672e-05_jprb,1.0229e-04_jprb,1.2738e-04_jprb,1.5734e-04_jprb,1.9225e-04_jprb/)
1123 kbo( :,55, 7) = (/&
1124 &6.4500e-05_jprb,8.1316e-05_jprb,1.0205e-04_jprb,1.2719e-04_jprb,1.5669e-04_jprb/)
1125 kbo( :,56, 7) = (/&
1126 &5.0893e-05_jprb,6.4506e-05_jprb,8.1571e-05_jprb,1.0252e-04_jprb,1.2738e-04_jprb/)
1127 kbo( :,57, 7) = (/&
1128 &4.0182e-05_jprb,5.1082e-05_jprb,6.5020e-05_jprb,8.2415e-05_jprb,1.0329e-04_jprb/)
1129 kbo( :,58, 7) = (/&
1130 &3.1954e-05_jprb,4.0565e-05_jprb,5.1914e-05_jprb,6.6302e-05_jprb,8.3823e-05_jprb/)
1131 kbo( :,59, 7) = (/&
1132 &2.6572e-05_jprb,3.3591e-05_jprb,4.3211e-05_jprb,5.5528e-05_jprb,7.0676e-05_jprb/)
1133 kbo( :,13, 8) = (/&
1134 &4.4787e-01_jprb,4.9751e-01_jprb,5.4470e-01_jprb,5.8862e-01_jprb,6.2908e-01_jprb/)
1135 kbo( :,14, 8) = (/&
1136 &3.8445e-01_jprb,4.2715e-01_jprb,4.6742e-01_jprb,5.0464e-01_jprb,5.3938e-01_jprb/)
1137 kbo( :,15, 8) = (/&
1138 &3.2779e-01_jprb,3.6397e-01_jprb,3.9785e-01_jprb,4.2935e-01_jprb,4.5890e-01_jprb/)
1139 kbo( :,16, 8) = (/&
1140 &2.7790e-01_jprb,3.0790e-01_jprb,3.3600e-01_jprb,3.6256e-01_jprb,3.8746e-01_jprb/)
1141 kbo( :,17, 8) = (/&
1142 &2.3458e-01_jprb,2.5937e-01_jprb,2.8268e-01_jprb,3.0493e-01_jprb,3.2595e-01_jprb/)
1143 kbo( :,18, 8) = (/&
1144 &1.9764e-01_jprb,2.1801e-01_jprb,2.3742e-01_jprb,2.5590e-01_jprb,2.7378e-01_jprb/)
1145 kbo( :,19, 8) = (/&
1146 &1.6729e-01_jprb,1.8411e-01_jprb,2.0019e-01_jprb,2.1556e-01_jprb,2.3089e-01_jprb/)
1147 kbo( :,20, 8) = (/&
1148 &1.4346e-01_jprb,1.5764e-01_jprb,1.7106e-01_jprb,1.8428e-01_jprb,1.9747e-01_jprb/)
1149 kbo( :,21, 8) = (/&
1150 &1.2344e-01_jprb,1.3538e-01_jprb,1.4684e-01_jprb,1.5826e-01_jprb,1.6972e-01_jprb/)
1151 kbo( :,22, 8) = (/&
1152 &1.0677e-01_jprb,1.1691e-01_jprb,1.2686e-01_jprb,1.3681e-01_jprb,1.4681e-01_jprb/)
1153 kbo( :,23, 8) = (/&
1154 &9.2153e-02_jprb,1.0099e-01_jprb,1.0971e-01_jprb,1.1847e-01_jprb,1.2717e-01_jprb/)
1155 kbo( :,24, 8) = (/&
1156 &7.9606e-02_jprb,8.7367e-02_jprb,9.5083e-02_jprb,1.0275e-01_jprb,1.1037e-01_jprb/)
1157 kbo( :,25, 8) = (/&
1158 &6.8847e-02_jprb,7.5684e-02_jprb,8.2485e-02_jprb,8.9220e-02_jprb,9.5941e-02_jprb/)
1159 kbo( :,26, 8) = (/&
1160 &5.9776e-02_jprb,6.5803e-02_jprb,7.1776e-02_jprb,7.7759e-02_jprb,8.3752e-02_jprb/)
1161 kbo( :,27, 8) = (/&
1162 &5.1998e-02_jprb,5.7305e-02_jprb,6.2592e-02_jprb,6.7931e-02_jprb,7.3284e-02_jprb/)
1163 kbo( :,28, 8) = (/&
1164 &4.5335e-02_jprb,5.0017e-02_jprb,5.4715e-02_jprb,5.9468e-02_jprb,6.4255e-02_jprb/)
1165 kbo( :,29, 8) = (/&
1166 &3.9576e-02_jprb,4.3721e-02_jprb,4.7903e-02_jprb,5.2114e-02_jprb,5.6419e-02_jprb/)
1167 kbo( :,30, 8) = (/&
1168 &3.4575e-02_jprb,3.8250e-02_jprb,4.1958e-02_jprb,4.5723e-02_jprb,4.9573e-02_jprb/)
1169 kbo( :,31, 8) = (/&
1170 &3.0216e-02_jprb,3.3461e-02_jprb,3.6737e-02_jprb,4.0102e-02_jprb,4.3522e-02_jprb/)
1171 kbo( :,32, 8) = (/&
1172 &2.6463e-02_jprb,2.9325e-02_jprb,3.2235e-02_jprb,3.5225e-02_jprb,3.8255e-02_jprb/)
1173 kbo( :,33, 8) = (/&
1174 &2.3214e-02_jprb,2.5730e-02_jprb,2.8315e-02_jprb,3.0956e-02_jprb,3.3645e-02_jprb/)
1175 kbo( :,34, 8) = (/&
1176 &2.0354e-02_jprb,2.2577e-02_jprb,2.4858e-02_jprb,2.7195e-02_jprb,2.9569e-02_jprb/)
1177 kbo( :,35, 8) = (/&
1178 &1.7652e-02_jprb,1.9611e-02_jprb,2.1620e-02_jprb,2.3679e-02_jprb,2.5793e-02_jprb/)
1179 kbo( :,36, 8) = (/&
1180 &1.5121e-02_jprb,1.6837e-02_jprb,1.8603e-02_jprb,2.0413e-02_jprb,2.2284e-02_jprb/)
1181 kbo( :,37, 8) = (/&
1182 &1.2910e-02_jprb,1.4438e-02_jprb,1.6023e-02_jprb,1.7651e-02_jprb,1.9335e-02_jprb/)
1183 kbo( :,38, 8) = (/&
1184 &1.1016e-02_jprb,1.2377e-02_jprb,1.3800e-02_jprb,1.5264e-02_jprb,1.6785e-02_jprb/)
1185 kbo( :,39, 8) = (/&
1186 &9.3971e-03_jprb,1.0610e-02_jprb,1.1882e-02_jprb,1.3195e-02_jprb,1.4575e-02_jprb/)
1187 kbo( :,40, 8) = (/&
1188 &8.0032e-03_jprb,9.0996e-03_jprb,1.0249e-02_jprb,1.1449e-02_jprb,1.2715e-02_jprb/)
1189 kbo( :,41, 8) = (/&
1190 &6.8143e-03_jprb,7.8019e-03_jprb,8.8465e-03_jprb,9.9478e-03_jprb,1.1108e-02_jprb/)
1191 kbo( :,42, 8) = (/&
1192 &5.7987e-03_jprb,6.6880e-03_jprb,7.6360e-03_jprb,8.6473e-03_jprb,9.7138e-03_jprb/)
1193 kbo( :,43, 8) = (/&
1194 &4.9102e-03_jprb,5.7128e-03_jprb,6.5767e-03_jprb,7.5054e-03_jprb,8.4907e-03_jprb/)
1195 kbo( :,44, 8) = (/&
1196 &4.1435e-03_jprb,4.8687e-03_jprb,5.6557e-03_jprb,6.5117e-03_jprb,7.4261e-03_jprb/)
1197 kbo( :,45, 8) = (/&
1198 &3.4889e-03_jprb,4.1453e-03_jprb,4.8619e-03_jprb,5.6491e-03_jprb,6.4985e-03_jprb/)
1199 kbo( :,46, 8) = (/&
1200 &2.9183e-03_jprb,3.5111e-03_jprb,4.1627e-03_jprb,4.8843e-03_jprb,5.6717e-03_jprb/)
1201 kbo( :,47, 8) = (/&
1202 &2.4091e-03_jprb,2.9412e-03_jprb,3.5329e-03_jprb,4.1906e-03_jprb,4.9179e-03_jprb/)
1203 kbo( :,48, 8) = (/&
1204 &1.9761e-03_jprb,2.4516e-03_jprb,2.9867e-03_jprb,3.5873e-03_jprb,4.2592e-03_jprb/)
1205 kbo( :,49, 8) = (/&
1206 &1.6100e-03_jprb,2.0311e-03_jprb,2.5133e-03_jprb,3.0616e-03_jprb,3.6821e-03_jprb/)
1207 kbo( :,50, 8) = (/&
1208 &1.3098e-03_jprb,1.6814e-03_jprb,2.1143e-03_jprb,2.6145e-03_jprb,3.1877e-03_jprb/)
1209 kbo( :,51, 8) = (/&
1210 &1.0616e-03_jprb,1.3873e-03_jprb,1.7732e-03_jprb,2.2275e-03_jprb,2.7552e-03_jprb/)
1211 kbo( :,52, 8) = (/&
1212 &8.5431e-04_jprb,1.1375e-03_jprb,1.4802e-03_jprb,1.8899e-03_jprb,2.3744e-03_jprb/)
1213 kbo( :,53, 8) = (/&
1214 &6.8250e-04_jprb,9.2625e-04_jprb,1.2281e-03_jprb,1.5967e-03_jprb,2.0393e-03_jprb/)
1215 kbo( :,54, 8) = (/&
1216 &5.4646e-04_jprb,7.5582e-04_jprb,1.0218e-03_jprb,1.3535e-03_jprb,1.7581e-03_jprb/)
1217 kbo( :,55, 8) = (/&
1218 &4.3631e-04_jprb,6.1609e-04_jprb,8.4963e-04_jprb,1.1470e-03_jprb,1.5165e-03_jprb/)
1219 kbo( :,56, 8) = (/&
1220 &3.4597e-04_jprb,4.9939e-04_jprb,7.0303e-04_jprb,9.6849e-04_jprb,1.3045e-03_jprb/)
1221 kbo( :,57, 8) = (/&
1222 &2.7231e-04_jprb,4.0225e-04_jprb,5.7843e-04_jprb,8.1401e-04_jprb,1.1188e-03_jprb/)
1223 kbo( :,58, 8) = (/&
1224 &2.1404e-04_jprb,3.2388e-04_jprb,4.7635e-04_jprb,6.8490e-04_jprb,9.6152e-04_jprb/)
1225 kbo( :,59, 8) = (/&
1226 &1.8077e-04_jprb,2.7867e-04_jprb,4.1775e-04_jprb,6.1150e-04_jprb,8.7266e-04_jprb/)
1227 kbo( :,13, 9) = (/&
1228 &2.7435e+00_jprb,3.0906e+00_jprb,3.4108e+00_jprb,3.6982e+00_jprb,3.9627e+00_jprb/)
1229 kbo( :,14, 9) = (/&
1230 &2.3802e+00_jprb,2.6705e+00_jprb,2.9382e+00_jprb,3.1823e+00_jprb,3.4042e+00_jprb/)
1231 kbo( :,15, 9) = (/&
1232 &2.0515e+00_jprb,2.2949e+00_jprb,2.5214e+00_jprb,2.7256e+00_jprb,2.9082e+00_jprb/)
1233 kbo( :,16, 9) = (/&
1234 &1.7616e+00_jprb,1.9678e+00_jprb,2.1547e+00_jprb,2.3237e+00_jprb,2.4783e+00_jprb/)
1235 kbo( :,17, 9) = (/&
1236 &1.5089e+00_jprb,1.6786e+00_jprb,1.8334e+00_jprb,1.9756e+00_jprb,2.1052e+00_jprb/)
1237 kbo( :,18, 9) = (/&
1238 &1.2832e+00_jprb,1.4238e+00_jprb,1.5536e+00_jprb,1.6726e+00_jprb,1.7800e+00_jprb/)
1239 kbo( :,19, 9) = (/&
1240 &1.0879e+00_jprb,1.2054e+00_jprb,1.3138e+00_jprb,1.4118e+00_jprb,1.5002e+00_jprb/)
1241 kbo( :,20, 9) = (/&
1242 &9.2520e-01_jprb,1.0230e+00_jprb,1.1126e+00_jprb,1.1933e+00_jprb,1.2674e+00_jprb/)
1243 kbo( :,21, 9) = (/&
1244 &7.8791e-01_jprb,8.6885e-01_jprb,9.4260e-01_jprb,1.0104e+00_jprb,1.0727e+00_jprb/)
1245 kbo( :,22, 9) = (/&
1246 &6.7633e-01_jprb,7.4273e-01_jprb,8.0382e-01_jprb,8.6005e-01_jprb,9.1295e-01_jprb/)
1247 kbo( :,23, 9) = (/&
1248 &5.8122e-01_jprb,6.3601e-01_jprb,6.8664e-01_jprb,7.3416e-01_jprb,7.7931e-01_jprb/)
1249 kbo( :,24, 9) = (/&
1250 &5.0026e-01_jprb,5.4576e-01_jprb,5.8810e-01_jprb,6.2834e-01_jprb,6.6798e-01_jprb/)
1251 kbo( :,25, 9) = (/&
1252 &4.3213e-01_jprb,4.6996e-01_jprb,5.0587e-01_jprb,5.4068e-01_jprb,5.7579e-01_jprb/)
1253 kbo( :,26, 9) = (/&
1254 &3.7530e-01_jprb,4.0715e-01_jprb,4.3791e-01_jprb,4.6854e-01_jprb,5.0040e-01_jprb/)
1255 kbo( :,27, 9) = (/&
1256 &3.2720e-01_jprb,3.5436e-01_jprb,3.8108e-01_jprb,4.0857e-01_jprb,4.3759e-01_jprb/)
1257 kbo( :,28, 9) = (/&
1258 &2.8625e-01_jprb,3.0981e-01_jprb,3.3353e-01_jprb,3.5864e-01_jprb,3.8484e-01_jprb/)
1259 kbo( :,29, 9) = (/&
1260 &2.5143e-01_jprb,2.7201e-01_jprb,2.9352e-01_jprb,3.1618e-01_jprb,3.4020e-01_jprb/)
1261 kbo( :,30, 9) = (/&
1262 &2.2172e-01_jprb,2.4013e-01_jprb,2.5952e-01_jprb,2.8016e-01_jprb,3.0172e-01_jprb/)
1263 kbo( :,31, 9) = (/&
1264 &1.9610e-01_jprb,2.1281e-01_jprb,2.3037e-01_jprb,2.4895e-01_jprb,2.6850e-01_jprb/)
1265 kbo( :,32, 9) = (/&
1266 &1.7415e-01_jprb,1.8930e-01_jprb,2.0532e-01_jprb,2.2216e-01_jprb,2.3994e-01_jprb/)
1267 kbo( :,33, 9) = (/&
1268 &1.5516e-01_jprb,1.6907e-01_jprb,1.8355e-01_jprb,1.9888e-01_jprb,2.1515e-01_jprb/)
1269 kbo( :,34, 9) = (/&
1270 &1.3857e-01_jprb,1.5131e-01_jprb,1.6462e-01_jprb,1.7854e-01_jprb,1.9347e-01_jprb/)
1271 kbo( :,35, 9) = (/&
1272 &1.2324e-01_jprb,1.3480e-01_jprb,1.4696e-01_jprb,1.5978e-01_jprb,1.7337e-01_jprb/)
1273 kbo( :,36, 9) = (/&
1274 &1.0878e-01_jprb,1.1937e-01_jprb,1.3043e-01_jprb,1.4217e-01_jprb,1.5452e-01_jprb/)
1275 kbo( :,37, 9) = (/&
1276 &9.5776e-02_jprb,1.0563e-01_jprb,1.1583e-01_jprb,1.2665e-01_jprb,1.3805e-01_jprb/)
1277 kbo( :,38, 9) = (/&
1278 &8.4466e-02_jprb,9.3612e-02_jprb,1.0315e-01_jprb,1.1317e-01_jprb,1.2370e-01_jprb/)
1279 kbo( :,39, 9) = (/&
1280 &7.4614e-02_jprb,8.3124e-02_jprb,9.2043e-02_jprb,1.0145e-01_jprb,1.1118e-01_jprb/)
1281 kbo( :,40, 9) = (/&
1282 &6.5857e-02_jprb,7.3870e-02_jprb,8.2261e-02_jprb,9.1193e-02_jprb,1.0040e-01_jprb/)
1283 kbo( :,41, 9) = (/&
1284 &5.8183e-02_jprb,6.5774e-02_jprb,7.3720e-02_jprb,8.2197e-02_jprb,9.1007e-02_jprb/)
1285 kbo( :,42, 9) = (/&
1286 &5.1461e-02_jprb,5.8649e-02_jprb,6.6221e-02_jprb,7.4278e-02_jprb,8.2751e-02_jprb/)
1287 kbo( :,43, 9) = (/&
1288 &4.5392e-02_jprb,5.2200e-02_jprb,5.9437e-02_jprb,6.7121e-02_jprb,7.5296e-02_jprb/)
1289 kbo( :,44, 9) = (/&
1290 &4.0017e-02_jprb,4.6452e-02_jprb,5.3355e-02_jprb,6.0754e-02_jprb,6.8643e-02_jprb/)
1291 kbo( :,45, 9) = (/&
1292 &3.5304e-02_jprb,4.1396e-02_jprb,4.7987e-02_jprb,5.5092e-02_jprb,6.2720e-02_jprb/)
1293 kbo( :,46, 9) = (/&
1294 &3.1075e-02_jprb,3.6822e-02_jprb,4.3097e-02_jprb,4.9898e-02_jprb,5.7283e-02_jprb/)
1295 kbo( :,47, 9) = (/&
1296 &2.7177e-02_jprb,3.2558e-02_jprb,3.8513e-02_jprb,4.5021e-02_jprb,5.2127e-02_jprb/)
1297 kbo( :,48, 9) = (/&
1298 &2.3744e-02_jprb,2.8781e-02_jprb,3.4434e-02_jprb,4.0680e-02_jprb,4.7484e-02_jprb/)
1299 kbo( :,49, 9) = (/&
1300 &2.0728e-02_jprb,2.5421e-02_jprb,3.0794e-02_jprb,3.6770e-02_jprb,4.3357e-02_jprb/)
1301 kbo( :,50, 9) = (/&
1302 &1.8168e-02_jprb,2.2568e-02_jprb,2.7658e-02_jprb,3.3413e-02_jprb,3.9781e-02_jprb/)
1303 kbo( :,51, 9) = (/&
1304 &1.5961e-02_jprb,2.0091e-02_jprb,2.4921e-02_jprb,3.0460e-02_jprb,3.6640e-02_jprb/)
1305 kbo( :,52, 9) = (/&
1306 &1.4012e-02_jprb,1.7898e-02_jprb,2.2474e-02_jprb,2.7799e-02_jprb,3.3804e-02_jprb/)
1307 kbo( :,53, 9) = (/&
1308 &1.2274e-02_jprb,1.5954e-02_jprb,2.0286e-02_jprb,2.5396e-02_jprb,3.1223e-02_jprb/)
1309 kbo( :,54, 9) = (/&
1310 &1.0807e-02_jprb,1.4326e-02_jprb,1.8466e-02_jprb,2.3375e-02_jprb,2.9075e-02_jprb/)
1311 kbo( :,55, 9) = (/&
1312 &9.5319e-03_jprb,1.2915e-02_jprb,1.6895e-02_jprb,2.1632e-02_jprb,2.7210e-02_jprb/)
1313 kbo( :,56, 9) = (/&
1314 &8.3912e-03_jprb,1.1632e-02_jprb,1.5477e-02_jprb,2.0079e-02_jprb,2.5547e-02_jprb/)
1315 kbo( :,57, 9) = (/&
1316 &7.3723e-03_jprb,1.0474e-02_jprb,1.4207e-02_jprb,1.8687e-02_jprb,2.4063e-02_jprb/)
1317 kbo( :,58, 9) = (/&
1318 &6.4991e-03_jprb,9.4761e-03_jprb,1.3112e-02_jprb,1.7511e-02_jprb,2.2815e-02_jprb/)
1319 kbo( :,59, 9) = (/&
1320 &6.1473e-03_jprb,9.1090e-03_jprb,1.2767e-02_jprb,1.7218e-02_jprb,2.2606e-02_jprb/)
1321 kbo( :,13,10) = (/&
1322 &1.1116e+01_jprb,1.2524e+01_jprb,1.3896e+01_jprb,1.5268e+01_jprb,1.6536e+01_jprb/)
1323 kbo( :,14,10) = (/&
1324 &9.9682e+00_jprb,1.1262e+01_jprb,1.2560e+01_jprb,1.3723e+01_jprb,1.4792e+01_jprb/)
1325 kbo( :,15,10) = (/&
1326 &8.8893e+00_jprb,1.0059e+01_jprb,1.1121e+01_jprb,1.2116e+01_jprb,1.3075e+01_jprb/)
1327 kbo( :,16,10) = (/&
1328 &7.8467e+00_jprb,8.8032e+00_jprb,9.7316e+00_jprb,1.0625e+01_jprb,1.1425e+01_jprb/)
1329 kbo( :,17,10) = (/&
1330 &6.8078e+00_jprb,7.6463e+00_jprb,8.4707e+00_jprb,9.1981e+00_jprb,9.8604e+00_jprb/)
1331 kbo( :,18,10) = (/&
1332 &5.9071e+00_jprb,6.6462e+00_jprb,7.3087e+00_jprb,7.9162e+00_jprb,8.4956e+00_jprb/)
1333 kbo( :,19,10) = (/&
1334 &5.1307e+00_jprb,5.7208e+00_jprb,6.2833e+00_jprb,6.8158e+00_jprb,7.3233e+00_jprb/)
1335 kbo( :,20,10) = (/&
1336 &4.4064e+00_jprb,4.9086e+00_jprb,5.4011e+00_jprb,5.8668e+00_jprb,6.2919e+00_jprb/)
1337 kbo( :,21,10) = (/&
1338 &3.7746e+00_jprb,4.2108e+00_jprb,4.6377e+00_jprb,5.0222e+00_jprb,5.3698e+00_jprb/)
1339 kbo( :,22,10) = (/&
1340 &3.2585e+00_jprb,3.6369e+00_jprb,3.9831e+00_jprb,4.2976e+00_jprb,4.5905e+00_jprb/)
1341 kbo( :,23,10) = (/&
1342 &2.8213e+00_jprb,3.1329e+00_jprb,3.4129e+00_jprb,3.6764e+00_jprb,3.9234e+00_jprb/)
1343 kbo( :,24,10) = (/&
1344 &2.4431e+00_jprb,2.6958e+00_jprb,2.9321e+00_jprb,3.1552e+00_jprb,3.3597e+00_jprb/)
1345 kbo( :,25,10) = (/&
1346 &2.1126e+00_jprb,2.3241e+00_jprb,2.5221e+00_jprb,2.7073e+00_jprb,2.8751e+00_jprb/)
1347 kbo( :,26,10) = (/&
1348 &1.8249e+00_jprb,2.0037e+00_jprb,2.1706e+00_jprb,2.3266e+00_jprb,2.4674e+00_jprb/)
1349 kbo( :,27,10) = (/&
1350 &1.5746e+00_jprb,1.7247e+00_jprb,1.8648e+00_jprb,1.9941e+00_jprb,2.1217e+00_jprb/)
1351 kbo( :,28,10) = (/&
1352 &1.3617e+00_jprb,1.4866e+00_jprb,1.6031e+00_jprb,1.7154e+00_jprb,1.8338e+00_jprb/)
1353 kbo( :,29,10) = (/&
1354 &1.1807e+00_jprb,1.2866e+00_jprb,1.3847e+00_jprb,1.4869e+00_jprb,1.6014e+00_jprb/)
1355 kbo( :,30,10) = (/&
1356 &1.0269e+00_jprb,1.1156e+00_jprb,1.2031e+00_jprb,1.3007e+00_jprb,1.4104e+00_jprb/)
1357 kbo( :,31,10) = (/&
1358 &8.9671e-01_jprb,9.7234e-01_jprb,1.0534e+00_jprb,1.1474e+00_jprb,1.2536e+00_jprb/)
1359 kbo( :,32,10) = (/&
1360 &7.8677e-01_jprb,8.5519e-01_jprb,9.3281e-01_jprb,1.0217e+00_jprb,1.1241e+00_jprb/)
1361 kbo( :,33,10) = (/&
1362 &6.9580e-01_jprb,7.5947e-01_jprb,8.3338e-01_jprb,9.2124e-01_jprb,1.0172e+00_jprb/)
1363 kbo( :,34,10) = (/&
1364 &6.2020e-01_jprb,6.7933e-01_jprb,7.4919e-01_jprb,8.3240e-01_jprb,9.2556e-01_jprb/)
1365 kbo( :,35,10) = (/&
1366 &5.5258e-01_jprb,6.0746e-01_jprb,6.7338e-01_jprb,7.4935e-01_jprb,8.3904e-01_jprb/)
1367 kbo( :,36,10) = (/&
1368 &4.9155e-01_jprb,5.4163e-01_jprb,6.0187e-01_jprb,6.7186e-01_jprb,7.5578e-01_jprb/)
1369 kbo( :,37,10) = (/&
1370 &4.3530e-01_jprb,4.8026e-01_jprb,5.3386e-01_jprb,5.9737e-01_jprb,6.7325e-01_jprb/)
1371 kbo( :,38,10) = (/&
1372 &3.8752e-01_jprb,4.2820e-01_jprb,4.7540e-01_jprb,5.3327e-01_jprb,6.0315e-01_jprb/)
1373 kbo( :,39,10) = (/&
1374 &3.4711e-01_jprb,3.8416e-01_jprb,4.2683e-01_jprb,4.7819e-01_jprb,5.4308e-01_jprb/)
1375 kbo( :,40,10) = (/&
1376 &3.1156e-01_jprb,3.4469e-01_jprb,3.8303e-01_jprb,4.2846e-01_jprb,4.8625e-01_jprb/)
1377 kbo( :,41,10) = (/&
1378 &2.8072e-01_jprb,3.1142e-01_jprb,3.4605e-01_jprb,3.8706e-01_jprb,4.3793e-01_jprb/)
1379 kbo( :,42,10) = (/&
1380 &2.5421e-01_jprb,2.8301e-01_jprb,3.1501e-01_jprb,3.5201e-01_jprb,3.9774e-01_jprb/)
1381 kbo( :,43,10) = (/&
1382 &2.3024e-01_jprb,2.5750e-01_jprb,2.8768e-01_jprb,3.2168e-01_jprb,3.6246e-01_jprb/)
1383 kbo( :,44,10) = (/&
1384 &2.0882e-01_jprb,2.3454e-01_jprb,2.6350e-01_jprb,2.9554e-01_jprb,3.3285e-01_jprb/)
1385 kbo( :,45,10) = (/&
1386 &1.8997e-01_jprb,2.1445e-01_jprb,2.4251e-01_jprb,2.7313e-01_jprb,3.0812e-01_jprb/)
1387 kbo( :,46,10) = (/&
1388 &1.7240e-01_jprb,1.9626e-01_jprb,2.2342e-01_jprb,2.5309e-01_jprb,2.8552e-01_jprb/)
1389 kbo( :,47,10) = (/&
1390 &1.5588e-01_jprb,1.7894e-01_jprb,2.0504e-01_jprb,2.3411e-01_jprb,2.6565e-01_jprb/)
1391 kbo( :,48,10) = (/&
1392 &1.4123e-01_jprb,1.6344e-01_jprb,1.8846e-01_jprb,2.1670e-01_jprb,2.4797e-01_jprb/)
1393 kbo( :,49,10) = (/&
1394 &1.2790e-01_jprb,1.4966e-01_jprb,1.7367e-01_jprb,2.0107e-01_jprb,2.3131e-01_jprb/)
1395 kbo( :,50,10) = (/&
1396 &1.1631e-01_jprb,1.3796e-01_jprb,1.6097e-01_jprb,1.8742e-01_jprb,2.1727e-01_jprb/)
1397 kbo( :,51,10) = (/&
1398 &1.0575e-01_jprb,1.2733e-01_jprb,1.4991e-01_jprb,1.7544e-01_jprb,2.0476e-01_jprb/)
1399 kbo( :,52,10) = (/&
1400 &9.6036e-02_jprb,1.1774e-01_jprb,1.4002e-01_jprb,1.6481e-01_jprb,1.9345e-01_jprb/)
1401 kbo( :,53,10) = (/&
1402 &8.7304e-02_jprb,1.0881e-01_jprb,1.3107e-01_jprb,1.5527e-01_jprb,1.8336e-01_jprb/)
1403 kbo( :,54,10) = (/&
1404 &7.9875e-02_jprb,1.0109e-01_jprb,1.2361e-01_jprb,1.4762e-01_jprb,1.7497e-01_jprb/)
1405 kbo( :,55,10) = (/&
1406 &7.3300e-02_jprb,9.4374e-02_jprb,1.1713e-01_jprb,1.4114e-01_jprb,1.6800e-01_jprb/)
1407 kbo( :,56,10) = (/&
1408 &6.7351e-02_jprb,8.8262e-02_jprb,1.1132e-01_jprb,1.3535e-01_jprb,1.6204e-01_jprb/)
1409 kbo( :,57,10) = (/&
1410 &6.1746e-02_jprb,8.2507e-02_jprb,1.0564e-01_jprb,1.3036e-01_jprb,1.5696e-01_jprb/)
1411 kbo( :,58,10) = (/&
1412 &5.6716e-02_jprb,7.7524e-02_jprb,1.0086e-01_jprb,1.2629e-01_jprb,1.5285e-01_jprb/)
1413 kbo( :,59,10) = (/&
1414 &5.5147e-02_jprb,7.6460e-02_jprb,1.0042e-01_jprb,1.2667e-01_jprb,1.5391e-01_jprb/)
1415 kbo( :,13,11) = (/&
1416 &1.8957e+01_jprb,2.1748e+01_jprb,2.4276e+01_jprb,2.6474e+01_jprb,2.8529e+01_jprb/)
1417 kbo( :,14,11) = (/&
1418 &1.8017e+01_jprb,2.0380e+01_jprb,2.2545e+01_jprb,2.4583e+01_jprb,2.6571e+01_jprb/)
1419 kbo( :,15,11) = (/&
1420 &1.6510e+01_jprb,1.8590e+01_jprb,2.0569e+01_jprb,2.2529e+01_jprb,2.4350e+01_jprb/)
1421 kbo( :,16,11) = (/&
1422 &1.4872e+01_jprb,1.6760e+01_jprb,1.8614e+01_jprb,2.0335e+01_jprb,2.1912e+01_jprb/)
1423 kbo( :,17,11) = (/&
1424 &1.3279e+01_jprb,1.4995e+01_jprb,1.6568e+01_jprb,1.8053e+01_jprb,1.9485e+01_jprb/)
1425 kbo( :,18,11) = (/&
1426 &1.1753e+01_jprb,1.3179e+01_jprb,1.4580e+01_jprb,1.5907e+01_jprb,1.7114e+01_jprb/)
1427 kbo( :,19,11) = (/&
1428 &1.0231e+01_jprb,1.1513e+01_jprb,1.2740e+01_jprb,1.3859e+01_jprb,1.4884e+01_jprb/)
1429 kbo( :,20,11) = (/&
1430 &8.9451e+00_jprb,1.0050e+01_jprb,1.1073e+01_jprb,1.1999e+01_jprb,1.2912e+01_jprb/)
1431 kbo( :,21,11) = (/&
1432 &7.7987e+00_jprb,8.7082e+00_jprb,9.5625e+00_jprb,1.0395e+01_jprb,1.1226e+01_jprb/)
1433 kbo( :,22,11) = (/&
1434 &6.8043e+00_jprb,7.5642e+00_jprb,8.3187e+00_jprb,9.0767e+00_jprb,9.8017e+00_jprb/)
1435 kbo( :,23,11) = (/&
1436 &5.8859e+00_jprb,6.5615e+00_jprb,7.2498e+00_jprb,7.9149e+00_jprb,8.5372e+00_jprb/)
1437 kbo( :,24,11) = (/&
1438 &5.1134e+00_jprb,5.7222e+00_jprb,6.3175e+00_jprb,6.8808e+00_jprb,7.4024e+00_jprb/)
1439 kbo( :,25,11) = (/&
1440 &4.4669e+00_jprb,4.9952e+00_jprb,5.4997e+00_jprb,5.9652e+00_jprb,6.4204e+00_jprb/)
1441 kbo( :,26,11) = (/&
1442 &3.9220e+00_jprb,4.3661e+00_jprb,4.7791e+00_jprb,5.1780e+00_jprb,5.5750e+00_jprb/)
1443 kbo( :,27,11) = (/&
1444 &3.4424e+00_jprb,3.8118e+00_jprb,4.1663e+00_jprb,4.5195e+00_jprb,4.8555e+00_jprb/)
1445 kbo( :,28,11) = (/&
1446 &3.0179e+00_jprb,3.3339e+00_jprb,3.6464e+00_jprb,3.9515e+00_jprb,4.2432e+00_jprb/)
1447 kbo( :,29,11) = (/&
1448 &2.6509e+00_jprb,2.9253e+00_jprb,3.1964e+00_jprb,3.4617e+00_jprb,3.7117e+00_jprb/)
1449 kbo( :,30,11) = (/&
1450 &2.3307e+00_jprb,2.5742e+00_jprb,2.8104e+00_jprb,3.0372e+00_jprb,3.2705e+00_jprb/)
1451 kbo( :,31,11) = (/&
1452 &2.0517e+00_jprb,2.2676e+00_jprb,2.4784e+00_jprb,2.6845e+00_jprb,2.9117e+00_jprb/)
1453 kbo( :,32,11) = (/&
1454 &1.8127e+00_jprb,2.0021e+00_jprb,2.1892e+00_jprb,2.3933e+00_jprb,2.6228e+00_jprb/)
1455 kbo( :,33,11) = (/&
1456 &1.6070e+00_jprb,1.7736e+00_jprb,1.9506e+00_jprb,2.1502e+00_jprb,2.3904e+00_jprb/)
1457 kbo( :,34,11) = (/&
1458 &1.4245e+00_jprb,1.5783e+00_jprb,1.7496e+00_jprb,1.9501e+00_jprb,2.1946e+00_jprb/)
1459 kbo( :,35,11) = (/&
1460 &1.2566e+00_jprb,1.4023e+00_jprb,1.5672e+00_jprb,1.7720e+00_jprb,2.0104e+00_jprb/)
1461 kbo( :,36,11) = (/&
1462 &1.1042e+00_jprb,1.2386e+00_jprb,1.4007e+00_jprb,1.6008e+00_jprb,1.8331e+00_jprb/)
1463 kbo( :,37,11) = (/&
1464 &9.6207e-01_jprb,1.0840e+00_jprb,1.2374e+00_jprb,1.4256e+00_jprb,1.6496e+00_jprb/)
1465 kbo( :,38,11) = (/&
1466 &8.4455e-01_jprb,9.5449e-01_jprb,1.0990e+00_jprb,1.2750e+00_jprb,1.4911e+00_jprb/)
1467 kbo( :,39,11) = (/&
1468 &7.4626e-01_jprb,8.4779e-01_jprb,9.8068e-01_jprb,1.1482e+00_jprb,1.3562e+00_jprb/)
1469 kbo( :,40,11) = (/&
1470 &6.5687e-01_jprb,7.4696e-01_jprb,8.6819e-01_jprb,1.0227e+00_jprb,1.2185e+00_jprb/)
1471 kbo( :,41,11) = (/&
1472 &5.8461e-01_jprb,6.6225e-01_jprb,7.7143e-01_jprb,9.1274e-01_jprb,1.0964e+00_jprb/)
1473 kbo( :,42,11) = (/&
1474 &5.2648e-01_jprb,5.9347e-01_jprb,6.8980e-01_jprb,8.2031e-01_jprb,9.9027e-01_jprb/)
1475 kbo( :,43,11) = (/&
1476 &4.7640e-01_jprb,5.3372e-01_jprb,6.1655e-01_jprb,7.3335e-01_jprb,8.8864e-01_jprb/)
1477 kbo( :,44,11) = (/&
1478 &4.3331e-01_jprb,4.8509e-01_jprb,5.5515e-01_jprb,6.5677e-01_jprb,7.9761e-01_jprb/)
1479 kbo( :,45,11) = (/&
1480 &3.9738e-01_jprb,4.4505e-01_jprb,5.0582e-01_jprb,5.9392e-01_jprb,7.1934e-01_jprb/)
1481 kbo( :,46,11) = (/&
1482 &3.6702e-01_jprb,4.1005e-01_jprb,4.6451e-01_jprb,5.4011e-01_jprb,6.5038e-01_jprb/)
1483 kbo( :,47,11) = (/&
1484 &3.3839e-01_jprb,3.7909e-01_jprb,4.2775e-01_jprb,4.9390e-01_jprb,5.8796e-01_jprb/)
1485 kbo( :,48,11) = (/&
1486 &3.1214e-01_jprb,3.5328e-01_jprb,3.9721e-01_jprb,4.5625e-01_jprb,5.3740e-01_jprb/)
1487 kbo( :,49,11) = (/&
1488 &2.8824e-01_jprb,3.3045e-01_jprb,3.7202e-01_jprb,4.2475e-01_jprb,4.9686e-01_jprb/)
1489 kbo( :,50,11) = (/&
1490 &2.6700e-01_jprb,3.0926e-01_jprb,3.5179e-01_jprb,3.9959e-01_jprb,4.6448e-01_jprb/)
1491 kbo( :,51,11) = (/&
1492 &2.4729e-01_jprb,2.9050e-01_jprb,3.3394e-01_jprb,3.7954e-01_jprb,4.3852e-01_jprb/)
1493 kbo( :,52,11) = (/&
1494 &2.2915e-01_jprb,2.7331e-01_jprb,3.1717e-01_jprb,3.6223e-01_jprb,4.1654e-01_jprb/)
1495 kbo( :,53,11) = (/&
1496 &2.1197e-01_jprb,2.5644e-01_jprb,3.0181e-01_jprb,3.4764e-01_jprb,3.9788e-01_jprb/)
1497 kbo( :,54,11) = (/&
1498 &1.9678e-01_jprb,2.4209e-01_jprb,2.8845e-01_jprb,3.3563e-01_jprb,3.8416e-01_jprb/)
1499 kbo( :,55,11) = (/&
1500 &1.8279e-01_jprb,2.2890e-01_jprb,2.7659e-01_jprb,3.2457e-01_jprb,3.7331e-01_jprb/)
1501 kbo( :,56,11) = (/&
1502 &1.6948e-01_jprb,2.1660e-01_jprb,2.6478e-01_jprb,3.1391e-01_jprb,3.6327e-01_jprb/)
1503 kbo( :,57,11) = (/&
1504 &1.5665e-01_jprb,2.0505e-01_jprb,2.5378e-01_jprb,3.0423e-01_jprb,3.5431e-01_jprb/)
1505 kbo( :,58,11) = (/&
1506 &1.4542e-01_jprb,1.9412e-01_jprb,2.4425e-01_jprb,2.9539e-01_jprb,3.4713e-01_jprb/)
1507 kbo( :,59,11) = (/&
1508 &1.4258e-01_jprb,1.9210e-01_jprb,2.4323e-01_jprb,2.9526e-01_jprb,3.4821e-01_jprb/)
1509 kbo( :,13,12) = (/&
1510 &3.3441e+01_jprb,3.7821e+01_jprb,4.2136e+01_jprb,4.6394e+01_jprb,5.0550e+01_jprb/)
1511 kbo( :,14,12) = (/&
1512 &3.2651e+01_jprb,3.7152e+01_jprb,4.1595e+01_jprb,4.5890e+01_jprb,4.9879e+01_jprb/)
1513 kbo( :,15,12) = (/&
1514 &3.1800e+01_jprb,3.6293e+01_jprb,4.0605e+01_jprb,4.4452e+01_jprb,4.7952e+01_jprb/)
1515 kbo( :,16,12) = (/&
1516 &3.0652e+01_jprb,3.4834e+01_jprb,3.8488e+01_jprb,4.1902e+01_jprb,4.5172e+01_jprb/)
1517 kbo( :,17,12) = (/&
1518 &2.8740e+01_jprb,3.2239e+01_jprb,3.5631e+01_jprb,3.8859e+01_jprb,4.1888e+01_jprb/)
1519 kbo( :,18,12) = (/&
1520 &2.6152e+01_jprb,2.9383e+01_jprb,3.2433e+01_jprb,3.5444e+01_jprb,3.8304e+01_jprb/)
1521 kbo( :,19,12) = (/&
1522 &2.3535e+01_jprb,2.6428e+01_jprb,2.9253e+01_jprb,3.1986e+01_jprb,3.4626e+01_jprb/)
1523 kbo( :,20,12) = (/&
1524 &2.1009e+01_jprb,2.3665e+01_jprb,2.6170e+01_jprb,2.8648e+01_jprb,3.1009e+01_jprb/)
1525 kbo( :,21,12) = (/&
1526 &1.8666e+01_jprb,2.0970e+01_jprb,2.3240e+01_jprb,2.5449e+01_jprb,2.7590e+01_jprb/)
1527 kbo( :,22,12) = (/&
1528 &1.6562e+01_jprb,1.8637e+01_jprb,2.0680e+01_jprb,2.2664e+01_jprb,2.4579e+01_jprb/)
1529 kbo( :,23,12) = (/&
1530 &1.4724e+01_jprb,1.6583e+01_jprb,1.8398e+01_jprb,2.0130e+01_jprb,2.1853e+01_jprb/)
1531 kbo( :,24,12) = (/&
1532 &1.3115e+01_jprb,1.4740e+01_jprb,1.6306e+01_jprb,1.7839e+01_jprb,1.9442e+01_jprb/)
1533 kbo( :,25,12) = (/&
1534 &1.1682e+01_jprb,1.3060e+01_jprb,1.4446e+01_jprb,1.5890e+01_jprb,1.7412e+01_jprb/)
1535 kbo( :,26,12) = (/&
1536 &1.0376e+01_jprb,1.1606e+01_jprb,1.2912e+01_jprb,1.4282e+01_jprb,1.5708e+01_jprb/)
1537 kbo( :,27,12) = (/&
1538 &9.2264e+00_jprb,1.0375e+01_jprb,1.1611e+01_jprb,1.2892e+01_jprb,1.4269e+01_jprb/)
1539 kbo( :,28,12) = (/&
1540 &8.2384e+00_jprb,9.3278e+00_jprb,1.0501e+01_jprb,1.1713e+01_jprb,1.3001e+01_jprb/)
1541 kbo( :,29,12) = (/&
1542 &7.4191e+00_jprb,8.4528e+00_jprb,9.5480e+00_jprb,1.0688e+01_jprb,1.1930e+01_jprb/)
1543 kbo( :,30,12) = (/&
1544 &6.7411e+00_jprb,7.6959e+00_jprb,8.7238e+00_jprb,9.8332e+00_jprb,1.1024e+01_jprb/)
1545 kbo( :,31,12) = (/&
1546 &6.1743e+00_jprb,7.0565e+00_jprb,8.0433e+00_jprb,9.1146e+00_jprb,1.0281e+01_jprb/)
1547 kbo( :,32,12) = (/&
1548 &5.6829e+00_jprb,6.5368e+00_jprb,7.4832e+00_jprb,8.5285e+00_jprb,9.6975e+00_jprb/)
1549 kbo( :,33,12) = (/&
1550 &5.2696e+00_jprb,6.1016e+00_jprb,7.0284e+00_jprb,8.0819e+00_jprb,9.2712e+00_jprb/)
1551 kbo( :,34,12) = (/&
1552 &4.9064e+00_jprb,5.7181e+00_jprb,6.6470e+00_jprb,7.7097e+00_jprb,8.9376e+00_jprb/)
1553 kbo( :,35,12) = (/&
1554 &4.5385e+00_jprb,5.3339e+00_jprb,6.2645e+00_jprb,7.3393e+00_jprb,8.6167e+00_jprb/)
1555 kbo( :,36,12) = (/&
1556 &4.1592e+00_jprb,4.9372e+00_jprb,5.8640e+00_jprb,6.9463e+00_jprb,8.2444e+00_jprb/)
1557 kbo( :,37,12) = (/&
1558 &3.7366e+00_jprb,4.4851e+00_jprb,5.3891e+00_jprb,6.4562e+00_jprb,7.7447e+00_jprb/)
1559 kbo( :,38,12) = (/&
1560 &3.3663e+00_jprb,4.0921e+00_jprb,4.9726e+00_jprb,6.0256e+00_jprb,7.2966e+00_jprb/)
1561 kbo( :,39,12) = (/&
1562 &3.0524e+00_jprb,3.7541e+00_jprb,4.6132e+00_jprb,5.6531e+00_jprb,6.9025e+00_jprb/)
1563 kbo( :,40,12) = (/&
1564 &2.7210e+00_jprb,3.3890e+00_jprb,4.2060e+00_jprb,5.2106e+00_jprb,6.4181e+00_jprb/)
1565 kbo( :,41,12) = (/&
1566 &2.4254e+00_jprb,3.0563e+00_jprb,3.8366e+00_jprb,4.7969e+00_jprb,5.9597e+00_jprb/)
1567 kbo( :,42,12) = (/&
1568 &2.1679e+00_jprb,2.7607e+00_jprb,3.5045e+00_jprb,4.4213e+00_jprb,5.5422e+00_jprb/)
1569 kbo( :,43,12) = (/&
1570 &1.9142e+00_jprb,2.4659e+00_jprb,3.1656e+00_jprb,4.0260e+00_jprb,5.0928e+00_jprb/)
1571 kbo( :,44,12) = (/&
1572 &1.6815e+00_jprb,2.1897e+00_jprb,2.8396e+00_jprb,3.6424e+00_jprb,4.6457e+00_jprb/)
1573 kbo( :,45,12) = (/&
1574 &1.4779e+00_jprb,1.9464e+00_jprb,2.5447e+00_jprb,3.2950e+00_jprb,4.2351e+00_jprb/)
1575 kbo( :,46,12) = (/&
1576 &1.2911e+00_jprb,1.7201e+00_jprb,2.2670e+00_jprb,2.9688e+00_jprb,3.8370e+00_jprb/)
1577 kbo( :,47,12) = (/&
1578 &1.1167e+00_jprb,1.4998e+00_jprb,1.9968e+00_jprb,2.6327e+00_jprb,3.4335e+00_jprb/)
1579 kbo( :,48,12) = (/&
1580 &9.7000e-01_jprb,1.3056e+00_jprb,1.7582e+00_jprb,2.3318e+00_jprb,3.0672e+00_jprb/)
1581 kbo( :,49,12) = (/&
1582 &8.4948e-01_jprb,1.1387e+00_jprb,1.5440e+00_jprb,2.0638e+00_jprb,2.7325e+00_jprb/)
1583 kbo( :,50,12) = (/&
1584 &7.5798e-01_jprb,1.0046e+00_jprb,1.3648e+00_jprb,1.8406e+00_jprb,2.4475e+00_jprb/)
1585 kbo( :,51,12) = (/&
1586 &6.8725e-01_jprb,8.9444e-01_jprb,1.2113e+00_jprb,1.6439e+00_jprb,2.1974e+00_jprb/)
1587 kbo( :,52,12) = (/&
1588 &6.3115e-01_jprb,8.0296e-01_jprb,1.0776e+00_jprb,1.4683e+00_jprb,1.9726e+00_jprb/)
1589 kbo( :,53,12) = (/&
1590 &5.8219e-01_jprb,7.2999e-01_jprb,9.6258e-01_jprb,1.3098e+00_jprb,1.7704e+00_jprb/)
1591 kbo( :,54,12) = (/&
1592 &5.4205e-01_jprb,6.7503e-01_jprb,8.7235e-01_jprb,1.1796e+00_jprb,1.6017e+00_jprb/)
1593 kbo( :,55,12) = (/&
1594 &5.0666e-01_jprb,6.3248e-01_jprb,8.0079e-01_jprb,1.0716e+00_jprb,1.4553e+00_jprb/)
1595 kbo( :,56,12) = (/&
1596 &4.7570e-01_jprb,5.9469e-01_jprb,7.4368e-01_jprb,9.7802e-01_jprb,1.3247e+00_jprb/)
1597 kbo( :,57,12) = (/&
1598 &4.4744e-01_jprb,5.6112e-01_jprb,6.9690e-01_jprb,8.9836e-01_jprb,1.2094e+00_jprb/)
1599 kbo( :,58,12) = (/&
1600 &4.2060e-01_jprb,5.3249e-01_jprb,6.6124e-01_jprb,8.3779e-01_jprb,1.1150e+00_jprb/)
1601 kbo( :,59,12) = (/&
1602 &4.1336e-01_jprb,5.2583e-01_jprb,6.5442e-01_jprb,8.2324e-01_jprb,1.0875e+00_jprb/)
1603 kbo( :,13,13) = (/&
1604 &6.2911e+01_jprb,7.0866e+01_jprb,7.8801e+01_jprb,8.6317e+01_jprb,9.3133e+01_jprb/)
1605 kbo( :,14,13) = (/&
1606 &6.4149e+01_jprb,7.2816e+01_jprb,8.0994e+01_jprb,8.8794e+01_jprb,9.5784e+01_jprb/)
1607 kbo( :,15,13) = (/&
1608 &6.5438e+01_jprb,7.4262e+01_jprb,8.2489e+01_jprb,9.0124e+01_jprb,9.7424e+01_jprb/)
1609 kbo( :,16,13) = (/&
1610 &6.5590e+01_jprb,7.4146e+01_jprb,8.2531e+01_jprb,9.0209e+01_jprb,9.7706e+01_jprb/)
1611 kbo( :,17,13) = (/&
1612 &6.4830e+01_jprb,7.3370e+01_jprb,8.1573e+01_jprb,8.9511e+01_jprb,9.7077e+01_jprb/)
1613 kbo( :,18,13) = (/&
1614 &6.3631e+01_jprb,7.1937e+01_jprb,8.0198e+01_jprb,8.8105e+01_jprb,9.5322e+01_jprb/)
1615 kbo( :,19,13) = (/&
1616 &6.1647e+01_jprb,6.9823e+01_jprb,7.7707e+01_jprb,8.5203e+01_jprb,9.2333e+01_jprb/)
1617 kbo( :,20,13) = (/&
1618 &5.9220e+01_jprb,6.6886e+01_jprb,7.4459e+01_jprb,8.1516e+01_jprb,8.8383e+01_jprb/)
1619 kbo( :,21,13) = (/&
1620 &5.5943e+01_jprb,6.3222e+01_jprb,7.0272e+01_jprb,7.7027e+01_jprb,8.3664e+01_jprb/)
1621 kbo( :,22,13) = (/&
1622 &5.2530e+01_jprb,5.9289e+01_jprb,6.5955e+01_jprb,7.2675e+01_jprb,7.9278e+01_jprb/)
1623 kbo( :,23,13) = (/&
1624 &4.8798e+01_jprb,5.5211e+01_jprb,6.1705e+01_jprb,6.8359e+01_jprb,7.5139e+01_jprb/)
1625 kbo( :,24,13) = (/&
1626 &4.5161e+01_jprb,5.1397e+01_jprb,5.7807e+01_jprb,6.4502e+01_jprb,7.1268e+01_jprb/)
1627 kbo( :,25,13) = (/&
1628 &4.1926e+01_jprb,4.8095e+01_jprb,5.4440e+01_jprb,6.1093e+01_jprb,6.7734e+01_jprb/)
1629 kbo( :,26,13) = (/&
1630 &3.9234e+01_jprb,4.5282e+01_jprb,5.1559e+01_jprb,5.8099e+01_jprb,6.4750e+01_jprb/)
1631 kbo( :,27,13) = (/&
1632 &3.7014e+01_jprb,4.2942e+01_jprb,4.9090e+01_jprb,5.5651e+01_jprb,6.2419e+01_jprb/)
1633 kbo( :,28,13) = (/&
1634 &3.5158e+01_jprb,4.0969e+01_jprb,4.7074e+01_jprb,5.3764e+01_jprb,6.0756e+01_jprb/)
1635 kbo( :,29,13) = (/&
1636 &3.3618e+01_jprb,3.9411e+01_jprb,4.5654e+01_jprb,5.2544e+01_jprb,5.9755e+01_jprb/)
1637 kbo( :,30,13) = (/&
1638 &3.2426e+01_jprb,3.8339e+01_jprb,4.4787e+01_jprb,5.1833e+01_jprb,5.9294e+01_jprb/)
1639 kbo( :,31,13) = (/&
1640 &3.1684e+01_jprb,3.7780e+01_jprb,4.4404e+01_jprb,5.1653e+01_jprb,5.9352e+01_jprb/)
1641 kbo( :,32,13) = (/&
1642 &3.1354e+01_jprb,3.7669e+01_jprb,4.4512e+01_jprb,5.1974e+01_jprb,5.9794e+01_jprb/)
1643 kbo( :,33,13) = (/&
1644 &3.1431e+01_jprb,3.7960e+01_jprb,4.5034e+01_jprb,5.2659e+01_jprb,6.0610e+01_jprb/)
1645 kbo( :,34,13) = (/&
1646 &3.1647e+01_jprb,3.8355e+01_jprb,4.5600e+01_jprb,5.3397e+01_jprb,6.1465e+01_jprb/)
1647 kbo( :,35,13) = (/&
1648 &3.1516e+01_jprb,3.8346e+01_jprb,4.5688e+01_jprb,5.3575e+01_jprb,6.1719e+01_jprb/)
1649 kbo( :,36,13) = (/&
1650 &3.0864e+01_jprb,3.7754e+01_jprb,4.5120e+01_jprb,5.3052e+01_jprb,6.1227e+01_jprb/)
1651 kbo( :,37,13) = (/&
1652 &2.9388e+01_jprb,3.6192e+01_jprb,4.3536e+01_jprb,5.1439e+01_jprb,5.9606e+01_jprb/)
1653 kbo( :,38,13) = (/&
1654 &2.7977e+01_jprb,3.4812e+01_jprb,4.2002e+01_jprb,4.9861e+01_jprb,5.8021e+01_jprb/)
1655 kbo( :,39,13) = (/&
1656 &2.6681e+01_jprb,3.3428e+01_jprb,4.0601e+01_jprb,4.8374e+01_jprb,5.6514e+01_jprb/)
1657 kbo( :,40,13) = (/&
1658 &2.4843e+01_jprb,3.1428e+01_jprb,3.8462e+01_jprb,4.6157e+01_jprb,5.4241e+01_jprb/)
1659 kbo( :,41,13) = (/&
1660 &2.3029e+01_jprb,2.9429e+01_jprb,3.6318e+01_jprb,4.3916e+01_jprb,5.1916e+01_jprb/)
1661 kbo( :,42,13) = (/&
1662 &2.1319e+01_jprb,2.7525e+01_jprb,3.4247e+01_jprb,4.1738e+01_jprb,4.9652e+01_jprb/)
1663 kbo( :,43,13) = (/&
1664 &1.9398e+01_jprb,2.5350e+01_jprb,3.1861e+01_jprb,3.9204e+01_jprb,4.6981e+01_jprb/)
1665 kbo( :,44,13) = (/&
1666 &1.7469e+01_jprb,2.3129e+01_jprb,2.9410e+01_jprb,3.6561e+01_jprb,4.4193e+01_jprb/)
1667 kbo( :,45,13) = (/&
1668 &1.5674e+01_jprb,2.1025e+01_jprb,2.7064e+01_jprb,3.4000e+01_jprb,4.1469e+01_jprb/)
1669 kbo( :,46,13) = (/&
1670 &1.3910e+01_jprb,1.8921e+01_jprb,2.4680e+01_jprb,3.1376e+01_jprb,3.8606e+01_jprb/)
1671 kbo( :,47,13) = (/&
1672 &1.2107e+01_jprb,1.6739e+01_jprb,2.2157e+01_jprb,2.8551e+01_jprb,3.5550e+01_jprb/)
1673 kbo( :,48,13) = (/&
1674 &1.0467e+01_jprb,1.4727e+01_jprb,1.9785e+01_jprb,2.5861e+01_jprb,3.2591e+01_jprb/)
1675 kbo( :,49,13) = (/&
1676 &8.9964e+00_jprb,1.2871e+01_jprb,1.7569e+01_jprb,2.3303e+01_jprb,2.9748e+01_jprb/)
1677 kbo( :,50,13) = (/&
1678 &7.7376e+00_jprb,1.1272e+01_jprb,1.5632e+01_jprb,2.1029e+01_jprb,2.7193e+01_jprb/)
1679 kbo( :,51,13) = (/&
1680 &6.6259e+00_jprb,9.8500e+00_jprb,1.3883e+01_jprb,1.8950e+01_jprb,2.4815e+01_jprb/)
1681 kbo( :,52,13) = (/&
1682 &5.6271e+00_jprb,8.5555e+00_jprb,1.2269e+01_jprb,1.6994e+01_jprb,2.2544e+01_jprb/)
1683 kbo( :,53,13) = (/&
1684 &4.7464e+00_jprb,7.3819e+00_jprb,1.0780e+01_jprb,1.5159e+01_jprb,2.0385e+01_jprb/)
1685 kbo( :,54,13) = (/&
1686 &4.0353e+00_jprb,6.3931e+00_jprb,9.5243e+00_jprb,1.3591e+01_jprb,1.8508e+01_jprb/)
1687 kbo( :,55,13) = (/&
1688 &3.4415e+00_jprb,5.5338e+00_jprb,8.4199e+00_jprb,1.2188e+01_jprb,1.6812e+01_jprb/)
1689 kbo( :,56,13) = (/&
1690 &2.9273e+00_jprb,4.7696e+00_jprb,7.4019e+00_jprb,1.0887e+01_jprb,1.5214e+01_jprb/)
1691 kbo( :,57,13) = (/&
1692 &2.4891e+00_jprb,4.0887e+00_jprb,6.4628e+00_jprb,9.6770e+00_jprb,1.3714e+01_jprb/)
1693 kbo( :,58,13) = (/&
1694 &2.1365e+00_jprb,3.5240e+00_jprb,5.6504e+00_jprb,8.6145e+00_jprb,1.2383e+01_jprb/)
1695 kbo( :,59,13) = (/&
1696 &2.0108e+00_jprb,3.3183e+00_jprb,5.3478e+00_jprb,8.2077e+00_jprb,1.1868e+01_jprb/)
1697 kbo( :,13,14) = (/&
1698 &1.3475e+02_jprb,1.4982e+02_jprb,1.6261e+02_jprb,1.7487e+02_jprb,1.8519e+02_jprb/)
1699 kbo( :,14,14) = (/&
1700 &1.4605e+02_jprb,1.6065e+02_jprb,1.7393e+02_jprb,1.8700e+02_jprb,1.9852e+02_jprb/)
1701 kbo( :,15,14) = (/&
1702 &1.5360e+02_jprb,1.6964e+02_jprb,1.8495e+02_jprb,1.9863e+02_jprb,2.1254e+02_jprb/)
1703 kbo( :,16,14) = (/&
1704 &1.6093e+02_jprb,1.7838e+02_jprb,1.9523e+02_jprb,2.1044e+02_jprb,2.2565e+02_jprb/)
1705 kbo( :,17,14) = (/&
1706 &1.6793e+02_jprb,1.8625e+02_jprb,2.0393e+02_jprb,2.2116e+02_jprb,2.3675e+02_jprb/)
1707 kbo( :,18,14) = (/&
1708 &1.7285e+02_jprb,1.9238e+02_jprb,2.1120e+02_jprb,2.2923e+02_jprb,2.4575e+02_jprb/)
1709 kbo( :,19,14) = (/&
1710 &1.7622e+02_jprb,1.9702e+02_jprb,2.1717e+02_jprb,2.3603e+02_jprb,2.5402e+02_jprb/)
1711 kbo( :,20,14) = (/&
1712 &1.7911e+02_jprb,2.0088e+02_jprb,2.2224e+02_jprb,2.4259e+02_jprb,2.6154e+02_jprb/)
1713 kbo( :,21,14) = (/&
1714 &1.8174e+02_jprb,2.0471e+02_jprb,2.2728e+02_jprb,2.4849e+02_jprb,2.6851e+02_jprb/)
1715 kbo( :,22,14) = (/&
1716 &1.8638e+02_jprb,2.1059e+02_jprb,2.3335e+02_jprb,2.5504e+02_jprb,2.7546e+02_jprb/)
1717 kbo( :,23,14) = (/&
1718 &1.9098e+02_jprb,2.1549e+02_jprb,2.3861e+02_jprb,2.6061e+02_jprb,2.8131e+02_jprb/)
1719 kbo( :,24,14) = (/&
1720 &1.9501e+02_jprb,2.1999e+02_jprb,2.4340e+02_jprb,2.6590e+02_jprb,2.8693e+02_jprb/)
1721 kbo( :,25,14) = (/&
1722 &1.9819e+02_jprb,2.2397e+02_jprb,2.4813e+02_jprb,2.7104e+02_jprb,2.9266e+02_jprb/)
1723 kbo( :,26,14) = (/&
1724 &2.0202e+02_jprb,2.2842e+02_jprb,2.5295e+02_jprb,2.7657e+02_jprb,2.9876e+02_jprb/)
1725 kbo( :,27,14) = (/&
1726 &2.0582e+02_jprb,2.3283e+02_jprb,2.5800e+02_jprb,2.8203e+02_jprb,3.0452e+02_jprb/)
1727 kbo( :,28,14) = (/&
1728 &2.1022e+02_jprb,2.3779e+02_jprb,2.6328e+02_jprb,2.8767e+02_jprb,3.1024e+02_jprb/)
1729 kbo( :,29,14) = (/&
1730 &2.1520e+02_jprb,2.4340e+02_jprb,2.6893e+02_jprb,2.9346e+02_jprb,3.1620e+02_jprb/)
1731 kbo( :,30,14) = (/&
1732 &2.2063e+02_jprb,2.4918e+02_jprb,2.7482e+02_jprb,2.9948e+02_jprb,3.2215e+02_jprb/)
1733 kbo( :,31,14) = (/&
1734 &2.2657e+02_jprb,2.5536e+02_jprb,2.8102e+02_jprb,3.0571e+02_jprb,3.2824e+02_jprb/)
1735 kbo( :,32,14) = (/&
1736 &2.3308e+02_jprb,2.6187e+02_jprb,2.8740e+02_jprb,3.1199e+02_jprb,3.3425e+02_jprb/)
1737 kbo( :,33,14) = (/&
1738 &2.3986e+02_jprb,2.6855e+02_jprb,2.9383e+02_jprb,3.1826e+02_jprb,3.4018e+02_jprb/)
1739 kbo( :,34,14) = (/&
1740 &2.4577e+02_jprb,2.7438e+02_jprb,2.9944e+02_jprb,3.2357e+02_jprb,3.4520e+02_jprb/)
1741 kbo( :,35,14) = (/&
1742 &2.4905e+02_jprb,2.7766e+02_jprb,3.0272e+02_jprb,3.2667e+02_jprb,3.4817e+02_jprb/)
1743 kbo( :,36,14) = (/&
1744 &2.4929e+02_jprb,2.7807e+02_jprb,3.0324e+02_jprb,3.2723e+02_jprb,3.4886e+02_jprb/)
1745 kbo( :,37,14) = (/&
1746 &2.4523e+02_jprb,2.7437e+02_jprb,2.9994e+02_jprb,3.2429e+02_jprb,3.4633e+02_jprb/)
1747 kbo( :,38,14) = (/&
1748 &2.4091e+02_jprb,2.6959e+02_jprb,2.9637e+02_jprb,3.2107e+02_jprb,3.4355e+02_jprb/)
1749 kbo( :,39,14) = (/&
1750 &2.3660e+02_jprb,2.6566e+02_jprb,2.9263e+02_jprb,3.1774e+02_jprb,3.4063e+02_jprb/)
1751 kbo( :,40,14) = (/&
1752 &2.2919e+02_jprb,2.5872e+02_jprb,2.8615e+02_jprb,3.1182e+02_jprb,3.3536e+02_jprb/)
1753 kbo( :,41,14) = (/&
1754 &2.2133e+02_jprb,2.5130e+02_jprb,2.7920e+02_jprb,3.0540e+02_jprb,3.2953e+02_jprb/)
1755 kbo( :,42,14) = (/&
1756 &2.1340e+02_jprb,2.4374e+02_jprb,2.7207e+02_jprb,2.9884e+02_jprb,3.2354e+02_jprb/)
1757 kbo( :,43,14) = (/&
1758 &2.0367e+02_jprb,2.3438e+02_jprb,2.6323e+02_jprb,2.9066e+02_jprb,3.1594e+02_jprb/)
1759 kbo( :,44,14) = (/&
1760 &1.9308e+02_jprb,2.2419e+02_jprb,2.5349e+02_jprb,2.8159e+02_jprb,3.0748e+02_jprb/)
1761 kbo( :,45,14) = (/&
1762 &1.8246e+02_jprb,2.1385e+02_jprb,2.4356e+02_jprb,2.7233e+02_jprb,2.9882e+02_jprb/)
1763 kbo( :,46,14) = (/&
1764 &1.7114e+02_jprb,2.0272e+02_jprb,2.3288e+02_jprb,2.6301e+02_jprb,2.8969e+02_jprb/)
1765 kbo( :,47,14) = (/&
1766 &1.5855e+02_jprb,1.9020e+02_jprb,2.2076e+02_jprb,2.5136e+02_jprb,2.7873e+02_jprb/)
1767 kbo( :,48,14) = (/&
1768 &1.4607e+02_jprb,1.7757e+02_jprb,2.0844e+02_jprb,2.3948e+02_jprb,2.6744e+02_jprb/)
1769 kbo( :,49,14) = (/&
1770 &1.3419e+02_jprb,1.6492e+02_jprb,1.9597e+02_jprb,2.2733e+02_jprb,2.5595e+02_jprb/)
1771 kbo( :,50,14) = (/&
1772 &1.2262e+02_jprb,1.5312e+02_jprb,1.8424e+02_jprb,2.1573e+02_jprb,2.4494e+02_jprb/)
1773 kbo( :,51,14) = (/&
1774 &1.1164e+02_jprb,1.4176e+02_jprb,1.7283e+02_jprb,2.0437e+02_jprb,2.3409e+02_jprb/)
1775 kbo( :,52,14) = (/&
1776 &1.0096e+02_jprb,1.3046e+02_jprb,1.6140e+02_jprb,1.9297e+02_jprb,2.2308e+02_jprb/)
1777 kbo( :,53,14) = (/&
1778 &9.0551e+01_jprb,1.1931e+02_jprb,1.4994e+02_jprb,1.8152e+02_jprb,2.1190e+02_jprb/)
1779 kbo( :,54,14) = (/&
1780 &8.1410e+01_jprb,1.0953e+02_jprb,1.3953e+02_jprb,1.7100e+02_jprb,2.0156e+02_jprb/)
1781 kbo( :,55,14) = (/&
1782 &7.2959e+01_jprb,1.0018e+02_jprb,1.2955e+02_jprb,1.6095e+02_jprb,1.9160e+02_jprb/)
1783 kbo( :,56,14) = (/&
1784 &6.4819e+01_jprb,9.1140e+01_jprb,1.1985e+02_jprb,1.5098e+02_jprb,1.8160e+02_jprb/)
1785 kbo( :,57,14) = (/&
1786 &5.7095e+01_jprb,8.2366e+01_jprb,1.1034e+02_jprb,1.4102e+02_jprb,1.7160e+02_jprb/)
1787 kbo( :,58,14) = (/&
1788 &5.0134e+01_jprb,7.4344e+01_jprb,1.0153e+02_jprb,1.3164e+02_jprb,1.6214e+02_jprb/)
1789 kbo( :,59,14) = (/&
1790 &4.7470e+01_jprb,7.1199e+01_jprb,9.8036e+01_jprb,1.2792e+02_jprb,1.5834e+02_jprb/)
1791 kbo( :,13,15) = (/&
1792 &2.3558e+02_jprb,2.5344e+02_jprb,2.7628e+02_jprb,3.0031e+02_jprb,3.2250e+02_jprb/)
1793 kbo( :,14,15) = (/&
1794 &2.7096e+02_jprb,2.9360e+02_jprb,3.2037e+02_jprb,3.4774e+02_jprb,3.7218e+02_jprb/)
1795 kbo( :,15,15) = (/&
1796 &3.0994e+02_jprb,3.4303e+02_jprb,3.7440e+02_jprb,3.9962e+02_jprb,4.2667e+02_jprb/)
1797 kbo( :,16,15) = (/&
1798 &3.5542e+02_jprb,3.9314e+02_jprb,4.2812e+02_jprb,4.5543e+02_jprb,4.8444e+02_jprb/)
1799 kbo( :,17,15) = (/&
1800 &4.0444e+02_jprb,4.4528e+02_jprb,4.7841e+02_jprb,5.1608e+02_jprb,5.4481e+02_jprb/)
1801 kbo( :,18,15) = (/&
1802 &4.5639e+02_jprb,5.0053e+02_jprb,5.3577e+02_jprb,5.7622e+02_jprb,6.0843e+02_jprb/)
1803 kbo( :,19,15) = (/&
1804 &5.0901e+02_jprb,5.5503e+02_jprb,5.9764e+02_jprb,6.3637e+02_jprb,6.7067e+02_jprb/)
1805 kbo( :,20,15) = (/&
1806 &5.6225e+02_jprb,6.1156e+02_jprb,6.5621e+02_jprb,6.9717e+02_jprb,7.3299e+02_jprb/)
1807 kbo( :,21,15) = (/&
1808 &6.1341e+02_jprb,6.6505e+02_jprb,7.1266e+02_jprb,7.5506e+02_jprb,7.9166e+02_jprb/)
1809 kbo( :,22,15) = (/&
1810 &6.6477e+02_jprb,7.2026e+02_jprb,7.6733e+02_jprb,8.1180e+02_jprb,8.4941e+02_jprb/)
1811 kbo( :,23,15) = (/&
1812 &7.1351e+02_jprb,7.7168e+02_jprb,8.2016e+02_jprb,8.6518e+02_jprb,9.0001e+02_jprb/)
1813 kbo( :,24,15) = (/&
1814 &7.6064e+02_jprb,8.2095e+02_jprb,8.7032e+02_jprb,9.1500e+02_jprb,9.4974e+02_jprb/)
1815 kbo( :,25,15) = (/&
1816 &8.0382e+02_jprb,8.6818e+02_jprb,9.1637e+02_jprb,9.6097e+02_jprb,9.9482e+02_jprb/)
1817 kbo( :,26,15) = (/&
1818 &8.4787e+02_jprb,9.1216e+02_jprb,9.5982e+02_jprb,1.0033e+03_jprb,1.0355e+03_jprb/)
1819 kbo( :,27,15) = (/&
1820 &8.8962e+02_jprb,9.5330e+02_jprb,9.9941e+02_jprb,1.0412e+03_jprb,1.0715e+03_jprb/)
1821 kbo( :,28,15) = (/&
1822 &9.2764e+02_jprb,9.9055e+02_jprb,1.0352e+03_jprb,1.0749e+03_jprb,1.1028e+03_jprb/)
1823 kbo( :,29,15) = (/&
1824 &9.6348e+02_jprb,1.0242e+03_jprb,1.0673e+03_jprb,1.1051e+03_jprb,1.1303e+03_jprb/)
1825 kbo( :,30,15) = (/&
1826 &9.9639e+02_jprb,1.0551e+03_jprb,1.0958e+03_jprb,1.1311e+03_jprb,1.1539e+03_jprb/)
1827 kbo( :,31,15) = (/&
1828 &1.0263e+03_jprb,1.0827e+03_jprb,1.1208e+03_jprb,1.1537e+03_jprb,1.1744e+03_jprb/)
1829 kbo( :,32,15) = (/&
1830 &1.0534e+03_jprb,1.1075e+03_jprb,1.1431e+03_jprb,1.1732e+03_jprb,1.1921e+03_jprb/)
1831 kbo( :,33,15) = (/&
1832 &1.0779e+03_jprb,1.1295e+03_jprb,1.1625e+03_jprb,1.1902e+03_jprb,1.2073e+03_jprb/)
1833 kbo( :,34,15) = (/&
1834 &1.0982e+03_jprb,1.1477e+03_jprb,1.1785e+03_jprb,1.2044e+03_jprb,1.2197e+03_jprb/)
1835 kbo( :,35,15) = (/&
1836 &1.1118e+03_jprb,1.1603e+03_jprb,1.1896e+03_jprb,1.2145e+03_jprb,1.2287e+03_jprb/)
1837 kbo( :,36,15) = (/&
1838 &1.1191e+03_jprb,1.1674e+03_jprb,1.1964e+03_jprb,1.2211e+03_jprb,1.2348e+03_jprb/)
1839 kbo( :,37,15) = (/&
1840 &1.1180e+03_jprb,1.1678e+03_jprb,1.1978e+03_jprb,1.2234e+03_jprb,1.2378e+03_jprb/)
1841 kbo( :,38,15) = (/&
1842 &1.1152e+03_jprb,1.1644e+03_jprb,1.1974e+03_jprb,1.2244e+03_jprb,1.2396e+03_jprb/)
1843 kbo( :,39,15) = (/&
1844 &1.1116e+03_jprb,1.1623e+03_jprb,1.1960e+03_jprb,1.2249e+03_jprb,1.2407e+03_jprb/)
1845 kbo( :,40,15) = (/&
1846 &1.1018e+03_jprb,1.1551e+03_jprb,1.1910e+03_jprb,1.2221e+03_jprb,1.2391e+03_jprb/)
1847 kbo( :,41,15) = (/&
1848 &1.0898e+03_jprb,1.1461e+03_jprb,1.1848e+03_jprb,1.2178e+03_jprb,1.2366e+03_jprb/)
1849 kbo( :,42,15) = (/&
1850 &1.0762e+03_jprb,1.1359e+03_jprb,1.1775e+03_jprb,1.2126e+03_jprb,1.2333e+03_jprb/)
1851 kbo( :,43,15) = (/&
1852 &1.0578e+03_jprb,1.1216e+03_jprb,1.1668e+03_jprb,1.2048e+03_jprb,1.2281e+03_jprb/)
1853 kbo( :,44,15) = (/&
1854 &1.0362e+03_jprb,1.1044e+03_jprb,1.1534e+03_jprb,1.1947e+03_jprb,1.2212e+03_jprb/)
1855 kbo( :,45,15) = (/&
1856 &1.0130e+03_jprb,1.0854e+03_jprb,1.1384e+03_jprb,1.1833e+03_jprb,1.2130e+03_jprb/)
1857 kbo( :,46,15) = (/&
1858 &9.8649e+02_jprb,1.0633e+03_jprb,1.1204e+03_jprb,1.1664e+03_jprb,1.2047e+03_jprb/)
1859 kbo( :,47,15) = (/&
1860 &9.5447e+02_jprb,1.0363e+03_jprb,1.0984e+03_jprb,1.1495e+03_jprb,1.1920e+03_jprb/)
1861 kbo( :,48,15) = (/&
1862 &9.1939e+02_jprb,1.0072e+03_jprb,1.0744e+03_jprb,1.1303e+03_jprb,1.1778e+03_jprb/)
1863 kbo( :,49,15) = (/&
1864 &8.8250e+02_jprb,9.7585e+02_jprb,1.0483e+03_jprb,1.1094e+03_jprb,1.1613e+03_jprb/)
1865 kbo( :,50,15) = (/&
1866 &8.4647e+02_jprb,9.4477e+02_jprb,1.0219e+03_jprb,1.0877e+03_jprb,1.1441e+03_jprb/)
1867 kbo( :,51,15) = (/&
1868 &8.1004e+02_jprb,9.1259e+02_jprb,9.9388e+02_jprb,1.0648e+03_jprb,1.1259e+03_jprb/)
1869 kbo( :,52,15) = (/&
1870 &7.7148e+02_jprb,8.7865e+02_jprb,9.6436e+02_jprb,1.0402e+03_jprb,1.1061e+03_jprb/)
1871 kbo( :,53,15) = (/&
1872 &7.3147e+02_jprb,8.4306e+02_jprb,9.3344e+02_jprb,1.0140e+03_jprb,1.0845e+03_jprb/)
1873 kbo( :,54,15) = (/&
1874 &6.9315e+02_jprb,8.0891e+02_jprb,9.0347e+02_jprb,9.8850e+02_jprb,1.0632e+03_jprb/)
1875 kbo( :,55,15) = (/&
1876 &6.5555e+02_jprb,7.7476e+02_jprb,8.7174e+02_jprb,9.6242e+02_jprb,1.0413e+03_jprb/)
1877 kbo( :,56,15) = (/&
1878 &6.1722e+02_jprb,7.3961e+02_jprb,8.4012e+02_jprb,9.3483e+02_jprb,1.0182e+03_jprb/)
1879 kbo( :,57,15) = (/&
1880 &5.7836e+02_jprb,7.0324e+02_jprb,8.0736e+02_jprb,9.0611e+02_jprb,9.9376e+02_jprb/)
1881 kbo( :,58,15) = (/&
1882 &5.4103e+02_jprb,6.6804e+02_jprb,7.7522e+02_jprb,8.7787e+02_jprb,9.6912e+02_jprb/)
1883 kbo( :,59,15) = (/&
1884 &5.2599e+02_jprb,6.5379e+02_jprb,7.6206e+02_jprb,8.6623e+02_jprb,9.5904e+02_jprb/)
1885 kbo( :,13,16) = (/&
1886 &3.9649e+02_jprb,4.3420e+02_jprb,4.7059e+02_jprb,5.0417e+02_jprb,5.3141e+02_jprb/)
1887 kbo( :,14,16) = (/&
1888 &4.8075e+02_jprb,5.2232e+02_jprb,5.6418e+02_jprb,6.0325e+02_jprb,6.3379e+02_jprb/)
1889 kbo( :,15,16) = (/&
1890 &5.7530e+02_jprb,6.3245e+02_jprb,6.8080e+02_jprb,7.1352e+02_jprb,7.4957e+02_jprb/)
1891 kbo( :,16,16) = (/&
1892 &6.8549e+02_jprb,7.5045e+02_jprb,8.0419e+02_jprb,8.3617e+02_jprb,8.7485e+02_jprb/)
1893 kbo( :,17,16) = (/&
1894 &8.0730e+02_jprb,8.7949e+02_jprb,9.2029e+02_jprb,9.8275e+02_jprb,1.0083e+03_jprb/)
1895 kbo( :,18,16) = (/&
1896 &9.3777e+02_jprb,1.0165e+03_jprb,1.0537e+03_jprb,1.1246e+03_jprb,1.1558e+03_jprb/)
1897 kbo( :,19,16) = (/&
1898 &1.0735e+03_jprb,1.1454e+03_jprb,1.2091e+03_jprb,1.2558e+03_jprb,1.3004e+03_jprb/)
1899 kbo( :,20,16) = (/&
1900 &1.2127e+03_jprb,1.2868e+03_jprb,1.3551e+03_jprb,1.3975e+03_jprb,1.4452e+03_jprb/)
1901 kbo( :,21,16) = (/&
1902 &1.3592e+03_jprb,1.4356e+03_jprb,1.5001e+03_jprb,1.5456e+03_jprb,1.5923e+03_jprb/)
1903 kbo( :,22,16) = (/&
1904 &1.5169e+03_jprb,1.5965e+03_jprb,1.6436e+03_jprb,1.6935e+03_jprb,1.7383e+03_jprb/)
1905 kbo( :,23,16) = (/&
1906 &1.6753e+03_jprb,1.7518e+03_jprb,1.7912e+03_jprb,1.8444e+03_jprb,1.8635e+03_jprb/)
1907 kbo( :,24,16) = (/&
1908 &1.8317e+03_jprb,1.8968e+03_jprb,1.9298e+03_jprb,1.9801e+03_jprb,1.9925e+03_jprb/)
1909 kbo( :,25,16) = (/&
1910 &1.9704e+03_jprb,2.0341e+03_jprb,2.0605e+03_jprb,2.1039e+03_jprb,2.1070e+03_jprb/)
1911 kbo( :,26,16) = (/&
1912 &2.1057e+03_jprb,2.1630e+03_jprb,2.1799e+03_jprb,2.2140e+03_jprb,2.2098e+03_jprb/)
1913 kbo( :,27,16) = (/&
1914 &2.2281e+03_jprb,2.2763e+03_jprb,2.2836e+03_jprb,2.3113e+03_jprb,2.2992e+03_jprb/)
1915 kbo( :,28,16) = (/&
1916 &2.3345e+03_jprb,2.3737e+03_jprb,2.3719e+03_jprb,2.3935e+03_jprb,2.3762e+03_jprb/)
1917 kbo( :,29,16) = (/&
1918 &2.4261e+03_jprb,2.4570e+03_jprb,2.4461e+03_jprb,2.4611e+03_jprb,2.4401e+03_jprb/)
1919 kbo( :,30,16) = (/&
1920 &2.5032e+03_jprb,2.5264e+03_jprb,2.5077e+03_jprb,2.5178e+03_jprb,2.4915e+03_jprb/)
1921 kbo( :,31,16) = (/&
1922 &2.5677e+03_jprb,2.5833e+03_jprb,2.5596e+03_jprb,2.5650e+03_jprb,2.5320e+03_jprb/)
1923 kbo( :,32,16) = (/&
1924 &2.6198e+03_jprb,2.6282e+03_jprb,2.6001e+03_jprb,2.6017e+03_jprb,2.5636e+03_jprb/)
1925 kbo( :,33,16) = (/&
1926 &2.6610e+03_jprb,2.6631e+03_jprb,2.6317e+03_jprb,2.6296e+03_jprb,2.5876e+03_jprb/)
1927 kbo( :,34,16) = (/&
1928 &2.6943e+03_jprb,2.6908e+03_jprb,2.6559e+03_jprb,2.6515e+03_jprb,2.6062e+03_jprb/)
1929 kbo( :,35,16) = (/&
1930 &2.7216e+03_jprb,2.7136e+03_jprb,2.6772e+03_jprb,2.6701e+03_jprb,2.6232e+03_jprb/)
1931 kbo( :,36,16) = (/&
1932 &2.7447e+03_jprb,2.7345e+03_jprb,2.6971e+03_jprb,2.6885e+03_jprb,2.6393e+03_jprb/)
1933 kbo( :,37,16) = (/&
1934 &2.7663e+03_jprb,2.7556e+03_jprb,2.7187e+03_jprb,2.7089e+03_jprb,2.6589e+03_jprb/)
1935 kbo( :,38,16) = (/&
1936 &2.7858e+03_jprb,2.7874e+03_jprb,2.7366e+03_jprb,2.7269e+03_jprb,2.6752e+03_jprb/)
1937 kbo( :,39,16) = (/&
1938 &2.8024e+03_jprb,2.8038e+03_jprb,2.7625e+03_jprb,2.7421e+03_jprb,2.6902e+03_jprb/)
1939 kbo( :,40,16) = (/&
1940 &2.8177e+03_jprb,2.8195e+03_jprb,2.7788e+03_jprb,2.7591e+03_jprb,2.7091e+03_jprb/)
1941 kbo( :,41,16) = (/&
1942 &2.8303e+03_jprb,2.8352e+03_jprb,2.7935e+03_jprb,2.7758e+03_jprb,2.7270e+03_jprb/)
1943 kbo( :,42,16) = (/&
1944 &2.8434e+03_jprb,2.8482e+03_jprb,2.8071e+03_jprb,2.7922e+03_jprb,2.7438e+03_jprb/)
1945 kbo( :,43,16) = (/&
1946 &2.8548e+03_jprb,2.8612e+03_jprb,2.8211e+03_jprb,2.8082e+03_jprb,2.7619e+03_jprb/)
1947 kbo( :,44,16) = (/&
1948 &2.8632e+03_jprb,2.8731e+03_jprb,2.8359e+03_jprb,2.8241e+03_jprb,2.7786e+03_jprb/)
1949 kbo( :,45,16) = (/&
1950 &2.8674e+03_jprb,2.8836e+03_jprb,2.8494e+03_jprb,2.8388e+03_jprb,2.7940e+03_jprb/)
1951 kbo( :,46,16) = (/&
1952 &2.8677e+03_jprb,2.8925e+03_jprb,2.8629e+03_jprb,2.8226e+03_jprb,2.8119e+03_jprb/)
1953 kbo( :,47,16) = (/&
1954 &2.8633e+03_jprb,2.9002e+03_jprb,2.8748e+03_jprb,2.8361e+03_jprb,2.8260e+03_jprb/)
1955 kbo( :,48,16) = (/&
1956 &2.8578e+03_jprb,2.9030e+03_jprb,2.8832e+03_jprb,2.8487e+03_jprb,2.8389e+03_jprb/)
1957 kbo( :,49,16) = (/&
1958 &2.8403e+03_jprb,2.9008e+03_jprb,2.8874e+03_jprb,2.8585e+03_jprb,2.8534e+03_jprb/)
1959 kbo( :,50,16) = (/&
1960 &2.8204e+03_jprb,2.8937e+03_jprb,2.8907e+03_jprb,2.8681e+03_jprb,2.8665e+03_jprb/)
1961 kbo( :,51,16) = (/&
1962 &2.7945e+03_jprb,2.8834e+03_jprb,2.8924e+03_jprb,2.8761e+03_jprb,2.8762e+03_jprb/)
1963 kbo( :,52,16) = (/&
1964 &2.7647e+03_jprb,2.8693e+03_jprb,2.8895e+03_jprb,2.8805e+03_jprb,2.8863e+03_jprb/)
1965 kbo( :,53,16) = (/&
1966 &2.7286e+03_jprb,2.8496e+03_jprb,2.8822e+03_jprb,2.8814e+03_jprb,2.8931e+03_jprb/)
1967 kbo( :,54,16) = (/&
1968 &2.6904e+03_jprb,2.8223e+03_jprb,2.8712e+03_jprb,2.8790e+03_jprb,2.8991e+03_jprb/)
1969 kbo( :,55,16) = (/&
1970 &2.6470e+03_jprb,2.7955e+03_jprb,2.8486e+03_jprb,2.8755e+03_jprb,2.9024e+03_jprb/)
1971 kbo( :,56,16) = (/&
1972 &2.5966e+03_jprb,2.7630e+03_jprb,2.8315e+03_jprb,2.8687e+03_jprb,2.9035e+03_jprb/)
1973 kbo( :,57,16) = (/&
1974 &2.5400e+03_jprb,2.7247e+03_jprb,2.8099e+03_jprb,2.8582e+03_jprb,2.9024e+03_jprb/)
1975 kbo( :,58,16) = (/&
1976 &2.4795e+03_jprb,2.6821e+03_jprb,2.7847e+03_jprb,2.8441e+03_jprb,2.8994e+03_jprb/)
1977 kbo( :,59,16) = (/&
1978 &2.4534e+03_jprb,2.6638e+03_jprb,2.7735e+03_jprb,2.8383e+03_jprb,2.8978e+03_jprb/)
1979 
1980 ! -----------------------------------------------------------------
1981 RETURN
1982 END SUBROUTINE rrtm_kgb10
subroutine rrtm_kgb10
Definition: rrtm_kgb10.F90:7
real(kind=jprb), dimension(5, 13:59, no10) kbo
Definition: yoerrto10.F90:20
real(kind=jprb), dimension(no10) fracrefao
Definition: yoerrto10.F90:16
real(kind=jprb), dimension(5, 13, no10) kao
Definition: yoerrto10.F90:19
real(kind=jprb), dimension(no10) fracrefbo
Definition: yoerrto10.F90:17