LMDZ
rrtm_kgb14.F90
Go to the documentation of this file.
1 !OCL SCALAR
2 SUBROUTINE rrtm_kgb14
3 
4 ! Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
5 ! BAND 14: 2250-2380 cm-1 (low - CO2; high - CO2)
6 ! Reformatted for F90 by JJMorcrette, ECMWF
7 
8 ! ------------------------------------------------------------------
9 
10 #include "tsmbkind.h"
11 
12 USE yoerrto14, ONLY : kao ,kbo ,selfrefo ,fracrefao ,fracrefbo
13 
14 ! ------------------------------------------------------------------
15 
16 
17 IMPLICIT NONE
18 fracrefao( :) = (/&
19 ! From P = 1053.6 mb.
20  &0.18446200_jprb,0.16795200_jprb,0.14949700_jprb,0.12036000_jprb,&
21  &0.10440100_jprb,0.09024280_jprb,0.07435880_jprb,0.05629380_jprb,&
22  &0.03825420_jprb,0.00417276_jprb,0.00345278_jprb,0.00272949_jprb,&
23  &0.00200378_jprb,0.00127404_jprb,0.00050721_jprb,0.00004141_jprb/)
24 
25 fracrefbo( :) = (/&
26 ! From P = 0.64 mb.
27  &0.19128500_jprb,0.16495700_jprb,0.14146100_jprb,0.11904500_jprb,&
28  &0.10350200_jprb,0.09151190_jprb,0.07604270_jprb,0.05806020_jprb,&
29  &0.03979950_jprb,0.00423959_jprb,0.00357439_jprb,0.00287559_jprb,&
30  &0.00198860_jprb,0.00116529_jprb,0.00043616_jprb,0.00005987_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 &3.5949e-01_jprb,3.8238e-01_jprb,4.1007e-01_jprb,4.4339e-01_jprb,4.8230e-01_jprb/)
48 kao( :, 2, 1) = (/&
49 &3.0485e-01_jprb,3.2295e-01_jprb,3.4552e-01_jprb,3.7333e-01_jprb,4.0603e-01_jprb/)
50 kao( :, 3, 1) = (/&
51 &2.5422e-01_jprb,2.6754e-01_jprb,2.8483e-01_jprb,3.0668e-01_jprb,3.3252e-01_jprb/)
52 kao( :, 4, 1) = (/&
53 &2.1093e-01_jprb,2.2073e-01_jprb,2.3378e-01_jprb,2.5076e-01_jprb,2.7135e-01_jprb/)
54 kao( :, 5, 1) = (/&
55 &1.7483e-01_jprb,1.8205e-01_jprb,1.9194e-01_jprb,2.0512e-01_jprb,2.2145e-01_jprb/)
56 kao( :, 6, 1) = (/&
57 &1.4472e-01_jprb,1.4992e-01_jprb,1.5732e-01_jprb,1.6735e-01_jprb,1.8017e-01_jprb/)
58 kao( :, 7, 1) = (/&
59 &1.1982e-01_jprb,1.2359e-01_jprb,1.2898e-01_jprb,1.3657e-01_jprb,1.4653e-01_jprb/)
60 kao( :, 8, 1) = (/&
61 &9.9228e-02_jprb,1.0198e-01_jprb,1.0592e-01_jprb,1.1158e-01_jprb,1.1926e-01_jprb/)
62 kao( :, 9, 1) = (/&
63 &8.2262e-02_jprb,8.4210e-02_jprb,8.7109e-02_jprb,9.1293e-02_jprb,9.7123e-02_jprb/)
64 kao( :,10, 1) = (/&
65 &6.8209e-02_jprb,6.9606e-02_jprb,7.1781e-02_jprb,7.4983e-02_jprb,7.9504e-02_jprb/)
66 kao( :,11, 1) = (/&
67 &5.6845e-02_jprb,5.8087e-02_jprb,6.0031e-02_jprb,6.2957e-02_jprb,6.7037e-02_jprb/)
68 kao( :,12, 1) = (/&
69 &4.7244e-02_jprb,4.8375e-02_jprb,5.0140e-02_jprb,5.2785e-02_jprb,5.6455e-02_jprb/)
70 kao( :,13, 1) = (/&
71 &3.9170e-02_jprb,4.0208e-02_jprb,4.1811e-02_jprb,4.4178e-02_jprb,4.7427e-02_jprb/)
72 kao( :, 1, 2) = (/&
73 &1.2872e+00_jprb,1.3933e+00_jprb,1.5229e+00_jprb,1.6818e+00_jprb,1.8746e+00_jprb/)
74 kao( :, 2, 2) = (/&
75 &1.1067e+00_jprb,1.2035e+00_jprb,1.3215e+00_jprb,1.4648e+00_jprb,1.6373e+00_jprb/)
76 kao( :, 3, 2) = (/&
77 &9.2875e-01_jprb,1.0145e+00_jprb,1.1171e+00_jprb,1.2402e+00_jprb,1.3874e+00_jprb/)
78 kao( :, 4, 2) = (/&
79 &7.7024e-01_jprb,8.4470e-01_jprb,9.3397e-01_jprb,1.0398e+00_jprb,1.1644e+00_jprb/)
80 kao( :, 5, 2) = (/&
81 &6.3547e-01_jprb,6.9999e-01_jprb,7.7719e-01_jprb,8.6762e-01_jprb,9.7354e-01_jprb/)
82 kao( :, 6, 2) = (/&
83 &5.2029e-01_jprb,5.7514e-01_jprb,6.4113e-01_jprb,7.1778e-01_jprb,8.0690e-01_jprb/)
84 kao( :, 7, 2) = (/&
85 &4.2402e-01_jprb,4.7059e-01_jprb,5.2574e-01_jprb,5.9013e-01_jprb,6.6415e-01_jprb/)
86 kao( :, 8, 2) = (/&
87 &3.4478e-01_jprb,3.8240e-01_jprb,4.2694e-01_jprb,4.7936e-01_jprb,5.3995e-01_jprb/)
88 kao( :, 9, 2) = (/&
89 &2.7872e-01_jprb,3.0857e-01_jprb,3.4389e-01_jprb,3.8559e-01_jprb,4.3444e-01_jprb/)
90 kao( :,10, 2) = (/&
91 &2.2596e-01_jprb,2.5018e-01_jprb,2.7837e-01_jprb,3.1178e-01_jprb,3.5123e-01_jprb/)
92 kao( :,11, 2) = (/&
93 &1.9149e-01_jprb,2.1236e-01_jprb,2.3673e-01_jprb,2.6562e-01_jprb,2.9993e-01_jprb/)
94 kao( :,12, 2) = (/&
95 &1.6195e-01_jprb,1.7991e-01_jprb,2.0098e-01_jprb,2.2594e-01_jprb,2.5567e-01_jprb/)
96 kao( :,13, 2) = (/&
97 &1.3643e-01_jprb,1.5192e-01_jprb,1.7016e-01_jprb,1.9179e-01_jprb,2.1776e-01_jprb/)
98 kao( :, 1, 3) = (/&
99 &5.3360e+00_jprb,5.9602e+00_jprb,6.6311e+00_jprb,7.3500e+00_jprb,8.1211e+00_jprb/)
100 kao( :, 2, 3) = (/&
101 &4.6843e+00_jprb,5.2481e+00_jprb,5.8517e+00_jprb,6.5055e+00_jprb,7.2045e+00_jprb/)
102 kao( :, 3, 3) = (/&
103 &3.9306e+00_jprb,4.4236e+00_jprb,4.9546e+00_jprb,5.5277e+00_jprb,6.1375e+00_jprb/)
104 kao( :, 4, 3) = (/&
105 &3.2173e+00_jprb,3.6357e+00_jprb,4.0925e+00_jprb,4.5878e+00_jprb,5.1170e+00_jprb/)
106 kao( :, 5, 3) = (/&
107 &2.5942e+00_jprb,2.9460e+00_jprb,3.3334e+00_jprb,3.7556e+00_jprb,4.2107e+00_jprb/)
108 kao( :, 6, 3) = (/&
109 &2.0555e+00_jprb,2.3477e+00_jprb,2.6712e+00_jprb,3.0269e+00_jprb,3.4138e+00_jprb/)
110 kao( :, 7, 3) = (/&
111 &1.6118e+00_jprb,1.8526e+00_jprb,2.1224e+00_jprb,2.4196e+00_jprb,2.7460e+00_jprb/)
112 kao( :, 8, 3) = (/&
113 &1.2564e+00_jprb,1.4546e+00_jprb,1.6794e+00_jprb,1.9292e+00_jprb,2.2031e+00_jprb/)
114 kao( :, 9, 3) = (/&
115 &9.7439e-01_jprb,1.1371e+00_jprb,1.3228e+00_jprb,1.5317e+00_jprb,1.7615e+00_jprb/)
116 kao( :,10, 3) = (/&
117 &7.6284e-01_jprb,8.9693e-01_jprb,1.0511e+00_jprb,1.2260e+00_jprb,1.4196e+00_jprb/)
118 kao( :,11, 3) = (/&
119 &6.4505e-01_jprb,7.6321e-01_jprb,8.9939e-01_jprb,1.0531e+00_jprb,1.2207e+00_jprb/)
120 kao( :,12, 3) = (/&
121 &5.4741e-01_jprb,6.5142e-01_jprb,7.6976e-01_jprb,9.0081e-01_jprb,1.0418e+00_jprb/)
122 kao( :,13, 3) = (/&
123 &4.6530e-01_jprb,5.5436e-01_jprb,6.5441e-01_jprb,7.6383e-01_jprb,8.8219e-01_jprb/)
124 kao( :, 1, 4) = (/&
125 &1.6152e+01_jprb,1.7527e+01_jprb,1.8781e+01_jprb,1.9894e+01_jprb,2.0832e+01_jprb/)
126 kao( :, 2, 4) = (/&
127 &1.4046e+01_jprb,1.5178e+01_jprb,1.6195e+01_jprb,1.7086e+01_jprb,1.7867e+01_jprb/)
128 kao( :, 3, 4) = (/&
129 &1.2099e+01_jprb,1.3048e+01_jprb,1.3899e+01_jprb,1.4662e+01_jprb,1.5345e+01_jprb/)
130 kao( :, 4, 4) = (/&
131 &1.0250e+01_jprb,1.1071e+01_jprb,1.1812e+01_jprb,1.2480e+01_jprb,1.3082e+01_jprb/)
132 kao( :, 5, 4) = (/&
133 &8.5710e+00_jprb,9.2814e+00_jprb,9.9329e+00_jprb,1.0519e+01_jprb,1.1047e+01_jprb/)
134 kao( :, 6, 4) = (/&
135 &7.0718e+00_jprb,7.6889e+00_jprb,8.2584e+00_jprb,8.7766e+00_jprb,9.2483e+00_jprb/)
136 kao( :, 7, 4) = (/&
137 &5.7749e+00_jprb,6.3070e+00_jprb,6.8047e+00_jprb,7.2640e+00_jprb,7.6824e+00_jprb/)
138 kao( :, 8, 4) = (/&
139 &4.6724e+00_jprb,5.1283e+00_jprb,5.5581e+00_jprb,5.9613e+00_jprb,6.3358e+00_jprb/)
140 kao( :, 9, 4) = (/&
141 &3.7440e+00_jprb,4.1328e+00_jprb,4.5018e+00_jprb,4.8548e+00_jprb,5.1877e+00_jprb/)
142 kao( :,10, 4) = (/&
143 &2.9973e+00_jprb,3.3277e+00_jprb,3.6442e+00_jprb,3.9507e+00_jprb,4.2451e+00_jprb/)
144 kao( :,11, 4) = (/&
145 &2.5128e+00_jprb,2.7893e+00_jprb,3.0562e+00_jprb,3.3207e+00_jprb,3.5778e+00_jprb/)
146 kao( :,12, 4) = (/&
147 &2.1002e+00_jprb,2.3318e+00_jprb,2.5620e+00_jprb,2.7945e+00_jprb,3.0199e+00_jprb/)
148 kao( :,13, 4) = (/&
149 &1.7517e+00_jprb,1.9494e+00_jprb,2.1523e+00_jprb,2.3581e+00_jprb,2.5501e+00_jprb/)
150 kao( :, 1, 5) = (/&
151 &3.4751e+01_jprb,3.5230e+01_jprb,3.5638e+01_jprb,3.5981e+01_jprb,3.6301e+01_jprb/)
152 kao( :, 2, 5) = (/&
153 &2.9729e+01_jprb,3.0178e+01_jprb,3.0562e+01_jprb,3.0895e+01_jprb,3.1160e+01_jprb/)
154 kao( :, 3, 5) = (/&
155 &2.5226e+01_jprb,2.5646e+01_jprb,2.6010e+01_jprb,2.6290e+01_jprb,2.6514e+01_jprb/)
156 kao( :, 4, 5) = (/&
157 &2.1570e+01_jprb,2.1943e+01_jprb,2.2252e+01_jprb,2.2465e+01_jprb,2.2652e+01_jprb/)
158 kao( :, 5, 5) = (/&
159 &1.8526e+01_jprb,1.8854e+01_jprb,1.9098e+01_jprb,1.9261e+01_jprb,1.9423e+01_jprb/)
160 kao( :, 6, 5) = (/&
161 &1.5776e+01_jprb,1.6061e+01_jprb,1.6258e+01_jprb,1.6386e+01_jprb,1.6522e+01_jprb/)
162 kao( :, 7, 5) = (/&
163 &1.3340e+01_jprb,1.3594e+01_jprb,1.3756e+01_jprb,1.3864e+01_jprb,1.3982e+01_jprb/)
164 kao( :, 8, 5) = (/&
165 &1.1233e+01_jprb,1.1458e+01_jprb,1.1599e+01_jprb,1.1693e+01_jprb,1.1791e+01_jprb/)
166 kao( :, 9, 5) = (/&
167 &9.4215e+00_jprb,9.6164e+00_jprb,9.7423e+00_jprb,9.8254e+00_jprb,9.9049e+00_jprb/)
168 kao( :,10, 5) = (/&
169 &7.8744e+00_jprb,8.0390e+00_jprb,8.1492e+00_jprb,8.2195e+00_jprb,8.2844e+00_jprb/)
170 kao( :,11, 5) = (/&
171 &6.6269e+00_jprb,6.7416e+00_jprb,6.8204e+00_jprb,6.8736e+00_jprb,6.9401e+00_jprb/)
172 kao( :,12, 5) = (/&
173 &5.5397e+00_jprb,5.6256e+00_jprb,5.6856e+00_jprb,5.7347e+00_jprb,5.8086e+00_jprb/)
174 kao( :,13, 5) = (/&
175 &4.6101e+00_jprb,4.6786e+00_jprb,4.7276e+00_jprb,4.7772e+00_jprb,4.8596e+00_jprb/)
176 kao( :, 1, 6) = (/&
177 &5.5130e+01_jprb,5.5331e+01_jprb,5.5751e+01_jprb,5.6249e+01_jprb,5.6765e+01_jprb/)
178 kao( :, 2, 6) = (/&
179 &4.8314e+01_jprb,4.8735e+01_jprb,4.9176e+01_jprb,4.9631e+01_jprb,5.0143e+01_jprb/)
180 kao( :, 3, 6) = (/&
181 &4.2059e+01_jprb,4.2411e+01_jprb,4.2762e+01_jprb,4.3188e+01_jprb,4.3691e+01_jprb/)
182 kao( :, 4, 6) = (/&
183 &3.6248e+01_jprb,3.6478e+01_jprb,3.6774e+01_jprb,3.7187e+01_jprb,3.7662e+01_jprb/)
184 kao( :, 5, 6) = (/&
185 &3.1107e+01_jprb,3.1277e+01_jprb,3.1534e+01_jprb,3.1919e+01_jprb,3.2341e+01_jprb/)
186 kao( :, 6, 6) = (/&
187 &2.6880e+01_jprb,2.7008e+01_jprb,2.7229e+01_jprb,2.7549e+01_jprb,2.7880e+01_jprb/)
188 kao( :, 7, 6) = (/&
189 &2.3158e+01_jprb,2.3247e+01_jprb,2.3429e+01_jprb,2.3676e+01_jprb,2.3946e+01_jprb/)
190 kao( :, 8, 6) = (/&
191 &1.9829e+01_jprb,1.9879e+01_jprb,2.0010e+01_jprb,2.0196e+01_jprb,2.0418e+01_jprb/)
192 kao( :, 9, 6) = (/&
193 &1.6898e+01_jprb,1.6922e+01_jprb,1.7013e+01_jprb,1.7148e+01_jprb,1.7325e+01_jprb/)
194 kao( :,10, 6) = (/&
195 &1.4366e+01_jprb,1.4373e+01_jprb,1.4439e+01_jprb,1.4534e+01_jprb,1.4675e+01_jprb/)
196 kao( :,11, 6) = (/&
197 &1.2164e+01_jprb,1.2183e+01_jprb,1.2231e+01_jprb,1.2319e+01_jprb,1.2450e+01_jprb/)
198 kao( :,12, 6) = (/&
199 &1.0258e+01_jprb,1.0264e+01_jprb,1.0303e+01_jprb,1.0384e+01_jprb,1.0512e+01_jprb/)
200 kao( :,13, 6) = (/&
201 &8.6118e+00_jprb,8.6082e+00_jprb,8.6451e+00_jprb,8.7236e+00_jprb,8.8552e+00_jprb/)
202 kao( :, 1, 7) = (/&
203 &9.6613e+01_jprb,9.5560e+01_jprb,9.4868e+01_jprb,9.4707e+01_jprb,9.5047e+01_jprb/)
204 kao( :, 2, 7) = (/&
205 &8.5378e+01_jprb,8.4844e+01_jprb,8.4980e+01_jprb,8.5705e+01_jprb,8.6820e+01_jprb/)
206 kao( :, 3, 7) = (/&
207 &7.4914e+01_jprb,7.5068e+01_jprb,7.5864e+01_jprb,7.7176e+01_jprb,7.8814e+01_jprb/)
208 kao( :, 4, 7) = (/&
209 &6.5406e+01_jprb,6.6072e+01_jprb,6.7363e+01_jprb,6.9077e+01_jprb,7.0805e+01_jprb/)
210 kao( :, 5, 7) = (/&
211 &5.6834e+01_jprb,5.7880e+01_jprb,5.9486e+01_jprb,6.1110e+01_jprb,6.2642e+01_jprb/)
212 kao( :, 6, 7) = (/&
213 &4.9134e+01_jprb,5.0398e+01_jprb,5.1914e+01_jprb,5.3305e+01_jprb,5.4686e+01_jprb/)
214 kao( :, 7, 7) = (/&
215 &4.2637e+01_jprb,4.3892e+01_jprb,4.5117e+01_jprb,4.6325e+01_jprb,4.7499e+01_jprb/)
216 kao( :, 8, 7) = (/&
217 &3.7229e+01_jprb,3.8287e+01_jprb,3.9278e+01_jprb,4.0285e+01_jprb,4.1280e+01_jprb/)
218 kao( :, 9, 7) = (/&
219 &3.2369e+01_jprb,3.3232e+01_jprb,3.4050e+01_jprb,3.4909e+01_jprb,3.5773e+01_jprb/)
220 kao( :,10, 7) = (/&
221 &2.7964e+01_jprb,2.8642e+01_jprb,2.9313e+01_jprb,3.0048e+01_jprb,3.0775e+01_jprb/)
222 kao( :,11, 7) = (/&
223 &2.4270e+01_jprb,2.4795e+01_jprb,2.5375e+01_jprb,2.5988e+01_jprb,2.6571e+01_jprb/)
224 kao( :,12, 7) = (/&
225 &2.0936e+01_jprb,2.1384e+01_jprb,2.1881e+01_jprb,2.2373e+01_jprb,2.2843e+01_jprb/)
226 kao( :,13, 7) = (/&
227 &1.7997e+01_jprb,1.8384e+01_jprb,1.8786e+01_jprb,1.9175e+01_jprb,1.9563e+01_jprb/)
228 kao( :, 1, 8) = (/&
229 &2.1875e+02_jprb,2.1582e+02_jprb,2.1296e+02_jprb,2.1003e+02_jprb,2.0715e+02_jprb/)
230 kao( :, 2, 8) = (/&
231 &2.0320e+02_jprb,2.0039e+02_jprb,1.9765e+02_jprb,1.9490e+02_jprb,1.9237e+02_jprb/)
232 kao( :, 3, 8) = (/&
233 &1.8600e+02_jprb,1.8334e+02_jprb,1.8077e+02_jprb,1.7842e+02_jprb,1.7627e+02_jprb/)
234 kao( :, 4, 8) = (/&
235 &1.6777e+02_jprb,1.6536e+02_jprb,1.6312e+02_jprb,1.6113e+02_jprb,1.5989e+02_jprb/)
236 kao( :, 5, 8) = (/&
237 &1.4943e+02_jprb,1.4725e+02_jprb,1.4535e+02_jprb,1.4437e+02_jprb,1.4430e+02_jprb/)
238 kao( :, 6, 8) = (/&
239 &1.3133e+02_jprb,1.2945e+02_jprb,1.2835e+02_jprb,1.2837e+02_jprb,1.2929e+02_jprb/)
240 kao( :, 7, 8) = (/&
241 &1.1418e+02_jprb,1.1273e+02_jprb,1.1250e+02_jprb,1.1334e+02_jprb,1.1514e+02_jprb/)
242 kao( :, 8, 8) = (/&
243 &9.8405e+01_jprb,9.7565e+01_jprb,9.8029e+01_jprb,9.9545e+01_jprb,1.0201e+02_jprb/)
244 kao( :, 9, 8) = (/&
245 &8.4682e+01_jprb,8.4331e+01_jprb,8.5271e+01_jprb,8.7263e+01_jprb,9.0114e+01_jprb/)
246 kao( :,10, 8) = (/&
247 &7.3042e+01_jprb,7.3160e+01_jprb,7.4507e+01_jprb,7.6830e+01_jprb,7.9492e+01_jprb/)
248 kao( :,11, 8) = (/&
249 &6.3320e+01_jprb,6.4346e+01_jprb,6.6364e+01_jprb,6.8605e+01_jprb,7.0750e+01_jprb/)
250 kao( :,12, 8) = (/&
251 &5.5520e+01_jprb,5.7127e+01_jprb,5.9034e+01_jprb,6.0843e+01_jprb,6.2628e+01_jprb/)
252 kao( :,13, 8) = (/&
253 &4.8720e+01_jprb,5.0320e+01_jprb,5.1854e+01_jprb,5.3381e+01_jprb,5.4848e+01_jprb/)
254 kao( :, 1, 9) = (/&
255 &5.5976e+02_jprb,5.5606e+02_jprb,5.5170e+02_jprb,5.4679e+02_jprb,5.4142e+02_jprb/)
256 kao( :, 2, 9) = (/&
257 &5.7991e+02_jprb,5.7550e+02_jprb,5.7048e+02_jprb,5.6499e+02_jprb,5.5881e+02_jprb/)
258 kao( :, 3, 9) = (/&
259 &5.9128e+02_jprb,5.8623e+02_jprb,5.8077e+02_jprb,5.7450e+02_jprb,5.6801e+02_jprb/)
260 kao( :, 4, 9) = (/&
261 &5.9173e+02_jprb,5.8627e+02_jprb,5.8008e+02_jprb,5.7365e+02_jprb,5.6657e+02_jprb/)
262 kao( :, 5, 9) = (/&
263 &5.8078e+02_jprb,5.7460e+02_jprb,5.6816e+02_jprb,5.6109e+02_jprb,5.5382e+02_jprb/)
264 kao( :, 6, 9) = (/&
265 &5.6004e+02_jprb,5.5342e+02_jprb,5.4648e+02_jprb,5.3935e+02_jprb,5.3177e+02_jprb/)
266 kao( :, 7, 9) = (/&
267 &5.3020e+02_jprb,5.2344e+02_jprb,5.1623e+02_jprb,5.0891e+02_jprb,5.0146e+02_jprb/)
268 kao( :, 8, 9) = (/&
269 &4.9306e+02_jprb,4.8589e+02_jprb,4.7879e+02_jprb,4.7156e+02_jprb,4.6424e+02_jprb/)
270 kao( :, 9, 9) = (/&
271 &4.5109e+02_jprb,4.4398e+02_jprb,4.3682e+02_jprb,4.2990e+02_jprb,4.2317e+02_jprb/)
272 kao( :,10, 9) = (/&
273 &4.0554e+02_jprb,3.9861e+02_jprb,3.9191e+02_jprb,3.8539e+02_jprb,3.7999e+02_jprb/)
274 kao( :,11, 9) = (/&
275 &3.5678e+02_jprb,3.5028e+02_jprb,3.4422e+02_jprb,3.3949e+02_jprb,3.3677e+02_jprb/)
276 kao( :,12, 9) = (/&
277 &3.0997e+02_jprb,3.0426e+02_jprb,2.9997e+02_jprb,2.9770e+02_jprb,2.9720e+02_jprb/)
278 kao( :,13, 9) = (/&
279 &2.6709e+02_jprb,2.6293e+02_jprb,2.6082e+02_jprb,2.6061e+02_jprb,2.6217e+02_jprb/)
280 kao( :, 1,10) = (/&
281 &9.5728e+02_jprb,9.5690e+02_jprb,9.5401e+02_jprb,9.5007e+02_jprb,9.4420e+02_jprb/)
282 kao( :, 2,10) = (/&
283 &1.0745e+03_jprb,1.0719e+03_jprb,1.0680e+03_jprb,1.0623e+03_jprb,1.0552e+03_jprb/)
284 kao( :, 3,10) = (/&
285 &1.1871e+03_jprb,1.1845e+03_jprb,1.1802e+03_jprb,1.1737e+03_jprb,1.1657e+03_jprb/)
286 kao( :, 4,10) = (/&
287 &1.2933e+03_jprb,1.2895e+03_jprb,1.2845e+03_jprb,1.2769e+03_jprb,1.2684e+03_jprb/)
288 kao( :, 5,10) = (/&
289 &1.3871e+03_jprb,1.3843e+03_jprb,1.3770e+03_jprb,1.3701e+03_jprb,1.3589e+03_jprb/)
290 kao( :, 6,10) = (/&
291 &1.4584e+03_jprb,1.4525e+03_jprb,1.4462e+03_jprb,1.4355e+03_jprb,1.4255e+03_jprb/)
292 kao( :, 7,10) = (/&
293 &1.5042e+03_jprb,1.4961e+03_jprb,1.4859e+03_jprb,1.4751e+03_jprb,1.4602e+03_jprb/)
294 kao( :, 8,10) = (/&
295 &1.5189e+03_jprb,1.5105e+03_jprb,1.4981e+03_jprb,1.4842e+03_jprb,1.4701e+03_jprb/)
296 kao( :, 9,10) = (/&
297 &1.5016e+03_jprb,1.4885e+03_jprb,1.4763e+03_jprb,1.4608e+03_jprb,1.4435e+03_jprb/)
298 kao( :,10,10) = (/&
299 &1.4531e+03_jprb,1.4390e+03_jprb,1.4217e+03_jprb,1.4053e+03_jprb,1.3883e+03_jprb/)
300 kao( :,11,10) = (/&
301 &1.3673e+03_jprb,1.3498e+03_jprb,1.3324e+03_jprb,1.3154e+03_jprb,1.2964e+03_jprb/)
302 kao( :,12,10) = (/&
303 &1.2564e+03_jprb,1.2384e+03_jprb,1.2210e+03_jprb,1.2031e+03_jprb,1.1837e+03_jprb/)
304 kao( :,13,10) = (/&
305 &1.1371e+03_jprb,1.1192e+03_jprb,1.1015e+03_jprb,1.0830e+03_jprb,1.0644e+03_jprb/)
306 kao( :, 1,11) = (/&
307 &1.0794e+03_jprb,1.0788e+03_jprb,1.0790e+03_jprb,1.0769e+03_jprb,1.0715e+03_jprb/)
308 kao( :, 2,11) = (/&
309 &1.2369e+03_jprb,1.2394e+03_jprb,1.2387e+03_jprb,1.2348e+03_jprb,1.2284e+03_jprb/)
310 kao( :, 3,11) = (/&
311 &1.4037e+03_jprb,1.4057e+03_jprb,1.4048e+03_jprb,1.4010e+03_jprb,1.3938e+03_jprb/)
312 kao( :, 4,11) = (/&
313 &1.5772e+03_jprb,1.5782e+03_jprb,1.5766e+03_jprb,1.5700e+03_jprb,1.5626e+03_jprb/)
314 kao( :, 5,11) = (/&
315 &1.7441e+03_jprb,1.7459e+03_jprb,1.7422e+03_jprb,1.7359e+03_jprb,1.7270e+03_jprb/)
316 kao( :, 6,11) = (/&
317 &1.9017e+03_jprb,1.9021e+03_jprb,1.8960e+03_jprb,1.8905e+03_jprb,1.8786e+03_jprb/)
318 kao( :, 7,11) = (/&
319 &2.0395e+03_jprb,2.0360e+03_jprb,2.0330e+03_jprb,2.0229e+03_jprb,2.0133e+03_jprb/)
320 kao( :, 8,11) = (/&
321 &2.1454e+03_jprb,2.1404e+03_jprb,2.1335e+03_jprb,2.1240e+03_jprb,2.1091e+03_jprb/)
322 kao( :, 9,11) = (/&
323 &2.2123e+03_jprb,2.2075e+03_jprb,2.1945e+03_jprb,2.1814e+03_jprb,2.1649e+03_jprb/)
324 kao( :,10,11) = (/&
325 &2.2367e+03_jprb,2.2244e+03_jprb,2.2129e+03_jprb,2.1949e+03_jprb,2.1755e+03_jprb/)
326 kao( :,11,11) = (/&
327 &2.2036e+03_jprb,2.1899e+03_jprb,2.1713e+03_jprb,2.1494e+03_jprb,2.1278e+03_jprb/)
328 kao( :,12,11) = (/&
329 &2.1239e+03_jprb,2.1041e+03_jprb,2.0806e+03_jprb,2.0570e+03_jprb,2.0321e+03_jprb/)
330 kao( :,13,11) = (/&
331 &1.9981e+03_jprb,1.9741e+03_jprb,1.9501e+03_jprb,1.9259e+03_jprb,1.8992e+03_jprb/)
332 kao( :, 1,12) = (/&
333 &1.1941e+03_jprb,1.1961e+03_jprb,1.1962e+03_jprb,1.1934e+03_jprb,1.1915e+03_jprb/)
334 kao( :, 2,12) = (/&
335 &1.3953e+03_jprb,1.3978e+03_jprb,1.3989e+03_jprb,1.3989e+03_jprb,1.3975e+03_jprb/)
336 kao( :, 3,12) = (/&
337 &1.6228e+03_jprb,1.6258e+03_jprb,1.6260e+03_jprb,1.6268e+03_jprb,1.6242e+03_jprb/)
338 kao( :, 4,12) = (/&
339 &1.8694e+03_jprb,1.8740e+03_jprb,1.8767e+03_jprb,1.8774e+03_jprb,1.8733e+03_jprb/)
340 kao( :, 5,12) = (/&
341 &2.1317e+03_jprb,2.1362e+03_jprb,2.1424e+03_jprb,2.1420e+03_jprb,2.1392e+03_jprb/)
342 kao( :, 6,12) = (/&
343 &2.4044e+03_jprb,2.4133e+03_jprb,2.4176e+03_jprb,2.4160e+03_jprb,2.4115e+03_jprb/)
344 kao( :, 7,12) = (/&
345 &2.6762e+03_jprb,2.6888e+03_jprb,2.6899e+03_jprb,2.6906e+03_jprb,2.6811e+03_jprb/)
346 kao( :, 8,12) = (/&
347 &2.9393e+03_jprb,2.9492e+03_jprb,2.9517e+03_jprb,2.9490e+03_jprb,2.9400e+03_jprb/)
348 kao( :, 9,12) = (/&
349 &3.1791e+03_jprb,3.1838e+03_jprb,3.1886e+03_jprb,3.1814e+03_jprb,3.1717e+03_jprb/)
350 kao( :,10,12) = (/&
351 &3.3778e+03_jprb,3.3826e+03_jprb,3.3785e+03_jprb,3.3711e+03_jprb,3.3555e+03_jprb/)
352 kao( :,11,12) = (/&
353 &3.5199e+03_jprb,3.5143e+03_jprb,3.5061e+03_jprb,3.4899e+03_jprb,3.4698e+03_jprb/)
354 kao( :,12,12) = (/&
355 &3.5918e+03_jprb,3.5807e+03_jprb,3.5632e+03_jprb,3.5417e+03_jprb,3.5132e+03_jprb/)
356 kao( :,13,12) = (/&
357 &3.5817e+03_jprb,3.5602e+03_jprb,3.5362e+03_jprb,3.5063e+03_jprb,3.4751e+03_jprb/)
358 kao( :, 1,13) = (/&
359 &1.2927e+03_jprb,1.2959e+03_jprb,1.2982e+03_jprb,1.2977e+03_jprb,1.2950e+03_jprb/)
360 kao( :, 2,13) = (/&
361 &1.5393e+03_jprb,1.5429e+03_jprb,1.5452e+03_jprb,1.5442e+03_jprb,1.5416e+03_jprb/)
362 kao( :, 3,13) = (/&
363 &1.8235e+03_jprb,1.8299e+03_jprb,1.8332e+03_jprb,1.8330e+03_jprb,1.8307e+03_jprb/)
364 kao( :, 4,13) = (/&
365 &2.1460e+03_jprb,2.1562e+03_jprb,2.1625e+03_jprb,2.1633e+03_jprb,2.1623e+03_jprb/)
366 kao( :, 5,13) = (/&
367 &2.5138e+03_jprb,2.5270e+03_jprb,2.5346e+03_jprb,2.5383e+03_jprb,2.5372e+03_jprb/)
368 kao( :, 6,13) = (/&
369 &2.9233e+03_jprb,2.9381e+03_jprb,2.9500e+03_jprb,2.9556e+03_jprb,2.9572e+03_jprb/)
370 kao( :, 7,13) = (/&
371 &3.3704e+03_jprb,3.3895e+03_jprb,3.4050e+03_jprb,3.4111e+03_jprb,3.4146e+03_jprb/)
372 kao( :, 8,13) = (/&
373 &3.8494e+03_jprb,3.8729e+03_jprb,3.8913e+03_jprb,3.9008e+03_jprb,3.9062e+03_jprb/)
374 kao( :, 9,13) = (/&
375 &4.3484e+03_jprb,4.3768e+03_jprb,4.3938e+03_jprb,4.4075e+03_jprb,4.4120e+03_jprb/)
376 kao( :,10,13) = (/&
377 &4.8563e+03_jprb,4.8884e+03_jprb,4.9080e+03_jprb,4.9204e+03_jprb,4.9230e+03_jprb/)
378 kao( :,11,13) = (/&
379 &5.3698e+03_jprb,5.3968e+03_jprb,5.4124e+03_jprb,5.4206e+03_jprb,5.4132e+03_jprb/)
380 kao( :,12,13) = (/&
381 &5.8401e+03_jprb,5.8572e+03_jprb,5.8683e+03_jprb,5.8634e+03_jprb,5.8549e+03_jprb/)
382 kao( :,13,13) = (/&
383 &6.2394e+03_jprb,6.2548e+03_jprb,6.2534e+03_jprb,6.2438e+03_jprb,6.2213e+03_jprb/)
384 kao( :, 1,14) = (/&
385 &1.3753e+03_jprb,1.3791e+03_jprb,1.3806e+03_jprb,1.3820e+03_jprb,1.3825e+03_jprb/)
386 kao( :, 2,14) = (/&
387 &1.6535e+03_jprb,1.6590e+03_jprb,1.6607e+03_jprb,1.6628e+03_jprb,1.6629e+03_jprb/)
388 kao( :, 3,14) = (/&
389 &1.9826e+03_jprb,1.9922e+03_jprb,1.9976e+03_jprb,2.0007e+03_jprb,2.0006e+03_jprb/)
390 kao( :, 4,14) = (/&
391 &2.3745e+03_jprb,2.3859e+03_jprb,2.3951e+03_jprb,2.4030e+03_jprb,2.4041e+03_jprb/)
392 kao( :, 5,14) = (/&
393 &2.8392e+03_jprb,2.8553e+03_jprb,2.8669e+03_jprb,2.8760e+03_jprb,2.8790e+03_jprb/)
394 kao( :, 6,14) = (/&
395 &3.3773e+03_jprb,3.4016e+03_jprb,3.4204e+03_jprb,3.4341e+03_jprb,3.4397e+03_jprb/)
396 kao( :, 7,14) = (/&
397 &4.0025e+03_jprb,4.0325e+03_jprb,4.0568e+03_jprb,4.0775e+03_jprb,4.0887e+03_jprb/)
398 kao( :, 8,14) = (/&
399 &4.7223e+03_jprb,4.7649e+03_jprb,4.7948e+03_jprb,4.8179e+03_jprb,4.8302e+03_jprb/)
400 kao( :, 9,14) = (/&
401 &5.5328e+03_jprb,5.5878e+03_jprb,5.6319e+03_jprb,5.6661e+03_jprb,5.6818e+03_jprb/)
402 kao( :,10,14) = (/&
403 &6.4532e+03_jprb,6.5137e+03_jprb,6.5680e+03_jprb,6.6072e+03_jprb,6.6322e+03_jprb/)
404 kao( :,11,14) = (/&
405 &7.5145e+03_jprb,7.5791e+03_jprb,7.6282e+03_jprb,7.6633e+03_jprb,7.6872e+03_jprb/)
406 kao( :,12,14) = (/&
407 &8.6607e+03_jprb,8.7343e+03_jprb,8.7852e+03_jprb,8.8163e+03_jprb,8.8288e+03_jprb/)
408 kao( :,13,14) = (/&
409 &9.8833e+03_jprb,9.9529e+03_jprb,1.0003e+04_jprb,1.0028e+04_jprb,1.0035e+04_jprb/)
410 kao( :, 1,15) = (/&
411 &1.4542e+03_jprb,1.4589e+03_jprb,1.4604e+03_jprb,1.4579e+03_jprb,1.4548e+03_jprb/)
412 kao( :, 2,15) = (/&
413 &1.7565e+03_jprb,1.7644e+03_jprb,1.7674e+03_jprb,1.7671e+03_jprb,1.7644e+03_jprb/)
414 kao( :, 3,15) = (/&
415 &2.1193e+03_jprb,2.1295e+03_jprb,2.1356e+03_jprb,2.1395e+03_jprb,2.1395e+03_jprb/)
416 kao( :, 4,15) = (/&
417 &2.5571e+03_jprb,2.5704e+03_jprb,2.5775e+03_jprb,2.5844e+03_jprb,2.5879e+03_jprb/)
418 kao( :, 5,15) = (/&
419 &3.0796e+03_jprb,3.0997e+03_jprb,3.1125e+03_jprb,3.1195e+03_jprb,3.1261e+03_jprb/)
420 kao( :, 6,15) = (/&
421 &3.7030e+03_jprb,3.7342e+03_jprb,3.7541e+03_jprb,3.7653e+03_jprb,3.7758e+03_jprb/)
422 kao( :, 7,15) = (/&
423 &4.4506e+03_jprb,4.4902e+03_jprb,4.5215e+03_jprb,4.5394e+03_jprb,4.5554e+03_jprb/)
424 kao( :, 8,15) = (/&
425 &5.3453e+03_jprb,5.3952e+03_jprb,5.4338e+03_jprb,5.4624e+03_jprb,5.4876e+03_jprb/)
426 kao( :, 9,15) = (/&
427 &6.4078e+03_jprb,6.4736e+03_jprb,6.5253e+03_jprb,6.5575e+03_jprb,6.5911e+03_jprb/)
428 kao( :,10,15) = (/&
429 &7.6598e+03_jprb,7.7526e+03_jprb,7.8219e+03_jprb,7.8681e+03_jprb,7.9031e+03_jprb/)
430 kao( :,11,15) = (/&
431 &9.1855e+03_jprb,9.2916e+03_jprb,9.3732e+03_jprb,9.4318e+03_jprb,9.4669e+03_jprb/)
432 kao( :,12,15) = (/&
433 &1.0994e+04_jprb,1.1100e+04_jprb,1.1186e+04_jprb,1.1251e+04_jprb,1.1289e+04_jprb/)
434 kao( :,13,15) = (/&
435 &1.3104e+04_jprb,1.3212e+04_jprb,1.3290e+04_jprb,1.3346e+04_jprb,1.3376e+04_jprb/)
436 kao( :, 1,16) = (/&
437 &1.4780e+03_jprb,1.4827e+03_jprb,1.4826e+03_jprb,1.4874e+03_jprb,1.4915e+03_jprb/)
438 kao( :, 2,16) = (/&
439 &1.7951e+03_jprb,1.8015e+03_jprb,1.8036e+03_jprb,1.8055e+03_jprb,1.8112e+03_jprb/)
440 kao( :, 3,16) = (/&
441 &2.1816e+03_jprb,2.1886e+03_jprb,2.1943e+03_jprb,2.1956e+03_jprb,2.1996e+03_jprb/)
442 kao( :, 4,16) = (/&
443 &2.6509e+03_jprb,2.6606e+03_jprb,2.6687e+03_jprb,2.6722e+03_jprb,2.6753e+03_jprb/)
444 kao( :, 5,16) = (/&
445 &3.2176e+03_jprb,3.2329e+03_jprb,3.2455e+03_jprb,3.2518e+03_jprb,3.2561e+03_jprb/)
446 kao( :, 6,16) = (/&
447 &3.8984e+03_jprb,3.9245e+03_jprb,3.9448e+03_jprb,3.9570e+03_jprb,3.9591e+03_jprb/)
448 kao( :, 7,16) = (/&
449 &4.7171e+03_jprb,4.7549e+03_jprb,4.7886e+03_jprb,4.8095e+03_jprb,4.8182e+03_jprb/)
450 kao( :, 8,16) = (/&
451 &5.7104e+03_jprb,5.7554e+03_jprb,5.8029e+03_jprb,5.8388e+03_jprb,5.8553e+03_jprb/)
452 kao( :, 9,16) = (/&
453 &6.9103e+03_jprb,6.9722e+03_jprb,7.0177e+03_jprb,7.0728e+03_jprb,7.1035e+03_jprb/)
454 kao( :,10,16) = (/&
455 &8.3550e+03_jprb,8.4416e+03_jprb,8.4942e+03_jprb,8.5534e+03_jprb,8.5999e+03_jprb/)
456 kao( :,11,16) = (/&
457 &1.0144e+04_jprb,1.0238e+04_jprb,1.0302e+04_jprb,1.0361e+04_jprb,1.0397e+04_jprb/)
458 kao( :,12,16) = (/&
459 &1.2283e+04_jprb,1.2387e+04_jprb,1.2470e+04_jprb,1.2524e+04_jprb,1.2537e+04_jprb/)
460 kao( :,13,16) = (/&
461 &1.4822e+04_jprb,1.4946e+04_jprb,1.5038e+04_jprb,1.5076e+04_jprb,1.5064e+04_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 &3.9171e-02_jprb,4.0209e-02_jprb,4.1806e-02_jprb,4.4182e-02_jprb,4.7428e-02_jprb/)
477 kbo( :,14, 1) = (/&
478 &3.2490e-02_jprb,3.3463e-02_jprb,3.4945e-02_jprb,3.7104e-02_jprb,4.0032e-02_jprb/)
479 kbo( :,15, 1) = (/&
480 &2.6917e-02_jprb,2.7822e-02_jprb,2.9187e-02_jprb,3.1142e-02_jprb,3.3701e-02_jprb/)
481 kbo( :,16, 1) = (/&
482 &2.2291e-02_jprb,2.3129e-02_jprb,2.4369e-02_jprb,2.6101e-02_jprb,2.8325e-02_jprb/)
483 kbo( :,17, 1) = (/&
484 &1.8463e-02_jprb,1.9231e-02_jprb,2.0335e-02_jprb,2.1845e-02_jprb,2.3775e-02_jprb/)
485 kbo( :,18, 1) = (/&
486 &1.5304e-02_jprb,1.5992e-02_jprb,1.6967e-02_jprb,1.8267e-02_jprb,1.9954e-02_jprb/)
487 kbo( :,19, 1) = (/&
488 &1.2689e-02_jprb,1.3293e-02_jprb,1.4142e-02_jprb,1.5272e-02_jprb,1.6744e-02_jprb/)
489 kbo( :,20, 1) = (/&
490 &1.0525e-02_jprb,1.1058e-02_jprb,1.1796e-02_jprb,1.2786e-02_jprb,1.4077e-02_jprb/)
491 kbo( :,21, 1) = (/&
492 &8.7289e-03_jprb,9.1958e-03_jprb,9.8417e-03_jprb,1.0709e-02_jprb,1.1847e-02_jprb/)
493 kbo( :,22, 1) = (/&
494 &7.2588e-03_jprb,7.6747e-03_jprb,8.2530e-03_jprb,9.0292e-03_jprb,1.0054e-02_jprb/)
495 kbo( :,23, 1) = (/&
496 &6.0387e-03_jprb,6.4108e-03_jprb,6.9298e-03_jprb,7.6312e-03_jprb,8.5511e-03_jprb/)
497 kbo( :,24, 1) = (/&
498 &5.0265e-03_jprb,5.3630e-03_jprb,5.8339e-03_jprb,6.4676e-03_jprb,7.2886e-03_jprb/)
499 kbo( :,25, 1) = (/&
500 &4.1912e-03_jprb,4.4982e-03_jprb,4.9297e-03_jprb,5.4991e-03_jprb,6.2336e-03_jprb/)
501 kbo( :,26, 1) = (/&
502 &3.5050e-03_jprb,3.7893e-03_jprb,4.1842e-03_jprb,4.6973e-03_jprb,5.3580e-03_jprb/)
503 kbo( :,27, 1) = (/&
504 &2.9383e-03_jprb,3.2032e-03_jprb,3.5605e-03_jprb,4.0246e-03_jprb,4.6201e-03_jprb/)
505 kbo( :,28, 1) = (/&
506 &2.4712e-03_jprb,2.7165e-03_jprb,3.0381e-03_jprb,3.4592e-03_jprb,3.9959e-03_jprb/)
507 kbo( :,29, 1) = (/&
508 &2.0871e-03_jprb,2.3113e-03_jprb,2.6040e-03_jprb,2.9852e-03_jprb,3.4732e-03_jprb/)
509 kbo( :,30, 1) = (/&
510 &1.7686e-03_jprb,1.9719e-03_jprb,2.2397e-03_jprb,2.5854e-03_jprb,3.0292e-03_jprb/)
511 kbo( :,31, 1) = (/&
512 &1.5043e-03_jprb,1.6903e-03_jprb,1.9338e-03_jprb,2.2497e-03_jprb,2.6538e-03_jprb/)
513 kbo( :,32, 1) = (/&
514 &1.2840e-03_jprb,1.4547e-03_jprb,1.6770e-03_jprb,1.9662e-03_jprb,2.3339e-03_jprb/)
515 kbo( :,33, 1) = (/&
516 &1.1003e-03_jprb,1.2566e-03_jprb,1.4609e-03_jprb,1.7254e-03_jprb,2.0596e-03_jprb/)
517 kbo( :,34, 1) = (/&
518 &9.4252e-04_jprb,1.0841e-03_jprb,1.2703e-03_jprb,1.5103e-03_jprb,1.8108e-03_jprb/)
519 kbo( :,35, 1) = (/&
520 &7.9883e-04_jprb,9.2438e-04_jprb,1.0899e-03_jprb,1.3019e-03_jprb,1.5661e-03_jprb/)
521 kbo( :,36, 1) = (/&
522 &6.6758e-04_jprb,7.7591e-04_jprb,9.1882e-04_jprb,1.1013e-03_jprb,1.3278e-03_jprb/)
523 kbo( :,37, 1) = (/&
524 &5.4656e-04_jprb,6.3617e-04_jprb,7.5472e-04_jprb,9.0662e-04_jprb,1.0949e-03_jprb/)
525 kbo( :,38, 1) = (/&
526 &4.4691e-04_jprb,5.2075e-04_jprb,6.1878e-04_jprb,7.4481e-04_jprb,9.0091e-04_jprb/)
527 kbo( :,39, 1) = (/&
528 &3.6542e-04_jprb,4.2618e-04_jprb,5.0722e-04_jprb,6.1164e-04_jprb,7.4104e-04_jprb/)
529 kbo( :,40, 1) = (/&
530 &2.9441e-04_jprb,3.4292e-04_jprb,4.0801e-04_jprb,4.9232e-04_jprb,5.9726e-04_jprb/)
531 kbo( :,41, 1) = (/&
532 &2.3677e-04_jprb,2.7525e-04_jprb,3.2723e-04_jprb,3.9501e-04_jprb,4.7963e-04_jprb/)
533 kbo( :,42, 1) = (/&
534 &1.9036e-04_jprb,2.2088e-04_jprb,2.6226e-04_jprb,3.1664e-04_jprb,3.8484e-04_jprb/)
535 kbo( :,43, 1) = (/&
536 &1.5188e-04_jprb,1.7566e-04_jprb,2.0797e-04_jprb,2.5103e-04_jprb,3.0521e-04_jprb/)
537 kbo( :,44, 1) = (/&
538 &1.2085e-04_jprb,1.3918e-04_jprb,1.6418e-04_jprb,1.9786e-04_jprb,2.4065e-04_jprb/)
539 kbo( :,45, 1) = (/&
540 &9.6221e-05_jprb,1.1032e-04_jprb,1.2961e-04_jprb,1.5587e-04_jprb,1.8956e-04_jprb/)
541 kbo( :,46, 1) = (/&
542 &7.6451e-05_jprb,8.7222e-05_jprb,1.0196e-04_jprb,1.2223e-04_jprb,1.4859e-04_jprb/)
543 kbo( :,47, 1) = (/&
544 &6.0518e-05_jprb,6.8617e-05_jprb,7.9736e-05_jprb,9.5061e-05_jprb,1.1539e-04_jprb/)
545 kbo( :,48, 1) = (/&
546 &4.7995e-05_jprb,5.4058e-05_jprb,6.2416e-05_jprb,7.3982e-05_jprb,8.9568e-05_jprb/)
547 kbo( :,49, 1) = (/&
548 &3.8135e-05_jprb,4.2643e-05_jprb,4.8908e-05_jprb,5.7603e-05_jprb,6.9496e-05_jprb/)
549 kbo( :,50, 1) = (/&
550 &3.0417e-05_jprb,3.3789e-05_jprb,3.8523e-05_jprb,4.5097e-05_jprb,5.4183e-05_jprb/)
551 kbo( :,51, 1) = (/&
552 &2.4294e-05_jprb,2.6856e-05_jprb,3.0433e-05_jprb,3.5411e-05_jprb,4.2342e-05_jprb/)
553 kbo( :,52, 1) = (/&
554 &1.9384e-05_jprb,2.1372e-05_jprb,2.4069e-05_jprb,2.7837e-05_jprb,3.3107e-05_jprb/)
555 kbo( :,53, 1) = (/&
556 &1.5445e-05_jprb,1.7027e-05_jprb,1.9053e-05_jprb,2.1903e-05_jprb,2.5892e-05_jprb/)
557 kbo( :,54, 1) = (/&
558 &1.2327e-05_jprb,1.3603e-05_jprb,1.5162e-05_jprb,1.7332e-05_jprb,2.0379e-05_jprb/)
559 kbo( :,55, 1) = (/&
560 &9.8408e-06_jprb,1.0879e-05_jprb,1.2096e-05_jprb,1.3752e-05_jprb,1.6089e-05_jprb/)
561 kbo( :,56, 1) = (/&
562 &7.8284e-06_jprb,8.6964e-06_jprb,9.6567e-06_jprb,1.0920e-05_jprb,1.2709e-05_jprb/)
563 kbo( :,57, 1) = (/&
564 &6.2093e-06_jprb,6.9436e-06_jprb,7.7088e-06_jprb,8.6775e-06_jprb,1.0049e-05_jprb/)
565 kbo( :,58, 1) = (/&
566 &4.9212e-06_jprb,5.5457e-06_jprb,6.1634e-06_jprb,6.9165e-06_jprb,7.9717e-06_jprb/)
567 kbo( :,59, 1) = (/&
568 &3.9876e-06_jprb,4.5117e-06_jprb,5.0251e-06_jprb,5.6457e-06_jprb,6.5064e-06_jprb/)
569 kbo( :,13, 2) = (/&
570 &1.3642e-01_jprb,1.5192e-01_jprb,1.7017e-01_jprb,1.9179e-01_jprb,2.1776e-01_jprb/)
571 kbo( :,14, 2) = (/&
572 &1.1549e-01_jprb,1.2903e-01_jprb,1.4505e-01_jprb,1.6416e-01_jprb,1.8735e-01_jprb/)
573 kbo( :,15, 2) = (/&
574 &9.7601e-02_jprb,1.0941e-01_jprb,1.2344e-01_jprb,1.4044e-01_jprb,1.6109e-01_jprb/)
575 kbo( :,16, 2) = (/&
576 &8.2400e-02_jprb,9.2656e-02_jprb,1.0500e-01_jprb,1.2010e-01_jprb,1.3841e-01_jprb/)
577 kbo( :,17, 2) = (/&
578 &6.9444e-02_jprb,7.8382e-02_jprb,8.9340e-02_jprb,1.0266e-01_jprb,1.1885e-01_jprb/)
579 kbo( :,18, 2) = (/&
580 &5.8427e-02_jprb,6.6311e-02_jprb,7.5999e-02_jprb,8.7777e-02_jprb,1.0199e-01_jprb/)
581 kbo( :,19, 2) = (/&
582 &4.9105e-02_jprb,5.6056e-02_jprb,6.4599e-02_jprb,7.4928e-02_jprb,8.7316e-02_jprb/)
583 kbo( :,20, 2) = (/&
584 &4.1362e-02_jprb,4.7500e-02_jprb,5.4972e-02_jprb,6.3982e-02_jprb,7.4793e-02_jprb/)
585 kbo( :,21, 2) = (/&
586 &3.4892e-02_jprb,4.0253e-02_jprb,4.6723e-02_jprb,5.4540e-02_jprb,6.3927e-02_jprb/)
587 kbo( :,22, 2) = (/&
588 &2.9712e-02_jprb,3.4419e-02_jprb,4.0080e-02_jprb,4.6923e-02_jprb,5.5143e-02_jprb/)
589 kbo( :,23, 2) = (/&
590 &2.5337e-02_jprb,2.9440e-02_jprb,3.4407e-02_jprb,4.0399e-02_jprb,4.7598e-02_jprb/)
591 kbo( :,24, 2) = (/&
592 &2.1646e-02_jprb,2.5231e-02_jprb,2.9587e-02_jprb,3.4849e-02_jprb,4.1184e-02_jprb/)
593 kbo( :,25, 2) = (/&
594 &1.8533e-02_jprb,2.1686e-02_jprb,2.5506e-02_jprb,3.0158e-02_jprb,3.5787e-02_jprb/)
595 kbo( :,26, 2) = (/&
596 &1.5940e-02_jprb,1.8720e-02_jprb,2.2097e-02_jprb,2.6247e-02_jprb,3.1293e-02_jprb/)
597 kbo( :,27, 2) = (/&
598 &1.3738e-02_jprb,1.6188e-02_jprb,1.9206e-02_jprb,2.2922e-02_jprb,2.7465e-02_jprb/)
599 kbo( :,28, 2) = (/&
600 &1.1858e-02_jprb,1.4036e-02_jprb,1.6746e-02_jprb,2.0086e-02_jprb,2.4173e-02_jprb/)
601 kbo( :,29, 2) = (/&
602 &1.0271e-02_jprb,1.2222e-02_jprb,1.4667e-02_jprb,1.7690e-02_jprb,2.1356e-02_jprb/)
603 kbo( :,30, 2) = (/&
604 &8.9226e-03_jprb,1.0686e-02_jprb,1.2896e-02_jprb,1.5632e-02_jprb,1.8914e-02_jprb/)
605 kbo( :,31, 2) = (/&
606 &7.7843e-03_jprb,9.3890e-03_jprb,1.1399e-02_jprb,1.3861e-02_jprb,1.6797e-02_jprb/)
607 kbo( :,32, 2) = (/&
608 &6.8247e-03_jprb,8.2905e-03_jprb,1.0116e-02_jprb,1.2328e-02_jprb,1.4951e-02_jprb/)
609 kbo( :,33, 2) = (/&
610 &6.0149e-03_jprb,7.3520e-03_jprb,8.9996e-03_jprb,1.0989e-02_jprb,1.3332e-02_jprb/)
611 kbo( :,34, 2) = (/&
612 &5.2871e-03_jprb,6.4941e-03_jprb,7.9727e-03_jprb,9.7480e-03_jprb,1.1841e-02_jprb/)
613 kbo( :,35, 2) = (/&
614 &4.5697e-03_jprb,5.6343e-03_jprb,6.9361e-03_jprb,8.4981e-03_jprb,1.0344e-02_jprb/)
615 kbo( :,36, 2) = (/&
616 &3.8668e-03_jprb,4.7847e-03_jprb,5.9090e-03_jprb,7.2600e-03_jprb,8.8580e-03_jprb/)
617 kbo( :,37, 2) = (/&
618 &3.1704e-03_jprb,3.9381e-03_jprb,4.8844e-03_jprb,6.0241e-03_jprb,7.3747e-03_jprb/)
619 kbo( :,38, 2) = (/&
620 &2.5936e-03_jprb,3.2350e-03_jprb,4.0298e-03_jprb,4.9900e-03_jprb,6.1292e-03_jprb/)
621 kbo( :,39, 2) = (/&
622 &2.1215e-03_jprb,2.6573e-03_jprb,3.3247e-03_jprb,4.1335e-03_jprb,5.0950e-03_jprb/)
623 kbo( :,40, 2) = (/&
624 &1.6950e-03_jprb,2.1322e-03_jprb,2.6802e-03_jprb,3.3483e-03_jprb,4.1474e-03_jprb/)
625 kbo( :,41, 2) = (/&
626 &1.3487e-03_jprb,1.7036e-03_jprb,2.1515e-03_jprb,2.7015e-03_jprb,3.3638e-03_jprb/)
627 kbo( :,42, 2) = (/&
628 &1.0717e-03_jprb,1.3591e-03_jprb,1.7246e-03_jprb,2.1766e-03_jprb,2.7248e-03_jprb/)
629 kbo( :,43, 2) = (/&
630 &8.3901e-04_jprb,1.0683e-03_jprb,1.3622e-03_jprb,1.7292e-03_jprb,2.1771e-03_jprb/)
631 kbo( :,44, 2) = (/&
632 &6.5192e-04_jprb,8.3311e-04_jprb,1.0673e-03_jprb,1.3624e-03_jprb,1.7262e-03_jprb/)
633 kbo( :,45, 2) = (/&
634 &5.0592e-04_jprb,6.4840e-04_jprb,8.3427e-04_jprb,1.0708e-03_jprb,1.3653e-03_jprb/)
635 kbo( :,46, 2) = (/&
636 &3.9015e-04_jprb,5.0066e-04_jprb,6.4700e-04_jprb,8.3496e-04_jprb,1.0720e-03_jprb/)
637 kbo( :,47, 2) = (/&
638 &2.9734e-04_jprb,3.8142e-04_jprb,4.9495e-04_jprb,6.4229e-04_jprb,8.3000e-04_jprb/)
639 kbo( :,48, 2) = (/&
640 &2.2635e-04_jprb,2.9002e-04_jprb,3.7759e-04_jprb,4.9244e-04_jprb,6.4043e-04_jprb/)
641 kbo( :,49, 2) = (/&
642 &1.7220e-04_jprb,2.2034e-04_jprb,2.8722e-04_jprb,3.7634e-04_jprb,4.9229e-04_jprb/)
643 kbo( :,50, 2) = (/&
644 &1.3177e-04_jprb,1.6818e-04_jprb,2.1937e-04_jprb,2.8871e-04_jprb,3.7961e-04_jprb/)
645 kbo( :,51, 2) = (/&
646 &1.0109e-04_jprb,1.2859e-04_jprb,1.6766e-04_jprb,2.2156e-04_jprb,2.9268e-04_jprb/)
647 kbo( :,52, 2) = (/&
648 &7.7612e-05_jprb,9.8243e-05_jprb,1.2795e-04_jprb,1.6959e-04_jprb,2.2502e-04_jprb/)
649 kbo( :,53, 2) = (/&
650 &5.9611e-05_jprb,7.4979e-05_jprb,9.7483e-05_jprb,1.2940e-04_jprb,1.7242e-04_jprb/)
651 kbo( :,54, 2) = (/&
652 &4.6116e-05_jprb,5.7675e-05_jprb,7.4813e-05_jprb,9.9354e-05_jprb,1.3295e-04_jprb/)
653 kbo( :,55, 2) = (/&
654 &3.5802e-05_jprb,4.4529e-05_jprb,5.7546e-05_jprb,7.6441e-05_jprb,1.0268e-04_jprb/)
655 kbo( :,56, 2) = (/&
656 &2.7830e-05_jprb,3.4393e-05_jprb,4.4221e-05_jprb,5.8724e-05_jprb,7.9138e-05_jprb/)
657 kbo( :,57, 2) = (/&
658 &2.1657e-05_jprb,2.6571e-05_jprb,3.3962e-05_jprb,4.5038e-05_jprb,6.0834e-05_jprb/)
659 kbo( :,58, 2) = (/&
660 &1.6922e-05_jprb,2.0621e-05_jprb,2.6207e-05_jprb,3.4660e-05_jprb,4.6890e-05_jprb/)
661 kbo( :,59, 2) = (/&
662 &1.3669e-05_jprb,1.6659e-05_jprb,2.1203e-05_jprb,2.8141e-05_jprb,3.8169e-05_jprb/)
663 kbo( :,13, 3) = (/&
664 &4.6528e-01_jprb,5.5437e-01_jprb,6.5439e-01_jprb,7.6387e-01_jprb,8.8225e-01_jprb/)
665 kbo( :,14, 3) = (/&
666 &4.0092e-01_jprb,4.7676e-01_jprb,5.6104e-01_jprb,6.5300e-01_jprb,7.5323e-01_jprb/)
667 kbo( :,15, 3) = (/&
668 &3.4496e-01_jprb,4.0936e-01_jprb,4.8004e-01_jprb,5.5783e-01_jprb,6.4259e-01_jprb/)
669 kbo( :,16, 3) = (/&
670 &2.9656e-01_jprb,3.5091e-01_jprb,4.1039e-01_jprb,4.7609e-01_jprb,5.4769e-01_jprb/)
671 kbo( :,17, 3) = (/&
672 &2.5400e-01_jprb,2.9985e-01_jprb,3.5009e-01_jprb,4.0555e-01_jprb,4.6622e-01_jprb/)
673 kbo( :,18, 3) = (/&
674 &2.1658e-01_jprb,2.5524e-01_jprb,2.9779e-01_jprb,3.4497e-01_jprb,3.9663e-01_jprb/)
675 kbo( :,19, 3) = (/&
676 &1.8401e-01_jprb,2.1660e-01_jprb,2.5265e-01_jprb,2.9293e-01_jprb,3.3703e-01_jprb/)
677 kbo( :,20, 3) = (/&
678 &1.5650e-01_jprb,1.8401e-01_jprb,2.1476e-01_jprb,2.4926e-01_jprb,2.8701e-01_jprb/)
679 kbo( :,21, 3) = (/&
680 &1.3298e-01_jprb,1.5631e-01_jprb,1.8271e-01_jprb,2.1234e-01_jprb,2.4465e-01_jprb/)
681 kbo( :,22, 3) = (/&
682 &1.1417e-01_jprb,1.3429e-01_jprb,1.5724e-01_jprb,1.8276e-01_jprb,2.1037e-01_jprb/)
683 kbo( :,23, 3) = (/&
684 &9.8014e-02_jprb,1.1558e-01_jprb,1.3557e-01_jprb,1.5742e-01_jprb,1.8091e-01_jprb/)
685 kbo( :,24, 3) = (/&
686 &8.4303e-02_jprb,9.9682e-02_jprb,1.1696e-01_jprb,1.3564e-01_jprb,1.5560e-01_jprb/)
687 kbo( :,25, 3) = (/&
688 &7.2747e-02_jprb,8.6163e-02_jprb,1.0094e-01_jprb,1.1688e-01_jprb,1.3386e-01_jprb/)
689 kbo( :,26, 3) = (/&
690 &6.3075e-02_jprb,7.4679e-02_jprb,8.7296e-02_jprb,1.0089e-01_jprb,1.1530e-01_jprb/)
691 kbo( :,27, 3) = (/&
692 &5.4748e-02_jprb,6.4713e-02_jprb,7.5472e-02_jprb,8.7090e-02_jprb,9.9299e-02_jprb/)
693 kbo( :,28, 3) = (/&
694 &4.7545e-02_jprb,5.6049e-02_jprb,6.5267e-02_jprb,7.5162e-02_jprb,8.5597e-02_jprb/)
695 kbo( :,29, 3) = (/&
696 &4.1339e-02_jprb,4.8610e-02_jprb,5.6528e-02_jprb,6.4950e-02_jprb,7.3930e-02_jprb/)
697 kbo( :,30, 3) = (/&
698 &3.5954e-02_jprb,4.2191e-02_jprb,4.8989e-02_jprb,5.6214e-02_jprb,6.3907e-02_jprb/)
699 kbo( :,31, 3) = (/&
700 &3.1296e-02_jprb,3.6680e-02_jprb,4.2495e-02_jprb,4.8776e-02_jprb,5.5328e-02_jprb/)
701 kbo( :,32, 3) = (/&
702 &2.7277e-02_jprb,3.1929e-02_jprb,3.6963e-02_jprb,4.2388e-02_jprb,4.7945e-02_jprb/)
703 kbo( :,33, 3) = (/&
704 &2.3800e-02_jprb,2.7822e-02_jprb,3.2216e-02_jprb,3.6870e-02_jprb,4.1544e-02_jprb/)
705 kbo( :,34, 3) = (/&
706 &2.0672e-02_jprb,2.4161e-02_jprb,2.7975e-02_jprb,3.1921e-02_jprb,3.5834e-02_jprb/)
707 kbo( :,35, 3) = (/&
708 &1.7697e-02_jprb,2.0710e-02_jprb,2.3987e-02_jprb,2.7306e-02_jprb,3.0580e-02_jprb/)
709 kbo( :,36, 3) = (/&
710 &1.4902e-02_jprb,1.7480e-02_jprb,2.0264e-02_jprb,2.3055e-02_jprb,2.5809e-02_jprb/)
711 kbo( :,37, 3) = (/&
712 &1.2253e-02_jprb,1.4429e-02_jprb,1.6775e-02_jprb,1.9126e-02_jprb,2.1452e-02_jprb/)
713 kbo( :,38, 3) = (/&
714 &1.0063e-02_jprb,1.1900e-02_jprb,1.3875e-02_jprb,1.5855e-02_jprb,1.7824e-02_jprb/)
715 kbo( :,39, 3) = (/&
716 &8.2683e-03_jprb,9.8196e-03_jprb,1.1482e-02_jprb,1.3151e-02_jprb,1.4822e-02_jprb/)
717 kbo( :,40, 3) = (/&
718 &6.6706e-03_jprb,7.9659e-03_jprb,9.3641e-03_jprb,1.0772e-02_jprb,1.2185e-02_jprb/)
719 kbo( :,41, 3) = (/&
720 &5.3639e-03_jprb,6.4425e-03_jprb,7.6176e-03_jprb,8.8040e-03_jprb,9.9984e-03_jprb/)
721 kbo( :,42, 3) = (/&
722 &4.3069e-03_jprb,5.2039e-03_jprb,6.1906e-03_jprb,7.1908e-03_jprb,8.2008e-03_jprb/)
723 kbo( :,43, 3) = (/&
724 &3.4140e-03_jprb,4.1540e-03_jprb,4.9779e-03_jprb,5.8242e-03_jprb,6.6751e-03_jprb/)
725 kbo( :,44, 3) = (/&
726 &2.6853e-03_jprb,3.2927e-03_jprb,3.9767e-03_jprb,4.6909e-03_jprb,5.4086e-03_jprb/)
727 kbo( :,45, 3) = (/&
728 &2.1067e-03_jprb,2.6025e-03_jprb,3.1683e-03_jprb,3.7707e-03_jprb,4.3756e-03_jprb/)
729 kbo( :,46, 3) = (/&
730 &1.6407e-03_jprb,2.0417e-03_jprb,2.5060e-03_jprb,3.0128e-03_jprb,3.5248e-03_jprb/)
731 kbo( :,47, 3) = (/&
732 &1.2608e-03_jprb,1.5817e-03_jprb,1.9591e-03_jprb,2.3817e-03_jprb,2.8141e-03_jprb/)
733 kbo( :,48, 3) = (/&
734 &9.6508e-04_jprb,1.2203e-03_jprb,1.5253e-03_jprb,1.8746e-03_jprb,2.2397e-03_jprb/)
735 kbo( :,49, 3) = (/&
736 &7.3585e-04_jprb,9.3796e-04_jprb,1.1824e-03_jprb,1.4683e-03_jprb,1.7760e-03_jprb/)
737 kbo( :,50, 3) = (/&
738 &5.6241e-04_jprb,7.2242e-04_jprb,9.1862e-04_jprb,1.1510e-03_jprb,1.4096e-03_jprb/)
739 kbo( :,51, 3) = (/&
740 &4.2964e-04_jprb,5.5593e-04_jprb,7.1290e-04_jprb,9.0146e-04_jprb,1.1171e-03_jprb/)
741 kbo( :,52, 3) = (/&
742 &3.2726e-04_jprb,4.2631e-04_jprb,5.5102e-04_jprb,7.0359e-04_jprb,8.8175e-04_jprb/)
743 kbo( :,53, 3) = (/&
744 &2.4838e-04_jprb,3.2560e-04_jprb,4.2431e-04_jprb,5.4692e-04_jprb,6.9286e-04_jprb/)
745 kbo( :,54, 3) = (/&
746 &1.8942e-04_jprb,2.4999e-04_jprb,3.2832e-04_jprb,4.2678e-04_jprb,5.4592e-04_jprb/)
747 kbo( :,55, 3) = (/&
748 &1.4456e-04_jprb,1.9209e-04_jprb,2.5406e-04_jprb,3.3310e-04_jprb,4.3005e-04_jprb/)
749 kbo( :,56, 3) = (/&
750 &1.1005e-04_jprb,1.4722e-04_jprb,1.9603e-04_jprb,2.5905e-04_jprb,3.3773e-04_jprb/)
751 kbo( :,57, 3) = (/&
752 &8.3591e-05_jprb,1.1253e-04_jprb,1.5073e-04_jprb,2.0071e-04_jprb,2.6434e-04_jprb/)
753 kbo( :,58, 3) = (/&
754 &6.3746e-05_jprb,8.6176e-05_jprb,1.1609e-04_jprb,1.5578e-04_jprb,2.0708e-04_jprb/)
755 kbo( :,59, 3) = (/&
756 &5.1259e-05_jprb,6.9567e-05_jprb,9.4236e-05_jprb,1.2739e-04_jprb,1.7028e-04_jprb/)
757 kbo( :,13, 4) = (/&
758 &1.7515e+00_jprb,1.9495e+00_jprb,2.1521e+00_jprb,2.3581e+00_jprb,2.5501e+00_jprb/)
759 kbo( :,14, 4) = (/&
760 &1.4765e+00_jprb,1.6496e+00_jprb,1.8290e+00_jprb,2.0062e+00_jprb,2.1622e+00_jprb/)
761 kbo( :,15, 4) = (/&
762 &1.2492e+00_jprb,1.4011e+00_jprb,1.5567e+00_jprb,1.6989e+00_jprb,1.8218e+00_jprb/)
763 kbo( :,16, 4) = (/&
764 &1.0604e+00_jprb,1.1904e+00_jprb,1.3179e+00_jprb,1.4307e+00_jprb,1.5294e+00_jprb/)
765 kbo( :,17, 4) = (/&
766 &8.9936e-01_jprb,1.0071e+00_jprb,1.1099e+00_jprb,1.2005e+00_jprb,1.2809e+00_jprb/)
767 kbo( :,18, 4) = (/&
768 &7.6142e-01_jprb,8.4995e-01_jprb,9.3267e-01_jprb,1.0060e+00_jprb,1.0720e+00_jprb/)
769 kbo( :,19, 4) = (/&
770 &6.4349e-01_jprb,7.1626e-01_jprb,7.8316e-01_jprb,8.4250e-01_jprb,8.9631e-01_jprb/)
771 kbo( :,20, 4) = (/&
772 &5.4427e-01_jprb,6.0390e-01_jprb,6.5771e-01_jprb,7.0547e-01_jprb,7.4978e-01_jprb/)
773 kbo( :,21, 4) = (/&
774 &4.5925e-01_jprb,5.0777e-01_jprb,5.5117e-01_jprb,5.9049e-01_jprb,6.2731e-01_jprb/)
775 kbo( :,22, 4) = (/&
776 &3.8923e-01_jprb,4.2824e-01_jprb,4.6341e-01_jprb,4.9590e-01_jprb,5.2688e-01_jprb/)
777 kbo( :,23, 4) = (/&
778 &3.2937e-01_jprb,3.6081e-01_jprb,3.8954e-01_jprb,4.1663e-01_jprb,4.4301e-01_jprb/)
779 kbo( :,24, 4) = (/&
780 &2.7854e-01_jprb,3.0409e-01_jprb,3.2784e-01_jprb,3.5064e-01_jprb,3.7278e-01_jprb/)
781 kbo( :,25, 4) = (/&
782 &2.3559e-01_jprb,2.5658e-01_jprb,2.7647e-01_jprb,2.9561e-01_jprb,3.1381e-01_jprb/)
783 kbo( :,26, 4) = (/&
784 &1.9962e-01_jprb,2.1703e-01_jprb,2.3374e-01_jprb,2.4963e-01_jprb,2.6441e-01_jprb/)
785 kbo( :,27, 4) = (/&
786 &1.6921e-01_jprb,1.8380e-01_jprb,1.9768e-01_jprb,2.1076e-01_jprb,2.2287e-01_jprb/)
787 kbo( :,28, 4) = (/&
788 &1.4345e-01_jprb,1.5565e-01_jprb,1.6716e-01_jprb,1.7793e-01_jprb,1.8788e-01_jprb/)
789 kbo( :,29, 4) = (/&
790 &1.2177e-01_jprb,1.3186e-01_jprb,1.4136e-01_jprb,1.5019e-01_jprb,1.5853e-01_jprb/)
791 kbo( :,30, 4) = (/&
792 &1.0336e-01_jprb,1.1168e-01_jprb,1.1949e-01_jprb,1.2673e-01_jprb,1.3395e-01_jprb/)
793 kbo( :,31, 4) = (/&
794 &8.7734e-02_jprb,9.4596e-02_jprb,1.0101e-01_jprb,1.0703e-01_jprb,1.1341e-01_jprb/)
795 kbo( :,32, 4) = (/&
796 &7.4481e-02_jprb,8.0126e-02_jprb,8.5362e-02_jprb,9.0546e-02_jprb,9.6274e-02_jprb/)
797 kbo( :,33, 4) = (/&
798 &6.3213e-02_jprb,6.7862e-02_jprb,7.2206e-02_jprb,7.6786e-02_jprb,8.2026e-02_jprb/)
799 kbo( :,34, 4) = (/&
800 &5.3531e-02_jprb,5.7349e-02_jprb,6.1073e-02_jprb,6.5202e-02_jprb,6.9973e-02_jprb/)
801 kbo( :,35, 4) = (/&
802 &4.5020e-02_jprb,4.8200e-02_jprb,5.1452e-02_jprb,5.5159e-02_jprb,5.9429e-02_jprb/)
803 kbo( :,36, 4) = (/&
804 &3.7576e-02_jprb,4.0274e-02_jprb,4.3123e-02_jprb,4.6399e-02_jprb,5.0146e-02_jprb/)
805 kbo( :,37, 4) = (/&
806 &3.1036e-02_jprb,3.3333e-02_jprb,3.5789e-02_jprb,3.8617e-02_jprb,4.1842e-02_jprb/)
807 kbo( :,38, 4) = (/&
808 &2.5615e-02_jprb,2.7577e-02_jprb,2.9689e-02_jprb,3.2124e-02_jprb,3.4898e-02_jprb/)
809 kbo( :,39, 4) = (/&
810 &2.1142e-02_jprb,2.2815e-02_jprb,2.4636e-02_jprb,2.6727e-02_jprb,2.9117e-02_jprb/)
811 kbo( :,40, 4) = (/&
812 &1.7305e-02_jprb,1.8730e-02_jprb,2.0274e-02_jprb,2.2044e-02_jprb,2.4076e-02_jprb/)
813 kbo( :,41, 4) = (/&
814 &1.4141e-02_jprb,1.5353e-02_jprb,1.6658e-02_jprb,1.8154e-02_jprb,1.9875e-02_jprb/)
815 kbo( :,42, 4) = (/&
816 &1.1548e-02_jprb,1.2579e-02_jprb,1.3681e-02_jprb,1.4943e-02_jprb,1.6400e-02_jprb/)
817 kbo( :,43, 4) = (/&
818 &9.3739e-03_jprb,1.0251e-02_jprb,1.1178e-02_jprb,1.2234e-02_jprb,1.3456e-02_jprb/)
819 kbo( :,44, 4) = (/&
820 &7.5827e-03_jprb,8.3302e-03_jprb,9.1085e-03_jprb,9.9874e-03_jprb,1.1008e-02_jprb/)
821 kbo( :,45, 4) = (/&
822 &6.1263e-03_jprb,6.7635e-03_jprb,7.4181e-03_jprb,8.1480e-03_jprb,8.9981e-03_jprb/)
823 kbo( :,46, 4) = (/&
824 &4.9321e-03_jprb,5.4733e-03_jprb,6.0244e-03_jprb,6.6282e-03_jprb,7.3328e-03_jprb/)
825 kbo( :,47, 4) = (/&
826 &3.9434e-03_jprb,4.4020e-03_jprb,4.8671e-03_jprb,5.3648e-03_jprb,5.9417e-03_jprb/)
827 kbo( :,48, 4) = (/&
828 &3.1433e-03_jprb,3.5325e-03_jprb,3.9255e-03_jprb,4.3369e-03_jprb,4.8087e-03_jprb/)
829 kbo( :,49, 4) = (/&
830 &2.4978e-03_jprb,2.8291e-03_jprb,3.1605e-03_jprb,3.5019e-03_jprb,3.8874e-03_jprb/)
831 kbo( :,50, 4) = (/&
832 &1.9842e-03_jprb,2.2663e-03_jprb,2.5454e-03_jprb,2.8316e-03_jprb,3.1474e-03_jprb/)
833 kbo( :,51, 4) = (/&
834 &1.5720e-03_jprb,1.8131e-03_jprb,2.0480e-03_jprb,2.2890e-03_jprb,2.5485e-03_jprb/)
835 kbo( :,52, 4) = (/&
836 &1.2397e-03_jprb,1.4466e-03_jprb,1.6443e-03_jprb,1.8471e-03_jprb,2.0617e-03_jprb/)
837 kbo( :,53, 4) = (/&
838 &9.7269e-04_jprb,1.1506e-03_jprb,1.3170e-03_jprb,1.4882e-03_jprb,1.6660e-03_jprb/)
839 kbo( :,54, 4) = (/&
840 &7.6427e-04_jprb,9.1578e-04_jprb,1.0573e-03_jprb,1.2008e-03_jprb,1.3494e-03_jprb/)
841 kbo( :,55, 4) = (/&
842 &5.9962e-04_jprb,7.2798e-04_jprb,8.4833e-04_jprb,9.6858e-04_jprb,1.0933e-03_jprb/)
843 kbo( :,56, 4) = (/&
844 &4.6816e-04_jprb,5.7642e-04_jprb,6.7912e-04_jprb,7.7992e-04_jprb,8.8480e-04_jprb/)
845 kbo( :,57, 4) = (/&
846 &3.6414e-04_jprb,4.5440e-04_jprb,5.4227e-04_jprb,6.2686e-04_jprb,7.1489e-04_jprb/)
847 kbo( :,58, 4) = (/&
848 &2.8365e-04_jprb,3.5805e-04_jprb,4.3286e-04_jprb,5.0398e-04_jprb,5.7785e-04_jprb/)
849 kbo( :,59, 4) = (/&
850 &2.3044e-04_jprb,2.9262e-04_jprb,3.5550e-04_jprb,4.1574e-04_jprb,4.7795e-04_jprb/)
851 kbo( :,13, 5) = (/&
852 &4.6093e+00_jprb,4.6787e+00_jprb,4.7279e+00_jprb,4.7779e+00_jprb,4.8597e+00_jprb/)
853 kbo( :,14, 5) = (/&
854 &3.8282e+00_jprb,3.8821e+00_jprb,3.9279e+00_jprb,3.9847e+00_jprb,4.0757e+00_jprb/)
855 kbo( :,15, 5) = (/&
856 &3.1725e+00_jprb,3.2179e+00_jprb,3.2654e+00_jprb,3.3336e+00_jprb,3.4242e+00_jprb/)
857 kbo( :,16, 5) = (/&
858 &2.6254e+00_jprb,2.6717e+00_jprb,2.7257e+00_jprb,2.7935e+00_jprb,2.8681e+00_jprb/)
859 kbo( :,17, 5) = (/&
860 &2.1766e+00_jprb,2.2257e+00_jprb,2.2759e+00_jprb,2.3323e+00_jprb,2.3943e+00_jprb/)
861 kbo( :,18, 5) = (/&
862 &1.8104e+00_jprb,1.8529e+00_jprb,1.8948e+00_jprb,1.9412e+00_jprb,1.9943e+00_jprb/)
863 kbo( :,19, 5) = (/&
864 &1.5048e+00_jprb,1.5390e+00_jprb,1.5736e+00_jprb,1.6140e+00_jprb,1.6604e+00_jprb/)
865 kbo( :,20, 5) = (/&
866 &1.2496e+00_jprb,1.2771e+00_jprb,1.3070e+00_jprb,1.3421e+00_jprb,1.3834e+00_jprb/)
867 kbo( :,21, 5) = (/&
868 &1.0376e+00_jprb,1.0603e+00_jprb,1.0863e+00_jprb,1.1161e+00_jprb,1.1527e+00_jprb/)
869 kbo( :,22, 5) = (/&
870 &8.6290e-01_jprb,8.8239e-01_jprb,9.0428e-01_jprb,9.3058e-01_jprb,9.6346e-01_jprb/)
871 kbo( :,23, 5) = (/&
872 &7.1714e-01_jprb,7.3382e-01_jprb,7.5282e-01_jprb,7.7698e-01_jprb,8.0640e-01_jprb/)
873 kbo( :,24, 5) = (/&
874 &5.9554e-01_jprb,6.0982e-01_jprb,6.2698e-01_jprb,6.4926e-01_jprb,6.7588e-01_jprb/)
875 kbo( :,25, 5) = (/&
876 &4.9438e-01_jprb,5.0695e-01_jprb,5.2299e-01_jprb,5.4349e-01_jprb,5.6801e-01_jprb/)
877 kbo( :,26, 5) = (/&
878 &4.1054e-01_jprb,4.2226e-01_jprb,4.3732e-01_jprb,4.5640e-01_jprb,4.7888e-01_jprb/)
879 kbo( :,27, 5) = (/&
880 &3.4145e-01_jprb,3.5257e-01_jprb,3.6692e-01_jprb,3.8422e-01_jprb,4.0431e-01_jprb/)
881 kbo( :,28, 5) = (/&
882 &2.8483e-01_jprb,2.9535e-01_jprb,3.0859e-01_jprb,3.2404e-01_jprb,3.4192e-01_jprb/)
883 kbo( :,29, 5) = (/&
884 &2.3827e-01_jprb,2.4827e-01_jprb,2.6013e-01_jprb,2.7398e-01_jprb,2.9004e-01_jprb/)
885 kbo( :,30, 5) = (/&
886 &1.9983e-01_jprb,2.0911e-01_jprb,2.1978e-01_jprb,2.3227e-01_jprb,2.4681e-01_jprb/)
887 kbo( :,31, 5) = (/&
888 &1.6804e-01_jprb,1.7642e-01_jprb,1.8613e-01_jprb,1.9752e-01_jprb,2.1089e-01_jprb/)
889 kbo( :,32, 5) = (/&
890 &1.4159e-01_jprb,1.4918e-01_jprb,1.5803e-01_jprb,1.6847e-01_jprb,1.8108e-01_jprb/)
891 kbo( :,33, 5) = (/&
892 &1.1954e-01_jprb,1.2642e-01_jprb,1.3455e-01_jprb,1.4426e-01_jprb,1.5610e-01_jprb/)
893 kbo( :,34, 5) = (/&
894 &1.0095e-01_jprb,1.0717e-01_jprb,1.1462e-01_jprb,1.2375e-01_jprb,1.3481e-01_jprb/)
895 kbo( :,35, 5) = (/&
896 &8.4924e-02_jprb,9.0501e-02_jprb,9.7279e-02_jprb,1.0569e-01_jprb,1.1588e-01_jprb/)
897 kbo( :,36, 5) = (/&
898 &7.1064e-02_jprb,7.5984e-02_jprb,8.2057e-02_jprb,8.9603e-02_jprb,9.8847e-02_jprb/)
899 kbo( :,37, 5) = (/&
900 &5.8932e-02_jprb,6.3161e-02_jprb,6.8439e-02_jprb,7.5043e-02_jprb,8.3182e-02_jprb/)
901 kbo( :,38, 5) = (/&
902 &4.8865e-02_jprb,5.2499e-02_jprb,5.7079e-02_jprb,6.2859e-02_jprb,7.0017e-02_jprb/)
903 kbo( :,39, 5) = (/&
904 &4.0531e-02_jprb,4.3655e-02_jprb,4.7640e-02_jprb,5.2727e-02_jprb,5.9016e-02_jprb/)
905 kbo( :,40, 5) = (/&
906 &3.3380e-02_jprb,3.6019e-02_jprb,3.9402e-02_jprb,4.3769e-02_jprb,4.9191e-02_jprb/)
907 kbo( :,41, 5) = (/&
908 &2.7463e-02_jprb,2.9675e-02_jprb,3.2537e-02_jprb,3.6268e-02_jprb,4.0932e-02_jprb/)
909 kbo( :,42, 5) = (/&
910 &2.2583e-02_jprb,2.4432e-02_jprb,2.6850e-02_jprb,3.0032e-02_jprb,3.4041e-02_jprb/)
911 kbo( :,43, 5) = (/&
912 &1.8485e-02_jprb,2.0010e-02_jprb,2.2013e-02_jprb,2.4687e-02_jprb,2.8084e-02_jprb/)
913 kbo( :,44, 5) = (/&
914 &1.5098e-02_jprb,1.6344e-02_jprb,1.7988e-02_jprb,2.0205e-02_jprb,2.3066e-02_jprb/)
915 kbo( :,45, 5) = (/&
916 &1.2325e-02_jprb,1.3345e-02_jprb,1.4686e-02_jprb,1.6519e-02_jprb,1.8916e-02_jprb/)
917 kbo( :,46, 5) = (/&
918 &1.0042e-02_jprb,1.0870e-02_jprb,1.1952e-02_jprb,1.3450e-02_jprb,1.5443e-02_jprb/)
919 kbo( :,47, 5) = (/&
920 &8.1480e-03_jprb,8.8179e-03_jprb,9.6778e-03_jprb,1.0879e-02_jprb,1.2508e-02_jprb/)
921 kbo( :,48, 5) = (/&
922 &6.6080e-03_jprb,7.1502e-03_jprb,7.8346e-03_jprb,8.7926e-03_jprb,1.0114e-02_jprb/)
923 kbo( :,49, 5) = (/&
924 &5.3563e-03_jprb,5.7957e-03_jprb,6.3414e-03_jprb,7.1019e-03_jprb,8.1661e-03_jprb/)
925 kbo( :,50, 5) = (/&
926 &4.3491e-03_jprb,4.7045e-03_jprb,5.1464e-03_jprb,5.7505e-03_jprb,6.6095e-03_jprb/)
927 kbo( :,51, 5) = (/&
928 &3.5331e-03_jprb,3.8208e-03_jprb,4.1803e-03_jprb,4.6605e-03_jprb,5.3531e-03_jprb/)
929 kbo( :,52, 5) = (/&
930 &2.8692e-03_jprb,3.1024e-03_jprb,3.3948e-03_jprb,3.7764e-03_jprb,4.3307e-03_jprb/)
931 kbo( :,53, 5) = (/&
932 &2.3284e-03_jprb,2.5177e-03_jprb,2.7545e-03_jprb,3.0575e-03_jprb,3.4986e-03_jprb/)
933 kbo( :,54, 5) = (/&
934 &1.8918e-03_jprb,2.0476e-03_jprb,2.2400e-03_jprb,2.4835e-03_jprb,2.8364e-03_jprb/)
935 kbo( :,55, 5) = (/&
936 &1.5376e-03_jprb,1.6662e-03_jprb,1.8225e-03_jprb,2.0195e-03_jprb,2.3020e-03_jprb/)
937 kbo( :,56, 5) = (/&
938 &1.2490e-03_jprb,1.3549e-03_jprb,1.4817e-03_jprb,1.6414e-03_jprb,1.8660e-03_jprb/)
939 kbo( :,57, 5) = (/&
940 &1.0129e-03_jprb,1.1011e-03_jprb,1.2038e-03_jprb,1.3331e-03_jprb,1.5112e-03_jprb/)
941 kbo( :,58, 5) = (/&
942 &8.2101e-04_jprb,8.9501e-04_jprb,9.7881e-04_jprb,1.0839e-03_jprb,1.2260e-03_jprb/)
943 kbo( :,59, 5) = (/&
944 &6.7572e-04_jprb,7.3861e-04_jprb,8.0949e-04_jprb,8.9902e-04_jprb,1.0203e-03_jprb/)
945 kbo( :,13, 6) = (/&
946 &8.6113e+00_jprb,8.6083e+00_jprb,8.6450e+00_jprb,8.7235e+00_jprb,8.8556e+00_jprb/)
947 kbo( :,14, 6) = (/&
948 &7.2014e+00_jprb,7.2025e+00_jprb,7.2397e+00_jprb,7.3254e+00_jprb,7.4723e+00_jprb/)
949 kbo( :,15, 6) = (/&
950 &6.0044e+00_jprb,6.0112e+00_jprb,6.0572e+00_jprb,6.1588e+00_jprb,6.3194e+00_jprb/)
951 kbo( :,16, 6) = (/&
952 &4.9871e+00_jprb,5.0011e+00_jprb,5.0609e+00_jprb,5.1819e+00_jprb,5.3526e+00_jprb/)
953 kbo( :,17, 6) = (/&
954 &4.1295e+00_jprb,4.1562e+00_jprb,4.2380e+00_jprb,4.3711e+00_jprb,4.5320e+00_jprb/)
955 kbo( :,18, 6) = (/&
956 &3.4160e+00_jprb,3.4619e+00_jprb,3.5592e+00_jprb,3.6837e+00_jprb,3.8207e+00_jprb/)
957 kbo( :,19, 6) = (/&
958 &2.8320e+00_jprb,2.8936e+00_jprb,2.9843e+00_jprb,3.0907e+00_jprb,3.2080e+00_jprb/)
959 kbo( :,20, 6) = (/&
960 &2.3566e+00_jprb,2.4173e+00_jprb,2.4971e+00_jprb,2.5878e+00_jprb,2.6909e+00_jprb/)
961 kbo( :,21, 6) = (/&
962 &1.9610e+00_jprb,2.0160e+00_jprb,2.0844e+00_jprb,2.1648e+00_jprb,2.2552e+00_jprb/)
963 kbo( :,22, 6) = (/&
964 &1.6333e+00_jprb,1.6835e+00_jprb,1.7446e+00_jprb,1.8165e+00_jprb,1.8978e+00_jprb/)
965 kbo( :,23, 6) = (/&
966 &1.3622e+00_jprb,1.4076e+00_jprb,1.4625e+00_jprb,1.5261e+00_jprb,1.5991e+00_jprb/)
967 kbo( :,24, 6) = (/&
968 &1.1385e+00_jprb,1.1796e+00_jprb,1.2278e+00_jprb,1.2843e+00_jprb,1.3507e+00_jprb/)
969 kbo( :,25, 6) = (/&
970 &9.5319e-01_jprb,9.8944e-01_jprb,1.0319e+00_jprb,1.0833e+00_jprb,1.1441e+00_jprb/)
971 kbo( :,26, 6) = (/&
972 &7.9849e-01_jprb,8.3054e-01_jprb,8.6957e-01_jprb,9.1733e-01_jprb,9.7330e-01_jprb/)
973 kbo( :,27, 6) = (/&
974 &6.6899e-01_jprb,6.9794e-01_jprb,7.3432e-01_jprb,7.7906e-01_jprb,8.3118e-01_jprb/)
975 kbo( :,28, 6) = (/&
976 &5.6075e-01_jprb,5.8798e-01_jprb,6.2243e-01_jprb,6.6420e-01_jprb,7.1248e-01_jprb/)
977 kbo( :,29, 6) = (/&
978 &4.7122e-01_jprb,4.9735e-01_jprb,5.3000e-01_jprb,5.6898e-01_jprb,6.1331e-01_jprb/)
979 kbo( :,30, 6) = (/&
980 &3.9766e-01_jprb,4.2278e-01_jprb,4.5340e-01_jprb,4.8935e-01_jprb,5.2965e-01_jprb/)
981 kbo( :,31, 6) = (/&
982 &3.3747e-01_jprb,3.6139e-01_jprb,3.8970e-01_jprb,4.2246e-01_jprb,4.5888e-01_jprb/)
983 kbo( :,32, 6) = (/&
984 &2.8804e-01_jprb,3.1035e-01_jprb,3.3634e-01_jprb,3.6608e-01_jprb,3.9890e-01_jprb/)
985 kbo( :,33, 6) = (/&
986 &2.4714e-01_jprb,2.6763e-01_jprb,2.9142e-01_jprb,3.1834e-01_jprb,3.4859e-01_jprb/)
987 kbo( :,34, 6) = (/&
988 &2.1224e-01_jprb,2.3103e-01_jprb,2.5268e-01_jprb,2.7715e-01_jprb,3.0529e-01_jprb/)
989 kbo( :,35, 6) = (/&
990 &1.8132e-01_jprb,1.9841e-01_jprb,2.1788e-01_jprb,2.4021e-01_jprb,2.6615e-01_jprb/)
991 kbo( :,36, 6) = (/&
992 &1.5372e-01_jprb,1.6906e-01_jprb,1.8646e-01_jprb,2.0663e-01_jprb,2.3032e-01_jprb/)
993 kbo( :,37, 6) = (/&
994 &1.2864e-01_jprb,1.4207e-01_jprb,1.5741e-01_jprb,1.7532e-01_jprb,1.9647e-01_jprb/)
995 kbo( :,38, 6) = (/&
996 &1.0758e-01_jprb,1.1934e-01_jprb,1.3284e-01_jprb,1.4872e-01_jprb,1.6769e-01_jprb/)
997 kbo( :,39, 6) = (/&
998 &9.0014e-02_jprb,1.0028e-01_jprb,1.1215e-01_jprb,1.2626e-01_jprb,1.4329e-01_jprb/)
999 kbo( :,40, 6) = (/&
1000 &7.4527e-02_jprb,8.3327e-02_jprb,9.3593e-02_jprb,1.0586e-01_jprb,1.2084e-01_jprb/)
1001 kbo( :,41, 6) = (/&
1002 &6.1610e-02_jprb,6.9119e-02_jprb,7.7943e-02_jprb,8.8568e-02_jprb,1.0169e-01_jprb/)
1003 kbo( :,42, 6) = (/&
1004 &5.0916e-02_jprb,5.7313e-02_jprb,6.4881e-02_jprb,7.4072e-02_jprb,8.5537e-02_jprb/)
1005 kbo( :,43, 6) = (/&
1006 &4.1772e-02_jprb,4.7174e-02_jprb,5.3598e-02_jprb,6.1449e-02_jprb,7.1316e-02_jprb/)
1007 kbo( :,44, 6) = (/&
1008 &3.4127e-02_jprb,3.8669e-02_jprb,4.4102e-02_jprb,5.0754e-02_jprb,5.9162e-02_jprb/)
1009 kbo( :,45, 6) = (/&
1010 &2.7847e-02_jprb,3.1650e-02_jprb,3.6246e-02_jprb,4.1879e-02_jprb,4.9025e-02_jprb/)
1011 kbo( :,46, 6) = (/&
1012 &2.2640e-02_jprb,2.5789e-02_jprb,2.9652e-02_jprb,3.4397e-02_jprb,4.0430e-02_jprb/)
1013 kbo( :,47, 6) = (/&
1014 &1.8270e-02_jprb,2.0851e-02_jprb,2.4060e-02_jprb,2.8007e-02_jprb,3.3038e-02_jprb/)
1015 kbo( :,48, 6) = (/&
1016 &1.4718e-02_jprb,1.6825e-02_jprb,1.9472e-02_jprb,2.2745e-02_jprb,2.6928e-02_jprb/)
1017 kbo( :,49, 6) = (/&
1018 &1.1830e-02_jprb,1.3552e-02_jprb,1.5716e-02_jprb,1.8420e-02_jprb,2.1884e-02_jprb/)
1019 kbo( :,50, 6) = (/&
1020 &9.5237e-03_jprb,1.0928e-02_jprb,1.2702e-02_jprb,1.4943e-02_jprb,1.7817e-02_jprb/)
1021 kbo( :,51, 6) = (/&
1022 &7.6692e-03_jprb,8.8098e-03_jprb,1.0261e-02_jprb,1.2117e-02_jprb,1.4501e-02_jprb/)
1023 kbo( :,52, 6) = (/&
1024 &6.1727e-03_jprb,7.0883e-03_jprb,8.2706e-03_jprb,9.8014e-03_jprb,1.1773e-02_jprb/)
1025 kbo( :,53, 6) = (/&
1026 &4.9680e-03_jprb,5.6916e-03_jprb,6.6514e-03_jprb,7.9092e-03_jprb,9.5340e-03_jprb/)
1027 kbo( :,54, 6) = (/&
1028 &4.0130e-03_jprb,4.5840e-03_jprb,5.3714e-03_jprb,6.4027e-03_jprb,7.7491e-03_jprb/)
1029 kbo( :,55, 6) = (/&
1030 &3.2475e-03_jprb,3.6955e-03_jprb,4.3373e-03_jprb,5.1858e-03_jprb,6.3030e-03_jprb/)
1031 kbo( :,56, 6) = (/&
1032 &2.6304e-03_jprb,2.9771e-03_jprb,3.4979e-03_jprb,4.1928e-03_jprb,5.1174e-03_jprb/)
1033 kbo( :,57, 6) = (/&
1034 &2.1330e-03_jprb,2.3975e-03_jprb,2.8161e-03_jprb,3.3836e-03_jprb,4.1464e-03_jprb/)
1035 kbo( :,58, 6) = (/&
1036 &1.7350e-03_jprb,1.9351e-03_jprb,2.2702e-03_jprb,2.7338e-03_jprb,3.3646e-03_jprb/)
1037 kbo( :,59, 6) = (/&
1038 &1.4314e-03_jprb,1.6016e-03_jprb,1.8884e-03_jprb,2.2911e-03_jprb,2.8369e-03_jprb/)
1039 kbo( :,13, 7) = (/&
1040 &1.7998e+01_jprb,1.8384e+01_jprb,1.8787e+01_jprb,1.9175e+01_jprb,1.9563e+01_jprb/)
1041 kbo( :,14, 7) = (/&
1042 &1.5399e+01_jprb,1.5722e+01_jprb,1.6043e+01_jprb,1.6364e+01_jprb,1.6692e+01_jprb/)
1043 kbo( :,15, 7) = (/&
1044 &1.3091e+01_jprb,1.3337e+01_jprb,1.3597e+01_jprb,1.3865e+01_jprb,1.4179e+01_jprb/)
1045 kbo( :,16, 7) = (/&
1046 &1.1057e+01_jprb,1.1261e+01_jprb,1.1479e+01_jprb,1.1723e+01_jprb,1.2049e+01_jprb/)
1047 kbo( :,17, 7) = (/&
1048 &9.3100e+00_jprb,9.4784e+00_jprb,9.6707e+00_jprb,9.9204e+00_jprb,1.0268e+01_jprb/)
1049 kbo( :,18, 7) = (/&
1050 &7.8212e+00_jprb,7.9725e+00_jprb,8.1612e+00_jprb,8.4289e+00_jprb,8.7794e+00_jprb/)
1051 kbo( :,19, 7) = (/&
1052 &6.5480e+00_jprb,6.6917e+00_jprb,6.8980e+00_jprb,7.1803e+00_jprb,7.5042e+00_jprb/)
1053 kbo( :,20, 7) = (/&
1054 &5.4693e+00_jprb,5.6250e+00_jprb,5.8473e+00_jprb,6.1172e+00_jprb,6.4007e+00_jprb/)
1055 kbo( :,21, 7) = (/&
1056 &4.5737e+00_jprb,4.7442e+00_jprb,4.9649e+00_jprb,5.1990e+00_jprb,5.4386e+00_jprb/)
1057 kbo( :,22, 7) = (/&
1058 &3.8455e+00_jprb,4.0231e+00_jprb,4.2157e+00_jprb,4.4147e+00_jprb,4.6179e+00_jprb/)
1059 kbo( :,23, 7) = (/&
1060 &3.2447e+00_jprb,3.4045e+00_jprb,3.5713e+00_jprb,3.7411e+00_jprb,3.9201e+00_jprb/)
1061 kbo( :,24, 7) = (/&
1062 &2.7398e+00_jprb,2.8775e+00_jprb,3.0223e+00_jprb,3.1715e+00_jprb,3.3312e+00_jprb/)
1063 kbo( :,25, 7) = (/&
1064 &2.3131e+00_jprb,2.4334e+00_jprb,2.5607e+00_jprb,2.6934e+00_jprb,2.8395e+00_jprb/)
1065 kbo( :,26, 7) = (/&
1066 &1.9571e+00_jprb,2.0628e+00_jprb,2.1758e+00_jprb,2.2949e+00_jprb,2.4331e+00_jprb/)
1067 kbo( :,27, 7) = (/&
1068 &1.6594e+00_jprb,1.7534e+00_jprb,1.8527e+00_jprb,1.9641e+00_jprb,2.0963e+00_jprb/)
1069 kbo( :,28, 7) = (/&
1070 &1.4114e+00_jprb,1.4941e+00_jprb,1.5830e+00_jprb,1.6881e+00_jprb,1.8157e+00_jprb/)
1071 kbo( :,29, 7) = (/&
1072 &1.2034e+00_jprb,1.2757e+00_jprb,1.3579e+00_jprb,1.4591e+00_jprb,1.5811e+00_jprb/)
1073 kbo( :,30, 7) = (/&
1074 &1.0272e+00_jprb,1.0924e+00_jprb,1.1710e+00_jprb,1.2689e+00_jprb,1.3849e+00_jprb/)
1075 kbo( :,31, 7) = (/&
1076 &8.7820e-01_jprb,9.4005e-01_jprb,1.0171e+00_jprb,1.1110e+00_jprb,1.2204e+00_jprb/)
1077 kbo( :,32, 7) = (/&
1078 &7.5354e-01_jprb,8.1419e-01_jprb,8.8955e-01_jprb,9.7931e-01_jprb,1.0823e+00_jprb/)
1079 kbo( :,33, 7) = (/&
1080 &6.5024e-01_jprb,7.1018e-01_jprb,7.8337e-01_jprb,8.6897e-01_jprb,9.6647e-01_jprb/)
1081 kbo( :,34, 7) = (/&
1082 &5.6343e-01_jprb,6.2181e-01_jprb,6.9198e-01_jprb,7.7311e-01_jprb,8.6525e-01_jprb/)
1083 kbo( :,35, 7) = (/&
1084 &4.8705e-01_jprb,5.4236e-01_jprb,6.0822e-01_jprb,6.8426e-01_jprb,7.7067e-01_jprb/)
1085 kbo( :,36, 7) = (/&
1086 &4.1841e-01_jprb,4.6955e-01_jprb,5.3016e-01_jprb,6.0039e-01_jprb,6.8061e-01_jprb/)
1087 kbo( :,37, 7) = (/&
1088 &3.5459e-01_jprb,4.0042e-01_jprb,4.5487e-01_jprb,5.1825e-01_jprb,5.9150e-01_jprb/)
1089 kbo( :,38, 7) = (/&
1090 &3.0070e-01_jprb,3.4160e-01_jprb,3.9046e-01_jprb,4.4765e-01_jprb,5.1436e-01_jprb/)
1091 kbo( :,39, 7) = (/&
1092 &2.5532e-01_jprb,2.9176e-01_jprb,3.3565e-01_jprb,3.8725e-01_jprb,4.4814e-01_jprb/)
1093 kbo( :,40, 7) = (/&
1094 &2.1409e-01_jprb,2.4592e-01_jprb,2.8460e-01_jprb,3.3041e-01_jprb,3.8495e-01_jprb/)
1095 kbo( :,41, 7) = (/&
1096 &1.7907e-01_jprb,2.0691e-01_jprb,2.4085e-01_jprb,2.8135e-01_jprb,3.3001e-01_jprb/)
1097 kbo( :,42, 7) = (/&
1098 &1.4955e-01_jprb,1.7397e-01_jprb,2.0378e-01_jprb,2.3951e-01_jprb,2.8290e-01_jprb/)
1099 kbo( :,43, 7) = (/&
1100 &1.2365e-01_jprb,1.4471e-01_jprb,1.7077e-01_jprb,2.0210e-01_jprb,2.4022e-01_jprb/)
1101 kbo( :,44, 7) = (/&
1102 &1.0162e-01_jprb,1.1963e-01_jprb,1.4218e-01_jprb,1.6960e-01_jprb,2.0293e-01_jprb/)
1103 kbo( :,45, 7) = (/&
1104 &8.3355e-02_jprb,9.8637e-02_jprb,1.1807e-01_jprb,1.4201e-01_jprb,1.7123e-01_jprb/)
1105 kbo( :,46, 7) = (/&
1106 &6.8005e-02_jprb,8.0800e-02_jprb,9.7358e-02_jprb,1.1807e-01_jprb,1.4373e-01_jprb/)
1107 kbo( :,47, 7) = (/&
1108 &5.5003e-02_jprb,6.5496e-02_jprb,7.9363e-02_jprb,9.6996e-02_jprb,1.1911e-01_jprb/)
1109 kbo( :,48, 7) = (/&
1110 &4.4405e-02_jprb,5.2953e-02_jprb,6.4487e-02_jprb,7.9375e-02_jprb,9.8343e-02_jprb/)
1111 kbo( :,49, 7) = (/&
1112 &3.5783e-02_jprb,4.2715e-02_jprb,5.2233e-02_jprb,6.4713e-02_jprb,8.0863e-02_jprb/)
1113 kbo( :,50, 7) = (/&
1114 &2.8912e-02_jprb,3.4525e-02_jprb,4.2407e-02_jprb,5.2882e-02_jprb,6.6632e-02_jprb/)
1115 kbo( :,51, 7) = (/&
1116 &2.3366e-02_jprb,2.7895e-02_jprb,3.4405e-02_jprb,4.3195e-02_jprb,5.4868e-02_jprb/)
1117 kbo( :,52, 7) = (/&
1118 &1.8859e-02_jprb,2.2482e-02_jprb,2.7819e-02_jprb,3.5177e-02_jprb,4.5036e-02_jprb/)
1119 kbo( :,53, 7) = (/&
1120 &1.5196e-02_jprb,1.8070e-02_jprb,2.2410e-02_jprb,2.8538e-02_jprb,3.6840e-02_jprb/)
1121 kbo( :,54, 7) = (/&
1122 &1.2283e-02_jprb,1.4588e-02_jprb,1.8123e-02_jprb,2.3240e-02_jprb,3.0277e-02_jprb/)
1123 kbo( :,55, 7) = (/&
1124 &9.9346e-03_jprb,1.1792e-02_jprb,1.4660e-02_jprb,1.8922e-02_jprb,2.4879e-02_jprb/)
1125 kbo( :,56, 7) = (/&
1126 &8.0224e-03_jprb,9.5173e-03_jprb,1.1833e-02_jprb,1.5354e-02_jprb,2.0376e-02_jprb/)
1127 kbo( :,57, 7) = (/&
1128 &6.4674e-03_jprb,7.6719e-03_jprb,9.5269e-03_jprb,1.2415e-02_jprb,1.6626e-02_jprb/)
1129 kbo( :,58, 7) = (/&
1130 &5.2243e-03_jprb,6.1935e-03_jprb,7.6844e-03_jprb,1.0054e-02_jprb,1.3583e-02_jprb/)
1131 kbo( :,59, 7) = (/&
1132 &4.3349e-03_jprb,5.1717e-03_jprb,6.4734e-03_jprb,8.5759e-03_jprb,1.1721e-02_jprb/)
1133 kbo( :,13, 8) = (/&
1134 &4.8718e+01_jprb,5.0320e+01_jprb,5.1858e+01_jprb,5.3380e+01_jprb,5.4850e+01_jprb/)
1135 kbo( :,14, 8) = (/&
1136 &4.2766e+01_jprb,4.4021e+01_jprb,4.5285e+01_jprb,4.6520e+01_jprb,4.7719e+01_jprb/)
1137 kbo( :,15, 8) = (/&
1138 &3.7265e+01_jprb,3.8285e+01_jprb,3.9305e+01_jprb,4.0312e+01_jprb,4.1280e+01_jprb/)
1139 kbo( :,16, 8) = (/&
1140 &3.2320e+01_jprb,3.3145e+01_jprb,3.3978e+01_jprb,3.4801e+01_jprb,3.5603e+01_jprb/)
1141 kbo( :,17, 8) = (/&
1142 &2.7905e+01_jprb,2.8588e+01_jprb,2.9274e+01_jprb,2.9948e+01_jprb,3.0618e+01_jprb/)
1143 kbo( :,18, 8) = (/&
1144 &2.3907e+01_jprb,2.4472e+01_jprb,2.5035e+01_jprb,2.5608e+01_jprb,2.6240e+01_jprb/)
1145 kbo( :,19, 8) = (/&
1146 &2.0357e+01_jprb,2.0811e+01_jprb,2.1283e+01_jprb,2.1801e+01_jprb,2.2463e+01_jprb/)
1147 kbo( :,20, 8) = (/&
1148 &1.7248e+01_jprb,1.7625e+01_jprb,1.8041e+01_jprb,1.8568e+01_jprb,1.9286e+01_jprb/)
1149 kbo( :,21, 8) = (/&
1150 &1.4568e+01_jprb,1.4891e+01_jprb,1.5295e+01_jprb,1.5868e+01_jprb,1.6645e+01_jprb/)
1151 kbo( :,22, 8) = (/&
1152 &1.2302e+01_jprb,1.2610e+01_jprb,1.3060e+01_jprb,1.3693e+01_jprb,1.4488e+01_jprb/)
1153 kbo( :,23, 8) = (/&
1154 &1.0398e+01_jprb,1.0740e+01_jprb,1.1241e+01_jprb,1.1898e+01_jprb,1.2647e+01_jprb/)
1155 kbo( :,24, 8) = (/&
1156 &8.8094e+00_jprb,9.1977e+00_jprb,9.7363e+00_jprb,1.0379e+01_jprb,1.1057e+01_jprb/)
1157 kbo( :,25, 8) = (/&
1158 &7.5025e+00_jprb,7.9291e+00_jprb,8.4687e+00_jprb,9.0617e+00_jprb,9.6792e+00_jprb/)
1159 kbo( :,26, 8) = (/&
1160 &6.4368e+00_jprb,6.8798e+00_jprb,7.3859e+00_jprb,7.9241e+00_jprb,8.4787e+00_jprb/)
1161 kbo( :,27, 8) = (/&
1162 &5.5620e+00_jprb,5.9868e+00_jprb,6.4448e+00_jprb,6.9294e+00_jprb,7.4281e+00_jprb/)
1163 kbo( :,28, 8) = (/&
1164 &4.8240e+00_jprb,5.2122e+00_jprb,5.6283e+00_jprb,6.0659e+00_jprb,6.5242e+00_jprb/)
1165 kbo( :,29, 8) = (/&
1166 &4.1944e+00_jprb,4.5487e+00_jprb,4.9272e+00_jprb,5.3264e+00_jprb,5.7585e+00_jprb/)
1167 kbo( :,30, 8) = (/&
1168 &3.6568e+00_jprb,3.9803e+00_jprb,4.3255e+00_jprb,4.6987e+00_jprb,5.1122e+00_jprb/)
1169 kbo( :,31, 8) = (/&
1170 &3.2011e+00_jprb,3.4961e+00_jprb,3.8161e+00_jprb,4.1707e+00_jprb,4.5746e+00_jprb/)
1171 kbo( :,32, 8) = (/&
1172 &2.8138e+00_jprb,3.0858e+00_jprb,3.3881e+00_jprb,3.7312e+00_jprb,4.1306e+00_jprb/)
1173 kbo( :,33, 8) = (/&
1174 &2.4854e+00_jprb,2.7408e+00_jprb,3.0308e+00_jprb,3.3678e+00_jprb,3.7681e+00_jprb/)
1175 kbo( :,34, 8) = (/&
1176 &2.2003e+00_jprb,2.4428e+00_jprb,2.7239e+00_jprb,3.0581e+00_jprb,3.4595e+00_jprb/)
1177 kbo( :,35, 8) = (/&
1178 &1.9399e+00_jprb,2.1700e+00_jprb,2.4416e+00_jprb,2.7703e+00_jprb,3.1684e+00_jprb/)
1179 kbo( :,36, 8) = (/&
1180 &1.6987e+00_jprb,1.9152e+00_jprb,2.1743e+00_jprb,2.4922e+00_jprb,2.8785e+00_jprb/)
1181 kbo( :,37, 8) = (/&
1182 &1.4664e+00_jprb,1.6646e+00_jprb,1.9059e+00_jprb,2.2053e+00_jprb,2.5708e+00_jprb/)
1183 kbo( :,38, 8) = (/&
1184 &1.2664e+00_jprb,1.4483e+00_jprb,1.6728e+00_jprb,1.9542e+00_jprb,2.2994e+00_jprb/)
1185 kbo( :,39, 8) = (/&
1186 &1.0955e+00_jprb,1.2626e+00_jprb,1.4719e+00_jprb,1.7366e+00_jprb,2.0631e+00_jprb/)
1187 kbo( :,40, 8) = (/&
1188 &9.3556e-01_jprb,1.0859e+00_jprb,1.2762e+00_jprb,1.5192e+00_jprb,1.8216e+00_jprb/)
1189 kbo( :,41, 8) = (/&
1190 &7.9800e-01_jprb,9.3250e-01_jprb,1.1046e+00_jprb,1.3263e+00_jprb,1.6051e+00_jprb/)
1191 kbo( :,42, 8) = (/&
1192 &6.8026e-01_jprb,8.0111e-01_jprb,9.5621e-01_jprb,1.1581e+00_jprb,1.4148e+00_jprb/)
1193 kbo( :,43, 8) = (/&
1194 &5.7416e-01_jprb,6.8147e-01_jprb,8.1937e-01_jprb,1.0003e+00_jprb,1.2325e+00_jprb/)
1195 kbo( :,44, 8) = (/&
1196 &4.8192e-01_jprb,5.7630e-01_jprb,6.9849e-01_jprb,8.5859e-01_jprb,1.0670e+00_jprb/)
1197 kbo( :,45, 8) = (/&
1198 &4.0390e-01_jprb,4.8662e-01_jprb,5.9437e-01_jprb,7.3642e-01_jprb,9.2241e-01_jprb/)
1199 kbo( :,46, 8) = (/&
1200 &3.3692e-01_jprb,4.0832e-01_jprb,5.0245e-01_jprb,6.2763e-01_jprb,7.9306e-01_jprb/)
1201 kbo( :,47, 8) = (/&
1202 &2.7795e-01_jprb,3.3890e-01_jprb,4.1977e-01_jprb,5.2809e-01_jprb,6.7337e-01_jprb/)
1203 kbo( :,48, 8) = (/&
1204 &2.2885e-01_jprb,2.8056e-01_jprb,3.4963e-01_jprb,4.4288e-01_jprb,5.6978e-01_jprb/)
1205 kbo( :,49, 8) = (/&
1206 &1.8806e-01_jprb,2.3188e-01_jprb,2.9038e-01_jprb,3.7027e-01_jprb,4.8015e-01_jprb/)
1207 kbo( :,50, 8) = (/&
1208 &1.5486e-01_jprb,1.9227e-01_jprb,2.4202e-01_jprb,3.1061e-01_jprb,4.0591e-01_jprb/)
1209 kbo( :,51, 8) = (/&
1210 &1.2721e-01_jprb,1.5949e-01_jprb,2.0189e-01_jprb,2.6069e-01_jprb,3.4317e-01_jprb/)
1211 kbo( :,52, 8) = (/&
1212 &1.0403e-01_jprb,1.3183e-01_jprb,1.6821e-01_jprb,2.1833e-01_jprb,2.8940e-01_jprb/)
1213 kbo( :,53, 8) = (/&
1214 &8.4647e-02_jprb,1.0841e-01_jprb,1.3976e-01_jprb,1.8251e-01_jprb,2.4335e-01_jprb/)
1215 kbo( :,54, 8) = (/&
1216 &6.9094e-02_jprb,8.9415e-02_jprb,1.1671e-01_jprb,1.5366e-01_jprb,2.0608e-01_jprb/)
1217 kbo( :,55, 8) = (/&
1218 &5.6395e-02_jprb,7.3686e-02_jprb,9.7324e-02_jprb,1.2958e-01_jprb,1.7505e-01_jprb/)
1219 kbo( :,56, 8) = (/&
1220 &4.5872e-02_jprb,6.0506e-02_jprb,8.0843e-02_jprb,1.0885e-01_jprb,1.4852e-01_jprb/)
1221 kbo( :,57, 8) = (/&
1222 &3.7163e-02_jprb,4.9485e-02_jprb,6.6836e-02_jprb,9.1072e-02_jprb,1.2569e-01_jprb/)
1223 kbo( :,58, 8) = (/&
1224 &3.0142e-02_jprb,4.0510e-02_jprb,5.5284e-02_jprb,7.6236e-02_jprb,1.0654e-01_jprb/)
1225 kbo( :,59, 8) = (/&
1226 &2.5655e-02_jprb,3.4976e-02_jprb,4.8360e-02_jprb,6.7750e-02_jprb,9.5910e-02_jprb/)
1227 kbo( :,13, 9) = (/&
1228 &2.6710e+02_jprb,2.6292e+02_jprb,2.6081e+02_jprb,2.6060e+02_jprb,2.6216e+02_jprb/)
1229 kbo( :,14, 9) = (/&
1230 &2.2905e+02_jprb,2.2705e+02_jprb,2.2701e+02_jprb,2.2883e+02_jprb,2.3237e+02_jprb/)
1231 kbo( :,15, 9) = (/&
1232 &1.9681e+02_jprb,1.9674e+02_jprb,1.9855e+02_jprb,2.0218e+02_jprb,2.0745e+02_jprb/)
1233 kbo( :,16, 9) = (/&
1234 &1.6990e+02_jprb,1.7146e+02_jprb,1.7490e+02_jprb,1.8008e+02_jprb,1.8673e+02_jprb/)
1235 kbo( :,17, 9) = (/&
1236 &1.4763e+02_jprb,1.5059e+02_jprb,1.5539e+02_jprb,1.6156e+02_jprb,1.6765e+02_jprb/)
1237 kbo( :,18, 9) = (/&
1238 &1.2952e+02_jprb,1.3368e+02_jprb,1.3907e+02_jprb,1.4438e+02_jprb,1.4950e+02_jprb/)
1239 kbo( :,19, 9) = (/&
1240 &1.1453e+02_jprb,1.1924e+02_jprb,1.2392e+02_jprb,1.2844e+02_jprb,1.3271e+02_jprb/)
1241 kbo( :,20, 9) = (/&
1242 &1.0152e+02_jprb,1.0566e+02_jprb,1.0970e+02_jprb,1.1358e+02_jprb,1.1731e+02_jprb/)
1243 kbo( :,21, 9) = (/&
1244 &8.9460e+01_jprb,9.3028e+01_jprb,9.6510e+01_jprb,9.9904e+01_jprb,1.0318e+02_jprb/)
1245 kbo( :,22, 9) = (/&
1246 &7.8631e+01_jprb,8.1700e+01_jprb,8.4725e+01_jprb,8.7702e+01_jprb,9.0717e+01_jprb/)
1247 kbo( :,23, 9) = (/&
1248 &6.8898e+01_jprb,7.1547e+01_jprb,7.4194e+01_jprb,7.6892e+01_jprb,7.9806e+01_jprb/)
1249 kbo( :,24, 9) = (/&
1250 &6.0312e+01_jprb,6.2630e+01_jprb,6.4994e+01_jprb,6.7556e+01_jprb,7.0443e+01_jprb/)
1251 kbo( :,25, 9) = (/&
1252 &5.2851e+01_jprb,5.4897e+01_jprb,5.7127e+01_jprb,5.9634e+01_jprb,6.2506e+01_jprb/)
1253 kbo( :,26, 9) = (/&
1254 &4.6436e+01_jprb,4.8336e+01_jprb,5.0486e+01_jprb,5.2975e+01_jprb,5.5885e+01_jprb/)
1255 kbo( :,27, 9) = (/&
1256 &4.0910e+01_jprb,4.2771e+01_jprb,4.4909e+01_jprb,4.7425e+01_jprb,5.0391e+01_jprb/)
1257 kbo( :,28, 9) = (/&
1258 &3.6155e+01_jprb,3.8062e+01_jprb,4.0266e+01_jprb,4.2832e+01_jprb,4.5858e+01_jprb/)
1259 kbo( :,29, 9) = (/&
1260 &3.2126e+01_jprb,3.4094e+01_jprb,3.6392e+01_jprb,3.9062e+01_jprb,4.2162e+01_jprb/)
1261 kbo( :,30, 9) = (/&
1262 &2.8724e+01_jprb,3.0764e+01_jprb,3.3154e+01_jprb,3.5941e+01_jprb,3.9179e+01_jprb/)
1263 kbo( :,31, 9) = (/&
1264 &2.5882e+01_jprb,2.7995e+01_jprb,3.0486e+01_jprb,3.3401e+01_jprb,3.6792e+01_jprb/)
1265 kbo( :,32, 9) = (/&
1266 &2.3528e+01_jprb,2.5718e+01_jprb,2.8311e+01_jprb,3.1365e+01_jprb,3.4906e+01_jprb/)
1267 kbo( :,33, 9) = (/&
1268 &2.1587e+01_jprb,2.3866e+01_jprb,2.6575e+01_jprb,2.9769e+01_jprb,3.3431e+01_jprb/)
1269 kbo( :,34, 9) = (/&
1270 &1.9935e+01_jprb,2.2294e+01_jprb,2.5115e+01_jprb,2.8414e+01_jprb,3.2169e+01_jprb/)
1271 kbo( :,35, 9) = (/&
1272 &1.8379e+01_jprb,2.0784e+01_jprb,2.3667e+01_jprb,2.7018e+01_jprb,3.0818e+01_jprb/)
1273 kbo( :,36, 9) = (/&
1274 &1.6837e+01_jprb,1.9243e+01_jprb,2.2128e+01_jprb,2.5484e+01_jprb,2.9290e+01_jprb/)
1275 kbo( :,37, 9) = (/&
1276 &1.5193e+01_jprb,1.7529e+01_jprb,2.0337e+01_jprb,2.3631e+01_jprb,2.7386e+01_jprb/)
1277 kbo( :,38, 9) = (/&
1278 &1.3737e+01_jprb,1.6000e+01_jprb,1.8725e+01_jprb,2.1951e+01_jprb,2.5656e+01_jprb/)
1279 kbo( :,39, 9) = (/&
1280 &1.2460e+01_jprb,1.4648e+01_jprb,1.7295e+01_jprb,2.0455e+01_jprb,2.4116e+01_jprb/)
1281 kbo( :,40, 9) = (/&
1282 &1.1143e+01_jprb,1.3211e+01_jprb,1.5737e+01_jprb,1.8782e+01_jprb,2.2346e+01_jprb/)
1283 kbo( :,41, 9) = (/&
1284 &9.9585e+00_jprb,1.1899e+01_jprb,1.4300e+01_jprb,1.7222e+01_jprb,2.0680e+01_jprb/)
1285 kbo( :,42, 9) = (/&
1286 &8.9074e+00_jprb,1.0724e+01_jprb,1.3003e+01_jprb,1.5806e+01_jprb,1.9155e+01_jprb/)
1287 kbo( :,43, 9) = (/&
1288 &7.8838e+00_jprb,9.5638e+00_jprb,1.1699e+01_jprb,1.4356e+01_jprb,1.7558e+01_jprb/)
1289 kbo( :,44, 9) = (/&
1290 &6.9325e+00_jprb,8.4860e+00_jprb,1.0467e+01_jprb,1.2961e+01_jprb,1.6001e+01_jprb/)
1291 kbo( :,45, 9) = (/&
1292 &6.0822e+00_jprb,7.5231e+00_jprb,9.3599e+00_jprb,1.1689e+01_jprb,1.4566e+01_jprb/)
1293 kbo( :,46, 9) = (/&
1294 &5.2984e+00_jprb,6.6221e+00_jprb,8.3226e+00_jprb,1.0480e+01_jprb,1.3187e+01_jprb/)
1295 kbo( :,47, 9) = (/&
1296 &4.5534e+00_jprb,5.7527e+00_jprb,7.3122e+00_jprb,9.2888e+00_jprb,1.1789e+01_jprb/)
1297 kbo( :,48, 9) = (/&
1298 &3.8949e+00_jprb,4.9778e+00_jprb,6.4003e+00_jprb,8.2164e+00_jprb,1.0513e+01_jprb/)
1299 kbo( :,49, 9) = (/&
1300 &3.3152e+00_jprb,4.2900e+00_jprb,5.5808e+00_jprb,7.2516e+00_jprb,9.3536e+00_jprb/)
1301 kbo( :,50, 9) = (/&
1302 &2.8251e+00_jprb,3.7029e+00_jprb,4.8790e+00_jprb,6.4176e+00_jprb,8.3604e+00_jprb/)
1303 kbo( :,51, 9) = (/&
1304 &2.4036e+00_jprb,3.1914e+00_jprb,4.2626e+00_jprb,5.6760e+00_jprb,7.4806e+00_jprb/)
1305 kbo( :,52, 9) = (/&
1306 &2.0358e+00_jprb,2.7394e+00_jprb,3.7092e+00_jprb,5.0052e+00_jprb,6.6771e+00_jprb/)
1307 kbo( :,53, 9) = (/&
1308 &1.7150e+00_jprb,2.3392e+00_jprb,3.2126e+00_jprb,4.3953e+00_jprb,5.9352e+00_jprb/)
1309 kbo( :,54, 9) = (/&
1310 &1.4515e+00_jprb,2.0067e+00_jprb,2.8012e+00_jprb,3.8817e+00_jprb,5.3047e+00_jprb/)
1311 kbo( :,55, 9) = (/&
1312 &1.2285e+00_jprb,1.7230e+00_jprb,2.4420e+00_jprb,3.4310e+00_jprb,4.7490e+00_jprb/)
1313 kbo( :,56, 9) = (/&
1314 &1.0358e+00_jprb,1.4720e+00_jprb,2.1203e+00_jprb,3.0228e+00_jprb,4.2384e+00_jprb/)
1315 kbo( :,57, 9) = (/&
1316 &8.6995e-01_jprb,1.2523e+00_jprb,1.8327e+00_jprb,2.6527e+00_jprb,3.7712e+00_jprb/)
1317 kbo( :,58, 9) = (/&
1318 &7.3361e-01_jprb,1.0673e+00_jprb,1.5876e+00_jprb,2.3341e+00_jprb,3.3624e+00_jprb/)
1319 kbo( :,59, 9) = (/&
1320 &6.5934e-01_jprb,9.7595e-01_jprb,1.4746e+00_jprb,2.2013e+00_jprb,3.1927e+00_jprb/)
1321 kbo( :,13,10) = (/&
1322 &1.1370e+03_jprb,1.1193e+03_jprb,1.1015e+03_jprb,1.0831e+03_jprb,1.0644e+03_jprb/)
1323 kbo( :,14,10) = (/&
1324 &1.0077e+03_jprb,9.9068e+02_jprb,9.7382e+02_jprb,9.5646e+02_jprb,9.3960e+02_jprb/)
1325 kbo( :,15,10) = (/&
1326 &8.7737e+02_jprb,8.6162e+02_jprb,8.4607e+02_jprb,8.3075e+02_jprb,8.1589e+02_jprb/)
1327 kbo( :,16,10) = (/&
1328 &7.5426e+02_jprb,7.4028e+02_jprb,7.2665e+02_jprb,7.1344e+02_jprb,7.0172e+02_jprb/)
1329 kbo( :,17,10) = (/&
1330 &6.4244e+02_jprb,6.3047e+02_jprb,6.1893e+02_jprb,6.1102e+02_jprb,6.1824e+02_jprb/)
1331 kbo( :,18,10) = (/&
1332 &5.4326e+02_jprb,5.3346e+02_jprb,5.2903e+02_jprb,5.4116e+02_jprb,5.6772e+02_jprb/)
1333 kbo( :,19,10) = (/&
1334 &4.6041e+02_jprb,4.5657e+02_jprb,4.6965e+02_jprb,4.9609e+02_jprb,5.2443e+02_jprb/)
1335 kbo( :,20,10) = (/&
1336 &3.9849e+02_jprb,4.0983e+02_jprb,4.3310e+02_jprb,4.5724e+02_jprb,4.8136e+02_jprb/)
1337 kbo( :,21,10) = (/&
1338 &3.5855e+02_jprb,3.7953e+02_jprb,4.0064e+02_jprb,4.2132e+02_jprb,4.4170e+02_jprb/)
1339 kbo( :,22,10) = (/&
1340 &3.2988e+02_jprb,3.4998e+02_jprb,3.6966e+02_jprb,3.8861e+02_jprb,4.0637e+02_jprb/)
1341 kbo( :,23,10) = (/&
1342 &3.0132e+02_jprb,3.2005e+02_jprb,3.3835e+02_jprb,3.5588e+02_jprb,3.7212e+02_jprb/)
1343 kbo( :,24,10) = (/&
1344 &2.7350e+02_jprb,2.9090e+02_jprb,3.0784e+02_jprb,3.2378e+02_jprb,3.3905e+02_jprb/)
1345 kbo( :,25,10) = (/&
1346 &2.4700e+02_jprb,2.6316e+02_jprb,2.7865e+02_jprb,2.9355e+02_jprb,3.0831e+02_jprb/)
1347 kbo( :,26,10) = (/&
1348 &2.2261e+02_jprb,2.3737e+02_jprb,2.5178e+02_jprb,2.6623e+02_jprb,2.8060e+02_jprb/)
1349 kbo( :,27,10) = (/&
1350 &2.0072e+02_jprb,2.1392e+02_jprb,2.2763e+02_jprb,2.4159e+02_jprb,2.5577e+02_jprb/)
1351 kbo( :,28,10) = (/&
1352 &1.8170e+02_jprb,1.9355e+02_jprb,2.0624e+02_jprb,2.1988e+02_jprb,2.3391e+02_jprb/)
1353 kbo( :,29,10) = (/&
1354 &1.6551e+02_jprb,1.7639e+02_jprb,1.8818e+02_jprb,2.0102e+02_jprb,2.1504e+02_jprb/)
1355 kbo( :,30,10) = (/&
1356 &1.5197e+02_jprb,1.6180e+02_jprb,1.7277e+02_jprb,1.8505e+02_jprb,1.9878e+02_jprb/)
1357 kbo( :,31,10) = (/&
1358 &1.4040e+02_jprb,1.4951e+02_jprb,1.5989e+02_jprb,1.7189e+02_jprb,1.8557e+02_jprb/)
1359 kbo( :,32,10) = (/&
1360 &1.3052e+02_jprb,1.3922e+02_jprb,1.4931e+02_jprb,1.6122e+02_jprb,1.7537e+02_jprb/)
1361 kbo( :,33,10) = (/&
1362 &1.2219e+02_jprb,1.3073e+02_jprb,1.4066e+02_jprb,1.5295e+02_jprb,1.6793e+02_jprb/)
1363 kbo( :,34,10) = (/&
1364 &1.1485e+02_jprb,1.2346e+02_jprb,1.3352e+02_jprb,1.4643e+02_jprb,1.6252e+02_jprb/)
1365 kbo( :,35,10) = (/&
1366 &1.0786e+02_jprb,1.1670e+02_jprb,1.2704e+02_jprb,1.4054e+02_jprb,1.5777e+02_jprb/)
1367 kbo( :,36,10) = (/&
1368 &1.0096e+02_jprb,1.1026e+02_jprb,1.2083e+02_jprb,1.3466e+02_jprb,1.5266e+02_jprb/)
1369 kbo( :,37,10) = (/&
1370 &9.3649e+01_jprb,1.0335e+02_jprb,1.1406e+02_jprb,1.2775e+02_jprb,1.4574e+02_jprb/)
1371 kbo( :,38,10) = (/&
1372 &8.6966e+01_jprb,9.7115e+01_jprb,1.0831e+02_jprb,1.2180e+02_jprb,1.3969e+02_jprb/)
1373 kbo( :,39,10) = (/&
1374 &8.1095e+01_jprb,9.1619e+01_jprb,1.0337e+02_jprb,1.1677e+02_jprb,1.3445e+02_jprb/)
1375 kbo( :,40,10) = (/&
1376 &7.4825e+01_jprb,8.5620e+01_jprb,9.7708e+01_jprb,1.1093e+02_jprb,1.2782e+02_jprb/)
1377 kbo( :,41,10) = (/&
1378 &6.8987e+01_jprb,7.9975e+01_jprb,9.2327e+01_jprb,1.0557e+02_jprb,1.2158e+02_jprb/)
1379 kbo( :,42,10) = (/&
1380 &6.3582e+01_jprb,7.4799e+01_jprb,8.7292e+01_jprb,1.0067e+02_jprb,1.1590e+02_jprb/)
1381 kbo( :,43,10) = (/&
1382 &5.8100e+01_jprb,6.9336e+01_jprb,8.1830e+01_jprb,9.5341e+01_jprb,1.0982e+02_jprb/)
1383 kbo( :,44,10) = (/&
1384 &5.2932e+01_jprb,6.3876e+01_jprb,7.6294e+01_jprb,8.9737e+01_jprb,1.0391e+02_jprb/)
1385 kbo( :,45,10) = (/&
1386 &4.8226e+01_jprb,5.8773e+01_jprb,7.1006e+01_jprb,8.4358e+01_jprb,9.8366e+01_jprb/)
1387 kbo( :,46,10) = (/&
1388 &4.3799e+01_jprb,5.3806e+01_jprb,6.5676e+01_jprb,7.8828e+01_jprb,9.2780e+01_jprb/)
1389 kbo( :,47,10) = (/&
1390 &3.9350e+01_jprb,4.8773e+01_jprb,6.0056e+01_jprb,7.2887e+01_jprb,8.6626e+01_jprb/)
1391 kbo( :,48,10) = (/&
1392 &3.5360e+01_jprb,4.4132e+01_jprb,5.4788e+01_jprb,6.7135e+01_jprb,8.0643e+01_jprb/)
1393 kbo( :,49,10) = (/&
1394 &3.1759e+01_jprb,3.9919e+01_jprb,4.9896e+01_jprb,6.1616e+01_jprb,7.4794e+01_jprb/)
1395 kbo( :,50,10) = (/&
1396 &2.8696e+01_jprb,3.6220e+01_jprb,4.5579e+01_jprb,5.6700e+01_jprb,6.9436e+01_jprb/)
1397 kbo( :,51,10) = (/&
1398 &2.5923e+01_jprb,3.2951e+01_jprb,4.1668e+01_jprb,5.2205e+01_jprb,6.4403e+01_jprb/)
1399 kbo( :,52,10) = (/&
1400 &2.3246e+01_jprb,2.9949e+01_jprb,3.8044e+01_jprb,4.7965e+01_jprb,5.9561e+01_jprb/)
1401 kbo( :,53,10) = (/&
1402 &2.0677e+01_jprb,2.7212e+01_jprb,3.4689e+01_jprb,4.3992e+01_jprb,5.4982e+01_jprb/)
1403 kbo( :,54,10) = (/&
1404 &1.8394e+01_jprb,2.4800e+01_jprb,3.1896e+01_jprb,4.0551e+01_jprb,5.0999e+01_jprb/)
1405 kbo( :,55,10) = (/&
1406 &1.6290e+01_jprb,2.2530e+01_jprb,2.9365e+01_jprb,3.7468e+01_jprb,4.7358e+01_jprb/)
1407 kbo( :,56,10) = (/&
1408 &1.4293e+01_jprb,2.0343e+01_jprb,2.7025e+01_jprb,3.4587e+01_jprb,4.3934e+01_jprb/)
1409 kbo( :,57,10) = (/&
1410 &1.2429e+01_jprb,1.8222e+01_jprb,2.4765e+01_jprb,3.1908e+01_jprb,4.0683e+01_jprb/)
1411 kbo( :,58,10) = (/&
1412 &1.0794e+01_jprb,1.6277e+01_jprb,2.2653e+01_jprb,2.9533e+01_jprb,3.7782e+01_jprb/)
1413 kbo( :,59,10) = (/&
1414 &1.0104e+01_jprb,1.5485e+01_jprb,2.1801e+01_jprb,2.8646e+01_jprb,3.6640e+01_jprb/)
1415 kbo( :,13,11) = (/&
1416 &1.9982e+03_jprb,1.9741e+03_jprb,1.9501e+03_jprb,1.9258e+03_jprb,1.8991e+03_jprb/)
1417 kbo( :,14,11) = (/&
1418 &1.8366e+03_jprb,1.8117e+03_jprb,1.7872e+03_jprb,1.7620e+03_jprb,1.7357e+03_jprb/)
1419 kbo( :,15,11) = (/&
1420 &1.6593e+03_jprb,1.6345e+03_jprb,1.6105e+03_jprb,1.5852e+03_jprb,1.5607e+03_jprb/)
1421 kbo( :,16,11) = (/&
1422 &1.4714e+03_jprb,1.4482e+03_jprb,1.4256e+03_jprb,1.4029e+03_jprb,1.3814e+03_jprb/)
1423 kbo( :,17,11) = (/&
1424 &1.2821e+03_jprb,1.2610e+03_jprb,1.2407e+03_jprb,1.2217e+03_jprb,1.2035e+03_jprb/)
1425 kbo( :,18,11) = (/&
1426 &1.1031e+03_jprb,1.0851e+03_jprb,1.0681e+03_jprb,1.0526e+03_jprb,1.0392e+03_jprb/)
1427 kbo( :,19,11) = (/&
1428 &9.4073e+02_jprb,9.2594e+02_jprb,9.1239e+02_jprb,9.0492e+02_jprb,9.1389e+02_jprb/)
1429 kbo( :,20,11) = (/&
1430 &7.9752e+02_jprb,7.8605e+02_jprb,7.8200e+02_jprb,7.9771e+02_jprb,8.3070e+02_jprb/)
1431 kbo( :,21,11) = (/&
1432 &6.7621e+02_jprb,6.7302e+02_jprb,6.9037e+02_jprb,7.2680e+02_jprb,7.7342e+02_jprb/)
1433 kbo( :,22,11) = (/&
1434 &5.8317e+02_jprb,5.9901e+02_jprb,6.3384e+02_jprb,6.7592e+02_jprb,7.2003e+02_jprb/)
1435 kbo( :,23,11) = (/&
1436 &5.2345e+02_jprb,5.5460e+02_jprb,5.9107e+02_jprb,6.2902e+02_jprb,6.6965e+02_jprb/)
1437 kbo( :,24,11) = (/&
1438 &4.8603e+02_jprb,5.1872e+02_jprb,5.5143e+02_jprb,5.8645e+02_jprb,6.2372e+02_jprb/)
1439 kbo( :,25,11) = (/&
1440 &4.5248e+02_jprb,4.8397e+02_jprb,5.1550e+02_jprb,5.4767e+02_jprb,5.8239e+02_jprb/)
1441 kbo( :,26,11) = (/&
1442 &4.2042e+02_jprb,4.5092e+02_jprb,4.8247e+02_jprb,5.1356e+02_jprb,5.4667e+02_jprb/)
1443 kbo( :,27,11) = (/&
1444 &3.8993e+02_jprb,4.2017e+02_jprb,4.5102e+02_jprb,4.8294e+02_jprb,5.1599e+02_jprb/)
1445 kbo( :,28,11) = (/&
1446 &3.6206e+02_jprb,3.9191e+02_jprb,4.2290e+02_jprb,4.5578e+02_jprb,4.8932e+02_jprb/)
1447 kbo( :,29,11) = (/&
1448 &3.3701e+02_jprb,3.6670e+02_jprb,3.9835e+02_jprb,4.3253e+02_jprb,4.6763e+02_jprb/)
1449 kbo( :,30,11) = (/&
1450 &3.1435e+02_jprb,3.4509e+02_jprb,3.7799e+02_jprb,4.1371e+02_jprb,4.5072e+02_jprb/)
1451 kbo( :,31,11) = (/&
1452 &2.9536e+02_jprb,3.2738e+02_jprb,3.6185e+02_jprb,3.9930e+02_jprb,4.3870e+02_jprb/)
1453 kbo( :,32,11) = (/&
1454 &2.8017e+02_jprb,3.1347e+02_jprb,3.5000e+02_jprb,3.8948e+02_jprb,4.3126e+02_jprb/)
1455 kbo( :,33,11) = (/&
1456 &2.6842e+02_jprb,3.0340e+02_jprb,3.4238e+02_jprb,3.8415e+02_jprb,4.2838e+02_jprb/)
1457 kbo( :,34,11) = (/&
1458 &2.5904e+02_jprb,2.9599e+02_jprb,3.3729e+02_jprb,3.8143e+02_jprb,4.2772e+02_jprb/)
1459 kbo( :,35,11) = (/&
1460 &2.4977e+02_jprb,2.8824e+02_jprb,3.3150e+02_jprb,3.7746e+02_jprb,4.2524e+02_jprb/)
1461 kbo( :,36,11) = (/&
1462 &2.3959e+02_jprb,2.7880e+02_jprb,3.2342e+02_jprb,3.7070e+02_jprb,4.1949e+02_jprb/)
1463 kbo( :,37,11) = (/&
1464 &2.2622e+02_jprb,2.6520e+02_jprb,3.1011e+02_jprb,3.5817e+02_jprb,4.0759e+02_jprb/)
1465 kbo( :,38,11) = (/&
1466 &2.1446e+02_jprb,2.5305e+02_jprb,2.9777e+02_jprb,3.4633e+02_jprb,3.9620e+02_jprb/)
1467 kbo( :,39,11) = (/&
1468 &2.0431e+02_jprb,2.4241e+02_jprb,2.8661e+02_jprb,3.3540e+02_jprb,3.8561e+02_jprb/)
1469 kbo( :,40,11) = (/&
1470 &1.9199e+02_jprb,2.2883e+02_jprb,2.7179e+02_jprb,3.2005e+02_jprb,3.7046e+02_jprb/)
1471 kbo( :,41,11) = (/&
1472 &1.8042e+02_jprb,2.1588e+02_jprb,2.5742e+02_jprb,3.0459e+02_jprb,3.5513e+02_jprb/)
1473 kbo( :,42,11) = (/&
1474 &1.6997e+02_jprb,2.0388e+02_jprb,2.4396e+02_jprb,2.8977e+02_jprb,3.4012e+02_jprb/)
1475 kbo( :,43,11) = (/&
1476 &1.5886e+02_jprb,1.9075e+02_jprb,2.2902e+02_jprb,2.7322e+02_jprb,3.2256e+02_jprb/)
1477 kbo( :,44,11) = (/&
1478 &1.4807e+02_jprb,1.7777e+02_jprb,2.1401e+02_jprb,2.5624e+02_jprb,3.0398e+02_jprb/)
1479 kbo( :,45,11) = (/&
1480 &1.3833e+02_jprb,1.6586e+02_jprb,1.9992e+02_jprb,2.4015e+02_jprb,2.8607e+02_jprb/)
1481 kbo( :,46,11) = (/&
1482 &1.2866e+02_jprb,1.5433e+02_jprb,1.8602e+02_jprb,2.2411e+02_jprb,2.6807e+02_jprb/)
1483 kbo( :,47,11) = (/&
1484 &1.1806e+02_jprb,1.4268e+02_jprb,1.7176e+02_jprb,2.0732e+02_jprb,2.4896e+02_jprb/)
1485 kbo( :,48,11) = (/&
1486 &1.0762e+02_jprb,1.3206e+02_jprb,1.5870e+02_jprb,1.9169e+02_jprb,2.3091e+02_jprb/)
1487 kbo( :,49,11) = (/&
1488 &9.7413e+01_jprb,1.2171e+02_jprb,1.4684e+02_jprb,1.7718e+02_jprb,2.1396e+02_jprb/)
1489 kbo( :,50,11) = (/&
1490 &8.8070e+01_jprb,1.1204e+02_jprb,1.3673e+02_jprb,1.6460e+02_jprb,1.9898e+02_jprb/)
1491 kbo( :,51,11) = (/&
1492 &7.9391e+01_jprb,1.0276e+02_jprb,1.2732e+02_jprb,1.5339e+02_jprb,1.8537e+02_jprb/)
1493 kbo( :,52,11) = (/&
1494 &7.1290e+01_jprb,9.3724e+01_jprb,1.1803e+02_jprb,1.4312e+02_jprb,1.7272e+02_jprb/)
1495 kbo( :,53,11) = (/&
1496 &6.3690e+01_jprb,8.4888e+01_jprb,1.0877e+02_jprb,1.3364e+02_jprb,1.6093e+02_jprb/)
1497 kbo( :,54,11) = (/&
1498 &5.7252e+01_jprb,7.7190e+01_jprb,1.0050e+02_jprb,1.2512e+02_jprb,1.5096e+02_jprb/)
1499 kbo( :,55,11) = (/&
1500 &5.1553e+01_jprb,7.0213e+01_jprb,9.2633e+01_jprb,1.1699e+02_jprb,1.4211e+02_jprb/)
1501 kbo( :,56,11) = (/&
1502 &4.6347e+01_jprb,6.3641e+01_jprb,8.4965e+01_jprb,1.0895e+02_jprb,1.3389e+02_jprb/)
1503 kbo( :,57,11) = (/&
1504 &4.1558e+01_jprb,5.7539e+01_jprb,7.7656e+01_jprb,1.0100e+02_jprb,1.2577e+02_jprb/)
1505 kbo( :,58,11) = (/&
1506 &3.7465e+01_jprb,5.2155e+01_jprb,7.1065e+01_jprb,9.3602e+01_jprb,1.1811e+02_jprb/)
1507 kbo( :,59,11) = (/&
1508 &3.5865e+01_jprb,5.0074e+01_jprb,6.8488e+01_jprb,9.0703e+01_jprb,1.1503e+02_jprb/)
1509 kbo( :,13,12) = (/&
1510 &3.5818e+03_jprb,3.5602e+03_jprb,3.5361e+03_jprb,3.5062e+03_jprb,3.4753e+03_jprb/)
1511 kbo( :,14,12) = (/&
1512 &3.4873e+03_jprb,3.4617e+03_jprb,3.4320e+03_jprb,3.3978e+03_jprb,3.3640e+03_jprb/)
1513 kbo( :,15,12) = (/&
1514 &3.3174e+03_jprb,3.2873e+03_jprb,3.2522e+03_jprb,3.2184e+03_jprb,3.1823e+03_jprb/)
1515 kbo( :,16,12) = (/&
1516 &3.0916e+03_jprb,3.0581e+03_jprb,3.0238e+03_jprb,2.9909e+03_jprb,2.9539e+03_jprb/)
1517 kbo( :,17,12) = (/&
1518 &2.8257e+03_jprb,2.7923e+03_jprb,2.7615e+03_jprb,2.7297e+03_jprb,2.6960e+03_jprb/)
1519 kbo( :,18,12) = (/&
1520 &2.5404e+03_jprb,2.5105e+03_jprb,2.4823e+03_jprb,2.4526e+03_jprb,2.4250e+03_jprb/)
1521 kbo( :,19,12) = (/&
1522 &2.2483e+03_jprb,2.2241e+03_jprb,2.1993e+03_jprb,2.1755e+03_jprb,2.1543e+03_jprb/)
1523 kbo( :,20,12) = (/&
1524 &1.9604e+03_jprb,1.9400e+03_jprb,1.9209e+03_jprb,1.9048e+03_jprb,1.8895e+03_jprb/)
1525 kbo( :,21,12) = (/&
1526 &1.6892e+03_jprb,1.6737e+03_jprb,1.6614e+03_jprb,1.6516e+03_jprb,1.6529e+03_jprb/)
1527 kbo( :,22,12) = (/&
1528 &1.4436e+03_jprb,1.4342e+03_jprb,1.4286e+03_jprb,1.4399e+03_jprb,1.4734e+03_jprb/)
1529 kbo( :,23,12) = (/&
1530 &1.2278e+03_jprb,1.2256e+03_jprb,1.2434e+03_jprb,1.2846e+03_jprb,1.3446e+03_jprb/)
1531 kbo( :,24,12) = (/&
1532 &1.0469e+03_jprb,1.0648e+03_jprb,1.1103e+03_jprb,1.1758e+03_jprb,1.2604e+03_jprb/)
1533 kbo( :,25,12) = (/&
1534 &9.1261e+02_jprb,9.5264e+02_jprb,1.0193e+03_jprb,1.1064e+03_jprb,1.2100e+03_jprb/)
1535 kbo( :,26,12) = (/&
1536 &8.2117e+02_jprb,8.8093e+02_jprb,9.6383e+02_jprb,1.0654e+03_jprb,1.1751e+03_jprb/)
1537 kbo( :,27,12) = (/&
1538 &7.6353e+02_jprb,8.3890e+02_jprb,9.3016e+02_jprb,1.0327e+03_jprb,1.1460e+03_jprb/)
1539 kbo( :,28,12) = (/&
1540 &7.3032e+02_jprb,8.1065e+02_jprb,9.0335e+02_jprb,1.0079e+03_jprb,1.1263e+03_jprb/)
1541 kbo( :,29,12) = (/&
1542 &7.0685e+02_jprb,7.8909e+02_jprb,8.8424e+02_jprb,9.9311e+02_jprb,1.1170e+03_jprb/)
1543 kbo( :,30,12) = (/&
1544 &6.8897e+02_jprb,7.7363e+02_jprb,8.7322e+02_jprb,9.8778e+02_jprb,1.1175e+03_jprb/)
1545 kbo( :,31,12) = (/&
1546 &6.7689e+02_jprb,7.6589e+02_jprb,8.7126e+02_jprb,9.9171e+02_jprb,1.1269e+03_jprb/)
1547 kbo( :,32,12) = (/&
1548 &6.7137e+02_jprb,7.6614e+02_jprb,8.7757e+02_jprb,1.0041e+03_jprb,1.1438e+03_jprb/)
1549 kbo( :,33,12) = (/&
1550 &6.7295e+02_jprb,7.7394e+02_jprb,8.9109e+02_jprb,1.0224e+03_jprb,1.1662e+03_jprb/)
1551 kbo( :,34,12) = (/&
1552 &6.7760e+02_jprb,7.8360e+02_jprb,9.0569e+02_jprb,1.0406e+03_jprb,1.1879e+03_jprb/)
1553 kbo( :,35,12) = (/&
1554 &6.7716e+02_jprb,7.8671e+02_jprb,9.1119e+02_jprb,1.0486e+03_jprb,1.1979e+03_jprb/)
1555 kbo( :,36,12) = (/&
1556 &6.6904e+02_jprb,7.7952e+02_jprb,9.0494e+02_jprb,1.0434e+03_jprb,1.1930e+03_jprb/)
1557 kbo( :,37,12) = (/&
1558 &6.4763e+02_jprb,7.5648e+02_jprb,8.8059e+02_jprb,1.0176e+03_jprb,1.1662e+03_jprb/)
1559 kbo( :,38,12) = (/&
1560 &6.2716e+02_jprb,7.3431e+02_jprb,8.5661e+02_jprb,9.9212e+02_jprb,1.1395e+03_jprb/)
1561 kbo( :,39,12) = (/&
1562 &6.0818e+02_jprb,7.1366e+02_jprb,8.3407e+02_jprb,9.6793e+02_jprb,1.1141e+03_jprb/)
1563 kbo( :,40,12) = (/&
1564 &5.8003e+02_jprb,6.8275e+02_jprb,7.9982e+02_jprb,9.3064e+02_jprb,1.0742e+03_jprb/)
1565 kbo( :,41,12) = (/&
1566 &5.5133e+02_jprb,6.5206e+02_jprb,7.6547e+02_jprb,8.9303e+02_jprb,1.0336e+03_jprb/)
1567 kbo( :,42,12) = (/&
1568 &5.2305e+02_jprb,6.2298e+02_jprb,7.3258e+02_jprb,8.5660e+02_jprb,9.9409e+02_jprb/)
1569 kbo( :,43,12) = (/&
1570 &4.8966e+02_jprb,5.8921e+02_jprb,6.9465e+02_jprb,8.1454e+02_jprb,9.4783e+02_jprb/)
1571 kbo( :,44,12) = (/&
1572 &4.5450e+02_jprb,5.5350e+02_jprb,6.5588e+02_jprb,7.7082e+02_jprb,8.9980e+02_jprb/)
1573 kbo( :,45,12) = (/&
1574 &4.2021e+02_jprb,5.1820e+02_jprb,6.1912e+02_jprb,7.2914e+02_jprb,8.5336e+02_jprb/)
1575 kbo( :,46,12) = (/&
1576 &3.8545e+02_jprb,4.8121e+02_jprb,5.8143e+02_jprb,6.8674e+02_jprb,8.0608e+02_jprb/)
1577 kbo( :,47,12) = (/&
1578 &3.4881e+02_jprb,4.4053e+02_jprb,5.3980e+02_jprb,6.4195e+02_jprb,7.5551e+02_jprb/)
1579 kbo( :,48,12) = (/&
1580 &3.1491e+02_jprb,4.0104e+02_jprb,4.9870e+02_jprb,5.9963e+02_jprb,7.0738e+02_jprb/)
1581 kbo( :,49,12) = (/&
1582 &2.8368e+02_jprb,3.6400e+02_jprb,4.5807e+02_jprb,5.5813e+02_jprb,6.6173e+02_jprb/)
1583 kbo( :,50,12) = (/&
1584 &2.5677e+02_jprb,3.3132e+02_jprb,4.2070e+02_jprb,5.1964e+02_jprb,6.2120e+02_jprb/)
1585 kbo( :,51,12) = (/&
1586 &2.3306e+02_jprb,3.0179e+02_jprb,3.8584e+02_jprb,4.8266e+02_jprb,5.8343e+02_jprb/)
1587 kbo( :,52,12) = (/&
1588 &2.1156e+02_jprb,2.7447e+02_jprb,3.5296e+02_jprb,4.4605e+02_jprb,5.4606e+02_jprb/)
1589 kbo( :,53,12) = (/&
1590 &1.9230e+02_jprb,2.4924e+02_jprb,3.2214e+02_jprb,4.1028e+02_jprb,5.0889e+02_jprb/)
1591 kbo( :,54,12) = (/&
1592 &1.7631e+02_jprb,2.2814e+02_jprb,2.9584e+02_jprb,3.7892e+02_jprb,4.7521e+02_jprb/)
1593 kbo( :,55,12) = (/&
1594 &1.6135e+02_jprb,2.0966e+02_jprb,2.7215e+02_jprb,3.5038e+02_jprb,4.4318e+02_jprb/)
1595 kbo( :,56,12) = (/&
1596 &1.4671e+02_jprb,1.9290e+02_jprb,2.5021e+02_jprb,3.2348e+02_jprb,4.1193e+02_jprb/)
1597 kbo( :,57,12) = (/&
1598 &1.3244e+02_jprb,1.7761e+02_jprb,2.2999e+02_jprb,2.9808e+02_jprb,3.8198e+02_jprb/)
1599 kbo( :,58,12) = (/&
1600 &1.1934e+02_jprb,1.6351e+02_jprb,2.1236e+02_jprb,2.7551e+02_jprb,3.5480e+02_jprb/)
1601 kbo( :,59,12) = (/&
1602 &1.1416e+02_jprb,1.5788e+02_jprb,2.0569e+02_jprb,2.6705e+02_jprb,3.4428e+02_jprb/)
1603 kbo( :,13,13) = (/&
1604 &6.2395e+03_jprb,6.2548e+03_jprb,6.2528e+03_jprb,6.2437e+03_jprb,6.2212e+03_jprb/)
1605 kbo( :,14,13) = (/&
1606 &6.5506e+03_jprb,6.5502e+03_jprb,6.5372e+03_jprb,6.5181e+03_jprb,6.4862e+03_jprb/)
1607 kbo( :,15,13) = (/&
1608 &6.7305e+03_jprb,6.7173e+03_jprb,6.7025e+03_jprb,6.6735e+03_jprb,6.6396e+03_jprb/)
1609 kbo( :,16,13) = (/&
1610 &6.7735e+03_jprb,6.7593e+03_jprb,6.7329e+03_jprb,6.7018e+03_jprb,6.6632e+03_jprb/)
1611 kbo( :,17,13) = (/&
1612 &6.6866e+03_jprb,6.6652e+03_jprb,6.6418e+03_jprb,6.6109e+03_jprb,6.5815e+03_jprb/)
1613 kbo( :,18,13) = (/&
1614 &6.4678e+03_jprb,6.4550e+03_jprb,6.4343e+03_jprb,6.4161e+03_jprb,6.3909e+03_jprb/)
1615 kbo( :,19,13) = (/&
1616 &6.1502e+03_jprb,6.1407e+03_jprb,6.1364e+03_jprb,6.1306e+03_jprb,6.1254e+03_jprb/)
1617 kbo( :,20,13) = (/&
1618 &5.7689e+03_jprb,5.7735e+03_jprb,5.7841e+03_jprb,5.7948e+03_jprb,5.8088e+03_jprb/)
1619 kbo( :,21,13) = (/&
1620 &5.3403e+03_jprb,5.3684e+03_jprb,5.3985e+03_jprb,5.4338e+03_jprb,5.4704e+03_jprb/)
1621 kbo( :,22,13) = (/&
1622 &4.8996e+03_jprb,4.9455e+03_jprb,5.0039e+03_jprb,5.0665e+03_jprb,5.1301e+03_jprb/)
1623 kbo( :,23,13) = (/&
1624 &4.4632e+03_jprb,4.5382e+03_jprb,4.6203e+03_jprb,4.7095e+03_jprb,4.8061e+03_jprb/)
1625 kbo( :,24,13) = (/&
1626 &4.0592e+03_jprb,4.1561e+03_jprb,4.2652e+03_jprb,4.3841e+03_jprb,4.5045e+03_jprb/)
1627 kbo( :,25,13) = (/&
1628 &3.6916e+03_jprb,3.8157e+03_jprb,3.9506e+03_jprb,4.0939e+03_jprb,4.2439e+03_jprb/)
1629 kbo( :,26,13) = (/&
1630 &3.3695e+03_jprb,3.5229e+03_jprb,3.6811e+03_jprb,3.8560e+03_jprb,4.0438e+03_jprb/)
1631 kbo( :,27,13) = (/&
1632 &3.0970e+03_jprb,3.2745e+03_jprb,3.4707e+03_jprb,3.6834e+03_jprb,3.9050e+03_jprb/)
1633 kbo( :,28,13) = (/&
1634 &2.8706e+03_jprb,3.0888e+03_jprb,3.3231e+03_jprb,3.5664e+03_jprb,3.8148e+03_jprb/)
1635 kbo( :,29,13) = (/&
1636 &2.7113e+03_jprb,2.9644e+03_jprb,3.2288e+03_jprb,3.4982e+03_jprb,3.7656e+03_jprb/)
1637 kbo( :,30,13) = (/&
1638 &2.6074e+03_jprb,2.8885e+03_jprb,3.1778e+03_jprb,3.4648e+03_jprb,3.7470e+03_jprb/)
1639 kbo( :,31,13) = (/&
1640 &2.5496e+03_jprb,2.8533e+03_jprb,3.1606e+03_jprb,3.4611e+03_jprb,3.7527e+03_jprb/)
1641 kbo( :,32,13) = (/&
1642 &2.5294e+03_jprb,2.8506e+03_jprb,3.1699e+03_jprb,3.4785e+03_jprb,3.7755e+03_jprb/)
1643 kbo( :,33,13) = (/&
1644 &2.5376e+03_jprb,2.8705e+03_jprb,3.1985e+03_jprb,3.5117e+03_jprb,3.8116e+03_jprb/)
1645 kbo( :,34,13) = (/&
1646 &2.5544e+03_jprb,2.8966e+03_jprb,3.2284e+03_jprb,3.5457e+03_jprb,3.8464e+03_jprb/)
1647 kbo( :,35,13) = (/&
1648 &2.5535e+03_jprb,2.9023e+03_jprb,3.2375e+03_jprb,3.5577e+03_jprb,3.8601e+03_jprb/)
1649 kbo( :,36,13) = (/&
1650 &2.5246e+03_jprb,2.8777e+03_jprb,3.2177e+03_jprb,3.5406e+03_jprb,3.8472e+03_jprb/)
1651 kbo( :,37,13) = (/&
1652 &2.4476e+03_jprb,2.8057e+03_jprb,3.1519e+03_jprb,3.4804e+03_jprb,3.7923e+03_jprb/)
1653 kbo( :,38,13) = (/&
1654 &2.3725e+03_jprb,2.7347e+03_jprb,3.0855e+03_jprb,3.4198e+03_jprb,3.7363e+03_jprb/)
1655 kbo( :,39,13) = (/&
1656 &2.3022e+03_jprb,2.6668e+03_jprb,3.0226e+03_jprb,3.3616e+03_jprb,3.6822e+03_jprb/)
1657 kbo( :,40,13) = (/&
1658 &2.1978e+03_jprb,2.5643e+03_jprb,2.9251e+03_jprb,3.2708e+03_jprb,3.5971e+03_jprb/)
1659 kbo( :,41,13) = (/&
1660 &2.0936e+03_jprb,2.4587e+03_jprb,2.8232e+03_jprb,3.1755e+03_jprb,3.5072e+03_jprb/)
1661 kbo( :,42,13) = (/&
1662 &1.9924e+03_jprb,2.3537e+03_jprb,2.7212e+03_jprb,3.0790e+03_jprb,3.4170e+03_jprb/)
1663 kbo( :,43,13) = (/&
1664 &1.8759e+03_jprb,2.2299e+03_jprb,2.5995e+03_jprb,2.9624e+03_jprb,3.3082e+03_jprb/)
1665 kbo( :,44,13) = (/&
1666 &1.7551e+03_jprb,2.1002e+03_jprb,2.4686e+03_jprb,2.8357e+03_jprb,3.1891e+03_jprb/)
1667 kbo( :,45,13) = (/&
1668 &1.6392e+03_jprb,1.9745e+03_jprb,2.3377e+03_jprb,2.7076e+03_jprb,3.0676e+03_jprb/)
1669 kbo( :,46,13) = (/&
1670 &1.5222e+03_jprb,1.8455e+03_jprb,2.1996e+03_jprb,2.5709e+03_jprb,2.9366e+03_jprb/)
1671 kbo( :,47,13) = (/&
1672 &1.3973e+03_jprb,1.7071e+03_jprb,2.0502e+03_jprb,2.4181e+03_jprb,2.7876e+03_jprb/)
1673 kbo( :,48,13) = (/&
1674 &1.2797e+03_jprb,1.5744e+03_jprb,1.9051e+03_jprb,2.2652e+03_jprb,2.6369e+03_jprb/)
1675 kbo( :,49,13) = (/&
1676 &1.1690e+03_jprb,1.4484e+03_jprb,1.7654e+03_jprb,2.1147e+03_jprb,2.4860e+03_jprb/)
1677 kbo( :,50,13) = (/&
1678 &1.0720e+03_jprb,1.3359e+03_jprb,1.6397e+03_jprb,1.9779e+03_jprb,2.3429e+03_jprb/)
1679 kbo( :,51,13) = (/&
1680 &9.8386e+02_jprb,1.2327e+03_jprb,1.5222e+03_jprb,1.8488e+03_jprb,2.2054e+03_jprb/)
1681 kbo( :,52,13) = (/&
1682 &9.0207e+02_jprb,1.1351e+03_jprb,1.4100e+03_jprb,1.7243e+03_jprb,2.0711e+03_jprb/)
1683 kbo( :,53,13) = (/&
1684 &8.2675e+02_jprb,1.0437e+03_jprb,1.3030e+03_jprb,1.6043e+03_jprb,1.9396e+03_jprb/)
1685 kbo( :,54,13) = (/&
1686 &7.6352e+02_jprb,9.6482e+02_jprb,1.2111e+03_jprb,1.4982e+03_jprb,1.8229e+03_jprb/)
1687 kbo( :,55,13) = (/&
1688 &7.0952e+02_jprb,8.9409e+02_jprb,1.1266e+03_jprb,1.4008e+03_jprb,1.7142e+03_jprb/)
1689 kbo( :,56,13) = (/&
1690 &6.6233e+02_jprb,8.2850e+02_jprb,1.0468e+03_jprb,1.3073e+03_jprb,1.6094e+03_jprb/)
1691 kbo( :,57,13) = (/&
1692 &6.2132e+02_jprb,7.6796e+02_jprb,9.7144e+02_jprb,1.2186e+03_jprb,1.5081e+03_jprb/)
1693 kbo( :,58,13) = (/&
1694 &5.8653e+02_jprb,7.1647e+02_jprb,9.0432e+02_jprb,1.1383e+03_jprb,1.4157e+03_jprb/)
1695 kbo( :,59,13) = (/&
1696 &5.7212e+02_jprb,6.9724e+02_jprb,8.7847e+02_jprb,1.1078e+03_jprb,1.3794e+03_jprb/)
1697 kbo( :,13,14) = (/&
1698 &9.8835e+03_jprb,9.9539e+03_jprb,1.0003e+04_jprb,1.0028e+04_jprb,1.0036e+04_jprb/)
1699 kbo( :,14,14) = (/&
1700 &1.1157e+04_jprb,1.1221e+04_jprb,1.1261e+04_jprb,1.1278e+04_jprb,1.1272e+04_jprb/)
1701 kbo( :,15,14) = (/&
1702 &1.2451e+04_jprb,1.2500e+04_jprb,1.2523e+04_jprb,1.2525e+04_jprb,1.2496e+04_jprb/)
1703 kbo( :,16,14) = (/&
1704 &1.3702e+04_jprb,1.3735e+04_jprb,1.3749e+04_jprb,1.3724e+04_jprb,1.3688e+04_jprb/)
1705 kbo( :,17,14) = (/&
1706 &1.4864e+04_jprb,1.4899e+04_jprb,1.4888e+04_jprb,1.4860e+04_jprb,1.4794e+04_jprb/)
1707 kbo( :,18,14) = (/&
1708 &1.5913e+04_jprb,1.5926e+04_jprb,1.5919e+04_jprb,1.5876e+04_jprb,1.5804e+04_jprb/)
1709 kbo( :,19,14) = (/&
1710 &1.6806e+04_jprb,1.6819e+04_jprb,1.6811e+04_jprb,1.6767e+04_jprb,1.6686e+04_jprb/)
1711 kbo( :,20,14) = (/&
1712 &1.7528e+04_jprb,1.7560e+04_jprb,1.7554e+04_jprb,1.7516e+04_jprb,1.7446e+04_jprb/)
1713 kbo( :,21,14) = (/&
1714 &1.8101e+04_jprb,1.8142e+04_jprb,1.8157e+04_jprb,1.8133e+04_jprb,1.8069e+04_jprb/)
1715 kbo( :,22,14) = (/&
1716 &1.8522e+04_jprb,1.8600e+04_jprb,1.8643e+04_jprb,1.8633e+04_jprb,1.8576e+04_jprb/)
1717 kbo( :,23,14) = (/&
1718 &1.8830e+04_jprb,1.8951e+04_jprb,1.9026e+04_jprb,1.9036e+04_jprb,1.8990e+04_jprb/)
1719 kbo( :,24,14) = (/&
1720 &1.9044e+04_jprb,1.9220e+04_jprb,1.9318e+04_jprb,1.9356e+04_jprb,1.9336e+04_jprb/)
1721 kbo( :,25,14) = (/&
1722 &1.9206e+04_jprb,1.9423e+04_jprb,1.9557e+04_jprb,1.9620e+04_jprb,1.9613e+04_jprb/)
1723 kbo( :,26,14) = (/&
1724 &1.9345e+04_jprb,1.9590e+04_jprb,1.9754e+04_jprb,1.9836e+04_jprb,1.9837e+04_jprb/)
1725 kbo( :,27,14) = (/&
1726 &1.9462e+04_jprb,1.9735e+04_jprb,1.9916e+04_jprb,2.0012e+04_jprb,2.0020e+04_jprb/)
1727 kbo( :,28,14) = (/&
1728 &1.9573e+04_jprb,1.9864e+04_jprb,2.0059e+04_jprb,2.0163e+04_jprb,2.0168e+04_jprb/)
1729 kbo( :,29,14) = (/&
1730 &1.9682e+04_jprb,1.9985e+04_jprb,2.0186e+04_jprb,2.0286e+04_jprb,2.0288e+04_jprb/)
1731 kbo( :,30,14) = (/&
1732 &1.9789e+04_jprb,2.0101e+04_jprb,2.0295e+04_jprb,2.0389e+04_jprb,2.0383e+04_jprb/)
1733 kbo( :,31,14) = (/&
1734 &1.9904e+04_jprb,2.0212e+04_jprb,2.0395e+04_jprb,2.0474e+04_jprb,2.0459e+04_jprb/)
1735 kbo( :,32,14) = (/&
1736 &2.0019e+04_jprb,2.0312e+04_jprb,2.0477e+04_jprb,2.0546e+04_jprb,2.0515e+04_jprb/)
1737 kbo( :,33,14) = (/&
1738 &2.0130e+04_jprb,2.0401e+04_jprb,2.0548e+04_jprb,2.0603e+04_jprb,2.0557e+04_jprb/)
1739 kbo( :,34,14) = (/&
1740 &2.0224e+04_jprb,2.0479e+04_jprb,2.0609e+04_jprb,2.0649e+04_jprb,2.0588e+04_jprb/)
1741 kbo( :,35,14) = (/&
1742 &2.0280e+04_jprb,2.0527e+04_jprb,2.0652e+04_jprb,2.0686e+04_jprb,2.0619e+04_jprb/)
1743 kbo( :,36,14) = (/&
1744 &2.0300e+04_jprb,2.0553e+04_jprb,2.0683e+04_jprb,2.0717e+04_jprb,2.0652e+04_jprb/)
1745 kbo( :,37,14) = (/&
1746 &2.0267e+04_jprb,2.0544e+04_jprb,2.0692e+04_jprb,2.0745e+04_jprb,2.0696e+04_jprb/)
1747 kbo( :,38,14) = (/&
1748 &2.0221e+04_jprb,2.0526e+04_jprb,2.0695e+04_jprb,2.0765e+04_jprb,2.0733e+04_jprb/)
1749 kbo( :,39,14) = (/&
1750 &2.0172e+04_jprb,2.0502e+04_jprb,2.0692e+04_jprb,2.0780e+04_jprb,2.0762e+04_jprb/)
1751 kbo( :,40,14) = (/&
1752 &2.0072e+04_jprb,2.0440e+04_jprb,2.0669e+04_jprb,2.0782e+04_jprb,2.0789e+04_jprb/)
1753 kbo( :,41,14) = (/&
1754 &1.9953e+04_jprb,2.0365e+04_jprb,2.0629e+04_jprb,2.0773e+04_jprb,2.0810e+04_jprb/)
1755 kbo( :,42,14) = (/&
1756 &1.9824e+04_jprb,2.0275e+04_jprb,2.0580e+04_jprb,2.0757e+04_jprb,2.0819e+04_jprb/)
1757 kbo( :,43,14) = (/&
1758 &1.9649e+04_jprb,2.0152e+04_jprb,2.0505e+04_jprb,2.0716e+04_jprb,2.0819e+04_jprb/)
1759 kbo( :,44,14) = (/&
1760 &1.9430e+04_jprb,2.0000e+04_jprb,2.0405e+04_jprb,2.0665e+04_jprb,2.0802e+04_jprb/)
1761 kbo( :,45,14) = (/&
1762 &1.9196e+04_jprb,1.9828e+04_jprb,2.0288e+04_jprb,2.0595e+04_jprb,2.0775e+04_jprb/)
1763 kbo( :,46,14) = (/&
1764 &1.8908e+04_jprb,1.9621e+04_jprb,2.0141e+04_jprb,2.0502e+04_jprb,2.0723e+04_jprb/)
1765 kbo( :,47,14) = (/&
1766 &1.8564e+04_jprb,1.9359e+04_jprb,1.9951e+04_jprb,2.0375e+04_jprb,2.0651e+04_jprb/)
1767 kbo( :,48,14) = (/&
1768 &1.8186e+04_jprb,1.9064e+04_jprb,1.9734e+04_jprb,2.0222e+04_jprb,2.0560e+04_jprb/)
1769 kbo( :,49,14) = (/&
1770 &1.7775e+04_jprb,1.8727e+04_jprb,1.9486e+04_jprb,2.0046e+04_jprb,2.0443e+04_jprb/)
1771 kbo( :,50,14) = (/&
1772 &1.7362e+04_jprb,1.8391e+04_jprb,1.9223e+04_jprb,1.9856e+04_jprb,2.0310e+04_jprb/)
1773 kbo( :,51,14) = (/&
1774 &1.6921e+04_jprb,1.8033e+04_jprb,1.8942e+04_jprb,1.9648e+04_jprb,2.0164e+04_jprb/)
1775 kbo( :,52,14) = (/&
1776 &1.6453e+04_jprb,1.7649e+04_jprb,1.8637e+04_jprb,1.9415e+04_jprb,1.9994e+04_jprb/)
1777 kbo( :,53,14) = (/&
1778 &1.5948e+04_jprb,1.7240e+04_jprb,1.8303e+04_jprb,1.9152e+04_jprb,1.9803e+04_jprb/)
1779 kbo( :,54,14) = (/&
1780 &1.5455e+04_jprb,1.6834e+04_jprb,1.7961e+04_jprb,1.8891e+04_jprb,1.9606e+04_jprb/)
1781 kbo( :,55,14) = (/&
1782 &1.4957e+04_jprb,1.6418e+04_jprb,1.7624e+04_jprb,1.8615e+04_jprb,1.9397e+04_jprb/)
1783 kbo( :,56,14) = (/&
1784 &1.4440e+04_jprb,1.5974e+04_jprb,1.7263e+04_jprb,1.8321e+04_jprb,1.9169e+04_jprb/)
1785 kbo( :,57,14) = (/&
1786 &1.3900e+04_jprb,1.5506e+04_jprb,1.6878e+04_jprb,1.8004e+04_jprb,1.8917e+04_jprb/)
1787 kbo( :,58,14) = (/&
1788 &1.3361e+04_jprb,1.5039e+04_jprb,1.6487e+04_jprb,1.7689e+04_jprb,1.8664e+04_jprb/)
1789 kbo( :,59,14) = (/&
1790 &1.3141e+04_jprb,1.4845e+04_jprb,1.6324e+04_jprb,1.7549e+04_jprb,1.8556e+04_jprb/)
1791 kbo( :,13,15) = (/&
1792 &1.3105e+04_jprb,1.3211e+04_jprb,1.3290e+04_jprb,1.3347e+04_jprb,1.3377e+04_jprb/)
1793 kbo( :,14,15) = (/&
1794 &1.5542e+04_jprb,1.5648e+04_jprb,1.5712e+04_jprb,1.5742e+04_jprb,1.5741e+04_jprb/)
1795 kbo( :,15,15) = (/&
1796 &1.8293e+04_jprb,1.8393e+04_jprb,1.8434e+04_jprb,1.8432e+04_jprb,1.8387e+04_jprb/)
1797 kbo( :,16,15) = (/&
1798 &2.1367e+04_jprb,2.1424e+04_jprb,2.1423e+04_jprb,2.1375e+04_jprb,2.1256e+04_jprb/)
1799 kbo( :,17,15) = (/&
1800 &2.4738e+04_jprb,2.4717e+04_jprb,2.4651e+04_jprb,2.4501e+04_jprb,2.4302e+04_jprb/)
1801 kbo( :,18,15) = (/&
1802 &2.8333e+04_jprb,2.8229e+04_jprb,2.8040e+04_jprb,2.7775e+04_jprb,2.7461e+04_jprb/)
1803 kbo( :,19,15) = (/&
1804 &3.2088e+04_jprb,3.1857e+04_jprb,3.1527e+04_jprb,3.1118e+04_jprb,3.0643e+04_jprb/)
1805 kbo( :,20,15) = (/&
1806 &3.5897e+04_jprb,3.5492e+04_jprb,3.5012e+04_jprb,3.4430e+04_jprb,3.3771e+04_jprb/)
1807 kbo( :,21,15) = (/&
1808 &3.9650e+04_jprb,3.9061e+04_jprb,3.8385e+04_jprb,3.7607e+04_jprb,3.6774e+04_jprb/)
1809 kbo( :,22,15) = (/&
1810 &4.3231e+04_jprb,4.2424e+04_jprb,4.1504e+04_jprb,4.0530e+04_jprb,3.9497e+04_jprb/)
1811 kbo( :,23,15) = (/&
1812 &4.6557e+04_jprb,4.5500e+04_jprb,4.4350e+04_jprb,4.3167e+04_jprb,4.1929e+04_jprb/)
1813 kbo( :,24,15) = (/&
1814 &4.9552e+04_jprb,4.8236e+04_jprb,4.6880e+04_jprb,4.5475e+04_jprb,4.4033e+04_jprb/)
1815 kbo( :,25,15) = (/&
1816 &5.2158e+04_jprb,5.0602e+04_jprb,4.9033e+04_jprb,4.7428e+04_jprb,4.5797e+04_jprb/)
1817 kbo( :,26,15) = (/&
1818 &5.4326e+04_jprb,5.2566e+04_jprb,5.0793e+04_jprb,4.9004e+04_jprb,4.7209e+04_jprb/)
1819 kbo( :,27,15) = (/&
1820 &5.6113e+04_jprb,5.4155e+04_jprb,5.2200e+04_jprb,5.0246e+04_jprb,4.8319e+04_jprb/)
1821 kbo( :,28,15) = (/&
1822 &5.7518e+04_jprb,5.5394e+04_jprb,5.3278e+04_jprb,5.1199e+04_jprb,4.9157e+04_jprb/)
1823 kbo( :,29,15) = (/&
1824 &5.8580e+04_jprb,5.6300e+04_jprb,5.4057e+04_jprb,5.1871e+04_jprb,4.9732e+04_jprb/)
1825 kbo( :,30,15) = (/&
1826 &5.9321e+04_jprb,5.6927e+04_jprb,5.4587e+04_jprb,5.2312e+04_jprb,5.0097e+04_jprb/)
1827 kbo( :,31,15) = (/&
1828 &5.9791e+04_jprb,5.7302e+04_jprb,5.4893e+04_jprb,5.2547e+04_jprb,5.0272e+04_jprb/)
1829 kbo( :,32,15) = (/&
1830 &6.0024e+04_jprb,5.7470e+04_jprb,5.5008e+04_jprb,5.2603e+04_jprb,5.0291e+04_jprb/)
1831 kbo( :,33,15) = (/&
1832 &6.0073e+04_jprb,5.7468e+04_jprb,5.4966e+04_jprb,5.2524e+04_jprb,5.0181e+04_jprb/)
1833 kbo( :,34,15) = (/&
1834 &6.0061e+04_jprb,5.7423e+04_jprb,5.4889e+04_jprb,5.2419e+04_jprb,5.0055e+04_jprb/)
1835 kbo( :,35,15) = (/&
1836 &6.0191e+04_jprb,5.7520e+04_jprb,5.4955e+04_jprb,5.2459e+04_jprb,5.0075e+04_jprb/)
1837 kbo( :,36,15) = (/&
1838 &6.0539e+04_jprb,5.7824e+04_jprb,5.5225e+04_jprb,5.2698e+04_jprb,5.0287e+04_jprb/)
1839 kbo( :,37,15) = (/&
1840 &6.1234e+04_jprb,5.8473e+04_jprb,5.5831e+04_jprb,5.3268e+04_jprb,5.0811e+04_jprb/)
1841 kbo( :,38,15) = (/&
1842 &6.1911e+04_jprb,5.9110e+04_jprb,5.6429e+04_jprb,5.3825e+04_jprb,5.1333e+04_jprb/)
1843 kbo( :,39,15) = (/&
1844 &6.2546e+04_jprb,5.9701e+04_jprb,5.6980e+04_jprb,5.4347e+04_jprb,5.1826e+04_jprb/)
1845 kbo( :,40,15) = (/&
1846 &6.3440e+04_jprb,6.0560e+04_jprb,5.7786e+04_jprb,5.5116e+04_jprb,5.2552e+04_jprb/)
1847 kbo( :,41,15) = (/&
1848 &6.4362e+04_jprb,6.1427e+04_jprb,5.8612e+04_jprb,5.5905e+04_jprb,5.3303e+04_jprb/)
1849 kbo( :,42,15) = (/&
1850 &6.5271e+04_jprb,6.2297e+04_jprb,5.9433e+04_jprb,5.6685e+04_jprb,5.4054e+04_jprb/)
1851 kbo( :,43,15) = (/&
1852 &6.6345e+04_jprb,6.3316e+04_jprb,6.0412e+04_jprb,5.7629e+04_jprb,5.4943e+04_jprb/)
1853 kbo( :,44,15) = (/&
1854 &6.7502e+04_jprb,6.4418e+04_jprb,6.1461e+04_jprb,5.8625e+04_jprb,5.5900e+04_jprb/)
1855 kbo( :,45,15) = (/&
1856 &6.8664e+04_jprb,6.5524e+04_jprb,6.2518e+04_jprb,5.9632e+04_jprb,5.6859e+04_jprb/)
1857 kbo( :,46,15) = (/&
1858 &6.9916e+04_jprb,6.6699e+04_jprb,6.3637e+04_jprb,6.0705e+04_jprb,5.7897e+04_jprb/)
1859 kbo( :,47,15) = (/&
1860 &7.1307e+04_jprb,6.8027e+04_jprb,6.4908e+04_jprb,6.1920e+04_jprb,5.9052e+04_jprb/)
1861 kbo( :,48,15) = (/&
1862 &7.2692e+04_jprb,6.9380e+04_jprb,6.6186e+04_jprb,6.3144e+04_jprb,6.0224e+04_jprb/)
1863 kbo( :,49,15) = (/&
1864 &7.4089e+04_jprb,7.0754e+04_jprb,6.7488e+04_jprb,6.4384e+04_jprb,6.1415e+04_jprb/)
1865 kbo( :,50,15) = (/&
1866 &7.5388e+04_jprb,7.2035e+04_jprb,6.8731e+04_jprb,6.5568e+04_jprb,6.2543e+04_jprb/)
1867 kbo( :,51,15) = (/&
1868 &7.6677e+04_jprb,7.3293e+04_jprb,6.9952e+04_jprb,6.6726e+04_jprb,6.3655e+04_jprb/)
1869 kbo( :,52,15) = (/&
1870 &7.7977e+04_jprb,7.4539e+04_jprb,7.1186e+04_jprb,6.7906e+04_jprb,6.4783e+04_jprb/)
1871 kbo( :,53,15) = (/&
1872 &7.9289e+04_jprb,7.5794e+04_jprb,7.2422e+04_jprb,6.9107e+04_jprb,6.5922e+04_jprb/)
1873 kbo( :,54,15) = (/&
1874 &8.0507e+04_jprb,7.6976e+04_jprb,7.3575e+04_jprb,7.0226e+04_jprb,6.6980e+04_jprb/)
1875 kbo( :,55,15) = (/&
1876 &8.1668e+04_jprb,7.8115e+04_jprb,7.4665e+04_jprb,7.1303e+04_jprb,6.8017e+04_jprb/)
1877 kbo( :,56,15) = (/&
1878 &8.2825e+04_jprb,7.9256e+04_jprb,7.5760e+04_jprb,7.2375e+04_jprb,6.9059e+04_jprb/)
1879 kbo( :,57,15) = (/&
1880 &8.3969e+04_jprb,8.0408e+04_jprb,7.6872e+04_jprb,7.3475e+04_jprb,7.0130e+04_jprb/)
1881 kbo( :,58,15) = (/&
1882 &8.5046e+04_jprb,8.1501e+04_jprb,7.7943e+04_jprb,7.4498e+04_jprb,7.1139e+04_jprb/)
1883 kbo( :,59,15) = (/&
1884 &8.5481e+04_jprb,8.1948e+04_jprb,7.8376e+04_jprb,7.4922e+04_jprb,7.1551e+04_jprb/)
1885 kbo( :,13,16) = (/&
1886 &1.4822e+04_jprb,1.4947e+04_jprb,1.5039e+04_jprb,1.5078e+04_jprb,1.5067e+04_jprb/)
1887 kbo( :,14,16) = (/&
1888 &1.7844e+04_jprb,1.7976e+04_jprb,1.8048e+04_jprb,1.8049e+04_jprb,1.8009e+04_jprb/)
1889 kbo( :,15,16) = (/&
1890 &2.1400e+04_jprb,2.1492e+04_jprb,2.1520e+04_jprb,2.1466e+04_jprb,2.1373e+04_jprb/)
1891 kbo( :,16,16) = (/&
1892 &2.5508e+04_jprb,2.5515e+04_jprb,2.5445e+04_jprb,2.5314e+04_jprb,2.5126e+04_jprb/)
1893 kbo( :,17,16) = (/&
1894 &3.0159e+04_jprb,3.0040e+04_jprb,2.9821e+04_jprb,2.9561e+04_jprb,2.9224e+04_jprb/)
1895 kbo( :,18,16) = (/&
1896 &3.5323e+04_jprb,3.5002e+04_jprb,3.4578e+04_jprb,3.4138e+04_jprb,3.3586e+04_jprb/)
1897 kbo( :,19,16) = (/&
1898 &4.0906e+04_jprb,4.0304e+04_jprb,3.9627e+04_jprb,3.8916e+04_jprb,3.8103e+04_jprb/)
1899 kbo( :,20,16) = (/&
1900 &4.6757e+04_jprb,4.5796e+04_jprb,4.4798e+04_jprb,4.3759e+04_jprb,4.2633e+04_jprb/)
1901 kbo( :,21,16) = (/&
1902 &5.2696e+04_jprb,5.1326e+04_jprb,4.9934e+04_jprb,4.8491e+04_jprb,4.7018e+04_jprb/)
1903 kbo( :,22,16) = (/&
1904 &5.8463e+04_jprb,5.6597e+04_jprb,5.4757e+04_jprb,5.2889e+04_jprb,5.1042e+04_jprb/)
1905 kbo( :,23,16) = (/&
1906 &6.3885e+04_jprb,6.1516e+04_jprb,5.9197e+04_jprb,5.6911e+04_jprb,5.4673e+04_jprb/)
1907 kbo( :,24,16) = (/&
1908 &6.8792e+04_jprb,6.5930e+04_jprb,6.3138e+04_jprb,6.0429e+04_jprb,5.7833e+04_jprb/)
1909 kbo( :,25,16) = (/&
1910 &7.3081e+04_jprb,6.9742e+04_jprb,6.6502e+04_jprb,6.3413e+04_jprb,6.0489e+04_jprb/)
1911 kbo( :,26,16) = (/&
1912 &7.6659e+04_jprb,7.2881e+04_jprb,6.9229e+04_jprb,6.5813e+04_jprb,6.2609e+04_jprb/)
1913 kbo( :,27,16) = (/&
1914 &7.9551e+04_jprb,7.5372e+04_jprb,7.1411e+04_jprb,6.7691e+04_jprb,6.4257e+04_jprb/)
1915 kbo( :,28,16) = (/&
1916 &8.1786e+04_jprb,7.7281e+04_jprb,7.3039e+04_jprb,6.9087e+04_jprb,6.5469e+04_jprb/)
1917 kbo( :,29,16) = (/&
1918 &8.3384e+04_jprb,7.8614e+04_jprb,7.4165e+04_jprb,7.0047e+04_jprb,6.6277e+04_jprb/)
1919 kbo( :,30,16) = (/&
1920 &8.4452e+04_jprb,7.9468e+04_jprb,7.4871e+04_jprb,7.0641e+04_jprb,6.6750e+04_jprb/)
1921 kbo( :,31,16) = (/&
1922 &8.5039e+04_jprb,7.9905e+04_jprb,7.5199e+04_jprb,7.0901e+04_jprb,6.6924e+04_jprb/)
1923 kbo( :,32,16) = (/&
1924 &8.5212e+04_jprb,7.9990e+04_jprb,7.5213e+04_jprb,7.0881e+04_jprb,6.6857e+04_jprb/)
1925 kbo( :,33,16) = (/&
1926 &8.5050e+04_jprb,7.9794e+04_jprb,7.5003e+04_jprb,7.0644e+04_jprb,6.6588e+04_jprb/)
1927 kbo( :,34,16) = (/&
1928 &8.4825e+04_jprb,7.9556e+04_jprb,7.4769e+04_jprb,7.0382e+04_jprb,6.6308e+04_jprb/)
1929 kbo( :,35,16) = (/&
1930 &8.4932e+04_jprb,7.9627e+04_jprb,7.4818e+04_jprb,7.0396e+04_jprb,6.6295e+04_jprb/)
1931 kbo( :,36,16) = (/&
1932 &8.5505e+04_jprb,8.0119e+04_jprb,7.5241e+04_jprb,7.0767e+04_jprb,6.6616e+04_jprb/)
1933 kbo( :,37,16) = (/&
1934 &8.6832e+04_jprb,8.1301e+04_jprb,7.6293e+04_jprb,7.1722e+04_jprb,6.7493e+04_jprb/)
1935 kbo( :,38,16) = (/&
1936 &8.8141e+04_jprb,8.2471e+04_jprb,7.7320e+04_jprb,7.2657e+04_jprb,6.8355e+04_jprb/)
1937 kbo( :,39,16) = (/&
1938 &8.9385e+04_jprb,8.3583e+04_jprb,7.8311e+04_jprb,7.3555e+04_jprb,6.9176e+04_jprb/)
1939 kbo( :,40,16) = (/&
1940 &9.1225e+04_jprb,8.5227e+04_jprb,7.9808e+04_jprb,7.4896e+04_jprb,7.0406e+04_jprb/)
1941 kbo( :,41,16) = (/&
1942 &9.3145e+04_jprb,8.6959e+04_jprb,8.1376e+04_jprb,7.6283e+04_jprb,7.1693e+04_jprb/)
1943 kbo( :,42,16) = (/&
1944 &9.5061e+04_jprb,8.8707e+04_jprb,8.2949e+04_jprb,7.7691e+04_jprb,7.2983e+04_jprb/)
1945 kbo( :,43,16) = (/&
1946 &9.7401e+04_jprb,9.0828e+04_jprb,8.4849e+04_jprb,7.9428e+04_jprb,7.4539e+04_jprb/)
1947 kbo( :,44,16) = (/&
1948 &9.9953e+04_jprb,9.3134e+04_jprb,8.6932e+04_jprb,8.1331e+04_jprb,7.6228e+04_jprb/)
1949 kbo( :,45,16) = (/&
1950 &1.0257e+05_jprb,9.5499e+04_jprb,8.9091e+04_jprb,8.3270e+04_jprb,7.7968e+04_jprb/)
1951 kbo( :,46,16) = (/&
1952 &1.0547e+05_jprb,9.8084e+04_jprb,9.1440e+04_jprb,8.5379e+04_jprb,7.9900e+04_jprb/)
1953 kbo( :,47,16) = (/&
1954 &1.0883e+05_jprb,1.0107e+05_jprb,9.4133e+04_jprb,8.7821e+04_jprb,8.2113e+04_jprb/)
1955 kbo( :,48,16) = (/&
1956 &1.1238e+05_jprb,1.0415e+05_jprb,9.6911e+04_jprb,9.0357e+04_jprb,8.4400e+04_jprb/)
1957 kbo( :,49,16) = (/&
1958 &1.1611e+05_jprb,1.0741e+05_jprb,9.9813e+04_jprb,9.2980e+04_jprb,8.6767e+04_jprb/)
1959 kbo( :,50,16) = (/&
1960 &1.1983e+05_jprb,1.1062e+05_jprb,1.0263e+05_jprb,9.5525e+04_jprb,8.9084e+04_jprb/)
1961 kbo( :,51,16) = (/&
1962 &1.2356e+05_jprb,1.1388e+05_jprb,1.0545e+05_jprb,9.8084e+04_jprb,9.1415e+04_jprb/)
1963 kbo( :,52,16) = (/&
1964 &1.2745e+05_jprb,1.1733e+05_jprb,1.0841e+05_jprb,1.0073e+05_jprb,9.3803e+04_jprb/)
1965 kbo( :,53,16) = (/&
1966 &1.3156e+05_jprb,1.2095e+05_jprb,1.1156e+05_jprb,1.0347e+05_jprb,9.6284e+04_jprb/)
1967 kbo( :,54,16) = (/&
1968 &1.3554e+05_jprb,1.2438e+05_jprb,1.1460e+05_jprb,1.0608e+05_jprb,9.8639e+04_jprb/)
1969 kbo( :,55,16) = (/&
1970 &1.3951e+05_jprb,1.2782e+05_jprb,1.1764e+05_jprb,1.0869e+05_jprb,1.0096e+05_jprb/)
1971 kbo( :,56,16) = (/&
1972 &1.4367e+05_jprb,1.3142e+05_jprb,1.2080e+05_jprb,1.1144e+05_jprb,1.0335e+05_jprb/)
1973 kbo( :,57,16) = (/&
1974 &1.4808e+05_jprb,1.3519e+05_jprb,1.2406e+05_jprb,1.1429e+05_jprb,1.0582e+05_jprb/)
1975 kbo( :,58,16) = (/&
1976 &1.5260e+05_jprb,1.3891e+05_jprb,1.2727e+05_jprb,1.1713e+05_jprb,1.0827e+05_jprb/)
1977 kbo( :,59,16) = (/&
1978 &1.5447e+05_jprb,1.4046e+05_jprb,1.2861e+05_jprb,1.1836e+05_jprb,1.0930e+05_jprb/)
1979 
1980 ! The array SELFREFO contains the coefficient of the water vapor
1981 ! self-continuum (including the energy term). The first index
1982 ! refers to temperature in 7.2 degree increments. For instance,
1983 ! JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
1984 ! etc. The second index runs over the g-channel (1 to 16).
1985 
1986 selfrefo( :, 1) = (/&
1987 &4.67280e-03_jprb, 3.95219e-03_jprb, 3.34270e-03_jprb, 2.82721e-03_jprb, 2.39121e-03_jprb,&
1988 &2.02245e-03_jprb, 1.71056e-03_jprb, 1.44677e-03_jprb, 1.22365e-03_jprb, 1.03495e-03_jprb/)
1989 selfrefo( :, 2) = (/&
1990 &4.42573e-03_jprb, 3.73328e-03_jprb, 3.14917e-03_jprb, 2.65644e-03_jprb, 2.24081e-03_jprb,&
1991 &1.89021e-03_jprb, 1.59447e-03_jprb, 1.34500e-03_jprb, 1.13456e-03_jprb, 9.57044e-04_jprb/)
1992 selfrefo( :, 3) = (/&
1993 &3.96061e-03_jprb, 3.33783e-03_jprb, 2.81297e-03_jprb, 2.37065e-03_jprb, 1.99788e-03_jprb,&
1994 &1.68372e-03_jprb, 1.41897e-03_jprb, 1.19584e-03_jprb, 1.00780e-03_jprb, 8.49333e-04_jprb/)
1995 selfrefo( :, 4) = (/&
1996 &3.71838e-03_jprb, 3.10031e-03_jprb, 2.58497e-03_jprb, 2.15529e-03_jprb, 1.79704e-03_jprb,&
1997 &1.49833e-03_jprb, 1.24928e-03_jprb, 1.04162e-03_jprb, 8.68480e-04_jprb, 7.24120e-04_jprb/)
1998 selfrefo( :, 5) = (/&
1999 &3.55795e-03_jprb, 2.95385e-03_jprb, 2.45232e-03_jprb, 2.03594e-03_jprb, 1.69026e-03_jprb,&
2000 &1.40327e-03_jprb, 1.16501e-03_jprb, 9.67201e-04_jprb, 8.02981e-04_jprb, 6.66643e-04_jprb/)
2001 selfrefo( :, 6) = (/&
2002 &3.47573e-03_jprb, 2.88608e-03_jprb, 2.39646e-03_jprb, 1.98991e-03_jprb, 1.65232e-03_jprb,&
2003 &1.37201e-03_jprb, 1.13925e-03_jprb, 9.45979e-04_jprb, 7.85496e-04_jprb, 6.52238e-04_jprb/)
2004 selfrefo( :, 7) = (/&
2005 &3.44473e-03_jprb, 2.86220e-03_jprb, 2.37818e-03_jprb, 1.97601e-03_jprb, 1.64185e-03_jprb,&
2006 &1.36420e-03_jprb, 1.13350e-03_jprb, 9.41819e-04_jprb, 7.82550e-04_jprb, 6.50214e-04_jprb/)
2007 selfrefo( :, 8) = (/&
2008 &3.40166e-03_jprb, 2.82961e-03_jprb, 2.35376e-03_jprb, 1.95793e-03_jprb, 1.62867e-03_jprb,&
2009 &1.35478e-03_jprb, 1.12694e-03_jprb, 9.37427e-04_jprb, 7.79781e-04_jprb, 6.48646e-04_jprb/)
2010 selfrefo( :, 9) = (/&
2011 &3.39363e-03_jprb, 2.82276e-03_jprb, 2.34792e-03_jprb, 1.95296e-03_jprb, 1.62443e-03_jprb,&
2012 &1.35117e-03_jprb, 1.12388e-03_jprb, 9.34822e-04_jprb, 7.77568e-04_jprb, 6.46766e-04_jprb/)
2013 selfrefo( :,10) = (/&
2014 &3.37151e-03_jprb, 2.80633e-03_jprb, 2.33590e-03_jprb, 1.94432e-03_jprb, 1.61839e-03_jprb,&
2015 &1.34709e-03_jprb, 1.12128e-03_jprb, 9.33313e-04_jprb, 7.76859e-04_jprb, 6.46632e-04_jprb/)
2016 selfrefo( :,11) = (/&
2017 &3.37954e-03_jprb, 2.81192e-03_jprb, 2.33963e-03_jprb, 1.94666e-03_jprb, 1.61970e-03_jprb,&
2018 &1.34765e-03_jprb, 1.12130e-03_jprb, 9.32968e-04_jprb, 7.76266e-04_jprb, 6.45885e-04_jprb/)
2019 selfrefo( :,12) = (/&
2020 &3.39637e-03_jprb, 2.82275e-03_jprb, 2.34600e-03_jprb, 1.94978e-03_jprb, 1.62048e-03_jprb,&
2021 &1.34679e-03_jprb, 1.11933e-03_jprb, 9.30281e-04_jprb, 7.73163e-04_jprb, 6.42581e-04_jprb/)
2022 selfrefo( :,13) = (/&
2023 &3.35979e-03_jprb, 2.79857e-03_jprb, 2.33109e-03_jprb, 1.94170e-03_jprb, 1.61736e-03_jprb,&
2024 &1.34719e-03_jprb, 1.12216e-03_jprb, 9.34712e-04_jprb, 7.78576e-04_jprb, 6.48522e-04_jprb/)
2025 selfrefo( :,14) = (/&
2026 &3.40473e-03_jprb, 2.82009e-03_jprb, 2.33585e-03_jprb, 1.93475e-03_jprb, 1.60253e-03_jprb,&
2027 &1.32736e-03_jprb, 1.09943e-03_jprb, 9.10645e-04_jprb, 7.54276e-04_jprb, 6.24757e-04_jprb/)
2028 selfrefo( :,15) = (/&
2029 &3.27200e-03_jprb, 2.70869e-03_jprb, 2.24237e-03_jprb, 1.85633e-03_jprb, 1.53675e-03_jprb,&
2030 &1.27218e-03_jprb, 1.05317e-03_jprb, 8.71854e-04_jprb, 7.21757e-04_jprb, 5.97501e-04_jprb/)
2031 selfrefo( :,16) = (/&
2032 &3.22979e-03_jprb, 2.67796e-03_jprb, 2.22041e-03_jprb, 1.84104e-03_jprb, 1.52648e-03_jprb,&
2033 &1.26567e-03_jprb, 1.04942e-03_jprb, 8.70124e-04_jprb, 7.21457e-04_jprb, 5.98191e-04_jprb/)
2034 
2035 ! -----------------------------------------------------------------
2036 RETURN
2037 END SUBROUTINE rrtm_kgb14
yoerrto14::selfrefo
real(kind=jprb), dimension(10, no14) selfrefo
Definition: yoerrto14.F90:21
yoerrto14::fracrefbo
real(kind=jprb), dimension(no14) fracrefbo
Definition: yoerrto14.F90:17
yoerrto14::kbo
real(kind=jprb), dimension(5, 13:59, no14) kbo
Definition: yoerrto14.F90:20
yoerrto14::kao
real(kind=jprb), dimension(5, 13, no14) kao
Definition: yoerrto14.F90:19
yoerrto14::fracrefao
real(kind=jprb), dimension(no14) fracrefao
Definition: yoerrto14.F90:16
rrtm_kgb14
subroutine rrtm_kgb14
Definition: rrtm_kgb14.F90:7