1 |
|
|
!OCL SCALAR |
2 |
|
|
#ifdef RS6K |
3 |
|
|
@PROCESS NOOPTIMIZE |
4 |
|
|
#endif |
5 |
|
|
SUBROUTINE SRTM_KGB27 |
6 |
|
|
|
7 |
|
|
! Originally by J.Delamere, Atmospheric & Environmental Research. |
8 |
|
|
! Revision: 2.4 |
9 |
|
|
! BAND 16: 29000-38000 cm-1 (low - O3; high - O3) |
10 |
|
|
! Reformatted for F90 by JJMorcrette, ECMWF |
11 |
|
|
|
12 |
|
|
! ------------------------------------------------------------------ |
13 |
|
|
|
14 |
|
|
USE PARKIND1 ,ONLY : JPRB |
15 |
|
|
USE YOMHOOK ,ONLY : LHOOK, DR_HOOK |
16 |
|
|
|
17 |
|
|
USE YOESRTA27, ONLY : KA, KB, SFLUXREF, RAYL, SCALEKUR & |
18 |
|
|
& , LAYREFFR |
19 |
|
|
|
20 |
|
|
! ------------------------------------------------------------------ |
21 |
|
|
|
22 |
|
|
IMPLICIT NONE |
23 |
|
|
|
24 |
|
|
! KURUCZ |
25 |
|
|
! The following values were obtained using the "low resolution" |
26 |
|
|
! version of the Kurucz solar source function. For unknown reasons, |
27 |
|
|
! the total irradiance in this band differs from the corresponding |
28 |
|
|
! total in the "high-resolution" version of the Kurucz function. |
29 |
|
|
! Therefore, below these values are scaled by the factor SCALEKUR. |
30 |
|
|
REAL(KIND=JPRB) :: ZHOOK_HANDLE |
31 |
|
|
IF (LHOOK) CALL DR_HOOK('SRTM_KGB27',0,ZHOOK_HANDLE) |
32 |
|
|
SFLUXREF = (/ & |
33 |
|
|
& 14.0526_JPRB , 11.4794_JPRB , 8.72590_JPRB , 5.56966_JPRB , & |
34 |
|
|
& 3.80927_JPRB , 1.57690_JPRB , 1.15099_JPRB , 1.10012_JPRB , & |
35 |
|
|
& 0.658212_JPRB , 5.86859E-02_JPRB, 5.56186E-02_JPRB, 4.68040E-02_JPRB, & |
36 |
|
|
& 3.64897E-02_JPRB, 3.58053E-02_JPRB, 1.38130E-02_JPRB, 1.90193E-03_JPRB /) |
37 |
|
|
|
38 |
|
|
! Rayleigh extinction coefficient at v = 2925 cm-1. |
39 |
|
|
RAYL = (/ & |
40 |
|
|
& 3.44534E-06_JPRB,4.14480E-06_JPRB,4.95069E-06_JPRB,5.81204E-06_JPRB, & |
41 |
|
|
& 6.69748E-06_JPRB,7.56488E-06_JPRB,8.36344E-06_JPRB,9.04135E-06_JPRB, & |
42 |
|
|
& 9.58324E-06_JPRB,9.81542E-06_JPRB,9.75119E-06_JPRB,9.74533E-06_JPRB, & |
43 |
|
|
& 9.74139E-06_JPRB,9.73525E-06_JPRB,9.73577E-06_JPRB,9.73618E-06_JPRB /) |
44 |
|
|
|
45 |
|
|
SCALEKUR = 50.15_JPRB/48.37_JPRB |
46 |
|
|
|
47 |
|
|
LAYREFFR = 32 |
48 |
|
|
|
49 |
|
|
! ------------------------------------------------------------------ |
50 |
|
|
|
51 |
|
|
! The array KA contains absorption coefs at the 16 chosen g-values |
52 |
|
|
! for a range of pressure levels> ~100mb, temperatures, and binary |
53 |
|
|
! species parameters (see taumol.f for definition). The first |
54 |
|
|
! index in the array, JS, runs from 1 to 9, and corresponds to |
55 |
|
|
! different values of the binary species parameter. For instance, |
56 |
|
|
! JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, |
57 |
|
|
! JS = 3 corresponds to the parameter value 2/8, etc. The second index |
58 |
|
|
! in the array, JT, which runs from 1 to 5, corresponds to different |
59 |
|
|
! temperatures. More specifically, JT = 3 means that the data are for |
60 |
|
|
! the reference temperature TREF for this pressure level, JT = 2 refers |
61 |
|
|
! to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5 |
62 |
|
|
! is for TREF+30. The third index, JP, runs from 1 to 13 and refers |
63 |
|
|
! to the JPth reference pressure level (see taumol.f for these levels |
64 |
|
|
! in mb). The fourth index, IG, goes from 1 to 16, and indicates |
65 |
|
|
! which g-interval the absorption coefficients are for. |
66 |
|
|
! ----------------------------------------------------------------- |
67 |
|
|
|
68 |
|
|
KA(:, 1, 1) = (/ & |
69 |
|
|
& 0.22907E+00_JPRB,0.25625E+00_JPRB,0.28779E+00_JPRB,0.32376E+00_JPRB,0.36426E+00_JPRB /) |
70 |
|
|
KA(:, 2, 1) = (/ & |
71 |
|
|
& 0.21913E+00_JPRB,0.24445E+00_JPRB,0.27422E+00_JPRB,0.30832E+00_JPRB,0.34694E+00_JPRB /) |
72 |
|
|
KA(:, 3, 1) = (/ & |
73 |
|
|
& 0.20602E+00_JPRB,0.22864E+00_JPRB,0.25574E+00_JPRB,0.28721E+00_JPRB,0.32310E+00_JPRB /) |
74 |
|
|
KA(:, 4, 1) = (/ & |
75 |
|
|
& 0.19379E+00_JPRB,0.21352E+00_JPRB,0.23771E+00_JPRB,0.26643E+00_JPRB,0.29940E+00_JPRB /) |
76 |
|
|
KA(:, 5, 1) = (/ & |
77 |
|
|
& 0.18369E+00_JPRB,0.20061E+00_JPRB,0.22200E+00_JPRB,0.24786E+00_JPRB,0.27816E+00_JPRB /) |
78 |
|
|
KA(:, 6, 1) = (/ & |
79 |
|
|
& 0.17517E+00_JPRB,0.18920E+00_JPRB,0.20771E+00_JPRB,0.23069E+00_JPRB,0.25817E+00_JPRB /) |
80 |
|
|
KA(:, 7, 1) = (/ & |
81 |
|
|
& 0.16888E+00_JPRB,0.17988E+00_JPRB,0.19559E+00_JPRB,0.21577E+00_JPRB,0.24042E+00_JPRB /) |
82 |
|
|
KA(:, 8, 1) = (/ & |
83 |
|
|
& 0.16442E+00_JPRB,0.17273E+00_JPRB,0.18565E+00_JPRB,0.20315E+00_JPRB,0.22512E+00_JPRB /) |
84 |
|
|
KA(:, 9, 1) = (/ & |
85 |
|
|
& 0.16159E+00_JPRB,0.16738E+00_JPRB,0.17752E+00_JPRB,0.19242E+00_JPRB,0.21179E+00_JPRB /) |
86 |
|
|
KA(:,10, 1) = (/ & |
87 |
|
|
& 0.16037E+00_JPRB,0.16402E+00_JPRB,0.17204E+00_JPRB,0.18463E+00_JPRB,0.20183E+00_JPRB /) |
88 |
|
|
KA(:,11, 1) = (/ & |
89 |
|
|
& 0.16036E+00_JPRB,0.16399E+00_JPRB,0.17198E+00_JPRB,0.18455E+00_JPRB,0.20173E+00_JPRB /) |
90 |
|
|
KA(:,12, 1) = (/ & |
91 |
|
|
& 0.16036E+00_JPRB,0.16399E+00_JPRB,0.17198E+00_JPRB,0.18455E+00_JPRB,0.20173E+00_JPRB /) |
92 |
|
|
KA(:,13, 1) = (/ & |
93 |
|
|
& 0.16036E+00_JPRB,0.16399E+00_JPRB,0.17198E+00_JPRB,0.18455E+00_JPRB,0.20173E+00_JPRB /) |
94 |
|
|
KA(:, 1, 2) = (/ & |
95 |
|
|
& 0.20716E+01_JPRB,0.21925E+01_JPRB,0.23327E+01_JPRB,0.24921E+01_JPRB,0.26726E+01_JPRB /) |
96 |
|
|
KA(:, 2, 2) = (/ & |
97 |
|
|
& 0.20272E+01_JPRB,0.21401E+01_JPRB,0.22723E+01_JPRB,0.24238E+01_JPRB,0.25950E+01_JPRB /) |
98 |
|
|
KA(:, 3, 2) = (/ & |
99 |
|
|
& 0.19684E+01_JPRB,0.20697E+01_JPRB,0.21902E+01_JPRB,0.23301E+01_JPRB,0.24892E+01_JPRB /) |
100 |
|
|
KA(:, 4, 2) = (/ & |
101 |
|
|
& 0.19133E+01_JPRB,0.20021E+01_JPRB,0.21101E+01_JPRB,0.22375E+01_JPRB,0.23842E+01_JPRB /) |
102 |
|
|
KA(:, 5, 2) = (/ & |
103 |
|
|
& 0.18673E+01_JPRB,0.19441E+01_JPRB,0.20400E+01_JPRB,0.21553E+01_JPRB,0.22898E+01_JPRB /) |
104 |
|
|
KA(:, 6, 2) = (/ & |
105 |
|
|
& 0.18277E+01_JPRB,0.18925E+01_JPRB,0.19760E+01_JPRB,0.20788E+01_JPRB,0.22009E+01_JPRB /) |
106 |
|
|
KA(:, 7, 2) = (/ & |
107 |
|
|
& 0.17963E+01_JPRB,0.18497E+01_JPRB,0.19214E+01_JPRB,0.20121E+01_JPRB,0.21222E+01_JPRB /) |
108 |
|
|
KA(:, 8, 2) = (/ & |
109 |
|
|
& 0.17749E+01_JPRB,0.18156E+01_JPRB,0.18763E+01_JPRB,0.19555E+01_JPRB,0.20540E+01_JPRB /) |
110 |
|
|
KA(:, 9, 2) = (/ & |
111 |
|
|
& 0.17600E+01_JPRB,0.17885E+01_JPRB,0.18388E+01_JPRB,0.19071E+01_JPRB,0.19943E+01_JPRB /) |
112 |
|
|
KA(:,10, 2) = (/ & |
113 |
|
|
& 0.17526E+01_JPRB,0.17729E+01_JPRB,0.18121E+01_JPRB,0.18716E+01_JPRB,0.19496E+01_JPRB /) |
114 |
|
|
KA(:,11, 2) = (/ & |
115 |
|
|
& 0.17525E+01_JPRB,0.17727E+01_JPRB,0.18119E+01_JPRB,0.18712E+01_JPRB,0.19491E+01_JPRB /) |
116 |
|
|
KA(:,12, 2) = (/ & |
117 |
|
|
& 0.17525E+01_JPRB,0.17727E+01_JPRB,0.18119E+01_JPRB,0.18712E+01_JPRB,0.19491E+01_JPRB /) |
118 |
|
|
KA(:,13, 2) = (/ & |
119 |
|
|
& 0.17525E+01_JPRB,0.17727E+01_JPRB,0.18119E+01_JPRB,0.18712E+01_JPRB,0.19491E+01_JPRB /) |
120 |
|
|
KA(:, 1, 3) = (/ & |
121 |
|
|
& 0.12189E+02_JPRB,0.12619E+02_JPRB,0.13110E+02_JPRB,0.13663E+02_JPRB,0.14275E+02_JPRB /) |
122 |
|
|
KA(:, 2, 3) = (/ & |
123 |
|
|
& 0.12030E+02_JPRB,0.12434E+02_JPRB,0.12899E+02_JPRB,0.13427E+02_JPRB,0.14015E+02_JPRB /) |
124 |
|
|
KA(:, 3, 3) = (/ & |
125 |
|
|
& 0.11816E+02_JPRB,0.12183E+02_JPRB,0.12611E+02_JPRB,0.13101E+02_JPRB,0.13653E+02_JPRB /) |
126 |
|
|
KA(:, 4, 3) = (/ & |
127 |
|
|
& 0.11611E+02_JPRB,0.11938E+02_JPRB,0.12327E+02_JPRB,0.12777E+02_JPRB,0.13289E+02_JPRB /) |
128 |
|
|
KA(:, 5, 3) = (/ & |
129 |
|
|
& 0.11437E+02_JPRB,0.11726E+02_JPRB,0.12076E+02_JPRB,0.12488E+02_JPRB,0.12961E+02_JPRB /) |
130 |
|
|
KA(:, 6, 3) = (/ & |
131 |
|
|
& 0.11284E+02_JPRB,0.11533E+02_JPRB,0.11843E+02_JPRB,0.12215E+02_JPRB,0.12649E+02_JPRB /) |
132 |
|
|
KA(:, 7, 3) = (/ & |
133 |
|
|
& 0.11160E+02_JPRB,0.11370E+02_JPRB,0.11641E+02_JPRB,0.11975E+02_JPRB,0.12370E+02_JPRB /) |
134 |
|
|
KA(:, 8, 3) = (/ & |
135 |
|
|
& 0.11063E+02_JPRB,0.11237E+02_JPRB,0.11471E+02_JPRB,0.11768E+02_JPRB,0.12126E+02_JPRB /) |
136 |
|
|
KA(:, 9, 3) = (/ & |
137 |
|
|
& 0.10990E+02_JPRB,0.11129E+02_JPRB,0.11327E+02_JPRB,0.11588E+02_JPRB,0.11910E+02_JPRB /) |
138 |
|
|
KA(:,10, 3) = (/ & |
139 |
|
|
& 0.10945E+02_JPRB,0.11053E+02_JPRB,0.11223E+02_JPRB,0.11454E+02_JPRB,0.11746E+02_JPRB /) |
140 |
|
|
KA(:,11, 3) = (/ & |
141 |
|
|
& 0.10945E+02_JPRB,0.11052E+02_JPRB,0.11222E+02_JPRB,0.11452E+02_JPRB,0.11744E+02_JPRB /) |
142 |
|
|
KA(:,12, 3) = (/ & |
143 |
|
|
& 0.10945E+02_JPRB,0.11052E+02_JPRB,0.11222E+02_JPRB,0.11452E+02_JPRB,0.11744E+02_JPRB /) |
144 |
|
|
KA(:,13, 3) = (/ & |
145 |
|
|
& 0.10945E+02_JPRB,0.11052E+02_JPRB,0.11222E+02_JPRB,0.11452E+02_JPRB,0.11744E+02_JPRB /) |
146 |
|
|
KA(:, 1, 4) = (/ & |
147 |
|
|
& 0.55057E+02_JPRB,0.56143E+02_JPRB,0.57364E+02_JPRB,0.58719E+02_JPRB,0.60208E+02_JPRB /) |
148 |
|
|
KA(:, 2, 4) = (/ & |
149 |
|
|
& 0.54647E+02_JPRB,0.55677E+02_JPRB,0.56842E+02_JPRB,0.58142E+02_JPRB,0.59575E+02_JPRB /) |
150 |
|
|
KA(:, 3, 4) = (/ & |
151 |
|
|
& 0.54090E+02_JPRB,0.55039E+02_JPRB,0.56123E+02_JPRB,0.57342E+02_JPRB,0.58694E+02_JPRB /) |
152 |
|
|
KA(:, 4, 4) = (/ & |
153 |
|
|
& 0.53548E+02_JPRB,0.54410E+02_JPRB,0.55408E+02_JPRB,0.56539E+02_JPRB,0.57805E+02_JPRB /) |
154 |
|
|
KA(:, 5, 4) = (/ & |
155 |
|
|
& 0.53074E+02_JPRB,0.53853E+02_JPRB,0.54766E+02_JPRB,0.55813E+02_JPRB,0.56995E+02_JPRB /) |
156 |
|
|
KA(:, 6, 4) = (/ & |
157 |
|
|
& 0.52644E+02_JPRB,0.53336E+02_JPRB,0.54162E+02_JPRB,0.55123E+02_JPRB,0.56218E+02_JPRB /) |
158 |
|
|
KA(:, 7, 4) = (/ & |
159 |
|
|
& 0.52279E+02_JPRB,0.52887E+02_JPRB,0.53629E+02_JPRB,0.54505E+02_JPRB,0.55516E+02_JPRB /) |
160 |
|
|
KA(:, 8, 4) = (/ & |
161 |
|
|
& 0.51979E+02_JPRB,0.52507E+02_JPRB,0.53168E+02_JPRB,0.53965E+02_JPRB,0.54895E+02_JPRB /) |
162 |
|
|
KA(:, 9, 4) = (/ & |
163 |
|
|
& 0.51734E+02_JPRB,0.52183E+02_JPRB,0.52767E+02_JPRB,0.53485E+02_JPRB,0.54337E+02_JPRB /) |
164 |
|
|
KA(:,10, 4) = (/ & |
165 |
|
|
& 0.51565E+02_JPRB,0.51948E+02_JPRB,0.52467E+02_JPRB,0.53120E+02_JPRB,0.53907E+02_JPRB /) |
166 |
|
|
KA(:,11, 4) = (/ & |
167 |
|
|
& 0.51563E+02_JPRB,0.51946E+02_JPRB,0.52464E+02_JPRB,0.53116E+02_JPRB,0.53902E+02_JPRB /) |
168 |
|
|
KA(:,12, 4) = (/ & |
169 |
|
|
& 0.51563E+02_JPRB,0.51946E+02_JPRB,0.52464E+02_JPRB,0.53116E+02_JPRB,0.53902E+02_JPRB /) |
170 |
|
|
KA(:,13, 4) = (/ & |
171 |
|
|
& 0.51563E+02_JPRB,0.51946E+02_JPRB,0.52464E+02_JPRB,0.53116E+02_JPRB,0.53902E+02_JPRB /) |
172 |
|
|
KA(:, 1, 5) = (/ & |
173 |
|
|
& 0.17794E+03_JPRB,0.17973E+03_JPRB,0.18164E+03_JPRB,0.18366E+03_JPRB,0.18581E+03_JPRB /) |
174 |
|
|
KA(:, 2, 5) = (/ & |
175 |
|
|
& 0.17724E+03_JPRB,0.17898E+03_JPRB,0.18083E+03_JPRB,0.18281E+03_JPRB,0.18491E+03_JPRB /) |
176 |
|
|
KA(:, 3, 5) = (/ & |
177 |
|
|
& 0.17624E+03_JPRB,0.17791E+03_JPRB,0.17970E+03_JPRB,0.18160E+03_JPRB,0.18363E+03_JPRB /) |
178 |
|
|
KA(:, 4, 5) = (/ & |
179 |
|
|
& 0.17523E+03_JPRB,0.17682E+03_JPRB,0.17853E+03_JPRB,0.18036E+03_JPRB,0.18231E+03_JPRB /) |
180 |
|
|
KA(:, 5, 5) = (/ & |
181 |
|
|
& 0.17429E+03_JPRB,0.17581E+03_JPRB,0.17744E+03_JPRB,0.17920E+03_JPRB,0.18107E+03_JPRB /) |
182 |
|
|
KA(:, 6, 5) = (/ & |
183 |
|
|
& 0.17338E+03_JPRB,0.17482E+03_JPRB,0.17638E+03_JPRB,0.17805E+03_JPRB,0.17985E+03_JPRB /) |
184 |
|
|
KA(:, 7, 5) = (/ & |
185 |
|
|
& 0.17253E+03_JPRB,0.17390E+03_JPRB,0.17539E+03_JPRB,0.17699E+03_JPRB,0.17871E+03_JPRB /) |
186 |
|
|
KA(:, 8, 5) = (/ & |
187 |
|
|
& 0.17177E+03_JPRB,0.17307E+03_JPRB,0.17448E+03_JPRB,0.17601E+03_JPRB,0.17767E+03_JPRB /) |
188 |
|
|
KA(:, 9, 5) = (/ & |
189 |
|
|
& 0.17107E+03_JPRB,0.17230E+03_JPRB,0.17364E+03_JPRB,0.17511E+03_JPRB,0.17669E+03_JPRB /) |
190 |
|
|
KA(:,10, 5) = (/ & |
191 |
|
|
& 0.17052E+03_JPRB,0.17169E+03_JPRB,0.17298E+03_JPRB,0.17438E+03_JPRB,0.17591E+03_JPRB /) |
192 |
|
|
KA(:,11, 5) = (/ & |
193 |
|
|
& 0.17051E+03_JPRB,0.17168E+03_JPRB,0.17297E+03_JPRB,0.17437E+03_JPRB,0.17590E+03_JPRB /) |
194 |
|
|
KA(:,12, 5) = (/ & |
195 |
|
|
& 0.17051E+03_JPRB,0.17168E+03_JPRB,0.17297E+03_JPRB,0.17437E+03_JPRB,0.17590E+03_JPRB /) |
196 |
|
|
KA(:,13, 5) = (/ & |
197 |
|
|
& 0.17051E+03_JPRB,0.17168E+03_JPRB,0.17297E+03_JPRB,0.17437E+03_JPRB,0.17590E+03_JPRB /) |
198 |
|
|
KA(:, 1, 6) = (/ & |
199 |
|
|
& 0.37680E+05_JPRB,0.36801E+05_JPRB,0.36011E+05_JPRB,0.35298E+05_JPRB,0.34715E+05_JPRB /) |
200 |
|
|
KA(:, 2, 6) = (/ & |
201 |
|
|
& 0.39286E+03_JPRB,0.39463E+03_JPRB,0.39616E+03_JPRB,0.39748E+03_JPRB,0.39858E+03_JPRB /) |
202 |
|
|
KA(:, 3, 6) = (/ & |
203 |
|
|
& 0.39169E+03_JPRB,0.39359E+03_JPRB,0.39526E+03_JPRB,0.39671E+03_JPRB,0.39794E+03_JPRB /) |
204 |
|
|
KA(:, 4, 6) = (/ & |
205 |
|
|
& 0.39034E+03_JPRB,0.39239E+03_JPRB,0.39421E+03_JPRB,0.39580E+03_JPRB,0.39717E+03_JPRB /) |
206 |
|
|
KA(:, 5, 6) = (/ & |
207 |
|
|
& 0.38895E+03_JPRB,0.39113E+03_JPRB,0.39309E+03_JPRB,0.39483E+03_JPRB,0.39634E+03_JPRB /) |
208 |
|
|
KA(:, 6, 6) = (/ & |
209 |
|
|
& 0.38742E+03_JPRB,0.38975E+03_JPRB,0.39185E+03_JPRB,0.39373E+03_JPRB,0.39539E+03_JPRB /) |
210 |
|
|
KA(:, 7, 6) = (/ & |
211 |
|
|
& 0.38585E+03_JPRB,0.38832E+03_JPRB,0.39056E+03_JPRB,0.39258E+03_JPRB,0.39438E+03_JPRB /) |
212 |
|
|
KA(:, 8, 6) = (/ & |
213 |
|
|
& 0.38426E+03_JPRB,0.38686E+03_JPRB,0.38924E+03_JPRB,0.39140E+03_JPRB,0.39333E+03_JPRB /) |
214 |
|
|
KA(:, 9, 6) = (/ & |
215 |
|
|
& 0.38264E+03_JPRB,0.38538E+03_JPRB,0.38789E+03_JPRB,0.39017E+03_JPRB,0.39223E+03_JPRB /) |
216 |
|
|
KA(:,10, 6) = (/ & |
217 |
|
|
& 0.38123E+03_JPRB,0.38408E+03_JPRB,0.38670E+03_JPRB,0.38909E+03_JPRB,0.39126E+03_JPRB /) |
218 |
|
|
KA(:,11, 6) = (/ & |
219 |
|
|
& 0.38122E+03_JPRB,0.38406E+03_JPRB,0.38668E+03_JPRB,0.38908E+03_JPRB,0.39125E+03_JPRB /) |
220 |
|
|
KA(:,12, 6) = (/ & |
221 |
|
|
& 0.38122E+03_JPRB,0.38406E+03_JPRB,0.38668E+03_JPRB,0.38908E+03_JPRB,0.39125E+03_JPRB /) |
222 |
|
|
KA(:,13, 6) = (/ & |
223 |
|
|
& 0.38122E+03_JPRB,0.38406E+03_JPRB,0.38668E+03_JPRB,0.38908E+03_JPRB,0.39125E+03_JPRB /) |
224 |
|
|
KA(:, 1, 7) = (/ & |
225 |
|
|
& 0.18202E+07_JPRB,0.17771E+07_JPRB,0.17382E+07_JPRB,0.17034E+07_JPRB,0.16716E+07_JPRB /) |
226 |
|
|
KA(:, 2, 7) = (/ & |
227 |
|
|
& 0.63027E+03_JPRB,0.63194E+03_JPRB,0.63388E+03_JPRB,0.63607E+03_JPRB,0.63849E+03_JPRB /) |
228 |
|
|
KA(:, 3, 7) = (/ & |
229 |
|
|
& 0.62938E+03_JPRB,0.63090E+03_JPRB,0.63268E+03_JPRB,0.63472E+03_JPRB,0.63701E+03_JPRB /) |
230 |
|
|
KA(:, 4, 7) = (/ & |
231 |
|
|
& 0.62853E+03_JPRB,0.62989E+03_JPRB,0.63150E+03_JPRB,0.63337E+03_JPRB,0.63550E+03_JPRB /) |
232 |
|
|
KA(:, 5, 7) = (/ & |
233 |
|
|
& 0.62781E+03_JPRB,0.62901E+03_JPRB,0.63046E+03_JPRB,0.63217E+03_JPRB,0.63413E+03_JPRB /) |
234 |
|
|
KA(:, 6, 7) = (/ & |
235 |
|
|
& 0.62717E+03_JPRB,0.62821E+03_JPRB,0.62950E+03_JPRB,0.63104E+03_JPRB,0.63283E+03_JPRB /) |
236 |
|
|
KA(:, 7, 7) = (/ & |
237 |
|
|
& 0.62666E+03_JPRB,0.62753E+03_JPRB,0.62867E+03_JPRB,0.63005E+03_JPRB,0.63168E+03_JPRB /) |
238 |
|
|
KA(:, 8, 7) = (/ & |
239 |
|
|
& 0.62627E+03_JPRB,0.62698E+03_JPRB,0.62795E+03_JPRB,0.62919E+03_JPRB,0.63067E+03_JPRB /) |
240 |
|
|
KA(:, 9, 7) = (/ & |
241 |
|
|
& 0.62600E+03_JPRB,0.62653E+03_JPRB,0.62735E+03_JPRB,0.62844E+03_JPRB,0.62978E+03_JPRB /) |
242 |
|
|
KA(:,10, 7) = (/ & |
243 |
|
|
& 0.62583E+03_JPRB,0.62624E+03_JPRB,0.62692E+03_JPRB,0.62788E+03_JPRB,0.62910E+03_JPRB /) |
244 |
|
|
KA(:,11, 7) = (/ & |
245 |
|
|
& 0.62583E+03_JPRB,0.62623E+03_JPRB,0.62691E+03_JPRB,0.62787E+03_JPRB,0.62909E+03_JPRB /) |
246 |
|
|
KA(:,12, 7) = (/ & |
247 |
|
|
& 0.62583E+03_JPRB,0.62623E+03_JPRB,0.62691E+03_JPRB,0.62787E+03_JPRB,0.62909E+03_JPRB /) |
248 |
|
|
KA(:,13, 7) = (/ & |
249 |
|
|
& 0.62583E+03_JPRB,0.62623E+03_JPRB,0.62691E+03_JPRB,0.62787E+03_JPRB,0.62909E+03_JPRB /) |
250 |
|
|
KA(:, 1, 8) = (/ & |
251 |
|
|
& 0.55488E+07_JPRB,0.54180E+07_JPRB,0.53005E+07_JPRB,0.51943E+07_JPRB,0.50978E+07_JPRB /) |
252 |
|
|
KA(:, 2, 8) = (/ & |
253 |
|
|
& 0.82143E+03_JPRB,0.82232E+03_JPRB,0.82327E+03_JPRB,0.82429E+03_JPRB,0.82541E+03_JPRB /) |
254 |
|
|
KA(:, 3, 8) = (/ & |
255 |
|
|
& 0.82092E+03_JPRB,0.82177E+03_JPRB,0.82269E+03_JPRB,0.82366E+03_JPRB,0.82472E+03_JPRB /) |
256 |
|
|
KA(:, 4, 8) = (/ & |
257 |
|
|
& 0.82041E+03_JPRB,0.82121E+03_JPRB,0.82209E+03_JPRB,0.82303E+03_JPRB,0.82402E+03_JPRB /) |
258 |
|
|
KA(:, 5, 8) = (/ & |
259 |
|
|
& 0.81996E+03_JPRB,0.82070E+03_JPRB,0.82152E+03_JPRB,0.82243E+03_JPRB,0.82339E+03_JPRB /) |
260 |
|
|
KA(:, 6, 8) = (/ & |
261 |
|
|
& 0.81952E+03_JPRB,0.82021E+03_JPRB,0.82098E+03_JPRB,0.82184E+03_JPRB,0.82277E+03_JPRB /) |
262 |
|
|
KA(:, 7, 8) = (/ & |
263 |
|
|
& 0.81917E+03_JPRB,0.81977E+03_JPRB,0.82048E+03_JPRB,0.82129E+03_JPRB,0.82218E+03_JPRB /) |
264 |
|
|
KA(:, 8, 8) = (/ & |
265 |
|
|
& 0.81881E+03_JPRB,0.81938E+03_JPRB,0.82004E+03_JPRB,0.82080E+03_JPRB,0.82163E+03_JPRB /) |
266 |
|
|
KA(:, 9, 8) = (/ & |
267 |
|
|
& 0.81846E+03_JPRB,0.81906E+03_JPRB,0.81965E+03_JPRB,0.82035E+03_JPRB,0.82114E+03_JPRB /) |
268 |
|
|
KA(:,10, 8) = (/ & |
269 |
|
|
& 0.81821E+03_JPRB,0.81877E+03_JPRB,0.81934E+03_JPRB,0.82000E+03_JPRB,0.82074E+03_JPRB /) |
270 |
|
|
KA(:,11, 8) = (/ & |
271 |
|
|
& 0.81821E+03_JPRB,0.81877E+03_JPRB,0.81934E+03_JPRB,0.81999E+03_JPRB,0.82074E+03_JPRB /) |
272 |
|
|
KA(:,12, 8) = (/ & |
273 |
|
|
& 0.81821E+03_JPRB,0.81877E+03_JPRB,0.81934E+03_JPRB,0.81999E+03_JPRB,0.82074E+03_JPRB /) |
274 |
|
|
KA(:,13, 8) = (/ & |
275 |
|
|
& 0.81821E+03_JPRB,0.81877E+03_JPRB,0.81935E+03_JPRB,0.81999E+03_JPRB,0.82074E+03_JPRB /) |
276 |
|
|
KA(:, 1, 9) = (/ & |
277 |
|
|
& 0.10204E+08_JPRB,0.99477E+07_JPRB,0.97209E+07_JPRB,0.95103E+07_JPRB,0.92960E+07_JPRB /) |
278 |
|
|
KA(:, 2, 9) = (/ & |
279 |
|
|
& 0.95102E+03_JPRB,0.95144E+03_JPRB,0.95133E+03_JPRB,0.95066E+03_JPRB,0.94964E+03_JPRB /) |
280 |
|
|
KA(:, 3, 9) = (/ & |
281 |
|
|
& 0.95048E+03_JPRB,0.95118E+03_JPRB,0.95136E+03_JPRB,0.95103E+03_JPRB,0.95020E+03_JPRB /) |
282 |
|
|
KA(:, 4, 9) = (/ & |
283 |
|
|
& 0.94969E+03_JPRB,0.95077E+03_JPRB,0.95126E+03_JPRB,0.95124E+03_JPRB,0.95074E+03_JPRB /) |
284 |
|
|
KA(:, 5, 9) = (/ & |
285 |
|
|
& 0.94872E+03_JPRB,0.95015E+03_JPRB,0.95101E+03_JPRB,0.95129E+03_JPRB,0.95105E+03_JPRB /) |
286 |
|
|
KA(:, 6, 9) = (/ & |
287 |
|
|
& 0.94752E+03_JPRB,0.94929E+03_JPRB,0.95052E+03_JPRB,0.95116E+03_JPRB,0.95126E+03_JPRB /) |
288 |
|
|
KA(:, 7, 9) = (/ & |
289 |
|
|
& 0.94612E+03_JPRB,0.94825E+03_JPRB,0.94981E+03_JPRB,0.95083E+03_JPRB,0.95126E+03_JPRB /) |
290 |
|
|
KA(:, 8, 9) = (/ & |
291 |
|
|
& 0.94461E+03_JPRB,0.94704E+03_JPRB,0.94894E+03_JPRB,0.95029E+03_JPRB,0.95107E+03_JPRB /) |
292 |
|
|
KA(:, 9, 9) = (/ & |
293 |
|
|
& 0.94291E+03_JPRB,0.94567E+03_JPRB,0.94791E+03_JPRB,0.94957E+03_JPRB,0.95069E+03_JPRB /) |
294 |
|
|
KA(:,10, 9) = (/ & |
295 |
|
|
& 0.94135E+03_JPRB,0.94441E+03_JPRB,0.94689E+03_JPRB,0.94884E+03_JPRB,0.95022E+03_JPRB /) |
296 |
|
|
KA(:,11, 9) = (/ & |
297 |
|
|
& 0.94133E+03_JPRB,0.94440E+03_JPRB,0.94688E+03_JPRB,0.94883E+03_JPRB,0.95021E+03_JPRB /) |
298 |
|
|
KA(:,12, 9) = (/ & |
299 |
|
|
& 0.94133E+03_JPRB,0.94438E+03_JPRB,0.94688E+03_JPRB,0.94883E+03_JPRB,0.95021E+03_JPRB /) |
300 |
|
|
KA(:,13, 9) = (/ & |
301 |
|
|
& 0.94133E+03_JPRB,0.94438E+03_JPRB,0.94687E+03_JPRB,0.94883E+03_JPRB,0.95021E+03_JPRB /) |
302 |
|
|
KA(:, 1,10) = (/ & |
303 |
|
|
& 0.12764E+08_JPRB,0.12408E+08_JPRB,0.12012E+08_JPRB,0.11438E+08_JPRB,0.11217E+08_JPRB /) |
304 |
|
|
KA(:, 2,10) = (/ & |
305 |
|
|
& 0.99589E+03_JPRB,0.99493E+03_JPRB,0.99263E+03_JPRB,0.98974E+03_JPRB,0.98742E+03_JPRB /) |
306 |
|
|
KA(:, 3,10) = (/ & |
307 |
|
|
& 0.99532E+03_JPRB,0.99571E+03_JPRB,0.99447E+03_JPRB,0.99207E+03_JPRB,0.98779E+03_JPRB /) |
308 |
|
|
KA(:, 4,10) = (/ & |
309 |
|
|
& 0.99446E+03_JPRB,0.99559E+03_JPRB,0.99536E+03_JPRB,0.99386E+03_JPRB,0.99088E+03_JPRB /) |
310 |
|
|
KA(:, 5,10) = (/ & |
311 |
|
|
& 0.99288E+03_JPRB,0.99493E+03_JPRB,0.99558E+03_JPRB,0.99487E+03_JPRB,0.99336E+03_JPRB /) |
312 |
|
|
KA(:, 6,10) = (/ & |
313 |
|
|
& 0.99069E+03_JPRB,0.99366E+03_JPRB,0.99519E+03_JPRB,0.99534E+03_JPRB,0.99428E+03_JPRB /) |
314 |
|
|
KA(:, 7,10) = (/ & |
315 |
|
|
& 0.98811E+03_JPRB,0.99191E+03_JPRB,0.99430E+03_JPRB,0.99510E+03_JPRB,0.99504E+03_JPRB /) |
316 |
|
|
KA(:, 8,10) = (/ & |
317 |
|
|
& 0.98531E+03_JPRB,0.98996E+03_JPRB,0.99300E+03_JPRB,0.99479E+03_JPRB,0.99513E+03_JPRB /) |
318 |
|
|
KA(:, 9,10) = (/ & |
319 |
|
|
& 0.98264E+03_JPRB,0.98737E+03_JPRB,0.99138E+03_JPRB,0.99390E+03_JPRB,0.99503E+03_JPRB /) |
320 |
|
|
KA(:,10,10) = (/ & |
321 |
|
|
& 0.98010E+03_JPRB,0.98517E+03_JPRB,0.98974E+03_JPRB,0.99281E+03_JPRB,0.99470E+03_JPRB /) |
322 |
|
|
KA(:,11,10) = (/ & |
323 |
|
|
& 0.98010E+03_JPRB,0.98509E+03_JPRB,0.98985E+03_JPRB,0.99280E+03_JPRB,0.99468E+03_JPRB /) |
324 |
|
|
KA(:,12,10) = (/ & |
325 |
|
|
& 0.98035E+03_JPRB,0.98524E+03_JPRB,0.98973E+03_JPRB,0.99279E+03_JPRB,0.99468E+03_JPRB /) |
326 |
|
|
KA(:,13,10) = (/ & |
327 |
|
|
& 0.98012E+03_JPRB,0.98526E+03_JPRB,0.98973E+03_JPRB,0.99279E+03_JPRB,0.99468E+03_JPRB /) |
328 |
|
|
KA(:, 1,11) = (/ & |
329 |
|
|
& 0.12266E+08_JPRB,0.12000E+08_JPRB,0.11724E+08_JPRB,0.11828E+08_JPRB,0.11523E+08_JPRB /) |
330 |
|
|
KA(:, 2,11) = (/ & |
331 |
|
|
& 0.10001E+04_JPRB,0.99984E+03_JPRB,0.99745E+03_JPRB,0.99535E+03_JPRB,0.98599E+03_JPRB /) |
332 |
|
|
KA(:, 3,11) = (/ & |
333 |
|
|
& 0.99963E+03_JPRB,0.99927E+03_JPRB,0.99848E+03_JPRB,0.99596E+03_JPRB,0.99390E+03_JPRB /) |
334 |
|
|
KA(:, 4,11) = (/ & |
335 |
|
|
& 0.99904E+03_JPRB,0.99942E+03_JPRB,0.99870E+03_JPRB,0.99747E+03_JPRB,0.99542E+03_JPRB /) |
336 |
|
|
KA(:, 5,11) = (/ & |
337 |
|
|
& 0.99826E+03_JPRB,0.99927E+03_JPRB,0.99919E+03_JPRB,0.99821E+03_JPRB,0.99627E+03_JPRB /) |
338 |
|
|
KA(:, 6,11) = (/ & |
339 |
|
|
& 0.99730E+03_JPRB,0.99882E+03_JPRB,0.99938E+03_JPRB,0.99902E+03_JPRB,0.99764E+03_JPRB /) |
340 |
|
|
KA(:, 7,11) = (/ & |
341 |
|
|
& 0.99551E+03_JPRB,0.99810E+03_JPRB,0.99919E+03_JPRB,0.99961E+03_JPRB,0.99863E+03_JPRB /) |
342 |
|
|
KA(:, 8,11) = (/ & |
343 |
|
|
& 0.99324E+03_JPRB,0.99688E+03_JPRB,0.99871E+03_JPRB,0.99940E+03_JPRB,0.99942E+03_JPRB /) |
344 |
|
|
KA(:, 9,11) = (/ & |
345 |
|
|
& 0.99058E+03_JPRB,0.99489E+03_JPRB,0.99773E+03_JPRB,0.99912E+03_JPRB,0.99954E+03_JPRB /) |
346 |
|
|
KA(:,10,11) = (/ & |
347 |
|
|
& 0.98802E+03_JPRB,0.99297E+03_JPRB,0.99656E+03_JPRB,0.99861E+03_JPRB,0.99937E+03_JPRB /) |
348 |
|
|
KA(:,11,11) = (/ & |
349 |
|
|
& 0.98800E+03_JPRB,0.99310E+03_JPRB,0.99655E+03_JPRB,0.99860E+03_JPRB,0.99936E+03_JPRB /) |
350 |
|
|
KA(:,12,11) = (/ & |
351 |
|
|
& 0.98771E+03_JPRB,0.99296E+03_JPRB,0.99669E+03_JPRB,0.99859E+03_JPRB,0.99936E+03_JPRB /) |
352 |
|
|
KA(:,13,11) = (/ & |
353 |
|
|
& 0.98800E+03_JPRB,0.99296E+03_JPRB,0.99655E+03_JPRB,0.99859E+03_JPRB,0.99936E+03_JPRB /) |
354 |
|
|
KA(:, 1,12) = (/ & |
355 |
|
|
& 0.12503E+08_JPRB,0.11946E+08_JPRB,0.11557E+08_JPRB,0.11503E+08_JPRB,0.11901E+08_JPRB /) |
356 |
|
|
KA(:, 2,12) = (/ & |
357 |
|
|
& 0.10015E+04_JPRB,0.10004E+04_JPRB,0.99932E+03_JPRB,0.99373E+03_JPRB,0.98591E+03_JPRB /) |
358 |
|
|
KA(:, 3,12) = (/ & |
359 |
|
|
& 0.10024E+04_JPRB,0.10021E+04_JPRB,0.10003E+04_JPRB,0.99817E+03_JPRB,0.99146E+03_JPRB /) |
360 |
|
|
KA(:, 4,12) = (/ & |
361 |
|
|
& 0.10022E+04_JPRB,0.10027E+04_JPRB,0.10021E+04_JPRB,0.99956E+03_JPRB,0.99610E+03_JPRB /) |
362 |
|
|
KA(:, 5,12) = (/ & |
363 |
|
|
& 0.10024E+04_JPRB,0.10024E+04_JPRB,0.10028E+04_JPRB,0.10015E+04_JPRB,0.99826E+03_JPRB /) |
364 |
|
|
KA(:, 6,12) = (/ & |
365 |
|
|
& 0.10017E+04_JPRB,0.10025E+04_JPRB,0.10025E+04_JPRB,0.10023E+04_JPRB,0.10008E+04_JPRB /) |
366 |
|
|
KA(:, 7,12) = (/ & |
367 |
|
|
& 0.10005E+04_JPRB,0.10020E+04_JPRB,0.10028E+04_JPRB,0.10028E+04_JPRB,0.10019E+04_JPRB /) |
368 |
|
|
KA(:, 8,12) = (/ & |
369 |
|
|
& 0.10000E+04_JPRB,0.10010E+04_JPRB,0.10024E+04_JPRB,0.10029E+04_JPRB,0.10023E+04_JPRB /) |
370 |
|
|
KA(:, 9,12) = (/ & |
371 |
|
|
& 0.99906E+03_JPRB,0.10004E+04_JPRB,0.10018E+04_JPRB,0.10029E+04_JPRB,0.10028E+04_JPRB /) |
372 |
|
|
KA(:,10,12) = (/ & |
373 |
|
|
& 0.99791E+03_JPRB,0.99989E+03_JPRB,0.10010E+04_JPRB,0.10024E+04_JPRB,0.10031E+04_JPRB /) |
374 |
|
|
KA(:,11,12) = (/ & |
375 |
|
|
& 0.99769E+03_JPRB,0.99967E+03_JPRB,0.10008E+04_JPRB,0.10024E+04_JPRB,0.10029E+04_JPRB /) |
376 |
|
|
KA(:,12,12) = (/ & |
377 |
|
|
& 0.99787E+03_JPRB,0.99985E+03_JPRB,0.10008E+04_JPRB,0.10025E+04_JPRB,0.10029E+04_JPRB /) |
378 |
|
|
KA(:,13,12) = (/ & |
379 |
|
|
& 0.99768E+03_JPRB,0.99984E+03_JPRB,0.10012E+04_JPRB,0.10026E+04_JPRB,0.10029E+04_JPRB /) |
380 |
|
|
KA(:, 1,13) = (/ & |
381 |
|
|
& 0.12359E+08_JPRB,0.12469E+08_JPRB,0.12868E+08_JPRB,0.12776E+08_JPRB,0.12590E+08_JPRB /) |
382 |
|
|
KA(:, 2,13) = (/ & |
383 |
|
|
& 0.10045E+04_JPRB,0.10033E+04_JPRB,0.99840E+03_JPRB,0.99184E+03_JPRB,0.98861E+03_JPRB /) |
384 |
|
|
KA(:, 3,13) = (/ & |
385 |
|
|
& 0.10050E+04_JPRB,0.10041E+04_JPRB,0.10024E+04_JPRB,0.99701E+03_JPRB,0.99083E+03_JPRB /) |
386 |
|
|
KA(:, 4,13) = (/ & |
387 |
|
|
& 0.10053E+04_JPRB,0.10043E+04_JPRB,0.10035E+04_JPRB,0.10017E+04_JPRB,0.99538E+03_JPRB /) |
388 |
|
|
KA(:, 5,13) = (/ & |
389 |
|
|
& 0.10048E+04_JPRB,0.10056E+04_JPRB,0.10038E+04_JPRB,0.10026E+04_JPRB,0.10008E+04_JPRB /) |
390 |
|
|
KA(:, 6,13) = (/ & |
391 |
|
|
& 0.10042E+04_JPRB,0.10054E+04_JPRB,0.10054E+04_JPRB,0.10039E+04_JPRB,0.10017E+04_JPRB /) |
392 |
|
|
KA(:, 7,13) = (/ & |
393 |
|
|
& 0.10029E+04_JPRB,0.10046E+04_JPRB,0.10055E+04_JPRB,0.10046E+04_JPRB,0.10033E+04_JPRB /) |
394 |
|
|
KA(:, 8,13) = (/ & |
395 |
|
|
& 0.10002E+04_JPRB,0.10039E+04_JPRB,0.10051E+04_JPRB,0.10054E+04_JPRB,0.10046E+04_JPRB /) |
396 |
|
|
KA(:, 9,13) = (/ & |
397 |
|
|
& 0.99825E+03_JPRB,0.10019E+04_JPRB,0.10043E+04_JPRB,0.10051E+04_JPRB,0.10052E+04_JPRB /) |
398 |
|
|
KA(:,10,13) = (/ & |
399 |
|
|
& 0.99595E+03_JPRB,0.99983E+03_JPRB,0.10034E+04_JPRB,0.10050E+04_JPRB,0.10051E+04_JPRB /) |
400 |
|
|
KA(:,11,13) = (/ & |
401 |
|
|
& 0.99621E+03_JPRB,0.99979E+03_JPRB,0.10034E+04_JPRB,0.10050E+04_JPRB,0.10054E+04_JPRB /) |
402 |
|
|
KA(:,12,13) = (/ & |
403 |
|
|
& 0.99597E+03_JPRB,0.99979E+03_JPRB,0.10031E+04_JPRB,0.10047E+04_JPRB,0.10054E+04_JPRB /) |
404 |
|
|
KA(:,13,13) = (/ & |
405 |
|
|
& 0.99623E+03_JPRB,0.99978E+03_JPRB,0.10031E+04_JPRB,0.10047E+04_JPRB,0.10054E+04_JPRB /) |
406 |
|
|
KA(:, 1,14) = (/ & |
407 |
|
|
& 0.13636E+08_JPRB,0.13818E+08_JPRB,0.13518E+08_JPRB,0.13266E+08_JPRB,0.13048E+08_JPRB /) |
408 |
|
|
KA(:, 2,14) = (/ & |
409 |
|
|
& 0.10049E+04_JPRB,0.99946E+03_JPRB,0.99774E+03_JPRB,0.99774E+03_JPRB,0.99771E+03_JPRB /) |
410 |
|
|
KA(:, 3,14) = (/ & |
411 |
|
|
& 0.10051E+04_JPRB,0.10068E+04_JPRB,0.10007E+04_JPRB,0.99775E+03_JPRB,0.99778E+03_JPRB /) |
412 |
|
|
KA(:, 4,14) = (/ & |
413 |
|
|
& 0.10071E+04_JPRB,0.10061E+04_JPRB,0.10050E+04_JPRB,0.10005E+04_JPRB,0.99776E+03_JPRB /) |
414 |
|
|
KA(:, 5,14) = (/ & |
415 |
|
|
& 0.10067E+04_JPRB,0.10072E+04_JPRB,0.10061E+04_JPRB,0.10044E+04_JPRB,0.99972E+03_JPRB /) |
416 |
|
|
KA(:, 6,14) = (/ & |
417 |
|
|
& 0.10049E+04_JPRB,0.10070E+04_JPRB,0.10074E+04_JPRB,0.10057E+04_JPRB,0.10037E+04_JPRB /) |
418 |
|
|
KA(:, 7,14) = (/ & |
419 |
|
|
& 0.10033E+04_JPRB,0.10063E+04_JPRB,0.10072E+04_JPRB,0.10067E+04_JPRB,0.10050E+04_JPRB /) |
420 |
|
|
KA(:, 8,14) = (/ & |
421 |
|
|
& 0.10025E+04_JPRB,0.10048E+04_JPRB,0.10068E+04_JPRB,0.10071E+04_JPRB,0.10062E+04_JPRB /) |
422 |
|
|
KA(:, 9,14) = (/ & |
423 |
|
|
& 0.99880E+03_JPRB,0.10031E+04_JPRB,0.10060E+04_JPRB,0.10071E+04_JPRB,0.10069E+04_JPRB /) |
424 |
|
|
KA(:,10,14) = (/ & |
425 |
|
|
& 0.99610E+03_JPRB,0.10023E+04_JPRB,0.10047E+04_JPRB,0.10067E+04_JPRB,0.10072E+04_JPRB /) |
426 |
|
|
KA(:,11,14) = (/ & |
427 |
|
|
& 0.99601E+03_JPRB,0.10023E+04_JPRB,0.10047E+04_JPRB,0.10067E+04_JPRB,0.10072E+04_JPRB /) |
428 |
|
|
KA(:,12,14) = (/ & |
429 |
|
|
& 0.99598E+03_JPRB,0.10023E+04_JPRB,0.10051E+04_JPRB,0.10067E+04_JPRB,0.10076E+04_JPRB /) |
430 |
|
|
KA(:,13,14) = (/ & |
431 |
|
|
& 0.99596E+03_JPRB,0.10027E+04_JPRB,0.10047E+04_JPRB,0.10067E+04_JPRB,0.10072E+04_JPRB /) |
432 |
|
|
KA(:, 1,15) = (/ & |
433 |
|
|
& 0.14285E+08_JPRB,0.13947E+08_JPRB,0.13644E+08_JPRB,0.13317E+08_JPRB,0.13015E+08_JPRB /) |
434 |
|
|
KA(:, 2,15) = (/ & |
435 |
|
|
& 0.99932E+03_JPRB,0.10011E+04_JPRB,0.10018E+04_JPRB,0.10007E+04_JPRB,0.99706E+03_JPRB /) |
436 |
|
|
KA(:, 3,15) = (/ & |
437 |
|
|
& 0.10097E+04_JPRB,0.99743E+03_JPRB,0.10015E+04_JPRB,0.10018E+04_JPRB,0.99920E+03_JPRB /) |
438 |
|
|
KA(:, 4,15) = (/ & |
439 |
|
|
& 0.10099E+04_JPRB,0.10076E+04_JPRB,0.10030E+04_JPRB,0.10017E+04_JPRB,0.10013E+04_JPRB /) |
440 |
|
|
KA(:, 5,15) = (/ & |
441 |
|
|
& 0.10075E+04_JPRB,0.10079E+04_JPRB,0.10073E+04_JPRB,0.10035E+04_JPRB,0.10018E+04_JPRB /) |
442 |
|
|
KA(:, 6,15) = (/ & |
443 |
|
|
& 0.10068E+04_JPRB,0.10088E+04_JPRB,0.10068E+04_JPRB,0.10090E+04_JPRB,0.10033E+04_JPRB /) |
444 |
|
|
KA(:, 7,15) = (/ & |
445 |
|
|
& 0.10057E+04_JPRB,0.10073E+04_JPRB,0.10090E+04_JPRB,0.10087E+04_JPRB,0.10062E+04_JPRB /) |
446 |
|
|
KA(:, 8,15) = (/ & |
447 |
|
|
& 0.10010E+04_JPRB,0.10054E+04_JPRB,0.10076E+04_JPRB,0.10079E+04_JPRB,0.10072E+04_JPRB /) |
448 |
|
|
KA(:, 9,15) = (/ & |
449 |
|
|
& 0.99853E+03_JPRB,0.10054E+04_JPRB,0.10071E+04_JPRB,0.10079E+04_JPRB,0.10078E+04_JPRB /) |
450 |
|
|
KA(:,10,15) = (/ & |
451 |
|
|
& 0.99742E+03_JPRB,0.10007E+04_JPRB,0.10064E+04_JPRB,0.10076E+04_JPRB,0.10080E+04_JPRB /) |
452 |
|
|
KA(:,11,15) = (/ & |
453 |
|
|
& 0.99635E+03_JPRB,0.10006E+04_JPRB,0.10064E+04_JPRB,0.10087E+04_JPRB,0.10090E+04_JPRB /) |
454 |
|
|
KA(:,12,15) = (/ & |
455 |
|
|
& 0.99635E+03_JPRB,0.10006E+04_JPRB,0.10064E+04_JPRB,0.10087E+04_JPRB,0.10069E+04_JPRB /) |
456 |
|
|
KA(:,13,15) = (/ & |
457 |
|
|
& 0.99635E+03_JPRB,0.99960E+03_JPRB,0.10064E+04_JPRB,0.10076E+04_JPRB,0.10080E+04_JPRB /) |
458 |
|
|
KA(:, 1,16) = (/ & |
459 |
|
|
& 0.14326E+08_JPRB,0.13988E+08_JPRB,0.13684E+08_JPRB,0.13409E+08_JPRB,0.13021E+08_JPRB /) |
460 |
|
|
KA(:, 2,16) = (/ & |
461 |
|
|
& 0.10008E+04_JPRB,0.10027E+04_JPRB,0.10036E+04_JPRB,0.10037E+04_JPRB,0.99673E+03_JPRB /) |
462 |
|
|
KA(:, 3,16) = (/ & |
463 |
|
|
& 0.99286E+03_JPRB,0.10016E+04_JPRB,0.10031E+04_JPRB,0.10038E+04_JPRB,0.10035E+04_JPRB /) |
464 |
|
|
KA(:, 4,16) = (/ & |
465 |
|
|
& 0.99278E+03_JPRB,0.10078E+04_JPRB,0.10023E+04_JPRB,0.10035E+04_JPRB,0.10038E+04_JPRB /) |
466 |
|
|
KA(:, 5,16) = (/ & |
467 |
|
|
& 0.10074E+04_JPRB,0.10079E+04_JPRB,0.10075E+04_JPRB,0.10028E+04_JPRB,0.10037E+04_JPRB /) |
468 |
|
|
KA(:, 6,16) = (/ & |
469 |
|
|
& 0.10069E+04_JPRB,0.10002E+04_JPRB,0.10079E+04_JPRB,0.99212E+03_JPRB,0.10032E+04_JPRB /) |
470 |
|
|
KA(:, 7,16) = (/ & |
471 |
|
|
& 0.10060E+04_JPRB,0.10072E+04_JPRB,0.10004E+04_JPRB,0.10003E+04_JPRB,0.10063E+04_JPRB /) |
472 |
|
|
KA(:, 8,16) = (/ & |
473 |
|
|
& 0.10009E+04_JPRB,0.10066E+04_JPRB,0.10075E+04_JPRB,0.10080E+04_JPRB,0.10074E+04_JPRB /) |
474 |
|
|
KA(:, 9,16) = (/ & |
475 |
|
|
& 0.99860E+03_JPRB,0.10057E+04_JPRB,0.10071E+04_JPRB,0.10078E+04_JPRB,0.10079E+04_JPRB /) |
476 |
|
|
KA(:,10,16) = (/ & |
477 |
|
|
& 0.98908E+03_JPRB,0.10006E+04_JPRB,0.10065E+04_JPRB,0.10075E+04_JPRB,0.10080E+04_JPRB /) |
478 |
|
|
KA(:,11,16) = (/ & |
479 |
|
|
& 0.99644E+03_JPRB,0.10006E+04_JPRB,0.10065E+04_JPRB,0.10000E+04_JPRB,0.10005E+04_JPRB /) |
480 |
|
|
KA(:,12,16) = (/ & |
481 |
|
|
& 0.99644E+03_JPRB,0.10006E+04_JPRB,0.10065E+04_JPRB,0.10000E+04_JPRB,0.10080E+04_JPRB /) |
482 |
|
|
KA(:,13,16) = (/ & |
483 |
|
|
& 0.99644E+03_JPRB,0.10006E+04_JPRB,0.10065E+04_JPRB,0.10075E+04_JPRB,0.10080E+04_JPRB /) |
484 |
|
|
|
485 |
|
|
! ----------------------------------------------------------------- |
486 |
|
|
! The array KB contains absorption coefs at the 16 chosen g-values |
487 |
|
|
! for a range of pressure levels < ~100mb and temperatures. The first |
488 |
|
|
! index in the array, JT, which runs from 1 to 5, corresponds to |
489 |
|
|
! different temperatures. More specifically, JT = 3 means that the |
490 |
|
|
! data are for the reference temperature TREF for this pressure |
491 |
|
|
! level, JT = 2 refers to the temperature TREF-15, JT = 1 is for |
492 |
|
|
! TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30. |
493 |
|
|
! The second index, JP, runs from 13 to 59 and refers to the JPth |
494 |
|
|
! reference pressure level (see taumol.f for the value of these |
495 |
|
|
! pressure levels in mb). The third index, IG, goes from 1 to 16, |
496 |
|
|
! and tells us which g-interval the absorption coefficients are for. |
497 |
|
|
! ----------------------------------------------------------------- |
498 |
|
|
|
499 |
|
|
KB(:,13, 1) = (/ & |
500 |
|
|
& 0.16036E+00_JPRB,0.16399E+00_JPRB,0.17198E+00_JPRB,0.18455E+00_JPRB,0.20173E+00_JPRB /) |
501 |
|
|
KB(:,14, 1) = (/ & |
502 |
|
|
& 0.16050E+00_JPRB,0.16454E+00_JPRB,0.17292E+00_JPRB,0.18592E+00_JPRB,0.20351E+00_JPRB /) |
503 |
|
|
KB(:,15, 1) = (/ & |
504 |
|
|
& 0.16071E+00_JPRB,0.16519E+00_JPRB,0.17400E+00_JPRB,0.18750E+00_JPRB,0.20554E+00_JPRB /) |
505 |
|
|
KB(:,16, 1) = (/ & |
506 |
|
|
& 0.16098E+00_JPRB,0.16593E+00_JPRB,0.17517E+00_JPRB,0.18921E+00_JPRB,0.20772E+00_JPRB /) |
507 |
|
|
KB(:,17, 1) = (/ & |
508 |
|
|
& 0.16129E+00_JPRB,0.16670E+00_JPRB,0.17642E+00_JPRB,0.19093E+00_JPRB,0.20991E+00_JPRB /) |
509 |
|
|
KB(:,18, 1) = (/ & |
510 |
|
|
& 0.16164E+00_JPRB,0.16750E+00_JPRB,0.17771E+00_JPRB,0.19267E+00_JPRB,0.21211E+00_JPRB /) |
511 |
|
|
KB(:,19, 1) = (/ & |
512 |
|
|
& 0.16203E+00_JPRB,0.16832E+00_JPRB,0.17901E+00_JPRB,0.19443E+00_JPRB,0.21431E+00_JPRB /) |
513 |
|
|
KB(:,20, 1) = (/ & |
514 |
|
|
& 0.16255E+00_JPRB,0.16934E+00_JPRB,0.18059E+00_JPRB,0.19653E+00_JPRB,0.21694E+00_JPRB /) |
515 |
|
|
KB(:,21, 1) = (/ & |
516 |
|
|
& 0.16313E+00_JPRB,0.17044E+00_JPRB,0.18225E+00_JPRB,0.19873E+00_JPRB,0.21967E+00_JPRB /) |
517 |
|
|
KB(:,22, 1) = (/ & |
518 |
|
|
& 0.16416E+00_JPRB,0.17227E+00_JPRB,0.18498E+00_JPRB,0.20229E+00_JPRB,0.22406E+00_JPRB /) |
519 |
|
|
KB(:,23, 1) = (/ & |
520 |
|
|
& 0.16539E+00_JPRB,0.17431E+00_JPRB,0.18796E+00_JPRB,0.20612E+00_JPRB,0.22875E+00_JPRB /) |
521 |
|
|
KB(:,24, 1) = (/ & |
522 |
|
|
& 0.16684E+00_JPRB,0.17666E+00_JPRB,0.19125E+00_JPRB,0.21032E+00_JPRB,0.23385E+00_JPRB /) |
523 |
|
|
KB(:,25, 1) = (/ & |
524 |
|
|
& 0.16856E+00_JPRB,0.17939E+00_JPRB,0.19493E+00_JPRB,0.21495E+00_JPRB,0.23943E+00_JPRB /) |
525 |
|
|
KB(:,26, 1) = (/ & |
526 |
|
|
& 0.17067E+00_JPRB,0.18260E+00_JPRB,0.19919E+00_JPRB,0.22024E+00_JPRB,0.24578E+00_JPRB /) |
527 |
|
|
KB(:,27, 1) = (/ & |
528 |
|
|
& 0.17306E+00_JPRB,0.18613E+00_JPRB,0.20377E+00_JPRB,0.22588E+00_JPRB,0.25248E+00_JPRB /) |
529 |
|
|
KB(:,28, 1) = (/ & |
530 |
|
|
& 0.17570E+00_JPRB,0.18994E+00_JPRB,0.20865E+00_JPRB,0.23184E+00_JPRB,0.25952E+00_JPRB /) |
531 |
|
|
KB(:,29, 1) = (/ & |
532 |
|
|
& 0.17882E+00_JPRB,0.19417E+00_JPRB,0.21399E+00_JPRB,0.23828E+00_JPRB,0.26708E+00_JPRB /) |
533 |
|
|
KB(:,30, 1) = (/ & |
534 |
|
|
& 0.18223E+00_JPRB,0.19870E+00_JPRB,0.21964E+00_JPRB,0.24505E+00_JPRB,0.27492E+00_JPRB /) |
535 |
|
|
KB(:,31, 1) = (/ & |
536 |
|
|
& 0.18602E+00_JPRB,0.20364E+00_JPRB,0.22572E+00_JPRB,0.25229E+00_JPRB,0.28325E+00_JPRB /) |
537 |
|
|
KB(:,32, 1) = (/ & |
538 |
|
|
& 0.19018E+00_JPRB,0.20895E+00_JPRB,0.23219E+00_JPRB,0.25994E+00_JPRB,0.29200E+00_JPRB /) |
539 |
|
|
KB(:,33, 1) = (/ & |
540 |
|
|
& 0.19466E+00_JPRB,0.21461E+00_JPRB,0.23902E+00_JPRB,0.26795E+00_JPRB,0.30114E+00_JPRB /) |
541 |
|
|
KB(:,34, 1) = (/ & |
542 |
|
|
& 0.19880E+00_JPRB,0.21976E+00_JPRB,0.24520E+00_JPRB,0.27509E+00_JPRB,0.30932E+00_JPRB /) |
543 |
|
|
KB(:,35, 1) = (/ & |
544 |
|
|
& 0.20129E+00_JPRB,0.22283E+00_JPRB,0.24886E+00_JPRB,0.27931E+00_JPRB,0.31412E+00_JPRB /) |
545 |
|
|
KB(:,36, 1) = (/ & |
546 |
|
|
& 0.20170E+00_JPRB,0.22334E+00_JPRB,0.24946E+00_JPRB,0.28000E+00_JPRB,0.31492E+00_JPRB /) |
547 |
|
|
KB(:,37, 1) = (/ & |
548 |
|
|
& 0.19920E+00_JPRB,0.22026E+00_JPRB,0.24579E+00_JPRB,0.27578E+00_JPRB,0.31010E+00_JPRB /) |
549 |
|
|
KB(:,38, 1) = (/ & |
550 |
|
|
& 0.19662E+00_JPRB,0.21706E+00_JPRB,0.24197E+00_JPRB,0.27135E+00_JPRB,0.30504E+00_JPRB /) |
551 |
|
|
KB(:,39, 1) = (/ & |
552 |
|
|
& 0.19414E+00_JPRB,0.21396E+00_JPRB,0.23824E+00_JPRB,0.26704E+00_JPRB,0.30010E+00_JPRB /) |
553 |
|
|
KB(:,40, 1) = (/ & |
554 |
|
|
& 0.19003E+00_JPRB,0.20877E+00_JPRB,0.23197E+00_JPRB,0.25968E+00_JPRB,0.29171E+00_JPRB /) |
555 |
|
|
KB(:,41, 1) = (/ & |
556 |
|
|
& 0.18597E+00_JPRB,0.20357E+00_JPRB,0.22564E+00_JPRB,0.25219E+00_JPRB,0.28314E+00_JPRB /) |
557 |
|
|
KB(:,42, 1) = (/ & |
558 |
|
|
& 0.18220E+00_JPRB,0.19865E+00_JPRB,0.21958E+00_JPRB,0.24498E+00_JPRB,0.27484E+00_JPRB /) |
559 |
|
|
KB(:,43, 1) = (/ & |
560 |
|
|
& 0.17798E+00_JPRB,0.19304E+00_JPRB,0.21257E+00_JPRB,0.23657E+00_JPRB,0.26510E+00_JPRB /) |
561 |
|
|
KB(:,44, 1) = (/ & |
562 |
|
|
& 0.17397E+00_JPRB,0.18746E+00_JPRB,0.20548E+00_JPRB,0.22798E+00_JPRB,0.25496E+00_JPRB /) |
563 |
|
|
KB(:,45, 1) = (/ & |
564 |
|
|
& 0.17053E+00_JPRB,0.18239E+00_JPRB,0.19890E+00_JPRB,0.21989E+00_JPRB,0.24535E+00_JPRB /) |
565 |
|
|
KB(:,46, 1) = (/ & |
566 |
|
|
& 0.16739E+00_JPRB,0.17754E+00_JPRB,0.19245E+00_JPRB,0.21183E+00_JPRB,0.23568E+00_JPRB /) |
567 |
|
|
KB(:,47, 1) = (/ & |
568 |
|
|
& 0.16454E+00_JPRB,0.17292E+00_JPRB,0.18592E+00_JPRB,0.20351E+00_JPRB,0.22556E+00_JPRB /) |
569 |
|
|
KB(:,48, 1) = (/ & |
570 |
|
|
& 0.16239E+00_JPRB,0.16903E+00_JPRB,0.18011E+00_JPRB,0.19590E+00_JPRB,0.21615E+00_JPRB /) |
571 |
|
|
KB(:,49, 1) = (/ & |
572 |
|
|
& 0.16095E+00_JPRB,0.16584E+00_JPRB,0.17504E+00_JPRB,0.18902E+00_JPRB,0.20747E+00_JPRB /) |
573 |
|
|
KB(:,50, 1) = (/ & |
574 |
|
|
& 0.16025E+00_JPRB,0.16348E+00_JPRB,0.17109E+00_JPRB,0.18322E+00_JPRB,0.20000E+00_JPRB /) |
575 |
|
|
KB(:,51, 1) = (/ & |
576 |
|
|
& 0.16021E+00_JPRB,0.16179E+00_JPRB,0.16781E+00_JPRB,0.17821E+00_JPRB,0.19335E+00_JPRB /) |
577 |
|
|
KB(:,52, 1) = (/ & |
578 |
|
|
& 0.16078E+00_JPRB,0.16068E+00_JPRB,0.16511E+00_JPRB,0.17387E+00_JPRB,0.18731E+00_JPRB /) |
579 |
|
|
KB(:,53, 1) = (/ & |
580 |
|
|
& 0.16197E+00_JPRB,0.16018E+00_JPRB,0.16299E+00_JPRB,0.17017E+00_JPRB,0.18186E+00_JPRB /) |
581 |
|
|
KB(:,54, 1) = (/ & |
582 |
|
|
& 0.16362E+00_JPRB,0.16026E+00_JPRB,0.16155E+00_JPRB,0.16729E+00_JPRB,0.17738E+00_JPRB /) |
583 |
|
|
KB(:,55, 1) = (/ & |
584 |
|
|
& 0.16570E+00_JPRB,0.16083E+00_JPRB,0.16064E+00_JPRB,0.16498E+00_JPRB,0.17365E+00_JPRB /) |
585 |
|
|
KB(:,56, 1) = (/ & |
586 |
|
|
& 0.16825E+00_JPRB,0.16187E+00_JPRB,0.16020E+00_JPRB,0.16311E+00_JPRB,0.17041E+00_JPRB /) |
587 |
|
|
KB(:,57, 1) = (/ & |
588 |
|
|
& 0.17129E+00_JPRB,0.16340E+00_JPRB,0.16023E+00_JPRB,0.16169E+00_JPRB,0.16761E+00_JPRB /) |
589 |
|
|
KB(:,58, 1) = (/ & |
590 |
|
|
& 0.17462E+00_JPRB,0.16529E+00_JPRB,0.16069E+00_JPRB,0.16077E+00_JPRB,0.16535E+00_JPRB /) |
591 |
|
|
KB(:,59, 1) = (/ & |
592 |
|
|
& 0.17607E+00_JPRB,0.16617E+00_JPRB,0.16100E+00_JPRB,0.16051E+00_JPRB,0.16456E+00_JPRB /) |
593 |
|
|
KB(:,13, 2) = (/ & |
594 |
|
|
& 0.17525E+01_JPRB,0.17727E+01_JPRB,0.18119E+01_JPRB,0.18712E+01_JPRB,0.19491E+01_JPRB /) |
595 |
|
|
KB(:,14, 2) = (/ & |
596 |
|
|
& 0.17536E+01_JPRB,0.17755E+01_JPRB,0.18165E+01_JPRB,0.18775E+01_JPRB,0.19571E+01_JPRB /) |
597 |
|
|
KB(:,15, 2) = (/ & |
598 |
|
|
& 0.17549E+01_JPRB,0.17787E+01_JPRB,0.18219E+01_JPRB,0.18847E+01_JPRB,0.19662E+01_JPRB /) |
599 |
|
|
KB(:,16, 2) = (/ & |
600 |
|
|
& 0.17565E+01_JPRB,0.17819E+01_JPRB,0.18278E+01_JPRB,0.18925E+01_JPRB,0.19761E+01_JPRB /) |
601 |
|
|
KB(:,17, 2) = (/ & |
602 |
|
|
& 0.17583E+01_JPRB,0.17850E+01_JPRB,0.18336E+01_JPRB,0.19003E+01_JPRB,0.19859E+01_JPRB /) |
603 |
|
|
KB(:,18, 2) = (/ & |
604 |
|
|
& 0.17603E+01_JPRB,0.17891E+01_JPRB,0.18396E+01_JPRB,0.19082E+01_JPRB,0.19957E+01_JPRB /) |
605 |
|
|
KB(:,19, 2) = (/ & |
606 |
|
|
& 0.17624E+01_JPRB,0.17934E+01_JPRB,0.18457E+01_JPRB,0.19162E+01_JPRB,0.20056E+01_JPRB /) |
607 |
|
|
KB(:,20, 2) = (/ & |
608 |
|
|
& 0.17652E+01_JPRB,0.17986E+01_JPRB,0.18530E+01_JPRB,0.19257E+01_JPRB,0.20174E+01_JPRB /) |
609 |
|
|
KB(:,21, 2) = (/ & |
610 |
|
|
& 0.17683E+01_JPRB,0.18042E+01_JPRB,0.18607E+01_JPRB,0.19356E+01_JPRB,0.20296E+01_JPRB /) |
611 |
|
|
KB(:,22, 2) = (/ & |
612 |
|
|
& 0.17736E+01_JPRB,0.18133E+01_JPRB,0.18732E+01_JPRB,0.19516E+01_JPRB,0.20492E+01_JPRB /) |
613 |
|
|
KB(:,23, 2) = (/ & |
614 |
|
|
& 0.17796E+01_JPRB,0.18234E+01_JPRB,0.18868E+01_JPRB,0.19689E+01_JPRB,0.20702E+01_JPRB /) |
615 |
|
|
KB(:,24, 2) = (/ & |
616 |
|
|
& 0.17857E+01_JPRB,0.18347E+01_JPRB,0.19018E+01_JPRB,0.19877E+01_JPRB,0.20929E+01_JPRB /) |
617 |
|
|
KB(:,25, 2) = (/ & |
618 |
|
|
& 0.17946E+01_JPRB,0.18475E+01_JPRB,0.19185E+01_JPRB,0.20085E+01_JPRB,0.21178E+01_JPRB /) |
619 |
|
|
KB(:,26, 2) = (/ & |
620 |
|
|
& 0.18053E+01_JPRB,0.18623E+01_JPRB,0.19377E+01_JPRB,0.20322E+01_JPRB,0.21460E+01_JPRB /) |
621 |
|
|
KB(:,27, 2) = (/ & |
622 |
|
|
& 0.18172E+01_JPRB,0.18785E+01_JPRB,0.19583E+01_JPRB,0.20574E+01_JPRB,0.21757E+01_JPRB /) |
623 |
|
|
KB(:,28, 2) = (/ & |
624 |
|
|
& 0.18303E+01_JPRB,0.18959E+01_JPRB,0.19802E+01_JPRB,0.20839E+01_JPRB,0.22069E+01_JPRB /) |
625 |
|
|
KB(:,29, 2) = (/ & |
626 |
|
|
& 0.18448E+01_JPRB,0.19150E+01_JPRB,0.20042E+01_JPRB,0.21126E+01_JPRB,0.22404E+01_JPRB /) |
627 |
|
|
KB(:,30, 2) = (/ & |
628 |
|
|
& 0.18606E+01_JPRB,0.19355E+01_JPRB,0.20295E+01_JPRB,0.21428E+01_JPRB,0.22754E+01_JPRB /) |
629 |
|
|
KB(:,31, 2) = (/ & |
630 |
|
|
& 0.18780E+01_JPRB,0.19577E+01_JPRB,0.20566E+01_JPRB,0.21749E+01_JPRB,0.23125E+01_JPRB /) |
631 |
|
|
KB(:,32, 2) = (/ & |
632 |
|
|
& 0.18969E+01_JPRB,0.19816E+01_JPRB,0.20855E+01_JPRB,0.22088E+01_JPRB,0.23514E+01_JPRB /) |
633 |
|
|
KB(:,33, 2) = (/ & |
634 |
|
|
& 0.19172E+01_JPRB,0.20069E+01_JPRB,0.21160E+01_JPRB,0.22443E+01_JPRB,0.23920E+01_JPRB /) |
635 |
|
|
KB(:,34, 2) = (/ & |
636 |
|
|
& 0.19359E+01_JPRB,0.20300E+01_JPRB,0.21434E+01_JPRB,0.22762E+01_JPRB,0.24282E+01_JPRB /) |
637 |
|
|
KB(:,35, 2) = (/ & |
638 |
|
|
& 0.19471E+01_JPRB,0.20437E+01_JPRB,0.21597E+01_JPRB,0.22949E+01_JPRB,0.24495E+01_JPRB /) |
639 |
|
|
KB(:,36, 2) = (/ & |
640 |
|
|
& 0.19490E+01_JPRB,0.20460E+01_JPRB,0.21624E+01_JPRB,0.22980E+01_JPRB,0.24530E+01_JPRB /) |
641 |
|
|
KB(:,37, 2) = (/ & |
642 |
|
|
& 0.19377E+01_JPRB,0.20322E+01_JPRB,0.21461E+01_JPRB,0.22792E+01_JPRB,0.24317E+01_JPRB /) |
643 |
|
|
KB(:,38, 2) = (/ & |
644 |
|
|
& 0.19261E+01_JPRB,0.20179E+01_JPRB,0.21291E+01_JPRB,0.22595E+01_JPRB,0.24093E+01_JPRB /) |
645 |
|
|
KB(:,39, 2) = (/ & |
646 |
|
|
& 0.19149E+01_JPRB,0.20040E+01_JPRB,0.21125E+01_JPRB,0.22402E+01_JPRB,0.23873E+01_JPRB /) |
647 |
|
|
KB(:,40, 2) = (/ & |
648 |
|
|
& 0.18963E+01_JPRB,0.19807E+01_JPRB,0.20845E+01_JPRB,0.22076E+01_JPRB,0.23501E+01_JPRB /) |
649 |
|
|
KB(:,41, 2) = (/ & |
650 |
|
|
& 0.18778E+01_JPRB,0.19574E+01_JPRB,0.20563E+01_JPRB,0.21745E+01_JPRB,0.23120E+01_JPRB /) |
651 |
|
|
KB(:,42, 2) = (/ & |
652 |
|
|
& 0.18604E+01_JPRB,0.19352E+01_JPRB,0.20292E+01_JPRB,0.21425E+01_JPRB,0.22750E+01_JPRB /) |
653 |
|
|
KB(:,43, 2) = (/ & |
654 |
|
|
& 0.18409E+01_JPRB,0.19099E+01_JPRB,0.19978E+01_JPRB,0.21050E+01_JPRB,0.22315E+01_JPRB /) |
655 |
|
|
KB(:,44, 2) = (/ & |
656 |
|
|
& 0.18217E+01_JPRB,0.18845E+01_JPRB,0.19660E+01_JPRB,0.20667E+01_JPRB,0.21867E+01_JPRB /) |
657 |
|
|
KB(:,45, 2) = (/ & |
658 |
|
|
& 0.18046E+01_JPRB,0.18613E+01_JPRB,0.19364E+01_JPRB,0.20306E+01_JPRB,0.21441E+01_JPRB /) |
659 |
|
|
KB(:,46, 2) = (/ & |
660 |
|
|
& 0.17886E+01_JPRB,0.18389E+01_JPRB,0.19072E+01_JPRB,0.19945E+01_JPRB,0.21011E+01_JPRB /) |
661 |
|
|
KB(:,47, 2) = (/ & |
662 |
|
|
& 0.17755E+01_JPRB,0.18165E+01_JPRB,0.18775E+01_JPRB,0.19571E+01_JPRB,0.20559E+01_JPRB /) |
663 |
|
|
KB(:,48, 2) = (/ & |
664 |
|
|
& 0.17644E+01_JPRB,0.17970E+01_JPRB,0.18508E+01_JPRB,0.19228E+01_JPRB,0.20139E+01_JPRB /) |
665 |
|
|
KB(:,49, 2) = (/ & |
666 |
|
|
& 0.17563E+01_JPRB,0.17816E+01_JPRB,0.18271E+01_JPRB,0.18916E+01_JPRB,0.19749E+01_JPRB /) |
667 |
|
|
KB(:,50, 2) = (/ & |
668 |
|
|
& 0.17517E+01_JPRB,0.17702E+01_JPRB,0.18074E+01_JPRB,0.18651E+01_JPRB,0.19413E+01_JPRB /) |
669 |
|
|
KB(:,51, 2) = (/ & |
670 |
|
|
& 0.17504E+01_JPRB,0.17611E+01_JPRB,0.17908E+01_JPRB,0.18420E+01_JPRB,0.19113E+01_JPRB /) |
671 |
|
|
KB(:,52, 2) = (/ & |
672 |
|
|
& 0.17523E+01_JPRB,0.17547E+01_JPRB,0.17783E+01_JPRB,0.18212E+01_JPRB,0.18839E+01_JPRB /) |
673 |
|
|
KB(:,53, 2) = (/ & |
674 |
|
|
& 0.17566E+01_JPRB,0.17510E+01_JPRB,0.17675E+01_JPRB,0.18028E+01_JPRB,0.18589E+01_JPRB /) |
675 |
|
|
KB(:,54, 2) = (/ & |
676 |
|
|
& 0.17623E+01_JPRB,0.17507E+01_JPRB,0.17598E+01_JPRB,0.17881E+01_JPRB,0.18381E+01_JPRB /) |
677 |
|
|
KB(:,55, 2) = (/ & |
678 |
|
|
& 0.17691E+01_JPRB,0.17524E+01_JPRB,0.17544E+01_JPRB,0.17777E+01_JPRB,0.18201E+01_JPRB /) |
679 |
|
|
KB(:,56, 2) = (/ & |
680 |
|
|
& 0.17776E+01_JPRB,0.17562E+01_JPRB,0.17512E+01_JPRB,0.17682E+01_JPRB,0.18040E+01_JPRB /) |
681 |
|
|
KB(:,57, 2) = (/ & |
682 |
|
|
& 0.17881E+01_JPRB,0.17616E+01_JPRB,0.17505E+01_JPRB,0.17606E+01_JPRB,0.17897E+01_JPRB /) |
683 |
|
|
KB(:,58, 2) = (/ & |
684 |
|
|
& 0.17996E+01_JPRB,0.17678E+01_JPRB,0.17520E+01_JPRB,0.17552E+01_JPRB,0.17794E+01_JPRB /) |
685 |
|
|
KB(:,59, 2) = (/ & |
686 |
|
|
& 0.18045E+01_JPRB,0.17707E+01_JPRB,0.17530E+01_JPRB,0.17536E+01_JPRB,0.17756E+01_JPRB /) |
687 |
|
|
KB(:,13, 3) = (/ & |
688 |
|
|
& 0.10945E+02_JPRB,0.11052E+02_JPRB,0.11222E+02_JPRB,0.11452E+02_JPRB,0.11744E+02_JPRB /) |
689 |
|
|
KB(:,14, 3) = (/ & |
690 |
|
|
& 0.10952E+02_JPRB,0.11065E+02_JPRB,0.11240E+02_JPRB,0.11476E+02_JPRB,0.11774E+02_JPRB /) |
691 |
|
|
KB(:,15, 3) = (/ & |
692 |
|
|
& 0.10961E+02_JPRB,0.11080E+02_JPRB,0.11261E+02_JPRB,0.11503E+02_JPRB,0.11807E+02_JPRB /) |
693 |
|
|
KB(:,16, 3) = (/ & |
694 |
|
|
& 0.10971E+02_JPRB,0.11097E+02_JPRB,0.11284E+02_JPRB,0.11533E+02_JPRB,0.11844E+02_JPRB /) |
695 |
|
|
KB(:,17, 3) = (/ & |
696 |
|
|
& 0.10981E+02_JPRB,0.11115E+02_JPRB,0.11307E+02_JPRB,0.11562E+02_JPRB,0.11879E+02_JPRB /) |
697 |
|
|
KB(:,18, 3) = (/ & |
698 |
|
|
& 0.10992E+02_JPRB,0.11132E+02_JPRB,0.11331E+02_JPRB,0.11592E+02_JPRB,0.11915E+02_JPRB /) |
699 |
|
|
KB(:,19, 3) = (/ & |
700 |
|
|
& 0.11003E+02_JPRB,0.11149E+02_JPRB,0.11354E+02_JPRB,0.11622E+02_JPRB,0.11951E+02_JPRB /) |
701 |
|
|
KB(:,20, 3) = (/ & |
702 |
|
|
& 0.11017E+02_JPRB,0.11170E+02_JPRB,0.11382E+02_JPRB,0.11657E+02_JPRB,0.11994E+02_JPRB /) |
703 |
|
|
KB(:,21, 3) = (/ & |
704 |
|
|
& 0.11031E+02_JPRB,0.11192E+02_JPRB,0.11412E+02_JPRB,0.11694E+02_JPRB,0.12038E+02_JPRB /) |
705 |
|
|
KB(:,22, 3) = (/ & |
706 |
|
|
& 0.11056E+02_JPRB,0.11228E+02_JPRB,0.11460E+02_JPRB,0.11754E+02_JPRB,0.12109E+02_JPRB /) |
707 |
|
|
KB(:,23, 3) = (/ & |
708 |
|
|
& 0.11085E+02_JPRB,0.11267E+02_JPRB,0.11511E+02_JPRB,0.11817E+02_JPRB,0.12184E+02_JPRB /) |
709 |
|
|
KB(:,24, 3) = (/ & |
710 |
|
|
& 0.11118E+02_JPRB,0.11312E+02_JPRB,0.11568E+02_JPRB,0.11886E+02_JPRB,0.12266E+02_JPRB /) |
711 |
|
|
KB(:,25, 3) = (/ & |
712 |
|
|
& 0.11154E+02_JPRB,0.11361E+02_JPRB,0.11630E+02_JPRB,0.11962E+02_JPRB,0.12354E+02_JPRB /) |
713 |
|
|
KB(:,26, 3) = (/ & |
714 |
|
|
& 0.11196E+02_JPRB,0.11418E+02_JPRB,0.11702E+02_JPRB,0.12048E+02_JPRB,0.12455E+02_JPRB /) |
715 |
|
|
KB(:,27, 3) = (/ & |
716 |
|
|
& 0.11243E+02_JPRB,0.11480E+02_JPRB,0.11778E+02_JPRB,0.12138E+02_JPRB,0.12560E+02_JPRB /) |
717 |
|
|
KB(:,28, 3) = (/ & |
718 |
|
|
& 0.11294E+02_JPRB,0.11545E+02_JPRB,0.11859E+02_JPRB,0.12234E+02_JPRB,0.12670E+02_JPRB /) |
719 |
|
|
KB(:,29, 3) = (/ & |
720 |
|
|
& 0.11351E+02_JPRB,0.11617E+02_JPRB,0.11946E+02_JPRB,0.12336E+02_JPRB,0.12788E+02_JPRB /) |
721 |
|
|
KB(:,30, 3) = (/ & |
722 |
|
|
& 0.11411E+02_JPRB,0.11694E+02_JPRB,0.12038E+02_JPRB,0.12443E+02_JPRB,0.12910E+02_JPRB /) |
723 |
|
|
KB(:,31, 3) = (/ & |
724 |
|
|
& 0.11478E+02_JPRB,0.11776E+02_JPRB,0.12136E+02_JPRB,0.12557E+02_JPRB,0.13040E+02_JPRB /) |
725 |
|
|
KB(:,32, 3) = (/ & |
726 |
|
|
& 0.11549E+02_JPRB,0.11864E+02_JPRB,0.12239E+02_JPRB,0.12677E+02_JPRB,0.13175E+02_JPRB /) |
727 |
|
|
KB(:,33, 3) = (/ & |
728 |
|
|
& 0.11626E+02_JPRB,0.11956E+02_JPRB,0.12348E+02_JPRB,0.12801E+02_JPRB,0.13316E+02_JPRB /) |
729 |
|
|
KB(:,34, 3) = (/ & |
730 |
|
|
& 0.11695E+02_JPRB,0.12040E+02_JPRB,0.12446E+02_JPRB,0.12913E+02_JPRB,0.13442E+02_JPRB /) |
731 |
|
|
KB(:,35, 3) = (/ & |
732 |
|
|
& 0.11737E+02_JPRB,0.12089E+02_JPRB,0.12503E+02_JPRB,0.12979E+02_JPRB,0.13515E+02_JPRB /) |
733 |
|
|
KB(:,36, 3) = (/ & |
734 |
|
|
& 0.11744E+02_JPRB,0.12098E+02_JPRB,0.12513E+02_JPRB,0.12989E+02_JPRB,0.13528E+02_JPRB /) |
735 |
|
|
KB(:,37, 3) = (/ & |
736 |
|
|
& 0.11702E+02_JPRB,0.12048E+02_JPRB,0.12455E+02_JPRB,0.12924E+02_JPRB,0.13454E+02_JPRB /) |
737 |
|
|
KB(:,38, 3) = (/ & |
738 |
|
|
& 0.11659E+02_JPRB,0.11996E+02_JPRB,0.12395E+02_JPRB,0.12855E+02_JPRB,0.13376E+02_JPRB /) |
739 |
|
|
KB(:,39, 3) = (/ & |
740 |
|
|
& 0.11617E+02_JPRB,0.11946E+02_JPRB,0.12336E+02_JPRB,0.12787E+02_JPRB,0.13300E+02_JPRB /) |
741 |
|
|
KB(:,40, 3) = (/ & |
742 |
|
|
& 0.11547E+02_JPRB,0.11861E+02_JPRB,0.12236E+02_JPRB,0.12673E+02_JPRB,0.13171E+02_JPRB /) |
743 |
|
|
KB(:,41, 3) = (/ & |
744 |
|
|
& 0.11477E+02_JPRB,0.11775E+02_JPRB,0.12134E+02_JPRB,0.12555E+02_JPRB,0.13038E+02_JPRB /) |
745 |
|
|
KB(:,42, 3) = (/ & |
746 |
|
|
& 0.11411E+02_JPRB,0.11693E+02_JPRB,0.12037E+02_JPRB,0.12442E+02_JPRB,0.12909E+02_JPRB /) |
747 |
|
|
KB(:,43, 3) = (/ & |
748 |
|
|
& 0.11335E+02_JPRB,0.11598E+02_JPRB,0.11923E+02_JPRB,0.12309E+02_JPRB,0.12757E+02_JPRB /) |
749 |
|
|
KB(:,44, 3) = (/ & |
750 |
|
|
& 0.11261E+02_JPRB,0.11503E+02_JPRB,0.11807E+02_JPRB,0.12172E+02_JPRB,0.12599E+02_JPRB /) |
751 |
|
|
KB(:,45, 3) = (/ & |
752 |
|
|
& 0.11193E+02_JPRB,0.11414E+02_JPRB,0.11697E+02_JPRB,0.12042E+02_JPRB,0.12448E+02_JPRB /) |
753 |
|
|
KB(:,46, 3) = (/ & |
754 |
|
|
& 0.11129E+02_JPRB,0.11328E+02_JPRB,0.11588E+02_JPRB,0.11911E+02_JPRB,0.12295E+02_JPRB /) |
755 |
|
|
KB(:,47, 3) = (/ & |
756 |
|
|
& 0.11065E+02_JPRB,0.11240E+02_JPRB,0.11476E+02_JPRB,0.11774E+02_JPRB,0.12133E+02_JPRB /) |
757 |
|
|
KB(:,48, 3) = (/ & |
758 |
|
|
& 0.11012E+02_JPRB,0.11163E+02_JPRB,0.11374E+02_JPRB,0.11647E+02_JPRB,0.11981E+02_JPRB /) |
759 |
|
|
KB(:,49, 3) = (/ & |
760 |
|
|
& 0.10969E+02_JPRB,0.11095E+02_JPRB,0.11282E+02_JPRB,0.11530E+02_JPRB,0.11839E+02_JPRB /) |
761 |
|
|
KB(:,50, 3) = (/ & |
762 |
|
|
& 0.10938E+02_JPRB,0.11040E+02_JPRB,0.11204E+02_JPRB,0.11429E+02_JPRB,0.11715E+02_JPRB /) |
763 |
|
|
KB(:,51, 3) = (/ & |
764 |
|
|
& 0.10916E+02_JPRB,0.10996E+02_JPRB,0.11138E+02_JPRB,0.11340E+02_JPRB,0.11604E+02_JPRB /) |
765 |
|
|
KB(:,52, 3) = (/ & |
766 |
|
|
& 0.10900E+02_JPRB,0.10960E+02_JPRB,0.11079E+02_JPRB,0.11259E+02_JPRB,0.11500E+02_JPRB /) |
767 |
|
|
KB(:,53, 3) = (/ & |
768 |
|
|
& 0.10894E+02_JPRB,0.10932E+02_JPRB,0.11028E+02_JPRB,0.11186E+02_JPRB,0.11405E+02_JPRB /) |
769 |
|
|
KB(:,54, 3) = (/ & |
770 |
|
|
& 0.10895E+02_JPRB,0.10912E+02_JPRB,0.10989E+02_JPRB,0.11127E+02_JPRB,0.11325E+02_JPRB /) |
771 |
|
|
KB(:,55, 3) = (/ & |
772 |
|
|
& 0.10903E+02_JPRB,0.10900E+02_JPRB,0.10958E+02_JPRB,0.11075E+02_JPRB,0.11255E+02_JPRB /) |
773 |
|
|
KB(:,56, 3) = (/ & |
774 |
|
|
& 0.10921E+02_JPRB,0.10894E+02_JPRB,0.10933E+02_JPRB,0.11031E+02_JPRB,0.11191E+02_JPRB /) |
775 |
|
|
KB(:,57, 3) = (/ & |
776 |
|
|
& 0.10944E+02_JPRB,0.10894E+02_JPRB,0.10914E+02_JPRB,0.10993E+02_JPRB,0.11134E+02_JPRB /) |
777 |
|
|
KB(:,58, 3) = (/ & |
778 |
|
|
& 0.10972E+02_JPRB,0.10901E+02_JPRB,0.10902E+02_JPRB,0.10963E+02_JPRB,0.11084E+02_JPRB /) |
779 |
|
|
KB(:,59, 3) = (/ & |
780 |
|
|
& 0.10984E+02_JPRB,0.10906E+02_JPRB,0.10898E+02_JPRB,0.10952E+02_JPRB,0.11066E+02_JPRB /) |
781 |
|
|
KB(:,13, 4) = (/ & |
782 |
|
|
& 0.51563E+02_JPRB,0.51946E+02_JPRB,0.52464E+02_JPRB,0.53116E+02_JPRB,0.53902E+02_JPRB /) |
783 |
|
|
KB(:,14, 4) = (/ & |
784 |
|
|
& 0.51593E+02_JPRB,0.51987E+02_JPRB,0.52517E+02_JPRB,0.53182E+02_JPRB,0.53980E+02_JPRB /) |
785 |
|
|
KB(:,15, 4) = (/ & |
786 |
|
|
& 0.51626E+02_JPRB,0.52035E+02_JPRB,0.52579E+02_JPRB,0.53256E+02_JPRB,0.54069E+02_JPRB /) |
787 |
|
|
KB(:,16, 4) = (/ & |
788 |
|
|
& 0.51664E+02_JPRB,0.52087E+02_JPRB,0.52644E+02_JPRB,0.53337E+02_JPRB,0.54163E+02_JPRB /) |
789 |
|
|
KB(:,17, 4) = (/ & |
790 |
|
|
& 0.51701E+02_JPRB,0.52138E+02_JPRB,0.52710E+02_JPRB,0.53416E+02_JPRB,0.54257E+02_JPRB /) |
791 |
|
|
KB(:,18, 4) = (/ & |
792 |
|
|
& 0.51740E+02_JPRB,0.52191E+02_JPRB,0.52776E+02_JPRB,0.53496E+02_JPRB,0.54351E+02_JPRB /) |
793 |
|
|
KB(:,19, 4) = (/ & |
794 |
|
|
& 0.51779E+02_JPRB,0.52244E+02_JPRB,0.52843E+02_JPRB,0.53576E+02_JPRB,0.54444E+02_JPRB /) |
795 |
|
|
KB(:,20, 4) = (/ & |
796 |
|
|
& 0.51827E+02_JPRB,0.52307E+02_JPRB,0.52922E+02_JPRB,0.53671E+02_JPRB,0.54555E+02_JPRB /) |
797 |
|
|
KB(:,21, 4) = (/ & |
798 |
|
|
& 0.51877E+02_JPRB,0.52373E+02_JPRB,0.53004E+02_JPRB,0.53770E+02_JPRB,0.54669E+02_JPRB /) |
799 |
|
|
KB(:,22, 4) = (/ & |
800 |
|
|
& 0.51959E+02_JPRB,0.52481E+02_JPRB,0.53136E+02_JPRB,0.53927E+02_JPRB,0.54851E+02_JPRB /) |
801 |
|
|
KB(:,23, 4) = (/ & |
802 |
|
|
& 0.52049E+02_JPRB,0.52596E+02_JPRB,0.53278E+02_JPRB,0.54094E+02_JPRB,0.55044E+02_JPRB /) |
803 |
|
|
KB(:,24, 4) = (/ & |
804 |
|
|
& 0.52148E+02_JPRB,0.52723E+02_JPRB,0.53431E+02_JPRB,0.54274E+02_JPRB,0.55252E+02_JPRB /) |
805 |
|
|
KB(:,25, 4) = (/ & |
806 |
|
|
& 0.52259E+02_JPRB,0.52862E+02_JPRB,0.53599E+02_JPRB,0.54471E+02_JPRB,0.55477E+02_JPRB /) |
807 |
|
|
KB(:,26, 4) = (/ & |
808 |
|
|
& 0.52387E+02_JPRB,0.53022E+02_JPRB,0.53790E+02_JPRB,0.54693E+02_JPRB,0.55730E+02_JPRB /) |
809 |
|
|
KB(:,27, 4) = (/ & |
810 |
|
|
& 0.52525E+02_JPRB,0.53191E+02_JPRB,0.53992E+02_JPRB,0.54926E+02_JPRB,0.55995E+02_JPRB /) |
811 |
|
|
KB(:,28, 4) = (/ & |
812 |
|
|
& 0.52672E+02_JPRB,0.53371E+02_JPRB,0.54203E+02_JPRB,0.55170E+02_JPRB,0.56271E+02_JPRB /) |
813 |
|
|
KB(:,29, 4) = (/ & |
814 |
|
|
& 0.52833E+02_JPRB,0.53565E+02_JPRB,0.54430E+02_JPRB,0.55430E+02_JPRB,0.56565E+02_JPRB /) |
815 |
|
|
KB(:,30, 4) = (/ & |
816 |
|
|
& 0.53003E+02_JPRB,0.53768E+02_JPRB,0.54668E+02_JPRB,0.55702E+02_JPRB,0.56870E+02_JPRB /) |
817 |
|
|
KB(:,31, 4) = (/ & |
818 |
|
|
& 0.53186E+02_JPRB,0.53986E+02_JPRB,0.54920E+02_JPRB,0.55988E+02_JPRB,0.57190E+02_JPRB /) |
819 |
|
|
KB(:,32, 4) = (/ & |
820 |
|
|
& 0.53381E+02_JPRB,0.54216E+02_JPRB,0.55184E+02_JPRB,0.56287E+02_JPRB,0.57525E+02_JPRB /) |
821 |
|
|
KB(:,33, 4) = (/ & |
822 |
|
|
& 0.53587E+02_JPRB,0.54457E+02_JPRB,0.55460E+02_JPRB,0.56599E+02_JPRB,0.57871E+02_JPRB /) |
823 |
|
|
KB(:,34, 4) = (/ & |
824 |
|
|
& 0.53773E+02_JPRB,0.54673E+02_JPRB,0.55707E+02_JPRB,0.56876E+02_JPRB,0.58179E+02_JPRB /) |
825 |
|
|
KB(:,35, 4) = (/ & |
826 |
|
|
& 0.53883E+02_JPRB,0.54800E+02_JPRB,0.55852E+02_JPRB,0.57039E+02_JPRB,0.58359E+02_JPRB /) |
827 |
|
|
KB(:,36, 4) = (/ & |
828 |
|
|
& 0.53901E+02_JPRB,0.54822E+02_JPRB,0.55876E+02_JPRB,0.57066E+02_JPRB,0.58389E+02_JPRB /) |
829 |
|
|
KB(:,37, 4) = (/ & |
830 |
|
|
& 0.53791E+02_JPRB,0.54694E+02_JPRB,0.55731E+02_JPRB,0.56903E+02_JPRB,0.58208E+02_JPRB /) |
831 |
|
|
KB(:,38, 4) = (/ & |
832 |
|
|
& 0.53676E+02_JPRB,0.54560E+02_JPRB,0.55578E+02_JPRB,0.56731E+02_JPRB,0.58018E+02_JPRB /) |
833 |
|
|
KB(:,39, 4) = (/ & |
834 |
|
|
& 0.53563E+02_JPRB,0.54429E+02_JPRB,0.55429E+02_JPRB,0.56563E+02_JPRB,0.57832E+02_JPRB /) |
835 |
|
|
KB(:,40, 4) = (/ & |
836 |
|
|
& 0.53375E+02_JPRB,0.54208E+02_JPRB,0.55175E+02_JPRB,0.56277E+02_JPRB,0.57513E+02_JPRB /) |
837 |
|
|
KB(:,41, 4) = (/ & |
838 |
|
|
& 0.53184E+02_JPRB,0.53983E+02_JPRB,0.54916E+02_JPRB,0.55984E+02_JPRB,0.57186E+02_JPRB /) |
839 |
|
|
KB(:,42, 4) = (/ & |
840 |
|
|
& 0.53001E+02_JPRB,0.53766E+02_JPRB,0.54665E+02_JPRB,0.55699E+02_JPRB,0.56866E+02_JPRB /) |
841 |
|
|
KB(:,43, 4) = (/ & |
842 |
|
|
& 0.52790E+02_JPRB,0.53513E+02_JPRB,0.54370E+02_JPRB,0.55362E+02_JPRB,0.56488E+02_JPRB /) |
843 |
|
|
KB(:,44, 4) = (/ & |
844 |
|
|
& 0.52577E+02_JPRB,0.53254E+02_JPRB,0.54066E+02_JPRB,0.55012E+02_JPRB,0.56093E+02_JPRB /) |
845 |
|
|
KB(:,45, 4) = (/ & |
846 |
|
|
& 0.52379E+02_JPRB,0.53011E+02_JPRB,0.53777E+02_JPRB,0.54678E+02_JPRB,0.55713E+02_JPRB /) |
847 |
|
|
KB(:,46, 4) = (/ & |
848 |
|
|
& 0.52184E+02_JPRB,0.52768E+02_JPRB,0.53486E+02_JPRB,0.54339E+02_JPRB,0.55326E+02_JPRB /) |
849 |
|
|
KB(:,47, 4) = (/ & |
850 |
|
|
& 0.51987E+02_JPRB,0.52517E+02_JPRB,0.53182E+02_JPRB,0.53980E+02_JPRB,0.54913E+02_JPRB /) |
851 |
|
|
KB(:,48, 4) = (/ & |
852 |
|
|
& 0.51812E+02_JPRB,0.52288E+02_JPRB,0.52898E+02_JPRB,0.53643E+02_JPRB,0.54522E+02_JPRB /) |
853 |
|
|
KB(:,49, 4) = (/ & |
854 |
|
|
& 0.51659E+02_JPRB,0.52081E+02_JPRB,0.52637E+02_JPRB,0.53327E+02_JPRB,0.54152E+02_JPRB /) |
855 |
|
|
KB(:,50, 4) = (/ & |
856 |
|
|
& 0.51535E+02_JPRB,0.51906E+02_JPRB,0.52412E+02_JPRB,0.53052E+02_JPRB,0.53826E+02_JPRB /) |
857 |
|
|
KB(:,51, 4) = (/ & |
858 |
|
|
& 0.51433E+02_JPRB,0.51755E+02_JPRB,0.52211E+02_JPRB,0.52802E+02_JPRB,0.53527E+02_JPRB /) |
859 |
|
|
KB(:,52, 4) = (/ & |
860 |
|
|
& 0.51349E+02_JPRB,0.51622E+02_JPRB,0.52029E+02_JPRB,0.52571E+02_JPRB,0.53247E+02_JPRB /) |
861 |
|
|
KB(:,53, 4) = (/ & |
862 |
|
|
& 0.51285E+02_JPRB,0.51507E+02_JPRB,0.51865E+02_JPRB,0.52358E+02_JPRB,0.52985E+02_JPRB /) |
863 |
|
|
KB(:,54, 4) = (/ & |
864 |
|
|
& 0.51240E+02_JPRB,0.51417E+02_JPRB,0.51730E+02_JPRB,0.52178E+02_JPRB,0.52760E+02_JPRB /) |
865 |
|
|
KB(:,55, 4) = (/ & |
866 |
|
|
& 0.51211E+02_JPRB,0.51346E+02_JPRB,0.51615E+02_JPRB,0.52020E+02_JPRB,0.52559E+02_JPRB /) |
867 |
|
|
KB(:,56, 4) = (/ & |
868 |
|
|
& 0.51194E+02_JPRB,0.51288E+02_JPRB,0.51514E+02_JPRB,0.51875E+02_JPRB,0.52371E+02_JPRB /) |
869 |
|
|
KB(:,57, 4) = (/ & |
870 |
|
|
& 0.51190E+02_JPRB,0.51245E+02_JPRB,0.51426E+02_JPRB,0.51746E+02_JPRB,0.52198E+02_JPRB /) |
871 |
|
|
KB(:,58, 4) = (/ & |
872 |
|
|
& 0.51200E+02_JPRB,0.51216E+02_JPRB,0.51357E+02_JPRB,0.51635E+02_JPRB,0.52046E+02_JPRB /) |
873 |
|
|
KB(:,59, 4) = (/ & |
874 |
|
|
& 0.51207E+02_JPRB,0.51207E+02_JPRB,0.51333E+02_JPRB,0.51594E+02_JPRB,0.51989E+02_JPRB /) |
875 |
|
|
KB(:,13, 5) = (/ & |
876 |
|
|
& 0.17051E+03_JPRB,0.17168E+03_JPRB,0.17297E+03_JPRB,0.17437E+03_JPRB,0.17590E+03_JPRB /) |
877 |
|
|
KB(:,14, 5) = (/ & |
878 |
|
|
& 0.17061E+03_JPRB,0.17179E+03_JPRB,0.17309E+03_JPRB,0.17451E+03_JPRB,0.17604E+03_JPRB /) |
879 |
|
|
KB(:,15, 5) = (/ & |
880 |
|
|
& 0.17073E+03_JPRB,0.17192E+03_JPRB,0.17323E+03_JPRB,0.17466E+03_JPRB,0.17621E+03_JPRB /) |
881 |
|
|
KB(:,16, 5) = (/ & |
882 |
|
|
& 0.17085E+03_JPRB,0.17205E+03_JPRB,0.17338E+03_JPRB,0.17482E+03_JPRB,0.17638E+03_JPRB /) |
883 |
|
|
KB(:,17, 5) = (/ & |
884 |
|
|
& 0.17097E+03_JPRB,0.17218E+03_JPRB,0.17352E+03_JPRB,0.17497E+03_JPRB,0.17655E+03_JPRB /) |
885 |
|
|
KB(:,18, 5) = (/ & |
886 |
|
|
& 0.17109E+03_JPRB,0.17232E+03_JPRB,0.17366E+03_JPRB,0.17513E+03_JPRB,0.17671E+03_JPRB /) |
887 |
|
|
KB(:,19, 5) = (/ & |
888 |
|
|
& 0.17121E+03_JPRB,0.17245E+03_JPRB,0.17381E+03_JPRB,0.17528E+03_JPRB,0.17688E+03_JPRB /) |
889 |
|
|
KB(:,20, 5) = (/ & |
890 |
|
|
& 0.17134E+03_JPRB,0.17260E+03_JPRB,0.17397E+03_JPRB,0.17547E+03_JPRB,0.17708E+03_JPRB /) |
891 |
|
|
KB(:,21, 5) = (/ & |
892 |
|
|
& 0.17149E+03_JPRB,0.17276E+03_JPRB,0.17415E+03_JPRB,0.17565E+03_JPRB,0.17728E+03_JPRB /) |
893 |
|
|
KB(:,22, 5) = (/ & |
894 |
|
|
& 0.17172E+03_JPRB,0.17301E+03_JPRB,0.17442E+03_JPRB,0.17594E+03_JPRB,0.17759E+03_JPRB /) |
895 |
|
|
KB(:,23, 5) = (/ & |
896 |
|
|
& 0.17195E+03_JPRB,0.17327E+03_JPRB,0.17470E+03_JPRB,0.17625E+03_JPRB,0.17792E+03_JPRB /) |
897 |
|
|
KB(:,24, 5) = (/ & |
898 |
|
|
& 0.17221E+03_JPRB,0.17355E+03_JPRB,0.17500E+03_JPRB,0.17658E+03_JPRB,0.17827E+03_JPRB /) |
899 |
|
|
KB(:,25, 5) = (/ & |
900 |
|
|
& 0.17248E+03_JPRB,0.17385E+03_JPRB,0.17533E+03_JPRB,0.17693E+03_JPRB,0.17865E+03_JPRB /) |
901 |
|
|
KB(:,26, 5) = (/ & |
902 |
|
|
& 0.17279E+03_JPRB,0.17418E+03_JPRB,0.17569E+03_JPRB,0.17732E+03_JPRB,0.17906E+03_JPRB /) |
903 |
|
|
KB(:,27, 5) = (/ & |
904 |
|
|
& 0.17311E+03_JPRB,0.17453E+03_JPRB,0.17606E+03_JPRB,0.17772E+03_JPRB,0.17949E+03_JPRB /) |
905 |
|
|
KB(:,28, 5) = (/ & |
906 |
|
|
& 0.17344E+03_JPRB,0.17488E+03_JPRB,0.17645E+03_JPRB,0.17813E+03_JPRB,0.17994E+03_JPRB /) |
907 |
|
|
KB(:,29, 5) = (/ & |
908 |
|
|
& 0.17379E+03_JPRB,0.17526E+03_JPRB,0.17686E+03_JPRB,0.17857E+03_JPRB,0.18040E+03_JPRB /) |
909 |
|
|
KB(:,30, 5) = (/ & |
910 |
|
|
& 0.17414E+03_JPRB,0.17565E+03_JPRB,0.17727E+03_JPRB,0.17902E+03_JPRB,0.18088E+03_JPRB /) |
911 |
|
|
KB(:,31, 5) = (/ & |
912 |
|
|
& 0.17452E+03_JPRB,0.17605E+03_JPRB,0.17771E+03_JPRB,0.17948E+03_JPRB,0.18137E+03_JPRB /) |
913 |
|
|
KB(:,32, 5) = (/ & |
914 |
|
|
& 0.17491E+03_JPRB,0.17647E+03_JPRB,0.17816E+03_JPRB,0.17996E+03_JPRB,0.18188E+03_JPRB /) |
915 |
|
|
KB(:,33, 5) = (/ & |
916 |
|
|
& 0.17531E+03_JPRB,0.17690E+03_JPRB,0.17862E+03_JPRB,0.18045E+03_JPRB,0.18241E+03_JPRB /) |
917 |
|
|
KB(:,34, 5) = (/ & |
918 |
|
|
& 0.17566E+03_JPRB,0.17728E+03_JPRB,0.17903E+03_JPRB,0.18089E+03_JPRB,0.18287E+03_JPRB /) |
919 |
|
|
KB(:,35, 5) = (/ & |
920 |
|
|
& 0.17586E+03_JPRB,0.17750E+03_JPRB,0.17926E+03_JPRB,0.18114E+03_JPRB,0.18313E+03_JPRB /) |
921 |
|
|
KB(:,36, 5) = (/ & |
922 |
|
|
& 0.17590E+03_JPRB,0.17754E+03_JPRB,0.17930E+03_JPRB,0.18118E+03_JPRB,0.18318E+03_JPRB /) |
923 |
|
|
KB(:,37, 5) = (/ & |
924 |
|
|
& 0.17569E+03_JPRB,0.17732E+03_JPRB,0.17906E+03_JPRB,0.18093E+03_JPRB,0.18291E+03_JPRB /) |
925 |
|
|
KB(:,38, 5) = (/ & |
926 |
|
|
& 0.17547E+03_JPRB,0.17708E+03_JPRB,0.17881E+03_JPRB,0.18066E+03_JPRB,0.18263E+03_JPRB /) |
927 |
|
|
KB(:,39, 5) = (/ & |
928 |
|
|
& 0.17526E+03_JPRB,0.17685E+03_JPRB,0.17857E+03_JPRB,0.18040E+03_JPRB,0.18235E+03_JPRB /) |
929 |
|
|
KB(:,40, 5) = (/ & |
930 |
|
|
& 0.17489E+03_JPRB,0.17646E+03_JPRB,0.17814E+03_JPRB,0.17995E+03_JPRB,0.18187E+03_JPRB /) |
931 |
|
|
KB(:,41, 5) = (/ & |
932 |
|
|
& 0.17451E+03_JPRB,0.17605E+03_JPRB,0.17770E+03_JPRB,0.17948E+03_JPRB,0.18137E+03_JPRB /) |
933 |
|
|
KB(:,42, 5) = (/ & |
934 |
|
|
& 0.17414E+03_JPRB,0.17565E+03_JPRB,0.17727E+03_JPRB,0.17901E+03_JPRB,0.18087E+03_JPRB /) |
935 |
|
|
KB(:,43, 5) = (/ & |
936 |
|
|
& 0.17369E+03_JPRB,0.17516E+03_JPRB,0.17675E+03_JPRB,0.17846E+03_JPRB,0.18028E+03_JPRB /) |
937 |
|
|
KB(:,44, 5) = (/ & |
938 |
|
|
& 0.17323E+03_JPRB,0.17465E+03_JPRB,0.17620E+03_JPRB,0.17787E+03_JPRB,0.17965E+03_JPRB /) |
939 |
|
|
KB(:,45, 5) = (/ & |
940 |
|
|
& 0.17277E+03_JPRB,0.17416E+03_JPRB,0.17567E+03_JPRB,0.17729E+03_JPRB,0.17904E+03_JPRB /) |
941 |
|
|
KB(:,46, 5) = (/ & |
942 |
|
|
& 0.17230E+03_JPRB,0.17365E+03_JPRB,0.17511E+03_JPRB,0.17669E+03_JPRB,0.17840E+03_JPRB /) |
943 |
|
|
KB(:,47, 5) = (/ & |
944 |
|
|
& 0.17179E+03_JPRB,0.17309E+03_JPRB,0.17451E+03_JPRB,0.17604E+03_JPRB,0.17770E+03_JPRB /) |
945 |
|
|
KB(:,48, 5) = (/ & |
946 |
|
|
& 0.17130E+03_JPRB,0.17255E+03_JPRB,0.17392E+03_JPRB,0.17541E+03_JPRB,0.17702E+03_JPRB /) |
947 |
|
|
KB(:,49, 5) = (/ & |
948 |
|
|
& 0.17083E+03_JPRB,0.17204E+03_JPRB,0.17336E+03_JPRB,0.17480E+03_JPRB,0.17636E+03_JPRB /) |
949 |
|
|
KB(:,50, 5) = (/ & |
950 |
|
|
& 0.17041E+03_JPRB,0.17157E+03_JPRB,0.17285E+03_JPRB,0.17424E+03_JPRB,0.17576E+03_JPRB /) |
951 |
|
|
KB(:,51, 5) = (/ & |
952 |
|
|
& 0.17002E+03_JPRB,0.17113E+03_JPRB,0.17237E+03_JPRB,0.17372E+03_JPRB,0.17519E+03_JPRB /) |
953 |
|
|
KB(:,52, 5) = (/ & |
954 |
|
|
& 0.16964E+03_JPRB,0.17071E+03_JPRB,0.17190E+03_JPRB,0.17321E+03_JPRB,0.17464E+03_JPRB /) |
955 |
|
|
KB(:,53, 5) = (/ & |
956 |
|
|
& 0.16927E+03_JPRB,0.17031E+03_JPRB,0.17145E+03_JPRB,0.17272E+03_JPRB,0.17411E+03_JPRB /) |
957 |
|
|
KB(:,54, 5) = (/ & |
958 |
|
|
& 0.16896E+03_JPRB,0.16995E+03_JPRB,0.17106E+03_JPRB,0.17228E+03_JPRB,0.17363E+03_JPRB /) |
959 |
|
|
KB(:,55, 5) = (/ & |
960 |
|
|
& 0.16866E+03_JPRB,0.16962E+03_JPRB,0.17069E+03_JPRB,0.17188E+03_JPRB,0.17318E+03_JPRB /) |
961 |
|
|
KB(:,56, 5) = (/ & |
962 |
|
|
& 0.16839E+03_JPRB,0.16930E+03_JPRB,0.17033E+03_JPRB,0.17148E+03_JPRB,0.17275E+03_JPRB /) |
963 |
|
|
KB(:,57, 5) = (/ & |
964 |
|
|
& 0.16812E+03_JPRB,0.16899E+03_JPRB,0.16999E+03_JPRB,0.17110E+03_JPRB,0.17233E+03_JPRB /) |
965 |
|
|
KB(:,58, 5) = (/ & |
966 |
|
|
& 0.16788E+03_JPRB,0.16871E+03_JPRB,0.16968E+03_JPRB,0.17075E+03_JPRB,0.17195E+03_JPRB /) |
967 |
|
|
KB(:,59, 5) = (/ & |
968 |
|
|
& 0.16779E+03_JPRB,0.16861E+03_JPRB,0.16955E+03_JPRB,0.17062E+03_JPRB,0.17180E+03_JPRB /) |
969 |
|
|
KB(:,13, 6) = (/ & |
970 |
|
|
& 0.38122E+03_JPRB,0.38406E+03_JPRB,0.38668E+03_JPRB,0.38908E+03_JPRB,0.39125E+03_JPRB /) |
971 |
|
|
KB(:,14, 6) = (/ & |
972 |
|
|
& 0.38148E+03_JPRB,0.38431E+03_JPRB,0.38691E+03_JPRB,0.38929E+03_JPRB,0.39144E+03_JPRB /) |
973 |
|
|
KB(:,15, 6) = (/ & |
974 |
|
|
& 0.38178E+03_JPRB,0.38458E+03_JPRB,0.38716E+03_JPRB,0.38951E+03_JPRB,0.39164E+03_JPRB /) |
975 |
|
|
KB(:,16, 6) = (/ & |
976 |
|
|
& 0.38209E+03_JPRB,0.38487E+03_JPRB,0.38742E+03_JPRB,0.38975E+03_JPRB,0.39186E+03_JPRB /) |
977 |
|
|
KB(:,17, 6) = (/ & |
978 |
|
|
& 0.38239E+03_JPRB,0.38514E+03_JPRB,0.38767E+03_JPRB,0.38998E+03_JPRB,0.39206E+03_JPRB /) |
979 |
|
|
KB(:,18, 6) = (/ & |
980 |
|
|
& 0.38268E+03_JPRB,0.38541E+03_JPRB,0.38792E+03_JPRB,0.39020E+03_JPRB,0.39226E+03_JPRB /) |
981 |
|
|
KB(:,19, 6) = (/ & |
982 |
|
|
& 0.38297E+03_JPRB,0.38568E+03_JPRB,0.38816E+03_JPRB,0.39042E+03_JPRB,0.39246E+03_JPRB /) |
983 |
|
|
KB(:,20, 6) = (/ & |
984 |
|
|
& 0.38330E+03_JPRB,0.38598E+03_JPRB,0.38844E+03_JPRB,0.39067E+03_JPRB,0.39268E+03_JPRB /) |
985 |
|
|
KB(:,21, 6) = (/ & |
986 |
|
|
& 0.38363E+03_JPRB,0.38629E+03_JPRB,0.38872E+03_JPRB,0.39092E+03_JPRB,0.39291E+03_JPRB /) |
987 |
|
|
KB(:,22, 6) = (/ & |
988 |
|
|
& 0.38414E+03_JPRB,0.38675E+03_JPRB,0.38914E+03_JPRB,0.39131E+03_JPRB,0.39325E+03_JPRB /) |
989 |
|
|
KB(:,23, 6) = (/ & |
990 |
|
|
& 0.38466E+03_JPRB,0.38723E+03_JPRB,0.38958E+03_JPRB,0.39170E+03_JPRB,0.39360E+03_JPRB /) |
991 |
|
|
KB(:,24, 6) = (/ & |
992 |
|
|
& 0.38520E+03_JPRB,0.38772E+03_JPRB,0.39002E+03_JPRB,0.39210E+03_JPRB,0.39395E+03_JPRB /) |
993 |
|
|
KB(:,25, 6) = (/ & |
994 |
|
|
& 0.38575E+03_JPRB,0.38823E+03_JPRB,0.39048E+03_JPRB,0.39251E+03_JPRB,0.39432E+03_JPRB /) |
995 |
|
|
KB(:,26, 6) = (/ & |
996 |
|
|
& 0.38635E+03_JPRB,0.38877E+03_JPRB,0.39098E+03_JPRB,0.39295E+03_JPRB,0.39470E+03_JPRB /) |
997 |
|
|
KB(:,27, 6) = (/ & |
998 |
|
|
& 0.38694E+03_JPRB,0.38932E+03_JPRB,0.39146E+03_JPRB,0.39339E+03_JPRB,0.39509E+03_JPRB /) |
999 |
|
|
KB(:,28, 6) = (/ & |
1000 |
|
|
& 0.38753E+03_JPRB,0.38985E+03_JPRB,0.39194E+03_JPRB,0.39381E+03_JPRB,0.39546E+03_JPRB /) |
1001 |
|
|
KB(:,29, 6) = (/ & |
1002 |
|
|
& 0.38813E+03_JPRB,0.39039E+03_JPRB,0.39243E+03_JPRB,0.39424E+03_JPRB,0.39583E+03_JPRB /) |
1003 |
|
|
KB(:,30, 6) = (/ & |
1004 |
|
|
& 0.38871E+03_JPRB,0.39092E+03_JPRB,0.39290E+03_JPRB,0.39466E+03_JPRB,0.39620E+03_JPRB /) |
1005 |
|
|
KB(:,31, 6) = (/ & |
1006 |
|
|
& 0.38930E+03_JPRB,0.39145E+03_JPRB,0.39338E+03_JPRB,0.39508E+03_JPRB,0.39655E+03_JPRB /) |
1007 |
|
|
KB(:,32, 6) = (/ & |
1008 |
|
|
& 0.38988E+03_JPRB,0.39197E+03_JPRB,0.39384E+03_JPRB,0.39548E+03_JPRB,0.39690E+03_JPRB /) |
1009 |
|
|
KB(:,33, 6) = (/ & |
1010 |
|
|
& 0.39045E+03_JPRB,0.39248E+03_JPRB,0.39429E+03_JPRB,0.39587E+03_JPRB,0.39723E+03_JPRB /) |
1011 |
|
|
KB(:,34, 6) = (/ & |
1012 |
|
|
& 0.39093E+03_JPRB,0.39291E+03_JPRB,0.39467E+03_JPRB,0.39620E+03_JPRB,0.39751E+03_JPRB /) |
1013 |
|
|
KB(:,35, 6) = (/ & |
1014 |
|
|
& 0.39120E+03_JPRB,0.39316E+03_JPRB,0.39488E+03_JPRB,0.39639E+03_JPRB,0.39766E+03_JPRB /) |
1015 |
|
|
KB(:,36, 6) = (/ & |
1016 |
|
|
& 0.39125E+03_JPRB,0.39320E+03_JPRB,0.39492E+03_JPRB,0.39642E+03_JPRB,0.39769E+03_JPRB /) |
1017 |
|
|
KB(:,37, 6) = (/ & |
1018 |
|
|
& 0.39098E+03_JPRB,0.39295E+03_JPRB,0.39471E+03_JPRB,0.39623E+03_JPRB,0.39754E+03_JPRB /) |
1019 |
|
|
KB(:,38, 6) = (/ & |
1020 |
|
|
& 0.39068E+03_JPRB,0.39269E+03_JPRB,0.39447E+03_JPRB,0.39603E+03_JPRB,0.39737E+03_JPRB /) |
1021 |
|
|
KB(:,39, 6) = (/ & |
1022 |
|
|
& 0.39039E+03_JPRB,0.39243E+03_JPRB,0.39424E+03_JPRB,0.39583E+03_JPRB,0.39720E+03_JPRB /) |
1023 |
|
|
KB(:,40, 6) = (/ & |
1024 |
|
|
& 0.38986E+03_JPRB,0.39196E+03_JPRB,0.39382E+03_JPRB,0.39547E+03_JPRB,0.39689E+03_JPRB /) |
1025 |
|
|
KB(:,41, 6) = (/ & |
1026 |
|
|
& 0.38929E+03_JPRB,0.39144E+03_JPRB,0.39337E+03_JPRB,0.39507E+03_JPRB,0.39655E+03_JPRB /) |
1027 |
|
|
KB(:,42, 6) = (/ & |
1028 |
|
|
& 0.38871E+03_JPRB,0.39092E+03_JPRB,0.39290E+03_JPRB,0.39466E+03_JPRB,0.39619E+03_JPRB /) |
1029 |
|
|
KB(:,43, 6) = (/ & |
1030 |
|
|
& 0.38797E+03_JPRB,0.39025E+03_JPRB,0.39230E+03_JPRB,0.39413E+03_JPRB,0.39574E+03_JPRB /) |
1031 |
|
|
KB(:,44, 6) = (/ & |
1032 |
|
|
& 0.38715E+03_JPRB,0.38951E+03_JPRB,0.39164E+03_JPRB,0.39354E+03_JPRB,0.39522E+03_JPRB /) |
1033 |
|
|
KB(:,45, 6) = (/ & |
1034 |
|
|
& 0.38631E+03_JPRB,0.38874E+03_JPRB,0.39094E+03_JPRB,0.39292E+03_JPRB,0.39468E+03_JPRB /) |
1035 |
|
|
KB(:,46, 6) = (/ & |
1036 |
|
|
& 0.38538E+03_JPRB,0.38789E+03_JPRB,0.39018E+03_JPRB,0.39224E+03_JPRB,0.39407E+03_JPRB /) |
1037 |
|
|
KB(:,47, 6) = (/ & |
1038 |
|
|
& 0.38431E+03_JPRB,0.38691E+03_JPRB,0.38929E+03_JPRB,0.39144E+03_JPRB,0.39336E+03_JPRB /) |
1039 |
|
|
KB(:,48, 6) = (/ & |
1040 |
|
|
& 0.38320E+03_JPRB,0.38589E+03_JPRB,0.38836E+03_JPRB,0.39060E+03_JPRB,0.39262E+03_JPRB /) |
1041 |
|
|
KB(:,49, 6) = (/ & |
1042 |
|
|
& 0.38206E+03_JPRB,0.38484E+03_JPRB,0.38739E+03_JPRB,0.38972E+03_JPRB,0.39183E+03_JPRB /) |
1043 |
|
|
KB(:,50, 6) = (/ & |
1044 |
|
|
& 0.38095E+03_JPRB,0.38382E+03_JPRB,0.38646E+03_JPRB,0.38887E+03_JPRB,0.39106E+03_JPRB /) |
1045 |
|
|
KB(:,51, 6) = (/ & |
1046 |
|
|
& 0.37985E+03_JPRB,0.38279E+03_JPRB,0.38552E+03_JPRB,0.38802E+03_JPRB,0.39029E+03_JPRB /) |
1047 |
|
|
KB(:,52, 6) = (/ & |
1048 |
|
|
& 0.37873E+03_JPRB,0.38175E+03_JPRB,0.38455E+03_JPRB,0.38713E+03_JPRB,0.38949E+03_JPRB /) |
1049 |
|
|
KB(:,53, 6) = (/ & |
1050 |
|
|
& 0.37762E+03_JPRB,0.38067E+03_JPRB,0.38355E+03_JPRB,0.38621E+03_JPRB,0.38865E+03_JPRB /) |
1051 |
|
|
KB(:,54, 6) = (/ & |
1052 |
|
|
& 0.37661E+03_JPRB,0.37965E+03_JPRB,0.38261E+03_JPRB,0.38535E+03_JPRB,0.38786E+03_JPRB /) |
1053 |
|
|
KB(:,55, 6) = (/ & |
1054 |
|
|
& 0.37559E+03_JPRB,0.37867E+03_JPRB,0.38169E+03_JPRB,0.38450E+03_JPRB,0.38708E+03_JPRB /) |
1055 |
|
|
KB(:,56, 6) = (/ & |
1056 |
|
|
& 0.37459E+03_JPRB,0.37768E+03_JPRB,0.38074E+03_JPRB,0.38362E+03_JPRB,0.38628E+03_JPRB /) |
1057 |
|
|
KB(:,57, 6) = (/ & |
1058 |
|
|
& 0.37353E+03_JPRB,0.37673E+03_JPRB,0.37977E+03_JPRB,0.38272E+03_JPRB,0.38545E+03_JPRB /) |
1059 |
|
|
KB(:,58, 6) = (/ & |
1060 |
|
|
& 0.37251E+03_JPRB,0.37577E+03_JPRB,0.37885E+03_JPRB,0.38185E+03_JPRB,0.38465E+03_JPRB /) |
1061 |
|
|
KB(:,59, 6) = (/ & |
1062 |
|
|
& 0.37212E+03_JPRB,0.37539E+03_JPRB,0.37847E+03_JPRB,0.38150E+03_JPRB,0.38432E+03_JPRB /) |
1063 |
|
|
KB(:,13, 7) = (/ & |
1064 |
|
|
& 0.62583E+03_JPRB,0.62623E+03_JPRB,0.62691E+03_JPRB,0.62787E+03_JPRB,0.62909E+03_JPRB /) |
1065 |
|
|
KB(:,14, 7) = (/ & |
1066 |
|
|
& 0.62586E+03_JPRB,0.62628E+03_JPRB,0.62699E+03_JPRB,0.62797E+03_JPRB,0.62921E+03_JPRB /) |
1067 |
|
|
KB(:,15, 7) = (/ & |
1068 |
|
|
& 0.62589E+03_JPRB,0.62634E+03_JPRB,0.62708E+03_JPRB,0.62809E+03_JPRB,0.62935E+03_JPRB /) |
1069 |
|
|
KB(:,16, 7) = (/ & |
1070 |
|
|
& 0.62593E+03_JPRB,0.62640E+03_JPRB,0.62717E+03_JPRB,0.62821E+03_JPRB,0.62950E+03_JPRB /) |
1071 |
|
|
KB(:,17, 7) = (/ & |
1072 |
|
|
& 0.62597E+03_JPRB,0.62647E+03_JPRB,0.62727E+03_JPRB,0.62833E+03_JPRB,0.62965E+03_JPRB /) |
1073 |
|
|
KB(:,18, 7) = (/ & |
1074 |
|
|
& 0.62601E+03_JPRB,0.62654E+03_JPRB,0.62737E+03_JPRB,0.62846E+03_JPRB,0.62980E+03_JPRB /) |
1075 |
|
|
KB(:,19, 7) = (/ & |
1076 |
|
|
& 0.62605E+03_JPRB,0.62661E+03_JPRB,0.62746E+03_JPRB,0.62858E+03_JPRB,0.62995E+03_JPRB /) |
1077 |
|
|
KB(:,20, 7) = (/ & |
1078 |
|
|
& 0.62610E+03_JPRB,0.62670E+03_JPRB,0.62758E+03_JPRB,0.62873E+03_JPRB,0.63012E+03_JPRB /) |
1079 |
|
|
KB(:,21, 7) = (/ & |
1080 |
|
|
& 0.62615E+03_JPRB,0.62679E+03_JPRB,0.62770E+03_JPRB,0.62888E+03_JPRB,0.63031E+03_JPRB /) |
1081 |
|
|
KB(:,22, 7) = (/ & |
1082 |
|
|
& 0.62625E+03_JPRB,0.62694E+03_JPRB,0.62790E+03_JPRB,0.62913E+03_JPRB,0.63060E+03_JPRB /) |
1083 |
|
|
KB(:,23, 7) = (/ & |
1084 |
|
|
& 0.62636E+03_JPRB,0.62710E+03_JPRB,0.62812E+03_JPRB,0.62939E+03_JPRB,0.63091E+03_JPRB /) |
1085 |
|
|
KB(:,24, 7) = (/ & |
1086 |
|
|
& 0.62648E+03_JPRB,0.62729E+03_JPRB,0.62835E+03_JPRB,0.62968E+03_JPRB,0.63125E+03_JPRB /) |
1087 |
|
|
KB(:,25, 7) = (/ & |
1088 |
|
|
& 0.62663E+03_JPRB,0.62749E+03_JPRB,0.62861E+03_JPRB,0.62999E+03_JPRB,0.63162E+03_JPRB /) |
1089 |
|
|
KB(:,26, 7) = (/ & |
1090 |
|
|
& 0.62681E+03_JPRB,0.62773E+03_JPRB,0.62891E+03_JPRB,0.63035E+03_JPRB,0.63203E+03_JPRB /) |
1091 |
|
|
KB(:,27, 7) = (/ & |
1092 |
|
|
& 0.62700E+03_JPRB,0.62799E+03_JPRB,0.62923E+03_JPRB,0.63072E+03_JPRB,0.63247E+03_JPRB /) |
1093 |
|
|
KB(:,28, 7) = (/ & |
1094 |
|
|
& 0.62721E+03_JPRB,0.62826E+03_JPRB,0.62956E+03_JPRB,0.63112E+03_JPRB,0.63292E+03_JPRB /) |
1095 |
|
|
KB(:,29, 7) = (/ & |
1096 |
|
|
& 0.62745E+03_JPRB,0.62856E+03_JPRB,0.62993E+03_JPRB,0.63154E+03_JPRB,0.63341E+03_JPRB /) |
1097 |
|
|
KB(:,30, 7) = (/ & |
1098 |
|
|
& 0.62770E+03_JPRB,0.62888E+03_JPRB,0.63031E+03_JPRB,0.63198E+03_JPRB,0.63392E+03_JPRB /) |
1099 |
|
|
KB(:,31, 7) = (/ & |
1100 |
|
|
& 0.62798E+03_JPRB,0.62922E+03_JPRB,0.63071E+03_JPRB,0.63245E+03_JPRB,0.63446E+03_JPRB /) |
1101 |
|
|
KB(:,32, 7) = (/ & |
1102 |
|
|
& 0.62828E+03_JPRB,0.62958E+03_JPRB,0.63114E+03_JPRB,0.63295E+03_JPRB,0.63503E+03_JPRB /) |
1103 |
|
|
KB(:,33, 7) = (/ & |
1104 |
|
|
& 0.62860E+03_JPRB,0.62997E+03_JPRB,0.63159E+03_JPRB,0.63347E+03_JPRB,0.63562E+03_JPRB /) |
1105 |
|
|
KB(:,34, 7) = (/ & |
1106 |
|
|
& 0.62889E+03_JPRB,0.63031E+03_JPRB,0.63199E+03_JPRB,0.63393E+03_JPRB,0.63614E+03_JPRB /) |
1107 |
|
|
KB(:,35, 7) = (/ & |
1108 |
|
|
& 0.62906E+03_JPRB,0.63052E+03_JPRB,0.63223E+03_JPRB,0.63421E+03_JPRB,0.63644E+03_JPRB /) |
1109 |
|
|
KB(:,36, 7) = (/ & |
1110 |
|
|
& 0.62909E+03_JPRB,0.63055E+03_JPRB,0.63227E+03_JPRB,0.63425E+03_JPRB,0.63649E+03_JPRB /) |
1111 |
|
|
KB(:,37, 7) = (/ & |
1112 |
|
|
& 0.62891E+03_JPRB,0.63035E+03_JPRB,0.63203E+03_JPRB,0.63397E+03_JPRB,0.63619E+03_JPRB /) |
1113 |
|
|
KB(:,38, 7) = (/ & |
1114 |
|
|
& 0.62873E+03_JPRB,0.63013E+03_JPRB,0.63178E+03_JPRB,0.63369E+03_JPRB,0.63586E+03_JPRB /) |
1115 |
|
|
KB(:,39, 7) = (/ & |
1116 |
|
|
& 0.62856E+03_JPRB,0.62992E+03_JPRB,0.63154E+03_JPRB,0.63341E+03_JPRB,0.63555E+03_JPRB /) |
1117 |
|
|
KB(:,40, 7) = (/ & |
1118 |
|
|
& 0.62827E+03_JPRB,0.62957E+03_JPRB,0.63113E+03_JPRB,0.63293E+03_JPRB,0.63501E+03_JPRB /) |
1119 |
|
|
KB(:,41, 7) = (/ & |
1120 |
|
|
& 0.62798E+03_JPRB,0.62922E+03_JPRB,0.63071E+03_JPRB,0.63245E+03_JPRB,0.63445E+03_JPRB /) |
1121 |
|
|
KB(:,42, 7) = (/ & |
1122 |
|
|
& 0.62770E+03_JPRB,0.62887E+03_JPRB,0.63030E+03_JPRB,0.63198E+03_JPRB,0.63391E+03_JPRB /) |
1123 |
|
|
KB(:,43, 7) = (/ & |
1124 |
|
|
& 0.62739E+03_JPRB,0.62848E+03_JPRB,0.62983E+03_JPRB,0.63143E+03_JPRB,0.63328E+03_JPRB /) |
1125 |
|
|
KB(:,44, 7) = (/ & |
1126 |
|
|
& 0.62708E+03_JPRB,0.62808E+03_JPRB,0.62935E+03_JPRB,0.63086E+03_JPRB,0.63263E+03_JPRB /) |
1127 |
|
|
KB(:,45, 7) = (/ & |
1128 |
|
|
& 0.62679E+03_JPRB,0.62771E+03_JPRB,0.62889E+03_JPRB,0.63032E+03_JPRB,0.63200E+03_JPRB /) |
1129 |
|
|
KB(:,46, 7) = (/ & |
1130 |
|
|
& 0.62653E+03_JPRB,0.62735E+03_JPRB,0.62844E+03_JPRB,0.62978E+03_JPRB,0.63137E+03_JPRB /) |
1131 |
|
|
KB(:,47, 7) = (/ & |
1132 |
|
|
& 0.62629E+03_JPRB,0.62699E+03_JPRB,0.62797E+03_JPRB,0.62921E+03_JPRB,0.63070E+03_JPRB /) |
1133 |
|
|
KB(:,48, 7) = (/ & |
1134 |
|
|
& 0.62608E+03_JPRB,0.62667E+03_JPRB,0.62755E+03_JPRB,0.62868E+03_JPRB,0.63007E+03_JPRB /) |
1135 |
|
|
KB(:,49, 7) = (/ & |
1136 |
|
|
& 0.62592E+03_JPRB,0.62640E+03_JPRB,0.62716E+03_JPRB,0.62820E+03_JPRB,0.62948E+03_JPRB /) |
1137 |
|
|
KB(:,50, 7) = (/ & |
1138 |
|
|
& 0.62580E+03_JPRB,0.62619E+03_JPRB,0.62684E+03_JPRB,0.62778E+03_JPRB,0.62897E+03_JPRB /) |
1139 |
|
|
KB(:,51, 7) = (/ & |
1140 |
|
|
& 0.62580E+03_JPRB,0.62602E+03_JPRB,0.62657E+03_JPRB,0.62741E+03_JPRB,0.62850E+03_JPRB /) |
1141 |
|
|
KB(:,52, 7) = (/ & |
1142 |
|
|
& 0.62578E+03_JPRB,0.62589E+03_JPRB,0.62633E+03_JPRB,0.62707E+03_JPRB,0.62807E+03_JPRB /) |
1143 |
|
|
KB(:,53, 7) = (/ & |
1144 |
|
|
& 0.62574E+03_JPRB,0.62578E+03_JPRB,0.62614E+03_JPRB,0.62677E+03_JPRB,0.62768E+03_JPRB /) |
1145 |
|
|
KB(:,54, 7) = (/ & |
1146 |
|
|
& 0.62576E+03_JPRB,0.62580E+03_JPRB,0.62600E+03_JPRB,0.62652E+03_JPRB,0.62734E+03_JPRB /) |
1147 |
|
|
KB(:,55, 7) = (/ & |
1148 |
|
|
& 0.62585E+03_JPRB,0.62578E+03_JPRB,0.62588E+03_JPRB,0.62632E+03_JPRB,0.62705E+03_JPRB /) |
1149 |
|
|
KB(:,56, 7) = (/ & |
1150 |
|
|
& 0.62587E+03_JPRB,0.62576E+03_JPRB,0.62579E+03_JPRB,0.62615E+03_JPRB,0.62678E+03_JPRB /) |
1151 |
|
|
KB(:,57, 7) = (/ & |
1152 |
|
|
& 0.62591E+03_JPRB,0.62574E+03_JPRB,0.62580E+03_JPRB,0.62601E+03_JPRB,0.62655E+03_JPRB /) |
1153 |
|
|
KB(:,58, 7) = (/ & |
1154 |
|
|
& 0.62591E+03_JPRB,0.62583E+03_JPRB,0.62578E+03_JPRB,0.62590E+03_JPRB,0.62636E+03_JPRB /) |
1155 |
|
|
KB(:,59, 7) = (/ & |
1156 |
|
|
& 0.62590E+03_JPRB,0.62586E+03_JPRB,0.62578E+03_JPRB,0.62586E+03_JPRB,0.62628E+03_JPRB /) |
1157 |
|
|
KB(:,13, 8) = (/ & |
1158 |
|
|
& 0.81821E+03_JPRB,0.81877E+03_JPRB,0.81935E+03_JPRB,0.81999E+03_JPRB,0.82074E+03_JPRB /) |
1159 |
|
|
KB(:,14, 8) = (/ & |
1160 |
|
|
& 0.81826E+03_JPRB,0.81882E+03_JPRB,0.81939E+03_JPRB,0.82006E+03_JPRB,0.82081E+03_JPRB /) |
1161 |
|
|
KB(:,15, 8) = (/ & |
1162 |
|
|
& 0.81831E+03_JPRB,0.81888E+03_JPRB,0.81946E+03_JPRB,0.82012E+03_JPRB,0.82089E+03_JPRB /) |
1163 |
|
|
KB(:,16, 8) = (/ & |
1164 |
|
|
& 0.81836E+03_JPRB,0.81895E+03_JPRB,0.81952E+03_JPRB,0.82021E+03_JPRB,0.82098E+03_JPRB /) |
1165 |
|
|
KB(:,17, 8) = (/ & |
1166 |
|
|
& 0.81842E+03_JPRB,0.81901E+03_JPRB,0.81959E+03_JPRB,0.82028E+03_JPRB,0.82106E+03_JPRB /) |
1167 |
|
|
KB(:,18, 8) = (/ & |
1168 |
|
|
& 0.81847E+03_JPRB,0.81907E+03_JPRB,0.81965E+03_JPRB,0.82036E+03_JPRB,0.82116E+03_JPRB /) |
1169 |
|
|
KB(:,19, 8) = (/ & |
1170 |
|
|
& 0.81853E+03_JPRB,0.81913E+03_JPRB,0.81972E+03_JPRB,0.82043E+03_JPRB,0.82123E+03_JPRB /) |
1171 |
|
|
KB(:,20, 8) = (/ & |
1172 |
|
|
& 0.81860E+03_JPRB,0.81919E+03_JPRB,0.81980E+03_JPRB,0.82052E+03_JPRB,0.82133E+03_JPRB /) |
1173 |
|
|
KB(:,21, 8) = (/ & |
1174 |
|
|
& 0.81868E+03_JPRB,0.81925E+03_JPRB,0.81988E+03_JPRB,0.82061E+03_JPRB,0.82143E+03_JPRB /) |
1175 |
|
|
KB(:,22, 8) = (/ & |
1176 |
|
|
& 0.81879E+03_JPRB,0.81936E+03_JPRB,0.82001E+03_JPRB,0.82076E+03_JPRB,0.82160E+03_JPRB /) |
1177 |
|
|
KB(:,23, 8) = (/ & |
1178 |
|
|
& 0.81889E+03_JPRB,0.81947E+03_JPRB,0.82015E+03_JPRB,0.82091E+03_JPRB,0.82177E+03_JPRB /) |
1179 |
|
|
KB(:,24, 8) = (/ & |
1180 |
|
|
& 0.81902E+03_JPRB,0.81960E+03_JPRB,0.82030E+03_JPRB,0.82108E+03_JPRB,0.82195E+03_JPRB /) |
1181 |
|
|
KB(:,25, 8) = (/ & |
1182 |
|
|
& 0.81914E+03_JPRB,0.81974E+03_JPRB,0.82046E+03_JPRB,0.82126E+03_JPRB,0.82214E+03_JPRB /) |
1183 |
|
|
KB(:,26, 8) = (/ & |
1184 |
|
|
& 0.81927E+03_JPRB,0.81990E+03_JPRB,0.82063E+03_JPRB,0.82145E+03_JPRB,0.82236E+03_JPRB /) |
1185 |
|
|
KB(:,27, 8) = (/ & |
1186 |
|
|
& 0.81941E+03_JPRB,0.82006E+03_JPRB,0.82082E+03_JPRB,0.82166E+03_JPRB,0.82258E+03_JPRB /) |
1187 |
|
|
KB(:,28, 8) = (/ & |
1188 |
|
|
& 0.81957E+03_JPRB,0.82024E+03_JPRB,0.82101E+03_JPRB,0.82188E+03_JPRB,0.82281E+03_JPRB /) |
1189 |
|
|
KB(:,29, 8) = (/ & |
1190 |
|
|
& 0.81971E+03_JPRB,0.82042E+03_JPRB,0.82122E+03_JPRB,0.82210E+03_JPRB,0.82305E+03_JPRB /) |
1191 |
|
|
KB(:,30, 8) = (/ & |
1192 |
|
|
& 0.81988E+03_JPRB,0.82061E+03_JPRB,0.82143E+03_JPRB,0.82233E+03_JPRB,0.82330E+03_JPRB /) |
1193 |
|
|
KB(:,31, 8) = (/ & |
1194 |
|
|
& 0.82006E+03_JPRB,0.82081E+03_JPRB,0.82166E+03_JPRB,0.82258E+03_JPRB,0.82355E+03_JPRB /) |
1195 |
|
|
KB(:,32, 8) = (/ & |
1196 |
|
|
& 0.82025E+03_JPRB,0.82103E+03_JPRB,0.82189E+03_JPRB,0.82283E+03_JPRB,0.82380E+03_JPRB /) |
1197 |
|
|
KB(:,33, 8) = (/ & |
1198 |
|
|
& 0.82044E+03_JPRB,0.82124E+03_JPRB,0.82213E+03_JPRB,0.82308E+03_JPRB,0.82408E+03_JPRB /) |
1199 |
|
|
KB(:,34, 8) = (/ & |
1200 |
|
|
& 0.82062E+03_JPRB,0.82144E+03_JPRB,0.82234E+03_JPRB,0.82330E+03_JPRB,0.82432E+03_JPRB /) |
1201 |
|
|
KB(:,35, 8) = (/ & |
1202 |
|
|
& 0.82072E+03_JPRB,0.82155E+03_JPRB,0.82246E+03_JPRB,0.82342E+03_JPRB,0.82446E+03_JPRB /) |
1203 |
|
|
KB(:,36, 8) = (/ & |
1204 |
|
|
& 0.82074E+03_JPRB,0.82157E+03_JPRB,0.82248E+03_JPRB,0.82345E+03_JPRB,0.82448E+03_JPRB /) |
1205 |
|
|
KB(:,37, 8) = (/ & |
1206 |
|
|
& 0.82063E+03_JPRB,0.82146E+03_JPRB,0.82236E+03_JPRB,0.82332E+03_JPRB,0.82434E+03_JPRB /) |
1207 |
|
|
KB(:,38, 8) = (/ & |
1208 |
|
|
& 0.82053E+03_JPRB,0.82134E+03_JPRB,0.82223E+03_JPRB,0.82319E+03_JPRB,0.82419E+03_JPRB /) |
1209 |
|
|
KB(:,39, 8) = (/ & |
1210 |
|
|
& 0.82042E+03_JPRB,0.82122E+03_JPRB,0.82210E+03_JPRB,0.82305E+03_JPRB,0.82405E+03_JPRB /) |
1211 |
|
|
KB(:,40, 8) = (/ & |
1212 |
|
|
& 0.82024E+03_JPRB,0.82102E+03_JPRB,0.82188E+03_JPRB,0.82282E+03_JPRB,0.82380E+03_JPRB /) |
1213 |
|
|
KB(:,41, 8) = (/ & |
1214 |
|
|
& 0.82006E+03_JPRB,0.82081E+03_JPRB,0.82165E+03_JPRB,0.82257E+03_JPRB,0.82354E+03_JPRB /) |
1215 |
|
|
KB(:,42, 8) = (/ & |
1216 |
|
|
& 0.81988E+03_JPRB,0.82061E+03_JPRB,0.82143E+03_JPRB,0.82233E+03_JPRB,0.82329E+03_JPRB /) |
1217 |
|
|
KB(:,43, 8) = (/ & |
1218 |
|
|
& 0.81967E+03_JPRB,0.82037E+03_JPRB,0.82117E+03_JPRB,0.82204E+03_JPRB,0.82299E+03_JPRB /) |
1219 |
|
|
KB(:,44, 8) = (/ & |
1220 |
|
|
& 0.81946E+03_JPRB,0.82013E+03_JPRB,0.82089E+03_JPRB,0.82174E+03_JPRB,0.82267E+03_JPRB /) |
1221 |
|
|
KB(:,45, 8) = (/ & |
1222 |
|
|
& 0.81926E+03_JPRB,0.81989E+03_JPRB,0.82062E+03_JPRB,0.82144E+03_JPRB,0.82234E+03_JPRB /) |
1223 |
|
|
KB(:,46, 8) = (/ & |
1224 |
|
|
& 0.81907E+03_JPRB,0.81965E+03_JPRB,0.82034E+03_JPRB,0.82114E+03_JPRB,0.82201E+03_JPRB /) |
1225 |
|
|
KB(:,47, 8) = (/ & |
1226 |
|
|
& 0.81882E+03_JPRB,0.81939E+03_JPRB,0.82006E+03_JPRB,0.82081E+03_JPRB,0.82165E+03_JPRB /) |
1227 |
|
|
KB(:,48, 8) = (/ & |
1228 |
|
|
& 0.81858E+03_JPRB,0.81917E+03_JPRB,0.81978E+03_JPRB,0.82050E+03_JPRB,0.82130E+03_JPRB /) |
1229 |
|
|
KB(:,49, 8) = (/ & |
1230 |
|
|
& 0.81836E+03_JPRB,0.81894E+03_JPRB,0.81953E+03_JPRB,0.82019E+03_JPRB,0.82097E+03_JPRB /) |
1231 |
|
|
KB(:,50, 8) = (/ & |
1232 |
|
|
& 0.81817E+03_JPRB,0.81871E+03_JPRB,0.81929E+03_JPRB,0.81993E+03_JPRB,0.82067E+03_JPRB /) |
1233 |
|
|
KB(:,51, 8) = (/ & |
1234 |
|
|
& 0.81790E+03_JPRB,0.81850E+03_JPRB,0.81910E+03_JPRB,0.81967E+03_JPRB,0.82039E+03_JPRB /) |
1235 |
|
|
KB(:,52, 8) = (/ & |
1236 |
|
|
& 0.81779E+03_JPRB,0.81830E+03_JPRB,0.81888E+03_JPRB,0.81945E+03_JPRB,0.82012E+03_JPRB /) |
1237 |
|
|
KB(:,53, 8) = (/ & |
1238 |
|
|
& 0.81766E+03_JPRB,0.81812E+03_JPRB,0.81866E+03_JPRB,0.81924E+03_JPRB,0.81986E+03_JPRB /) |
1239 |
|
|
KB(:,54, 8) = (/ & |
1240 |
|
|
& 0.81744E+03_JPRB,0.81785E+03_JPRB,0.81846E+03_JPRB,0.81906E+03_JPRB,0.81964E+03_JPRB /) |
1241 |
|
|
KB(:,55, 8) = (/ & |
1242 |
|
|
& 0.81733E+03_JPRB,0.81777E+03_JPRB,0.81829E+03_JPRB,0.81886E+03_JPRB,0.81944E+03_JPRB /) |
1243 |
|
|
KB(:,56, 8) = (/ & |
1244 |
|
|
& 0.81741E+03_JPRB,0.81767E+03_JPRB,0.81813E+03_JPRB,0.81867E+03_JPRB,0.81925E+03_JPRB /) |
1245 |
|
|
KB(:,57, 8) = (/ & |
1246 |
|
|
& 0.81785E+03_JPRB,0.81749E+03_JPRB,0.81788E+03_JPRB,0.81848E+03_JPRB,0.81908E+03_JPRB /) |
1247 |
|
|
KB(:,58, 8) = (/ & |
1248 |
|
|
& 0.81817E+03_JPRB,0.81731E+03_JPRB,0.81779E+03_JPRB,0.81832E+03_JPRB,0.81889E+03_JPRB /) |
1249 |
|
|
KB(:,59, 8) = (/ & |
1250 |
|
|
& 0.81824E+03_JPRB,0.81736E+03_JPRB,0.81776E+03_JPRB,0.81826E+03_JPRB,0.81883E+03_JPRB /) |
1251 |
|
|
KB(:,13, 9) = (/ & |
1252 |
|
|
& 0.94133E+03_JPRB,0.94438E+03_JPRB,0.94687E+03_JPRB,0.94883E+03_JPRB,0.95021E+03_JPRB /) |
1253 |
|
|
KB(:,14, 9) = (/ & |
1254 |
|
|
& 0.94163E+03_JPRB,0.94463E+03_JPRB,0.94708E+03_JPRB,0.94898E+03_JPRB,0.95031E+03_JPRB /) |
1255 |
|
|
KB(:,15, 9) = (/ & |
1256 |
|
|
& 0.94195E+03_JPRB,0.94490E+03_JPRB,0.94731E+03_JPRB,0.94914E+03_JPRB,0.95042E+03_JPRB /) |
1257 |
|
|
KB(:,16, 9) = (/ & |
1258 |
|
|
& 0.94229E+03_JPRB,0.94518E+03_JPRB,0.94753E+03_JPRB,0.94930E+03_JPRB,0.95052E+03_JPRB /) |
1259 |
|
|
KB(:,17, 9) = (/ & |
1260 |
|
|
& 0.94262E+03_JPRB,0.94544E+03_JPRB,0.94774E+03_JPRB,0.94946E+03_JPRB,0.95061E+03_JPRB /) |
1261 |
|
|
KB(:,18, 9) = (/ & |
1262 |
|
|
& 0.94293E+03_JPRB,0.94570E+03_JPRB,0.94795E+03_JPRB,0.94960E+03_JPRB,0.95069E+03_JPRB /) |
1263 |
|
|
KB(:,19, 9) = (/ & |
1264 |
|
|
& 0.94323E+03_JPRB,0.94595E+03_JPRB,0.94814E+03_JPRB,0.94974E+03_JPRB,0.95078E+03_JPRB /) |
1265 |
|
|
KB(:,20, 9) = (/ & |
1266 |
|
|
& 0.94357E+03_JPRB,0.94624E+03_JPRB,0.94835E+03_JPRB,0.94989E+03_JPRB,0.95087E+03_JPRB /) |
1267 |
|
|
KB(:,21, 9) = (/ & |
1268 |
|
|
& 0.94393E+03_JPRB,0.94654E+03_JPRB,0.94857E+03_JPRB,0.95003E+03_JPRB,0.95096E+03_JPRB /) |
1269 |
|
|
KB(:,22, 9) = (/ & |
1270 |
|
|
& 0.94445E+03_JPRB,0.94695E+03_JPRB,0.94888E+03_JPRB,0.95025E+03_JPRB,0.95105E+03_JPRB /) |
1271 |
|
|
KB(:,23, 9) = (/ & |
1272 |
|
|
& 0.94499E+03_JPRB,0.94737E+03_JPRB,0.94919E+03_JPRB,0.95045E+03_JPRB,0.95113E+03_JPRB /) |
1273 |
|
|
KB(:,24, 9) = (/ & |
1274 |
|
|
& 0.94549E+03_JPRB,0.94778E+03_JPRB,0.94948E+03_JPRB,0.95063E+03_JPRB,0.95120E+03_JPRB /) |
1275 |
|
|
KB(:,25, 9) = (/ & |
1276 |
|
|
& 0.94602E+03_JPRB,0.94819E+03_JPRB,0.94978E+03_JPRB,0.95082E+03_JPRB,0.95125E+03_JPRB /) |
1277 |
|
|
KB(:,26, 9) = (/ & |
1278 |
|
|
& 0.94658E+03_JPRB,0.94861E+03_JPRB,0.95006E+03_JPRB,0.95096E+03_JPRB,0.95127E+03_JPRB /) |
1279 |
|
|
KB(:,27, 9) = (/ & |
1280 |
|
|
& 0.94710E+03_JPRB,0.94900E+03_JPRB,0.95033E+03_JPRB,0.95109E+03_JPRB,0.95126E+03_JPRB /) |
1281 |
|
|
KB(:,28, 9) = (/ & |
1282 |
|
|
& 0.94759E+03_JPRB,0.94937E+03_JPRB,0.95056E+03_JPRB,0.95118E+03_JPRB,0.95123E+03_JPRB /) |
1283 |
|
|
KB(:,29, 9) = (/ & |
1284 |
|
|
& 0.94811E+03_JPRB,0.94973E+03_JPRB,0.95077E+03_JPRB,0.95124E+03_JPRB,0.95116E+03_JPRB /) |
1285 |
|
|
KB(:,30, 9) = (/ & |
1286 |
|
|
& 0.94856E+03_JPRB,0.95003E+03_JPRB,0.95095E+03_JPRB,0.95127E+03_JPRB,0.95105E+03_JPRB /) |
1287 |
|
|
KB(:,31, 9) = (/ & |
1288 |
|
|
& 0.94901E+03_JPRB,0.95032E+03_JPRB,0.95108E+03_JPRB,0.95127E+03_JPRB,0.95090E+03_JPRB /) |
1289 |
|
|
KB(:,32, 9) = (/ & |
1290 |
|
|
& 0.94939E+03_JPRB,0.95057E+03_JPRB,0.95118E+03_JPRB,0.95121E+03_JPRB,0.95071E+03_JPRB /) |
1291 |
|
|
KB(:,33, 9) = (/ & |
1292 |
|
|
& 0.94975E+03_JPRB,0.95079E+03_JPRB,0.95125E+03_JPRB,0.95115E+03_JPRB,0.95050E+03_JPRB /) |
1293 |
|
|
KB(:,34, 9) = (/ & |
1294 |
|
|
& 0.95004E+03_JPRB,0.95095E+03_JPRB,0.95128E+03_JPRB,0.95105E+03_JPRB,0.95030E+03_JPRB /) |
1295 |
|
|
KB(:,35, 9) = (/ & |
1296 |
|
|
& 0.95020E+03_JPRB,0.95102E+03_JPRB,0.95127E+03_JPRB,0.95098E+03_JPRB,0.95016E+03_JPRB /) |
1297 |
|
|
KB(:,36, 9) = (/ & |
1298 |
|
|
& 0.95021E+03_JPRB,0.95103E+03_JPRB,0.95127E+03_JPRB,0.95096E+03_JPRB,0.95023E+03_JPRB /) |
1299 |
|
|
KB(:,37, 9) = (/ & |
1300 |
|
|
& 0.95006E+03_JPRB,0.95096E+03_JPRB,0.95127E+03_JPRB,0.95104E+03_JPRB,0.95027E+03_JPRB /) |
1301 |
|
|
KB(:,38, 9) = (/ & |
1302 |
|
|
& 0.94990E+03_JPRB,0.95087E+03_JPRB,0.95126E+03_JPRB,0.95110E+03_JPRB,0.95040E+03_JPRB /) |
1303 |
|
|
KB(:,39, 9) = (/ & |
1304 |
|
|
& 0.94972E+03_JPRB,0.95077E+03_JPRB,0.95124E+03_JPRB,0.95117E+03_JPRB,0.95053E+03_JPRB /) |
1305 |
|
|
KB(:,40, 9) = (/ & |
1306 |
|
|
& 0.94939E+03_JPRB,0.95057E+03_JPRB,0.95118E+03_JPRB,0.95123E+03_JPRB,0.95072E+03_JPRB /) |
1307 |
|
|
KB(:,41, 9) = (/ & |
1308 |
|
|
& 0.94899E+03_JPRB,0.95032E+03_JPRB,0.95108E+03_JPRB,0.95127E+03_JPRB,0.95090E+03_JPRB /) |
1309 |
|
|
KB(:,42, 9) = (/ & |
1310 |
|
|
& 0.94856E+03_JPRB,0.95004E+03_JPRB,0.95094E+03_JPRB,0.95127E+03_JPRB,0.95105E+03_JPRB /) |
1311 |
|
|
KB(:,43, 9) = (/ & |
1312 |
|
|
& 0.94799E+03_JPRB,0.94963E+03_JPRB,0.95073E+03_JPRB,0.95123E+03_JPRB,0.95118E+03_JPRB /) |
1313 |
|
|
KB(:,44, 9) = (/ & |
1314 |
|
|
& 0.94729E+03_JPRB,0.94914E+03_JPRB,0.95041E+03_JPRB,0.95112E+03_JPRB,0.95126E+03_JPRB /) |
1315 |
|
|
KB(:,45, 9) = (/ & |
1316 |
|
|
& 0.94655E+03_JPRB,0.94858E+03_JPRB,0.95004E+03_JPRB,0.95095E+03_JPRB,0.95127E+03_JPRB /) |
1317 |
|
|
KB(:,46, 9) = (/ & |
1318 |
|
|
& 0.94568E+03_JPRB,0.94792E+03_JPRB,0.94958E+03_JPRB,0.95070E+03_JPRB,0.95122E+03_JPRB /) |
1319 |
|
|
KB(:,47, 9) = (/ & |
1320 |
|
|
& 0.94463E+03_JPRB,0.94708E+03_JPRB,0.94898E+03_JPRB,0.95031E+03_JPRB,0.95108E+03_JPRB /) |
1321 |
|
|
KB(:,48, 9) = (/ & |
1322 |
|
|
& 0.94348E+03_JPRB,0.94616E+03_JPRB,0.94829E+03_JPRB,0.94984E+03_JPRB,0.95084E+03_JPRB /) |
1323 |
|
|
KB(:,49, 9) = (/ & |
1324 |
|
|
& 0.94226E+03_JPRB,0.94515E+03_JPRB,0.94748E+03_JPRB,0.94928E+03_JPRB,0.95051E+03_JPRB /) |
1325 |
|
|
KB(:,50, 9) = (/ & |
1326 |
|
|
& 0.94103E+03_JPRB,0.94413E+03_JPRB,0.94669E+03_JPRB,0.94868E+03_JPRB,0.95011E+03_JPRB /) |
1327 |
|
|
KB(:,51, 9) = (/ & |
1328 |
|
|
& 0.93978E+03_JPRB,0.94307E+03_JPRB,0.94580E+03_JPRB,0.94802E+03_JPRB,0.94965E+03_JPRB /) |
1329 |
|
|
KB(:,52, 9) = (/ & |
1330 |
|
|
& 0.93828E+03_JPRB,0.94192E+03_JPRB,0.94488E+03_JPRB,0.94728E+03_JPRB,0.94912E+03_JPRB /) |
1331 |
|
|
KB(:,53, 9) = (/ & |
1332 |
|
|
& 0.93678E+03_JPRB,0.94072E+03_JPRB,0.94388E+03_JPRB,0.94646E+03_JPRB,0.94851E+03_JPRB /) |
1333 |
|
|
KB(:,54, 9) = (/ & |
1334 |
|
|
& 0.93537E+03_JPRB,0.93955E+03_JPRB,0.94287E+03_JPRB,0.94565E+03_JPRB,0.94789E+03_JPRB /) |
1335 |
|
|
KB(:,55, 9) = (/ & |
1336 |
|
|
& 0.93380E+03_JPRB,0.93820E+03_JPRB,0.94186E+03_JPRB,0.94483E+03_JPRB,0.94722E+03_JPRB /) |
1337 |
|
|
KB(:,56, 9) = (/ & |
1338 |
|
|
& 0.93205E+03_JPRB,0.93688E+03_JPRB,0.94080E+03_JPRB,0.94394E+03_JPRB,0.94652E+03_JPRB /) |
1339 |
|
|
KB(:,57, 9) = (/ & |
1340 |
|
|
& 0.92997E+03_JPRB,0.93554E+03_JPRB,0.93969E+03_JPRB,0.94299E+03_JPRB,0.94574E+03_JPRB /) |
1341 |
|
|
KB(:,58, 9) = (/ & |
1342 |
|
|
& 0.92808E+03_JPRB,0.93414E+03_JPRB,0.93844E+03_JPRB,0.94204E+03_JPRB,0.94498E+03_JPRB /) |
1343 |
|
|
KB(:,59, 9) = (/ & |
1344 |
|
|
& 0.92793E+03_JPRB,0.93341E+03_JPRB,0.93792E+03_JPRB,0.94165E+03_JPRB,0.94465E+03_JPRB /) |
1345 |
|
|
KB(:,13,10) = (/ & |
1346 |
|
|
& 0.98036E+03_JPRB,0.98526E+03_JPRB,0.98973E+03_JPRB,0.99279E+03_JPRB,0.99468E+03_JPRB /) |
1347 |
|
|
KB(:,14,10) = (/ & |
1348 |
|
|
& 0.98067E+03_JPRB,0.98568E+03_JPRB,0.99005E+03_JPRB,0.99301E+03_JPRB,0.99477E+03_JPRB /) |
1349 |
|
|
KB(:,15,10) = (/ & |
1350 |
|
|
& 0.98125E+03_JPRB,0.98614E+03_JPRB,0.99040E+03_JPRB,0.99324E+03_JPRB,0.99485E+03_JPRB /) |
1351 |
|
|
KB(:,16,10) = (/ & |
1352 |
|
|
& 0.98185E+03_JPRB,0.98662E+03_JPRB,0.99076E+03_JPRB,0.99348E+03_JPRB,0.99493E+03_JPRB /) |
1353 |
|
|
KB(:,17,10) = (/ & |
1354 |
|
|
& 0.98242E+03_JPRB,0.98721E+03_JPRB,0.99109E+03_JPRB,0.99369E+03_JPRB,0.99498E+03_JPRB /) |
1355 |
|
|
KB(:,18,10) = (/ & |
1356 |
|
|
& 0.98296E+03_JPRB,0.98755E+03_JPRB,0.99141E+03_JPRB,0.99390E+03_JPRB,0.99502E+03_JPRB /) |
1357 |
|
|
KB(:,19,10) = (/ & |
1358 |
|
|
& 0.98350E+03_JPRB,0.98800E+03_JPRB,0.99172E+03_JPRB,0.99408E+03_JPRB,0.99505E+03_JPRB /) |
1359 |
|
|
KB(:,20,10) = (/ & |
1360 |
|
|
& 0.98411E+03_JPRB,0.98852E+03_JPRB,0.99205E+03_JPRB,0.99428E+03_JPRB,0.99507E+03_JPRB /) |
1361 |
|
|
KB(:,21,10) = (/ & |
1362 |
|
|
& 0.98464E+03_JPRB,0.98894E+03_JPRB,0.99238E+03_JPRB,0.99447E+03_JPRB,0.99496E+03_JPRB /) |
1363 |
|
|
KB(:,22,10) = (/ & |
1364 |
|
|
& 0.98547E+03_JPRB,0.98983E+03_JPRB,0.99286E+03_JPRB,0.99470E+03_JPRB,0.99509E+03_JPRB /) |
1365 |
|
|
KB(:,23,10) = (/ & |
1366 |
|
|
& 0.98617E+03_JPRB,0.99062E+03_JPRB,0.99331E+03_JPRB,0.99487E+03_JPRB,0.99508E+03_JPRB /) |
1367 |
|
|
KB(:,24,10) = (/ & |
1368 |
|
|
& 0.98718E+03_JPRB,0.99115E+03_JPRB,0.99373E+03_JPRB,0.99499E+03_JPRB,0.99503E+03_JPRB /) |
1369 |
|
|
KB(:,25,10) = (/ & |
1370 |
|
|
& 0.98813E+03_JPRB,0.99180E+03_JPRB,0.99413E+03_JPRB,0.99494E+03_JPRB,0.99492E+03_JPRB /) |
1371 |
|
|
KB(:,26,10) = (/ & |
1372 |
|
|
& 0.98918E+03_JPRB,0.99244E+03_JPRB,0.99450E+03_JPRB,0.99508E+03_JPRB,0.99475E+03_JPRB /) |
1373 |
|
|
KB(:,27,10) = (/ & |
1374 |
|
|
& 0.99010E+03_JPRB,0.99304E+03_JPRB,0.99478E+03_JPRB,0.99509E+03_JPRB,0.99499E+03_JPRB /) |
1375 |
|
|
KB(:,28,10) = (/ & |
1376 |
|
|
& 0.99090E+03_JPRB,0.99357E+03_JPRB,0.99495E+03_JPRB,0.99505E+03_JPRB,0.99433E+03_JPRB /) |
1377 |
|
|
KB(:,29,10) = (/ & |
1378 |
|
|
& 0.99167E+03_JPRB,0.99393E+03_JPRB,0.99505E+03_JPRB,0.99495E+03_JPRB,0.99385E+03_JPRB /) |
1379 |
|
|
KB(:,30,10) = (/ & |
1380 |
|
|
& 0.99249E+03_JPRB,0.99447E+03_JPRB,0.99508E+03_JPRB,0.99477E+03_JPRB,0.99348E+03_JPRB /) |
1381 |
|
|
KB(:,31,10) = (/ & |
1382 |
|
|
& 0.99290E+03_JPRB,0.99477E+03_JPRB,0.99509E+03_JPRB,0.99452E+03_JPRB,0.99326E+03_JPRB /) |
1383 |
|
|
KB(:,32,10) = (/ & |
1384 |
|
|
& 0.99360E+03_JPRB,0.99496E+03_JPRB,0.99505E+03_JPRB,0.99419E+03_JPRB,0.99287E+03_JPRB /) |
1385 |
|
|
KB(:,33,10) = (/ & |
1386 |
|
|
& 0.99410E+03_JPRB,0.99506E+03_JPRB,0.99493E+03_JPRB,0.99381E+03_JPRB,0.99210E+03_JPRB /) |
1387 |
|
|
KB(:,34,10) = (/ & |
1388 |
|
|
& 0.99447E+03_JPRB,0.99508E+03_JPRB,0.99465E+03_JPRB,0.99347E+03_JPRB,0.99121E+03_JPRB /) |
1389 |
|
|
KB(:,35,10) = (/ & |
1390 |
|
|
& 0.99453E+03_JPRB,0.99509E+03_JPRB,0.99465E+03_JPRB,0.99330E+03_JPRB,0.99083E+03_JPRB /) |
1391 |
|
|
KB(:,36,10) = (/ & |
1392 |
|
|
& 0.99467E+03_JPRB,0.99509E+03_JPRB,0.99463E+03_JPRB,0.99327E+03_JPRB,0.98992E+03_JPRB /) |
1393 |
|
|
KB(:,37,10) = (/ & |
1394 |
|
|
& 0.99451E+03_JPRB,0.99508E+03_JPRB,0.99475E+03_JPRB,0.99344E+03_JPRB,0.99124E+03_JPRB /) |
1395 |
|
|
KB(:,38,10) = (/ & |
1396 |
|
|
& 0.99429E+03_JPRB,0.99507E+03_JPRB,0.99486E+03_JPRB,0.99365E+03_JPRB,0.99174E+03_JPRB /) |
1397 |
|
|
KB(:,39,10) = (/ & |
1398 |
|
|
& 0.99405E+03_JPRB,0.99505E+03_JPRB,0.99495E+03_JPRB,0.99373E+03_JPRB,0.99219E+03_JPRB /) |
1399 |
|
|
KB(:,40,10) = (/ & |
1400 |
|
|
& 0.99347E+03_JPRB,0.99496E+03_JPRB,0.99505E+03_JPRB,0.99420E+03_JPRB,0.99289E+03_JPRB /) |
1401 |
|
|
KB(:,41,10) = (/ & |
1402 |
|
|
& 0.99302E+03_JPRB,0.99477E+03_JPRB,0.99509E+03_JPRB,0.99452E+03_JPRB,0.99315E+03_JPRB /) |
1403 |
|
|
KB(:,42,10) = (/ & |
1404 |
|
|
& 0.99237E+03_JPRB,0.99435E+03_JPRB,0.99508E+03_JPRB,0.99477E+03_JPRB,0.99348E+03_JPRB /) |
1405 |
|
|
KB(:,43,10) = (/ & |
1406 |
|
|
& 0.99148E+03_JPRB,0.99394E+03_JPRB,0.99491E+03_JPRB,0.99498E+03_JPRB,0.99395E+03_JPRB /) |
1407 |
|
|
KB(:,44,10) = (/ & |
1408 |
|
|
& 0.99040E+03_JPRB,0.99324E+03_JPRB,0.99485E+03_JPRB,0.99508E+03_JPRB,0.99453E+03_JPRB /) |
1409 |
|
|
KB(:,45,10) = (/ & |
1410 |
|
|
& 0.98910E+03_JPRB,0.99241E+03_JPRB,0.99449E+03_JPRB,0.99508E+03_JPRB,0.99476E+03_JPRB /) |
1411 |
|
|
KB(:,46,10) = (/ & |
1412 |
|
|
& 0.98735E+03_JPRB,0.99138E+03_JPRB,0.99388E+03_JPRB,0.99490E+03_JPRB,0.99500E+03_JPRB /) |
1413 |
|
|
KB(:,47,10) = (/ & |
1414 |
|
|
& 0.98565E+03_JPRB,0.99006E+03_JPRB,0.99301E+03_JPRB,0.99477E+03_JPRB,0.99509E+03_JPRB /) |
1415 |
|
|
KB(:,48,10) = (/ & |
1416 |
|
|
& 0.98383E+03_JPRB,0.98834E+03_JPRB,0.99196E+03_JPRB,0.99423E+03_JPRB,0.99507E+03_JPRB /) |
1417 |
|
|
KB(:,49,10) = (/ & |
1418 |
|
|
& 0.98174E+03_JPRB,0.98651E+03_JPRB,0.99073E+03_JPRB,0.99346E+03_JPRB,0.99492E+03_JPRB /) |
1419 |
|
|
KB(:,50,10) = (/ & |
1420 |
|
|
& 0.97955E+03_JPRB,0.98480E+03_JPRB,0.98924E+03_JPRB,0.99257E+03_JPRB,0.99470E+03_JPRB /) |
1421 |
|
|
KB(:,51,10) = (/ & |
1422 |
|
|
& 0.97755E+03_JPRB,0.98298E+03_JPRB,0.98767E+03_JPRB,0.99154E+03_JPRB,0.99399E+03_JPRB /) |
1423 |
|
|
KB(:,52,10) = (/ & |
1424 |
|
|
& 0.97554E+03_JPRB,0.98111E+03_JPRB,0.98597E+03_JPRB,0.99036E+03_JPRB,0.99323E+03_JPRB /) |
1425 |
|
|
KB(:,53,10) = (/ & |
1426 |
|
|
& 0.97320E+03_JPRB,0.97892E+03_JPRB,0.98413E+03_JPRB,0.98888E+03_JPRB,0.99232E+03_JPRB /) |
1427 |
|
|
KB(:,54,10) = (/ & |
1428 |
|
|
& 0.97086E+03_JPRB,0.97720E+03_JPRB,0.98263E+03_JPRB,0.98733E+03_JPRB,0.99135E+03_JPRB /) |
1429 |
|
|
KB(:,55,10) = (/ & |
1430 |
|
|
& 0.96881E+03_JPRB,0.97539E+03_JPRB,0.98096E+03_JPRB,0.98583E+03_JPRB,0.99029E+03_JPRB /) |
1431 |
|
|
KB(:,56,10) = (/ & |
1432 |
|
|
& 0.96735E+03_JPRB,0.97336E+03_JPRB,0.97906E+03_JPRB,0.98435E+03_JPRB,0.98900E+03_JPRB /) |
1433 |
|
|
KB(:,57,10) = (/ & |
1434 |
|
|
& 0.96407E+03_JPRB,0.97115E+03_JPRB,0.97740E+03_JPRB,0.98282E+03_JPRB,0.98752E+03_JPRB /) |
1435 |
|
|
KB(:,58,10) = (/ & |
1436 |
|
|
& 0.96154E+03_JPRB,0.96893E+03_JPRB,0.97574E+03_JPRB,0.98129E+03_JPRB,0.98611E+03_JPRB /) |
1437 |
|
|
KB(:,59,10) = (/ & |
1438 |
|
|
& 0.95571E+03_JPRB,0.96861E+03_JPRB,0.97503E+03_JPRB,0.98063E+03_JPRB,0.98557E+03_JPRB /) |
1439 |
|
|
KB(:,13,11) = (/ & |
1440 |
|
|
& 0.98771E+03_JPRB,0.99296E+03_JPRB,0.99655E+03_JPRB,0.99859E+03_JPRB,0.99936E+03_JPRB /) |
1441 |
|
|
KB(:,14,11) = (/ & |
1442 |
|
|
& 0.98850E+03_JPRB,0.99335E+03_JPRB,0.99679E+03_JPRB,0.99871E+03_JPRB,0.99939E+03_JPRB /) |
1443 |
|
|
KB(:,15,11) = (/ & |
1444 |
|
|
& 0.98905E+03_JPRB,0.99377E+03_JPRB,0.99705E+03_JPRB,0.99882E+03_JPRB,0.99942E+03_JPRB /) |
1445 |
|
|
KB(:,16,11) = (/ & |
1446 |
|
|
& 0.98962E+03_JPRB,0.99419E+03_JPRB,0.99730E+03_JPRB,0.99893E+03_JPRB,0.99945E+03_JPRB /) |
1447 |
|
|
KB(:,17,11) = (/ & |
1448 |
|
|
& 0.99016E+03_JPRB,0.99444E+03_JPRB,0.99754E+03_JPRB,0.99903E+03_JPRB,0.99947E+03_JPRB /) |
1449 |
|
|
KB(:,18,11) = (/ & |
1450 |
|
|
& 0.99067E+03_JPRB,0.99497E+03_JPRB,0.99775E+03_JPRB,0.99911E+03_JPRB,0.99948E+03_JPRB /) |
1451 |
|
|
KB(:,19,11) = (/ & |
1452 |
|
|
& 0.99117E+03_JPRB,0.99532E+03_JPRB,0.99795E+03_JPRB,0.99918E+03_JPRB,0.99949E+03_JPRB /) |
1453 |
|
|
KB(:,20,11) = (/ & |
1454 |
|
|
& 0.99173E+03_JPRB,0.99572E+03_JPRB,0.99816E+03_JPRB,0.99924E+03_JPRB,0.99949E+03_JPRB /) |
1455 |
|
|
KB(:,21,11) = (/ & |
1456 |
|
|
& 0.99228E+03_JPRB,0.99610E+03_JPRB,0.99835E+03_JPRB,0.99929E+03_JPRB,0.99946E+03_JPRB /) |
1457 |
|
|
KB(:,22,11) = (/ & |
1458 |
|
|
& 0.99309E+03_JPRB,0.99663E+03_JPRB,0.99862E+03_JPRB,0.99936E+03_JPRB,0.99953E+03_JPRB /) |
1459 |
|
|
KB(:,23,11) = (/ & |
1460 |
|
|
& 0.99388E+03_JPRB,0.99698E+03_JPRB,0.99900E+03_JPRB,0.99942E+03_JPRB,0.99925E+03_JPRB /) |
1461 |
|
|
KB(:,24,11) = (/ & |
1462 |
|
|
& 0.99466E+03_JPRB,0.99758E+03_JPRB,0.99904E+03_JPRB,0.99947E+03_JPRB,0.99905E+03_JPRB /) |
1463 |
|
|
KB(:,25,11) = (/ & |
1464 |
|
|
& 0.99542E+03_JPRB,0.99800E+03_JPRB,0.99919E+03_JPRB,0.99963E+03_JPRB,0.99878E+03_JPRB /) |
1465 |
|
|
KB(:,26,11) = (/ & |
1466 |
|
|
& 0.99618E+03_JPRB,0.99839E+03_JPRB,0.99930E+03_JPRB,0.99945E+03_JPRB,0.99847E+03_JPRB /) |
1467 |
|
|
KB(:,27,11) = (/ & |
1468 |
|
|
& 0.99683E+03_JPRB,0.99872E+03_JPRB,0.99939E+03_JPRB,0.99934E+03_JPRB,0.99751E+03_JPRB /) |
1469 |
|
|
KB(:,28,11) = (/ & |
1470 |
|
|
& 0.99741E+03_JPRB,0.99897E+03_JPRB,0.99946E+03_JPRB,0.99913E+03_JPRB,0.99749E+03_JPRB /) |
1471 |
|
|
KB(:,29,11) = (/ & |
1472 |
|
|
& 0.99792E+03_JPRB,0.99917E+03_JPRB,0.99949E+03_JPRB,0.99884E+03_JPRB,0.99707E+03_JPRB /) |
1473 |
|
|
KB(:,30,11) = (/ & |
1474 |
|
|
& 0.99821E+03_JPRB,0.99929E+03_JPRB,0.99946E+03_JPRB,0.99850E+03_JPRB,0.99637E+03_JPRB /) |
1475 |
|
|
KB(:,31,11) = (/ & |
1476 |
|
|
& 0.99871E+03_JPRB,0.99938E+03_JPRB,0.99949E+03_JPRB,0.99810E+03_JPRB,0.99532E+03_JPRB /) |
1477 |
|
|
KB(:,32,11) = (/ & |
1478 |
|
|
& 0.99899E+03_JPRB,0.99961E+03_JPRB,0.99926E+03_JPRB,0.99761E+03_JPRB,0.99460E+03_JPRB /) |
1479 |
|
|
KB(:,33,11) = (/ & |
1480 |
|
|
& 0.99918E+03_JPRB,0.99949E+03_JPRB,0.99880E+03_JPRB,0.99700E+03_JPRB,0.99413E+03_JPRB /) |
1481 |
|
|
KB(:,34,11) = (/ & |
1482 |
|
|
& 0.99929E+03_JPRB,0.99946E+03_JPRB,0.99850E+03_JPRB,0.99635E+03_JPRB,0.99329E+03_JPRB /) |
1483 |
|
|
KB(:,35,11) = (/ & |
1484 |
|
|
& 0.99934E+03_JPRB,0.99941E+03_JPRB,0.99830E+03_JPRB,0.99590E+03_JPRB,0.99292E+03_JPRB /) |
1485 |
|
|
KB(:,36,11) = (/ & |
1486 |
|
|
& 0.99935E+03_JPRB,0.99940E+03_JPRB,0.99826E+03_JPRB,0.99583E+03_JPRB,0.99287E+03_JPRB /) |
1487 |
|
|
KB(:,37,11) = (/ & |
1488 |
|
|
& 0.99930E+03_JPRB,0.99946E+03_JPRB,0.99846E+03_JPRB,0.99628E+03_JPRB,0.99327E+03_JPRB /) |
1489 |
|
|
KB(:,38,11) = (/ & |
1490 |
|
|
& 0.99924E+03_JPRB,0.99949E+03_JPRB,0.99866E+03_JPRB,0.99670E+03_JPRB,0.99350E+03_JPRB /) |
1491 |
|
|
KB(:,39,11) = (/ & |
1492 |
|
|
& 0.99917E+03_JPRB,0.99949E+03_JPRB,0.99899E+03_JPRB,0.99707E+03_JPRB,0.99451E+03_JPRB /) |
1493 |
|
|
KB(:,40,11) = (/ & |
1494 |
|
|
& 0.99898E+03_JPRB,0.99946E+03_JPRB,0.99913E+03_JPRB,0.99777E+03_JPRB,0.99505E+03_JPRB /) |
1495 |
|
|
KB(:,41,11) = (/ & |
1496 |
|
|
& 0.99871E+03_JPRB,0.99939E+03_JPRB,0.99935E+03_JPRB,0.99810E+03_JPRB,0.99546E+03_JPRB /) |
1497 |
|
|
KB(:,42,11) = (/ & |
1498 |
|
|
& 0.99835E+03_JPRB,0.99929E+03_JPRB,0.99947E+03_JPRB,0.99851E+03_JPRB,0.99637E+03_JPRB /) |
1499 |
|
|
KB(:,43,11) = (/ & |
1500 |
|
|
& 0.99780E+03_JPRB,0.99913E+03_JPRB,0.99949E+03_JPRB,0.99893E+03_JPRB,0.99722E+03_JPRB /) |
1501 |
|
|
KB(:,44,11) = (/ & |
1502 |
|
|
& 0.99704E+03_JPRB,0.99882E+03_JPRB,0.99942E+03_JPRB,0.99928E+03_JPRB,0.99778E+03_JPRB /) |
1503 |
|
|
KB(:,45,11) = (/ & |
1504 |
|
|
& 0.99613E+03_JPRB,0.99837E+03_JPRB,0.99930E+03_JPRB,0.99947E+03_JPRB,0.99849E+03_JPRB /) |
1505 |
|
|
KB(:,46,11) = (/ & |
1506 |
|
|
& 0.99492E+03_JPRB,0.99787E+03_JPRB,0.99911E+03_JPRB,0.99949E+03_JPRB,0.99897E+03_JPRB /) |
1507 |
|
|
KB(:,47,11) = (/ & |
1508 |
|
|
& 0.99335E+03_JPRB,0.99679E+03_JPRB,0.99871E+03_JPRB,0.99939E+03_JPRB,0.99936E+03_JPRB /) |
1509 |
|
|
KB(:,48,11) = (/ & |
1510 |
|
|
& 0.99156E+03_JPRB,0.99560E+03_JPRB,0.99810E+03_JPRB,0.99923E+03_JPRB,0.99951E+03_JPRB /) |
1511 |
|
|
KB(:,49,11) = (/ & |
1512 |
|
|
& 0.98955E+03_JPRB,0.99414E+03_JPRB,0.99727E+03_JPRB,0.99894E+03_JPRB,0.99946E+03_JPRB /) |
1513 |
|
|
KB(:,50,11) = (/ & |
1514 |
|
|
& 0.98749E+03_JPRB,0.99256E+03_JPRB,0.99630E+03_JPRB,0.99847E+03_JPRB,0.99918E+03_JPRB /) |
1515 |
|
|
KB(:,51,11) = (/ & |
1516 |
|
|
& 0.98496E+03_JPRB,0.99085E+03_JPRB,0.99509E+03_JPRB,0.99784E+03_JPRB,0.99916E+03_JPRB /) |
1517 |
|
|
KB(:,52,11) = (/ & |
1518 |
|
|
& 0.98304E+03_JPRB,0.98897E+03_JPRB,0.99370E+03_JPRB,0.99701E+03_JPRB,0.99883E+03_JPRB /) |
1519 |
|
|
KB(:,53,11) = (/ & |
1520 |
|
|
& 0.98104E+03_JPRB,0.98693E+03_JPRB,0.99213E+03_JPRB,0.99600E+03_JPRB,0.99833E+03_JPRB /) |
1521 |
|
|
KB(:,54,11) = (/ & |
1522 |
|
|
& 0.97906E+03_JPRB,0.98440E+03_JPRB,0.99053E+03_JPRB,0.99485E+03_JPRB,0.99771E+03_JPRB /) |
1523 |
|
|
KB(:,55,11) = (/ & |
1524 |
|
|
& 0.97789E+03_JPRB,0.98286E+03_JPRB,0.98886E+03_JPRB,0.99361E+03_JPRB,0.99696E+03_JPRB /) |
1525 |
|
|
KB(:,56,11) = (/ & |
1526 |
|
|
& 0.97514E+03_JPRB,0.98117E+03_JPRB,0.98708E+03_JPRB,0.99224E+03_JPRB,0.99622E+03_JPRB /) |
1527 |
|
|
KB(:,57,11) = (/ & |
1528 |
|
|
& 0.97242E+03_JPRB,0.97945E+03_JPRB,0.98472E+03_JPRB,0.99072E+03_JPRB,0.99500E+03_JPRB /) |
1529 |
|
|
KB(:,58,11) = (/ & |
1530 |
|
|
& 0.96969E+03_JPRB,0.97814E+03_JPRB,0.98316E+03_JPRB,0.98916E+03_JPRB,0.99384E+03_JPRB /) |
1531 |
|
|
KB(:,59,11) = (/ & |
1532 |
|
|
& 0.96859E+03_JPRB,0.97725E+03_JPRB,0.98261E+03_JPRB,0.98851E+03_JPRB,0.99335E+03_JPRB /) |
1533 |
|
|
KB(:,13,12) = (/ & |
1534 |
|
|
& 0.99768E+03_JPRB,0.99984E+03_JPRB,0.10010E+04_JPRB,0.10024E+04_JPRB,0.10029E+04_JPRB /) |
1535 |
|
|
KB(:,14,12) = (/ & |
1536 |
|
|
& 0.99795E+03_JPRB,0.99992E+03_JPRB,0.10011E+04_JPRB,0.10025E+04_JPRB,0.10029E+04_JPRB /) |
1537 |
|
|
KB(:,15,12) = (/ & |
1538 |
|
|
& 0.99880E+03_JPRB,0.99996E+03_JPRB,0.10013E+04_JPRB,0.10026E+04_JPRB,0.10031E+04_JPRB /) |
1539 |
|
|
KB(:,16,12) = (/ & |
1540 |
|
|
& 0.99852E+03_JPRB,0.10003E+04_JPRB,0.10015E+04_JPRB,0.10028E+04_JPRB,0.10029E+04_JPRB /) |
1541 |
|
|
KB(:,17,12) = (/ & |
1542 |
|
|
& 0.99876E+03_JPRB,0.10000E+04_JPRB,0.10016E+04_JPRB,0.10027E+04_JPRB,0.10029E+04_JPRB /) |
1543 |
|
|
KB(:,18,12) = (/ & |
1544 |
|
|
& 0.99898E+03_JPRB,0.10001E+04_JPRB,0.10018E+04_JPRB,0.10028E+04_JPRB,0.10028E+04_JPRB /) |
1545 |
|
|
KB(:,19,12) = (/ & |
1546 |
|
|
& 0.99918E+03_JPRB,0.10003E+04_JPRB,0.10021E+04_JPRB,0.10028E+04_JPRB,0.10028E+04_JPRB /) |
1547 |
|
|
KB(:,20,12) = (/ & |
1548 |
|
|
& 0.99940E+03_JPRB,0.10005E+04_JPRB,0.10026E+04_JPRB,0.10029E+04_JPRB,0.10031E+04_JPRB /) |
1549 |
|
|
KB(:,21,12) = (/ & |
1550 |
|
|
& 0.99959E+03_JPRB,0.10007E+04_JPRB,0.10022E+04_JPRB,0.10029E+04_JPRB,0.10026E+04_JPRB /) |
1551 |
|
|
KB(:,22,12) = (/ & |
1552 |
|
|
& 0.99984E+03_JPRB,0.10010E+04_JPRB,0.10024E+04_JPRB,0.10030E+04_JPRB,0.10023E+04_JPRB /) |
1553 |
|
|
KB(:,23,12) = (/ & |
1554 |
|
|
& 0.99996E+03_JPRB,0.10013E+04_JPRB,0.10024E+04_JPRB,0.10029E+04_JPRB,0.10025E+04_JPRB /) |
1555 |
|
|
KB(:,24,12) = (/ & |
1556 |
|
|
& 0.10000E+04_JPRB,0.10016E+04_JPRB,0.10029E+04_JPRB,0.10029E+04_JPRB,0.10023E+04_JPRB /) |
1557 |
|
|
KB(:,25,12) = (/ & |
1558 |
|
|
& 0.10003E+04_JPRB,0.10023E+04_JPRB,0.10029E+04_JPRB,0.10026E+04_JPRB,0.10019E+04_JPRB /) |
1559 |
|
|
KB(:,26,12) = (/ & |
1560 |
|
|
& 0.10007E+04_JPRB,0.10022E+04_JPRB,0.10029E+04_JPRB,0.10026E+04_JPRB,0.10015E+04_JPRB /) |
1561 |
|
|
KB(:,27,12) = (/ & |
1562 |
|
|
& 0.10012E+04_JPRB,0.10025E+04_JPRB,0.10031E+04_JPRB,0.10024E+04_JPRB,0.10010E+04_JPRB /) |
1563 |
|
|
KB(:,28,12) = (/ & |
1564 |
|
|
& 0.10015E+04_JPRB,0.10027E+04_JPRB,0.10029E+04_JPRB,0.10022E+04_JPRB,0.10005E+04_JPRB /) |
1565 |
|
|
KB(:,29,12) = (/ & |
1566 |
|
|
& 0.10019E+04_JPRB,0.10028E+04_JPRB,0.10028E+04_JPRB,0.10019E+04_JPRB,0.99992E+03_JPRB /) |
1567 |
|
|
KB(:,30,12) = (/ & |
1568 |
|
|
& 0.10022E+04_JPRB,0.10029E+04_JPRB,0.10026E+04_JPRB,0.10017E+04_JPRB,0.99965E+03_JPRB /) |
1569 |
|
|
KB(:,31,12) = (/ & |
1570 |
|
|
& 0.10025E+04_JPRB,0.10030E+04_JPRB,0.10022E+04_JPRB,0.10011E+04_JPRB,0.99843E+03_JPRB /) |
1571 |
|
|
KB(:,32,12) = (/ & |
1572 |
|
|
& 0.10027E+04_JPRB,0.10029E+04_JPRB,0.10020E+04_JPRB,0.10007E+04_JPRB,0.99748E+03_JPRB /) |
1573 |
|
|
KB(:,33,12) = (/ & |
1574 |
|
|
& 0.10029E+04_JPRB,0.10028E+04_JPRB,0.10021E+04_JPRB,0.10000E+04_JPRB,0.99658E+03_JPRB /) |
1575 |
|
|
KB(:,34,12) = (/ & |
1576 |
|
|
& 0.10031E+04_JPRB,0.10026E+04_JPRB,0.10017E+04_JPRB,0.99945E+03_JPRB,0.99563E+03_JPRB /) |
1577 |
|
|
KB(:,35,12) = (/ & |
1578 |
|
|
& 0.10030E+04_JPRB,0.10025E+04_JPRB,0.10031E+04_JPRB,0.99888E+03_JPRB,0.99496E+03_JPRB /) |
1579 |
|
|
KB(:,36,12) = (/ & |
1580 |
|
|
& 0.10030E+04_JPRB,0.10025E+04_JPRB,0.10020E+04_JPRB,0.99880E+03_JPRB,0.99482E+03_JPRB /) |
1581 |
|
|
KB(:,37,12) = (/ & |
1582 |
|
|
& 0.10029E+04_JPRB,0.10026E+04_JPRB,0.10015E+04_JPRB,0.99939E+03_JPRB,0.99547E+03_JPRB /) |
1583 |
|
|
KB(:,38,12) = (/ & |
1584 |
|
|
& 0.10029E+04_JPRB,0.10027E+04_JPRB,0.10017E+04_JPRB,0.99958E+03_JPRB,0.99634E+03_JPRB /) |
1585 |
|
|
KB(:,39,12) = (/ & |
1586 |
|
|
& 0.10028E+04_JPRB,0.10028E+04_JPRB,0.10017E+04_JPRB,0.99993E+03_JPRB,0.99613E+03_JPRB /) |
1587 |
|
|
KB(:,40,12) = (/ & |
1588 |
|
|
& 0.10027E+04_JPRB,0.10029E+04_JPRB,0.10022E+04_JPRB,0.10003E+04_JPRB,0.99696E+03_JPRB /) |
1589 |
|
|
KB(:,41,12) = (/ & |
1590 |
|
|
& 0.10027E+04_JPRB,0.10029E+04_JPRB,0.10024E+04_JPRB,0.10013E+04_JPRB,0.99857E+03_JPRB /) |
1591 |
|
|
KB(:,42,12) = (/ & |
1592 |
|
|
& 0.10022E+04_JPRB,0.10029E+04_JPRB,0.10028E+04_JPRB,0.10021E+04_JPRB,0.99929E+03_JPRB /) |
1593 |
|
|
KB(:,43,12) = (/ & |
1594 |
|
|
& 0.10018E+04_JPRB,0.10028E+04_JPRB,0.10028E+04_JPRB,0.10020E+04_JPRB,0.10001E+04_JPRB /) |
1595 |
|
|
KB(:,44,12) = (/ & |
1596 |
|
|
& 0.10013E+04_JPRB,0.10026E+04_JPRB,0.10029E+04_JPRB,0.10023E+04_JPRB,0.10016E+04_JPRB /) |
1597 |
|
|
KB(:,45,12) = (/ & |
1598 |
|
|
& 0.10007E+04_JPRB,0.10022E+04_JPRB,0.10029E+04_JPRB,0.10026E+04_JPRB,0.10015E+04_JPRB /) |
1599 |
|
|
KB(:,46,12) = (/ & |
1600 |
|
|
& 0.10014E+04_JPRB,0.10016E+04_JPRB,0.10028E+04_JPRB,0.10028E+04_JPRB,0.10020E+04_JPRB /) |
1601 |
|
|
KB(:,47,12) = (/ & |
1602 |
|
|
& 0.99993E+03_JPRB,0.10012E+04_JPRB,0.10025E+04_JPRB,0.10029E+04_JPRB,0.10024E+04_JPRB /) |
1603 |
|
|
KB(:,48,12) = (/ & |
1604 |
|
|
& 0.99937E+03_JPRB,0.10005E+04_JPRB,0.10022E+04_JPRB,0.10029E+04_JPRB,0.10027E+04_JPRB /) |
1605 |
|
|
KB(:,49,12) = (/ & |
1606 |
|
|
& 0.99853E+03_JPRB,0.10002E+04_JPRB,0.10015E+04_JPRB,0.10026E+04_JPRB,0.10029E+04_JPRB /) |
1607 |
|
|
KB(:,50,12) = (/ & |
1608 |
|
|
& 0.99741E+03_JPRB,0.99993E+03_JPRB,0.10008E+04_JPRB,0.10023E+04_JPRB,0.10029E+04_JPRB /) |
1609 |
|
|
KB(:,51,12) = (/ & |
1610 |
|
|
& 0.99665E+03_JPRB,0.99912E+03_JPRB,0.10002E+04_JPRB,0.10018E+04_JPRB,0.10028E+04_JPRB /) |
1611 |
|
|
KB(:,52,12) = (/ & |
1612 |
|
|
& 0.99385E+03_JPRB,0.99826E+03_JPRB,0.10000E+04_JPRB,0.10013E+04_JPRB,0.10025E+04_JPRB /) |
1613 |
|
|
KB(:,53,12) = (/ & |
1614 |
|
|
& 0.99099E+03_JPRB,0.99714E+03_JPRB,0.99965E+03_JPRB,0.10007E+04_JPRB,0.10022E+04_JPRB /) |
1615 |
|
|
KB(:,54,12) = (/ & |
1616 |
|
|
& 0.98826E+03_JPRB,0.99612E+03_JPRB,0.99903E+03_JPRB,0.10002E+04_JPRB,0.10018E+04_JPRB /) |
1617 |
|
|
KB(:,55,12) = (/ & |
1618 |
|
|
& 0.98397E+03_JPRB,0.99379E+03_JPRB,0.99822E+03_JPRB,0.10000E+04_JPRB,0.10013E+04_JPRB /) |
1619 |
|
|
KB(:,56,12) = (/ & |
1620 |
|
|
& 0.98006E+03_JPRB,0.99120E+03_JPRB,0.99722E+03_JPRB,0.99969E+03_JPRB,0.10006E+04_JPRB /) |
1621 |
|
|
KB(:,57,12) = (/ & |
1622 |
|
|
& 0.97631E+03_JPRB,0.98840E+03_JPRB,0.99624E+03_JPRB,0.99911E+03_JPRB,0.10002E+04_JPRB /) |
1623 |
|
|
KB(:,58,12) = (/ & |
1624 |
|
|
& 0.97279E+03_JPRB,0.98508E+03_JPRB,0.99422E+03_JPRB,0.99838E+03_JPRB,0.10001E+04_JPRB /) |
1625 |
|
|
KB(:,59,12) = (/ & |
1626 |
|
|
& 0.97171E+03_JPRB,0.98327E+03_JPRB,0.99315E+03_JPRB,0.99818E+03_JPRB,0.99997E+03_JPRB /) |
1627 |
|
|
KB(:,13,13) = (/ & |
1628 |
|
|
& 0.99623E+03_JPRB,0.99978E+03_JPRB,0.10034E+04_JPRB,0.10050E+04_JPRB,0.10054E+04_JPRB /) |
1629 |
|
|
KB(:,14,13) = (/ & |
1630 |
|
|
& 0.99674E+03_JPRB,0.10002E+04_JPRB,0.10034E+04_JPRB,0.10050E+04_JPRB,0.10053E+04_JPRB /) |
1631 |
|
|
KB(:,15,13) = (/ & |
1632 |
|
|
& 0.99652E+03_JPRB,0.10007E+04_JPRB,0.10036E+04_JPRB,0.10051E+04_JPRB,0.10051E+04_JPRB /) |
1633 |
|
|
KB(:,16,13) = (/ & |
1634 |
|
|
& 0.99785E+03_JPRB,0.10007E+04_JPRB,0.10039E+04_JPRB,0.10049E+04_JPRB,0.10053E+04_JPRB /) |
1635 |
|
|
KB(:,17,13) = (/ & |
1636 |
|
|
& 0.99816E+03_JPRB,0.10017E+04_JPRB,0.10043E+04_JPRB,0.10052E+04_JPRB,0.10052E+04_JPRB /) |
1637 |
|
|
KB(:,18,13) = (/ & |
1638 |
|
|
& 0.99792E+03_JPRB,0.10021E+04_JPRB,0.10042E+04_JPRB,0.10053E+04_JPRB,0.10051E+04_JPRB /) |
1639 |
|
|
KB(:,19,13) = (/ & |
1640 |
|
|
& 0.99826E+03_JPRB,0.10023E+04_JPRB,0.10042E+04_JPRB,0.10053E+04_JPRB,0.10051E+04_JPRB /) |
1641 |
|
|
KB(:,20,13) = (/ & |
1642 |
|
|
& 0.99869E+03_JPRB,0.10028E+04_JPRB,0.10038E+04_JPRB,0.10053E+04_JPRB,0.10044E+04_JPRB /) |
1643 |
|
|
KB(:,21,13) = (/ & |
1644 |
|
|
& 0.99914E+03_JPRB,0.10028E+04_JPRB,0.10048E+04_JPRB,0.10054E+04_JPRB,0.10048E+04_JPRB /) |
1645 |
|
|
KB(:,22,13) = (/ & |
1646 |
|
|
& 0.99989E+03_JPRB,0.10035E+04_JPRB,0.10050E+04_JPRB,0.10053E+04_JPRB,0.10046E+04_JPRB /) |
1647 |
|
|
KB(:,23,13) = (/ & |
1648 |
|
|
& 0.10011E+04_JPRB,0.10037E+04_JPRB,0.10051E+04_JPRB,0.10053E+04_JPRB,0.10041E+04_JPRB /) |
1649 |
|
|
KB(:,24,13) = (/ & |
1650 |
|
|
& 0.10018E+04_JPRB,0.10041E+04_JPRB,0.10050E+04_JPRB,0.10052E+04_JPRB,0.10037E+04_JPRB /) |
1651 |
|
|
KB(:,25,13) = (/ & |
1652 |
|
|
& 0.10026E+04_JPRB,0.10040E+04_JPRB,0.10056E+04_JPRB,0.10050E+04_JPRB,0.10036E+04_JPRB /) |
1653 |
|
|
KB(:,26,13) = (/ & |
1654 |
|
|
& 0.10031E+04_JPRB,0.10048E+04_JPRB,0.10054E+04_JPRB,0.10050E+04_JPRB,0.10030E+04_JPRB /) |
1655 |
|
|
KB(:,27,13) = (/ & |
1656 |
|
|
& 0.10047E+04_JPRB,0.10050E+04_JPRB,0.10051E+04_JPRB,0.10045E+04_JPRB,0.10025E+04_JPRB /) |
1657 |
|
|
KB(:,28,13) = (/ & |
1658 |
|
|
& 0.10039E+04_JPRB,0.10052E+04_JPRB,0.10052E+04_JPRB,0.10041E+04_JPRB,0.10018E+04_JPRB /) |
1659 |
|
|
KB(:,29,13) = (/ & |
1660 |
|
|
& 0.10044E+04_JPRB,0.10053E+04_JPRB,0.10051E+04_JPRB,0.10037E+04_JPRB,0.10011E+04_JPRB /) |
1661 |
|
|
KB(:,30,13) = (/ & |
1662 |
|
|
& 0.10048E+04_JPRB,0.10054E+04_JPRB,0.10048E+04_JPRB,0.10029E+04_JPRB,0.99977E+03_JPRB /) |
1663 |
|
|
KB(:,31,13) = (/ & |
1664 |
|
|
& 0.10050E+04_JPRB,0.10053E+04_JPRB,0.10045E+04_JPRB,0.10025E+04_JPRB,0.99968E+03_JPRB /) |
1665 |
|
|
KB(:,32,13) = (/ & |
1666 |
|
|
& 0.10052E+04_JPRB,0.10050E+04_JPRB,0.10041E+04_JPRB,0.10015E+04_JPRB,0.99880E+03_JPRB /) |
1667 |
|
|
KB(:,33,13) = (/ & |
1668 |
|
|
& 0.10053E+04_JPRB,0.10050E+04_JPRB,0.10033E+04_JPRB,0.10008E+04_JPRB,0.99675E+03_JPRB /) |
1669 |
|
|
KB(:,34,13) = (/ & |
1670 |
|
|
& 0.10051E+04_JPRB,0.10048E+04_JPRB,0.10028E+04_JPRB,0.10000E+04_JPRB,0.99529E+03_JPRB /) |
1671 |
|
|
KB(:,35,13) = (/ & |
1672 |
|
|
& 0.10054E+04_JPRB,0.10047E+04_JPRB,0.10003E+04_JPRB,0.99992E+03_JPRB,0.99481E+03_JPRB /) |
1673 |
|
|
KB(:,36,13) = (/ & |
1674 |
|
|
& 0.10054E+04_JPRB,0.10046E+04_JPRB,0.10017E+04_JPRB,0.99987E+03_JPRB,0.99445E+03_JPRB /) |
1675 |
|
|
KB(:,37,13) = (/ & |
1676 |
|
|
& 0.10054E+04_JPRB,0.10048E+04_JPRB,0.10030E+04_JPRB,0.99995E+03_JPRB,0.99517E+03_JPRB /) |
1677 |
|
|
KB(:,38,13) = (/ & |
1678 |
|
|
& 0.10054E+04_JPRB,0.10049E+04_JPRB,0.10034E+04_JPRB,0.10006E+04_JPRB,0.99603E+03_JPRB /) |
1679 |
|
|
KB(:,39,13) = (/ & |
1680 |
|
|
& 0.10053E+04_JPRB,0.10051E+04_JPRB,0.10037E+04_JPRB,0.10011E+04_JPRB,0.99693E+03_JPRB /) |
1681 |
|
|
KB(:,40,13) = (/ & |
1682 |
|
|
& 0.10052E+04_JPRB,0.10052E+04_JPRB,0.10041E+04_JPRB,0.10018E+04_JPRB,0.99860E+03_JPRB /) |
1683 |
|
|
KB(:,41,13) = (/ & |
1684 |
|
|
& 0.10048E+04_JPRB,0.10053E+04_JPRB,0.10045E+04_JPRB,0.10023E+04_JPRB,0.99951E+03_JPRB /) |
1685 |
|
|
KB(:,42,13) = (/ & |
1686 |
|
|
& 0.10048E+04_JPRB,0.10054E+04_JPRB,0.10046E+04_JPRB,0.10024E+04_JPRB,0.10003E+04_JPRB /) |
1687 |
|
|
KB(:,43,13) = (/ & |
1688 |
|
|
& 0.10043E+04_JPRB,0.10053E+04_JPRB,0.10051E+04_JPRB,0.10038E+04_JPRB,0.10013E+04_JPRB /) |
1689 |
|
|
KB(:,44,13) = (/ & |
1690 |
|
|
& 0.10036E+04_JPRB,0.10051E+04_JPRB,0.10053E+04_JPRB,0.10044E+04_JPRB,0.10012E+04_JPRB /) |
1691 |
|
|
KB(:,45,13) = (/ & |
1692 |
|
|
& 0.10028E+04_JPRB,0.10048E+04_JPRB,0.10054E+04_JPRB,0.10048E+04_JPRB,0.10031E+04_JPRB /) |
1693 |
|
|
KB(:,46,13) = (/ & |
1694 |
|
|
& 0.10008E+04_JPRB,0.10042E+04_JPRB,0.10053E+04_JPRB,0.10052E+04_JPRB,0.10038E+04_JPRB /) |
1695 |
|
|
KB(:,47,13) = (/ & |
1696 |
|
|
& 0.10002E+04_JPRB,0.10039E+04_JPRB,0.10050E+04_JPRB,0.10053E+04_JPRB,0.10045E+04_JPRB /) |
1697 |
|
|
KB(:,48,13) = (/ & |
1698 |
|
|
& 0.99859E+03_JPRB,0.10025E+04_JPRB,0.10043E+04_JPRB,0.10054E+04_JPRB,0.10050E+04_JPRB /) |
1699 |
|
|
KB(:,49,13) = (/ & |
1700 |
|
|
& 0.99776E+03_JPRB,0.10009E+04_JPRB,0.10041E+04_JPRB,0.10052E+04_JPRB,0.10053E+04_JPRB /) |
1701 |
|
|
KB(:,50,13) = (/ & |
1702 |
|
|
& 0.99565E+03_JPRB,0.99944E+03_JPRB,0.10034E+04_JPRB,0.10049E+04_JPRB,0.10054E+04_JPRB /) |
1703 |
|
|
KB(:,51,13) = (/ & |
1704 |
|
|
& 0.99271E+03_JPRB,0.99811E+03_JPRB,0.10022E+04_JPRB,0.10043E+04_JPRB,0.10053E+04_JPRB /) |
1705 |
|
|
KB(:,52,13) = (/ & |
1706 |
|
|
& 0.99056E+03_JPRB,0.99717E+03_JPRB,0.10006E+04_JPRB,0.10036E+04_JPRB,0.10051E+04_JPRB /) |
1707 |
|
|
KB(:,53,13) = (/ & |
1708 |
|
|
& 0.98830E+03_JPRB,0.99502E+03_JPRB,0.99909E+03_JPRB,0.10028E+04_JPRB,0.10048E+04_JPRB /) |
1709 |
|
|
KB(:,54,13) = (/ & |
1710 |
|
|
& 0.98610E+03_JPRB,0.99275E+03_JPRB,0.99821E+03_JPRB,0.10021E+04_JPRB,0.10042E+04_JPRB /) |
1711 |
|
|
KB(:,55,13) = (/ & |
1712 |
|
|
& 0.98386E+03_JPRB,0.99045E+03_JPRB,0.99729E+03_JPRB,0.10008E+04_JPRB,0.10038E+04_JPRB /) |
1713 |
|
|
KB(:,56,13) = (/ & |
1714 |
|
|
& 0.98150E+03_JPRB,0.98846E+03_JPRB,0.99517E+03_JPRB,0.99919E+03_JPRB,0.10028E+04_JPRB /) |
1715 |
|
|
KB(:,57,13) = (/ & |
1716 |
|
|
& 0.97902E+03_JPRB,0.98636E+03_JPRB,0.99303E+03_JPRB,0.99832E+03_JPRB,0.10022E+04_JPRB /) |
1717 |
|
|
KB(:,58,13) = (/ & |
1718 |
|
|
& 0.97656E+03_JPRB,0.98426E+03_JPRB,0.99079E+03_JPRB,0.99735E+03_JPRB,0.10008E+04_JPRB /) |
1719 |
|
|
KB(:,59,13) = (/ & |
1720 |
|
|
& 0.97503E+03_JPRB,0.98337E+03_JPRB,0.99004E+03_JPRB,0.99647E+03_JPRB,0.10002E+04_JPRB /) |
1721 |
|
|
KB(:,13,14) = (/ & |
1722 |
|
|
& 0.99596E+03_JPRB,0.10023E+04_JPRB,0.10047E+04_JPRB,0.10067E+04_JPRB,0.10072E+04_JPRB /) |
1723 |
|
|
KB(:,14,14) = (/ & |
1724 |
|
|
& 0.99625E+03_JPRB,0.10024E+04_JPRB,0.10052E+04_JPRB,0.10068E+04_JPRB,0.10071E+04_JPRB /) |
1725 |
|
|
KB(:,15,14) = (/ & |
1726 |
|
|
& 0.99662E+03_JPRB,0.10025E+04_JPRB,0.10054E+04_JPRB,0.10069E+04_JPRB,0.10071E+04_JPRB /) |
1727 |
|
|
KB(:,16,14) = (/ & |
1728 |
|
|
& 0.99703E+03_JPRB,0.10026E+04_JPRB,0.10056E+04_JPRB,0.10070E+04_JPRB,0.10070E+04_JPRB /) |
1729 |
|
|
KB(:,17,14) = (/ & |
1730 |
|
|
& 0.99784E+03_JPRB,0.10032E+04_JPRB,0.10054E+04_JPRB,0.10071E+04_JPRB,0.10070E+04_JPRB /) |
1731 |
|
|
KB(:,18,14) = (/ & |
1732 |
|
|
& 0.99947E+03_JPRB,0.10032E+04_JPRB,0.10060E+04_JPRB,0.10071E+04_JPRB,0.10069E+04_JPRB /) |
1733 |
|
|
KB(:,19,14) = (/ & |
1734 |
|
|
& 0.10001E+04_JPRB,0.10036E+04_JPRB,0.10062E+04_JPRB,0.10071E+04_JPRB,0.10068E+04_JPRB /) |
1735 |
|
|
KB(:,20,14) = (/ & |
1736 |
|
|
& 0.10009E+04_JPRB,0.10037E+04_JPRB,0.10064E+04_JPRB,0.10076E+04_JPRB,0.10067E+04_JPRB /) |
1737 |
|
|
KB(:,21,14) = (/ & |
1738 |
|
|
& 0.10015E+04_JPRB,0.10046E+04_JPRB,0.10065E+04_JPRB,0.10072E+04_JPRB,0.10065E+04_JPRB /) |
1739 |
|
|
KB(:,22,14) = (/ & |
1740 |
|
|
& 0.10023E+04_JPRB,0.10047E+04_JPRB,0.10068E+04_JPRB,0.10071E+04_JPRB,0.10063E+04_JPRB /) |
1741 |
|
|
KB(:,23,14) = (/ & |
1742 |
|
|
& 0.10021E+04_JPRB,0.10055E+04_JPRB,0.10069E+04_JPRB,0.10071E+04_JPRB,0.10060E+04_JPRB /) |
1743 |
|
|
KB(:,24,14) = (/ & |
1744 |
|
|
& 0.10028E+04_JPRB,0.10059E+04_JPRB,0.10071E+04_JPRB,0.10069E+04_JPRB,0.10057E+04_JPRB /) |
1745 |
|
|
KB(:,25,14) = (/ & |
1746 |
|
|
& 0.10033E+04_JPRB,0.10062E+04_JPRB,0.10068E+04_JPRB,0.10068E+04_JPRB,0.10052E+04_JPRB /) |
1747 |
|
|
KB(:,26,14) = (/ & |
1748 |
|
|
& 0.10043E+04_JPRB,0.10066E+04_JPRB,0.10072E+04_JPRB,0.10061E+04_JPRB,0.10047E+04_JPRB /) |
1749 |
|
|
KB(:,27,14) = (/ & |
1750 |
|
|
& 0.10033E+04_JPRB,0.10068E+04_JPRB,0.10071E+04_JPRB,0.10062E+04_JPRB,0.10042E+04_JPRB /) |
1751 |
|
|
KB(:,28,14) = (/ & |
1752 |
|
|
& 0.10057E+04_JPRB,0.10070E+04_JPRB,0.10070E+04_JPRB,0.10058E+04_JPRB,0.10036E+04_JPRB /) |
1753 |
|
|
KB(:,29,14) = (/ & |
1754 |
|
|
& 0.10062E+04_JPRB,0.10075E+04_JPRB,0.10068E+04_JPRB,0.10053E+04_JPRB,0.10030E+04_JPRB /) |
1755 |
|
|
KB(:,30,14) = (/ & |
1756 |
|
|
& 0.10065E+04_JPRB,0.10072E+04_JPRB,0.10069E+04_JPRB,0.10048E+04_JPRB,0.10022E+04_JPRB /) |
1757 |
|
|
KB(:,31,14) = (/ & |
1758 |
|
|
& 0.10068E+04_JPRB,0.10071E+04_JPRB,0.10062E+04_JPRB,0.10042E+04_JPRB,0.10014E+04_JPRB /) |
1759 |
|
|
KB(:,32,14) = (/ & |
1760 |
|
|
& 0.10070E+04_JPRB,0.10070E+04_JPRB,0.10058E+04_JPRB,0.10035E+04_JPRB,0.99925E+03_JPRB /) |
1761 |
|
|
KB(:,33,14) = (/ & |
1762 |
|
|
& 0.10071E+04_JPRB,0.10068E+04_JPRB,0.10053E+04_JPRB,0.10029E+04_JPRB,0.99808E+03_JPRB /) |
1763 |
|
|
KB(:,34,14) = (/ & |
1764 |
|
|
& 0.10072E+04_JPRB,0.10065E+04_JPRB,0.10048E+04_JPRB,0.10021E+04_JPRB,0.99788E+03_JPRB /) |
1765 |
|
|
KB(:,35,14) = (/ & |
1766 |
|
|
& 0.10072E+04_JPRB,0.10064E+04_JPRB,0.10045E+04_JPRB,0.10016E+04_JPRB,0.99700E+03_JPRB /) |
1767 |
|
|
KB(:,36,14) = (/ & |
1768 |
|
|
& 0.10072E+04_JPRB,0.10063E+04_JPRB,0.10044E+04_JPRB,0.10015E+04_JPRB,0.99731E+03_JPRB /) |
1769 |
|
|
KB(:,37,14) = (/ & |
1770 |
|
|
& 0.10072E+04_JPRB,0.10065E+04_JPRB,0.10047E+04_JPRB,0.10021E+04_JPRB,0.99778E+03_JPRB /) |
1771 |
|
|
KB(:,38,14) = (/ & |
1772 |
|
|
& 0.10072E+04_JPRB,0.10067E+04_JPRB,0.10050E+04_JPRB,0.10026E+04_JPRB,0.99820E+03_JPRB /) |
1773 |
|
|
KB(:,39,14) = (/ & |
1774 |
|
|
& 0.10071E+04_JPRB,0.10068E+04_JPRB,0.10053E+04_JPRB,0.10030E+04_JPRB,0.99855E+03_JPRB /) |
1775 |
|
|
KB(:,40,14) = (/ & |
1776 |
|
|
& 0.10070E+04_JPRB,0.10070E+04_JPRB,0.10058E+04_JPRB,0.10036E+04_JPRB,0.99965E+03_JPRB /) |
1777 |
|
|
KB(:,41,14) = (/ & |
1778 |
|
|
& 0.10068E+04_JPRB,0.10071E+04_JPRB,0.10062E+04_JPRB,0.10042E+04_JPRB,0.10010E+04_JPRB /) |
1779 |
|
|
KB(:,42,14) = (/ & |
1780 |
|
|
& 0.10065E+04_JPRB,0.10072E+04_JPRB,0.10065E+04_JPRB,0.10048E+04_JPRB,0.10022E+04_JPRB /) |
1781 |
|
|
KB(:,43,14) = (/ & |
1782 |
|
|
& 0.10061E+04_JPRB,0.10071E+04_JPRB,0.10069E+04_JPRB,0.10055E+04_JPRB,0.10031E+04_JPRB /) |
1783 |
|
|
KB(:,44,14) = (/ & |
1784 |
|
|
& 0.10054E+04_JPRB,0.10069E+04_JPRB,0.10071E+04_JPRB,0.10061E+04_JPRB,0.10039E+04_JPRB /) |
1785 |
|
|
KB(:,45,14) = (/ & |
1786 |
|
|
& 0.10046E+04_JPRB,0.10066E+04_JPRB,0.10072E+04_JPRB,0.10065E+04_JPRB,0.10048E+04_JPRB /) |
1787 |
|
|
KB(:,46,14) = (/ & |
1788 |
|
|
& 0.10023E+04_JPRB,0.10060E+04_JPRB,0.10075E+04_JPRB,0.10069E+04_JPRB,0.10055E+04_JPRB /) |
1789 |
|
|
KB(:,47,14) = (/ & |
1790 |
|
|
& 0.10024E+04_JPRB,0.10044E+04_JPRB,0.10068E+04_JPRB,0.10071E+04_JPRB,0.10062E+04_JPRB /) |
1791 |
|
|
KB(:,48,14) = (/ & |
1792 |
|
|
& 0.10006E+04_JPRB,0.10039E+04_JPRB,0.10063E+04_JPRB,0.10072E+04_JPRB,0.10067E+04_JPRB /) |
1793 |
|
|
KB(:,49,14) = (/ & |
1794 |
|
|
& 0.99705E+03_JPRB,0.10026E+04_JPRB,0.10052E+04_JPRB,0.10070E+04_JPRB,0.10070E+04_JPRB /) |
1795 |
|
|
KB(:,50,14) = (/ & |
1796 |
|
|
& 0.99574E+03_JPRB,0.10014E+04_JPRB,0.10040E+04_JPRB,0.10066E+04_JPRB,0.10072E+04_JPRB /) |
1797 |
|
|
KB(:,51,14) = (/ & |
1798 |
|
|
& 0.99447E+03_JPRB,0.99966E+03_JPRB,0.10033E+04_JPRB,0.10065E+04_JPRB,0.10071E+04_JPRB /) |
1799 |
|
|
KB(:,52,14) = (/ & |
1800 |
|
|
& 0.99299E+03_JPRB,0.99670E+03_JPRB,0.10025E+04_JPRB,0.10054E+04_JPRB,0.10069E+04_JPRB /) |
1801 |
|
|
KB(:,53,14) = (/ & |
1802 |
|
|
& 0.99138E+03_JPRB,0.99552E+03_JPRB,0.10013E+04_JPRB,0.10044E+04_JPRB,0.10065E+04_JPRB /) |
1803 |
|
|
KB(:,54,14) = (/ & |
1804 |
|
|
& 0.98979E+03_JPRB,0.99462E+03_JPRB,0.99874E+03_JPRB,0.10030E+04_JPRB,0.10060E+04_JPRB /) |
1805 |
|
|
KB(:,55,14) = (/ & |
1806 |
|
|
& 0.98814E+03_JPRB,0.99291E+03_JPRB,0.99630E+03_JPRB,0.10029E+04_JPRB,0.10050E+04_JPRB /) |
1807 |
|
|
KB(:,56,14) = (/ & |
1808 |
|
|
& 0.98639E+03_JPRB,0.99150E+03_JPRB,0.99562E+03_JPRB,0.10014E+04_JPRB,0.10045E+04_JPRB /) |
1809 |
|
|
KB(:,57,14) = (/ & |
1810 |
|
|
& 0.98454E+03_JPRB,0.98998E+03_JPRB,0.99438E+03_JPRB,0.99904E+03_JPRB,0.10032E+04_JPRB /) |
1811 |
|
|
KB(:,58,14) = (/ & |
1812 |
|
|
& 0.98268E+03_JPRB,0.98844E+03_JPRB,0.99315E+03_JPRB,0.99688E+03_JPRB,0.10025E+04_JPRB /) |
1813 |
|
|
KB(:,59,14) = (/ & |
1814 |
|
|
& 0.98190E+03_JPRB,0.98779E+03_JPRB,0.99262E+03_JPRB,0.99638E+03_JPRB,0.10024E+04_JPRB /) |
1815 |
|
|
KB(:,13,15) = (/ & |
1816 |
|
|
& 0.99739E+03_JPRB,0.10017E+04_JPRB,0.10064E+04_JPRB,0.10076E+04_JPRB,0.10080E+04_JPRB /) |
1817 |
|
|
KB(:,14,15) = (/ & |
1818 |
|
|
& 0.99781E+03_JPRB,0.10021E+04_JPRB,0.10065E+04_JPRB,0.10077E+04_JPRB,0.10090E+04_JPRB /) |
1819 |
|
|
KB(:,15,15) = (/ & |
1820 |
|
|
& 0.99827E+03_JPRB,0.10029E+04_JPRB,0.10067E+04_JPRB,0.10077E+04_JPRB,0.10079E+04_JPRB /) |
1821 |
|
|
KB(:,16,15) = (/ & |
1822 |
|
|
& 0.99875E+03_JPRB,0.10040E+04_JPRB,0.10068E+04_JPRB,0.10078E+04_JPRB,0.10089E+04_JPRB /) |
1823 |
|
|
KB(:,17,15) = (/ & |
1824 |
|
|
& 0.99816E+03_JPRB,0.10041E+04_JPRB,0.10080E+04_JPRB,0.10079E+04_JPRB,0.10078E+04_JPRB /) |
1825 |
|
|
KB(:,18,15) = (/ & |
1826 |
|
|
& 0.99861E+03_JPRB,0.10065E+04_JPRB,0.10071E+04_JPRB,0.10090E+04_JPRB,0.10078E+04_JPRB /) |
1827 |
|
|
KB(:,19,15) = (/ & |
1828 |
|
|
& 0.10001E+04_JPRB,0.10056E+04_JPRB,0.10072E+04_JPRB,0.10079E+04_JPRB,0.10077E+04_JPRB /) |
1829 |
|
|
KB(:,20,15) = (/ & |
1830 |
|
|
& 0.99952E+03_JPRB,0.10059E+04_JPRB,0.10074E+04_JPRB,0.10090E+04_JPRB,0.10087E+04_JPRB /) |
1831 |
|
|
KB(:,21,15) = (/ & |
1832 |
|
|
& 0.10000E+04_JPRB,0.10061E+04_JPRB,0.10085E+04_JPRB,0.10080E+04_JPRB,0.10085E+04_JPRB /) |
1833 |
|
|
KB(:,22,15) = (/ & |
1834 |
|
|
& 0.10012E+04_JPRB,0.10064E+04_JPRB,0.10076E+04_JPRB,0.10090E+04_JPRB,0.10073E+04_JPRB /) |
1835 |
|
|
KB(:,23,15) = (/ & |
1836 |
|
|
& 0.10032E+04_JPRB,0.10067E+04_JPRB,0.10088E+04_JPRB,0.10079E+04_JPRB,0.10070E+04_JPRB /) |
1837 |
|
|
KB(:,24,15) = (/ & |
1838 |
|
|
& 0.10052E+04_JPRB,0.10070E+04_JPRB,0.10079E+04_JPRB,0.10089E+04_JPRB,0.10067E+04_JPRB /) |
1839 |
|
|
KB(:,25,15) = (/ & |
1840 |
|
|
& 0.10057E+04_JPRB,0.10083E+04_JPRB,0.10079E+04_JPRB,0.10098E+04_JPRB,0.10062E+04_JPRB /) |
1841 |
|
|
KB(:,26,15) = (/ & |
1842 |
|
|
& 0.10061E+04_JPRB,0.10085E+04_JPRB,0.10080E+04_JPRB,0.10075E+04_JPRB,0.10068E+04_JPRB /) |
1843 |
|
|
KB(:,27,15) = (/ & |
1844 |
|
|
& 0.10066E+04_JPRB,0.10087E+04_JPRB,0.10111E+04_JPRB,0.10072E+04_JPRB,0.10051E+04_JPRB /) |
1845 |
|
|
KB(:,28,15) = (/ & |
1846 |
|
|
& 0.10069E+04_JPRB,0.10089E+04_JPRB,0.10079E+04_JPRB,0.10068E+04_JPRB,0.10054E+04_JPRB /) |
1847 |
|
|
KB(:,29,15) = (/ & |
1848 |
|
|
& 0.10072E+04_JPRB,0.10069E+04_JPRB,0.10077E+04_JPRB,0.10063E+04_JPRB,0.10034E+04_JPRB /) |
1849 |
|
|
KB(:,30,15) = (/ & |
1850 |
|
|
& 0.10075E+04_JPRB,0.10111E+04_JPRB,0.10075E+04_JPRB,0.10068E+04_JPRB,0.10088E+04_JPRB /) |
1851 |
|
|
KB(:,31,15) = (/ & |
1852 |
|
|
& 0.10077E+04_JPRB,0.10080E+04_JPRB,0.10072E+04_JPRB,0.10061E+04_JPRB,0.10007E+04_JPRB /) |
1853 |
|
|
KB(:,32,15) = (/ & |
1854 |
|
|
& 0.10078E+04_JPRB,0.10089E+04_JPRB,0.10068E+04_JPRB,0.10043E+04_JPRB,0.10013E+04_JPRB /) |
1855 |
|
|
KB(:,33,15) = (/ & |
1856 |
|
|
& 0.10079E+04_JPRB,0.10077E+04_JPRB,0.10063E+04_JPRB,0.10044E+04_JPRB,0.10009E+04_JPRB /) |
1857 |
|
|
KB(:,34,15) = (/ & |
1858 |
|
|
& 0.10090E+04_JPRB,0.10075E+04_JPRB,0.10058E+04_JPRB,0.10025E+04_JPRB,0.10002E+04_JPRB /) |
1859 |
|
|
KB(:,35,15) = (/ & |
1860 |
|
|
& 0.10080E+04_JPRB,0.10073E+04_JPRB,0.10054E+04_JPRB,0.10021E+04_JPRB,0.99972E+03_JPRB /) |
1861 |
|
|
KB(:,36,15) = (/ & |
1862 |
|
|
& 0.10090E+04_JPRB,0.10073E+04_JPRB,0.10054E+04_JPRB,0.10020E+04_JPRB,0.99964E+03_JPRB /) |
1863 |
|
|
KB(:,37,15) = (/ & |
1864 |
|
|
& 0.10080E+04_JPRB,0.10075E+04_JPRB,0.10057E+04_JPRB,0.10024E+04_JPRB,0.10001E+04_JPRB /) |
1865 |
|
|
KB(:,38,15) = (/ & |
1866 |
|
|
& 0.10090E+04_JPRB,0.10076E+04_JPRB,0.10060E+04_JPRB,0.10040E+04_JPRB,0.10006E+04_JPRB /) |
1867 |
|
|
KB(:,39,15) = (/ & |
1868 |
|
|
& 0.10079E+04_JPRB,0.10077E+04_JPRB,0.10063E+04_JPRB,0.10034E+04_JPRB,0.10010E+04_JPRB /) |
1869 |
|
|
KB(:,40,15) = (/ & |
1870 |
|
|
& 0.10089E+04_JPRB,0.10089E+04_JPRB,0.10068E+04_JPRB,0.10054E+04_JPRB,0.10014E+04_JPRB /) |
1871 |
|
|
KB(:,41,15) = (/ & |
1872 |
|
|
& 0.10087E+04_JPRB,0.10090E+04_JPRB,0.10082E+04_JPRB,0.10051E+04_JPRB,0.10018E+04_JPRB /) |
1873 |
|
|
KB(:,42,15) = (/ & |
1874 |
|
|
& 0.10085E+04_JPRB,0.10090E+04_JPRB,0.10075E+04_JPRB,0.10058E+04_JPRB,0.10025E+04_JPRB /) |
1875 |
|
|
KB(:,43,15) = (/ & |
1876 |
|
|
& 0.10071E+04_JPRB,0.10079E+04_JPRB,0.10078E+04_JPRB,0.10086E+04_JPRB,0.10037E+04_JPRB /) |
1877 |
|
|
KB(:,44,15) = (/ & |
1878 |
|
|
& 0.10067E+04_JPRB,0.10088E+04_JPRB,0.10079E+04_JPRB,0.10071E+04_JPRB,0.10048E+04_JPRB /) |
1879 |
|
|
KB(:,45,15) = (/ & |
1880 |
|
|
& 0.10061E+04_JPRB,0.10075E+04_JPRB,0.10090E+04_JPRB,0.10096E+04_JPRB,0.10057E+04_JPRB /) |
1881 |
|
|
KB(:,46,15) = (/ & |
1882 |
|
|
& 0.10054E+04_JPRB,0.10071E+04_JPRB,0.10068E+04_JPRB,0.10078E+04_JPRB,0.10065E+04_JPRB /) |
1883 |
|
|
KB(:,47,15) = (/ & |
1884 |
|
|
& 0.10020E+04_JPRB,0.10065E+04_JPRB,0.10087E+04_JPRB,0.10079E+04_JPRB,0.10093E+04_JPRB /) |
1885 |
|
|
KB(:,48,15) = (/ & |
1886 |
|
|
& 0.99938E+03_JPRB,0.10058E+04_JPRB,0.10073E+04_JPRB,0.10079E+04_JPRB,0.10087E+04_JPRB /) |
1887 |
|
|
KB(:,49,15) = (/ & |
1888 |
|
|
& 0.99869E+03_JPRB,0.10038E+04_JPRB,0.10079E+04_JPRB,0.10099E+04_JPRB,0.10089E+04_JPRB /) |
1889 |
|
|
KB(:,50,15) = (/ & |
1890 |
|
|
& 0.99593E+03_JPRB,0.10003E+04_JPRB,0.10062E+04_JPRB,0.10075E+04_JPRB,0.10090E+04_JPRB /) |
1891 |
|
|
KB(:,51,15) = (/ & |
1892 |
|
|
& 0.99417E+03_JPRB,0.99877E+03_JPRB,0.10055E+04_JPRB,0.10061E+04_JPRB,0.10090E+04_JPRB /) |
1893 |
|
|
KB(:,52,15) = (/ & |
1894 |
|
|
& 0.99334E+03_JPRB,0.99717E+03_JPRB,0.10030E+04_JPRB,0.10077E+04_JPRB,0.10077E+04_JPRB /) |
1895 |
|
|
KB(:,53,15) = (/ & |
1896 |
|
|
& 0.99034E+03_JPRB,0.99548E+03_JPRB,0.99989E+03_JPRB,0.10071E+04_JPRB,0.10085E+04_JPRB /) |
1897 |
|
|
KB(:,54,15) = (/ & |
1898 |
|
|
& 0.98844E+03_JPRB,0.99385E+03_JPRB,0.99849E+03_JPRB,0.10064E+04_JPRB,0.10081E+04_JPRB /) |
1899 |
|
|
KB(:,55,15) = (/ & |
1900 |
|
|
& 0.98654E+03_JPRB,0.99323E+03_JPRB,0.99708E+03_JPRB,0.10005E+04_JPRB,0.10066E+04_JPRB /) |
1901 |
|
|
KB(:,56,15) = (/ & |
1902 |
|
|
& 0.98558E+03_JPRB,0.99048E+03_JPRB,0.99560E+03_JPRB,0.99999E+03_JPRB,0.10071E+04_JPRB /) |
1903 |
|
|
KB(:,57,15) = (/ & |
1904 |
|
|
& 0.98349E+03_JPRB,0.98867E+03_JPRB,0.99404E+03_JPRB,0.99866E+03_JPRB,0.10054E+04_JPRB /) |
1905 |
|
|
KB(:,58,15) = (/ & |
1906 |
|
|
& 0.98039E+03_JPRB,0.98688E+03_JPRB,0.99250E+03_JPRB,0.99837E+03_JPRB,0.10028E+04_JPRB /) |
1907 |
|
|
KB(:,59,15) = (/ & |
1908 |
|
|
& 0.97954E+03_JPRB,0.98614E+03_JPRB,0.99186E+03_JPRB,0.99679E+03_JPRB,0.10019E+04_JPRB /) |
1909 |
|
|
KB(:,13,16) = (/ & |
1910 |
|
|
& 0.98905E+03_JPRB,0.99319E+03_JPRB,0.10065E+04_JPRB,0.10075E+04_JPRB,0.10080E+04_JPRB /) |
1911 |
|
|
KB(:,14,16) = (/ & |
1912 |
|
|
& 0.98947E+03_JPRB,0.10009E+04_JPRB,0.10067E+04_JPRB,0.10076E+04_JPRB,0.10005E+04_JPRB /) |
1913 |
|
|
KB(:,15,16) = (/ & |
1914 |
|
|
& 0.98993E+03_JPRB,0.10052E+04_JPRB,0.10068E+04_JPRB,0.10076E+04_JPRB,0.10080E+04_JPRB /) |
1915 |
|
|
KB(:,16,16) = (/ & |
1916 |
|
|
& 0.99040E+03_JPRB,0.10054E+04_JPRB,0.10069E+04_JPRB,0.10077E+04_JPRB,0.10005E+04_JPRB /) |
1917 |
|
|
KB(:,17,16) = (/ & |
1918 |
|
|
& 0.99823E+03_JPRB,0.10056E+04_JPRB,0.99955E+03_JPRB,0.10078E+04_JPRB,0.10080E+04_JPRB /) |
1919 |
|
|
KB(:,18,16) = (/ & |
1920 |
|
|
& 0.99867E+03_JPRB,0.99832E+03_JPRB,0.10071E+04_JPRB,0.10003E+04_JPRB,0.10079E+04_JPRB /) |
1921 |
|
|
KB(:,19,16) = (/ & |
1922 |
|
|
& 0.99168E+03_JPRB,0.10059E+04_JPRB,0.10072E+04_JPRB,0.10078E+04_JPRB,0.10079E+04_JPRB /) |
1923 |
|
|
KB(:,20,16) = (/ & |
1924 |
|
|
& 0.99955E+03_JPRB,0.10061E+04_JPRB,0.10073E+04_JPRB,0.99297E+03_JPRB,0.10003E+04_JPRB /) |
1925 |
|
|
KB(:,21,16) = (/ & |
1926 |
|
|
& 0.10000E+04_JPRB,0.10063E+04_JPRB,0.99994E+03_JPRB,0.10079E+04_JPRB,0.10002E+04_JPRB /) |
1927 |
|
|
KB(:,22,16) = (/ & |
1928 |
|
|
& 0.10007E+04_JPRB,0.10066E+04_JPRB,0.10075E+04_JPRB,0.10005E+04_JPRB,0.10075E+04_JPRB /) |
1929 |
|
|
KB(:,23,16) = (/ & |
1930 |
|
|
& 0.10052E+04_JPRB,0.10068E+04_JPRB,0.10002E+04_JPRB,0.10080E+04_JPRB,0.10072E+04_JPRB /) |
1931 |
|
|
KB(:,24,16) = (/ & |
1932 |
|
|
& 0.10056E+04_JPRB,0.10070E+04_JPRB,0.10078E+04_JPRB,0.10005E+04_JPRB,0.10068E+04_JPRB /) |
1933 |
|
|
KB(:,25,16) = (/ & |
1934 |
|
|
& 0.10060E+04_JPRB,0.99977E+03_JPRB,0.10079E+04_JPRB,0.99294E+03_JPRB,0.10064E+04_JPRB /) |
1935 |
|
|
KB(:,26,16) = (/ & |
1936 |
|
|
& 0.10064E+04_JPRB,0.99996E+03_JPRB,0.10080E+04_JPRB,0.10077E+04_JPRB,0.99839E+03_JPRB /) |
1937 |
|
|
KB(:,27,16) = (/ & |
1938 |
|
|
& 0.10067E+04_JPRB,0.10001E+04_JPRB,0.98561E+03_JPRB,0.10074E+04_JPRB,0.10052E+04_JPRB /) |
1939 |
|
|
KB(:,28,16) = (/ & |
1940 |
|
|
& 0.10069E+04_JPRB,0.10003E+04_JPRB,0.10080E+04_JPRB,0.10070E+04_JPRB,0.99700E+03_JPRB /) |
1941 |
|
|
KB(:,29,16) = (/ & |
1942 |
|
|
& 0.10072E+04_JPRB,0.10078E+04_JPRB,0.10079E+04_JPRB,0.10065E+04_JPRB,0.10036E+04_JPRB /) |
1943 |
|
|
KB(:,30,16) = (/ & |
1944 |
|
|
& 0.10074E+04_JPRB,0.98555E+03_JPRB,0.10002E+04_JPRB,0.99845E+03_JPRB,0.95900E+03_JPRB /) |
1945 |
|
|
KB(:,31,16) = (/ & |
1946 |
|
|
& 0.10076E+04_JPRB,0.10080E+04_JPRB,0.10074E+04_JPRB,0.99776E+03_JPRB,0.10037E+04_JPRB /) |
1947 |
|
|
KB(:,32,16) = (/ & |
1948 |
|
|
& 0.10077E+04_JPRB,0.10005E+04_JPRB,0.10070E+04_JPRB,0.10044E+04_JPRB,0.10038E+04_JPRB /) |
1949 |
|
|
KB(:,33,16) = (/ & |
1950 |
|
|
& 0.10079E+04_JPRB,0.10079E+04_JPRB,0.10064E+04_JPRB,0.99602E+03_JPRB,0.10038E+04_JPRB /) |
1951 |
|
|
KB(:,34,16) = (/ & |
1952 |
|
|
& 0.10005E+04_JPRB,0.10077E+04_JPRB,0.10059E+04_JPRB,0.10036E+04_JPRB,0.10037E+04_JPRB /) |
1953 |
|
|
KB(:,35,16) = (/ & |
1954 |
|
|
& 0.10080E+04_JPRB,0.10075E+04_JPRB,0.10055E+04_JPRB,0.10037E+04_JPRB,0.10036E+04_JPRB /) |
1955 |
|
|
KB(:,36,16) = (/ & |
1956 |
|
|
& 0.10005E+04_JPRB,0.10075E+04_JPRB,0.10055E+04_JPRB,0.10037E+04_JPRB,0.10036E+04_JPRB /) |
1957 |
|
|
KB(:,37,16) = (/ & |
1958 |
|
|
& 0.10080E+04_JPRB,0.10077E+04_JPRB,0.10058E+04_JPRB,0.10037E+04_JPRB,0.10037E+04_JPRB /) |
1959 |
|
|
KB(:,38,16) = (/ & |
1960 |
|
|
& 0.10004E+04_JPRB,0.10078E+04_JPRB,0.10062E+04_JPRB,0.99569E+03_JPRB,0.10037E+04_JPRB /) |
1961 |
|
|
KB(:,39,16) = (/ & |
1962 |
|
|
& 0.10078E+04_JPRB,0.10079E+04_JPRB,0.10065E+04_JPRB,0.10036E+04_JPRB,0.10038E+04_JPRB /) |
1963 |
|
|
KB(:,40,16) = (/ & |
1964 |
|
|
& 0.10003E+04_JPRB,0.10005E+04_JPRB,0.10070E+04_JPRB,0.99698E+03_JPRB,0.10038E+04_JPRB /) |
1965 |
|
|
KB(:,41,16) = (/ & |
1966 |
|
|
& 0.10001E+04_JPRB,0.10005E+04_JPRB,0.99992E+03_JPRB,0.10052E+04_JPRB,0.10037E+04_JPRB /) |
1967 |
|
|
KB(:,42,16) = (/ & |
1968 |
|
|
& 0.99994E+03_JPRB,0.10005E+04_JPRB,0.10077E+04_JPRB,0.10059E+04_JPRB,0.10036E+04_JPRB /) |
1969 |
|
|
KB(:,43,16) = (/ & |
1970 |
|
|
& 0.10071E+04_JPRB,0.10078E+04_JPRB,0.10079E+04_JPRB,0.99172E+03_JPRB,0.10038E+04_JPRB /) |
1971 |
|
|
KB(:,44,16) = (/ & |
1972 |
|
|
& 0.10068E+04_JPRB,0.10002E+04_JPRB,0.10080E+04_JPRB,0.10072E+04_JPRB,0.10049E+04_JPRB /) |
1973 |
|
|
KB(:,45,16) = (/ & |
1974 |
|
|
& 0.10063E+04_JPRB,0.10074E+04_JPRB,0.10005E+04_JPRB,0.99276E+03_JPRB,0.10059E+04_JPRB /) |
1975 |
|
|
KB(:,46,16) = (/ & |
1976 |
|
|
& 0.10057E+04_JPRB,0.10071E+04_JPRB,0.10078E+04_JPRB,0.10079E+04_JPRB,0.10067E+04_JPRB /) |
1977 |
|
|
KB(:,47,16) = (/ & |
1978 |
|
|
& 0.10009E+04_JPRB,0.10067E+04_JPRB,0.10001E+04_JPRB,0.10080E+04_JPRB,0.99247E+03_JPRB /) |
1979 |
|
|
KB(:,48,16) = (/ & |
1980 |
|
|
& 0.99941E+03_JPRB,0.10061E+04_JPRB,0.10073E+04_JPRB,0.10079E+04_JPRB,0.10004E+04_JPRB /) |
1981 |
|
|
KB(:,49,16) = (/ & |
1982 |
|
|
& 0.99034E+03_JPRB,0.10054E+04_JPRB,0.99943E+03_JPRB,0.99276E+03_JPRB,0.10005E+04_JPRB /) |
1983 |
|
|
KB(:,50,16) = (/ & |
1984 |
|
|
& 0.99601E+03_JPRB,0.10003E+04_JPRB,0.10064E+04_JPRB,0.10074E+04_JPRB,0.10005E+04_JPRB /) |
1985 |
|
|
KB(:,51,16) = (/ & |
1986 |
|
|
& 0.99422E+03_JPRB,0.99882E+03_JPRB,0.10058E+04_JPRB,0.10071E+04_JPRB,0.10003E+04_JPRB /) |
1987 |
|
|
KB(:,52,16) = (/ & |
1988 |
|
|
& 0.98496E+03_JPRB,0.99726E+03_JPRB,0.10013E+04_JPRB,0.99930E+03_JPRB,0.10076E+04_JPRB /) |
1989 |
|
|
KB(:,53,16) = (/ & |
1990 |
|
|
& 0.99030E+03_JPRB,0.99555E+03_JPRB,0.99990E+03_JPRB,0.99882E+03_JPRB,0.99991E+03_JPRB /) |
1991 |
|
|
KB(:,54,16) = (/ & |
1992 |
|
|
& 0.98836E+03_JPRB,0.98653E+03_JPRB,0.99856E+03_JPRB,0.99827E+03_JPRB,0.99962E+03_JPRB /) |
1993 |
|
|
KB(:,55,16) = (/ & |
1994 |
|
|
& 0.98643E+03_JPRB,0.98485E+03_JPRB,0.99716E+03_JPRB,0.10012E+04_JPRB,0.10067E+04_JPRB /) |
1995 |
|
|
KB(:,56,16) = (/ & |
1996 |
|
|
& 0.97714E+03_JPRB,0.99044E+03_JPRB,0.99567E+03_JPRB,0.99999E+03_JPRB,0.99885E+03_JPRB /) |
1997 |
|
|
KB(:,57,16) = (/ & |
1998 |
|
|
& 0.97511E+03_JPRB,0.98860E+03_JPRB,0.99409E+03_JPRB,0.99872E+03_JPRB,0.10058E+04_JPRB /) |
1999 |
|
|
KB(:,58,16) = (/ & |
2000 |
|
|
& 0.98036E+03_JPRB,0.98678E+03_JPRB,0.99251E+03_JPRB,0.99003E+03_JPRB,0.10052E+04_JPRB /) |
2001 |
|
|
KB(:,59,16) = (/ & |
2002 |
|
|
& 0.97953E+03_JPRB,0.98603E+03_JPRB,0.99185E+03_JPRB,0.99687E+03_JPRB,0.10009E+04_JPRB /) |
2003 |
|
|
|
2004 |
|
|
! ----------------------------------------------------------------- |
2005 |
|
|
IF (LHOOK) CALL DR_HOOK('SRTM_KGB27',1,ZHOOK_HANDLE) |
2006 |
|
|
END SUBROUTINE SRTM_KGB27 |
2007 |
|
|
|