Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

rrtm_kgb1_02.F90 @ 5360

Last change on this file since 5360 was 2089, checked in by Laurent Fairhead, 10 years ago

Inclusion de la physique de MAR

Integration of MAR physics

File size: 77.0 KB

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

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format