source: LMDZ5/branches/IPSLCM5A2.1_ISO/libf/phylmd/rrtm/srtm_kgb20.F90 @ 5407

Last change on this file since 5407 was 1990, checked in by Laurent Fairhead, 11 years ago

Corrections à la version r1989 pour permettre la compilation avec RRTM
Inclusion de la licence CeCILL_V2 pour RRTM


Changes to revision r1989 to enable RRTM code compilation
RRTM part put under CeCILL_V2 licence

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 114.1 KB
Line 
1!OCL SCALAR
2#ifdef RS6K
3@PROCESS NOOPTIMIZE
4#endif
5SUBROUTINE SRTM_KGB20
6
7!     Originally by J.Delamere, Atmospheric & Environmental Research.
8!     Revision: 2.4
9!     BAND 20:  5150-6150 cm-1 (low - H2O; high - H2O)
10!     Reformatted for F90 by JJMorcrette, ECMWF
11
12!     ------------------------------------------------------------------
13
14USE PARKIND1  ,ONLY : JPRB
15USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
16
17USE YOESRTA20, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYL, ABSCH4 &
18 & , LAYREFFR 
19
20!     ------------------------------------------------------------------
21
22IMPLICIT NONE
23
24! KURUCZ
25REAL(KIND=JPRB) :: ZHOOK_HANDLE
26IF (LHOOK) CALL DR_HOOK('SRTM_KGB20',0,ZHOOK_HANDLE)
27SFLUXREF = (/ &
28 & 9.34081_JPRB , 8.93720_JPRB    , 8.19346_JPRB    , 7.39196_JPRB    , &
29 & 6.12127_JPRB , 5.23956_JPRB    , 4.24941_JPRB    , 3.20013_JPRB    , &
30 & 2.16047_JPRB , 0.234509_JPRB   , 0.194593_JPRB   , 0.151512_JPRB   , &
31 & 0.110315_JPRB, 7.09959E-02_JPRB, 2.70573E-02_JPRB, 3.36042E-03_JPRB /) 
32 
33ABSCH4 = (/   &
34 & 1.01381E-03_JPRB,6.33692E-03_JPRB,1.94185E-02_JPRB,4.83210E-02_JPRB, &
35 & 2.36574E-03_JPRB,6.61973E-04_JPRB,5.64552E-04_JPRB,2.83183E-04_JPRB, &
36 & 7.43623E-05_JPRB,8.90159E-07_JPRB,6.98728E-07_JPRB,6.51832E-08_JPRB, &
37 & 2.96619E-08_JPRB,         0._JPRB,         0._JPRB,         0._JPRB /) 
38
39!     Rayleigh extinction coefficient at v = 5670 cm-1.
40RAYL = 4.12E-09_JPRB
41
42LAYREFFR = 3
43
44!     ------------------------------------------------------------------
45
46!     The array KA contains absorption coefs at the 16 chosen g-values
47!     for a range of pressure levels> ~100mb, temperatures, and binary
48!     species parameters (see taumol.f for definition).  The first
49!     index in the array, JS, runs from 1 to 9, and corresponds to
50!     different values of the binary species parameter.  For instance,
51!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8,
52!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
53!     in the array, JT, which runs from 1 to 5, corresponds to different
54!     temperatures.  More specifically, JT = 3 means that the data are for
55!     the reference temperature TREF for this  pressure level, JT = 2 refers
56!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
57!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
58!     to the JPth reference pressure level (see taumol.f for these levels
59!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
60!     which g-interval the absorption coefficients are for.
61!     -----------------------------------------------------------------
62
63KA(:, 1, 1) = (/ &
64 & 0.78383E-06_JPRB,0.86220E-06_JPRB,0.95359E-06_JPRB,0.10590E-05_JPRB,0.11782E-05_JPRB /) 
65KA(:, 2, 1) = (/ &
66 & 0.65040E-06_JPRB,0.72510E-06_JPRB,0.81318E-06_JPRB,0.90059E-06_JPRB,0.99786E-06_JPRB /) 
67KA(:, 3, 1) = (/ &
68 & 0.58072E-06_JPRB,0.65888E-06_JPRB,0.74265E-06_JPRB,0.81854E-06_JPRB,0.90645E-06_JPRB /) 
69KA(:, 4, 1) = (/ &
70 & 0.53601E-06_JPRB,0.60765E-06_JPRB,0.68088E-06_JPRB,0.75741E-06_JPRB,0.83801E-06_JPRB /) 
71KA(:, 5, 1) = (/ &
72 & 0.50142E-06_JPRB,0.56951E-06_JPRB,0.64028E-06_JPRB,0.71944E-06_JPRB,0.79813E-06_JPRB /) 
73KA(:, 6, 1) = (/ &
74 & 0.47164E-06_JPRB,0.54008E-06_JPRB,0.61040E-06_JPRB,0.68006E-06_JPRB,0.75034E-06_JPRB /) 
75KA(:, 7, 1) = (/ &
76 & 0.49337E-06_JPRB,0.56178E-06_JPRB,0.62215E-06_JPRB,0.69127E-06_JPRB,0.76060E-06_JPRB /) 
77KA(:, 8, 1) = (/ &
78 & 0.61581E-06_JPRB,0.70117E-06_JPRB,0.78942E-06_JPRB,0.87145E-06_JPRB,0.94647E-06_JPRB /) 
79KA(:, 9, 1) = (/ &
80 & 0.14154E-05_JPRB,0.15754E-05_JPRB,0.17261E-05_JPRB,0.18739E-05_JPRB,0.19774E-05_JPRB /) 
81KA(:,10, 1) = (/ &
82 & 0.34186E-05_JPRB,0.37012E-05_JPRB,0.39602E-05_JPRB,0.42235E-05_JPRB,0.44256E-05_JPRB /) 
83KA(:,11, 1) = (/ &
84 & 0.38574E-05_JPRB,0.42080E-05_JPRB,0.44701E-05_JPRB,0.47454E-05_JPRB,0.50002E-05_JPRB /) 
85KA(:,12, 1) = (/ &
86 & 0.35794E-05_JPRB,0.38686E-05_JPRB,0.41443E-05_JPRB,0.43939E-05_JPRB,0.46500E-05_JPRB /) 
87KA(:,13, 1) = (/ &
88 & 0.29586E-05_JPRB,0.31938E-05_JPRB,0.34167E-05_JPRB,0.36253E-05_JPRB,0.38250E-05_JPRB /) 
89KA(:, 1, 2) = (/ &
90 & 0.57098E-05_JPRB,0.64630E-05_JPRB,0.73117E-05_JPRB,0.82436E-05_JPRB,0.91947E-05_JPRB /) 
91KA(:, 2, 2) = (/ &
92 & 0.46384E-05_JPRB,0.53125E-05_JPRB,0.60301E-05_JPRB,0.68028E-05_JPRB,0.75824E-05_JPRB /) 
93KA(:, 3, 2) = (/ &
94 & 0.40657E-05_JPRB,0.46486E-05_JPRB,0.52459E-05_JPRB,0.58955E-05_JPRB,0.65546E-05_JPRB /) 
95KA(:, 4, 2) = (/ &
96 & 0.38895E-05_JPRB,0.44258E-05_JPRB,0.49759E-05_JPRB,0.55663E-05_JPRB,0.61702E-05_JPRB /) 
97KA(:, 5, 2) = (/ &
98 & 0.38971E-05_JPRB,0.44359E-05_JPRB,0.49933E-05_JPRB,0.55523E-05_JPRB,0.61234E-05_JPRB /) 
99KA(:, 6, 2) = (/ &
100 & 0.39532E-05_JPRB,0.44644E-05_JPRB,0.49734E-05_JPRB,0.54875E-05_JPRB,0.60102E-05_JPRB /) 
101KA(:, 7, 2) = (/ &
102 & 0.41068E-05_JPRB,0.45832E-05_JPRB,0.50698E-05_JPRB,0.55521E-05_JPRB,0.60175E-05_JPRB /) 
103KA(:, 8, 2) = (/ &
104 & 0.47922E-05_JPRB,0.52156E-05_JPRB,0.56817E-05_JPRB,0.61576E-05_JPRB,0.66313E-05_JPRB /) 
105KA(:, 9, 2) = (/ &
106 & 0.83199E-05_JPRB,0.88317E-05_JPRB,0.93688E-05_JPRB,0.99754E-05_JPRB,0.10620E-04_JPRB /) 
107KA(:,10, 2) = (/ &
108 & 0.16836E-04_JPRB,0.18526E-04_JPRB,0.19887E-04_JPRB,0.21168E-04_JPRB,0.22104E-04_JPRB /) 
109KA(:,11, 2) = (/ &
110 & 0.18882E-04_JPRB,0.21005E-04_JPRB,0.22896E-04_JPRB,0.24777E-04_JPRB,0.26115E-04_JPRB /) 
111KA(:,12, 2) = (/ &
112 & 0.17744E-04_JPRB,0.19780E-04_JPRB,0.21600E-04_JPRB,0.23523E-04_JPRB,0.25128E-04_JPRB /) 
113KA(:,13, 2) = (/ &
114 & 0.14736E-04_JPRB,0.16356E-04_JPRB,0.17955E-04_JPRB,0.19533E-04_JPRB,0.20861E-04_JPRB /) 
115KA(:, 1, 3) = (/ &
116 & 0.41776E-04_JPRB,0.48150E-04_JPRB,0.55097E-04_JPRB,0.62661E-04_JPRB,0.70920E-04_JPRB /) 
117KA(:, 2, 3) = (/ &
118 & 0.33909E-04_JPRB,0.39176E-04_JPRB,0.44622E-04_JPRB,0.50754E-04_JPRB,0.57336E-04_JPRB /) 
119KA(:, 3, 3) = (/ &
120 & 0.27438E-04_JPRB,0.31473E-04_JPRB,0.36122E-04_JPRB,0.41134E-04_JPRB,0.46456E-04_JPRB /) 
121KA(:, 4, 3) = (/ &
122 & 0.23222E-04_JPRB,0.26535E-04_JPRB,0.30141E-04_JPRB,0.34099E-04_JPRB,0.38416E-04_JPRB /) 
123KA(:, 5, 3) = (/ &
124 & 0.21114E-04_JPRB,0.23888E-04_JPRB,0.26883E-04_JPRB,0.30340E-04_JPRB,0.33785E-04_JPRB /) 
125KA(:, 6, 3) = (/ &
126 & 0.20750E-04_JPRB,0.22926E-04_JPRB,0.25536E-04_JPRB,0.28492E-04_JPRB,0.31676E-04_JPRB /) 
127KA(:, 7, 3) = (/ &
128 & 0.21584E-04_JPRB,0.24112E-04_JPRB,0.26872E-04_JPRB,0.29794E-04_JPRB,0.32940E-04_JPRB /) 
129KA(:, 8, 3) = (/ &
130 & 0.24194E-04_JPRB,0.26981E-04_JPRB,0.30137E-04_JPRB,0.33546E-04_JPRB,0.37182E-04_JPRB /) 
131KA(:, 9, 3) = (/ &
132 & 0.37461E-04_JPRB,0.42158E-04_JPRB,0.46718E-04_JPRB,0.51048E-04_JPRB,0.55154E-04_JPRB /) 
133KA(:,10, 3) = (/ &
134 & 0.72391E-04_JPRB,0.77164E-04_JPRB,0.84016E-04_JPRB,0.89658E-04_JPRB,0.95511E-04_JPRB /) 
135KA(:,11, 3) = (/ &
136 & 0.91736E-04_JPRB,0.99107E-04_JPRB,0.10463E-03_JPRB,0.10952E-03_JPRB,0.11549E-03_JPRB /) 
137KA(:,12, 3) = (/ &
138 & 0.91200E-04_JPRB,0.98812E-04_JPRB,0.10432E-03_JPRB,0.10893E-03_JPRB,0.11349E-03_JPRB /) 
139KA(:,13, 3) = (/ &
140 & 0.76217E-04_JPRB,0.82702E-04_JPRB,0.87500E-04_JPRB,0.91349E-04_JPRB,0.95349E-04_JPRB /) 
141KA(:, 1, 4) = (/ &
142 & 0.71705E-03_JPRB,0.82743E-03_JPRB,0.94700E-03_JPRB,0.10670E-02_JPRB,0.11902E-02_JPRB /) 
143KA(:, 2, 4) = (/ &
144 & 0.57909E-03_JPRB,0.67096E-03_JPRB,0.76724E-03_JPRB,0.86582E-03_JPRB,0.97167E-03_JPRB /) 
145KA(:, 3, 4) = (/ &
146 & 0.44771E-03_JPRB,0.51997E-03_JPRB,0.59861E-03_JPRB,0.67967E-03_JPRB,0.76676E-03_JPRB /) 
147KA(:, 4, 4) = (/ &
148 & 0.34085E-03_JPRB,0.39833E-03_JPRB,0.46226E-03_JPRB,0.52889E-03_JPRB,0.60008E-03_JPRB /) 
149KA(:, 5, 4) = (/ &
150 & 0.26678E-03_JPRB,0.31234E-03_JPRB,0.36341E-03_JPRB,0.41663E-03_JPRB,0.47418E-03_JPRB /) 
151KA(:, 6, 4) = (/ &
152 & 0.20903E-03_JPRB,0.24718E-03_JPRB,0.28922E-03_JPRB,0.33353E-03_JPRB,0.38176E-03_JPRB /) 
153KA(:, 7, 4) = (/ &
154 & 0.17173E-03_JPRB,0.20330E-03_JPRB,0.23711E-03_JPRB,0.27401E-03_JPRB,0.31445E-03_JPRB /) 
155KA(:, 8, 4) = (/ &
156 & 0.16722E-03_JPRB,0.19396E-03_JPRB,0.22307E-03_JPRB,0.25347E-03_JPRB,0.28561E-03_JPRB /) 
157KA(:, 9, 4) = (/ &
158 & 0.25043E-03_JPRB,0.28824E-03_JPRB,0.32547E-03_JPRB,0.36193E-03_JPRB,0.39806E-03_JPRB /) 
159KA(:,10, 4) = (/ &
160 & 0.43323E-03_JPRB,0.48667E-03_JPRB,0.53462E-03_JPRB,0.57879E-03_JPRB,0.62040E-03_JPRB /) 
161KA(:,11, 4) = (/ &
162 & 0.47719E-03_JPRB,0.52271E-03_JPRB,0.56402E-03_JPRB,0.60388E-03_JPRB,0.63520E-03_JPRB /) 
163KA(:,12, 4) = (/ &
164 & 0.45061E-03_JPRB,0.49014E-03_JPRB,0.52391E-03_JPRB,0.55276E-03_JPRB,0.57760E-03_JPRB /) 
165KA(:,13, 4) = (/ &
166 & 0.37664E-03_JPRB,0.40952E-03_JPRB,0.43690E-03_JPRB,0.46055E-03_JPRB,0.48018E-03_JPRB /) 
167KA(:, 1, 5) = (/ &
168 & 0.66466E-02_JPRB,0.68686E-02_JPRB,0.70897E-02_JPRB,0.73019E-02_JPRB,0.74914E-02_JPRB /) 
169KA(:, 2, 5) = (/ &
170 & 0.54023E-02_JPRB,0.56010E-02_JPRB,0.58008E-02_JPRB,0.59987E-02_JPRB,0.61685E-02_JPRB /) 
171KA(:, 3, 5) = (/ &
172 & 0.43218E-02_JPRB,0.45127E-02_JPRB,0.46848E-02_JPRB,0.48647E-02_JPRB,0.50267E-02_JPRB /) 
173KA(:, 4, 5) = (/ &
174 & 0.34639E-02_JPRB,0.36473E-02_JPRB,0.37951E-02_JPRB,0.39570E-02_JPRB,0.41049E-02_JPRB /) 
175KA(:, 5, 5) = (/ &
176 & 0.27745E-02_JPRB,0.29370E-02_JPRB,0.30754E-02_JPRB,0.32148E-02_JPRB,0.33492E-02_JPRB /) 
177KA(:, 6, 5) = (/ &
178 & 0.22020E-02_JPRB,0.23520E-02_JPRB,0.24836E-02_JPRB,0.25965E-02_JPRB,0.27119E-02_JPRB /) 
179KA(:, 7, 5) = (/ &
180 & 0.17624E-02_JPRB,0.18963E-02_JPRB,0.20161E-02_JPRB,0.21153E-02_JPRB,0.22116E-02_JPRB /) 
181KA(:, 8, 5) = (/ &
182 & 0.14169E-02_JPRB,0.15332E-02_JPRB,0.16350E-02_JPRB,0.17231E-02_JPRB,0.18121E-02_JPRB /) 
183KA(:, 9, 5) = (/ &
184 & 0.13030E-02_JPRB,0.13904E-02_JPRB,0.14690E-02_JPRB,0.15500E-02_JPRB,0.16275E-02_JPRB /) 
185KA(:,10, 5) = (/ &
186 & 0.17155E-02_JPRB,0.18169E-02_JPRB,0.18943E-02_JPRB,0.19620E-02_JPRB,0.20215E-02_JPRB /) 
187KA(:,11, 5) = (/ &
188 & 0.17156E-02_JPRB,0.17808E-02_JPRB,0.18419E-02_JPRB,0.18925E-02_JPRB,0.19313E-02_JPRB /) 
189KA(:,12, 5) = (/ &
190 & 0.15269E-02_JPRB,0.15811E-02_JPRB,0.16283E-02_JPRB,0.16686E-02_JPRB,0.17061E-02_JPRB /) 
191KA(:,13, 5) = (/ &
192 & 0.12768E-02_JPRB,0.13207E-02_JPRB,0.13555E-02_JPRB,0.13924E-02_JPRB,0.14234E-02_JPRB /) 
193KA(:, 1, 6) = (/ &
194 & 0.19191E-01_JPRB,0.19463E-01_JPRB,0.19692E-01_JPRB,0.19900E-01_JPRB,0.20112E-01_JPRB /) 
195KA(:, 2, 6) = (/ &
196 & 0.15967E-01_JPRB,0.16219E-01_JPRB,0.16426E-01_JPRB,0.16613E-01_JPRB,0.16805E-01_JPRB /) 
197KA(:, 3, 6) = (/ &
198 & 0.13186E-01_JPRB,0.13411E-01_JPRB,0.13614E-01_JPRB,0.13785E-01_JPRB,0.13944E-01_JPRB /) 
199KA(:, 4, 6) = (/ &
200 & 0.10935E-01_JPRB,0.11131E-01_JPRB,0.11318E-01_JPRB,0.11475E-01_JPRB,0.11620E-01_JPRB /) 
201KA(:, 5, 6) = (/ &
202 & 0.90541E-02_JPRB,0.92344E-02_JPRB,0.94035E-02_JPRB,0.95537E-02_JPRB,0.96862E-02_JPRB /) 
203KA(:, 6, 6) = (/ &
204 & 0.74724E-02_JPRB,0.76320E-02_JPRB,0.77794E-02_JPRB,0.79294E-02_JPRB,0.80528E-02_JPRB /) 
205KA(:, 7, 6) = (/ &
206 & 0.61183E-02_JPRB,0.62644E-02_JPRB,0.63961E-02_JPRB,0.65303E-02_JPRB,0.66478E-02_JPRB /) 
207KA(:, 8, 6) = (/ &
208 & 0.50638E-02_JPRB,0.51984E-02_JPRB,0.53222E-02_JPRB,0.54412E-02_JPRB,0.55465E-02_JPRB /) 
209KA(:, 9, 6) = (/ &
210 & 0.42870E-02_JPRB,0.44009E-02_JPRB,0.45109E-02_JPRB,0.45976E-02_JPRB,0.46796E-02_JPRB /) 
211KA(:,10, 6) = (/ &
212 & 0.45239E-02_JPRB,0.46073E-02_JPRB,0.46968E-02_JPRB,0.47979E-02_JPRB,0.48956E-02_JPRB /) 
213KA(:,11, 6) = (/ &
214 & 0.44089E-02_JPRB,0.45006E-02_JPRB,0.45881E-02_JPRB,0.46721E-02_JPRB,0.48015E-02_JPRB /) 
215KA(:,12, 6) = (/ &
216 & 0.39598E-02_JPRB,0.40290E-02_JPRB,0.41108E-02_JPRB,0.41899E-02_JPRB,0.42672E-02_JPRB /) 
217KA(:,13, 6) = (/ &
218 & 0.33425E-02_JPRB,0.34148E-02_JPRB,0.34808E-02_JPRB,0.35405E-02_JPRB,0.35983E-02_JPRB /) 
219KA(:, 1, 7) = (/ &
220 & 0.50165E-01_JPRB,0.50343E-01_JPRB,0.50452E-01_JPRB,0.50424E-01_JPRB,0.50329E-01_JPRB /) 
221KA(:, 2, 7) = (/ &
222 & 0.42723E-01_JPRB,0.42880E-01_JPRB,0.42939E-01_JPRB,0.42910E-01_JPRB,0.42861E-01_JPRB /) 
223KA(:, 3, 7) = (/ &
224 & 0.36117E-01_JPRB,0.36255E-01_JPRB,0.36301E-01_JPRB,0.36294E-01_JPRB,0.36288E-01_JPRB /) 
225KA(:, 4, 7) = (/ &
226 & 0.30585E-01_JPRB,0.30720E-01_JPRB,0.30787E-01_JPRB,0.30816E-01_JPRB,0.30842E-01_JPRB /) 
227KA(:, 5, 7) = (/ &
228 & 0.25879E-01_JPRB,0.26029E-01_JPRB,0.26116E-01_JPRB,0.26179E-01_JPRB,0.26225E-01_JPRB /) 
229KA(:, 6, 7) = (/ &
230 & 0.21822E-01_JPRB,0.21978E-01_JPRB,0.22094E-01_JPRB,0.22178E-01_JPRB,0.22244E-01_JPRB /) 
231KA(:, 7, 7) = (/ &
232 & 0.18304E-01_JPRB,0.18476E-01_JPRB,0.18606E-01_JPRB,0.18705E-01_JPRB,0.18780E-01_JPRB /) 
233KA(:, 8, 7) = (/ &
234 & 0.15224E-01_JPRB,0.15394E-01_JPRB,0.15519E-01_JPRB,0.15619E-01_JPRB,0.15690E-01_JPRB /) 
235KA(:, 9, 7) = (/ &
236 & 0.12835E-01_JPRB,0.13029E-01_JPRB,0.13169E-01_JPRB,0.13281E-01_JPRB,0.13369E-01_JPRB /) 
237KA(:,10, 7) = (/ &
238 & 0.11632E-01_JPRB,0.11714E-01_JPRB,0.11760E-01_JPRB,0.11776E-01_JPRB,0.11806E-01_JPRB /) 
239KA(:,11, 7) = (/ &
240 & 0.11170E-01_JPRB,0.11252E-01_JPRB,0.11288E-01_JPRB,0.11357E-01_JPRB,0.11397E-01_JPRB /) 
241KA(:,12, 7) = (/ &
242 & 0.10404E-01_JPRB,0.10533E-01_JPRB,0.10705E-01_JPRB,0.10833E-01_JPRB,0.10947E-01_JPRB /) 
243KA(:,13, 7) = (/ &
244 & 0.91041E-02_JPRB,0.92674E-02_JPRB,0.94068E-02_JPRB,0.95412E-02_JPRB,0.96769E-02_JPRB /) 
245KA(:, 1, 8) = (/ &
246 & 0.14527E+00_JPRB,0.14483E+00_JPRB,0.14432E+00_JPRB,0.14389E+00_JPRB,0.14349E+00_JPRB /) 
247KA(:, 2, 8) = (/ &
248 & 0.12739E+00_JPRB,0.12702E+00_JPRB,0.12661E+00_JPRB,0.12624E+00_JPRB,0.12584E+00_JPRB /) 
249KA(:, 3, 8) = (/ &
250 & 0.11091E+00_JPRB,0.11058E+00_JPRB,0.11024E+00_JPRB,0.10990E+00_JPRB,0.10953E+00_JPRB /) 
251KA(:, 4, 8) = (/ &
252 & 0.96590E-01_JPRB,0.96335E-01_JPRB,0.96105E-01_JPRB,0.95818E-01_JPRB,0.95530E-01_JPRB /) 
253KA(:, 5, 8) = (/ &
254 & 0.83799E-01_JPRB,0.83708E-01_JPRB,0.83572E-01_JPRB,0.83347E-01_JPRB,0.83126E-01_JPRB /) 
255KA(:, 6, 8) = (/ &
256 & 0.72369E-01_JPRB,0.72388E-01_JPRB,0.72289E-01_JPRB,0.72143E-01_JPRB,0.71981E-01_JPRB /) 
257KA(:, 7, 8) = (/ &
258 & 0.62158E-01_JPRB,0.62247E-01_JPRB,0.62185E-01_JPRB,0.62111E-01_JPRB,0.62007E-01_JPRB /) 
259KA(:, 8, 8) = (/ &
260 & 0.52998E-01_JPRB,0.53142E-01_JPRB,0.53162E-01_JPRB,0.53154E-01_JPRB,0.53101E-01_JPRB /) 
261KA(:, 9, 8) = (/ &
262 & 0.44776E-01_JPRB,0.44873E-01_JPRB,0.44920E-01_JPRB,0.44946E-01_JPRB,0.44885E-01_JPRB /) 
263KA(:,10, 8) = (/ &
264 & 0.38237E-01_JPRB,0.38514E-01_JPRB,0.38716E-01_JPRB,0.38877E-01_JPRB,0.38966E-01_JPRB /) 
265KA(:,11, 8) = (/ &
266 & 0.33511E-01_JPRB,0.33721E-01_JPRB,0.33843E-01_JPRB,0.33840E-01_JPRB,0.33839E-01_JPRB /) 
267KA(:,12, 8) = (/ &
268 & 0.29704E-01_JPRB,0.29825E-01_JPRB,0.29808E-01_JPRB,0.29787E-01_JPRB,0.29794E-01_JPRB /) 
269KA(:,13, 8) = (/ &
270 & 0.25973E-01_JPRB,0.26004E-01_JPRB,0.26032E-01_JPRB,0.26023E-01_JPRB,0.26107E-01_JPRB /) 
271KA(:, 1, 9) = (/ &
272 & 0.56699E+00_JPRB,0.56615E+00_JPRB,0.56479E+00_JPRB,0.56318E+00_JPRB,0.56135E+00_JPRB /) 
273KA(:, 2, 9) = (/ &
274 & 0.53130E+00_JPRB,0.53096E+00_JPRB,0.53038E+00_JPRB,0.52953E+00_JPRB,0.52828E+00_JPRB /) 
275KA(:, 3, 9) = (/ &
276 & 0.48947E+00_JPRB,0.48989E+00_JPRB,0.48991E+00_JPRB,0.48970E+00_JPRB,0.48916E+00_JPRB /) 
277KA(:, 4, 9) = (/ &
278 & 0.44646E+00_JPRB,0.44756E+00_JPRB,0.44841E+00_JPRB,0.44893E+00_JPRB,0.44859E+00_JPRB /) 
279KA(:, 5, 9) = (/ &
280 & 0.40428E+00_JPRB,0.40594E+00_JPRB,0.40746E+00_JPRB,0.40811E+00_JPRB,0.40825E+00_JPRB /) 
281KA(:, 6, 9) = (/ &
282 & 0.36305E+00_JPRB,0.36545E+00_JPRB,0.36730E+00_JPRB,0.36814E+00_JPRB,0.36854E+00_JPRB /) 
283KA(:, 7, 9) = (/ &
284 & 0.32383E+00_JPRB,0.32659E+00_JPRB,0.32849E+00_JPRB,0.32954E+00_JPRB,0.33028E+00_JPRB /) 
285KA(:, 8, 9) = (/ &
286 & 0.28691E+00_JPRB,0.28966E+00_JPRB,0.29156E+00_JPRB,0.29286E+00_JPRB,0.29379E+00_JPRB /) 
287KA(:, 9, 9) = (/ &
288 & 0.25109E+00_JPRB,0.25404E+00_JPRB,0.25607E+00_JPRB,0.25752E+00_JPRB,0.25870E+00_JPRB /) 
289KA(:,10, 9) = (/ &
290 & 0.21600E+00_JPRB,0.21860E+00_JPRB,0.22047E+00_JPRB,0.22164E+00_JPRB,0.22251E+00_JPRB /) 
291KA(:,11, 9) = (/ &
292 & 0.19149E+00_JPRB,0.19387E+00_JPRB,0.19567E+00_JPRB,0.19725E+00_JPRB,0.19809E+00_JPRB /) 
293KA(:,12, 9) = (/ &
294 & 0.16914E+00_JPRB,0.17134E+00_JPRB,0.17303E+00_JPRB,0.17407E+00_JPRB,0.17494E+00_JPRB /) 
295KA(:,13, 9) = (/ &
296 & 0.14841E+00_JPRB,0.15027E+00_JPRB,0.15244E+00_JPRB,0.15403E+00_JPRB,0.15523E+00_JPRB /) 
297KA(:, 1,10) = (/ &
298 & 0.14885E+01_JPRB,0.14756E+01_JPRB,0.14663E+01_JPRB,0.14567E+01_JPRB,0.14479E+01_JPRB /) 
299KA(:, 2,10) = (/ &
300 & 0.14911E+01_JPRB,0.14850E+01_JPRB,0.14762E+01_JPRB,0.14677E+01_JPRB,0.14597E+01_JPRB /) 
301KA(:, 3,10) = (/ &
302 & 0.14749E+01_JPRB,0.14716E+01_JPRB,0.14663E+01_JPRB,0.14579E+01_JPRB,0.14502E+01_JPRB /) 
303KA(:, 4,10) = (/ &
304 & 0.14314E+01_JPRB,0.14303E+01_JPRB,0.14232E+01_JPRB,0.14150E+01_JPRB,0.14115E+01_JPRB /) 
305KA(:, 5,10) = (/ &
306 & 0.13616E+01_JPRB,0.13604E+01_JPRB,0.13539E+01_JPRB,0.13506E+01_JPRB,0.13501E+01_JPRB /) 
307KA(:, 6,10) = (/ &
308 & 0.12710E+01_JPRB,0.12700E+01_JPRB,0.12670E+01_JPRB,0.12702E+01_JPRB,0.12745E+01_JPRB /) 
309KA(:, 7,10) = (/ &
310 & 0.11674E+01_JPRB,0.11690E+01_JPRB,0.11727E+01_JPRB,0.11812E+01_JPRB,0.11854E+01_JPRB /) 
311KA(:, 8,10) = (/ &
312 & 0.10584E+01_JPRB,0.10652E+01_JPRB,0.10757E+01_JPRB,0.10857E+01_JPRB,0.10906E+01_JPRB /) 
313KA(:, 9,10) = (/ &
314 & 0.95450E+00_JPRB,0.96414E+00_JPRB,0.97673E+00_JPRB,0.98621E+00_JPRB,0.99187E+00_JPRB /) 
315KA(:,10,10) = (/ &
316 & 0.83626E+00_JPRB,0.84690E+00_JPRB,0.85901E+00_JPRB,0.86824E+00_JPRB,0.87535E+00_JPRB /) 
317KA(:,11,10) = (/ &
318 & 0.73738E+00_JPRB,0.74729E+00_JPRB,0.75610E+00_JPRB,0.75994E+00_JPRB,0.76481E+00_JPRB /) 
319KA(:,12,10) = (/ &
320 & 0.66891E+00_JPRB,0.67622E+00_JPRB,0.68092E+00_JPRB,0.68498E+00_JPRB,0.68877E+00_JPRB /) 
321KA(:,13,10) = (/ &
322 & 0.58616E+00_JPRB,0.59614E+00_JPRB,0.59749E+00_JPRB,0.60310E+00_JPRB,0.60445E+00_JPRB /) 
323KA(:, 1,11) = (/ &
324 & 0.20080E+01_JPRB,0.19998E+01_JPRB,0.19844E+01_JPRB,0.19679E+01_JPRB,0.19504E+01_JPRB /) 
325KA(:, 2,11) = (/ &
326 & 0.20896E+01_JPRB,0.20752E+01_JPRB,0.20596E+01_JPRB,0.20445E+01_JPRB,0.20293E+01_JPRB /) 
327KA(:, 3,11) = (/ &
328 & 0.21262E+01_JPRB,0.21143E+01_JPRB,0.21043E+01_JPRB,0.20968E+01_JPRB,0.20862E+01_JPRB /) 
329KA(:, 4,11) = (/ &
330 & 0.21310E+01_JPRB,0.21263E+01_JPRB,0.21243E+01_JPRB,0.21203E+01_JPRB,0.21144E+01_JPRB /) 
331KA(:, 5,11) = (/ &
332 & 0.21041E+01_JPRB,0.21063E+01_JPRB,0.21071E+01_JPRB,0.21077E+01_JPRB,0.21021E+01_JPRB /) 
333KA(:, 6,11) = (/ &
334 & 0.20447E+01_JPRB,0.20491E+01_JPRB,0.20534E+01_JPRB,0.20532E+01_JPRB,0.20477E+01_JPRB /) 
335KA(:, 7,11) = (/ &
336 & 0.19487E+01_JPRB,0.19563E+01_JPRB,0.19608E+01_JPRB,0.19593E+01_JPRB,0.19591E+01_JPRB /) 
337KA(:, 8,11) = (/ &
338 & 0.18239E+01_JPRB,0.18317E+01_JPRB,0.18359E+01_JPRB,0.18391E+01_JPRB,0.18451E+01_JPRB /) 
339KA(:, 9,11) = (/ &
340 & 0.16772E+01_JPRB,0.16879E+01_JPRB,0.16955E+01_JPRB,0.17047E+01_JPRB,0.17179E+01_JPRB /) 
341KA(:,10,11) = (/ &
342 & 0.15007E+01_JPRB,0.15184E+01_JPRB,0.15343E+01_JPRB,0.15540E+01_JPRB,0.15756E+01_JPRB /) 
343KA(:,11,11) = (/ &
344 & 0.13041E+01_JPRB,0.13245E+01_JPRB,0.13445E+01_JPRB,0.13685E+01_JPRB,0.13888E+01_JPRB /) 
345KA(:,12,11) = (/ &
346 & 0.11590E+01_JPRB,0.11749E+01_JPRB,0.11906E+01_JPRB,0.12046E+01_JPRB,0.12212E+01_JPRB /) 
347KA(:,13,11) = (/ &
348 & 0.10681E+01_JPRB,0.10905E+01_JPRB,0.11017E+01_JPRB,0.10997E+01_JPRB,0.11116E+01_JPRB /) 
349KA(:, 1,12) = (/ &
350 & 0.26762E+01_JPRB,0.26701E+01_JPRB,0.26710E+01_JPRB,0.26742E+01_JPRB,0.26733E+01_JPRB /) 
351KA(:, 2,12) = (/ &
352 & 0.28804E+01_JPRB,0.28775E+01_JPRB,0.28798E+01_JPRB,0.28773E+01_JPRB,0.28700E+01_JPRB /) 
353KA(:, 3,12) = (/ &
354 & 0.30825E+01_JPRB,0.30790E+01_JPRB,0.30757E+01_JPRB,0.30631E+01_JPRB,0.30471E+01_JPRB /) 
355KA(:, 4,12) = (/ &
356 & 0.32355E+01_JPRB,0.32278E+01_JPRB,0.32144E+01_JPRB,0.31959E+01_JPRB,0.31753E+01_JPRB /) 
357KA(:, 5,12) = (/ &
358 & 0.33271E+01_JPRB,0.33191E+01_JPRB,0.33073E+01_JPRB,0.32879E+01_JPRB,0.32714E+01_JPRB /) 
359KA(:, 6,12) = (/ &
360 & 0.33604E+01_JPRB,0.33571E+01_JPRB,0.33478E+01_JPRB,0.33355E+01_JPRB,0.33272E+01_JPRB /) 
361KA(:, 7,12) = (/ &
362 & 0.33406E+01_JPRB,0.33436E+01_JPRB,0.33436E+01_JPRB,0.33435E+01_JPRB,0.33409E+01_JPRB /) 
363KA(:, 8,12) = (/ &
364 & 0.32648E+01_JPRB,0.32808E+01_JPRB,0.32919E+01_JPRB,0.32976E+01_JPRB,0.32999E+01_JPRB /) 
365KA(:, 9,12) = (/ &
366 & 0.31373E+01_JPRB,0.31630E+01_JPRB,0.31816E+01_JPRB,0.31936E+01_JPRB,0.31991E+01_JPRB /) 
367KA(:,10,12) = (/ &
368 & 0.29678E+01_JPRB,0.29982E+01_JPRB,0.30244E+01_JPRB,0.30412E+01_JPRB,0.30500E+01_JPRB /) 
369KA(:,11,12) = (/ &
370 & 0.27380E+01_JPRB,0.27731E+01_JPRB,0.28013E+01_JPRB,0.28227E+01_JPRB,0.28455E+01_JPRB /) 
371KA(:,12,12) = (/ &
372 & 0.24616E+01_JPRB,0.24905E+01_JPRB,0.25348E+01_JPRB,0.25805E+01_JPRB,0.26155E+01_JPRB /) 
373KA(:,13,12) = (/ &
374 & 0.22251E+01_JPRB,0.22562E+01_JPRB,0.22966E+01_JPRB,0.23312E+01_JPRB,0.23811E+01_JPRB /) 
375KA(:, 1,13) = (/ &
376 & 0.38031E+01_JPRB,0.37992E+01_JPRB,0.37926E+01_JPRB,0.37822E+01_JPRB,0.37755E+01_JPRB /) 
377KA(:, 2,13) = (/ &
378 & 0.41542E+01_JPRB,0.41473E+01_JPRB,0.41391E+01_JPRB,0.41329E+01_JPRB,0.41296E+01_JPRB /) 
379KA(:, 3,13) = (/ &
380 & 0.44998E+01_JPRB,0.44963E+01_JPRB,0.44896E+01_JPRB,0.44914E+01_JPRB,0.44937E+01_JPRB /) 
381KA(:, 4,13) = (/ &
382 & 0.48464E+01_JPRB,0.48445E+01_JPRB,0.48485E+01_JPRB,0.48565E+01_JPRB,0.48598E+01_JPRB /) 
383KA(:, 5,13) = (/ &
384 & 0.52074E+01_JPRB,0.52112E+01_JPRB,0.52168E+01_JPRB,0.52231E+01_JPRB,0.52210E+01_JPRB /) 
385KA(:, 6,13) = (/ &
386 & 0.55492E+01_JPRB,0.55575E+01_JPRB,0.55655E+01_JPRB,0.55693E+01_JPRB,0.55642E+01_JPRB /) 
387KA(:, 7,13) = (/ &
388 & 0.58380E+01_JPRB,0.58479E+01_JPRB,0.58509E+01_JPRB,0.58482E+01_JPRB,0.58453E+01_JPRB /) 
389KA(:, 8,13) = (/ &
390 & 0.60377E+01_JPRB,0.60538E+01_JPRB,0.60594E+01_JPRB,0.60647E+01_JPRB,0.60640E+01_JPRB /) 
391KA(:, 9,13) = (/ &
392 & 0.61268E+01_JPRB,0.61532E+01_JPRB,0.61730E+01_JPRB,0.61888E+01_JPRB,0.61993E+01_JPRB /) 
393KA(:,10,13) = (/ &
394 & 0.61216E+01_JPRB,0.61612E+01_JPRB,0.61936E+01_JPRB,0.62230E+01_JPRB,0.62454E+01_JPRB /) 
395KA(:,11,13) = (/ &
396 & 0.60409E+01_JPRB,0.60960E+01_JPRB,0.61462E+01_JPRB,0.61882E+01_JPRB,0.62219E+01_JPRB /) 
397KA(:,12,13) = (/ &
398 & 0.58645E+01_JPRB,0.59597E+01_JPRB,0.60234E+01_JPRB,0.60826E+01_JPRB,0.61390E+01_JPRB /) 
399KA(:,13,13) = (/ &
400 & 0.56001E+01_JPRB,0.57009E+01_JPRB,0.58017E+01_JPRB,0.59181E+01_JPRB,0.59860E+01_JPRB /) 
401KA(:, 1,14) = (/ &
402 & 0.53647E+01_JPRB,0.53127E+01_JPRB,0.52736E+01_JPRB,0.52471E+01_JPRB,0.52264E+01_JPRB /) 
403KA(:, 2,14) = (/ &
404 & 0.62359E+01_JPRB,0.61753E+01_JPRB,0.61253E+01_JPRB,0.60847E+01_JPRB,0.60573E+01_JPRB /) 
405KA(:, 3,14) = (/ &
406 & 0.72065E+01_JPRB,0.71249E+01_JPRB,0.70556E+01_JPRB,0.69965E+01_JPRB,0.69559E+01_JPRB /) 
407KA(:, 4,14) = (/ &
408 & 0.81631E+01_JPRB,0.80714E+01_JPRB,0.79828E+01_JPRB,0.79081E+01_JPRB,0.78545E+01_JPRB /) 
409KA(:, 5,14) = (/ &
410 & 0.90691E+01_JPRB,0.89602E+01_JPRB,0.88621E+01_JPRB,0.87858E+01_JPRB,0.87314E+01_JPRB /) 
411KA(:, 6,14) = (/ &
412 & 0.99707E+01_JPRB,0.98474E+01_JPRB,0.97395E+01_JPRB,0.96541E+01_JPRB,0.95904E+01_JPRB /) 
413KA(:, 7,14) = (/ &
414 & 0.10852E+02_JPRB,0.10724E+02_JPRB,0.10620E+02_JPRB,0.10536E+02_JPRB,0.10469E+02_JPRB /) 
415KA(:, 8,14) = (/ &
416 & 0.11716E+02_JPRB,0.11588E+02_JPRB,0.11487E+02_JPRB,0.11403E+02_JPRB,0.11337E+02_JPRB /) 
417KA(:, 9,14) = (/ &
418 & 0.12572E+02_JPRB,0.12448E+02_JPRB,0.12341E+02_JPRB,0.12260E+02_JPRB,0.12188E+02_JPRB /) 
419KA(:,10,14) = (/ &
420 & 0.13374E+02_JPRB,0.13256E+02_JPRB,0.13159E+02_JPRB,0.13080E+02_JPRB,0.13010E+02_JPRB /) 
421KA(:,11,14) = (/ &
422 & 0.14046E+02_JPRB,0.13957E+02_JPRB,0.13888E+02_JPRB,0.13824E+02_JPRB,0.13769E+02_JPRB /) 
423KA(:,12,14) = (/ &
424 & 0.14644E+02_JPRB,0.14592E+02_JPRB,0.14548E+02_JPRB,0.14504E+02_JPRB,0.14461E+02_JPRB /) 
425KA(:,13,14) = (/ &
426 & 0.15144E+02_JPRB,0.15129E+02_JPRB,0.15111E+02_JPRB,0.15095E+02_JPRB,0.15074E+02_JPRB /) 
427KA(:, 1,15) = (/ &
428 & 0.72019E+01_JPRB,0.71097E+01_JPRB,0.70236E+01_JPRB,0.69449E+01_JPRB,0.68844E+01_JPRB /) 
429KA(:, 2,15) = (/ &
430 & 0.87604E+01_JPRB,0.86468E+01_JPRB,0.85349E+01_JPRB,0.84375E+01_JPRB,0.83491E+01_JPRB /) 
431KA(:, 3,15) = (/ &
432 & 0.10615E+02_JPRB,0.10469E+02_JPRB,0.10333E+02_JPRB,0.10214E+02_JPRB,0.10099E+02_JPRB /) 
433KA(:, 4,15) = (/ &
434 & 0.12669E+02_JPRB,0.12473E+02_JPRB,0.12305E+02_JPRB,0.12161E+02_JPRB,0.12026E+02_JPRB /) 
435KA(:, 5,15) = (/ &
436 & 0.14978E+02_JPRB,0.14741E+02_JPRB,0.14530E+02_JPRB,0.14329E+02_JPRB,0.14143E+02_JPRB /) 
437KA(:, 6,15) = (/ &
438 & 0.17562E+02_JPRB,0.17282E+02_JPRB,0.17031E+02_JPRB,0.16791E+02_JPRB,0.16552E+02_JPRB /) 
439KA(:, 7,15) = (/ &
440 & 0.20480E+02_JPRB,0.20136E+02_JPRB,0.19827E+02_JPRB,0.19524E+02_JPRB,0.19223E+02_JPRB /) 
441KA(:, 8,15) = (/ &
442 & 0.23734E+02_JPRB,0.23307E+02_JPRB,0.22908E+02_JPRB,0.22521E+02_JPRB,0.22160E+02_JPRB /) 
443KA(:, 9,15) = (/ &
444 & 0.27249E+02_JPRB,0.26733E+02_JPRB,0.26255E+02_JPRB,0.25787E+02_JPRB,0.25354E+02_JPRB /) 
445KA(:,10,15) = (/ &
446 & 0.30889E+02_JPRB,0.30311E+02_JPRB,0.29740E+02_JPRB,0.29192E+02_JPRB,0.28690E+02_JPRB /) 
447KA(:,11,15) = (/ &
448 & 0.34366E+02_JPRB,0.33687E+02_JPRB,0.33035E+02_JPRB,0.32430E+02_JPRB,0.31843E+02_JPRB /) 
449KA(:,12,15) = (/ &
450 & 0.37839E+02_JPRB,0.37085E+02_JPRB,0.36360E+02_JPRB,0.35655E+02_JPRB,0.34957E+02_JPRB /) 
451KA(:,13,15) = (/ &
452 & 0.41323E+02_JPRB,0.40503E+02_JPRB,0.39673E+02_JPRB,0.38847E+02_JPRB,0.38049E+02_JPRB /) 
453KA(:, 1,16) = (/ &
454 & 0.82631E+01_JPRB,0.81761E+01_JPRB,0.80809E+01_JPRB,0.79778E+01_JPRB,0.79010E+01_JPRB /) 
455KA(:, 2,16) = (/ &
456 & 0.10258E+02_JPRB,0.10128E+02_JPRB,0.10005E+02_JPRB,0.98803E+01_JPRB,0.97700E+01_JPRB /) 
457KA(:, 3,16) = (/ &
458 & 0.12786E+02_JPRB,0.12614E+02_JPRB,0.12441E+02_JPRB,0.12267E+02_JPRB,0.12120E+02_JPRB /) 
459KA(:, 4,16) = (/ &
460 & 0.15843E+02_JPRB,0.15549E+02_JPRB,0.15326E+02_JPRB,0.15095E+02_JPRB,0.14871E+02_JPRB /) 
461KA(:, 5,16) = (/ &
462 & 0.19543E+02_JPRB,0.19089E+02_JPRB,0.18733E+02_JPRB,0.18430E+02_JPRB,0.18134E+02_JPRB /) 
463KA(:, 6,16) = (/ &
464 & 0.24038E+02_JPRB,0.23415E+02_JPRB,0.22893E+02_JPRB,0.22427E+02_JPRB,0.22005E+02_JPRB /) 
465KA(:, 7,16) = (/ &
466 & 0.29445E+02_JPRB,0.28630E+02_JPRB,0.27921E+02_JPRB,0.27268E+02_JPRB,0.26654E+02_JPRB /) 
467KA(:, 8,16) = (/ &
468 & 0.35889E+02_JPRB,0.34849E+02_JPRB,0.33913E+02_JPRB,0.33036E+02_JPRB,0.32194E+02_JPRB /) 
469KA(:, 9,16) = (/ &
470 & 0.43512E+02_JPRB,0.42175E+02_JPRB,0.40956E+02_JPRB,0.39809E+02_JPRB,0.38685E+02_JPRB /) 
471KA(:,10,16) = (/ &
472 & 0.52253E+02_JPRB,0.50582E+02_JPRB,0.49011E+02_JPRB,0.47508E+02_JPRB,0.46037E+02_JPRB /) 
473KA(:,11,16) = (/ &
474 & 0.61290E+02_JPRB,0.59240E+02_JPRB,0.57269E+02_JPRB,0.55343E+02_JPRB,0.53572E+02_JPRB /) 
475KA(:,12,16) = (/ &
476 & 0.71193E+02_JPRB,0.68607E+02_JPRB,0.66135E+02_JPRB,0.63828E+02_JPRB,0.61720E+02_JPRB /) 
477KA(:,13,16) = (/ &
478 & 0.81988E+02_JPRB,0.78665E+02_JPRB,0.75707E+02_JPRB,0.72932E+02_JPRB,0.70347E+02_JPRB /) 
479 
480!     -----------------------------------------------------------------
481!     The array KB contains absorption coefs at the 16 chosen g-values
482!     for a range of pressure levels < ~100mb and temperatures. The first
483!     index in the array, JT, which runs from 1 to 5, corresponds to
484!     different temperatures.  More specifically, JT = 3 means that the
485!     data are for the reference temperature TREF for this pressure
486!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
487!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. 
488!     The second index, JP, runs from 13 to 59 and refers to the JPth
489!     reference pressure level (see taumol.f for the value of these
490!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
491!     and tells us which g-interval the absorption coefficients are for.
492!     -----------------------------------------------------------------
493
494KB(:,13, 1) = (/ &
495 & 0.29597E-05_JPRB,0.31929E-05_JPRB,0.34159E-05_JPRB,0.36256E-05_JPRB,0.38264E-05_JPRB /) 
496KB(:,14, 1) = (/ &
497 & 0.24233E-05_JPRB,0.26151E-05_JPRB,0.27866E-05_JPRB,0.29502E-05_JPRB,0.31170E-05_JPRB /) 
498KB(:,15, 1) = (/ &
499 & 0.19206E-05_JPRB,0.20789E-05_JPRB,0.22099E-05_JPRB,0.23383E-05_JPRB,0.24505E-05_JPRB /) 
500KB(:,16, 1) = (/ &
501 & 0.14933E-05_JPRB,0.16071E-05_JPRB,0.17039E-05_JPRB,0.17994E-05_JPRB,0.18816E-05_JPRB /) 
502KB(:,17, 1) = (/ &
503 & 0.11429E-05_JPRB,0.12144E-05_JPRB,0.12895E-05_JPRB,0.13503E-05_JPRB,0.14174E-05_JPRB /) 
504KB(:,18, 1) = (/ &
505 & 0.84134E-06_JPRB,0.89264E-06_JPRB,0.94260E-06_JPRB,0.99003E-06_JPRB,0.10391E-05_JPRB /) 
506KB(:,19, 1) = (/ &
507 & 0.60683E-06_JPRB,0.64142E-06_JPRB,0.68018E-06_JPRB,0.72042E-06_JPRB,0.75479E-06_JPRB /) 
508KB(:,20, 1) = (/ &
509 & 0.45809E-06_JPRB,0.48813E-06_JPRB,0.51934E-06_JPRB,0.54823E-06_JPRB,0.57261E-06_JPRB /) 
510KB(:,21, 1) = (/ &
511 & 0.35219E-06_JPRB,0.37835E-06_JPRB,0.40322E-06_JPRB,0.42772E-06_JPRB,0.44736E-06_JPRB /) 
512KB(:,22, 1) = (/ &
513 & 0.27419E-06_JPRB,0.29542E-06_JPRB,0.31617E-06_JPRB,0.33398E-06_JPRB,0.34932E-06_JPRB /) 
514KB(:,23, 1) = (/ &
515 & 0.21385E-06_JPRB,0.23127E-06_JPRB,0.24670E-06_JPRB,0.25951E-06_JPRB,0.26952E-06_JPRB /) 
516KB(:,24, 1) = (/ &
517 & 0.16767E-06_JPRB,0.18179E-06_JPRB,0.19282E-06_JPRB,0.20136E-06_JPRB,0.21113E-06_JPRB /) 
518KB(:,25, 1) = (/ &
519 & 0.13361E-06_JPRB,0.14301E-06_JPRB,0.14980E-06_JPRB,0.15778E-06_JPRB,0.16615E-06_JPRB /) 
520KB(:,26, 1) = (/ &
521 & 0.10615E-06_JPRB,0.11218E-06_JPRB,0.11889E-06_JPRB,0.12574E-06_JPRB,0.13111E-06_JPRB /) 
522KB(:,27, 1) = (/ &
523 & 0.83660E-07_JPRB,0.89296E-07_JPRB,0.95019E-07_JPRB,0.10007E-06_JPRB,0.10397E-06_JPRB /) 
524KB(:,28, 1) = (/ &
525 & 0.66667E-07_JPRB,0.71217E-07_JPRB,0.75615E-07_JPRB,0.79237E-07_JPRB,0.82239E-07_JPRB /) 
526KB(:,29, 1) = (/ &
527 & 0.52776E-07_JPRB,0.56086E-07_JPRB,0.59828E-07_JPRB,0.62513E-07_JPRB,0.64218E-07_JPRB /) 
528KB(:,30, 1) = (/ &
529 & 0.41429E-07_JPRB,0.44370E-07_JPRB,0.46731E-07_JPRB,0.48553E-07_JPRB,0.50143E-07_JPRB /) 
530KB(:,31, 1) = (/ &
531 & 0.32437E-07_JPRB,0.34523E-07_JPRB,0.36208E-07_JPRB,0.37500E-07_JPRB,0.38571E-07_JPRB /) 
532KB(:,32, 1) = (/ &
533 & 0.25237E-07_JPRB,0.26730E-07_JPRB,0.27868E-07_JPRB,0.28829E-07_JPRB,0.29943E-07_JPRB /) 
534KB(:,33, 1) = (/ &
535 & 0.19545E-07_JPRB,0.20614E-07_JPRB,0.21467E-07_JPRB,0.22280E-07_JPRB,0.23141E-07_JPRB /) 
536KB(:,34, 1) = (/ &
537 & 0.15146E-07_JPRB,0.15869E-07_JPRB,0.16509E-07_JPRB,0.17179E-07_JPRB,0.17980E-07_JPRB /) 
538KB(:,35, 1) = (/ &
539 & 0.11482E-07_JPRB,0.12039E-07_JPRB,0.12547E-07_JPRB,0.13255E-07_JPRB,0.13874E-07_JPRB /) 
540KB(:,36, 1) = (/ &
541 & 0.86172E-08_JPRB,0.90023E-08_JPRB,0.95607E-08_JPRB,0.10106E-07_JPRB,0.10595E-07_JPRB /) 
542KB(:,37, 1) = (/ &
543 & 0.67411E-08_JPRB,0.70781E-08_JPRB,0.75553E-08_JPRB,0.79739E-08_JPRB,0.84011E-08_JPRB /) 
544KB(:,38, 1) = (/ &
545 & 0.52604E-08_JPRB,0.55743E-08_JPRB,0.59410E-08_JPRB,0.63031E-08_JPRB,0.66516E-08_JPRB /) 
546KB(:,39, 1) = (/ &
547 & 0.41129E-08_JPRB,0.43854E-08_JPRB,0.46851E-08_JPRB,0.49771E-08_JPRB,0.52463E-08_JPRB /) 
548KB(:,40, 1) = (/ &
549 & 0.33089E-08_JPRB,0.35289E-08_JPRB,0.37702E-08_JPRB,0.40125E-08_JPRB,0.42415E-08_JPRB /) 
550KB(:,41, 1) = (/ &
551 & 0.26794E-08_JPRB,0.28488E-08_JPRB,0.30428E-08_JPRB,0.32437E-08_JPRB,0.34420E-08_JPRB /) 
552KB(:,42, 1) = (/ &
553 & 0.21670E-08_JPRB,0.23030E-08_JPRB,0.24589E-08_JPRB,0.26252E-08_JPRB,0.27867E-08_JPRB /) 
554KB(:,43, 1) = (/ &
555 & 0.17699E-08_JPRB,0.18853E-08_JPRB,0.20001E-08_JPRB,0.21330E-08_JPRB,0.22657E-08_JPRB /) 
556KB(:,44, 1) = (/ &
557 & 0.14446E-08_JPRB,0.15471E-08_JPRB,0.16397E-08_JPRB,0.17423E-08_JPRB,0.18526E-08_JPRB /) 
558KB(:,45, 1) = (/ &
559 & 0.11734E-08_JPRB,0.12754E-08_JPRB,0.13542E-08_JPRB,0.14242E-08_JPRB,0.15193E-08_JPRB /) 
560KB(:,46, 1) = (/ &
561 & 0.95743E-09_JPRB,0.10470E-08_JPRB,0.11183E-08_JPRB,0.11726E-08_JPRB,0.12389E-08_JPRB /) 
562KB(:,47, 1) = (/ &
563 & 0.77345E-09_JPRB,0.85197E-09_JPRB,0.92184E-09_JPRB,0.97368E-09_JPRB,0.10149E-08_JPRB /) 
564KB(:,48, 1) = (/ &
565 & 0.62500E-09_JPRB,0.69288E-09_JPRB,0.75548E-09_JPRB,0.80446E-09_JPRB,0.84428E-09_JPRB /) 
566KB(:,49, 1) = (/ &
567 & 0.50095E-09_JPRB,0.55967E-09_JPRB,0.61904E-09_JPRB,0.66441E-09_JPRB,0.70339E-09_JPRB /) 
568KB(:,50, 1) = (/ &
569 & 0.40806E-09_JPRB,0.45712E-09_JPRB,0.50530E-09_JPRB,0.54974E-09_JPRB,0.58246E-09_JPRB /) 
570KB(:,51, 1) = (/ &
571 & 0.33102E-09_JPRB,0.37130E-09_JPRB,0.41121E-09_JPRB,0.45024E-09_JPRB,0.48436E-09_JPRB /) 
572KB(:,52, 1) = (/ &
573 & 0.26906E-09_JPRB,0.30739E-09_JPRB,0.33845E-09_JPRB,0.36884E-09_JPRB,0.40024E-09_JPRB /) 
574KB(:,53, 1) = (/ &
575 & 0.22202E-09_JPRB,0.25108E-09_JPRB,0.27937E-09_JPRB,0.30592E-09_JPRB,0.33012E-09_JPRB /) 
576KB(:,54, 1) = (/ &
577 & 0.18662E-09_JPRB,0.20761E-09_JPRB,0.23072E-09_JPRB,0.25342E-09_JPRB,0.27445E-09_JPRB /) 
578KB(:,55, 1) = (/ &
579 & 0.15741E-09_JPRB,0.17147E-09_JPRB,0.19146E-09_JPRB,0.21029E-09_JPRB,0.22857E-09_JPRB /) 
580KB(:,56, 1) = (/ &
581 & 0.13151E-09_JPRB,0.14637E-09_JPRB,0.15977E-09_JPRB,0.17547E-09_JPRB,0.18974E-09_JPRB /) 
582KB(:,57, 1) = (/ &
583 & 0.10874E-09_JPRB,0.12447E-09_JPRB,0.13634E-09_JPRB,0.14752E-09_JPRB,0.16022E-09_JPRB /) 
584KB(:,58, 1) = (/ &
585 & 0.90206E-10_JPRB,0.10484E-09_JPRB,0.11617E-09_JPRB,0.12545E-09_JPRB,0.13474E-09_JPRB /) 
586KB(:,59, 1) = (/ &
587 & 0.76759E-10_JPRB,0.88866E-10_JPRB,0.99340E-10_JPRB,0.10706E-09_JPRB,0.11444E-09_JPRB /) 
588KB(:,13, 2) = (/ &
589 & 0.14727E-04_JPRB,0.16357E-04_JPRB,0.17961E-04_JPRB,0.19530E-04_JPRB,0.20852E-04_JPRB /) 
590KB(:,14, 2) = (/ &
591 & 0.12148E-04_JPRB,0.13478E-04_JPRB,0.14818E-04_JPRB,0.16049E-04_JPRB,0.17100E-04_JPRB /) 
592KB(:,15, 2) = (/ &
593 & 0.96902E-05_JPRB,0.10787E-04_JPRB,0.11835E-04_JPRB,0.12770E-04_JPRB,0.13515E-04_JPRB /) 
594KB(:,16, 2) = (/ &
595 & 0.76235E-05_JPRB,0.84575E-05_JPRB,0.92217E-05_JPRB,0.98526E-05_JPRB,0.10449E-04_JPRB /) 
596KB(:,17, 2) = (/ &
597 & 0.58049E-05_JPRB,0.64239E-05_JPRB,0.69733E-05_JPRB,0.74131E-05_JPRB,0.78082E-05_JPRB /) 
598KB(:,18, 2) = (/ &
599 & 0.43204E-05_JPRB,0.47510E-05_JPRB,0.51165E-05_JPRB,0.54579E-05_JPRB,0.57434E-05_JPRB /) 
600KB(:,19, 2) = (/ &
601 & 0.32211E-05_JPRB,0.35327E-05_JPRB,0.38175E-05_JPRB,0.40535E-05_JPRB,0.42245E-05_JPRB /) 
602KB(:,20, 2) = (/ &
603 & 0.25265E-05_JPRB,0.27652E-05_JPRB,0.29644E-05_JPRB,0.31331E-05_JPRB,0.32730E-05_JPRB /) 
604KB(:,21, 2) = (/ &
605 & 0.19921E-05_JPRB,0.21749E-05_JPRB,0.23343E-05_JPRB,0.24377E-05_JPRB,0.25458E-05_JPRB /) 
606KB(:,22, 2) = (/ &
607 & 0.15859E-05_JPRB,0.17259E-05_JPRB,0.18236E-05_JPRB,0.19124E-05_JPRB,0.19942E-05_JPRB /) 
608KB(:,23, 2) = (/ &
609 & 0.12591E-05_JPRB,0.13565E-05_JPRB,0.14309E-05_JPRB,0.15032E-05_JPRB,0.15642E-05_JPRB /) 
610KB(:,24, 2) = (/ &
611 & 0.10012E-05_JPRB,0.10701E-05_JPRB,0.11246E-05_JPRB,0.11819E-05_JPRB,0.12279E-05_JPRB /) 
612KB(:,25, 2) = (/ &
613 & 0.78985E-06_JPRB,0.84074E-06_JPRB,0.89029E-06_JPRB,0.93145E-06_JPRB,0.97085E-06_JPRB /) 
614KB(:,26, 2) = (/ &
615 & 0.62996E-06_JPRB,0.66847E-06_JPRB,0.70637E-06_JPRB,0.73513E-06_JPRB,0.77135E-06_JPRB /) 
616KB(:,27, 2) = (/ &
617 & 0.50283E-06_JPRB,0.53111E-06_JPRB,0.55653E-06_JPRB,0.58306E-06_JPRB,0.61799E-06_JPRB /) 
618KB(:,28, 2) = (/ &
619 & 0.39962E-06_JPRB,0.42320E-06_JPRB,0.44265E-06_JPRB,0.46715E-06_JPRB,0.49516E-06_JPRB /) 
620KB(:,29, 2) = (/ &
621 & 0.31810E-06_JPRB,0.33597E-06_JPRB,0.35191E-06_JPRB,0.37448E-06_JPRB,0.39768E-06_JPRB /) 
622KB(:,30, 2) = (/ &
623 & 0.25242E-06_JPRB,0.26447E-06_JPRB,0.28109E-06_JPRB,0.30089E-06_JPRB,0.31543E-06_JPRB /) 
624KB(:,31, 2) = (/ &
625 & 0.19837E-06_JPRB,0.20954E-06_JPRB,0.22442E-06_JPRB,0.23762E-06_JPRB,0.25183E-06_JPRB /) 
626KB(:,32, 2) = (/ &
627 & 0.15599E-06_JPRB,0.16701E-06_JPRB,0.17789E-06_JPRB,0.18880E-06_JPRB,0.20030E-06_JPRB /) 
628KB(:,33, 2) = (/ &
629 & 0.12307E-06_JPRB,0.13211E-06_JPRB,0.14046E-06_JPRB,0.15111E-06_JPRB,0.15988E-06_JPRB /) 
630KB(:,34, 2) = (/ &
631 & 0.98429E-07_JPRB,0.10498E-06_JPRB,0.11326E-06_JPRB,0.12074E-06_JPRB,0.12779E-06_JPRB /) 
632KB(:,35, 2) = (/ &
633 & 0.77743E-07_JPRB,0.83951E-07_JPRB,0.90473E-07_JPRB,0.96277E-07_JPRB,0.10204E-06_JPRB /) 
634KB(:,36, 2) = (/ &
635 & 0.61220E-07_JPRB,0.66399E-07_JPRB,0.71102E-07_JPRB,0.75946E-07_JPRB,0.80803E-07_JPRB /) 
636KB(:,37, 2) = (/ &
637 & 0.48819E-07_JPRB,0.52962E-07_JPRB,0.56669E-07_JPRB,0.60817E-07_JPRB,0.64709E-07_JPRB /) 
638KB(:,38, 2) = (/ &
639 & 0.38871E-07_JPRB,0.42226E-07_JPRB,0.45376E-07_JPRB,0.48641E-07_JPRB,0.51855E-07_JPRB /) 
640KB(:,39, 2) = (/ &
641 & 0.30869E-07_JPRB,0.33485E-07_JPRB,0.36233E-07_JPRB,0.38868E-07_JPRB,0.41523E-07_JPRB /) 
642KB(:,40, 2) = (/ &
643 & 0.24798E-07_JPRB,0.26983E-07_JPRB,0.29180E-07_JPRB,0.31437E-07_JPRB,0.33600E-07_JPRB /) 
644KB(:,41, 2) = (/ &
645 & 0.19951E-07_JPRB,0.21784E-07_JPRB,0.23518E-07_JPRB,0.25460E-07_JPRB,0.27219E-07_JPRB /) 
646KB(:,42, 2) = (/ &
647 & 0.16098E-07_JPRB,0.17542E-07_JPRB,0.18979E-07_JPRB,0.20547E-07_JPRB,0.22016E-07_JPRB /) 
648KB(:,43, 2) = (/ &
649 & 0.13020E-07_JPRB,0.14144E-07_JPRB,0.15414E-07_JPRB,0.16610E-07_JPRB,0.17870E-07_JPRB /) 
650KB(:,44, 2) = (/ &
651 & 0.10548E-07_JPRB,0.11500E-07_JPRB,0.12492E-07_JPRB,0.13520E-07_JPRB,0.14524E-07_JPRB /) 
652KB(:,45, 2) = (/ &
653 & 0.85602E-08_JPRB,0.93245E-08_JPRB,0.10096E-07_JPRB,0.10978E-07_JPRB,0.11819E-07_JPRB /) 
654KB(:,46, 2) = (/ &
655 & 0.69149E-08_JPRB,0.75653E-08_JPRB,0.82154E-08_JPRB,0.88822E-08_JPRB,0.96002E-08_JPRB /) 
656KB(:,47, 2) = (/ &
657 & 0.55708E-08_JPRB,0.61164E-08_JPRB,0.66678E-08_JPRB,0.71922E-08_JPRB,0.77633E-08_JPRB /) 
658KB(:,48, 2) = (/ &
659 & 0.44804E-08_JPRB,0.49312E-08_JPRB,0.53967E-08_JPRB,0.58662E-08_JPRB,0.62780E-08_JPRB /) 
660KB(:,49, 2) = (/ &
661 & 0.36467E-08_JPRB,0.39866E-08_JPRB,0.43628E-08_JPRB,0.47589E-08_JPRB,0.51208E-08_JPRB /) 
662KB(:,50, 2) = (/ &
663 & 0.29524E-08_JPRB,0.32540E-08_JPRB,0.35471E-08_JPRB,0.38638E-08_JPRB,0.41887E-08_JPRB /) 
664KB(:,51, 2) = (/ &
665 & 0.23887E-08_JPRB,0.26526E-08_JPRB,0.28959E-08_JPRB,0.31504E-08_JPRB,0.34112E-08_JPRB /) 
666KB(:,52, 2) = (/ &
667 & 0.19321E-08_JPRB,0.21648E-08_JPRB,0.23625E-08_JPRB,0.25839E-08_JPRB,0.28173E-08_JPRB /) 
668KB(:,53, 2) = (/ &
669 & 0.15684E-08_JPRB,0.17725E-08_JPRB,0.19476E-08_JPRB,0.21240E-08_JPRB,0.23118E-08_JPRB /) 
670KB(:,54, 2) = (/ &
671 & 0.12799E-08_JPRB,0.14467E-08_JPRB,0.16073E-08_JPRB,0.17494E-08_JPRB,0.19160E-08_JPRB /) 
672KB(:,55, 2) = (/ &
673 & 0.10442E-08_JPRB,0.11911E-08_JPRB,0.13216E-08_JPRB,0.14537E-08_JPRB,0.15771E-08_JPRB /) 
674KB(:,56, 2) = (/ &
675 & 0.85741E-09_JPRB,0.97937E-09_JPRB,0.10936E-08_JPRB,0.12056E-08_JPRB,0.13167E-08_JPRB /) 
676KB(:,57, 2) = (/ &
677 & 0.70358E-09_JPRB,0.80334E-09_JPRB,0.90824E-09_JPRB,0.10056E-08_JPRB,0.11010E-08_JPRB /) 
678KB(:,58, 2) = (/ &
679 & 0.57428E-09_JPRB,0.66441E-09_JPRB,0.75420E-09_JPRB,0.83627E-09_JPRB,0.92485E-09_JPRB /) 
680KB(:,59, 2) = (/ &
681 & 0.47922E-09_JPRB,0.55592E-09_JPRB,0.63499E-09_JPRB,0.70731E-09_JPRB,0.78678E-09_JPRB /) 
682KB(:,13, 3) = (/ &
683 & 0.76201E-04_JPRB,0.82699E-04_JPRB,0.87499E-04_JPRB,0.91352E-04_JPRB,0.95348E-04_JPRB /) 
684KB(:,14, 3) = (/ &
685 & 0.62821E-04_JPRB,0.67861E-04_JPRB,0.71868E-04_JPRB,0.75108E-04_JPRB,0.78557E-04_JPRB /) 
686KB(:,15, 3) = (/ &
687 & 0.49775E-04_JPRB,0.53367E-04_JPRB,0.56639E-04_JPRB,0.59001E-04_JPRB,0.62303E-04_JPRB /) 
688KB(:,16, 3) = (/ &
689 & 0.38005E-04_JPRB,0.40883E-04_JPRB,0.43269E-04_JPRB,0.45403E-04_JPRB,0.48139E-04_JPRB /) 
690KB(:,17, 3) = (/ &
691 & 0.28550E-04_JPRB,0.30750E-04_JPRB,0.32331E-04_JPRB,0.34489E-04_JPRB,0.36687E-04_JPRB /) 
692KB(:,18, 3) = (/ &
693 & 0.20976E-04_JPRB,0.22322E-04_JPRB,0.23743E-04_JPRB,0.25554E-04_JPRB,0.27223E-04_JPRB /) 
694KB(:,19, 3) = (/ &
695 & 0.15389E-04_JPRB,0.16422E-04_JPRB,0.17792E-04_JPRB,0.19127E-04_JPRB,0.20295E-04_JPRB /) 
696KB(:,20, 3) = (/ &
697 & 0.11883E-04_JPRB,0.12816E-04_JPRB,0.13962E-04_JPRB,0.14872E-04_JPRB,0.15725E-04_JPRB /) 
698KB(:,21, 3) = (/ &
699 & 0.92948E-05_JPRB,0.10187E-04_JPRB,0.10986E-04_JPRB,0.11713E-04_JPRB,0.12426E-04_JPRB /) 
700KB(:,22, 3) = (/ &
701 & 0.73969E-05_JPRB,0.80840E-05_JPRB,0.87263E-05_JPRB,0.93856E-05_JPRB,0.99533E-05_JPRB /) 
702KB(:,23, 3) = (/ &
703 & 0.58961E-05_JPRB,0.64591E-05_JPRB,0.69648E-05_JPRB,0.74494E-05_JPRB,0.79385E-05_JPRB /) 
704KB(:,24, 3) = (/ &
705 & 0.47445E-05_JPRB,0.51742E-05_JPRB,0.56036E-05_JPRB,0.59758E-05_JPRB,0.63724E-05_JPRB /) 
706KB(:,25, 3) = (/ &
707 & 0.38442E-05_JPRB,0.41791E-05_JPRB,0.44837E-05_JPRB,0.48078E-05_JPRB,0.51294E-05_JPRB /) 
708KB(:,26, 3) = (/ &
709 & 0.31335E-05_JPRB,0.33923E-05_JPRB,0.36400E-05_JPRB,0.38961E-05_JPRB,0.41487E-05_JPRB /) 
710KB(:,27, 3) = (/ &
711 & 0.25499E-05_JPRB,0.27432E-05_JPRB,0.29560E-05_JPRB,0.31545E-05_JPRB,0.33433E-05_JPRB /) 
712KB(:,28, 3) = (/ &
713 & 0.20635E-05_JPRB,0.22231E-05_JPRB,0.23897E-05_JPRB,0.25516E-05_JPRB,0.26938E-05_JPRB /) 
714KB(:,29, 3) = (/ &
715 & 0.16635E-05_JPRB,0.18024E-05_JPRB,0.19279E-05_JPRB,0.20498E-05_JPRB,0.21627E-05_JPRB /) 
716KB(:,30, 3) = (/ &
717 & 0.13359E-05_JPRB,0.14474E-05_JPRB,0.15470E-05_JPRB,0.16346E-05_JPRB,0.17457E-05_JPRB /) 
718KB(:,31, 3) = (/ &
719 & 0.10697E-05_JPRB,0.11477E-05_JPRB,0.12254E-05_JPRB,0.13097E-05_JPRB,0.13914E-05_JPRB /) 
720KB(:,32, 3) = (/ &
721 & 0.84958E-06_JPRB,0.91464E-06_JPRB,0.98189E-06_JPRB,0.10489E-05_JPRB,0.11150E-05_JPRB /) 
722KB(:,33, 3) = (/ &
723 & 0.68178E-06_JPRB,0.73356E-06_JPRB,0.78905E-06_JPRB,0.84226E-06_JPRB,0.89476E-06_JPRB /) 
724KB(:,34, 3) = (/ &
725 & 0.54737E-06_JPRB,0.58995E-06_JPRB,0.63374E-06_JPRB,0.67732E-06_JPRB,0.72182E-06_JPRB /) 
726KB(:,35, 3) = (/ &
727 & 0.43680E-06_JPRB,0.47086E-06_JPRB,0.50771E-06_JPRB,0.54209E-06_JPRB,0.57687E-06_JPRB /) 
728KB(:,36, 3) = (/ &
729 & 0.34612E-06_JPRB,0.37466E-06_JPRB,0.40370E-06_JPRB,0.43073E-06_JPRB,0.45979E-06_JPRB /) 
730KB(:,37, 3) = (/ &
731 & 0.27725E-06_JPRB,0.30048E-06_JPRB,0.32451E-06_JPRB,0.34638E-06_JPRB,0.37105E-06_JPRB /) 
732KB(:,38, 3) = (/ &
733 & 0.22228E-06_JPRB,0.24114E-06_JPRB,0.26049E-06_JPRB,0.27871E-06_JPRB,0.29935E-06_JPRB /) 
734KB(:,39, 3) = (/ &
735 & 0.17797E-06_JPRB,0.19317E-06_JPRB,0.20878E-06_JPRB,0.22411E-06_JPRB,0.24102E-06_JPRB /) 
736KB(:,40, 3) = (/ &
737 & 0.14346E-06_JPRB,0.15601E-06_JPRB,0.16913E-06_JPRB,0.18197E-06_JPRB,0.19566E-06_JPRB /) 
738KB(:,41, 3) = (/ &
739 & 0.11559E-06_JPRB,0.12615E-06_JPRB,0.13697E-06_JPRB,0.14785E-06_JPRB,0.15874E-06_JPRB /) 
740KB(:,42, 3) = (/ &
741 & 0.93358E-07_JPRB,0.10214E-06_JPRB,0.11089E-06_JPRB,0.11998E-06_JPRB,0.12904E-06_JPRB /) 
742KB(:,43, 3) = (/ &
743 & 0.75599E-07_JPRB,0.82690E-07_JPRB,0.89808E-07_JPRB,0.97524E-07_JPRB,0.10511E-06_JPRB /) 
744KB(:,44, 3) = (/ &
745 & 0.61285E-07_JPRB,0.66786E-07_JPRB,0.72937E-07_JPRB,0.79087E-07_JPRB,0.85525E-07_JPRB /) 
746KB(:,45, 3) = (/ &
747 & 0.49725E-07_JPRB,0.54294E-07_JPRB,0.59263E-07_JPRB,0.64213E-07_JPRB,0.69583E-07_JPRB /) 
748KB(:,46, 3) = (/ &
749 & 0.40336E-07_JPRB,0.44186E-07_JPRB,0.48034E-07_JPRB,0.52184E-07_JPRB,0.56534E-07_JPRB /) 
750KB(:,47, 3) = (/ &
751 & 0.32904E-07_JPRB,0.35633E-07_JPRB,0.38959E-07_JPRB,0.42402E-07_JPRB,0.45883E-07_JPRB /) 
752KB(:,48, 3) = (/ &
753 & 0.26725E-07_JPRB,0.29104E-07_JPRB,0.31693E-07_JPRB,0.34312E-07_JPRB,0.37304E-07_JPRB /) 
754KB(:,49, 3) = (/ &
755 & 0.21751E-07_JPRB,0.23849E-07_JPRB,0.25803E-07_JPRB,0.28024E-07_JPRB,0.30356E-07_JPRB /) 
756KB(:,50, 3) = (/ &
757 & 0.17587E-07_JPRB,0.19609E-07_JPRB,0.21216E-07_JPRB,0.23022E-07_JPRB,0.24942E-07_JPRB /) 
758KB(:,51, 3) = (/ &
759 & 0.14376E-07_JPRB,0.15990E-07_JPRB,0.17493E-07_JPRB,0.18872E-07_JPRB,0.20463E-07_JPRB /) 
760KB(:,52, 3) = (/ &
761 & 0.11811E-07_JPRB,0.13106E-07_JPRB,0.14489E-07_JPRB,0.15615E-07_JPRB,0.16832E-07_JPRB /) 
762KB(:,53, 3) = (/ &
763 & 0.96001E-08_JPRB,0.10788E-07_JPRB,0.11921E-07_JPRB,0.12985E-07_JPRB,0.13904E-07_JPRB /) 
764KB(:,54, 3) = (/ &
765 & 0.78243E-08_JPRB,0.89178E-08_JPRB,0.98430E-08_JPRB,0.10840E-07_JPRB,0.11619E-07_JPRB /) 
766KB(:,55, 3) = (/ &
767 & 0.63638E-08_JPRB,0.73678E-08_JPRB,0.82214E-08_JPRB,0.89997E-08_JPRB,0.97565E-08_JPRB /) 
768KB(:,56, 3) = (/ &
769 & 0.51753E-08_JPRB,0.60497E-08_JPRB,0.68419E-08_JPRB,0.74560E-08_JPRB,0.82362E-08_JPRB /) 
770KB(:,57, 3) = (/ &
771 & 0.42164E-08_JPRB,0.49916E-08_JPRB,0.57066E-08_JPRB,0.63308E-08_JPRB,0.68950E-08_JPRB /) 
772KB(:,58, 3) = (/ &
773 & 0.34618E-08_JPRB,0.41424E-08_JPRB,0.48054E-08_JPRB,0.53757E-08_JPRB,0.58095E-08_JPRB /) 
774KB(:,59, 3) = (/ &
775 & 0.29083E-08_JPRB,0.35291E-08_JPRB,0.40932E-08_JPRB,0.46285E-08_JPRB,0.49865E-08_JPRB /) 
776KB(:,13, 4) = (/ &
777 & 0.37674E-03_JPRB,0.40953E-03_JPRB,0.43690E-03_JPRB,0.46059E-03_JPRB,0.48007E-03_JPRB /) 
778KB(:,14, 4) = (/ &
779 & 0.31202E-03_JPRB,0.33906E-03_JPRB,0.36066E-03_JPRB,0.38003E-03_JPRB,0.39627E-03_JPRB /) 
780KB(:,15, 4) = (/ &
781 & 0.25135E-03_JPRB,0.27271E-03_JPRB,0.29069E-03_JPRB,0.30661E-03_JPRB,0.32005E-03_JPRB /) 
782KB(:,16, 4) = (/ &
783 & 0.19797E-03_JPRB,0.21527E-03_JPRB,0.22955E-03_JPRB,0.24328E-03_JPRB,0.25456E-03_JPRB /) 
784KB(:,17, 4) = (/ &
785 & 0.15354E-03_JPRB,0.16679E-03_JPRB,0.17933E-03_JPRB,0.19101E-03_JPRB,0.20041E-03_JPRB /) 
786KB(:,18, 4) = (/ &
787 & 0.11742E-03_JPRB,0.12797E-03_JPRB,0.13923E-03_JPRB,0.14836E-03_JPRB,0.15654E-03_JPRB /) 
788KB(:,19, 4) = (/ &
789 & 0.90519E-04_JPRB,0.99386E-04_JPRB,0.10819E-03_JPRB,0.11601E-03_JPRB,0.12319E-03_JPRB /) 
790KB(:,20, 4) = (/ &
791 & 0.72579E-04_JPRB,0.79910E-04_JPRB,0.87075E-04_JPRB,0.93728E-04_JPRB,0.99656E-04_JPRB /) 
792KB(:,21, 4) = (/ &
793 & 0.58866E-04_JPRB,0.64805E-04_JPRB,0.70705E-04_JPRB,0.76153E-04_JPRB,0.80996E-04_JPRB /) 
794KB(:,22, 4) = (/ &
795 & 0.48157E-04_JPRB,0.52883E-04_JPRB,0.57740E-04_JPRB,0.62130E-04_JPRB,0.66100E-04_JPRB /) 
796KB(:,23, 4) = (/ &
797 & 0.39337E-04_JPRB,0.43289E-04_JPRB,0.47275E-04_JPRB,0.50906E-04_JPRB,0.54161E-04_JPRB /) 
798KB(:,24, 4) = (/ &
799 & 0.32289E-04_JPRB,0.35577E-04_JPRB,0.38808E-04_JPRB,0.41814E-04_JPRB,0.44433E-04_JPRB /) 
800KB(:,25, 4) = (/ &
801 & 0.26615E-04_JPRB,0.29301E-04_JPRB,0.31984E-04_JPRB,0.34396E-04_JPRB,0.36509E-04_JPRB /) 
802KB(:,26, 4) = (/ &
803 & 0.22060E-04_JPRB,0.24270E-04_JPRB,0.26460E-04_JPRB,0.28450E-04_JPRB,0.30203E-04_JPRB /) 
804KB(:,27, 4) = (/ &
805 & 0.18344E-04_JPRB,0.20177E-04_JPRB,0.21948E-04_JPRB,0.23595E-04_JPRB,0.25001E-04_JPRB /) 
806KB(:,28, 4) = (/ &
807 & 0.15256E-04_JPRB,0.16787E-04_JPRB,0.18242E-04_JPRB,0.19561E-04_JPRB,0.20696E-04_JPRB /) 
808KB(:,29, 4) = (/ &
809 & 0.12679E-04_JPRB,0.13952E-04_JPRB,0.15170E-04_JPRB,0.16211E-04_JPRB,0.17163E-04_JPRB /) 
810KB(:,30, 4) = (/ &
811 & 0.10550E-04_JPRB,0.11605E-04_JPRB,0.12579E-04_JPRB,0.13451E-04_JPRB,0.14210E-04_JPRB /) 
812KB(:,31, 4) = (/ &
813 & 0.87512E-05_JPRB,0.96322E-05_JPRB,0.10433E-04_JPRB,0.11133E-04_JPRB,0.11762E-04_JPRB /) 
814KB(:,32, 4) = (/ &
815 & 0.73001E-05_JPRB,0.80203E-05_JPRB,0.86745E-05_JPRB,0.92292E-05_JPRB,0.97295E-05_JPRB /) 
816KB(:,33, 4) = (/ &
817 & 0.60958E-05_JPRB,0.66862E-05_JPRB,0.72006E-05_JPRB,0.76359E-05_JPRB,0.80576E-05_JPRB /) 
818KB(:,34, 4) = (/ &
819 & 0.50855E-05_JPRB,0.55671E-05_JPRB,0.59670E-05_JPRB,0.63392E-05_JPRB,0.66869E-05_JPRB /) 
820KB(:,35, 4) = (/ &
821 & 0.42033E-05_JPRB,0.45905E-05_JPRB,0.49250E-05_JPRB,0.52384E-05_JPRB,0.55369E-05_JPRB /) 
822KB(:,36, 4) = (/ &
823 & 0.34384E-05_JPRB,0.37618E-05_JPRB,0.40430E-05_JPRB,0.43060E-05_JPRB,0.45577E-05_JPRB /) 
824KB(:,37, 4) = (/ &
825 & 0.28039E-05_JPRB,0.30749E-05_JPRB,0.33135E-05_JPRB,0.35344E-05_JPRB,0.37458E-05_JPRB /) 
826KB(:,38, 4) = (/ &
827 & 0.22842E-05_JPRB,0.25104E-05_JPRB,0.27126E-05_JPRB,0.28966E-05_JPRB,0.30768E-05_JPRB /) 
828KB(:,39, 4) = (/ &
829 & 0.18585E-05_JPRB,0.20510E-05_JPRB,0.22194E-05_JPRB,0.23731E-05_JPRB,0.25249E-05_JPRB /) 
830KB(:,40, 4) = (/ &
831 & 0.15041E-05_JPRB,0.16676E-05_JPRB,0.18097E-05_JPRB,0.19402E-05_JPRB,0.20681E-05_JPRB /) 
832KB(:,41, 4) = (/ &
833 & 0.12154E-05_JPRB,0.13541E-05_JPRB,0.14749E-05_JPRB,0.15852E-05_JPRB,0.16934E-05_JPRB /) 
834KB(:,42, 4) = (/ &
835 & 0.98033E-06_JPRB,0.10975E-05_JPRB,0.12011E-05_JPRB,0.12945E-05_JPRB,0.13859E-05_JPRB /) 
836KB(:,43, 4) = (/ &
837 & 0.78724E-06_JPRB,0.88625E-06_JPRB,0.97486E-06_JPRB,0.10554E-05_JPRB,0.11307E-05_JPRB /) 
838KB(:,44, 4) = (/ &
839 & 0.63059E-06_JPRB,0.71382E-06_JPRB,0.78948E-06_JPRB,0.85755E-06_JPRB,0.92044E-06_JPRB /) 
840KB(:,45, 4) = (/ &
841 & 0.50426E-06_JPRB,0.57391E-06_JPRB,0.63808E-06_JPRB,0.69718E-06_JPRB,0.74972E-06_JPRB /) 
842KB(:,46, 4) = (/ &
843 & 0.40133E-06_JPRB,0.45858E-06_JPRB,0.51414E-06_JPRB,0.56400E-06_JPRB,0.60964E-06_JPRB /) 
844KB(:,47, 4) = (/ &
845 & 0.31580E-06_JPRB,0.36440E-06_JPRB,0.41120E-06_JPRB,0.45433E-06_JPRB,0.49348E-06_JPRB /) 
846KB(:,48, 4) = (/ &
847 & 0.24847E-06_JPRB,0.28907E-06_JPRB,0.32879E-06_JPRB,0.36537E-06_JPRB,0.39903E-06_JPRB /) 
848KB(:,49, 4) = (/ &
849 & 0.19530E-06_JPRB,0.22858E-06_JPRB,0.26247E-06_JPRB,0.29331E-06_JPRB,0.32217E-06_JPRB /) 
850KB(:,50, 4) = (/ &
851 & 0.15364E-06_JPRB,0.18113E-06_JPRB,0.20911E-06_JPRB,0.23589E-06_JPRB,0.25994E-06_JPRB /) 
852KB(:,51, 4) = (/ &
853 & 0.12072E-06_JPRB,0.14413E-06_JPRB,0.16656E-06_JPRB,0.18952E-06_JPRB,0.20983E-06_JPRB /) 
854KB(:,52, 4) = (/ &
855 & 0.94925E-07_JPRB,0.11397E-06_JPRB,0.13255E-06_JPRB,0.15193E-06_JPRB,0.16960E-06_JPRB /) 
856KB(:,53, 4) = (/ &
857 & 0.74473E-07_JPRB,0.90197E-07_JPRB,0.10574E-06_JPRB,0.12153E-06_JPRB,0.13661E-06_JPRB /) 
858KB(:,54, 4) = (/ &
859 & 0.59009E-07_JPRB,0.71594E-07_JPRB,0.84781E-07_JPRB,0.97758E-07_JPRB,0.11018E-06_JPRB /) 
860KB(:,55, 4) = (/ &
861 & 0.47008E-07_JPRB,0.56997E-07_JPRB,0.67838E-07_JPRB,0.78753E-07_JPRB,0.89116E-07_JPRB /) 
862KB(:,56, 4) = (/ &
863 & 0.37415E-07_JPRB,0.45642E-07_JPRB,0.54420E-07_JPRB,0.63466E-07_JPRB,0.71910E-07_JPRB /) 
864KB(:,57, 4) = (/ &
865 & 0.29896E-07_JPRB,0.36635E-07_JPRB,0.43697E-07_JPRB,0.51036E-07_JPRB,0.58267E-07_JPRB /) 
866KB(:,58, 4) = (/ &
867 & 0.23946E-07_JPRB,0.29523E-07_JPRB,0.35316E-07_JPRB,0.41183E-07_JPRB,0.47391E-07_JPRB /) 
868KB(:,59, 4) = (/ &
869 & 0.19881E-07_JPRB,0.24642E-07_JPRB,0.29390E-07_JPRB,0.34099E-07_JPRB,0.39234E-07_JPRB /) 
870KB(:,13, 5) = (/ &
871 & 0.12771E-02_JPRB,0.13202E-02_JPRB,0.13557E-02_JPRB,0.13927E-02_JPRB,0.14233E-02_JPRB /) 
872KB(:,14, 5) = (/ &
873 & 0.10608E-02_JPRB,0.10951E-02_JPRB,0.11249E-02_JPRB,0.11549E-02_JPRB,0.11788E-02_JPRB /) 
874KB(:,15, 5) = (/ &
875 & 0.86750E-03_JPRB,0.89679E-03_JPRB,0.91986E-03_JPRB,0.94399E-03_JPRB,0.96405E-03_JPRB /) 
876KB(:,16, 5) = (/ &
877 & 0.70073E-03_JPRB,0.72504E-03_JPRB,0.74630E-03_JPRB,0.76495E-03_JPRB,0.78165E-03_JPRB /) 
878KB(:,17, 5) = (/ &
879 & 0.56280E-03_JPRB,0.58321E-03_JPRB,0.60153E-03_JPRB,0.61544E-03_JPRB,0.62885E-03_JPRB /) 
880KB(:,18, 5) = (/ &
881 & 0.44940E-03_JPRB,0.46598E-03_JPRB,0.47887E-03_JPRB,0.49058E-03_JPRB,0.50223E-03_JPRB /) 
882KB(:,19, 5) = (/ &
883 & 0.35753E-03_JPRB,0.37064E-03_JPRB,0.38290E-03_JPRB,0.39390E-03_JPRB,0.40387E-03_JPRB /) 
884KB(:,20, 5) = (/ &
885 & 0.29013E-03_JPRB,0.30099E-03_JPRB,0.31179E-03_JPRB,0.32117E-03_JPRB,0.33011E-03_JPRB /) 
886KB(:,21, 5) = (/ &
887 & 0.23657E-03_JPRB,0.24602E-03_JPRB,0.25504E-03_JPRB,0.26340E-03_JPRB,0.27145E-03_JPRB /) 
888KB(:,22, 5) = (/ &
889 & 0.19423E-03_JPRB,0.20224E-03_JPRB,0.20987E-03_JPRB,0.21711E-03_JPRB,0.22439E-03_JPRB /) 
890KB(:,23, 5) = (/ &
891 & 0.15963E-03_JPRB,0.16643E-03_JPRB,0.17308E-03_JPRB,0.17949E-03_JPRB,0.18580E-03_JPRB /) 
892KB(:,24, 5) = (/ &
893 & 0.13166E-03_JPRB,0.13745E-03_JPRB,0.14332E-03_JPRB,0.14871E-03_JPRB,0.15428E-03_JPRB /) 
894KB(:,25, 5) = (/ &
895 & 0.10885E-03_JPRB,0.11394E-03_JPRB,0.11896E-03_JPRB,0.12371E-03_JPRB,0.12846E-03_JPRB /) 
896KB(:,26, 5) = (/ &
897 & 0.90403E-04_JPRB,0.94914E-04_JPRB,0.99157E-04_JPRB,0.10310E-03_JPRB,0.10729E-03_JPRB /) 
898KB(:,27, 5) = (/ &
899 & 0.75265E-04_JPRB,0.79166E-04_JPRB,0.82648E-04_JPRB,0.86209E-04_JPRB,0.89882E-04_JPRB /) 
900KB(:,28, 5) = (/ &
901 & 0.62870E-04_JPRB,0.66050E-04_JPRB,0.69111E-04_JPRB,0.72289E-04_JPRB,0.75451E-04_JPRB /) 
902KB(:,29, 5) = (/ &
903 & 0.52465E-04_JPRB,0.55192E-04_JPRB,0.57887E-04_JPRB,0.60660E-04_JPRB,0.63367E-04_JPRB /) 
904KB(:,30, 5) = (/ &
905 & 0.43887E-04_JPRB,0.46191E-04_JPRB,0.48588E-04_JPRB,0.50910E-04_JPRB,0.53278E-04_JPRB /) 
906KB(:,31, 5) = (/ &
907 & 0.36760E-04_JPRB,0.38766E-04_JPRB,0.40783E-04_JPRB,0.42783E-04_JPRB,0.44780E-04_JPRB /) 
908KB(:,32, 5) = (/ &
909 & 0.30831E-04_JPRB,0.32561E-04_JPRB,0.34267E-04_JPRB,0.36000E-04_JPRB,0.37594E-04_JPRB /) 
910KB(:,33, 5) = (/ &
911 & 0.25908E-04_JPRB,0.27389E-04_JPRB,0.28832E-04_JPRB,0.30290E-04_JPRB,0.31581E-04_JPRB /) 
912KB(:,34, 5) = (/ &
913 & 0.21776E-04_JPRB,0.23026E-04_JPRB,0.24266E-04_JPRB,0.25444E-04_JPRB,0.26510E-04_JPRB /) 
914KB(:,35, 5) = (/ &
915 & 0.18233E-04_JPRB,0.19280E-04_JPRB,0.20324E-04_JPRB,0.21266E-04_JPRB,0.22141E-04_JPRB /) 
916KB(:,36, 5) = (/ &
917 & 0.15160E-04_JPRB,0.16042E-04_JPRB,0.16918E-04_JPRB,0.17686E-04_JPRB,0.18406E-04_JPRB /) 
918KB(:,37, 5) = (/ &
919 & 0.12538E-04_JPRB,0.13285E-04_JPRB,0.14015E-04_JPRB,0.14657E-04_JPRB,0.15269E-04_JPRB /) 
920KB(:,38, 5) = (/ &
921 & 0.10357E-04_JPRB,0.10990E-04_JPRB,0.11595E-04_JPRB,0.12148E-04_JPRB,0.12651E-04_JPRB /) 
922KB(:,39, 5) = (/ &
923 & 0.85566E-05_JPRB,0.90856E-05_JPRB,0.95986E-05_JPRB,0.10057E-04_JPRB,0.10478E-04_JPRB /) 
924KB(:,40, 5) = (/ &
925 & 0.70390E-05_JPRB,0.74826E-05_JPRB,0.79200E-05_JPRB,0.83061E-05_JPRB,0.86634E-05_JPRB /) 
926KB(:,41, 5) = (/ &
927 & 0.57827E-05_JPRB,0.61572E-05_JPRB,0.65269E-05_JPRB,0.68528E-05_JPRB,0.71595E-05_JPRB /) 
928KB(:,42, 5) = (/ &
929 & 0.47477E-05_JPRB,0.50656E-05_JPRB,0.53705E-05_JPRB,0.56486E-05_JPRB,0.59100E-05_JPRB /) 
930KB(:,43, 5) = (/ &
931 & 0.38802E-05_JPRB,0.41533E-05_JPRB,0.44089E-05_JPRB,0.46515E-05_JPRB,0.48719E-05_JPRB /) 
932KB(:,44, 5) = (/ &
933 & 0.31658E-05_JPRB,0.33971E-05_JPRB,0.36177E-05_JPRB,0.38205E-05_JPRB,0.40089E-05_JPRB /) 
934KB(:,45, 5) = (/ &
935 & 0.25796E-05_JPRB,0.27740E-05_JPRB,0.29635E-05_JPRB,0.31336E-05_JPRB,0.32986E-05_JPRB /) 
936KB(:,46, 5) = (/ &
937 & 0.20945E-05_JPRB,0.22636E-05_JPRB,0.24214E-05_JPRB,0.25698E-05_JPRB,0.27077E-05_JPRB /) 
938KB(:,47, 5) = (/ &
939 & 0.16931E-05_JPRB,0.18383E-05_JPRB,0.19729E-05_JPRB,0.20996E-05_JPRB,0.22172E-05_JPRB /) 
940KB(:,48, 5) = (/ &
941 & 0.13650E-05_JPRB,0.14889E-05_JPRB,0.16043E-05_JPRB,0.17139E-05_JPRB,0.18136E-05_JPRB /) 
942KB(:,49, 5) = (/ &
943 & 0.10981E-05_JPRB,0.12042E-05_JPRB,0.13028E-05_JPRB,0.13963E-05_JPRB,0.14824E-05_JPRB /) 
944KB(:,50, 5) = (/ &
945 & 0.88407E-06_JPRB,0.97370E-06_JPRB,0.10589E-05_JPRB,0.11383E-05_JPRB,0.12124E-05_JPRB /) 
946KB(:,51, 5) = (/ &
947 & 0.71150E-06_JPRB,0.78682E-06_JPRB,0.86048E-06_JPRB,0.92711E-06_JPRB,0.99128E-06_JPRB /) 
948KB(:,52, 5) = (/ &
949 & 0.57140E-06_JPRB,0.63513E-06_JPRB,0.69790E-06_JPRB,0.75466E-06_JPRB,0.80946E-06_JPRB /) 
950KB(:,53, 5) = (/ &
951 & 0.45871E-06_JPRB,0.51183E-06_JPRB,0.56494E-06_JPRB,0.61376E-06_JPRB,0.66022E-06_JPRB /) 
952KB(:,54, 5) = (/ &
953 & 0.36889E-06_JPRB,0.41319E-06_JPRB,0.45759E-06_JPRB,0.49973E-06_JPRB,0.53933E-06_JPRB /) 
954KB(:,55, 5) = (/ &
955 & 0.29683E-06_JPRB,0.33396E-06_JPRB,0.37110E-06_JPRB,0.40671E-06_JPRB,0.44026E-06_JPRB /) 
956KB(:,56, 5) = (/ &
957 & 0.23828E-06_JPRB,0.26973E-06_JPRB,0.30048E-06_JPRB,0.33099E-06_JPRB,0.35949E-06_JPRB /) 
958KB(:,57, 5) = (/ &
959 & 0.19083E-06_JPRB,0.21782E-06_JPRB,0.24350E-06_JPRB,0.26883E-06_JPRB,0.29309E-06_JPRB /) 
960KB(:,58, 5) = (/ &
961 & 0.15334E-06_JPRB,0.17592E-06_JPRB,0.19753E-06_JPRB,0.21869E-06_JPRB,0.23903E-06_JPRB /) 
962KB(:,59, 5) = (/ &
963 & 0.12635E-06_JPRB,0.14504E-06_JPRB,0.16321E-06_JPRB,0.18074E-06_JPRB,0.19759E-06_JPRB /) 
964KB(:,13, 6) = (/ &
965 & 0.33433E-02_JPRB,0.34159E-02_JPRB,0.34798E-02_JPRB,0.35397E-02_JPRB,0.35995E-02_JPRB /) 
966KB(:,14, 6) = (/ &
967 & 0.28039E-02_JPRB,0.28589E-02_JPRB,0.29090E-02_JPRB,0.29595E-02_JPRB,0.30108E-02_JPRB /) 
968KB(:,15, 6) = (/ &
969 & 0.23135E-02_JPRB,0.23579E-02_JPRB,0.24012E-02_JPRB,0.24470E-02_JPRB,0.24900E-02_JPRB /) 
970KB(:,16, 6) = (/ &
971 & 0.18925E-02_JPRB,0.19281E-02_JPRB,0.19671E-02_JPRB,0.20090E-02_JPRB,0.20445E-02_JPRB /) 
972KB(:,17, 6) = (/ &
973 & 0.15365E-02_JPRB,0.15703E-02_JPRB,0.16039E-02_JPRB,0.16424E-02_JPRB,0.16760E-02_JPRB /) 
974KB(:,18, 6) = (/ &
975 & 0.12424E-02_JPRB,0.12746E-02_JPRB,0.13067E-02_JPRB,0.13397E-02_JPRB,0.13687E-02_JPRB /) 
976KB(:,19, 6) = (/ &
977 & 0.10113E-02_JPRB,0.10417E-02_JPRB,0.10664E-02_JPRB,0.10958E-02_JPRB,0.11231E-02_JPRB /) 
978KB(:,20, 6) = (/ &
979 & 0.83375E-03_JPRB,0.85863E-03_JPRB,0.88098E-03_JPRB,0.90680E-03_JPRB,0.93093E-03_JPRB /) 
980KB(:,21, 6) = (/ &
981 & 0.68849E-03_JPRB,0.71056E-03_JPRB,0.73161E-03_JPRB,0.75402E-03_JPRB,0.77432E-03_JPRB /) 
982KB(:,22, 6) = (/ &
983 & 0.57076E-03_JPRB,0.59001E-03_JPRB,0.60925E-03_JPRB,0.62816E-03_JPRB,0.64531E-03_JPRB /) 
984KB(:,23, 6) = (/ &
985 & 0.47462E-03_JPRB,0.49138E-03_JPRB,0.50818E-03_JPRB,0.52421E-03_JPRB,0.53930E-03_JPRB /) 
986KB(:,24, 6) = (/ &
987 & 0.39552E-03_JPRB,0.41011E-03_JPRB,0.42460E-03_JPRB,0.43865E-03_JPRB,0.45206E-03_JPRB /) 
988KB(:,25, 6) = (/ &
989 & 0.33041E-03_JPRB,0.34317E-03_JPRB,0.35573E-03_JPRB,0.36800E-03_JPRB,0.38005E-03_JPRB /) 
990KB(:,26, 6) = (/ &
991 & 0.27699E-03_JPRB,0.28806E-03_JPRB,0.29892E-03_JPRB,0.30983E-03_JPRB,0.32038E-03_JPRB /) 
992KB(:,27, 6) = (/ &
993 & 0.23253E-03_JPRB,0.24229E-03_JPRB,0.25208E-03_JPRB,0.26144E-03_JPRB,0.27039E-03_JPRB /) 
994KB(:,28, 6) = (/ &
995 & 0.19573E-03_JPRB,0.20442E-03_JPRB,0.21276E-03_JPRB,0.22087E-03_JPRB,0.22869E-03_JPRB /) 
996KB(:,29, 6) = (/ &
997 & 0.16528E-03_JPRB,0.17271E-03_JPRB,0.17974E-03_JPRB,0.18681E-03_JPRB,0.19373E-03_JPRB /) 
998KB(:,30, 6) = (/ &
999 & 0.13949E-03_JPRB,0.14599E-03_JPRB,0.15214E-03_JPRB,0.15834E-03_JPRB,0.16448E-03_JPRB /) 
1000KB(:,31, 6) = (/ &
1001 & 0.11793E-03_JPRB,0.12345E-03_JPRB,0.12891E-03_JPRB,0.13432E-03_JPRB,0.13975E-03_JPRB /) 
1002KB(:,32, 6) = (/ &
1003 & 0.99845E-04_JPRB,0.10464E-03_JPRB,0.10941E-03_JPRB,0.11425E-03_JPRB,0.11896E-03_JPRB /) 
1004KB(:,33, 6) = (/ &
1005 & 0.84723E-04_JPRB,0.88808E-04_JPRB,0.93054E-04_JPRB,0.97257E-04_JPRB,0.10144E-03_JPRB /) 
1006KB(:,34, 6) = (/ &
1007 & 0.71857E-04_JPRB,0.75478E-04_JPRB,0.79245E-04_JPRB,0.82878E-04_JPRB,0.86527E-04_JPRB /) 
1008KB(:,35, 6) = (/ &
1009 & 0.60741E-04_JPRB,0.63987E-04_JPRB,0.67190E-04_JPRB,0.70445E-04_JPRB,0.73634E-04_JPRB /) 
1010KB(:,36, 6) = (/ &
1011 & 0.51094E-04_JPRB,0.53953E-04_JPRB,0.56787E-04_JPRB,0.59644E-04_JPRB,0.62421E-04_JPRB /) 
1012KB(:,37, 6) = (/ &
1013 & 0.42809E-04_JPRB,0.45324E-04_JPRB,0.47805E-04_JPRB,0.50314E-04_JPRB,0.52797E-04_JPRB /) 
1014KB(:,38, 6) = (/ &
1015 & 0.35862E-04_JPRB,0.38082E-04_JPRB,0.40249E-04_JPRB,0.42459E-04_JPRB,0.44691E-04_JPRB /) 
1016KB(:,39, 6) = (/ &
1017 & 0.30047E-04_JPRB,0.31970E-04_JPRB,0.33877E-04_JPRB,0.35841E-04_JPRB,0.37792E-04_JPRB /) 
1018KB(:,40, 6) = (/ &
1019 & 0.25051E-04_JPRB,0.26734E-04_JPRB,0.28429E-04_JPRB,0.30177E-04_JPRB,0.31859E-04_JPRB /) 
1020KB(:,41, 6) = (/ &
1021 & 0.20858E-04_JPRB,0.22337E-04_JPRB,0.23837E-04_JPRB,0.25348E-04_JPRB,0.26845E-04_JPRB /) 
1022KB(:,42, 6) = (/ &
1023 & 0.17358E-04_JPRB,0.18653E-04_JPRB,0.19947E-04_JPRB,0.21279E-04_JPRB,0.22614E-04_JPRB /) 
1024KB(:,43, 6) = (/ &
1025 & 0.14382E-04_JPRB,0.15507E-04_JPRB,0.16637E-04_JPRB,0.17808E-04_JPRB,0.18975E-04_JPRB /) 
1026KB(:,44, 6) = (/ &
1027 & 0.11875E-04_JPRB,0.12851E-04_JPRB,0.13847E-04_JPRB,0.14865E-04_JPRB,0.15886E-04_JPRB /) 
1028KB(:,45, 6) = (/ &
1029 & 0.97824E-05_JPRB,0.10641E-04_JPRB,0.11497E-04_JPRB,0.12386E-04_JPRB,0.13288E-04_JPRB /) 
1030KB(:,46, 6) = (/ &
1031 & 0.80305E-05_JPRB,0.87712E-05_JPRB,0.95170E-05_JPRB,0.10282E-04_JPRB,0.11073E-04_JPRB /) 
1032KB(:,47, 6) = (/ &
1033 & 0.65554E-05_JPRB,0.71881E-05_JPRB,0.78331E-05_JPRB,0.85022E-05_JPRB,0.91799E-05_JPRB /) 
1034KB(:,48, 6) = (/ &
1035 & 0.53399E-05_JPRB,0.58818E-05_JPRB,0.64364E-05_JPRB,0.70093E-05_JPRB,0.75992E-05_JPRB /) 
1036KB(:,49, 6) = (/ &
1037 & 0.43396E-05_JPRB,0.47990E-05_JPRB,0.52727E-05_JPRB,0.57633E-05_JPRB,0.62785E-05_JPRB /) 
1038KB(:,50, 6) = (/ &
1039 & 0.35272E-05_JPRB,0.39139E-05_JPRB,0.43230E-05_JPRB,0.47423E-05_JPRB,0.51819E-05_JPRB /) 
1040KB(:,51, 6) = (/ &
1041 & 0.28624E-05_JPRB,0.31913E-05_JPRB,0.35379E-05_JPRB,0.38979E-05_JPRB,0.42744E-05_JPRB /) 
1042KB(:,52, 6) = (/ &
1043 & 0.23189E-05_JPRB,0.25961E-05_JPRB,0.28907E-05_JPRB,0.31976E-05_JPRB,0.35200E-05_JPRB /) 
1044KB(:,53, 6) = (/ &
1045 & 0.18736E-05_JPRB,0.21072E-05_JPRB,0.23576E-05_JPRB,0.26179E-05_JPRB,0.28943E-05_JPRB /) 
1046KB(:,54, 6) = (/ &
1047 & 0.15155E-05_JPRB,0.17135E-05_JPRB,0.19245E-05_JPRB,0.21451E-05_JPRB,0.23808E-05_JPRB /) 
1048KB(:,55, 6) = (/ &
1049 & 0.12250E-05_JPRB,0.13923E-05_JPRB,0.15714E-05_JPRB,0.17578E-05_JPRB,0.19597E-05_JPRB /) 
1050KB(:,56, 6) = (/ &
1051 & 0.99012E-06_JPRB,0.11296E-05_JPRB,0.12801E-05_JPRB,0.14395E-05_JPRB,0.16107E-05_JPRB /) 
1052KB(:,57, 6) = (/ &
1053 & 0.79875E-06_JPRB,0.91418E-06_JPRB,0.10408E-05_JPRB,0.11777E-05_JPRB,0.13212E-05_JPRB /) 
1054KB(:,58, 6) = (/ &
1055 & 0.64474E-06_JPRB,0.74109E-06_JPRB,0.84664E-06_JPRB,0.96328E-06_JPRB,0.10849E-05_JPRB /) 
1056KB(:,59, 6) = (/ &
1057 & 0.53296E-06_JPRB,0.61427E-06_JPRB,0.70385E-06_JPRB,0.80375E-06_JPRB,0.90863E-06_JPRB /) 
1058KB(:,13, 7) = (/ &
1059 & 0.91063E-02_JPRB,0.92681E-02_JPRB,0.94045E-02_JPRB,0.95388E-02_JPRB,0.96735E-02_JPRB /) 
1060KB(:,14, 7) = (/ &
1061 & 0.78483E-02_JPRB,0.79806E-02_JPRB,0.81238E-02_JPRB,0.82528E-02_JPRB,0.83603E-02_JPRB /) 
1062KB(:,15, 7) = (/ &
1063 & 0.66269E-02_JPRB,0.67445E-02_JPRB,0.68845E-02_JPRB,0.69911E-02_JPRB,0.70854E-02_JPRB /) 
1064KB(:,16, 7) = (/ &
1065 & 0.55183E-02_JPRB,0.56414E-02_JPRB,0.57574E-02_JPRB,0.58487E-02_JPRB,0.59407E-02_JPRB /) 
1066KB(:,17, 7) = (/ &
1067 & 0.45693E-02_JPRB,0.46780E-02_JPRB,0.47743E-02_JPRB,0.48625E-02_JPRB,0.49467E-02_JPRB /) 
1068KB(:,18, 7) = (/ &
1069 & 0.37611E-02_JPRB,0.38535E-02_JPRB,0.39408E-02_JPRB,0.40234E-02_JPRB,0.41007E-02_JPRB /) 
1070KB(:,19, 7) = (/ &
1071 & 0.30991E-02_JPRB,0.31809E-02_JPRB,0.32647E-02_JPRB,0.33388E-02_JPRB,0.34042E-02_JPRB /) 
1072KB(:,20, 7) = (/ &
1073 & 0.25858E-02_JPRB,0.26585E-02_JPRB,0.27347E-02_JPRB,0.27990E-02_JPRB,0.28579E-02_JPRB /) 
1074KB(:,21, 7) = (/ &
1075 & 0.21672E-02_JPRB,0.22326E-02_JPRB,0.22973E-02_JPRB,0.23547E-02_JPRB,0.24058E-02_JPRB /) 
1076KB(:,22, 7) = (/ &
1077 & 0.18211E-02_JPRB,0.18809E-02_JPRB,0.19364E-02_JPRB,0.19859E-02_JPRB,0.20352E-02_JPRB /) 
1078KB(:,23, 7) = (/ &
1079 & 0.15314E-02_JPRB,0.15844E-02_JPRB,0.16332E-02_JPRB,0.16760E-02_JPRB,0.17243E-02_JPRB /) 
1080KB(:,24, 7) = (/ &
1081 & 0.12924E-02_JPRB,0.13385E-02_JPRB,0.13793E-02_JPRB,0.14209E-02_JPRB,0.14659E-02_JPRB /) 
1082KB(:,25, 7) = (/ &
1083 & 0.10926E-02_JPRB,0.11322E-02_JPRB,0.11689E-02_JPRB,0.12081E-02_JPRB,0.12493E-02_JPRB /) 
1084KB(:,26, 7) = (/ &
1085 & 0.92756E-03_JPRB,0.96136E-03_JPRB,0.99601E-03_JPRB,0.10324E-02_JPRB,0.10695E-02_JPRB /) 
1086KB(:,27, 7) = (/ &
1087 & 0.78832E-03_JPRB,0.81893E-03_JPRB,0.85137E-03_JPRB,0.88465E-03_JPRB,0.91885E-03_JPRB /) 
1088KB(:,28, 7) = (/ &
1089 & 0.67097E-03_JPRB,0.69979E-03_JPRB,0.72985E-03_JPRB,0.76038E-03_JPRB,0.79213E-03_JPRB /) 
1090KB(:,29, 7) = (/ &
1091 & 0.57231E-03_JPRB,0.59934E-03_JPRB,0.62727E-03_JPRB,0.65471E-03_JPRB,0.68389E-03_JPRB /) 
1092KB(:,30, 7) = (/ &
1093 & 0.48996E-03_JPRB,0.51441E-03_JPRB,0.53945E-03_JPRB,0.56564E-03_JPRB,0.59164E-03_JPRB /) 
1094KB(:,31, 7) = (/ &
1095 & 0.41998E-03_JPRB,0.44237E-03_JPRB,0.46551E-03_JPRB,0.48924E-03_JPRB,0.51322E-03_JPRB /) 
1096KB(:,32, 7) = (/ &
1097 & 0.36133E-03_JPRB,0.38168E-03_JPRB,0.40297E-03_JPRB,0.42441E-03_JPRB,0.44722E-03_JPRB /) 
1098KB(:,33, 7) = (/ &
1099 & 0.31153E-03_JPRB,0.33055E-03_JPRB,0.34980E-03_JPRB,0.36972E-03_JPRB,0.39086E-03_JPRB /) 
1100KB(:,34, 7) = (/ &
1101 & 0.26941E-03_JPRB,0.28657E-03_JPRB,0.30436E-03_JPRB,0.32295E-03_JPRB,0.34256E-03_JPRB /) 
1102KB(:,35, 7) = (/ &
1103 & 0.23210E-03_JPRB,0.24782E-03_JPRB,0.26411E-03_JPRB,0.28121E-03_JPRB,0.29930E-03_JPRB /) 
1104KB(:,36, 7) = (/ &
1105 & 0.19904E-03_JPRB,0.21311E-03_JPRB,0.22797E-03_JPRB,0.24380E-03_JPRB,0.26030E-03_JPRB /) 
1106KB(:,37, 7) = (/ &
1107 & 0.17000E-03_JPRB,0.18300E-03_JPRB,0.19666E-03_JPRB,0.21128E-03_JPRB,0.22641E-03_JPRB /) 
1108KB(:,38, 7) = (/ &
1109 & 0.14528E-03_JPRB,0.15704E-03_JPRB,0.16975E-03_JPRB,0.18320E-03_JPRB,0.19735E-03_JPRB /) 
1110KB(:,39, 7) = (/ &
1111 & 0.12414E-03_JPRB,0.13496E-03_JPRB,0.14654E-03_JPRB,0.15899E-03_JPRB,0.17211E-03_JPRB /) 
1112KB(:,40, 7) = (/ &
1113 & 0.10567E-03_JPRB,0.11547E-03_JPRB,0.12618E-03_JPRB,0.13765E-03_JPRB,0.14994E-03_JPRB /) 
1114KB(:,41, 7) = (/ &
1115 & 0.89774E-04_JPRB,0.98751E-04_JPRB,0.10852E-03_JPRB,0.11918E-03_JPRB,0.13057E-03_JPRB /) 
1116KB(:,42, 7) = (/ &
1117 & 0.76232E-04_JPRB,0.84383E-04_JPRB,0.93336E-04_JPRB,0.10314E-03_JPRB,0.11381E-03_JPRB /) 
1118KB(:,43, 7) = (/ &
1119 & 0.64370E-04_JPRB,0.71684E-04_JPRB,0.79797E-04_JPRB,0.88850E-04_JPRB,0.98733E-04_JPRB /) 
1120KB(:,44, 7) = (/ &
1121 & 0.54125E-04_JPRB,0.60680E-04_JPRB,0.68042E-04_JPRB,0.76313E-04_JPRB,0.85432E-04_JPRB /) 
1122KB(:,45, 7) = (/ &
1123 & 0.45374E-04_JPRB,0.51280E-04_JPRB,0.57932E-04_JPRB,0.65429E-04_JPRB,0.73852E-04_JPRB /) 
1124KB(:,46, 7) = (/ &
1125 & 0.37861E-04_JPRB,0.43078E-04_JPRB,0.49016E-04_JPRB,0.55844E-04_JPRB,0.63538E-04_JPRB /) 
1126KB(:,47, 7) = (/ &
1127 & 0.31342E-04_JPRB,0.35879E-04_JPRB,0.41175E-04_JPRB,0.47252E-04_JPRB,0.54286E-04_JPRB /) 
1128KB(:,48, 7) = (/ &
1129 & 0.25821E-04_JPRB,0.29777E-04_JPRB,0.34458E-04_JPRB,0.39880E-04_JPRB,0.46218E-04_JPRB /) 
1130KB(:,49, 7) = (/ &
1131 & 0.21180E-04_JPRB,0.24617E-04_JPRB,0.28719E-04_JPRB,0.33507E-04_JPRB,0.39184E-04_JPRB /) 
1132KB(:,50, 7) = (/ &
1133 & 0.17377E-04_JPRB,0.20345E-04_JPRB,0.23916E-04_JPRB,0.28177E-04_JPRB,0.33237E-04_JPRB /) 
1134KB(:,51, 7) = (/ &
1135 & 0.14223E-04_JPRB,0.16790E-04_JPRB,0.19868E-04_JPRB,0.23656E-04_JPRB,0.28163E-04_JPRB /) 
1136KB(:,52, 7) = (/ &
1137 & 0.11593E-04_JPRB,0.13788E-04_JPRB,0.16479E-04_JPRB,0.19773E-04_JPRB,0.23765E-04_JPRB /) 
1138KB(:,53, 7) = (/ &
1139 & 0.94141E-05_JPRB,0.11279E-04_JPRB,0.13591E-04_JPRB,0.16447E-04_JPRB,0.19969E-04_JPRB /) 
1140KB(:,54, 7) = (/ &
1141 & 0.76622E-05_JPRB,0.92417E-05_JPRB,0.11233E-04_JPRB,0.13709E-04_JPRB,0.16819E-04_JPRB /) 
1142KB(:,55, 7) = (/ &
1143 & 0.62315E-05_JPRB,0.75671E-05_JPRB,0.92699E-05_JPRB,0.11429E-04_JPRB,0.14186E-04_JPRB /) 
1144KB(:,56, 7) = (/ &
1145 & 0.50473E-05_JPRB,0.61766E-05_JPRB,0.76316E-05_JPRB,0.94979E-05_JPRB,0.11890E-04_JPRB /) 
1146KB(:,57, 7) = (/ &
1147 & 0.40773E-05_JPRB,0.50242E-05_JPRB,0.62540E-05_JPRB,0.78594E-05_JPRB,0.99378E-05_JPRB /) 
1148KB(:,58, 7) = (/ &
1149 & 0.32937E-05_JPRB,0.40862E-05_JPRB,0.51228E-05_JPRB,0.64992E-05_JPRB,0.83112E-05_JPRB /) 
1150KB(:,59, 7) = (/ &
1151 & 0.27593E-05_JPRB,0.34505E-05_JPRB,0.43716E-05_JPRB,0.56035E-05_JPRB,0.72609E-05_JPRB /) 
1152KB(:,13, 8) = (/ &
1153 & 0.25990E-01_JPRB,0.25997E-01_JPRB,0.26024E-01_JPRB,0.26038E-01_JPRB,0.26132E-01_JPRB /) 
1154KB(:,14, 8) = (/ &
1155 & 0.22648E-01_JPRB,0.22731E-01_JPRB,0.22803E-01_JPRB,0.22861E-01_JPRB,0.23020E-01_JPRB /) 
1156KB(:,15, 8) = (/ &
1157 & 0.19641E-01_JPRB,0.19812E-01_JPRB,0.19880E-01_JPRB,0.19998E-01_JPRB,0.20141E-01_JPRB /) 
1158KB(:,16, 8) = (/ &
1159 & 0.16909E-01_JPRB,0.17030E-01_JPRB,0.17148E-01_JPRB,0.17296E-01_JPRB,0.17502E-01_JPRB /) 
1160KB(:,17, 8) = (/ &
1161 & 0.14365E-01_JPRB,0.14504E-01_JPRB,0.14643E-01_JPRB,0.14808E-01_JPRB,0.14996E-01_JPRB /) 
1162KB(:,18, 8) = (/ &
1163 & 0.12072E-01_JPRB,0.12207E-01_JPRB,0.12346E-01_JPRB,0.12513E-01_JPRB,0.12742E-01_JPRB /) 
1164KB(:,19, 8) = (/ &
1165 & 0.10135E-01_JPRB,0.10263E-01_JPRB,0.10402E-01_JPRB,0.10602E-01_JPRB,0.10794E-01_JPRB /) 
1166KB(:,20, 8) = (/ &
1167 & 0.86508E-02_JPRB,0.87951E-02_JPRB,0.89765E-02_JPRB,0.91530E-02_JPRB,0.93447E-02_JPRB /) 
1168KB(:,21, 8) = (/ &
1169 & 0.74228E-02_JPRB,0.75964E-02_JPRB,0.77805E-02_JPRB,0.79441E-02_JPRB,0.81266E-02_JPRB /) 
1170KB(:,22, 8) = (/ &
1171 & 0.63949E-02_JPRB,0.65920E-02_JPRB,0.67584E-02_JPRB,0.69298E-02_JPRB,0.70968E-02_JPRB /) 
1172KB(:,23, 8) = (/ &
1173 & 0.55389E-02_JPRB,0.57165E-02_JPRB,0.58834E-02_JPRB,0.60490E-02_JPRB,0.62163E-02_JPRB /) 
1174KB(:,24, 8) = (/ &
1175 & 0.47980E-02_JPRB,0.49696E-02_JPRB,0.51333E-02_JPRB,0.53055E-02_JPRB,0.54695E-02_JPRB /) 
1176KB(:,25, 8) = (/ &
1177 & 0.41676E-02_JPRB,0.43357E-02_JPRB,0.44999E-02_JPRB,0.46749E-02_JPRB,0.48179E-02_JPRB /) 
1178KB(:,26, 8) = (/ &
1179 & 0.36391E-02_JPRB,0.38079E-02_JPRB,0.39834E-02_JPRB,0.41374E-02_JPRB,0.42754E-02_JPRB /) 
1180KB(:,27, 8) = (/ &
1181 & 0.31917E-02_JPRB,0.33580E-02_JPRB,0.35237E-02_JPRB,0.36737E-02_JPRB,0.37982E-02_JPRB /) 
1182KB(:,28, 8) = (/ &
1183 & 0.28096E-02_JPRB,0.29709E-02_JPRB,0.31242E-02_JPRB,0.32613E-02_JPRB,0.33829E-02_JPRB /) 
1184KB(:,29, 8) = (/ &
1185 & 0.24786E-02_JPRB,0.26272E-02_JPRB,0.27706E-02_JPRB,0.28986E-02_JPRB,0.30130E-02_JPRB /) 
1186KB(:,30, 8) = (/ &
1187 & 0.21907E-02_JPRB,0.23282E-02_JPRB,0.24574E-02_JPRB,0.25778E-02_JPRB,0.26806E-02_JPRB /) 
1188KB(:,31, 8) = (/ &
1189 & 0.19346E-02_JPRB,0.20569E-02_JPRB,0.21757E-02_JPRB,0.22805E-02_JPRB,0.23742E-02_JPRB /) 
1190KB(:,32, 8) = (/ &
1191 & 0.17101E-02_JPRB,0.18247E-02_JPRB,0.19308E-02_JPRB,0.20256E-02_JPRB,0.21176E-02_JPRB /) 
1192KB(:,33, 8) = (/ &
1193 & 0.15171E-02_JPRB,0.16168E-02_JPRB,0.17121E-02_JPRB,0.18035E-02_JPRB,0.18911E-02_JPRB /) 
1194KB(:,34, 8) = (/ &
1195 & 0.13466E-02_JPRB,0.14390E-02_JPRB,0.15246E-02_JPRB,0.16083E-02_JPRB,0.16921E-02_JPRB /) 
1196KB(:,35, 8) = (/ &
1197 & 0.11871E-02_JPRB,0.12698E-02_JPRB,0.13534E-02_JPRB,0.14320E-02_JPRB,0.15071E-02_JPRB /) 
1198KB(:,36, 8) = (/ &
1199 & 0.10388E-02_JPRB,0.11179E-02_JPRB,0.11934E-02_JPRB,0.12647E-02_JPRB,0.13391E-02_JPRB /) 
1200KB(:,37, 8) = (/ &
1201 & 0.92233E-03_JPRB,0.99854E-03_JPRB,0.10722E-02_JPRB,0.11426E-02_JPRB,0.12118E-02_JPRB /) 
1202KB(:,38, 8) = (/ &
1203 & 0.81843E-03_JPRB,0.89236E-03_JPRB,0.96605E-03_JPRB,0.10340E-02_JPRB,0.11003E-02_JPRB /) 
1204KB(:,39, 8) = (/ &
1205 & 0.72738E-03_JPRB,0.79777E-03_JPRB,0.86997E-03_JPRB,0.93496E-03_JPRB,0.99852E-03_JPRB /) 
1206KB(:,40, 8) = (/ &
1207 & 0.65149E-03_JPRB,0.72098E-03_JPRB,0.79235E-03_JPRB,0.86116E-03_JPRB,0.92474E-03_JPRB /) 
1208KB(:,41, 8) = (/ &
1209 & 0.58318E-03_JPRB,0.65154E-03_JPRB,0.72160E-03_JPRB,0.79400E-03_JPRB,0.85973E-03_JPRB /) 
1210KB(:,42, 8) = (/ &
1211 & 0.52127E-03_JPRB,0.58770E-03_JPRB,0.65781E-03_JPRB,0.73110E-03_JPRB,0.80165E-03_JPRB /) 
1212KB(:,43, 8) = (/ &
1213 & 0.46404E-03_JPRB,0.52960E-03_JPRB,0.59886E-03_JPRB,0.67366E-03_JPRB,0.74727E-03_JPRB /) 
1214KB(:,44, 8) = (/ &
1215 & 0.41229E-03_JPRB,0.47609E-03_JPRB,0.54424E-03_JPRB,0.61918E-03_JPRB,0.69366E-03_JPRB /) 
1216KB(:,45, 8) = (/ &
1217 & 0.36534E-03_JPRB,0.42624E-03_JPRB,0.49374E-03_JPRB,0.56668E-03_JPRB,0.64364E-03_JPRB /) 
1218KB(:,46, 8) = (/ &
1219 & 0.32134E-03_JPRB,0.37987E-03_JPRB,0.44597E-03_JPRB,0.51669E-03_JPRB,0.59469E-03_JPRB /) 
1220KB(:,47, 8) = (/ &
1221 & 0.27855E-03_JPRB,0.33531E-03_JPRB,0.39855E-03_JPRB,0.46832E-03_JPRB,0.54562E-03_JPRB /) 
1222KB(:,48, 8) = (/ &
1223 & 0.24094E-03_JPRB,0.29440E-03_JPRB,0.35477E-03_JPRB,0.42284E-03_JPRB,0.49767E-03_JPRB /) 
1224KB(:,49, 8) = (/ &
1225 & 0.20710E-03_JPRB,0.25712E-03_JPRB,0.31425E-03_JPRB,0.38098E-03_JPRB,0.45465E-03_JPRB /) 
1226KB(:,50, 8) = (/ &
1227 & 0.17757E-03_JPRB,0.22422E-03_JPRB,0.27906E-03_JPRB,0.34231E-03_JPRB,0.41419E-03_JPRB /) 
1228KB(:,51, 8) = (/ &
1229 & 0.15198E-03_JPRB,0.19538E-03_JPRB,0.24758E-03_JPRB,0.30796E-03_JPRB,0.37765E-03_JPRB /) 
1230KB(:,52, 8) = (/ &
1231 & 0.12943E-03_JPRB,0.16907E-03_JPRB,0.21812E-03_JPRB,0.27585E-03_JPRB,0.34284E-03_JPRB /) 
1232KB(:,53, 8) = (/ &
1233 & 0.10946E-03_JPRB,0.14560E-03_JPRB,0.19103E-03_JPRB,0.24633E-03_JPRB,0.31049E-03_JPRB /) 
1234KB(:,54, 8) = (/ &
1235 & 0.92950E-04_JPRB,0.12599E-03_JPRB,0.16848E-03_JPRB,0.22109E-03_JPRB,0.28266E-03_JPRB /) 
1236KB(:,55, 8) = (/ &
1237 & 0.78722E-04_JPRB,0.10883E-03_JPRB,0.14831E-03_JPRB,0.19790E-03_JPRB,0.25770E-03_JPRB /) 
1238KB(:,56, 8) = (/ &
1239 & 0.66323E-04_JPRB,0.93651E-04_JPRB,0.12983E-03_JPRB,0.17638E-03_JPRB,0.23393E-03_JPRB /) 
1240KB(:,57, 8) = (/ &
1241 & 0.55644E-04_JPRB,0.80085E-04_JPRB,0.11349E-03_JPRB,0.15741E-03_JPRB,0.21274E-03_JPRB /) 
1242KB(:,58, 8) = (/ &
1243 & 0.46537E-04_JPRB,0.68442E-04_JPRB,0.99190E-04_JPRB,0.14045E-03_JPRB,0.19327E-03_JPRB /) 
1244KB(:,59, 8) = (/ &
1245 & 0.41558E-04_JPRB,0.62503E-04_JPRB,0.92377E-04_JPRB,0.13258E-03_JPRB,0.18528E-03_JPRB /) 
1246KB(:,13, 9) = (/ &
1247 & 0.14836E+00_JPRB,0.15039E+00_JPRB,0.15239E+00_JPRB,0.15389E+00_JPRB,0.15517E+00_JPRB /) 
1248KB(:,14, 9) = (/ &
1249 & 0.12935E+00_JPRB,0.13183E+00_JPRB,0.13366E+00_JPRB,0.13551E+00_JPRB,0.13674E+00_JPRB /) 
1250KB(:,15, 9) = (/ &
1251 & 0.11269E+00_JPRB,0.11456E+00_JPRB,0.11672E+00_JPRB,0.11824E+00_JPRB,0.11951E+00_JPRB /) 
1252KB(:,16, 9) = (/ &
1253 & 0.97577E-01_JPRB,0.99647E-01_JPRB,0.10140E+00_JPRB,0.10272E+00_JPRB,0.10390E+00_JPRB /) 
1254KB(:,17, 9) = (/ &
1255 & 0.84601E-01_JPRB,0.86370E-01_JPRB,0.87860E-01_JPRB,0.89144E-01_JPRB,0.90341E-01_JPRB /) 
1256KB(:,18, 9) = (/ &
1257 & 0.72851E-01_JPRB,0.74498E-01_JPRB,0.75924E-01_JPRB,0.77220E-01_JPRB,0.78434E-01_JPRB /) 
1258KB(:,19, 9) = (/ &
1259 & 0.62688E-01_JPRB,0.64121E-01_JPRB,0.65574E-01_JPRB,0.66965E-01_JPRB,0.68243E-01_JPRB /) 
1260KB(:,20, 9) = (/ &
1261 & 0.54382E-01_JPRB,0.55704E-01_JPRB,0.57013E-01_JPRB,0.58303E-01_JPRB,0.59763E-01_JPRB /) 
1262KB(:,21, 9) = (/ &
1263 & 0.47190E-01_JPRB,0.48469E-01_JPRB,0.49752E-01_JPRB,0.51138E-01_JPRB,0.52452E-01_JPRB /) 
1264KB(:,22, 9) = (/ &
1265 & 0.41104E-01_JPRB,0.42378E-01_JPRB,0.43684E-01_JPRB,0.45035E-01_JPRB,0.46495E-01_JPRB /) 
1266KB(:,23, 9) = (/ &
1267 & 0.35910E-01_JPRB,0.37220E-01_JPRB,0.38484E-01_JPRB,0.39789E-01_JPRB,0.41443E-01_JPRB /) 
1268KB(:,24, 9) = (/ &
1269 & 0.31558E-01_JPRB,0.32836E-01_JPRB,0.34085E-01_JPRB,0.35462E-01_JPRB,0.37160E-01_JPRB /) 
1270KB(:,25, 9) = (/ &
1271 & 0.27861E-01_JPRB,0.29090E-01_JPRB,0.30363E-01_JPRB,0.31857E-01_JPRB,0.33566E-01_JPRB /) 
1272KB(:,26, 9) = (/ &
1273 & 0.24743E-01_JPRB,0.26003E-01_JPRB,0.27311E-01_JPRB,0.28788E-01_JPRB,0.30553E-01_JPRB /) 
1274KB(:,27, 9) = (/ &
1275 & 0.22141E-01_JPRB,0.23397E-01_JPRB,0.24754E-01_JPRB,0.26282E-01_JPRB,0.28040E-01_JPRB /) 
1276KB(:,28, 9) = (/ &
1277 & 0.19941E-01_JPRB,0.21165E-01_JPRB,0.22565E-01_JPRB,0.24131E-01_JPRB,0.25980E-01_JPRB /) 
1278KB(:,29, 9) = (/ &
1279 & 0.18046E-01_JPRB,0.19353E-01_JPRB,0.20736E-01_JPRB,0.22375E-01_JPRB,0.24248E-01_JPRB /) 
1280KB(:,30, 9) = (/ &
1281 & 0.16429E-01_JPRB,0.17775E-01_JPRB,0.19238E-01_JPRB,0.20907E-01_JPRB,0.22847E-01_JPRB /) 
1282KB(:,31, 9) = (/ &
1283 & 0.15094E-01_JPRB,0.16450E-01_JPRB,0.17992E-01_JPRB,0.19741E-01_JPRB,0.21608E-01_JPRB /) 
1284KB(:,32, 9) = (/ &
1285 & 0.13975E-01_JPRB,0.15315E-01_JPRB,0.16950E-01_JPRB,0.18741E-01_JPRB,0.20564E-01_JPRB /) 
1286KB(:,33, 9) = (/ &
1287 & 0.13026E-01_JPRB,0.14475E-01_JPRB,0.16113E-01_JPRB,0.17903E-01_JPRB,0.19794E-01_JPRB /) 
1288KB(:,34, 9) = (/ &
1289 & 0.12248E-01_JPRB,0.13747E-01_JPRB,0.15391E-01_JPRB,0.17142E-01_JPRB,0.19155E-01_JPRB /) 
1290KB(:,35, 9) = (/ &
1291 & 0.11491E-01_JPRB,0.12979E-01_JPRB,0.14611E-01_JPRB,0.16423E-01_JPRB,0.18475E-01_JPRB /) 
1292KB(:,36, 9) = (/ &
1293 & 0.10695E-01_JPRB,0.12142E-01_JPRB,0.13822E-01_JPRB,0.15678E-01_JPRB,0.17729E-01_JPRB /) 
1294KB(:,37, 9) = (/ &
1295 & 0.98761E-02_JPRB,0.11300E-01_JPRB,0.13000E-01_JPRB,0.14808E-01_JPRB,0.16848E-01_JPRB /) 
1296KB(:,38, 9) = (/ &
1297 & 0.91358E-02_JPRB,0.10538E-01_JPRB,0.12200E-01_JPRB,0.13999E-01_JPRB,0.16082E-01_JPRB /) 
1298KB(:,39, 9) = (/ &
1299 & 0.84558E-02_JPRB,0.98580E-02_JPRB,0.11508E-01_JPRB,0.13321E-01_JPRB,0.15372E-01_JPRB /) 
1300KB(:,40, 9) = (/ &
1301 & 0.78020E-02_JPRB,0.91740E-02_JPRB,0.10778E-01_JPRB,0.12588E-01_JPRB,0.14594E-01_JPRB /) 
1302KB(:,41, 9) = (/ &
1303 & 0.72028E-02_JPRB,0.85294E-02_JPRB,0.10093E-01_JPRB,0.11887E-01_JPRB,0.13872E-01_JPRB /) 
1304KB(:,42, 9) = (/ &
1305 & 0.66335E-02_JPRB,0.79299E-02_JPRB,0.94524E-02_JPRB,0.11233E-01_JPRB,0.13162E-01_JPRB /) 
1306KB(:,43, 9) = (/ &
1307 & 0.60936E-02_JPRB,0.73819E-02_JPRB,0.88361E-02_JPRB,0.10555E-01_JPRB,0.12456E-01_JPRB /) 
1308KB(:,44, 9) = (/ &
1309 & 0.55851E-02_JPRB,0.68018E-02_JPRB,0.82487E-02_JPRB,0.98836E-02_JPRB,0.11744E-01_JPRB /) 
1310KB(:,45, 9) = (/ &
1311 & 0.51361E-02_JPRB,0.62783E-02_JPRB,0.76910E-02_JPRB,0.92631E-02_JPRB,0.11096E-01_JPRB /) 
1312KB(:,46, 9) = (/ &
1313 & 0.46789E-02_JPRB,0.57877E-02_JPRB,0.71257E-02_JPRB,0.86688E-02_JPRB,0.10399E-01_JPRB /) 
1314KB(:,47, 9) = (/ &
1315 & 0.42434E-02_JPRB,0.53043E-02_JPRB,0.65448E-02_JPRB,0.80300E-02_JPRB,0.97286E-02_JPRB /) 
1316KB(:,48, 9) = (/ &
1317 & 0.38917E-02_JPRB,0.48269E-02_JPRB,0.60283E-02_JPRB,0.74378E-02_JPRB,0.90783E-02_JPRB /) 
1318KB(:,49, 9) = (/ &
1319 & 0.35823E-02_JPRB,0.43988E-02_JPRB,0.55409E-02_JPRB,0.68845E-02_JPRB,0.84495E-02_JPRB /) 
1320KB(:,50, 9) = (/ &
1321 & 0.33116E-02_JPRB,0.40852E-02_JPRB,0.51044E-02_JPRB,0.63885E-02_JPRB,0.78773E-02_JPRB /) 
1322KB(:,51, 9) = (/ &
1323 & 0.30752E-02_JPRB,0.38103E-02_JPRB,0.47346E-02_JPRB,0.59580E-02_JPRB,0.73779E-02_JPRB /) 
1324KB(:,52, 9) = (/ &
1325 & 0.28626E-02_JPRB,0.35553E-02_JPRB,0.44430E-02_JPRB,0.55409E-02_JPRB,0.69343E-02_JPRB /) 
1326KB(:,53, 9) = (/ &
1327 & 0.26485E-02_JPRB,0.33392E-02_JPRB,0.41695E-02_JPRB,0.51739E-02_JPRB,0.64753E-02_JPRB /) 
1328KB(:,54, 9) = (/ &
1329 & 0.24736E-02_JPRB,0.31489E-02_JPRB,0.39367E-02_JPRB,0.48954E-02_JPRB,0.61401E-02_JPRB /) 
1330KB(:,55, 9) = (/ &
1331 & 0.23362E-02_JPRB,0.29819E-02_JPRB,0.37593E-02_JPRB,0.46985E-02_JPRB,0.58363E-02_JPRB /) 
1332KB(:,56, 9) = (/ &
1333 & 0.22243E-02_JPRB,0.28447E-02_JPRB,0.35827E-02_JPRB,0.44762E-02_JPRB,0.55720E-02_JPRB /) 
1334KB(:,57, 9) = (/ &
1335 & 0.21389E-02_JPRB,0.27081E-02_JPRB,0.34315E-02_JPRB,0.43182E-02_JPRB,0.53898E-02_JPRB /) 
1336KB(:,58, 9) = (/ &
1337 & 0.20428E-02_JPRB,0.25997E-02_JPRB,0.33047E-02_JPRB,0.41726E-02_JPRB,0.52071E-02_JPRB /) 
1338KB(:,59, 9) = (/ &
1339 & 0.20538E-02_JPRB,0.26323E-02_JPRB,0.33247E-02_JPRB,0.41770E-02_JPRB,0.52496E-02_JPRB /) 
1340KB(:,13,10) = (/ &
1341 & 0.58637E+00_JPRB,0.59481E+00_JPRB,0.59811E+00_JPRB,0.60451E+00_JPRB,0.60418E+00_JPRB /) 
1342KB(:,14,10) = (/ &
1343 & 0.53191E+00_JPRB,0.53363E+00_JPRB,0.53861E+00_JPRB,0.53976E+00_JPRB,0.53933E+00_JPRB /) 
1344KB(:,15,10) = (/ &
1345 & 0.47845E+00_JPRB,0.48447E+00_JPRB,0.48498E+00_JPRB,0.48691E+00_JPRB,0.48935E+00_JPRB /) 
1346KB(:,16,10) = (/ &
1347 & 0.42695E+00_JPRB,0.43265E+00_JPRB,0.43442E+00_JPRB,0.43949E+00_JPRB,0.44244E+00_JPRB /) 
1348KB(:,17,10) = (/ &
1349 & 0.37796E+00_JPRB,0.38437E+00_JPRB,0.38958E+00_JPRB,0.39367E+00_JPRB,0.39802E+00_JPRB /) 
1350KB(:,18,10) = (/ &
1351 & 0.33399E+00_JPRB,0.33971E+00_JPRB,0.34517E+00_JPRB,0.35032E+00_JPRB,0.35265E+00_JPRB /) 
1352KB(:,19,10) = (/ &
1353 & 0.29538E+00_JPRB,0.30247E+00_JPRB,0.30713E+00_JPRB,0.30943E+00_JPRB,0.31544E+00_JPRB /) 
1354KB(:,20,10) = (/ &
1355 & 0.26154E+00_JPRB,0.26955E+00_JPRB,0.27264E+00_JPRB,0.27778E+00_JPRB,0.28167E+00_JPRB /) 
1356KB(:,21,10) = (/ &
1357 & 0.23200E+00_JPRB,0.23896E+00_JPRB,0.24468E+00_JPRB,0.24838E+00_JPRB,0.25453E+00_JPRB /) 
1358KB(:,22,10) = (/ &
1359 & 0.20714E+00_JPRB,0.21368E+00_JPRB,0.21959E+00_JPRB,0.22402E+00_JPRB,0.22934E+00_JPRB /) 
1360KB(:,23,10) = (/ &
1361 & 0.18514E+00_JPRB,0.19070E+00_JPRB,0.19771E+00_JPRB,0.20426E+00_JPRB,0.20794E+00_JPRB /) 
1362KB(:,24,10) = (/ &
1363 & 0.16629E+00_JPRB,0.17247E+00_JPRB,0.17943E+00_JPRB,0.18543E+00_JPRB,0.19044E+00_JPRB /) 
1364KB(:,25,10) = (/ &
1365 & 0.15103E+00_JPRB,0.15758E+00_JPRB,0.16440E+00_JPRB,0.16947E+00_JPRB,0.17504E+00_JPRB /) 
1366KB(:,26,10) = (/ &
1367 & 0.13782E+00_JPRB,0.14448E+00_JPRB,0.15050E+00_JPRB,0.15723E+00_JPRB,0.16403E+00_JPRB /) 
1368KB(:,27,10) = (/ &
1369 & 0.12675E+00_JPRB,0.13284E+00_JPRB,0.13902E+00_JPRB,0.14547E+00_JPRB,0.15299E+00_JPRB /) 
1370KB(:,28,10) = (/ &
1371 & 0.11700E+00_JPRB,0.12400E+00_JPRB,0.13029E+00_JPRB,0.13779E+00_JPRB,0.14535E+00_JPRB /) 
1372KB(:,29,10) = (/ &
1373 & 0.10975E+00_JPRB,0.11580E+00_JPRB,0.12300E+00_JPRB,0.13106E+00_JPRB,0.13981E+00_JPRB /) 
1374KB(:,30,10) = (/ &
1375 & 0.10326E+00_JPRB,0.10877E+00_JPRB,0.11694E+00_JPRB,0.12523E+00_JPRB,0.13409E+00_JPRB /) 
1376KB(:,31,10) = (/ &
1377 & 0.97072E-01_JPRB,0.10392E+00_JPRB,0.11191E+00_JPRB,0.12092E+00_JPRB,0.13156E+00_JPRB /) 
1378KB(:,32,10) = (/ &
1379 & 0.92483E-01_JPRB,0.10003E+00_JPRB,0.10847E+00_JPRB,0.11777E+00_JPRB,0.12978E+00_JPRB /) 
1380KB(:,33,10) = (/ &
1381 & 0.89436E-01_JPRB,0.96549E-01_JPRB,0.10550E+00_JPRB,0.11582E+00_JPRB,0.12938E+00_JPRB /) 
1382KB(:,34,10) = (/ &
1383 & 0.86605E-01_JPRB,0.93852E-01_JPRB,0.10437E+00_JPRB,0.11565E+00_JPRB,0.13025E+00_JPRB /) 
1384KB(:,35,10) = (/ &
1385 & 0.83755E-01_JPRB,0.92443E-01_JPRB,0.10318E+00_JPRB,0.11569E+00_JPRB,0.13035E+00_JPRB /) 
1386KB(:,36,10) = (/ &
1387 & 0.80159E-01_JPRB,0.90106E-01_JPRB,0.10185E+00_JPRB,0.11331E+00_JPRB,0.13105E+00_JPRB /) 
1388KB(:,37,10) = (/ &
1389 & 0.76863E-01_JPRB,0.86981E-01_JPRB,0.98816E-01_JPRB,0.11094E+00_JPRB,0.12837E+00_JPRB /) 
1390KB(:,38,10) = (/ &
1391 & 0.73911E-01_JPRB,0.84640E-01_JPRB,0.95988E-01_JPRB,0.10951E+00_JPRB,0.12524E+00_JPRB /) 
1392KB(:,39,10) = (/ &
1393 & 0.71484E-01_JPRB,0.82465E-01_JPRB,0.93807E-01_JPRB,0.10732E+00_JPRB,0.12288E+00_JPRB /) 
1394KB(:,40,10) = (/ &
1395 & 0.68367E-01_JPRB,0.78553E-01_JPRB,0.90288E-01_JPRB,0.10290E+00_JPRB,0.11884E+00_JPRB /) 
1396KB(:,41,10) = (/ &
1397 & 0.65972E-01_JPRB,0.75367E-01_JPRB,0.87331E-01_JPRB,0.98979E-01_JPRB,0.11479E+00_JPRB /) 
1398KB(:,42,10) = (/ &
1399 & 0.63899E-01_JPRB,0.72995E-01_JPRB,0.84392E-01_JPRB,0.96170E-01_JPRB,0.11066E+00_JPRB /) 
1400KB(:,43,10) = (/ &
1401 & 0.61601E-01_JPRB,0.69361E-01_JPRB,0.80265E-01_JPRB,0.92296E-01_JPRB,0.10575E+00_JPRB /) 
1402KB(:,44,10) = (/ &
1403 & 0.58053E-01_JPRB,0.67236E-01_JPRB,0.77057E-01_JPRB,0.88848E-01_JPRB,0.10118E+00_JPRB /) 
1404KB(:,45,10) = (/ &
1405 & 0.55041E-01_JPRB,0.64788E-01_JPRB,0.73479E-01_JPRB,0.85189E-01_JPRB,0.97294E-01_JPRB /) 
1406KB(:,46,10) = (/ &
1407 & 0.51538E-01_JPRB,0.61359E-01_JPRB,0.70493E-01_JPRB,0.81342E-01_JPRB,0.93711E-01_JPRB /) 
1408KB(:,47,10) = (/ &
1409 & 0.48229E-01_JPRB,0.57754E-01_JPRB,0.67703E-01_JPRB,0.77712E-01_JPRB,0.88779E-01_JPRB /) 
1410KB(:,48,10) = (/ &
1411 & 0.44328E-01_JPRB,0.53953E-01_JPRB,0.64327E-01_JPRB,0.74186E-01_JPRB,0.85354E-01_JPRB /) 
1412KB(:,49,10) = (/ &
1413 & 0.40181E-01_JPRB,0.50939E-01_JPRB,0.60544E-01_JPRB,0.71079E-01_JPRB,0.81883E-01_JPRB /) 
1414KB(:,50,10) = (/ &
1415 & 0.36327E-01_JPRB,0.47243E-01_JPRB,0.57625E-01_JPRB,0.67925E-01_JPRB,0.78806E-01_JPRB /) 
1416KB(:,51,10) = (/ &
1417 & 0.33026E-01_JPRB,0.43278E-01_JPRB,0.54464E-01_JPRB,0.64411E-01_JPRB,0.75916E-01_JPRB /) 
1418KB(:,52,10) = (/ &
1419 & 0.29600E-01_JPRB,0.39888E-01_JPRB,0.50913E-01_JPRB,0.61457E-01_JPRB,0.72719E-01_JPRB /) 
1420KB(:,53,10) = (/ &
1421 & 0.26994E-01_JPRB,0.36264E-01_JPRB,0.46926E-01_JPRB,0.58631E-01_JPRB,0.68972E-01_JPRB /) 
1422KB(:,54,10) = (/ &
1423 & 0.24928E-01_JPRB,0.33245E-01_JPRB,0.43870E-01_JPRB,0.55481E-01_JPRB,0.66121E-01_JPRB /) 
1424KB(:,55,10) = (/ &
1425 & 0.23329E-01_JPRB,0.30647E-01_JPRB,0.40729E-01_JPRB,0.52051E-01_JPRB,0.63960E-01_JPRB /) 
1426KB(:,56,10) = (/ &
1427 & 0.21581E-01_JPRB,0.28578E-01_JPRB,0.37651E-01_JPRB,0.48828E-01_JPRB,0.60673E-01_JPRB /) 
1428KB(:,57,10) = (/ &
1429 & 0.20121E-01_JPRB,0.27060E-01_JPRB,0.35152E-01_JPRB,0.45854E-01_JPRB,0.57152E-01_JPRB /) 
1430KB(:,58,10) = (/ &
1431 & 0.18692E-01_JPRB,0.25639E-01_JPRB,0.32995E-01_JPRB,0.42657E-01_JPRB,0.54655E-01_JPRB /) 
1432KB(:,59,10) = (/ &
1433 & 0.18277E-01_JPRB,0.25273E-01_JPRB,0.32791E-01_JPRB,0.42508E-01_JPRB,0.53680E-01_JPRB /) 
1434KB(:,13,11) = (/ &
1435 & 0.10693E+01_JPRB,0.10902E+01_JPRB,0.11032E+01_JPRB,0.10991E+01_JPRB,0.11118E+01_JPRB /) 
1436KB(:,14,11) = (/ &
1437 & 0.95953E+00_JPRB,0.97384E+00_JPRB,0.98577E+00_JPRB,0.99728E+00_JPRB,0.10070E+01_JPRB /) 
1438KB(:,15,11) = (/ &
1439 & 0.85940E+00_JPRB,0.86781E+00_JPRB,0.87766E+00_JPRB,0.88834E+00_JPRB,0.89855E+00_JPRB /) 
1440KB(:,16,11) = (/ &
1441 & 0.76187E+00_JPRB,0.76651E+00_JPRB,0.78116E+00_JPRB,0.79605E+00_JPRB,0.80429E+00_JPRB /) 
1442KB(:,17,11) = (/ &
1443 & 0.67627E+00_JPRB,0.68377E+00_JPRB,0.69734E+00_JPRB,0.70867E+00_JPRB,0.71758E+00_JPRB /) 
1444KB(:,18,11) = (/ &
1445 & 0.60442E+00_JPRB,0.61462E+00_JPRB,0.62319E+00_JPRB,0.63477E+00_JPRB,0.64696E+00_JPRB /) 
1446KB(:,19,11) = (/ &
1447 & 0.54250E+00_JPRB,0.55180E+00_JPRB,0.56132E+00_JPRB,0.57649E+00_JPRB,0.58604E+00_JPRB /) 
1448KB(:,20,11) = (/ &
1449 & 0.49000E+00_JPRB,0.49922E+00_JPRB,0.51229E+00_JPRB,0.52536E+00_JPRB,0.53903E+00_JPRB /) 
1450KB(:,21,11) = (/ &
1451 & 0.44362E+00_JPRB,0.45018E+00_JPRB,0.46523E+00_JPRB,0.48212E+00_JPRB,0.49590E+00_JPRB /) 
1452KB(:,22,11) = (/ &
1453 & 0.40390E+00_JPRB,0.41136E+00_JPRB,0.42554E+00_JPRB,0.44299E+00_JPRB,0.45956E+00_JPRB /) 
1454KB(:,23,11) = (/ &
1455 & 0.36600E+00_JPRB,0.37646E+00_JPRB,0.39144E+00_JPRB,0.40936E+00_JPRB,0.42622E+00_JPRB /) 
1456KB(:,24,11) = (/ &
1457 & 0.33488E+00_JPRB,0.34802E+00_JPRB,0.36259E+00_JPRB,0.38089E+00_JPRB,0.39832E+00_JPRB /) 
1458KB(:,25,11) = (/ &
1459 & 0.30569E+00_JPRB,0.32099E+00_JPRB,0.33730E+00_JPRB,0.35716E+00_JPRB,0.37447E+00_JPRB /) 
1460KB(:,26,11) = (/ &
1461 & 0.28345E+00_JPRB,0.29933E+00_JPRB,0.31861E+00_JPRB,0.33716E+00_JPRB,0.35400E+00_JPRB /) 
1462KB(:,27,11) = (/ &
1463 & 0.26524E+00_JPRB,0.28116E+00_JPRB,0.30310E+00_JPRB,0.32398E+00_JPRB,0.34341E+00_JPRB /) 
1464KB(:,28,11) = (/ &
1465 & 0.25036E+00_JPRB,0.26748E+00_JPRB,0.29040E+00_JPRB,0.31038E+00_JPRB,0.33527E+00_JPRB /) 
1466KB(:,29,11) = (/ &
1467 & 0.23678E+00_JPRB,0.25759E+00_JPRB,0.27958E+00_JPRB,0.30373E+00_JPRB,0.33097E+00_JPRB /) 
1468KB(:,30,11) = (/ &
1469 & 0.22835E+00_JPRB,0.25043E+00_JPRB,0.27298E+00_JPRB,0.30247E+00_JPRB,0.33069E+00_JPRB /) 
1470KB(:,31,11) = (/ &
1471 & 0.22381E+00_JPRB,0.24448E+00_JPRB,0.27386E+00_JPRB,0.30198E+00_JPRB,0.33135E+00_JPRB /) 
1472KB(:,32,11) = (/ &
1473 & 0.21945E+00_JPRB,0.24581E+00_JPRB,0.27557E+00_JPRB,0.30488E+00_JPRB,0.33817E+00_JPRB /) 
1474KB(:,33,11) = (/ &
1475 & 0.22020E+00_JPRB,0.24997E+00_JPRB,0.27933E+00_JPRB,0.31199E+00_JPRB,0.34537E+00_JPRB /) 
1476KB(:,34,11) = (/ &
1477 & 0.22328E+00_JPRB,0.25315E+00_JPRB,0.28560E+00_JPRB,0.31999E+00_JPRB,0.35204E+00_JPRB /) 
1478KB(:,35,11) = (/ &
1479 & 0.22463E+00_JPRB,0.25599E+00_JPRB,0.29016E+00_JPRB,0.32472E+00_JPRB,0.35705E+00_JPRB /) 
1480KB(:,36,11) = (/ &
1481 & 0.22454E+00_JPRB,0.25719E+00_JPRB,0.29064E+00_JPRB,0.32676E+00_JPRB,0.35643E+00_JPRB /) 
1482KB(:,37,11) = (/ &
1483 & 0.21917E+00_JPRB,0.25146E+00_JPRB,0.28533E+00_JPRB,0.32018E+00_JPRB,0.35207E+00_JPRB /) 
1484KB(:,38,11) = (/ &
1485 & 0.21431E+00_JPRB,0.24593E+00_JPRB,0.28070E+00_JPRB,0.31440E+00_JPRB,0.34740E+00_JPRB /) 
1486KB(:,39,11) = (/ &
1487 & 0.20995E+00_JPRB,0.24107E+00_JPRB,0.27540E+00_JPRB,0.30795E+00_JPRB,0.34247E+00_JPRB /) 
1488KB(:,40,11) = (/ &
1489 & 0.20148E+00_JPRB,0.23319E+00_JPRB,0.26577E+00_JPRB,0.30086E+00_JPRB,0.33366E+00_JPRB /) 
1490KB(:,41,11) = (/ &
1491 & 0.19132E+00_JPRB,0.22478E+00_JPRB,0.25632E+00_JPRB,0.29251E+00_JPRB,0.32436E+00_JPRB /) 
1492KB(:,42,11) = (/ &
1493 & 0.18231E+00_JPRB,0.21584E+00_JPRB,0.24724E+00_JPRB,0.28164E+00_JPRB,0.31641E+00_JPRB /) 
1494KB(:,43,11) = (/ &
1495 & 0.17273E+00_JPRB,0.20475E+00_JPRB,0.23702E+00_JPRB,0.26984E+00_JPRB,0.30535E+00_JPRB /) 
1496KB(:,44,11) = (/ &
1497 & 0.16365E+00_JPRB,0.19313E+00_JPRB,0.22566E+00_JPRB,0.25812E+00_JPRB,0.29340E+00_JPRB /) 
1498KB(:,45,11) = (/ &
1499 & 0.15471E+00_JPRB,0.18278E+00_JPRB,0.21464E+00_JPRB,0.24686E+00_JPRB,0.28060E+00_JPRB /) 
1500KB(:,46,11) = (/ &
1501 & 0.14477E+00_JPRB,0.17256E+00_JPRB,0.20328E+00_JPRB,0.23515E+00_JPRB,0.26753E+00_JPRB /) 
1502KB(:,47,11) = (/ &
1503 & 0.13513E+00_JPRB,0.16209E+00_JPRB,0.19092E+00_JPRB,0.22162E+00_JPRB,0.25481E+00_JPRB /) 
1504KB(:,48,11) = (/ &
1505 & 0.12632E+00_JPRB,0.15056E+00_JPRB,0.17900E+00_JPRB,0.20905E+00_JPRB,0.24085E+00_JPRB /) 
1506KB(:,49,11) = (/ &
1507 & 0.11846E+00_JPRB,0.14059E+00_JPRB,0.16812E+00_JPRB,0.19759E+00_JPRB,0.22701E+00_JPRB /) 
1508KB(:,50,11) = (/ &
1509 & 0.11278E+00_JPRB,0.13341E+00_JPRB,0.15756E+00_JPRB,0.18662E+00_JPRB,0.21629E+00_JPRB /) 
1510KB(:,51,11) = (/ &
1511 & 0.10711E+00_JPRB,0.12752E+00_JPRB,0.14951E+00_JPRB,0.17651E+00_JPRB,0.20555E+00_JPRB /) 
1512KB(:,52,11) = (/ &
1513 & 0.10062E+00_JPRB,0.12140E+00_JPRB,0.14273E+00_JPRB,0.16677E+00_JPRB,0.19594E+00_JPRB /) 
1514KB(:,53,11) = (/ &
1515 & 0.93686E-01_JPRB,0.11587E+00_JPRB,0.13705E+00_JPRB,0.15900E+00_JPRB,0.18673E+00_JPRB /) 
1516KB(:,54,11) = (/ &
1517 & 0.88183E-01_JPRB,0.10986E+00_JPRB,0.13159E+00_JPRB,0.15362E+00_JPRB,0.17808E+00_JPRB /) 
1518KB(:,55,11) = (/ &
1519 & 0.81924E-01_JPRB,0.10428E+00_JPRB,0.12662E+00_JPRB,0.14862E+00_JPRB,0.17143E+00_JPRB /) 
1520KB(:,56,11) = (/ &
1521 & 0.75991E-01_JPRB,0.98633E-01_JPRB,0.12219E+00_JPRB,0.14408E+00_JPRB,0.16698E+00_JPRB /) 
1522KB(:,57,11) = (/ &
1523 & 0.69399E-01_JPRB,0.92760E-01_JPRB,0.11664E+00_JPRB,0.14040E+00_JPRB,0.16308E+00_JPRB /) 
1524KB(:,58,11) = (/ &
1525 & 0.64018E-01_JPRB,0.88343E-01_JPRB,0.11169E+00_JPRB,0.13686E+00_JPRB,0.15969E+00_JPRB /) 
1526KB(:,59,11) = (/ &
1527 & 0.63145E-01_JPRB,0.86273E-01_JPRB,0.11143E+00_JPRB,0.13565E+00_JPRB,0.16187E+00_JPRB /) 
1528KB(:,13,12) = (/ &
1529 & 0.22241E+01_JPRB,0.22556E+01_JPRB,0.22932E+01_JPRB,0.23316E+01_JPRB,0.23817E+01_JPRB /) 
1530KB(:,14,12) = (/ &
1531 & 0.20015E+01_JPRB,0.20535E+01_JPRB,0.20976E+01_JPRB,0.21411E+01_JPRB,0.21895E+01_JPRB /) 
1532KB(:,15,12) = (/ &
1533 & 0.18111E+01_JPRB,0.18671E+01_JPRB,0.19196E+01_JPRB,0.19734E+01_JPRB,0.20226E+01_JPRB /) 
1534KB(:,16,12) = (/ &
1535 & 0.16513E+01_JPRB,0.17114E+01_JPRB,0.17632E+01_JPRB,0.18132E+01_JPRB,0.18623E+01_JPRB /) 
1536KB(:,17,12) = (/ &
1537 & 0.15041E+01_JPRB,0.15648E+01_JPRB,0.16197E+01_JPRB,0.16720E+01_JPRB,0.17169E+01_JPRB /) 
1538KB(:,18,12) = (/ &
1539 & 0.13731E+01_JPRB,0.14345E+01_JPRB,0.14937E+01_JPRB,0.15386E+01_JPRB,0.16052E+01_JPRB /) 
1540KB(:,19,12) = (/ &
1541 & 0.12478E+01_JPRB,0.13115E+01_JPRB,0.13641E+01_JPRB,0.14279E+01_JPRB,0.14977E+01_JPRB /) 
1542KB(:,20,12) = (/ &
1543 & 0.11298E+01_JPRB,0.11910E+01_JPRB,0.12495E+01_JPRB,0.13186E+01_JPRB,0.13914E+01_JPRB /) 
1544KB(:,21,12) = (/ &
1545 & 0.10266E+01_JPRB,0.10915E+01_JPRB,0.11508E+01_JPRB,0.12227E+01_JPRB,0.13004E+01_JPRB /) 
1546KB(:,22,12) = (/ &
1547 & 0.93959E+00_JPRB,0.10027E+01_JPRB,0.10735E+01_JPRB,0.11507E+01_JPRB,0.12312E+01_JPRB /) 
1548KB(:,23,12) = (/ &
1549 & 0.87016E+00_JPRB,0.93486E+00_JPRB,0.10125E+01_JPRB,0.10930E+01_JPRB,0.11794E+01_JPRB /) 
1550KB(:,24,12) = (/ &
1551 & 0.81213E+00_JPRB,0.88017E+00_JPRB,0.96483E+00_JPRB,0.10508E+01_JPRB,0.11396E+01_JPRB /) 
1552KB(:,25,12) = (/ &
1553 & 0.77134E+00_JPRB,0.84295E+00_JPRB,0.93081E+00_JPRB,0.10201E+01_JPRB,0.11152E+01_JPRB /) 
1554KB(:,26,12) = (/ &
1555 & 0.73832E+00_JPRB,0.81743E+00_JPRB,0.90746E+00_JPRB,0.10024E+01_JPRB,0.11020E+01_JPRB /) 
1556KB(:,27,12) = (/ &
1557 & 0.71831E+00_JPRB,0.80328E+00_JPRB,0.89505E+00_JPRB,0.99247E+00_JPRB,0.10943E+01_JPRB /) 
1558KB(:,28,12) = (/ &
1559 & 0.70848E+00_JPRB,0.79592E+00_JPRB,0.89143E+00_JPRB,0.99432E+00_JPRB,0.10940E+01_JPRB /) 
1560KB(:,29,12) = (/ &
1561 & 0.70725E+00_JPRB,0.79781E+00_JPRB,0.89906E+00_JPRB,0.10007E+01_JPRB,0.11009E+01_JPRB /) 
1562KB(:,30,12) = (/ &
1563 & 0.71125E+00_JPRB,0.80824E+00_JPRB,0.91144E+00_JPRB,0.10109E+01_JPRB,0.11144E+01_JPRB /) 
1564KB(:,31,12) = (/ &
1565 & 0.72057E+00_JPRB,0.82548E+00_JPRB,0.92423E+00_JPRB,0.10285E+01_JPRB,0.11338E+01_JPRB /) 
1566KB(:,32,12) = (/ &
1567 & 0.73855E+00_JPRB,0.84223E+00_JPRB,0.94322E+00_JPRB,0.10495E+01_JPRB,0.11523E+01_JPRB /) 
1568KB(:,33,12) = (/ &
1569 & 0.75860E+00_JPRB,0.86137E+00_JPRB,0.96653E+00_JPRB,0.10709E+01_JPRB,0.11736E+01_JPRB /) 
1570KB(:,34,12) = (/ &
1571 & 0.77584E+00_JPRB,0.88104E+00_JPRB,0.98358E+00_JPRB,0.10881E+01_JPRB,0.11928E+01_JPRB /) 
1572KB(:,35,12) = (/ &
1573 & 0.78526E+00_JPRB,0.88915E+00_JPRB,0.99181E+00_JPRB,0.10955E+01_JPRB,0.12024E+01_JPRB /) 
1574KB(:,36,12) = (/ &
1575 & 0.78420E+00_JPRB,0.88679E+00_JPRB,0.98962E+00_JPRB,0.10938E+01_JPRB,0.12013E+01_JPRB /) 
1576KB(:,37,12) = (/ &
1577 & 0.76619E+00_JPRB,0.86975E+00_JPRB,0.97162E+00_JPRB,0.10774E+01_JPRB,0.11823E+01_JPRB /) 
1578KB(:,38,12) = (/ &
1579 & 0.74778E+00_JPRB,0.85168E+00_JPRB,0.95355E+00_JPRB,0.10588E+01_JPRB,0.11642E+01_JPRB /) 
1580KB(:,39,12) = (/ &
1581 & 0.73003E+00_JPRB,0.83397E+00_JPRB,0.93638E+00_JPRB,0.10427E+01_JPRB,0.11461E+01_JPRB /) 
1582KB(:,40,12) = (/ &
1583 & 0.70694E+00_JPRB,0.80603E+00_JPRB,0.90951E+00_JPRB,0.10129E+01_JPRB,0.11179E+01_JPRB /) 
1584KB(:,41,12) = (/ &
1585 & 0.68380E+00_JPRB,0.77629E+00_JPRB,0.88021E+00_JPRB,0.98263E+00_JPRB,0.10876E+01_JPRB /) 
1586KB(:,42,12) = (/ &
1587 & 0.66231E+00_JPRB,0.74849E+00_JPRB,0.85130E+00_JPRB,0.95458E+00_JPRB,0.10576E+01_JPRB /) 
1588KB(:,43,12) = (/ &
1589 & 0.63688E+00_JPRB,0.72048E+00_JPRB,0.81634E+00_JPRB,0.92017E+00_JPRB,0.10227E+01_JPRB /) 
1590KB(:,44,12) = (/ &
1591 & 0.60858E+00_JPRB,0.69178E+00_JPRB,0.77940E+00_JPRB,0.88149E+00_JPRB,0.98460E+00_JPRB /) 
1592KB(:,45,12) = (/ &
1593 & 0.58153E+00_JPRB,0.66520E+00_JPRB,0.74925E+00_JPRB,0.84319E+00_JPRB,0.94694E+00_JPRB /) 
1594KB(:,46,12) = (/ &
1595 & 0.55197E+00_JPRB,0.63412E+00_JPRB,0.71872E+00_JPRB,0.80664E+00_JPRB,0.90684E+00_JPRB /) 
1596KB(:,47,12) = (/ &
1597 & 0.51844E+00_JPRB,0.60273E+00_JPRB,0.68769E+00_JPRB,0.77076E+00_JPRB,0.86117E+00_JPRB /) 
1598KB(:,48,12) = (/ &
1599 & 0.48120E+00_JPRB,0.57148E+00_JPRB,0.65491E+00_JPRB,0.74197E+00_JPRB,0.82485E+00_JPRB /) 
1600KB(:,49,12) = (/ &
1601 & 0.44584E+00_JPRB,0.53846E+00_JPRB,0.62079E+00_JPRB,0.70603E+00_JPRB,0.79220E+00_JPRB /) 
1602KB(:,50,12) = (/ &
1603 & 0.41289E+00_JPRB,0.50133E+00_JPRB,0.59314E+00_JPRB,0.67773E+00_JPRB,0.76297E+00_JPRB /) 
1604KB(:,51,12) = (/ &
1605 & 0.38263E+00_JPRB,0.46808E+00_JPRB,0.55994E+00_JPRB,0.64654E+00_JPRB,0.73545E+00_JPRB /) 
1606KB(:,52,12) = (/ &
1607 & 0.35216E+00_JPRB,0.43713E+00_JPRB,0.52781E+00_JPRB,0.61897E+00_JPRB,0.70212E+00_JPRB /) 
1608KB(:,53,12) = (/ &
1609 & 0.33102E+00_JPRB,0.40477E+00_JPRB,0.49059E+00_JPRB,0.58472E+00_JPRB,0.67270E+00_JPRB /) 
1610KB(:,54,12) = (/ &
1611 & 0.31146E+00_JPRB,0.37834E+00_JPRB,0.46271E+00_JPRB,0.55353E+00_JPRB,0.64596E+00_JPRB /) 
1612KB(:,55,12) = (/ &
1613 & 0.29087E+00_JPRB,0.35982E+00_JPRB,0.43598E+00_JPRB,0.52416E+00_JPRB,0.61765E+00_JPRB /) 
1614KB(:,56,12) = (/ &
1615 & 0.27304E+00_JPRB,0.34098E+00_JPRB,0.41224E+00_JPRB,0.49775E+00_JPRB,0.58771E+00_JPRB /) 
1616KB(:,57,12) = (/ &
1617 & 0.25824E+00_JPRB,0.32066E+00_JPRB,0.39085E+00_JPRB,0.46641E+00_JPRB,0.55829E+00_JPRB /) 
1618KB(:,58,12) = (/ &
1619 & 0.24548E+00_JPRB,0.30081E+00_JPRB,0.37338E+00_JPRB,0.44708E+00_JPRB,0.53062E+00_JPRB /) 
1620KB(:,59,12) = (/ &
1621 & 0.24212E+00_JPRB,0.29858E+00_JPRB,0.36550E+00_JPRB,0.44064E+00_JPRB,0.51789E+00_JPRB /) 
1622KB(:,13,13) = (/ &
1623 & 0.55998E+01_JPRB,0.57039E+01_JPRB,0.58049E+01_JPRB,0.59180E+01_JPRB,0.59854E+01_JPRB /) 
1624KB(:,14,13) = (/ &
1625 & 0.53275E+01_JPRB,0.54387E+01_JPRB,0.55543E+01_JPRB,0.56621E+01_JPRB,0.57635E+01_JPRB /) 
1626KB(:,15,13) = (/ &
1627 & 0.50203E+01_JPRB,0.51578E+01_JPRB,0.52898E+01_JPRB,0.54130E+01_JPRB,0.55373E+01_JPRB /) 
1628KB(:,16,13) = (/ &
1629 & 0.47246E+01_JPRB,0.48786E+01_JPRB,0.50266E+01_JPRB,0.51689E+01_JPRB,0.53242E+01_JPRB /) 
1630KB(:,17,13) = (/ &
1631 & 0.44403E+01_JPRB,0.46027E+01_JPRB,0.47680E+01_JPRB,0.49455E+01_JPRB,0.51299E+01_JPRB /) 
1632KB(:,18,13) = (/ &
1633 & 0.41648E+01_JPRB,0.43473E+01_JPRB,0.45415E+01_JPRB,0.47508E+01_JPRB,0.49298E+01_JPRB /) 
1634KB(:,19,13) = (/ &
1635 & 0.39134E+01_JPRB,0.41196E+01_JPRB,0.43493E+01_JPRB,0.45520E+01_JPRB,0.47522E+01_JPRB /) 
1636KB(:,20,13) = (/ &
1637 & 0.36873E+01_JPRB,0.39195E+01_JPRB,0.41603E+01_JPRB,0.43826E+01_JPRB,0.46005E+01_JPRB /) 
1638KB(:,21,13) = (/ &
1639 & 0.34974E+01_JPRB,0.37507E+01_JPRB,0.40010E+01_JPRB,0.42413E+01_JPRB,0.44759E+01_JPRB /) 
1640KB(:,22,13) = (/ &
1641 & 0.33605E+01_JPRB,0.36305E+01_JPRB,0.38873E+01_JPRB,0.41404E+01_JPRB,0.43929E+01_JPRB /) 
1642KB(:,23,13) = (/ &
1643 & 0.32571E+01_JPRB,0.35388E+01_JPRB,0.38042E+01_JPRB,0.40702E+01_JPRB,0.43353E+01_JPRB /) 
1644KB(:,24,13) = (/ &
1645 & 0.31836E+01_JPRB,0.34721E+01_JPRB,0.37495E+01_JPRB,0.40277E+01_JPRB,0.43044E+01_JPRB /) 
1646KB(:,25,13) = (/ &
1647 & 0.31346E+01_JPRB,0.34329E+01_JPRB,0.37222E+01_JPRB,0.40107E+01_JPRB,0.42953E+01_JPRB /) 
1648KB(:,26,13) = (/ &
1649 & 0.31155E+01_JPRB,0.34221E+01_JPRB,0.37222E+01_JPRB,0.40178E+01_JPRB,0.43079E+01_JPRB /) 
1650KB(:,27,13) = (/ &
1651 & 0.31157E+01_JPRB,0.34328E+01_JPRB,0.37392E+01_JPRB,0.40396E+01_JPRB,0.43346E+01_JPRB /) 
1652KB(:,28,13) = (/ &
1653 & 0.31335E+01_JPRB,0.34580E+01_JPRB,0.37695E+01_JPRB,0.40734E+01_JPRB,0.43720E+01_JPRB /) 
1654KB(:,29,13) = (/ &
1655 & 0.31697E+01_JPRB,0.34978E+01_JPRB,0.38120E+01_JPRB,0.41186E+01_JPRB,0.44189E+01_JPRB /) 
1656KB(:,30,13) = (/ &
1657 & 0.32194E+01_JPRB,0.35475E+01_JPRB,0.38638E+01_JPRB,0.41720E+01_JPRB,0.44722E+01_JPRB /) 
1658KB(:,31,13) = (/ &
1659 & 0.32811E+01_JPRB,0.36069E+01_JPRB,0.39241E+01_JPRB,0.42325E+01_JPRB,0.45314E+01_JPRB /) 
1660KB(:,32,13) = (/ &
1661 & 0.33484E+01_JPRB,0.36727E+01_JPRB,0.39897E+01_JPRB,0.42974E+01_JPRB,0.45949E+01_JPRB /) 
1662KB(:,33,13) = (/ &
1663 & 0.34186E+01_JPRB,0.37430E+01_JPRB,0.40586E+01_JPRB,0.43658E+01_JPRB,0.46602E+01_JPRB /) 
1664KB(:,34,13) = (/ &
1665 & 0.34801E+01_JPRB,0.38048E+01_JPRB,0.41197E+01_JPRB,0.44255E+01_JPRB,0.47156E+01_JPRB /) 
1666KB(:,35,13) = (/ &
1667 & 0.35126E+01_JPRB,0.38375E+01_JPRB,0.41525E+01_JPRB,0.44577E+01_JPRB,0.47454E+01_JPRB /) 
1668KB(:,36,13) = (/ &
1669 & 0.35115E+01_JPRB,0.38370E+01_JPRB,0.41529E+01_JPRB,0.44584E+01_JPRB,0.47449E+01_JPRB /) 
1670KB(:,37,13) = (/ &
1671 & 0.34620E+01_JPRB,0.37892E+01_JPRB,0.41066E+01_JPRB,0.44144E+01_JPRB,0.47052E+01_JPRB /) 
1672KB(:,38,13) = (/ &
1673 & 0.34108E+01_JPRB,0.37391E+01_JPRB,0.40587E+01_JPRB,0.43685E+01_JPRB,0.46624E+01_JPRB /) 
1674KB(:,39,13) = (/ &
1675 & 0.33603E+01_JPRB,0.36896E+01_JPRB,0.40114E+01_JPRB,0.43229E+01_JPRB,0.46208E+01_JPRB /) 
1676KB(:,40,13) = (/ &
1677 & 0.32696E+01_JPRB,0.36068E+01_JPRB,0.39317E+01_JPRB,0.42460E+01_JPRB,0.45479E+01_JPRB /) 
1678KB(:,41,13) = (/ &
1679 & 0.31746E+01_JPRB,0.35197E+01_JPRB,0.38475E+01_JPRB,0.41644E+01_JPRB,0.44716E+01_JPRB /) 
1680KB(:,42,13) = (/ &
1681 & 0.30768E+01_JPRB,0.34312E+01_JPRB,0.37630E+01_JPRB,0.40826E+01_JPRB,0.43924E+01_JPRB /) 
1682KB(:,43,13) = (/ &
1683 & 0.29558E+01_JPRB,0.33178E+01_JPRB,0.36587E+01_JPRB,0.39822E+01_JPRB,0.42959E+01_JPRB /) 
1684KB(:,44,13) = (/ &
1685 & 0.28280E+01_JPRB,0.31906E+01_JPRB,0.35435E+01_JPRB,0.38727E+01_JPRB,0.41899E+01_JPRB /) 
1686KB(:,45,13) = (/ &
1687 & 0.26988E+01_JPRB,0.30597E+01_JPRB,0.34201E+01_JPRB,0.37628E+01_JPRB,0.40831E+01_JPRB /) 
1688KB(:,46,13) = (/ &
1689 & 0.25661E+01_JPRB,0.29262E+01_JPRB,0.32865E+01_JPRB,0.36383E+01_JPRB,0.39682E+01_JPRB /) 
1690KB(:,47,13) = (/ &
1691 & 0.24176E+01_JPRB,0.27716E+01_JPRB,0.31308E+01_JPRB,0.34925E+01_JPRB,0.38381E+01_JPRB /) 
1692KB(:,48,13) = (/ &
1693 & 0.22754E+01_JPRB,0.26218E+01_JPRB,0.29793E+01_JPRB,0.33363E+01_JPRB,0.36948E+01_JPRB /) 
1694KB(:,49,13) = (/ &
1695 & 0.21329E+01_JPRB,0.24724E+01_JPRB,0.28302E+01_JPRB,0.31874E+01_JPRB,0.35454E+01_JPRB /) 
1696KB(:,50,13) = (/ &
1697 & 0.20005E+01_JPRB,0.23398E+01_JPRB,0.26856E+01_JPRB,0.30422E+01_JPRB,0.34002E+01_JPRB /) 
1698KB(:,51,13) = (/ &
1699 & 0.18713E+01_JPRB,0.22087E+01_JPRB,0.25515E+01_JPRB,0.29067E+01_JPRB,0.32588E+01_JPRB /) 
1700KB(:,52,13) = (/ &
1701 & 0.17459E+01_JPRB,0.20772E+01_JPRB,0.24169E+01_JPRB,0.27666E+01_JPRB,0.31241E+01_JPRB /) 
1702KB(:,53,13) = (/ &
1703 & 0.16095E+01_JPRB,0.19502E+01_JPRB,0.22895E+01_JPRB,0.26325E+01_JPRB,0.29855E+01_JPRB /) 
1704KB(:,54,13) = (/ &
1705 & 0.15066E+01_JPRB,0.18320E+01_JPRB,0.21659E+01_JPRB,0.25081E+01_JPRB,0.28569E+01_JPRB /) 
1706KB(:,55,13) = (/ &
1707 & 0.14318E+01_JPRB,0.17117E+01_JPRB,0.20491E+01_JPRB,0.23896E+01_JPRB,0.27343E+01_JPRB /) 
1708KB(:,56,13) = (/ &
1709 & 0.13449E+01_JPRB,0.16235E+01_JPRB,0.19309E+01_JPRB,0.22682E+01_JPRB,0.26139E+01_JPRB /) 
1710KB(:,57,13) = (/ &
1711 & 0.12667E+01_JPRB,0.15514E+01_JPRB,0.18274E+01_JPRB,0.21528E+01_JPRB,0.24919E+01_JPRB /) 
1712KB(:,58,13) = (/ &
1713 & 0.11763E+01_JPRB,0.14696E+01_JPRB,0.17445E+01_JPRB,0.20345E+01_JPRB,0.23757E+01_JPRB /) 
1714KB(:,59,13) = (/ &
1715 & 0.11472E+01_JPRB,0.14428E+01_JPRB,0.17312E+01_JPRB,0.20031E+01_JPRB,0.23234E+01_JPRB /) 
1716KB(:,13,14) = (/ &
1717 & 0.15147E+02_JPRB,0.15130E+02_JPRB,0.15113E+02_JPRB,0.15099E+02_JPRB,0.15078E+02_JPRB /) 
1718KB(:,14,14) = (/ &
1719 & 0.15510E+02_JPRB,0.15546E+02_JPRB,0.15567E+02_JPRB,0.15587E+02_JPRB,0.15585E+02_JPRB /) 
1720KB(:,15,14) = (/ &
1721 & 0.15739E+02_JPRB,0.15841E+02_JPRB,0.15930E+02_JPRB,0.15986E+02_JPRB,0.16004E+02_JPRB /) 
1722KB(:,16,14) = (/ &
1723 & 0.15858E+02_JPRB,0.16042E+02_JPRB,0.16196E+02_JPRB,0.16295E+02_JPRB,0.16347E+02_JPRB /) 
1724KB(:,17,14) = (/ &
1725 & 0.15892E+02_JPRB,0.16168E+02_JPRB,0.16375E+02_JPRB,0.16519E+02_JPRB,0.16620E+02_JPRB /) 
1726KB(:,18,14) = (/ &
1727 & 0.15890E+02_JPRB,0.16233E+02_JPRB,0.16495E+02_JPRB,0.16687E+02_JPRB,0.16843E+02_JPRB /) 
1728KB(:,19,14) = (/ &
1729 & 0.15860E+02_JPRB,0.16260E+02_JPRB,0.16572E+02_JPRB,0.16822E+02_JPRB,0.17016E+02_JPRB /) 
1730KB(:,20,14) = (/ &
1731 & 0.15821E+02_JPRB,0.16274E+02_JPRB,0.16642E+02_JPRB,0.16937E+02_JPRB,0.17165E+02_JPRB /) 
1732KB(:,21,14) = (/ &
1733 & 0.15778E+02_JPRB,0.16284E+02_JPRB,0.16705E+02_JPRB,0.17036E+02_JPRB,0.17293E+02_JPRB /) 
1734KB(:,22,14) = (/ &
1735 & 0.15777E+02_JPRB,0.16337E+02_JPRB,0.16794E+02_JPRB,0.17151E+02_JPRB,0.17417E+02_JPRB /) 
1736KB(:,23,14) = (/ &
1737 & 0.15815E+02_JPRB,0.16408E+02_JPRB,0.16883E+02_JPRB,0.17258E+02_JPRB,0.17537E+02_JPRB /) 
1738KB(:,24,14) = (/ &
1739 & 0.15884E+02_JPRB,0.16493E+02_JPRB,0.16982E+02_JPRB,0.17365E+02_JPRB,0.17648E+02_JPRB /) 
1740KB(:,25,14) = (/ &
1741 & 0.15973E+02_JPRB,0.16594E+02_JPRB,0.17087E+02_JPRB,0.17470E+02_JPRB,0.17753E+02_JPRB /) 
1742KB(:,26,14) = (/ &
1743 & 0.16098E+02_JPRB,0.16711E+02_JPRB,0.17198E+02_JPRB,0.17574E+02_JPRB,0.17853E+02_JPRB /) 
1744KB(:,27,14) = (/ &
1745 & 0.16232E+02_JPRB,0.16836E+02_JPRB,0.17310E+02_JPRB,0.17676E+02_JPRB,0.17946E+02_JPRB /) 
1746KB(:,28,14) = (/ &
1747 & 0.16376E+02_JPRB,0.16966E+02_JPRB,0.17425E+02_JPRB,0.17775E+02_JPRB,0.18032E+02_JPRB /) 
1748KB(:,29,14) = (/ &
1749 & 0.16527E+02_JPRB,0.17096E+02_JPRB,0.17538E+02_JPRB,0.17871E+02_JPRB,0.18111E+02_JPRB /) 
1750KB(:,30,14) = (/ &
1751 & 0.16681E+02_JPRB,0.17223E+02_JPRB,0.17646E+02_JPRB,0.17959E+02_JPRB,0.18183E+02_JPRB /) 
1752KB(:,31,14) = (/ &
1753 & 0.16832E+02_JPRB,0.17348E+02_JPRB,0.17747E+02_JPRB,0.18041E+02_JPRB,0.18247E+02_JPRB /) 
1754KB(:,32,14) = (/ &
1755 & 0.16982E+02_JPRB,0.17470E+02_JPRB,0.17844E+02_JPRB,0.18116E+02_JPRB,0.18304E+02_JPRB /) 
1756KB(:,33,14) = (/ &
1757 & 0.17125E+02_JPRB,0.17586E+02_JPRB,0.17935E+02_JPRB,0.18187E+02_JPRB,0.18356E+02_JPRB /) 
1758KB(:,34,14) = (/ &
1759 & 0.17243E+02_JPRB,0.17681E+02_JPRB,0.18009E+02_JPRB,0.18243E+02_JPRB,0.18396E+02_JPRB /) 
1760KB(:,35,14) = (/ &
1761 & 0.17308E+02_JPRB,0.17736E+02_JPRB,0.18053E+02_JPRB,0.18277E+02_JPRB,0.18422E+02_JPRB /) 
1762KB(:,36,14) = (/ &
1763 & 0.17321E+02_JPRB,0.17747E+02_JPRB,0.18064E+02_JPRB,0.18289E+02_JPRB,0.18431E+02_JPRB /) 
1764KB(:,37,14) = (/ &
1765 & 0.17259E+02_JPRB,0.17701E+02_JPRB,0.18033E+02_JPRB,0.18270E+02_JPRB,0.18425E+02_JPRB /) 
1766KB(:,38,14) = (/ &
1767 & 0.17190E+02_JPRB,0.17649E+02_JPRB,0.17997E+02_JPRB,0.18247E+02_JPRB,0.18415E+02_JPRB /) 
1768KB(:,39,14) = (/ &
1769 & 0.17116E+02_JPRB,0.17594E+02_JPRB,0.17957E+02_JPRB,0.18221E+02_JPRB,0.18401E+02_JPRB /) 
1770KB(:,40,14) = (/ &
1771 & 0.16981E+02_JPRB,0.17491E+02_JPRB,0.17882E+02_JPRB,0.18168E+02_JPRB,0.18367E+02_JPRB /) 
1772KB(:,41,14) = (/ &
1773 & 0.16829E+02_JPRB,0.17375E+02_JPRB,0.17795E+02_JPRB,0.18107E+02_JPRB,0.18328E+02_JPRB /) 
1774KB(:,42,14) = (/ &
1775 & 0.16667E+02_JPRB,0.17250E+02_JPRB,0.17700E+02_JPRB,0.18038E+02_JPRB,0.18281E+02_JPRB /) 
1776KB(:,43,14) = (/ &
1777 & 0.16452E+02_JPRB,0.17082E+02_JPRB,0.17573E+02_JPRB,0.17944E+02_JPRB,0.18214E+02_JPRB /) 
1778KB(:,44,14) = (/ &
1779 & 0.16203E+02_JPRB,0.16887E+02_JPRB,0.17421E+02_JPRB,0.17833E+02_JPRB,0.18135E+02_JPRB /) 
1780KB(:,45,14) = (/ &
1781 & 0.15935E+02_JPRB,0.16673E+02_JPRB,0.17257E+02_JPRB,0.17708E+02_JPRB,0.18046E+02_JPRB /) 
1782KB(:,46,14) = (/ &
1783 & 0.15628E+02_JPRB,0.16427E+02_JPRB,0.17064E+02_JPRB,0.17560E+02_JPRB,0.17936E+02_JPRB /) 
1784KB(:,47,14) = (/ &
1785 & 0.15258E+02_JPRB,0.16126E+02_JPRB,0.16827E+02_JPRB,0.17377E+02_JPRB,0.17799E+02_JPRB /) 
1786KB(:,48,14) = (/ &
1787 & 0.14864E+02_JPRB,0.15798E+02_JPRB,0.16564E+02_JPRB,0.17174E+02_JPRB,0.17643E+02_JPRB /) 
1788KB(:,49,14) = (/ &
1789 & 0.14439E+02_JPRB,0.15441E+02_JPRB,0.16276E+02_JPRB,0.16946E+02_JPRB,0.17469E+02_JPRB /) 
1790KB(:,50,14) = (/ &
1791 & 0.14012E+02_JPRB,0.15084E+02_JPRB,0.15980E+02_JPRB,0.16711E+02_JPRB,0.17289E+02_JPRB /) 
1792KB(:,51,14) = (/ &
1793 & 0.13576E+02_JPRB,0.14715E+02_JPRB,0.15671E+02_JPRB,0.16463E+02_JPRB,0.17096E+02_JPRB /) 
1794KB(:,52,14) = (/ &
1795 & 0.13120E+02_JPRB,0.14320E+02_JPRB,0.15341E+02_JPRB,0.16194E+02_JPRB,0.16882E+02_JPRB /) 
1796KB(:,53,14) = (/ &
1797 & 0.12642E+02_JPRB,0.13899E+02_JPRB,0.14988E+02_JPRB,0.15902E+02_JPRB,0.16649E+02_JPRB /) 
1798KB(:,54,14) = (/ &
1799 & 0.12147E+02_JPRB,0.13496E+02_JPRB,0.14645E+02_JPRB,0.15614E+02_JPRB,0.16418E+02_JPRB /) 
1800KB(:,55,14) = (/ &
1801 & 0.11626E+02_JPRB,0.13090E+02_JPRB,0.14295E+02_JPRB,0.15320E+02_JPRB,0.16178E+02_JPRB /) 
1802KB(:,56,14) = (/ &
1803 & 0.11110E+02_JPRB,0.12619E+02_JPRB,0.13926E+02_JPRB,0.15012E+02_JPRB,0.15922E+02_JPRB /) 
1804KB(:,57,14) = (/ &
1805 & 0.10565E+02_JPRB,0.12110E+02_JPRB,0.13518E+02_JPRB,0.14685E+02_JPRB,0.15649E+02_JPRB /) 
1806KB(:,58,14) = (/ &
1807 & 0.10061E+02_JPRB,0.11633E+02_JPRB,0.13084E+02_JPRB,0.14356E+02_JPRB,0.15374E+02_JPRB /) 
1808KB(:,59,14) = (/ &
1809 & 0.98377E+01_JPRB,0.11416E+02_JPRB,0.12868E+02_JPRB,0.14184E+02_JPRB,0.15259E+02_JPRB /) 
1810KB(:,13,15) = (/ &
1811 & 0.41304E+02_JPRB,0.40483E+02_JPRB,0.39654E+02_JPRB,0.38829E+02_JPRB,0.38029E+02_JPRB /) 
1812KB(:,14,15) = (/ &
1813 & 0.44686E+02_JPRB,0.43762E+02_JPRB,0.42836E+02_JPRB,0.41888E+02_JPRB,0.41004E+02_JPRB /) 
1814KB(:,15,15) = (/ &
1815 & 0.48004E+02_JPRB,0.46942E+02_JPRB,0.45864E+02_JPRB,0.44813E+02_JPRB,0.43844E+02_JPRB /) 
1816KB(:,16,15) = (/ &
1817 & 0.51150E+02_JPRB,0.49938E+02_JPRB,0.48734E+02_JPRB,0.47591E+02_JPRB,0.46512E+02_JPRB /) 
1818KB(:,17,15) = (/ &
1819 & 0.54100E+02_JPRB,0.52729E+02_JPRB,0.51435E+02_JPRB,0.50180E+02_JPRB,0.48962E+02_JPRB /) 
1820KB(:,18,15) = (/ &
1821 & 0.56777E+02_JPRB,0.55306E+02_JPRB,0.53894E+02_JPRB,0.52525E+02_JPRB,0.51164E+02_JPRB /) 
1822KB(:,19,15) = (/ &
1823 & 0.59186E+02_JPRB,0.57635E+02_JPRB,0.56100E+02_JPRB,0.54603E+02_JPRB,0.53129E+02_JPRB /) 
1824KB(:,20,15) = (/ &
1825 & 0.61293E+02_JPRB,0.59648E+02_JPRB,0.58005E+02_JPRB,0.56388E+02_JPRB,0.54798E+02_JPRB /) 
1826KB(:,21,15) = (/ &
1827 & 0.63124E+02_JPRB,0.61368E+02_JPRB,0.59613E+02_JPRB,0.57895E+02_JPRB,0.56204E+02_JPRB /) 
1828KB(:,22,15) = (/ &
1829 & 0.64562E+02_JPRB,0.62695E+02_JPRB,0.60841E+02_JPRB,0.59040E+02_JPRB,0.57268E+02_JPRB /) 
1830KB(:,23,15) = (/ &
1831 & 0.65690E+02_JPRB,0.63742E+02_JPRB,0.61820E+02_JPRB,0.59937E+02_JPRB,0.58087E+02_JPRB /) 
1832KB(:,24,15) = (/ &
1833 & 0.66548E+02_JPRB,0.64535E+02_JPRB,0.62550E+02_JPRB,0.60597E+02_JPRB,0.58690E+02_JPRB /) 
1834KB(:,25,15) = (/ &
1835 & 0.67194E+02_JPRB,0.65115E+02_JPRB,0.63062E+02_JPRB,0.61050E+02_JPRB,0.59091E+02_JPRB /) 
1836KB(:,26,15) = (/ &
1837 & 0.67597E+02_JPRB,0.65466E+02_JPRB,0.63369E+02_JPRB,0.61312E+02_JPRB,0.59309E+02_JPRB /) 
1838KB(:,27,15) = (/ &
1839 & 0.67831E+02_JPRB,0.65647E+02_JPRB,0.63518E+02_JPRB,0.61430E+02_JPRB,0.59393E+02_JPRB /) 
1840KB(:,28,15) = (/ &
1841 & 0.67908E+02_JPRB,0.65687E+02_JPRB,0.63527E+02_JPRB,0.61427E+02_JPRB,0.59357E+02_JPRB /) 
1842KB(:,29,15) = (/ &
1843 & 0.67845E+02_JPRB,0.65603E+02_JPRB,0.63419E+02_JPRB,0.61304E+02_JPRB,0.59222E+02_JPRB /) 
1844KB(:,30,15) = (/ &
1845 & 0.67682E+02_JPRB,0.65422E+02_JPRB,0.63225E+02_JPRB,0.61094E+02_JPRB,0.59010E+02_JPRB /) 
1846KB(:,31,15) = (/ &
1847 & 0.67415E+02_JPRB,0.65154E+02_JPRB,0.62953E+02_JPRB,0.60816E+02_JPRB,0.58721E+02_JPRB /) 
1848KB(:,32,15) = (/ &
1849 & 0.67084E+02_JPRB,0.64817E+02_JPRB,0.62622E+02_JPRB,0.60477E+02_JPRB,0.58393E+02_JPRB /) 
1850KB(:,33,15) = (/ &
1851 & 0.66692E+02_JPRB,0.64428E+02_JPRB,0.62242E+02_JPRB,0.60092E+02_JPRB,0.58024E+02_JPRB /) 
1852KB(:,34,15) = (/ &
1853 & 0.66346E+02_JPRB,0.64077E+02_JPRB,0.61890E+02_JPRB,0.59745E+02_JPRB,0.57700E+02_JPRB /) 
1854KB(:,35,15) = (/ &
1855 & 0.66188E+02_JPRB,0.63920E+02_JPRB,0.61727E+02_JPRB,0.59582E+02_JPRB,0.57542E+02_JPRB /) 
1856KB(:,36,15) = (/ &
1857 & 0.66248E+02_JPRB,0.63978E+02_JPRB,0.61782E+02_JPRB,0.59625E+02_JPRB,0.57587E+02_JPRB /) 
1858KB(:,37,15) = (/ &
1859 & 0.66642E+02_JPRB,0.64358E+02_JPRB,0.62144E+02_JPRB,0.59978E+02_JPRB,0.57911E+02_JPRB /) 
1860KB(:,38,15) = (/ &
1861 & 0.67048E+02_JPRB,0.64747E+02_JPRB,0.62516E+02_JPRB,0.60340E+02_JPRB,0.58249E+02_JPRB /) 
1862KB(:,39,15) = (/ &
1863 & 0.67435E+02_JPRB,0.65122E+02_JPRB,0.62879E+02_JPRB,0.60689E+02_JPRB,0.58578E+02_JPRB /) 
1864KB(:,40,15) = (/ &
1865 & 0.68061E+02_JPRB,0.65724E+02_JPRB,0.63462E+02_JPRB,0.61257E+02_JPRB,0.59113E+02_JPRB /) 
1866KB(:,41,15) = (/ &
1867 & 0.68702E+02_JPRB,0.66354E+02_JPRB,0.64067E+02_JPRB,0.61847E+02_JPRB,0.59682E+02_JPRB /) 
1868KB(:,42,15) = (/ &
1869 & 0.69355E+02_JPRB,0.66983E+02_JPRB,0.64678E+02_JPRB,0.62437E+02_JPRB,0.60259E+02_JPRB /) 
1870KB(:,43,15) = (/ &
1871 & 0.70142E+02_JPRB,0.67744E+02_JPRB,0.65416E+02_JPRB,0.63159E+02_JPRB,0.60959E+02_JPRB /) 
1872KB(:,44,15) = (/ &
1873 & 0.70991E+02_JPRB,0.68567E+02_JPRB,0.66218E+02_JPRB,0.63930E+02_JPRB,0.61713E+02_JPRB /) 
1874KB(:,45,15) = (/ &
1875 & 0.71837E+02_JPRB,0.69401E+02_JPRB,0.67026E+02_JPRB,0.64713E+02_JPRB,0.62473E+02_JPRB /) 
1876KB(:,46,15) = (/ &
1877 & 0.72733E+02_JPRB,0.70287E+02_JPRB,0.67885E+02_JPRB,0.65552E+02_JPRB,0.63292E+02_JPRB /) 
1878KB(:,47,15) = (/ &
1879 & 0.73741E+02_JPRB,0.71285E+02_JPRB,0.68859E+02_JPRB,0.66493E+02_JPRB,0.64198E+02_JPRB /) 
1880KB(:,48,15) = (/ &
1881 & 0.74725E+02_JPRB,0.72283E+02_JPRB,0.69840E+02_JPRB,0.67442E+02_JPRB,0.65125E+02_JPRB /) 
1882KB(:,49,15) = (/ &
1883 & 0.75665E+02_JPRB,0.73280E+02_JPRB,0.70828E+02_JPRB,0.68404E+02_JPRB,0.66060E+02_JPRB /) 
1884KB(:,50,15) = (/ &
1885 & 0.76534E+02_JPRB,0.74218E+02_JPRB,0.71764E+02_JPRB,0.69323E+02_JPRB,0.66942E+02_JPRB /) 
1886KB(:,51,15) = (/ &
1887 & 0.77333E+02_JPRB,0.75093E+02_JPRB,0.72664E+02_JPRB,0.70214E+02_JPRB,0.67806E+02_JPRB /) 
1888KB(:,52,15) = (/ &
1889 & 0.78102E+02_JPRB,0.75935E+02_JPRB,0.73563E+02_JPRB,0.71111E+02_JPRB,0.68683E+02_JPRB /) 
1890KB(:,53,15) = (/ &
1891 & 0.78815E+02_JPRB,0.76761E+02_JPRB,0.74462E+02_JPRB,0.72010E+02_JPRB,0.69568E+02_JPRB /) 
1892KB(:,54,15) = (/ &
1893 & 0.79431E+02_JPRB,0.77488E+02_JPRB,0.75258E+02_JPRB,0.72840E+02_JPRB,0.70386E+02_JPRB /) 
1894KB(:,55,15) = (/ &
1895 & 0.79987E+02_JPRB,0.78156E+02_JPRB,0.75999E+02_JPRB,0.73628E+02_JPRB,0.71177E+02_JPRB /) 
1896KB(:,56,15) = (/ &
1897 & 0.80478E+02_JPRB,0.78776E+02_JPRB,0.76714E+02_JPRB,0.74415E+02_JPRB,0.71963E+02_JPRB /) 
1898KB(:,57,15) = (/ &
1899 & 0.80898E+02_JPRB,0.79365E+02_JPRB,0.77410E+02_JPRB,0.75181E+02_JPRB,0.72750E+02_JPRB /) 
1900KB(:,58,15) = (/ &
1901 & 0.81210E+02_JPRB,0.79894E+02_JPRB,0.78053E+02_JPRB,0.75880E+02_JPRB,0.73498E+02_JPRB /) 
1902KB(:,59,15) = (/ &
1903 & 0.81312E+02_JPRB,0.80086E+02_JPRB,0.78299E+02_JPRB,0.76156E+02_JPRB,0.73801E+02_JPRB /) 
1904KB(:,13,16) = (/ &
1905 & 0.81866E+02_JPRB,0.78569E+02_JPRB,0.75624E+02_JPRB,0.72854E+02_JPRB,0.70288E+02_JPRB /) 
1906KB(:,14,16) = (/ &
1907 & 0.93095E+02_JPRB,0.88986E+02_JPRB,0.85351E+02_JPRB,0.82051E+02_JPRB,0.78936E+02_JPRB /) 
1908KB(:,15,16) = (/ &
1909 & 0.10470E+03_JPRB,0.99738E+02_JPRB,0.95227E+02_JPRB,0.91249E+02_JPRB,0.87478E+02_JPRB /) 
1910KB(:,16,16) = (/ &
1911 & 0.11635E+03_JPRB,0.11037E+03_JPRB,0.10495E+03_JPRB,0.10011E+03_JPRB,0.95646E+02_JPRB /) 
1912KB(:,17,16) = (/ &
1913 & 0.12769E+03_JPRB,0.12074E+03_JPRB,0.11431E+03_JPRB,0.10856E+03_JPRB,0.10332E+03_JPRB /) 
1914KB(:,18,16) = (/ &
1915 & 0.13851E+03_JPRB,0.13038E+03_JPRB,0.12299E+03_JPRB,0.11635E+03_JPRB,0.11033E+03_JPRB /) 
1916KB(:,19,16) = (/ &
1917 & 0.14848E+03_JPRB,0.13912E+03_JPRB,0.13084E+03_JPRB,0.12336E+03_JPRB,0.11656E+03_JPRB /) 
1918KB(:,20,16) = (/ &
1919 & 0.15718E+03_JPRB,0.14679E+03_JPRB,0.13761E+03_JPRB,0.12934E+03_JPRB,0.12188E+03_JPRB /) 
1920KB(:,21,16) = (/ &
1921 & 0.16462E+03_JPRB,0.15341E+03_JPRB,0.14345E+03_JPRB,0.13443E+03_JPRB,0.12636E+03_JPRB /) 
1922KB(:,22,16) = (/ &
1923 & 0.17012E+03_JPRB,0.15822E+03_JPRB,0.14760E+03_JPRB,0.13801E+03_JPRB,0.12950E+03_JPRB /) 
1924KB(:,23,16) = (/ &
1925 & 0.17437E+03_JPRB,0.16184E+03_JPRB,0.15069E+03_JPRB,0.14069E+03_JPRB,0.13184E+03_JPRB /) 
1926KB(:,24,16) = (/ &
1927 & 0.17733E+03_JPRB,0.16436E+03_JPRB,0.15282E+03_JPRB,0.14251E+03_JPRB,0.13340E+03_JPRB /) 
1928KB(:,25,16) = (/ &
1929 & 0.17910E+03_JPRB,0.16583E+03_JPRB,0.15401E+03_JPRB,0.14354E+03_JPRB,0.13426E+03_JPRB /) 
1930KB(:,26,16) = (/ &
1931 & 0.17968E+03_JPRB,0.16627E+03_JPRB,0.15433E+03_JPRB,0.14378E+03_JPRB,0.13445E+03_JPRB /) 
1932KB(:,27,16) = (/ &
1933 & 0.17946E+03_JPRB,0.16602E+03_JPRB,0.15406E+03_JPRB,0.14351E+03_JPRB,0.13417E+03_JPRB /) 
1934KB(:,28,16) = (/ &
1935 & 0.17860E+03_JPRB,0.16522E+03_JPRB,0.15334E+03_JPRB,0.14282E+03_JPRB,0.13355E+03_JPRB /) 
1936KB(:,29,16) = (/ &
1937 & 0.17717E+03_JPRB,0.16389E+03_JPRB,0.15216E+03_JPRB,0.14174E+03_JPRB,0.13260E+03_JPRB /) 
1938KB(:,30,16) = (/ &
1939 & 0.17533E+03_JPRB,0.16225E+03_JPRB,0.15066E+03_JPRB,0.14043E+03_JPRB,0.13143E+03_JPRB /) 
1940KB(:,31,16) = (/ &
1941 & 0.17313E+03_JPRB,0.16029E+03_JPRB,0.14890E+03_JPRB,0.13886E+03_JPRB,0.13004E+03_JPRB /) 
1942KB(:,32,16) = (/ &
1943 & 0.17069E+03_JPRB,0.15811E+03_JPRB,0.14694E+03_JPRB,0.13716E+03_JPRB,0.12847E+03_JPRB /) 
1944KB(:,33,16) = (/ &
1945 & 0.16804E+03_JPRB,0.15577E+03_JPRB,0.14487E+03_JPRB,0.13533E+03_JPRB,0.12682E+03_JPRB /) 
1946KB(:,34,16) = (/ &
1947 & 0.16580E+03_JPRB,0.15376E+03_JPRB,0.14309E+03_JPRB,0.13376E+03_JPRB,0.12539E+03_JPRB /) 
1948KB(:,35,16) = (/ &
1949 & 0.16467E+03_JPRB,0.15275E+03_JPRB,0.14221E+03_JPRB,0.13298E+03_JPRB,0.12468E+03_JPRB /) 
1950KB(:,36,16) = (/ &
1951 & 0.16486E+03_JPRB,0.15289E+03_JPRB,0.14233E+03_JPRB,0.13308E+03_JPRB,0.12477E+03_JPRB /) 
1952KB(:,37,16) = (/ &
1953 & 0.16688E+03_JPRB,0.15469E+03_JPRB,0.14392E+03_JPRB,0.13446E+03_JPRB,0.12602E+03_JPRB /) 
1954KB(:,38,16) = (/ &
1955 & 0.16902E+03_JPRB,0.15657E+03_JPRB,0.14555E+03_JPRB,0.13592E+03_JPRB,0.12732E+03_JPRB /) 
1956KB(:,39,16) = (/ &
1957 & 0.17110E+03_JPRB,0.15844E+03_JPRB,0.14718E+03_JPRB,0.13734E+03_JPRB,0.12861E+03_JPRB /) 
1958KB(:,40,16) = (/ &
1959 & 0.17468E+03_JPRB,0.16155E+03_JPRB,0.14992E+03_JPRB,0.13976E+03_JPRB,0.13077E+03_JPRB /) 
1960KB(:,41,16) = (/ &
1961 & 0.17848E+03_JPRB,0.16489E+03_JPRB,0.15289E+03_JPRB,0.14236E+03_JPRB,0.13307E+03_JPRB /) 
1962KB(:,42,16) = (/ &
1963 & 0.18237E+03_JPRB,0.16833E+03_JPRB,0.15592E+03_JPRB,0.14501E+03_JPRB,0.13541E+03_JPRB /) 
1964KB(:,43,16) = (/ &
1965 & 0.18726E+03_JPRB,0.17263E+03_JPRB,0.15975E+03_JPRB,0.14834E+03_JPRB,0.13835E+03_JPRB /) 
1966KB(:,44,16) = (/ &
1967 & 0.19275E+03_JPRB,0.17748E+03_JPRB,0.16403E+03_JPRB,0.15210E+03_JPRB,0.14166E+03_JPRB /) 
1968KB(:,45,16) = (/ &
1969 & 0.19851E+03_JPRB,0.18250E+03_JPRB,0.16844E+03_JPRB,0.15602E+03_JPRB,0.14507E+03_JPRB /) 
1970KB(:,46,16) = (/ &
1971 & 0.20490E+03_JPRB,0.18806E+03_JPRB,0.17333E+03_JPRB,0.16038E+03_JPRB,0.14888E+03_JPRB /) 
1972KB(:,47,16) = (/ &
1973 & 0.21238E+03_JPRB,0.19462E+03_JPRB,0.17910E+03_JPRB,0.16545E+03_JPRB,0.15337E+03_JPRB /) 
1974KB(:,48,16) = (/ &
1975 & 0.22029E+03_JPRB,0.20156E+03_JPRB,0.18514E+03_JPRB,0.17074E+03_JPRB,0.15806E+03_JPRB /) 
1976KB(:,49,16) = (/ &
1977 & 0.22889E+03_JPRB,0.20882E+03_JPRB,0.19150E+03_JPRB,0.17637E+03_JPRB,0.16304E+03_JPRB /) 
1978KB(:,50,16) = (/ &
1979 & 0.23745E+03_JPRB,0.21596E+03_JPRB,0.19782E+03_JPRB,0.18187E+03_JPRB,0.16787E+03_JPRB /) 
1980KB(:,51,16) = (/ &
1981 & 0.24629E+03_JPRB,0.22340E+03_JPRB,0.20422E+03_JPRB,0.18747E+03_JPRB,0.17280E+03_JPRB /) 
1982KB(:,52,16) = (/ &
1983 & 0.25553E+03_JPRB,0.23136E+03_JPRB,0.21090E+03_JPRB,0.19335E+03_JPRB,0.17798E+03_JPRB /) 
1984KB(:,53,16) = (/ &
1985 & 0.26553E+03_JPRB,0.23980E+03_JPRB,0.21793E+03_JPRB,0.19951E+03_JPRB,0.18336E+03_JPRB /) 
1986KB(:,54,16) = (/ &
1987 & 0.27524E+03_JPRB,0.24799E+03_JPRB,0.22485E+03_JPRB,0.20544E+03_JPRB,0.18854E+03_JPRB /) 
1988KB(:,55,16) = (/ &
1989 & 0.28502E+03_JPRB,0.25615E+03_JPRB,0.23188E+03_JPRB,0.21133E+03_JPRB,0.19372E+03_JPRB /) 
1990KB(:,56,16) = (/ &
1991 & 0.29529E+03_JPRB,0.26491E+03_JPRB,0.23927E+03_JPRB,0.21749E+03_JPRB,0.19913E+03_JPRB /) 
1992KB(:,57,16) = (/ &
1993 & 0.30624E+03_JPRB,0.27413E+03_JPRB,0.24703E+03_JPRB,0.22404E+03_JPRB,0.20478E+03_JPRB /) 
1994KB(:,58,16) = (/ &
1995 & 0.31727E+03_JPRB,0.28329E+03_JPRB,0.25471E+03_JPRB,0.23065E+03_JPRB,0.21031E+03_JPRB /) 
1996KB(:,59,16) = (/ &
1997 & 0.32188E+03_JPRB,0.28710E+03_JPRB,0.25796E+03_JPRB,0.23341E+03_JPRB,0.21261E+03_JPRB /) 
1998
1999!     -----------------------------------------------------------------
2000
2001FORREF(:, 1) = (/ 0.214504E-06_JPRB, 0.460418E-06_JPRB, 0.357608E-05_JPRB, 0.192037E-05_JPRB /)
2002FORREF(:, 2) = (/ 0.142576E-05_JPRB, 0.364463E-05_JPRB, 0.117033E-04_JPRB, 0.112085E-04_JPRB /)
2003FORREF(:, 3) = (/ 0.101536E-04_JPRB, 0.124096E-04_JPRB, 0.509190E-04_JPRB, 0.565282E-04_JPRB /)
2004FORREF(:, 4) = (/ 0.143394E-03_JPRB, 0.154700E-03_JPRB, 0.466498E-03_JPRB, 0.918829E-03_JPRB /)
2005FORREF(:, 5) = (/ 0.251631E-02_JPRB, 0.241729E-02_JPRB, 0.240057E-02_JPRB, 0.350408E-02_JPRB /)
2006FORREF(:, 6) = (/ 0.410309E-02_JPRB, 0.416851E-02_JPRB, 0.390925E-02_JPRB, 0.383694E-02_JPRB /)
2007FORREF(:, 7) = (/ 0.445387E-02_JPRB, 0.448657E-02_JPRB, 0.432310E-02_JPRB, 0.370739E-02_JPRB /)
2008FORREF(:, 8) = (/ 0.458150E-02_JPRB, 0.460014E-02_JPRB, 0.450245E-02_JPRB, 0.336718E-02_JPRB /)
2009FORREF(:, 9) = (/ 0.465423E-02_JPRB, 0.465595E-02_JPRB, 0.467006E-02_JPRB, 0.368061E-02_JPRB /)
2010FORREF(:,10) = (/ 0.493955E-02_JPRB, 0.490181E-02_JPRB, 0.481941E-02_JPRB, 0.367577E-02_JPRB /)
2011FORREF(:,11) = (/ 0.511876E-02_JPRB, 0.490981E-02_JPRB, 0.493303E-02_JPRB, 0.357423E-02_JPRB /)
2012FORREF(:,12) = (/ 0.509845E-02_JPRB, 0.511556E-02_JPRB, 0.504031E-02_JPRB, 0.355915E-02_JPRB /)
2013FORREF(:,13) = (/ 0.523822E-02_JPRB, 0.530473E-02_JPRB, 0.523811E-02_JPRB, 0.414259E-02_JPRB /)
2014FORREF(:,14) = (/ 0.551133E-02_JPRB, 0.535831E-02_JPRB, 0.546702E-02_JPRB, 0.473875E-02_JPRB /)
2015FORREF(:,15) = (/ 0.609781E-02_JPRB, 0.589859E-02_JPRB, 0.561187E-02_JPRB, 0.528981E-02_JPRB /)
2016FORREF(:,16) = (/ 0.644958E-02_JPRB, 0.631718E-02_JPRB, 0.625201E-02_JPRB, 0.600448E-02_JPRB /)
2017
2018!     -----------------------------------------------------------------
2019!     The array SELFREF contains the coefficient of the water vapor
2020!     self-continuum (including the energy term).  The first index
2021!     refers to temperature in 7.2 degree increments.  For instance,
2022!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
2023!     etc.  The second index runs over the g-channel (1 to 16).
2024
2025SELFREF(:, 1) = (/ &
2026 & 0.217058E-03_JPRB, 0.176391E-03_JPRB, 0.143342E-03_JPRB, 0.116486E-03_JPRB, 0.946614E-04_JPRB, &
2027 & 0.769257E-04_JPRB, 0.625131E-04_JPRB, 0.508007E-04_JPRB, 0.412828E-04_JPRB, 0.335481E-04_JPRB /) 
2028SELFREF(:, 2) = (/ &
2029 & 0.598055E-03_JPRB, 0.484805E-03_JPRB, 0.393000E-03_JPRB, 0.318580E-03_JPRB, 0.258252E-03_JPRB, &
2030 & 0.209348E-03_JPRB, 0.169705E-03_JPRB, 0.137569E-03_JPRB, 0.111518E-03_JPRB, 0.904008E-04_JPRB /) 
2031SELFREF(:, 3) = (/ &
2032 & 0.102691E-02_JPRB, 0.930281E-03_JPRB, 0.842740E-03_JPRB, 0.763437E-03_JPRB, 0.691596E-03_JPRB, &
2033 & 0.626516E-03_JPRB, 0.567560E-03_JPRB, 0.514152E-03_JPRB, 0.465769E-03_JPRB, 0.421940E-03_JPRB /) 
2034SELFREF(:, 4) = (/ &
2035 & 0.388569E-02_JPRB, 0.365098E-02_JPRB, 0.343045E-02_JPRB, 0.322324E-02_JPRB, 0.302854E-02_JPRB, &
2036 & 0.284561E-02_JPRB, 0.267372E-02_JPRB, 0.251222E-02_JPRB, 0.236047E-02_JPRB, 0.221789E-02_JPRB /) 
2037SELFREF(:, 5) = (/ &
2038 & 0.349845E-01_JPRB, 0.326678E-01_JPRB, 0.305045E-01_JPRB, 0.284845E-01_JPRB, 0.265982E-01_JPRB, &
2039 & 0.248369E-01_JPRB, 0.231921E-01_JPRB, 0.216563E-01_JPRB, 0.202222E-01_JPRB, 0.188831E-01_JPRB /) 
2040SELFREF(:, 6) = (/ &
2041 & 0.613705E-01_JPRB, 0.562676E-01_JPRB, 0.515890E-01_JPRB, 0.472994E-01_JPRB, 0.433665E-01_JPRB, &
2042 & 0.397606E-01_JPRB, 0.364545E-01_JPRB, 0.334233E-01_JPRB, 0.306442E-01_JPRB, 0.280961E-01_JPRB /) 
2043SELFREF(:, 7) = (/ &
2044 & 0.656981E-01_JPRB, 0.602660E-01_JPRB, 0.552830E-01_JPRB, 0.507120E-01_JPRB, 0.465190E-01_JPRB, &
2045 & 0.426726E-01_JPRB, 0.391443E-01_JPRB, 0.359077E-01_JPRB, 0.329387E-01_JPRB, 0.302153E-01_JPRB /) 
2046SELFREF(:, 8) = (/ &
2047 & 0.671782E-01_JPRB, 0.616461E-01_JPRB, 0.565695E-01_JPRB, 0.519110E-01_JPRB, 0.476361E-01_JPRB, &
2048 & 0.437132E-01_JPRB, 0.401134E-01_JPRB, 0.368100E-01_JPRB, 0.337787E-01_JPRB, 0.309970E-01_JPRB /) 
2049SELFREF(:, 9) = (/ &
2050 & 0.675902E-01_JPRB, 0.620888E-01_JPRB, 0.570351E-01_JPRB, 0.523928E-01_JPRB, 0.481284E-01_JPRB, &
2051 & 0.442110E-01_JPRB, 0.406125E-01_JPRB, 0.373069E-01_JPRB, 0.342703E-01_JPRB, 0.314809E-01_JPRB /) 
2052SELFREF(:,10) = (/ &
2053 & 0.708308E-01_JPRB, 0.651419E-01_JPRB, 0.599099E-01_JPRB, 0.550981E-01_JPRB, 0.506728E-01_JPRB, &
2054 & 0.466030E-01_JPRB, 0.428600E-01_JPRB, 0.394176E-01_JPRB, 0.362517E-01_JPRB, 0.333401E-01_JPRB /) 
2055SELFREF(:,11) = (/ &
2056 & 0.698445E-01_JPRB, 0.646584E-01_JPRB, 0.598573E-01_JPRB, 0.554128E-01_JPRB, 0.512982E-01_JPRB, &
2057 & 0.474892E-01_JPRB, 0.439630E-01_JPRB, 0.406986E-01_JPRB, 0.376766E-01_JPRB, 0.348791E-01_JPRB /) 
2058SELFREF(:,12) = (/ &
2059 & 0.743921E-01_JPRB, 0.682057E-01_JPRB, 0.625337E-01_JPRB, 0.573334E-01_JPRB, 0.525655E-01_JPRB, &
2060 & 0.481942E-01_JPRB, 0.441863E-01_JPRB, 0.405118E-01_JPRB, 0.371428E-01_JPRB, 0.340540E-01_JPRB /) 
2061SELFREF(:,13) = (/ &
2062 & 0.775758E-01_JPRB, 0.709818E-01_JPRB, 0.649484E-01_JPRB, 0.594277E-01_JPRB, 0.543764E-01_JPRB, &
2063 & 0.497544E-01_JPRB, 0.455253E-01_JPRB, 0.416556E-01_JPRB, 0.381149E-01_JPRB, 0.348751E-01_JPRB /) 
2064SELFREF(:,14) = (/ &
2065 & 0.776545E-01_JPRB, 0.714761E-01_JPRB, 0.657894E-01_JPRB, 0.605550E-01_JPRB, 0.557372E-01_JPRB, &
2066 & 0.513026E-01_JPRB, 0.472209E-01_JPRB, 0.434639E-01_JPRB, 0.400058E-01_JPRB, 0.368229E-01_JPRB /) 
2067SELFREF(:,15) = (/ &
2068 & 0.855675E-01_JPRB, 0.787337E-01_JPRB, 0.724456E-01_JPRB, 0.666598E-01_JPRB, 0.613360E-01_JPRB, &
2069 & 0.564374E-01_JPRB, 0.519301E-01_JPRB, 0.477827E-01_JPRB, 0.439666E-01_JPRB, 0.404552E-01_JPRB /) 
2070SELFREF(:,16) = (/ &
2071 & 0.934781E-01_JPRB, 0.855190E-01_JPRB, 0.782376E-01_JPRB, 0.715761E-01_JPRB, 0.654819E-01_JPRB, &
2072 & 0.599065E-01_JPRB, 0.548058E-01_JPRB, 0.501394E-01_JPRB, 0.458704E-01_JPRB, 0.419648E-01_JPRB /) 
2073     
2074!     -----------------------------------------------------------------
2075IF (LHOOK) CALL DR_HOOK('SRTM_KGB20',1,ZHOOK_HANDLE)
2076END SUBROUTINE SRTM_KGB20
2077
Note: See TracBrowser for help on using the repository browser.