GFS Operational Physics Documentation  Revision: 81451
radsw_datatb.f
Go to the documentation of this file.
1 
8 
9 ! ============================================================== !!!!!
10 ! sw-rrtm3 radiation package description !!!!!
11 ! ============================================================== !!!!!
12 ! !
13 ! this package includes ncep's modifications of the rrtm-sw radiation !
14 ! code from aer inc. !
15 ! !
16 ! the sw-rrtm3 package includes these parts: !
17 ! !
18 ! 'radsw_rrtm3_param.f' !
19 ! 'radsw_rrtm3_datatb.f' !
20 ! 'radsw_rrtm3_main.f' !
21 ! !
22 ! the 'radsw_rrtm3_param.f' contains: !
23 ! !
24 ! 'module_radsw_parameters' -- band parameters set up !
25 ! !
26 ! the 'radsw_rrtm3_datatb.f' contains: !
27 ! !
28 ! 'module_radsw_ref' -- reference temperature and pressure !
29 ! 'module_radsw_cldprtb' -- cloud property coefficients table !
30 ! 'module_radsw_sflux' -- spectral solar flux distribution !
31 ! 'module_radsw_kgbnn' -- absorption coeffients for 14 !
32 ! bands, where nn = 16-29 !
33 ! !
34 ! the 'radsw_rrtm3_main.f' contains: !
35 ! !
36 ! 'module_radsw_main' -- main sw radiation transfer !
37 ! !
38 ! in the main module 'module_radsw_main' there are only two !
39 ! externally callable subroutines: !
40 ! !
41 ! 'swrad' -- main rrtm3 sw radiation routine !
42 ! 'rswinit' -- initialization routine !
43 ! !
44 ! all the sw radiation subprograms become contained subprograms !
45 ! in module 'module_radsw_main' and many of them are not directly !
46 ! accessable from places outside the module. !
47 ! !
48 ! compilation sequence is: !
49 ! !
50 ! 'radsw_rrtm3_param.f' !
51 ! 'radsw_rrtm3_datatb.f' !
52 ! 'radsw_rrtm3_main.f' !
53 ! !
54 ! and all should be put in front of routines that use sw modules !
55 ! !
56 ! ncep modifications history log: !
57 ! !
58 ! see list in program "radsw_rrtm3_main.f" !
59 ! !
60 !!!!! ============================================================== !!!!!
61 !!!!! end descriptions !!!!!
62 !!!!! ============================================================== !!!!!
63 
64 
73 !========================================!
75 !........................................!
76 !
77  use physparam, only : kind_phys
78 !
79  implicit none
80 !
81  public
82 
84  real (kind=kind_phys), dimension(59) :: preflog, tref
85 
86 ! ... these pressures are chosen such that the ln of the first pressure
87 ! has only a few non-zero digits (i.e. ln(pref(1)) = 6.96000) and
88 ! each subsequent ln(pressure) differs from the previous one by 0.2.
89 
90 ! data pref(:) / &
91 ! & 1.05363e+03,8.62642e+02,7.06272e+02,5.78246e+02,4.73428e+02, &
92 ! & 3.87610e+02,3.17348e+02,2.59823e+02,2.12725e+02,1.74164e+02, &
93 ! & 1.42594e+02,1.16746e+02,9.55835e+01,7.82571e+01,6.40715e+01, &
94 ! & 5.24573e+01,4.29484e+01,3.51632e+01,2.87892e+01,2.35706e+01, &
95 ! & 1.92980e+01,1.57998e+01,1.29358e+01,1.05910e+01,8.67114e+00, &
96 ! & 7.09933e+00,5.81244e+00,4.75882e+00,3.89619e+00,3.18993e+00, &
97 ! & 2.61170e+00,2.13828e+00,1.75067e+00,1.43333e+00,1.17351e+00, &
98 ! & 9.60789e-01,7.86628e-01,6.44036e-01,5.27292e-01,4.31710e-01, &
99 ! & 3.53455e-01,2.89384e-01,2.36928e-01,1.93980e-01,1.58817e-01, &
100 ! & 1.30029e-01,1.06458e-01,8.71608e-02,7.13612e-02,5.84256e-02, &
101 ! & 4.78349e-02,3.91639e-02,3.20647e-02,2.62523e-02,2.14936e-02, &
102 ! & 1.75975e-02,1.44076e-02,1.17959e-02,9.65769e-03 /
103 
104  data preflog(:) / &
105  & 6.9600e+00, 6.7600e+00, 6.5600e+00, 6.3600e+00, 6.1600e+00, &
106  & 5.9600e+00, 5.7600e+00, 5.5600e+00, 5.3600e+00, 5.1600e+00, &
107  & 4.9600e+00, 4.7600e+00, 4.5600e+00, 4.3600e+00, 4.1600e+00, &
108  & 3.9600e+00, 3.7600e+00, 3.5600e+00, 3.3600e+00, 3.1600e+00, &
109  & 2.9600e+00, 2.7600e+00, 2.5600e+00, 2.3600e+00, 2.1600e+00, &
110  & 1.9600e+00, 1.7600e+00, 1.5600e+00, 1.3600e+00, 1.1600e+00, &
111  & 9.6000e-01, 7.6000e-01, 5.6000e-01, 3.6000e-01, 1.6000e-01, &
112  & -4.0000e-02,-2.4000e-01,-4.4000e-01,-6.4000e-01,-8.4000e-01, &
113  & -1.0400e+00,-1.2400e+00,-1.4400e+00,-1.6400e+00,-1.8400e+00, &
114  & -2.0400e+00,-2.2400e+00,-2.4400e+00,-2.6400e+00,-2.8400e+00, &
115  & -3.0400e+00,-3.2400e+00,-3.4400e+00,-3.6400e+00,-3.8400e+00, &
116  & -4.0400e+00,-4.2400e+00,-4.4400e+00,-4.6400e+00 /
117 
118 ! ... these are the temperatures associated with the respective
119 ! pressures for the MLS standard atmosphere.
120  data tref(:) / &
121  & 2.9420e+02, 2.8799e+02, 2.7894e+02, 2.6925e+02, 2.5983e+02, &
122  & 2.5017e+02, 2.4077e+02, 2.3179e+02, 2.2306e+02, 2.1578e+02, &
123  & 2.1570e+02, 2.1570e+02, 2.1570e+02, 2.1706e+02, 2.1858e+02, &
124  & 2.2018e+02, 2.2174e+02, 2.2328e+02, 2.2479e+02, 2.2655e+02, &
125  & 2.2834e+02, 2.3113e+02, 2.3401e+02, 2.3703e+02, 2.4022e+02, &
126  & 2.4371e+02, 2.4726e+02, 2.5085e+02, 2.5457e+02, 2.5832e+02, &
127  & 2.6216e+02, 2.6606e+02, 2.6999e+02, 2.7340e+02, 2.7536e+02, &
128  & 2.7568e+02, 2.7372e+02, 2.7163e+02, 2.6955e+02, 2.6593e+02, &
129  & 2.6211e+02, 2.5828e+02, 2.5360e+02, 2.4854e+02, 2.4348e+02, &
130  & 2.3809e+02, 2.3206e+02, 2.2603e+02, 2.2000e+02, 2.1435e+02, &
131  & 2.0887e+02, 2.0340e+02, 1.9792e+02, 1.9290e+02, 1.8809e+02, &
132  & 1.8329e+02, 1.7849e+02, 1.7394e+02, 1.7212e+02 /
133 
134 !........................................!
135  end module module_radsw_ref !
136 !========================================!
137 
141 !========================================!
143 !........................................!
144 !
145 ! *********************** module descriptions ********************** !
146 ! !
147 ! this module contains coefficients of cloud-optical properties !
148 ! for each of the spectral bands. modified from aer/ecmwf rrtm !
149 ! sw radiation package subroutine "susrtop". !
150 ! !
151 ! modify history: !
152 ! jan 2004 -- yu-tai hou convert subroutine to data !
153 ! module for ncep models. !
154 ! jun 2008 -- yu-tai hou modified to use aer's newer !
155 ! release v3.5 data table for cloud ice particles !
156 ! !
157 ! ********* the original program descriptions ********* !
158 ! !
159 ! adapted from j. delamere, atmospheric & environmental research. !
160 ! by jjmorcrette, ecmwf 02/10/29 !
161 ! revision: j.d. 2.6 2002/04/04 18:29:47 !
162 ! reformatted for f90 by jjmorcrette, ecmwf !
163 ! !
164 ! name type purpose
165 ! ---- : ---- : --------------------------------------------------!
166 ! xxxliq1 : real : optical properties (extinction coefficient, single!
167 ! scattering albedo, assymetry factor) from !
168 ! hu & stamnes, 1993, j. clim., 6, 728-742 !
169 ! xbari : real : optical properties (extinction coefficient, single!
170 ! scattering albedo, assymetry factor) calculated !
171 ! based on ebert and curry method, jgr, 1992 !
172 ! xxxice2 : real : optical properties (extinction coefficient, single!
173 ! scattering albedo, assymetry factor) from !
174 ! streamer v3.0, key.j.streamer user's guide, !
175 ! cooperative institute for meteorological satellite!
176 ! studies, 2001, 96 pp. !
177 ! xxxice3 : real : optical properties (extinction coefficient, single!
178 ! scattering albedo, assymetry factor) from !
179 ! fu, 1996, j. clim., 9, !
180 ! !
181 ! ************************* end description ************************ !
182 
183  use physparam, only : kind_phys
184  use module_radsw_parameters, only : nblow, nbhgh
185 !
186  implicit none
187 !
188  private
189 
190 !
191 ! === for iflagliq = 0,
192 ! cloud optical properties are external inputs to the main program
193 
194 ! === everything below is for iflagliq >= 1.
196  real (kind=kind_phys), dimension(58,nblow:nbhgh), public :: &
197  & extliq1
198 
199  real (kind=kind_phys), dimension(58,nblow:nbhgh), public :: &
200  & ssaliq1
201 
202  real (kind=kind_phys), dimension(58,nblow:nbhgh), public :: &
203  & asyliq1
204 
206  real (kind=kind_phys), dimension(43,nblow:nbhgh), public :: &
207  & extice2
208 
209  real (kind=kind_phys), dimension(43,nblow:nbhgh), public :: &
210  & ssaice2
211 
212  real (kind=kind_phys), dimension(43,nblow:nbhgh), public :: &
213  & asyice2
214 
216  real (kind=kind_phys), dimension(46,nblow:nbhgh), public :: &
217  & extice3
218 
219  real (kind=kind_phys), dimension(46,nblow:nbhgh), public :: &
220  & ssaice3
221 
222  real (kind=kind_phys), dimension(46,nblow:nbhgh), public :: &
223  & asyice3
224 
225  real (kind=kind_phys), dimension(46,nblow:nbhgh), public :: &
226  & fdlice3
227 
230  real (kind=kind_phys), dimension(5), public :: &
231  & abari, bbari, cbari, dbari, ebari, fbari
232 !!@}
233 
234 ! --- ... coefficients from ebert and curry method
235  data abari(:)/ 3.448e-03,3.448e-03,3.448e-03,3.448e-03,3.448e-03 /
236  data bbari(:)/ 2.431e+00,2.431e+00,2.431e+00,2.431e+00,2.431e+00 /
237  data cbari(:)/ 1.000e-05,1.100e-04,1.240e-02,3.779e-02,4.666e-01 /
238  data dbari(:)/ 0.000e+00,1.405e-05,6.867e-04,1.284e-03,2.050e-05 /
239  data ebari(:)/ 7.661e-01,7.730e-01,7.865e-01,8.172e-01,9.595e-01 /
240  data fbari(:)/ 5.851e-04,5.665e-04,7.204e-04,7.463e-04,1.076e-04 /
241 
242 ! --- ... extinction coefficient from hu and stamnes
243  data extliq1(:, 16) / &
244  & 8.981463e-01,6.317895e-01,4.557508e-01,3.481624e-01,2.797950e-01,&
245  & 2.342753e-01,2.026934e-01,1.800102e-01,1.632408e-01,1.505384e-01,&
246  & 1.354524e-01,1.246520e-01,1.154342e-01,1.074756e-01,1.005353e-01,&
247  & 9.442987e-02,8.901760e-02,8.418693e-02,7.984904e-02,7.593229e-02,&
248  & 7.237827e-02,6.913887e-02,6.617415e-02,6.345061e-02,6.094001e-02,&
249  & 5.861834e-02,5.646506e-02,5.446250e-02,5.249596e-02,5.081114e-02,&
250  & 4.922243e-02,4.772189e-02,4.630243e-02,4.495766e-02,4.368189e-02,&
251  & 4.246995e-02,4.131720e-02,4.021941e-02,3.917276e-02,3.817376e-02,&
252  & 3.721926e-02,3.630635e-02,3.543237e-02,3.459491e-02,3.379171e-02,&
253  & 3.302073e-02,3.228007e-02,3.156798e-02,3.088284e-02,3.022315e-02,&
254  & 2.958753e-02,2.897468e-02,2.838340e-02,2.781258e-02,2.726117e-02,&
255  & 2.672821e-02,2.621278e-02,2.5714e-02 /
256  data extliq1(:, 17) / &
257  & 8.293797e-01,6.048371e-01,4.465706e-01,3.460387e-01,2.800064e-01,&
258  & 2.346584e-01,2.022399e-01,1.782626e-01,1.600153e-01,1.457903e-01,&
259  & 1.334061e-01,1.228548e-01,1.138396e-01,1.060486e-01,9.924856e-02,&
260  & 9.326208e-02,8.795158e-02,8.320883e-02,7.894750e-02,7.509792e-02,&
261  & 7.160323e-02,6.841653e-02,6.549889e-02,6.281763e-02,6.034516e-02,&
262  & 5.805802e-02,5.593615e-02,5.396226e-02,5.202302e-02,5.036246e-02,&
263  & 4.879606e-02,4.731610e-02,4.591565e-02,4.458852e-02,4.332912e-02,&
264  & 4.213243e-02,4.099390e-02,3.990941e-02,3.887522e-02,3.788792e-02,&
265  & 3.694440e-02,3.604183e-02,3.517760e-02,3.434934e-02,3.355485e-02,&
266  & 3.279211e-02,3.205925e-02,3.135458e-02,3.067648e-02,3.002349e-02,&
267  & 2.939425e-02,2.878748e-02,2.820200e-02,2.763673e-02,2.709062e-02,&
268  & 2.656272e-02,2.605214e-02,2.5558e-02 /
269  data extliq1(:, 18) / &
270  & 9.193685e-01,6.128292e-01,4.344150e-01,3.303048e-01,2.659500e-01,&
271  & 2.239727e-01,1.953457e-01,1.751012e-01,1.603515e-01,1.493360e-01,&
272  & 1.323791e-01,1.219335e-01,1.130076e-01,1.052926e-01,9.855839e-02,&
273  & 9.262925e-02,8.736918e-02,8.267112e-02,7.844965e-02,7.463585e-02,&
274  & 7.117343e-02,6.801601e-02,6.512503e-02,6.246815e-02,6.001806e-02,&
275  & 5.775154e-02,5.564872e-02,5.369250e-02,5.176284e-02,5.011536e-02,&
276  & 4.856099e-02,4.709211e-02,4.570193e-02,4.438430e-02,4.313375e-02,&
277  & 4.194529e-02,4.081443e-02,3.973712e-02,3.870966e-02,3.772866e-02,&
278  & 3.679108e-02,3.589409e-02,3.503514e-02,3.421185e-02,3.342206e-02,&
279  & 3.266377e-02,3.193513e-02,3.123447e-02,3.056018e-02,2.991081e-02,&
280  & 2.928502e-02,2.868154e-02,2.809920e-02,2.753692e-02,2.699367e-02,&
281  & 2.646852e-02,2.596057e-02,2.5469e-02 /
282  data extliq1(:, 19) / &
283  & 9.136931e-01,5.743244e-01,4.080708e-01,3.150572e-01,2.577261e-01,&
284  & 2.197900e-01,1.933037e-01,1.740212e-01,1.595056e-01,1.482756e-01,&
285  & 1.312164e-01,1.209246e-01,1.121227e-01,1.045095e-01,9.785967e-02,&
286  & 9.200149e-02,8.680170e-02,8.215531e-02,7.797850e-02,7.420361e-02,&
287  & 7.077530e-02,6.764798e-02,6.478369e-02,6.215063e-02,5.972189e-02,&
288  & 5.747458e-02,5.538913e-02,5.344866e-02,5.153216e-02,4.989745e-02,&
289  & 4.835476e-02,4.689661e-02,4.551629e-02,4.420777e-02,4.296563e-02,&
290  & 4.178497e-02,4.066137e-02,3.959081e-02,3.856963e-02,3.759452e-02,&
291  & 3.666244e-02,3.577061e-02,3.491650e-02,3.409777e-02,3.331227e-02,&
292  & 3.255803e-02,3.183322e-02,3.113617e-02,3.046530e-02,2.981918e-02,&
293  & 2.919646e-02,2.859591e-02,2.801635e-02,2.745671e-02,2.691599e-02,&
294  & 2.639324e-02,2.588759e-02,2.5398e-02 /
295  data extliq1(:, 20) / &
296  & 8.447548e-01,5.326840e-01,3.921523e-01,3.119082e-01,2.597055e-01,&
297  & 2.228737e-01,1.954157e-01,1.741155e-01,1.570881e-01,1.431520e-01,&
298  & 1.302034e-01,1.200491e-01,1.113571e-01,1.038330e-01,9.725657e-02,&
299  & 9.145949e-02,8.631112e-02,8.170840e-02,7.756901e-02,7.382641e-02,&
300  & 7.042616e-02,6.732338e-02,6.448069e-02,6.186672e-02,5.945494e-02,&
301  & 5.722277e-02,5.515089e-02,5.322262e-02,5.132153e-02,4.969799e-02,&
302  & 4.816556e-02,4.671686e-02,4.534525e-02,4.404480e-02,4.281014e-02,&
303  & 4.163643e-02,4.051930e-02,3.945479e-02,3.843927e-02,3.746945e-02,&
304  & 3.654234e-02,3.565518e-02,3.480547e-02,3.399088e-02,3.320930e-02,&
305  & 3.245876e-02,3.173745e-02,3.104371e-02,3.037600e-02,2.973287e-02,&
306  & 2.911300e-02,2.851516e-02,2.793818e-02,2.738101e-02,2.684264e-02,&
307  & 2.632214e-02,2.581863e-02,2.5331e-02 /
308  data extliq1(:, 21) / &
309  & 7.727642e-01,5.034865e-01,3.808673e-01,3.080333e-01,2.586453e-01,&
310  & 2.224989e-01,1.947060e-01,1.725821e-01,1.545096e-01,1.394456e-01,&
311  & 1.288683e-01,1.188852e-01,1.103317e-01,1.029214e-01,9.643967e-02,&
312  & 9.072239e-02,8.564194e-02,8.109758e-02,7.700875e-02,7.331026e-02,&
313  & 6.994879e-02,6.688028e-02,6.406807e-02,6.148133e-02,5.909400e-02,&
314  & 5.688388e-02,5.483197e-02,5.292185e-02,5.103763e-02,4.942905e-02,&
315  & 4.791039e-02,4.647438e-02,4.511453e-02,4.382497e-02,4.260043e-02,&
316  & 4.143616e-02,4.032784e-02,3.927155e-02,3.826375e-02,3.730117e-02,&
317  & 3.638087e-02,3.550013e-02,3.465646e-02,3.384759e-02,3.307141e-02,&
318  & 3.232598e-02,3.160953e-02,3.092040e-02,3.025706e-02,2.961810e-02,&
319  & 2.900220e-02,2.840814e-02,2.783478e-02,2.728106e-02,2.674599e-02,&
320  & 2.622864e-02,2.572816e-02,2.5244e-02 /
321  data extliq1(:, 22) / &
322  & 7.416833e-01,4.959591e-01,3.775057e-01,3.056353e-01,2.565943e-01,&
323  & 2.206935e-01,1.931479e-01,1.712860e-01,1.534837e-01,1.386906e-01,&
324  & 1.281198e-01,1.182344e-01,1.097595e-01,1.024137e-01,9.598552e-02,&
325  & 9.031320e-02,8.527093e-02,8.075927e-02,7.669869e-02,7.302481e-02,&
326  & 6.968491e-02,6.663542e-02,6.384008e-02,6.126838e-02,5.889452e-02,&
327  & 5.669654e-02,5.465558e-02,5.275540e-02,5.087937e-02,4.927904e-02,&
328  & 4.776796e-02,4.633895e-02,4.498557e-02,4.370202e-02,4.248306e-02,&
329  & 4.132399e-02,4.022052e-02,3.916878e-02,3.816523e-02,3.720665e-02,&
330  & 3.629011e-02,3.541290e-02,3.457257e-02,3.376685e-02,3.299365e-02,&
331  & 3.225105e-02,3.153728e-02,3.085069e-02,3.018977e-02,2.955310e-02,&
332  & 2.893940e-02,2.834742e-02,2.777606e-02,2.722424e-02,2.669099e-02,&
333  & 2.617539e-02,2.567658e-02,2.5194e-02 /
334  data extliq1(:, 23) / &
335  & 7.058580e-01,4.866573e-01,3.712238e-01,2.998638e-01,2.513441e-01,&
336  & 2.161972e-01,1.895576e-01,1.686669e-01,1.518437e-01,1.380046e-01,&
337  & 1.267564e-01,1.170399e-01,1.087026e-01,1.014704e-01,9.513729e-02,&
338  & 8.954555e-02,8.457221e-02,8.012009e-02,7.611136e-02,7.248294e-02,&
339  & 6.918317e-02,6.616934e-02,6.340584e-02,6.086273e-02,5.851465e-02,&
340  & 5.634001e-02,5.432027e-02,5.243946e-02,5.058070e-02,4.899628e-02,&
341  & 4.749975e-02,4.608411e-02,4.474303e-02,4.347082e-02,4.226237e-02,&
342  & 4.111303e-02,4.001861e-02,3.897528e-02,3.797959e-02,3.702835e-02,&
343  & 3.611867e-02,3.524791e-02,3.441364e-02,3.361360e-02,3.284577e-02,&
344  & 3.210823e-02,3.139923e-02,3.071716e-02,3.006052e-02,2.942791e-02,&
345  & 2.881806e-02,2.822974e-02,2.766185e-02,2.711335e-02,2.658326e-02,&
346  & 2.607066e-02,2.557473e-02,2.5095e-02 /
347  data extliq1(:, 24) / &
348  & 6.822779e-01,4.750373e-01,3.634834e-01,2.940726e-01,2.468060e-01,&
349  & 2.125768e-01,1.866586e-01,1.663588e-01,1.500326e-01,1.366192e-01,&
350  & 1.253472e-01,1.158052e-01,1.076101e-01,1.004954e-01,9.426089e-02,&
351  & 8.875268e-02,8.385090e-02,7.946063e-02,7.550578e-02,7.192466e-02,&
352  & 6.866669e-02,6.569001e-02,6.295971e-02,6.044642e-02,5.812526e-02,&
353  & 5.597500e-02,5.397746e-02,5.211690e-02,5.027505e-02,4.870703e-02,&
354  & 4.722555e-02,4.582373e-02,4.449540e-02,4.323497e-02,4.203742e-02,&
355  & 4.089821e-02,3.981321e-02,3.877867e-02,3.779118e-02,3.684762e-02,&
356  & 3.594514e-02,3.508114e-02,3.425322e-02,3.345917e-02,3.269698e-02,&
357  & 3.196477e-02,3.126082e-02,3.058352e-02,2.993141e-02,2.930310e-02,&
358  & 2.869732e-02,2.811289e-02,2.754869e-02,2.700371e-02,2.647698e-02,&
359  & 2.596760e-02,2.547473e-02,2.4998e-02 /
360  data extliq1(:, 25) / &
361  & 6.666233e-01,4.662044e-01,3.579517e-01,2.902984e-01,2.440475e-01,&
362  & 2.104431e-01,1.849277e-01,1.648970e-01,1.487555e-01,1.354714e-01,&
363  & 1.244173e-01,1.149913e-01,1.068903e-01,9.985323e-02,9.368351e-02,&
364  & 8.823009e-02,8.337507e-02,7.902511e-02,7.510529e-02,7.155482e-02,&
365  & 6.832386e-02,6.537113e-02,6.266218e-02,6.016802e-02,5.786408e-02,&
366  & 5.572939e-02,5.374598e-02,5.189830e-02,5.006825e-02,4.851081e-02,&
367  & 4.703906e-02,4.564623e-02,4.432621e-02,4.307349e-02,4.188312e-02,&
368  & 4.075060e-02,3.967183e-02,3.864313e-02,3.766111e-02,3.672269e-02,&
369  & 3.582505e-02,3.496559e-02,3.414196e-02,3.335198e-02,3.259362e-02,&
370  & 3.186505e-02,3.116454e-02,3.049052e-02,2.984152e-02,2.921617e-02,&
371  & 2.861322e-02,2.803148e-02,2.746986e-02,2.692733e-02,2.640295e-02,&
372  & 2.589582e-02,2.540510e-02,2.4930e-02 /
373  data extliq1(:, 26) / &
374  & 6.535669e-01,4.585865e-01,3.529226e-01,2.867245e-01,2.413848e-01,&
375  & 2.083956e-01,1.833191e-01,1.636150e-01,1.477247e-01,1.346392e-01,&
376  & 1.236449e-01,1.143095e-01,1.062828e-01,9.930773e-02,9.319029e-02,&
377  & 8.778150e-02,8.296497e-02,7.864847e-02,7.475799e-02,7.123343e-02,&
378  & 6.802549e-02,6.509332e-02,6.240285e-02,5.992538e-02,5.763657e-02,&
379  & 5.551566e-02,5.354483e-02,5.170870e-02,4.988866e-02,4.834061e-02,&
380  & 4.687751e-02,4.549264e-02,4.417999e-02,4.293410e-02,4.175006e-02,&
381  & 4.062344e-02,3.955019e-02,3.852663e-02,3.754943e-02,3.661553e-02,&
382  & 3.572214e-02,3.486669e-02,3.404683e-02,3.326040e-02,3.250542e-02,&
383  & 3.178003e-02,3.108254e-02,3.041139e-02,2.976511e-02,2.914235e-02,&
384  & 2.854187e-02,2.796247e-02,2.740309e-02,2.686271e-02,2.634038e-02,&
385  & 2.583520e-02,2.534636e-02,2.4873e-02 /
386  data extliq1(:, 27) / &
387  & 6.448790e-01,4.541425e-01,3.503348e-01,2.850494e-01,2.401966e-01,&
388  & 2.074811e-01,1.825631e-01,1.629515e-01,1.471142e-01,1.340574e-01,&
389  & 1.231462e-01,1.138628e-01,1.058802e-01,9.894286e-02,9.285818e-02,&
390  & 8.747802e-02,8.268676e-02,7.839271e-02,7.452230e-02,7.101580e-02,&
391  & 6.782418e-02,6.490685e-02,6.222991e-02,5.976484e-02,5.748742e-02,&
392  & 5.537703e-02,5.341593e-02,5.158883e-02,4.977355e-02,4.823172e-02,&
393  & 4.677430e-02,4.539465e-02,4.408680e-02,4.284533e-02,4.166539e-02,&
394  & 4.054257e-02,3.947283e-02,3.845256e-02,3.747842e-02,3.654737e-02,&
395  & 3.565665e-02,3.480370e-02,3.398620e-02,3.320198e-02,3.244908e-02,&
396  & 3.172566e-02,3.103002e-02,3.036062e-02,2.971600e-02,2.909482e-02,&
397  & 2.849582e-02,2.791785e-02,2.735982e-02,2.682072e-02,2.629960e-02,&
398  & 2.579559e-02,2.530786e-02,2.4836e-02 /
399  data extliq1(:, 28) / &
400  & 6.422688e-01,4.528453e-01,3.497232e-01,2.847724e-01,2.400815e-01,&
401  & 2.074403e-01,1.825502e-01,1.629415e-01,1.470934e-01,1.340183e-01,&
402  & 1.230935e-01,1.138049e-01,1.058201e-01,9.888245e-02,9.279878e-02,&
403  & 8.742053e-02,8.263175e-02,7.834058e-02,7.447327e-02,7.097000e-02,&
404  & 6.778167e-02,6.486765e-02,6.219400e-02,5.973215e-02,5.745790e-02,&
405  & 5.535059e-02,5.339250e-02,5.156831e-02,4.975308e-02,4.821235e-02,&
406  & 4.675596e-02,4.537727e-02,4.407030e-02,4.282968e-02,4.165053e-02,&
407  & 4.052845e-02,3.945941e-02,3.843980e-02,3.746628e-02,3.653583e-02,&
408  & 3.564567e-02,3.479326e-02,3.397626e-02,3.319253e-02,3.244008e-02,&
409  & 3.171711e-02,3.102189e-02,3.035289e-02,2.970866e-02,2.908784e-02,&
410  & 2.848920e-02,2.791156e-02,2.735385e-02,2.681507e-02,2.629425e-02,&
411  & 2.579053e-02,2.530308e-02,2.4831e-02 /
412  data extliq1(:, 29) / &
413  & 4.614710e-01,4.556116e-01,4.056568e-01,3.529833e-01,3.060334e-01,&
414  & 2.658127e-01,2.316095e-01,2.024325e-01,1.773749e-01,1.556867e-01,&
415  & 1.455558e-01,1.332882e-01,1.229052e-01,1.140067e-01,1.062981e-01,&
416  & 9.955703e-02,9.361333e-02,8.833420e-02,8.361467e-02,7.937071e-02,&
417  & 7.553420e-02,7.204942e-02,6.887031e-02,6.595851e-02,6.328178e-02,&
418  & 6.081286e-02,5.852854e-02,5.640892e-02,5.431269e-02,5.252561e-02,&
419  & 5.084345e-02,4.925727e-02,4.775910e-02,4.634182e-02,4.499907e-02,&
420  & 4.372512e-02,4.251484e-02,4.136357e-02,4.026710e-02,3.922162e-02,&
421  & 3.822365e-02,3.727004e-02,3.635790e-02,3.548457e-02,3.464764e-02,&
422  & 3.384488e-02,3.307424e-02,3.233384e-02,3.162192e-02,3.093688e-02,&
423  & 3.027723e-02,2.964158e-02,2.902864e-02,2.843722e-02,2.786621e-02,&
424  & 2.731457e-02,2.678133e-02,2.6266e-02 /
425 
426 ! --- ... single scattering albedo from hu and stamnes
427  data ssaliq1(:, 16) / &
428  & 8.143821e-01,7.836739e-01,7.550722e-01,7.306269e-01,7.105612e-01,&
429  & 6.946649e-01,6.825556e-01,6.737762e-01,6.678448e-01,6.642830e-01,&
430  & 6.679741e-01,6.584607e-01,6.505598e-01,6.440951e-01,6.388901e-01,&
431  & 6.347689e-01,6.315549e-01,6.290718e-01,6.271432e-01,6.255928e-01,&
432  & 6.242441e-01,6.229207e-01,6.214464e-01,6.196445e-01,6.173388e-01,&
433  & 6.143527e-01,6.105099e-01,6.056339e-01,6.108290e-01,6.073939e-01,&
434  & 6.043073e-01,6.015473e-01,5.990913e-01,5.969173e-01,5.950028e-01,&
435  & 5.933257e-01,5.918636e-01,5.905944e-01,5.894957e-01,5.885453e-01,&
436  & 5.877209e-01,5.870003e-01,5.863611e-01,5.857811e-01,5.852381e-01,&
437  & 5.847098e-01,5.841738e-01,5.836081e-01,5.829901e-01,5.822979e-01,&
438  & 5.815089e-01,5.806011e-01,5.795521e-01,5.783396e-01,5.769413e-01,&
439  & 5.753351e-01,5.734986e-01,5.7141e-01 /
440  data ssaliq1(:, 17) / &
441  & 8.165821e-01,8.002015e-01,7.816921e-01,7.634131e-01,7.463721e-01,&
442  & 7.312469e-01,7.185883e-01,7.088975e-01,7.026671e-01,7.004020e-01,&
443  & 7.042138e-01,6.960930e-01,6.894243e-01,6.840459e-01,6.797957e-01,&
444  & 6.765119e-01,6.740325e-01,6.721955e-01,6.708391e-01,6.698013e-01,&
445  & 6.689201e-01,6.680339e-01,6.669805e-01,6.655982e-01,6.637250e-01,&
446  & 6.611992e-01,6.578588e-01,6.535420e-01,6.584449e-01,6.553992e-01,&
447  & 6.526547e-01,6.501917e-01,6.479905e-01,6.460313e-01,6.442945e-01,&
448  & 6.427605e-01,6.414094e-01,6.402217e-01,6.391775e-01,6.382573e-01,&
449  & 6.374413e-01,6.367099e-01,6.360433e-01,6.354218e-01,6.348257e-01,&
450  & 6.342355e-01,6.336313e-01,6.329935e-01,6.323023e-01,6.315383e-01,&
451  & 6.306814e-01,6.297122e-01,6.286110e-01,6.273579e-01,6.259333e-01,&
452  & 6.243176e-01,6.224910e-01,6.2043e-01 /
453  data ssaliq1(:, 18) / &
454  & 9.900163e-01,9.854307e-01,9.797730e-01,9.733113e-01,9.664245e-01,&
455  & 9.594976e-01,9.529055e-01,9.470112e-01,9.421695e-01,9.387304e-01,&
456  & 9.344918e-01,9.305302e-01,9.267048e-01,9.230072e-01,9.194289e-01,&
457  & 9.159616e-01,9.125968e-01,9.093260e-01,9.061409e-01,9.030330e-01,&
458  & 8.999940e-01,8.970154e-01,8.940888e-01,8.912058e-01,8.883579e-01,&
459  & 8.855368e-01,8.827341e-01,8.799413e-01,8.777423e-01,8.749566e-01,&
460  & 8.722298e-01,8.695605e-01,8.669469e-01,8.643875e-01,8.618806e-01,&
461  & 8.594246e-01,8.570179e-01,8.546589e-01,8.523459e-01,8.500773e-01,&
462  & 8.478516e-01,8.456670e-01,8.435219e-01,8.414148e-01,8.393439e-01,&
463  & 8.373078e-01,8.353047e-01,8.333330e-01,8.313911e-01,8.294774e-01,&
464  & 8.275904e-01,8.257282e-01,8.238893e-01,8.220721e-01,8.202751e-01,&
465  & 8.184965e-01,8.167346e-01,8.1499e-01 /
466  data ssaliq1(:, 19) / &
467  & 9.999916e-01,9.987396e-01,9.966900e-01,9.950738e-01,9.937531e-01,&
468  & 9.925912e-01,9.914525e-01,9.902018e-01,9.887046e-01,9.868263e-01,&
469  & 9.849039e-01,9.832372e-01,9.815265e-01,9.797770e-01,9.779940e-01,&
470  & 9.761827e-01,9.743481e-01,9.724955e-01,9.706303e-01,9.687575e-01,&
471  & 9.668823e-01,9.650100e-01,9.631457e-01,9.612947e-01,9.594622e-01,&
472  & 9.576534e-01,9.558734e-01,9.541275e-01,9.522059e-01,9.504258e-01,&
473  & 9.486459e-01,9.468676e-01,9.450921e-01,9.433208e-01,9.415548e-01,&
474  & 9.397955e-01,9.380441e-01,9.363022e-01,9.345706e-01,9.328510e-01,&
475  & 9.311445e-01,9.294524e-01,9.277761e-01,9.261167e-01,9.244755e-01,&
476  & 9.228540e-01,9.212534e-01,9.196748e-01,9.181197e-01,9.165894e-01,&
477  & 9.150851e-01,9.136080e-01,9.121596e-01,9.107410e-01,9.093536e-01,&
478  & 9.079987e-01,9.066775e-01,9.0539e-01 /
479  data ssaliq1(:, 20) / &
480  & 9.979493e-01,9.964113e-01,9.950014e-01,9.937045e-01,9.924964e-01,&
481  & 9.913546e-01,9.902575e-01,9.891843e-01,9.881136e-01,9.870238e-01,&
482  & 9.859934e-01,9.849372e-01,9.838873e-01,9.828434e-01,9.818052e-01,&
483  & 9.807725e-01,9.797450e-01,9.787225e-01,9.777047e-01,9.766914e-01,&
484  & 9.756823e-01,9.746771e-01,9.736756e-01,9.726775e-01,9.716827e-01,&
485  & 9.706907e-01,9.697014e-01,9.687145e-01,9.678060e-01,9.668108e-01,&
486  & 9.658218e-01,9.648391e-01,9.638629e-01,9.628936e-01,9.619313e-01,&
487  & 9.609763e-01,9.600287e-01,9.590888e-01,9.581569e-01,9.572330e-01,&
488  & 9.563176e-01,9.554108e-01,9.545128e-01,9.536239e-01,9.527443e-01,&
489  & 9.518741e-01,9.510137e-01,9.501633e-01,9.493230e-01,9.484931e-01,&
490  & 9.476740e-01,9.468656e-01,9.460683e-01,9.452824e-01,9.445080e-01,&
491  & 9.437454e-01,9.429948e-01,9.4226e-01 /
492  data ssaliq1(:, 21) / &
493  & 9.988742e-01,9.982668e-01,9.976935e-01,9.971497e-01,9.966314e-01,&
494  & 9.961344e-01,9.956545e-01,9.951873e-01,9.947286e-01,9.942741e-01,&
495  & 9.938457e-01,9.933947e-01,9.929473e-01,9.925032e-01,9.920621e-01,&
496  & 9.916237e-01,9.911875e-01,9.907534e-01,9.903209e-01,9.898898e-01,&
497  & 9.894597e-01,9.890304e-01,9.886015e-01,9.881726e-01,9.877435e-01,&
498  & 9.873138e-01,9.868833e-01,9.864516e-01,9.860698e-01,9.856317e-01,&
499  & 9.851957e-01,9.847618e-01,9.843302e-01,9.839008e-01,9.834739e-01,&
500  & 9.830494e-01,9.826275e-01,9.822083e-01,9.817918e-01,9.813782e-01,&
501  & 9.809675e-01,9.805598e-01,9.801552e-01,9.797538e-01,9.793556e-01,&
502  & 9.789608e-01,9.785695e-01,9.781817e-01,9.777975e-01,9.774171e-01,&
503  & 9.770404e-01,9.766676e-01,9.762988e-01,9.759340e-01,9.755733e-01,&
504  & 9.752169e-01,9.748649e-01,9.7452e-01 /
505  data ssaliq1(:, 22) / &
506  & 9.994441e-01,9.991608e-01,9.988949e-01,9.986439e-01,9.984054e-01,&
507  & 9.981768e-01,9.979557e-01,9.977396e-01,9.975258e-01,9.973120e-01,&
508  & 9.971011e-01,9.968852e-01,9.966708e-01,9.964578e-01,9.962462e-01,&
509  & 9.960357e-01,9.958264e-01,9.956181e-01,9.954108e-01,9.952043e-01,&
510  & 9.949987e-01,9.947937e-01,9.945892e-01,9.943853e-01,9.941818e-01,&
511  & 9.939786e-01,9.937757e-01,9.935728e-01,9.933922e-01,9.931825e-01,&
512  & 9.929739e-01,9.927661e-01,9.925592e-01,9.923534e-01,9.921485e-01,&
513  & 9.919447e-01,9.917421e-01,9.915406e-01,9.913403e-01,9.911412e-01,&
514  & 9.909435e-01,9.907470e-01,9.905519e-01,9.903581e-01,9.901659e-01,&
515  & 9.899751e-01,9.897858e-01,9.895981e-01,9.894120e-01,9.892276e-01,&
516  & 9.890447e-01,9.888637e-01,9.886845e-01,9.885070e-01,9.883314e-01,&
517  & 9.881576e-01,9.879859e-01,9.8782e-01 /
518  data ssaliq1(:, 23) / &
519  & 9.999138e-01,9.998730e-01,9.998338e-01,9.997965e-01,9.997609e-01,&
520  & 9.997270e-01,9.996944e-01,9.996629e-01,9.996321e-01,9.996016e-01,&
521  & 9.995690e-01,9.995372e-01,9.995057e-01,9.994744e-01,9.994433e-01,&
522  & 9.994124e-01,9.993817e-01,9.993510e-01,9.993206e-01,9.992903e-01,&
523  & 9.992600e-01,9.992299e-01,9.991998e-01,9.991698e-01,9.991398e-01,&
524  & 9.991098e-01,9.990799e-01,9.990499e-01,9.990231e-01,9.989920e-01,&
525  & 9.989611e-01,9.989302e-01,9.988996e-01,9.988690e-01,9.988386e-01,&
526  & 9.988084e-01,9.987783e-01,9.987485e-01,9.987187e-01,9.986891e-01,&
527  & 9.986598e-01,9.986306e-01,9.986017e-01,9.985729e-01,9.985443e-01,&
528  & 9.985160e-01,9.984879e-01,9.984600e-01,9.984324e-01,9.984050e-01,&
529  & 9.983778e-01,9.983509e-01,9.983243e-01,9.982980e-01,9.982719e-01,&
530  & 9.982461e-01,9.982206e-01,9.9820e-01 /
531  data ssaliq1(:, 24) / &
532  & 9.999985e-01,9.999979e-01,9.999972e-01,9.999966e-01,9.999961e-01,&
533  & 9.999955e-01,9.999950e-01,9.999944e-01,9.999938e-01,9.999933e-01,&
534  & 9.999927e-01,9.999921e-01,9.999915e-01,9.999910e-01,9.999904e-01,&
535  & 9.999899e-01,9.999893e-01,9.999888e-01,9.999882e-01,9.999877e-01,&
536  & 9.999871e-01,9.999866e-01,9.999861e-01,9.999855e-01,9.999850e-01,&
537  & 9.999844e-01,9.999839e-01,9.999833e-01,9.999828e-01,9.999823e-01,&
538  & 9.999817e-01,9.999812e-01,9.999807e-01,9.999801e-01,9.999796e-01,&
539  & 9.999791e-01,9.999786e-01,9.999781e-01,9.999776e-01,9.999770e-01,&
540  & 9.999765e-01,9.999761e-01,9.999756e-01,9.999751e-01,9.999746e-01,&
541  & 9.999741e-01,9.999736e-01,9.999732e-01,9.999727e-01,9.999722e-01,&
542  & 9.999718e-01,9.999713e-01,9.999709e-01,9.999705e-01,9.999701e-01,&
543  & 9.999697e-01,9.999692e-01,9.9997e-01 /
544  data ssaliq1(:, 25) / &
545  & 9.999999e-01,9.999998e-01,9.999997e-01,9.999997e-01,9.999997e-01,&
546  & 9.999996e-01,9.999996e-01,9.999995e-01,9.999995e-01,9.999994e-01,&
547  & 9.999994e-01,9.999993e-01,9.999993e-01,9.999992e-01,9.999992e-01,&
548  & 9.999991e-01,9.999991e-01,9.999991e-01,9.999990e-01,9.999989e-01,&
549  & 9.999989e-01,9.999989e-01,9.999988e-01,9.999988e-01,9.999987e-01,&
550  & 9.999987e-01,9.999986e-01,9.999986e-01,9.999985e-01,9.999985e-01,&
551  & 9.999984e-01,9.999984e-01,9.999984e-01,9.999983e-01,9.999983e-01,&
552  & 9.999982e-01,9.999982e-01,9.999982e-01,9.999981e-01,9.999980e-01,&
553  & 9.999980e-01,9.999980e-01,9.999979e-01,9.999979e-01,9.999978e-01,&
554  & 9.999978e-01,9.999977e-01,9.999977e-01,9.999977e-01,9.999976e-01,&
555  & 9.999976e-01,9.999975e-01,9.999975e-01,9.999974e-01,9.999974e-01,&
556  & 9.999974e-01,9.999973e-01,1.0000e+00 /
557  data ssaliq1(:, 26) / &
558  & 9.999997e-01,9.999995e-01,9.999993e-01,9.999992e-01,9.999990e-01,&
559  & 9.999989e-01,9.999988e-01,9.999987e-01,9.999986e-01,9.999985e-01,&
560  & 9.999984e-01,9.999983e-01,9.999982e-01,9.999981e-01,9.999980e-01,&
561  & 9.999978e-01,9.999977e-01,9.999976e-01,9.999975e-01,9.999974e-01,&
562  & 9.999973e-01,9.999972e-01,9.999970e-01,9.999969e-01,9.999968e-01,&
563  & 9.999967e-01,9.999966e-01,9.999965e-01,9.999964e-01,9.999963e-01,&
564  & 9.999962e-01,9.999961e-01,9.999959e-01,9.999958e-01,9.999957e-01,&
565  & 9.999956e-01,9.999955e-01,9.999954e-01,9.999953e-01,9.999952e-01,&
566  & 9.999951e-01,9.999949e-01,9.999949e-01,9.999947e-01,9.999946e-01,&
567  & 9.999945e-01,9.999944e-01,9.999943e-01,9.999942e-01,9.999941e-01,&
568  & 9.999940e-01,9.999939e-01,9.999938e-01,9.999937e-01,9.999936e-01,&
569  & 9.999935e-01,9.999934e-01,9.9999e-01 /
570  data ssaliq1(:, 27) / &
571  & 9.999984e-01,9.999976e-01,9.999969e-01,9.999962e-01,9.999956e-01,&
572  & 9.999950e-01,9.999945e-01,9.999940e-01,9.999935e-01,9.999931e-01,&
573  & 9.999926e-01,9.999920e-01,9.999914e-01,9.999908e-01,9.999903e-01,&
574  & 9.999897e-01,9.999891e-01,9.999886e-01,9.999880e-01,9.999874e-01,&
575  & 9.999868e-01,9.999863e-01,9.999857e-01,9.999851e-01,9.999846e-01,&
576  & 9.999840e-01,9.999835e-01,9.999829e-01,9.999824e-01,9.999818e-01,&
577  & 9.999812e-01,9.999806e-01,9.999800e-01,9.999795e-01,9.999789e-01,&
578  & 9.999783e-01,9.999778e-01,9.999773e-01,9.999767e-01,9.999761e-01,&
579  & 9.999756e-01,9.999750e-01,9.999745e-01,9.999739e-01,9.999734e-01,&
580  & 9.999729e-01,9.999723e-01,9.999718e-01,9.999713e-01,9.999708e-01,&
581  & 9.999703e-01,9.999697e-01,9.999692e-01,9.999687e-01,9.999683e-01,&
582  & 9.999678e-01,9.999673e-01,9.9997e-01 /
583  data ssaliq1(:, 28) / &
584  & 9.999981e-01,9.999973e-01,9.999965e-01,9.999958e-01,9.999951e-01,&
585  & 9.999943e-01,9.999937e-01,9.999930e-01,9.999924e-01,9.999918e-01,&
586  & 9.999912e-01,9.999905e-01,9.999897e-01,9.999890e-01,9.999883e-01,&
587  & 9.999876e-01,9.999869e-01,9.999862e-01,9.999855e-01,9.999847e-01,&
588  & 9.999840e-01,9.999834e-01,9.999827e-01,9.999819e-01,9.999812e-01,&
589  & 9.999805e-01,9.999799e-01,9.999791e-01,9.999785e-01,9.999778e-01,&
590  & 9.999771e-01,9.999764e-01,9.999757e-01,9.999750e-01,9.999743e-01,&
591  & 9.999736e-01,9.999729e-01,9.999722e-01,9.999715e-01,9.999709e-01,&
592  & 9.999701e-01,9.999695e-01,9.999688e-01,9.999682e-01,9.999675e-01,&
593  & 9.999669e-01,9.999662e-01,9.999655e-01,9.999649e-01,9.999642e-01,&
594  & 9.999636e-01,9.999630e-01,9.999624e-01,9.999618e-01,9.999612e-01,&
595  & 9.999606e-01,9.999600e-01,9.9996e-01 /
596  data ssaliq1(:, 29) / &
597  & 8.505737e-01,8.465102e-01,8.394829e-01,8.279508e-01,8.110806e-01,&
598  & 7.900397e-01,7.669615e-01,7.444422e-01,7.253055e-01,7.124831e-01,&
599  & 7.016434e-01,6.885485e-01,6.767340e-01,6.661029e-01,6.565577e-01,&
600  & 6.480013e-01,6.403373e-01,6.334697e-01,6.273034e-01,6.217440e-01,&
601  & 6.166983e-01,6.120740e-01,6.077796e-01,6.037249e-01,5.998207e-01,&
602  & 5.959788e-01,5.921123e-01,5.881354e-01,5.891285e-01,5.851143e-01,&
603  & 5.814653e-01,5.781606e-01,5.751792e-01,5.724998e-01,5.701016e-01,&
604  & 5.679634e-01,5.660642e-01,5.643829e-01,5.628984e-01,5.615898e-01,&
605  & 5.604359e-01,5.594158e-01,5.585083e-01,5.576924e-01,5.569470e-01,&
606  & 5.562512e-01,5.555838e-01,5.549239e-01,5.542503e-01,5.535420e-01,&
607  & 5.527781e-01,5.519374e-01,5.509989e-01,5.499417e-01,5.487445e-01,&
608  & 5.473865e-01,5.458466e-01,5.4410e-01 /
609 
610 ! --- ... asymmetry parameter from hu and stamnes
611  data asyliq1(:, 16) / &
612  & 8.133297e-01,8.133528e-01,8.173865e-01,8.243205e-01,8.333063e-01,&
613  & 8.436317e-01,8.546611e-01,8.657934e-01,8.764345e-01,8.859837e-01,&
614  & 8.627394e-01,8.824569e-01,8.976887e-01,9.089541e-01,9.167699e-01,&
615  & 9.216517e-01,9.241147e-01,9.246743e-01,9.238469e-01,9.221504e-01,&
616  & 9.201045e-01,9.182299e-01,9.170491e-01,9.170862e-01,9.188653e-01,&
617  & 9.229111e-01,9.297468e-01,9.398950e-01,9.203269e-01,9.260693e-01,&
618  & 9.309373e-01,9.349918e-01,9.382935e-01,9.409030e-01,9.428809e-01,&
619  & 9.442881e-01,9.451851e-01,9.456331e-01,9.456926e-01,9.454247e-01,&
620  & 9.448902e-01,9.441503e-01,9.432661e-01,9.422987e-01,9.413094e-01,&
621  & 9.403594e-01,9.395102e-01,9.388230e-01,9.383594e-01,9.381810e-01,&
622  & 9.383489e-01,9.389251e-01,9.399707e-01,9.415475e-01,9.437167e-01,&
623  & 9.465399e-01,9.500786e-01,9.5439e-01 /
624  data asyliq1(:, 17) / &
625  & 8.794448e-01,8.819306e-01,8.837667e-01,8.853832e-01,8.871010e-01,&
626  & 8.892675e-01,8.922584e-01,8.964666e-01,9.022940e-01,9.101456e-01,&
627  & 8.839999e-01,9.035610e-01,9.184568e-01,9.292315e-01,9.364282e-01,&
628  & 9.405887e-01,9.422554e-01,9.419703e-01,9.402759e-01,9.377159e-01,&
629  & 9.348345e-01,9.321769e-01,9.302888e-01,9.297166e-01,9.310075e-01,&
630  & 9.347080e-01,9.413643e-01,9.515216e-01,9.306286e-01,9.361781e-01,&
631  & 9.408374e-01,9.446692e-01,9.477363e-01,9.501013e-01,9.518268e-01,&
632  & 9.529756e-01,9.536105e-01,9.537938e-01,9.535886e-01,9.530574e-01,&
633  & 9.522633e-01,9.512688e-01,9.501370e-01,9.489306e-01,9.477126e-01,&
634  & 9.465459e-01,9.454934e-01,9.446183e-01,9.439833e-01,9.436519e-01,&
635  & 9.436866e-01,9.441508e-01,9.451073e-01,9.466195e-01,9.487501e-01,&
636  & 9.515621e-01,9.551185e-01,9.5948e-01 /
637  data asyliq1(:, 18) / &
638  & 8.478817e-01,8.269312e-01,8.161352e-01,8.135960e-01,8.173586e-01,&
639  & 8.254167e-01,8.357072e-01,8.461167e-01,8.544952e-01,8.586776e-01,&
640  & 8.335562e-01,8.524273e-01,8.669052e-01,8.775014e-01,8.847277e-01,&
641  & 8.890958e-01,8.911173e-01,8.913038e-01,8.901669e-01,8.882182e-01,&
642  & 8.859692e-01,8.839315e-01,8.826164e-01,8.825356e-01,8.842004e-01,&
643  & 8.881223e-01,8.948131e-01,9.047837e-01,8.855951e-01,8.911796e-01,&
644  & 8.959229e-01,8.998837e-01,9.031209e-01,9.056939e-01,9.076609e-01,&
645  & 9.090812e-01,9.100134e-01,9.105167e-01,9.106496e-01,9.104712e-01,&
646  & 9.100404e-01,9.094159e-01,9.086568e-01,9.078218e-01,9.069697e-01,&
647  & 9.061595e-01,9.054499e-01,9.048999e-01,9.045683e-01,9.045142e-01,&
648  & 9.047962e-01,9.054730e-01,9.066037e-01,9.082472e-01,9.104623e-01,&
649  & 9.133079e-01,9.168427e-01,9.2113e-01 /
650  data asyliq1(:, 19) / &
651  & 8.216697e-01,7.982871e-01,7.891147e-01,7.909083e-01,8.003833e-01,&
652  & 8.142516e-01,8.292290e-01,8.420356e-01,8.493945e-01,8.480316e-01,&
653  & 8.212381e-01,8.394984e-01,8.534095e-01,8.634813e-01,8.702242e-01,&
654  & 8.741483e-01,8.757638e-01,8.755808e-01,8.741095e-01,8.718604e-01,&
655  & 8.693433e-01,8.670686e-01,8.655464e-01,8.652872e-01,8.668006e-01,&
656  & 8.705973e-01,8.771874e-01,8.870809e-01,8.678284e-01,8.732315e-01,&
657  & 8.778084e-01,8.816166e-01,8.847146e-01,8.871603e-01,8.890116e-01,&
658  & 8.903266e-01,8.911632e-01,8.915796e-01,8.916337e-01,8.913834e-01,&
659  & 8.908869e-01,8.902022e-01,8.893873e-01,8.885001e-01,8.875986e-01,&
660  & 8.867411e-01,8.859852e-01,8.853891e-01,8.850111e-01,8.849089e-01,&
661  & 8.851405e-01,8.857639e-01,8.868372e-01,8.884185e-01,8.905656e-01,&
662  & 8.933368e-01,8.967899e-01,9.0098e-01 /
663  data asyliq1(:, 20) / &
664  & 8.063610e-01,7.938147e-01,7.921304e-01,7.985092e-01,8.101339e-01,&
665  & 8.242175e-01,8.379913e-01,8.486920e-01,8.535547e-01,8.498083e-01,&
666  & 8.224849e-01,8.405509e-01,8.542436e-01,8.640770e-01,8.705653e-01,&
667  & 8.742227e-01,8.755630e-01,8.751004e-01,8.733491e-01,8.708231e-01,&
668  & 8.680365e-01,8.655035e-01,8.637381e-01,8.632544e-01,8.645665e-01,&
669  & 8.681885e-01,8.746346e-01,8.844188e-01,8.648180e-01,8.700563e-01,&
670  & 8.744672e-01,8.781087e-01,8.810393e-01,8.833174e-01,8.850011e-01,&
671  & 8.861485e-01,8.868183e-01,8.870687e-01,8.869579e-01,8.865441e-01,&
672  & 8.858857e-01,8.850412e-01,8.840686e-01,8.830263e-01,8.819726e-01,&
673  & 8.809658e-01,8.800642e-01,8.793260e-01,8.788099e-01,8.785737e-01,&
674  & 8.786758e-01,8.791746e-01,8.801283e-01,8.815955e-01,8.836340e-01,&
675  & 8.863024e-01,8.896592e-01,8.9376e-01 /
676  data asyliq1(:, 21) / &
677  & 7.885899e-01,7.937172e-01,8.020658e-01,8.123971e-01,8.235502e-01,&
678  & 8.343776e-01,8.437336e-01,8.504711e-01,8.534421e-01,8.514978e-01,&
679  & 8.238888e-01,8.417463e-01,8.552057e-01,8.647853e-01,8.710038e-01,&
680  & 8.743798e-01,8.754319e-01,8.746786e-01,8.726386e-01,8.698303e-01,&
681  & 8.667724e-01,8.639836e-01,8.619823e-01,8.612870e-01,8.624165e-01,&
682  & 8.658893e-01,8.722241e-01,8.819394e-01,8.620216e-01,8.671239e-01,&
683  & 8.713983e-01,8.749032e-01,8.776970e-01,8.798385e-01,8.813860e-01,&
684  & 8.823980e-01,8.829332e-01,8.830500e-01,8.828068e-01,8.822623e-01,&
685  & 8.814750e-01,8.805031e-01,8.794056e-01,8.782407e-01,8.770672e-01,&
686  & 8.759432e-01,8.749275e-01,8.740784e-01,8.734547e-01,8.731146e-01,&
687  & 8.731170e-01,8.735199e-01,8.743823e-01,8.757625e-01,8.777191e-01,&
688  & 8.803105e-01,8.835953e-01,8.8763e-01 /
689  data asyliq1(:, 22) / &
690  & 7.811516e-01,7.962229e-01,8.096199e-01,8.212996e-01,8.312212e-01,&
691  & 8.393430e-01,8.456236e-01,8.500214e-01,8.524950e-01,8.530031e-01,&
692  & 8.251485e-01,8.429043e-01,8.562461e-01,8.656954e-01,8.717737e-01,&
693  & 8.750020e-01,8.759022e-01,8.749953e-01,8.728027e-01,8.698461e-01,&
694  & 8.666466e-01,8.637257e-01,8.616047e-01,8.608051e-01,8.618483e-01,&
695  & 8.652557e-01,8.715487e-01,8.812485e-01,8.611645e-01,8.662052e-01,&
696  & 8.704173e-01,8.738594e-01,8.765901e-01,8.786678e-01,8.801517e-01,&
697  & 8.810999e-01,8.815713e-01,8.816246e-01,8.813185e-01,8.807114e-01,&
698  & 8.798621e-01,8.788290e-01,8.776713e-01,8.764470e-01,8.752152e-01,&
699  & 8.740343e-01,8.729631e-01,8.720602e-01,8.713842e-01,8.709936e-01,&
700  & 8.709475e-01,8.713041e-01,8.721221e-01,8.734602e-01,8.753774e-01,&
701  & 8.779319e-01,8.811825e-01,8.8519e-01 /
702  data asyliq1(:, 23) / &
703  & 7.865744e-01,8.093340e-01,8.257596e-01,8.369940e-01,8.441574e-01,&
704  & 8.483602e-01,8.507096e-01,8.523139e-01,8.542834e-01,8.577321e-01,&
705  & 8.288960e-01,8.465308e-01,8.597175e-01,8.689830e-01,8.748542e-01,&
706  & 8.778584e-01,8.785222e-01,8.773728e-01,8.749370e-01,8.717419e-01,&
707  & 8.683145e-01,8.651816e-01,8.628704e-01,8.619077e-01,8.628205e-01,&
708  & 8.661356e-01,8.723803e-01,8.820815e-01,8.616715e-01,8.666389e-01,&
709  & 8.707753e-01,8.741398e-01,8.767912e-01,8.787885e-01,8.801908e-01,&
710  & 8.810570e-01,8.814460e-01,8.814167e-01,8.810283e-01,8.803395e-01,&
711  & 8.794095e-01,8.782971e-01,8.770613e-01,8.757610e-01,8.744553e-01,&
712  & 8.732031e-01,8.720634e-01,8.710951e-01,8.703572e-01,8.699086e-01,&
713  & 8.698084e-01,8.701155e-01,8.708887e-01,8.721872e-01,8.740698e-01,&
714  & 8.765957e-01,8.798235e-01,8.8381e-01 /
715  data asyliq1(:, 24) / &
716  & 8.069513e-01,8.262939e-01,8.398241e-01,8.486352e-01,8.538213e-01,&
717  & 8.564743e-01,8.576854e-01,8.585455e-01,8.601452e-01,8.635755e-01,&
718  & 8.337383e-01,8.512655e-01,8.643049e-01,8.733896e-01,8.790535e-01,&
719  & 8.818295e-01,8.822518e-01,8.808533e-01,8.781676e-01,8.747284e-01,&
720  & 8.710690e-01,8.677229e-01,8.652236e-01,8.641047e-01,8.648993e-01,&
721  & 8.681413e-01,8.743640e-01,8.841007e-01,8.633558e-01,8.682719e-01,&
722  & 8.723543e-01,8.756621e-01,8.782547e-01,8.801915e-01,8.815318e-01,&
723  & 8.823347e-01,8.826598e-01,8.825663e-01,8.821135e-01,8.813608e-01,&
724  & 8.803674e-01,8.791928e-01,8.778960e-01,8.765366e-01,8.751738e-01,&
725  & 8.738670e-01,8.726755e-01,8.716585e-01,8.708755e-01,8.703856e-01,&
726  & 8.702483e-01,8.705229e-01,8.712687e-01,8.725448e-01,8.744109e-01,&
727  & 8.769260e-01,8.801496e-01,8.8414e-01 /
728  data asyliq1(:, 25) / &
729  & 8.252182e-01,8.379244e-01,8.471709e-01,8.535760e-01,8.577540e-01,&
730  & 8.603183e-01,8.618820e-01,8.630578e-01,8.644587e-01,8.666970e-01,&
731  & 8.362159e-01,8.536817e-01,8.666387e-01,8.756240e-01,8.811746e-01,&
732  & 8.838273e-01,8.841191e-01,8.825871e-01,8.797681e-01,8.761992e-01,&
733  & 8.724174e-01,8.689593e-01,8.663623e-01,8.651632e-01,8.658988e-01,&
734  & 8.691064e-01,8.753226e-01,8.850847e-01,8.641620e-01,8.690500e-01,&
735  & 8.731026e-01,8.763795e-01,8.789400e-01,8.808438e-01,8.821503e-01,&
736  & 8.829191e-01,8.832095e-01,8.830813e-01,8.825938e-01,8.818064e-01,&
737  & 8.807787e-01,8.795704e-01,8.782408e-01,8.768493e-01,8.754557e-01,&
738  & 8.741193e-01,8.728995e-01,8.718561e-01,8.710484e-01,8.705360e-01,&
739  & 8.703782e-01,8.706347e-01,8.713650e-01,8.726285e-01,8.744849e-01,&
740  & 8.769933e-01,8.802136e-01,8.8421e-01 /
741  data asyliq1(:, 26) / &
742  & 8.370583e-01,8.467920e-01,8.537769e-01,8.585136e-01,8.615034e-01,&
743  & 8.632474e-01,8.642468e-01,8.650026e-01,8.660161e-01,8.677882e-01,&
744  & 8.369760e-01,8.543821e-01,8.672699e-01,8.761782e-01,8.816454e-01,&
745  & 8.842103e-01,8.844114e-01,8.827872e-01,8.798766e-01,8.762179e-01,&
746  & 8.723500e-01,8.688112e-01,8.661403e-01,8.648758e-01,8.655563e-01,&
747  & 8.687206e-01,8.749072e-01,8.846546e-01,8.636289e-01,8.684849e-01,&
748  & 8.725054e-01,8.757501e-01,8.782785e-01,8.801503e-01,8.814249e-01,&
749  & 8.821620e-01,8.824211e-01,8.822620e-01,8.817440e-01,8.809268e-01,&
750  & 8.798699e-01,8.786330e-01,8.772756e-01,8.758572e-01,8.744374e-01,&
751  & 8.730760e-01,8.718323e-01,8.707660e-01,8.699366e-01,8.694039e-01,&
752  & 8.692271e-01,8.694661e-01,8.701803e-01,8.714293e-01,8.732727e-01,&
753  & 8.757702e-01,8.789811e-01,8.8297e-01 /
754  data asyliq1(:, 27) / &
755  & 8.430819e-01,8.510060e-01,8.567270e-01,8.606533e-01,8.631934e-01,&
756  & 8.647554e-01,8.657471e-01,8.665760e-01,8.676496e-01,8.693754e-01,&
757  & 8.384298e-01,8.557913e-01,8.686214e-01,8.774605e-01,8.828495e-01,&
758  & 8.853287e-01,8.854393e-01,8.837215e-01,8.807161e-01,8.769639e-01,&
759  & 8.730053e-01,8.693812e-01,8.666321e-01,8.652988e-01,8.659219e-01,&
760  & 8.690419e-01,8.751999e-01,8.849360e-01,8.638013e-01,8.686371e-01,&
761  & 8.726369e-01,8.758605e-01,8.783674e-01,8.802176e-01,8.814705e-01,&
762  & 8.821859e-01,8.824234e-01,8.822429e-01,8.817038e-01,8.808658e-01,&
763  & 8.797887e-01,8.785323e-01,8.771560e-01,8.757196e-01,8.742828e-01,&
764  & 8.729052e-01,8.716467e-01,8.705666e-01,8.697250e-01,8.691812e-01,&
765  & 8.689950e-01,8.692264e-01,8.699346e-01,8.711795e-01,8.730209e-01,&
766  & 8.755181e-01,8.787312e-01,8.8272e-01 /
767  data asyliq1(:, 28) / &
768  & 8.452284e-01,8.522700e-01,8.572973e-01,8.607031e-01,8.628802e-01,&
769  & 8.642215e-01,8.651198e-01,8.659679e-01,8.671588e-01,8.690853e-01,&
770  & 8.383803e-01,8.557485e-01,8.685851e-01,8.774303e-01,8.828245e-01,&
771  & 8.853077e-01,8.854207e-01,8.837034e-01,8.806962e-01,8.769398e-01,&
772  & 8.729740e-01,8.693393e-01,8.665761e-01,8.652247e-01,8.658253e-01,&
773  & 8.689182e-01,8.750438e-01,8.847424e-01,8.636140e-01,8.684449e-01,&
774  & 8.724400e-01,8.756589e-01,8.781613e-01,8.800072e-01,8.812559e-01,&
775  & 8.819671e-01,8.822007e-01,8.820165e-01,8.814737e-01,8.806322e-01,&
776  & 8.795518e-01,8.782923e-01,8.769129e-01,8.754737e-01,8.740342e-01,&
777  & 8.726542e-01,8.713934e-01,8.703111e-01,8.694677e-01,8.689222e-01,&
778  & 8.687344e-01,8.689646e-01,8.696715e-01,8.709156e-01,8.727563e-01,&
779  & 8.752531e-01,8.784659e-01,8.8245e-01 /
780  data asyliq1(:, 29) / &
781  & 7.800869e-01,8.091120e-01,8.325369e-01,8.466266e-01,8.515495e-01,&
782  & 8.499371e-01,8.456203e-01,8.430521e-01,8.470286e-01,8.625431e-01,&
783  & 8.402261e-01,8.610822e-01,8.776608e-01,8.904485e-01,8.999294e-01,&
784  & 9.065860e-01,9.108995e-01,9.133503e-01,9.144187e-01,9.145855e-01,&
785  & 9.143320e-01,9.141402e-01,9.144933e-01,9.158754e-01,9.187716e-01,&
786  & 9.236677e-01,9.310503e-01,9.414058e-01,9.239108e-01,9.300719e-01,&
787  & 9.353612e-01,9.398378e-01,9.435609e-01,9.465895e-01,9.489829e-01,&
788  & 9.508000e-01,9.521002e-01,9.529424e-01,9.533860e-01,9.534902e-01,&
789  & 9.533143e-01,9.529177e-01,9.523596e-01,9.516997e-01,9.509973e-01,&
790  & 9.503121e-01,9.497037e-01,9.492317e-01,9.489558e-01,9.489356e-01,&
791  & 9.492311e-01,9.499019e-01,9.510077e-01,9.526084e-01,9.547636e-01,&
792  & 9.575331e-01,9.609766e-01,9.6515e-01 /
793 
794 ! --- ... spherical ice particle parameterization from streamer v3
795 ! extinction units (ext coef/iwc): [(m^-1)/(g m^-3)]
796  data extice2(:, 16) / &
797  & 4.101824e-01,2.435514e-01,1.713697e-01,1.314865e-01,1.063406e-01,&
798  & 8.910701e-02,7.659480e-02,6.711784e-02,5.970353e-02,5.375249e-02,&
799  & 4.887577e-02,4.481025e-02,4.137171e-02,3.842744e-02,3.587948e-02,&
800  & 3.365396e-02,3.169419e-02,2.995593e-02,2.840419e-02,2.701091e-02,&
801  & 2.575336e-02,2.461293e-02,2.357423e-02,2.262443e-02,2.175276e-02,&
802  & 2.095012e-02,2.020875e-02,1.952199e-02,1.888412e-02,1.829018e-02,&
803  & 1.773586e-02,1.721738e-02,1.673144e-02,1.627510e-02,1.584579e-02,&
804  & 1.544122e-02,1.505934e-02,1.469833e-02,1.435654e-02,1.403251e-02,&
805  & 1.372492e-02,1.343255e-02,1.315433e-02 /
806  data extice2(:, 17) / &
807  & 3.836650e-01,2.304055e-01,1.637265e-01,1.266681e-01,1.031602e-01,&
808  & 8.695191e-02,7.511544e-02,6.610009e-02,5.900909e-02,5.328833e-02,&
809  & 4.857728e-02,4.463133e-02,4.127880e-02,3.839567e-02,3.589013e-02,&
810  & 3.369280e-02,3.175027e-02,3.002079e-02,2.847121e-02,2.707493e-02,&
811  & 2.581031e-02,2.465962e-02,2.360815e-02,2.264363e-02,2.175571e-02,&
812  & 2.093563e-02,2.017592e-02,1.947015e-02,1.881278e-02,1.819901e-02,&
813  & 1.762463e-02,1.708598e-02,1.657982e-02,1.610330e-02,1.565390e-02,&
814  & 1.522937e-02,1.482768e-02,1.444706e-02,1.408588e-02,1.374270e-02,&
815  & 1.341619e-02,1.310517e-02,1.280857e-02 /
816  data extice2(:, 18) / &
817  & 4.152673e-01,2.436816e-01,1.702243e-01,1.299704e-01,1.047528e-01,&
818  & 8.756039e-02,7.513327e-02,6.575690e-02,5.844616e-02,5.259609e-02,&
819  & 4.781531e-02,4.383980e-02,4.048517e-02,3.761891e-02,3.514342e-02,&
820  & 3.298525e-02,3.108814e-02,2.940825e-02,2.791096e-02,2.656858e-02,&
821  & 2.535869e-02,2.426297e-02,2.326627e-02,2.235602e-02,2.152164e-02,&
822  & 2.075420e-02,2.004613e-02,1.939091e-02,1.878296e-02,1.821744e-02,&
823  & 1.769015e-02,1.719741e-02,1.673600e-02,1.630308e-02,1.589615e-02,&
824  & 1.551298e-02,1.515159e-02,1.481021e-02,1.448726e-02,1.418131e-02,&
825  & 1.389109e-02,1.361544e-02,1.335330e-02 /
826  data extice2(:, 19) / &
827  & 3.873250e-01,2.331609e-01,1.655002e-01,1.277753e-01,1.038247e-01,&
828  & 8.731780e-02,7.527638e-02,6.611873e-02,5.892850e-02,5.313885e-02,&
829  & 4.838068e-02,4.440356e-02,4.103167e-02,3.813804e-02,3.562870e-02,&
830  & 3.343269e-02,3.149539e-02,2.977414e-02,2.823510e-02,2.685112e-02,&
831  & 2.560015e-02,2.446411e-02,2.342805e-02,2.247948e-02,2.160789e-02,&
832  & 2.080438e-02,2.006139e-02,1.937238e-02,1.873177e-02,1.813469e-02,&
833  & 1.757689e-02,1.705468e-02,1.656479e-02,1.610435e-02,1.567081e-02,&
834  & 1.526192e-02,1.487565e-02,1.451020e-02,1.416396e-02,1.383546e-02,&
835  & 1.352339e-02,1.322657e-02,1.294392e-02 /
836  data extice2(:, 20) / &
837  & 3.784280e-01,2.291396e-01,1.632551e-01,1.263775e-01,1.028944e-01,&
838  & 8.666975e-02,7.480952e-02,6.577335e-02,5.866714e-02,5.293694e-02,&
839  & 4.822153e-02,4.427547e-02,4.092626e-02,3.804918e-02,3.555184e-02,&
840  & 3.336440e-02,3.143307e-02,2.971577e-02,2.817912e-02,2.679632e-02,&
841  & 2.554558e-02,2.440903e-02,2.337187e-02,2.242173e-02,2.154821e-02,&
842  & 2.074249e-02,1.999706e-02,1.930546e-02,1.866212e-02,1.806221e-02,&
843  & 1.750152e-02,1.697637e-02,1.648352e-02,1.602010e-02,1.558358e-02,&
844  & 1.517172e-02,1.478250e-02,1.441413e-02,1.406498e-02,1.373362e-02,&
845  & 1.341872e-02,1.311911e-02,1.283371e-02 /
846  data extice2(:, 21) / &
847  & 3.719909e-01,2.259490e-01,1.613144e-01,1.250648e-01,1.019462e-01,&
848  & 8.595358e-02,7.425064e-02,6.532618e-02,5.830218e-02,5.263421e-02,&
849  & 4.796697e-02,4.405891e-02,4.074013e-02,3.788776e-02,3.541071e-02,&
850  & 3.324008e-02,3.132280e-02,2.961733e-02,2.809071e-02,2.671645e-02,&
851  & 2.547302e-02,2.434276e-02,2.331102e-02,2.236558e-02,2.149614e-02,&
852  & 2.069397e-02,1.995163e-02,1.926272e-02,1.862174e-02,1.802389e-02,&
853  & 1.746500e-02,1.694142e-02,1.644994e-02,1.598772e-02,1.555225e-02,&
854  & 1.514129e-02,1.475286e-02,1.438515e-02,1.403659e-02,1.370572e-02,&
855  & 1.339124e-02,1.309197e-02,1.280685e-02 /
856  data extice2(:, 22) / &
857  & 3.713158e-01,2.253816e-01,1.608461e-01,1.246718e-01,1.016109e-01,&
858  & 8.566332e-02,7.399666e-02,6.510199e-02,5.810290e-02,5.245608e-02,&
859  & 4.780702e-02,4.391478e-02,4.060989e-02,3.776982e-02,3.530374e-02,&
860  & 3.314296e-02,3.123458e-02,2.953719e-02,2.801794e-02,2.665043e-02,&
861  & 2.541321e-02,2.428868e-02,2.326224e-02,2.232173e-02,2.145688e-02,&
862  & 2.065899e-02,1.992067e-02,1.923552e-02,1.859808e-02,1.800356e-02,&
863  & 1.744782e-02,1.692721e-02,1.643855e-02,1.597900e-02,1.554606e-02,&
864  & 1.513751e-02,1.475137e-02,1.438586e-02,1.403938e-02,1.371050e-02,&
865  & 1.339793e-02,1.310050e-02,1.281713e-02 /
866  data extice2(:, 23) / &
867  & 3.605883e-01,2.204388e-01,1.580431e-01,1.229033e-01,1.004203e-01,&
868  & 8.482616e-02,7.338941e-02,6.465105e-02,5.776176e-02,5.219398e-02,&
869  & 4.760288e-02,4.375369e-02,4.048111e-02,3.766539e-02,3.521771e-02,&
870  & 3.307079e-02,3.117277e-02,2.948303e-02,2.796929e-02,2.660560e-02,&
871  & 2.537086e-02,2.424772e-02,2.322182e-02,2.228114e-02,2.141556e-02,&
872  & 2.061649e-02,1.987661e-02,1.918962e-02,1.855009e-02,1.795330e-02,&
873  & 1.739514e-02,1.687199e-02,1.638069e-02,1.591845e-02,1.548276e-02,&
874  & 1.507143e-02,1.468249e-02,1.431416e-02,1.396486e-02,1.363318e-02,&
875  & 1.331781e-02,1.301759e-02,1.273147e-02 /
876  data extice2(:, 24) / &
877  & 3.527890e-01,2.168469e-01,1.560090e-01,1.216216e-01,9.955787e-02,&
878  & 8.421942e-02,7.294827e-02,6.432192e-02,5.751081e-02,5.199888e-02,&
879  & 4.744835e-02,4.362899e-02,4.037847e-02,3.757910e-02,3.514351e-02,&
880  & 3.300546e-02,3.111382e-02,2.942853e-02,2.791775e-02,2.655584e-02,&
881  & 2.532195e-02,2.419892e-02,2.317255e-02,2.223092e-02,2.136402e-02,&
882  & 2.056334e-02,1.982160e-02,1.913258e-02,1.849087e-02,1.789178e-02,&
883  & 1.733124e-02,1.680565e-02,1.631187e-02,1.584711e-02,1.540889e-02,&
884  & 1.499502e-02,1.460354e-02,1.423269e-02,1.388088e-02,1.354670e-02,&
885  & 1.322887e-02,1.292620e-02,1.263767e-02 /
886  data extice2(:, 25) / &
887  & 3.477874e-01,2.143515e-01,1.544887e-01,1.205942e-01,9.881779e-02,&
888  & 8.366261e-02,7.251586e-02,6.397790e-02,5.723183e-02,5.176908e-02,&
889  & 4.725658e-02,4.346715e-02,4.024055e-02,3.746055e-02,3.504080e-02,&
890  & 3.291583e-02,3.103507e-02,2.935891e-02,2.785582e-02,2.650042e-02,&
891  & 2.527206e-02,2.415376e-02,2.313142e-02,2.219326e-02,2.132934e-02,&
892  & 2.053122e-02,1.979169e-02,1.910456e-02,1.846448e-02,1.786680e-02,&
893  & 1.730745e-02,1.678289e-02,1.628998e-02,1.582595e-02,1.538835e-02,&
894  & 1.497499e-02,1.458393e-02,1.421341e-02,1.386187e-02,1.352788e-02,&
895  & 1.321019e-02,1.290762e-02,1.261913e-02 /
896  data extice2(:, 26) / &
897  & 3.453721e-01,2.130744e-01,1.536698e-01,1.200140e-01,9.838078e-02,&
898  & 8.331940e-02,7.223803e-02,6.374775e-02,5.703770e-02,5.160290e-02,&
899  & 4.711259e-02,4.334110e-02,4.012923e-02,3.736150e-02,3.495208e-02,&
900  & 3.283589e-02,3.096267e-02,2.929302e-02,2.779560e-02,2.644517e-02,&
901  & 2.522119e-02,2.410677e-02,2.308788e-02,2.215281e-02,2.129165e-02,&
902  & 2.049602e-02,1.975874e-02,1.907365e-02,1.843542e-02,1.783943e-02,&
903  & 1.728162e-02,1.675847e-02,1.626685e-02,1.580401e-02,1.536750e-02,&
904  & 1.495515e-02,1.456502e-02,1.419537e-02,1.384463e-02,1.351139e-02,&
905  & 1.319438e-02,1.289246e-02,1.260456e-02 /
906  data extice2(:, 27) / &
907  & 3.417883e-01,2.113379e-01,1.526395e-01,1.193347e-01,9.790253e-02,&
908  & 8.296715e-02,7.196979e-02,6.353806e-02,5.687024e-02,5.146670e-02,&
909  & 4.700001e-02,4.324667e-02,4.004894e-02,3.729233e-02,3.489172e-02,&
910  & 3.278257e-02,3.091499e-02,2.924987e-02,2.775609e-02,2.640859e-02,&
911  & 2.518695e-02,2.407439e-02,2.305697e-02,2.212303e-02,2.126273e-02,&
912  & 2.046774e-02,1.973090e-02,1.904610e-02,1.840801e-02,1.781204e-02,&
913  & 1.725417e-02,1.673086e-02,1.623902e-02,1.577590e-02,1.533906e-02,&
914  & 1.492634e-02,1.453580e-02,1.416571e-02,1.381450e-02,1.348078e-02,&
915  & 1.316327e-02,1.286082e-02,1.257240e-02 /
916  data extice2(:, 28) / &
917  & 3.416111e-01,2.114124e-01,1.527734e-01,1.194809e-01,9.804612e-02,&
918  & 8.310287e-02,7.209595e-02,6.365442e-02,5.697710e-02,5.156460e-02,&
919  & 4.708957e-02,4.332850e-02,4.012361e-02,3.736037e-02,3.495364e-02,&
920  & 3.283879e-02,3.096593e-02,2.929589e-02,2.779751e-02,2.644571e-02,&
921  & 2.522004e-02,2.410369e-02,2.308271e-02,2.214542e-02,2.128195e-02,&
922  & 2.048396e-02,1.974429e-02,1.905679e-02,1.841614e-02,1.781774e-02,&
923  & 1.725754e-02,1.673203e-02,1.623807e-02,1.577293e-02,1.533416e-02,&
924  & 1.491958e-02,1.452727e-02,1.415547e-02,1.380262e-02,1.346732e-02,&
925  & 1.314830e-02,1.284439e-02,1.255456e-02 /
926  data extice2(:, 29) / &
927  & 4.196611e-01,2.493642e-01,1.761261e-01,1.357197e-01,1.102161e-01,&
928  & 9.269376e-02,7.992985e-02,7.022538e-02,6.260168e-02,5.645603e-02,&
929  & 5.139732e-02,4.716088e-02,4.356133e-02,4.046498e-02,3.777303e-02,&
930  & 3.541094e-02,3.332137e-02,3.145954e-02,2.978998e-02,2.828419e-02,&
931  & 2.691905e-02,2.567559e-02,2.453811e-02,2.349350e-02,2.253072e-02,&
932  & 2.164042e-02,2.081464e-02,2.004652e-02,1.933015e-02,1.866041e-02,&
933  & 1.803283e-02,1.744348e-02,1.688894e-02,1.636616e-02,1.587244e-02,&
934  & 1.540539e-02,1.496287e-02,1.454295e-02,1.414392e-02,1.376423e-02,&
935  & 1.340247e-02,1.305739e-02,1.272784e-02 /
936 
937 ! --- ... single-scattering albedo from streamer v3, unitless
938  data ssaice2(:, 16) / &
939  & 6.630615e-01,6.451169e-01,6.333696e-01,6.246927e-01,6.178420e-01,&
940  & 6.121976e-01,6.074069e-01,6.032505e-01,5.995830e-01,5.963030e-01,&
941  & 5.933372e-01,5.906311e-01,5.881427e-01,5.858395e-01,5.836955e-01,&
942  & 5.816896e-01,5.798046e-01,5.780264e-01,5.763429e-01,5.747441e-01,&
943  & 5.732213e-01,5.717672e-01,5.703754e-01,5.690403e-01,5.677571e-01,&
944  & 5.665215e-01,5.653297e-01,5.641782e-01,5.630643e-01,5.619850e-01,&
945  & 5.609381e-01,5.599214e-01,5.589328e-01,5.579707e-01,5.570333e-01,&
946  & 5.561193e-01,5.552272e-01,5.543558e-01,5.535041e-01,5.526708e-01,&
947  & 5.518551e-01,5.510561e-01,5.502729e-01 /
948  data ssaice2(:, 17) / &
949  & 7.689749e-01,7.398171e-01,7.205819e-01,7.065690e-01,6.956928e-01,&
950  & 6.868989e-01,6.795813e-01,6.733606e-01,6.679838e-01,6.632742e-01,&
951  & 6.591036e-01,6.553766e-01,6.520197e-01,6.489757e-01,6.461991e-01,&
952  & 6.436531e-01,6.413075e-01,6.391375e-01,6.371221e-01,6.352438e-01,&
953  & 6.334876e-01,6.318406e-01,6.302918e-01,6.288315e-01,6.274512e-01,&
954  & 6.261436e-01,6.249022e-01,6.237211e-01,6.225953e-01,6.215201e-01,&
955  & 6.204914e-01,6.195055e-01,6.185592e-01,6.176492e-01,6.167730e-01,&
956  & 6.159280e-01,6.151120e-01,6.143228e-01,6.135587e-01,6.128177e-01,&
957  & 6.120984e-01,6.113993e-01,6.107189e-01 /
958  data ssaice2(:, 18) / &
959  & 9.956167e-01,9.814770e-01,9.716104e-01,9.639746e-01,9.577179e-01,&
960  & 9.524010e-01,9.477672e-01,9.436527e-01,9.399467e-01,9.365708e-01,&
961  & 9.334672e-01,9.305921e-01,9.279118e-01,9.253993e-01,9.230330e-01,&
962  & 9.207954e-01,9.186719e-01,9.166501e-01,9.147199e-01,9.128722e-01,&
963  & 9.110997e-01,9.093956e-01,9.077544e-01,9.061708e-01,9.046406e-01,&
964  & 9.031598e-01,9.017248e-01,9.003326e-01,8.989804e-01,8.976655e-01,&
965  & 8.963857e-01,8.951389e-01,8.939233e-01,8.927370e-01,8.915785e-01,&
966  & 8.904464e-01,8.893392e-01,8.882559e-01,8.871951e-01,8.861559e-01,&
967  & 8.851373e-01,8.841383e-01,8.831581e-01 /
968  data ssaice2(:, 19) / &
969  & 9.723177e-01,9.452119e-01,9.267592e-01,9.127393e-01,9.014238e-01,&
970  & 8.919334e-01,8.837584e-01,8.765773e-01,8.701736e-01,8.643950e-01,&
971  & 8.591299e-01,8.542942e-01,8.498230e-01,8.456651e-01,8.417794e-01,&
972  & 8.381324e-01,8.346964e-01,8.314484e-01,8.283687e-01,8.254408e-01,&
973  & 8.226505e-01,8.199854e-01,8.174348e-01,8.149891e-01,8.126403e-01,&
974  & 8.103808e-01,8.082041e-01,8.061044e-01,8.040765e-01,8.021156e-01,&
975  & 8.002174e-01,7.983781e-01,7.965941e-01,7.948622e-01,7.931795e-01,&
976  & 7.915432e-01,7.899508e-01,7.884002e-01,7.868891e-01,7.854156e-01,&
977  & 7.839779e-01,7.825742e-01,7.812031e-01 /
978  data ssaice2(:, 20) / &
979  & 9.933294e-01,9.860917e-01,9.811564e-01,9.774008e-01,9.743652e-01,&
980  & 9.718155e-01,9.696159e-01,9.676810e-01,9.659531e-01,9.643915e-01,&
981  & 9.629667e-01,9.616561e-01,9.604426e-01,9.593125e-01,9.582548e-01,&
982  & 9.572607e-01,9.563227e-01,9.554347e-01,9.545915e-01,9.537888e-01,&
983  & 9.530226e-01,9.522898e-01,9.515874e-01,9.509130e-01,9.502643e-01,&
984  & 9.496394e-01,9.490366e-01,9.484542e-01,9.478910e-01,9.473456e-01,&
985  & 9.468169e-01,9.463039e-01,9.458056e-01,9.453212e-01,9.448499e-01,&
986  & 9.443910e-01,9.439438e-01,9.435077e-01,9.430821e-01,9.426666e-01,&
987  & 9.422607e-01,9.418638e-01,9.414756e-01 /
988  data ssaice2(:, 21) / &
989  & 9.900787e-01,9.828880e-01,9.779258e-01,9.741173e-01,9.710184e-01,&
990  & 9.684012e-01,9.661332e-01,9.641301e-01,9.623352e-01,9.607083e-01,&
991  & 9.592198e-01,9.578474e-01,9.565739e-01,9.553856e-01,9.542715e-01,&
992  & 9.532226e-01,9.522314e-01,9.512919e-01,9.503986e-01,9.495472e-01,&
993  & 9.487337e-01,9.479549e-01,9.472077e-01,9.464897e-01,9.457985e-01,&
994  & 9.451322e-01,9.444890e-01,9.438673e-01,9.432656e-01,9.426826e-01,&
995  & 9.421173e-01,9.415684e-01,9.410351e-01,9.405164e-01,9.400115e-01,&
996  & 9.395198e-01,9.390404e-01,9.385728e-01,9.381164e-01,9.376707e-01,&
997  & 9.372350e-01,9.368091e-01,9.363923e-01 /
998  data ssaice2(:, 22) / &
999  & 9.986793e-01,9.985239e-01,9.983911e-01,9.982715e-01,9.981606e-01,&
1000  & 9.980562e-01,9.979567e-01,9.978613e-01,9.977691e-01,9.976798e-01,&
1001  & 9.975929e-01,9.975081e-01,9.974251e-01,9.973438e-01,9.972640e-01,&
1002  & 9.971855e-01,9.971083e-01,9.970322e-01,9.969571e-01,9.968830e-01,&
1003  & 9.968099e-01,9.967375e-01,9.966660e-01,9.965951e-01,9.965250e-01,&
1004  & 9.964555e-01,9.963867e-01,9.963185e-01,9.962508e-01,9.961836e-01,&
1005  & 9.961170e-01,9.960508e-01,9.959851e-01,9.959198e-01,9.958550e-01,&
1006  & 9.957906e-01,9.957266e-01,9.956629e-01,9.955997e-01,9.955367e-01,&
1007  & 9.954742e-01,9.954119e-01,9.953500e-01 /
1008  data ssaice2(:, 23) / &
1009  & 9.997944e-01,9.997791e-01,9.997664e-01,9.997547e-01,9.997436e-01,&
1010  & 9.997327e-01,9.997219e-01,9.997110e-01,9.996999e-01,9.996886e-01,&
1011  & 9.996771e-01,9.996653e-01,9.996533e-01,9.996409e-01,9.996282e-01,&
1012  & 9.996152e-01,9.996019e-01,9.995883e-01,9.995743e-01,9.995599e-01,&
1013  & 9.995453e-01,9.995302e-01,9.995149e-01,9.994992e-01,9.994831e-01,&
1014  & 9.994667e-01,9.994500e-01,9.994329e-01,9.994154e-01,9.993976e-01,&
1015  & 9.993795e-01,9.993610e-01,9.993422e-01,9.993230e-01,9.993035e-01,&
1016  & 9.992837e-01,9.992635e-01,9.992429e-01,9.992221e-01,9.992008e-01,&
1017  & 9.991793e-01,9.991574e-01,9.991352e-01 /
1018  data ssaice2(:, 24) / &
1019  & 9.999949e-01,9.999947e-01,9.999943e-01,9.999939e-01,9.999934e-01,&
1020  & 9.999927e-01,9.999920e-01,9.999913e-01,9.999904e-01,9.999895e-01,&
1021  & 9.999885e-01,9.999874e-01,9.999863e-01,9.999851e-01,9.999838e-01,&
1022  & 9.999824e-01,9.999810e-01,9.999795e-01,9.999780e-01,9.999764e-01,&
1023  & 9.999747e-01,9.999729e-01,9.999711e-01,9.999692e-01,9.999673e-01,&
1024  & 9.999653e-01,9.999632e-01,9.999611e-01,9.999589e-01,9.999566e-01,&
1025  & 9.999543e-01,9.999519e-01,9.999495e-01,9.999470e-01,9.999444e-01,&
1026  & 9.999418e-01,9.999392e-01,9.999364e-01,9.999336e-01,9.999308e-01,&
1027  & 9.999279e-01,9.999249e-01,9.999219e-01 /
1028  data ssaice2(:, 25) / &
1029  & 9.999997e-01,9.999997e-01,9.999997e-01,9.999996e-01,9.999996e-01,&
1030  & 9.999995e-01,9.999994e-01,9.999993e-01,9.999993e-01,9.999992e-01,&
1031  & 9.999991e-01,9.999989e-01,9.999988e-01,9.999987e-01,9.999986e-01,&
1032  & 9.999984e-01,9.999983e-01,9.999981e-01,9.999980e-01,9.999978e-01,&
1033  & 9.999976e-01,9.999974e-01,9.999972e-01,9.999971e-01,9.999969e-01,&
1034  & 9.999966e-01,9.999964e-01,9.999962e-01,9.999960e-01,9.999957e-01,&
1035  & 9.999955e-01,9.999953e-01,9.999950e-01,9.999947e-01,9.999945e-01,&
1036  & 9.999942e-01,9.999939e-01,9.999936e-01,9.999934e-01,9.999931e-01,&
1037  & 9.999928e-01,9.999925e-01,9.999921e-01 /
1038  data ssaice2(:, 26) / &
1039  & 9.999997e-01,9.999996e-01,9.999996e-01,9.999995e-01,9.999994e-01,&
1040  & 9.999993e-01,9.999992e-01,9.999991e-01,9.999990e-01,9.999989e-01,&
1041  & 9.999987e-01,9.999986e-01,9.999984e-01,9.999982e-01,9.999980e-01,&
1042  & 9.999978e-01,9.999976e-01,9.999974e-01,9.999972e-01,9.999970e-01,&
1043  & 9.999967e-01,9.999965e-01,9.999962e-01,9.999959e-01,9.999956e-01,&
1044  & 9.999954e-01,9.999951e-01,9.999947e-01,9.999944e-01,9.999941e-01,&
1045  & 9.999938e-01,9.999934e-01,9.999931e-01,9.999927e-01,9.999923e-01,&
1046  & 9.999920e-01,9.999916e-01,9.999912e-01,9.999908e-01,9.999904e-01,&
1047  & 9.999899e-01,9.999895e-01,9.999891e-01 /
1048  data ssaice2(:, 27) / &
1049  & 9.999987e-01,9.999987e-01,9.999985e-01,9.999984e-01,9.999982e-01,&
1050  & 9.999980e-01,9.999978e-01,9.999976e-01,9.999973e-01,9.999970e-01,&
1051  & 9.999967e-01,9.999964e-01,9.999960e-01,9.999956e-01,9.999952e-01,&
1052  & 9.999948e-01,9.999944e-01,9.999939e-01,9.999934e-01,9.999929e-01,&
1053  & 9.999924e-01,9.999918e-01,9.999913e-01,9.999907e-01,9.999901e-01,&
1054  & 9.999894e-01,9.999888e-01,9.999881e-01,9.999874e-01,9.999867e-01,&
1055  & 9.999860e-01,9.999853e-01,9.999845e-01,9.999837e-01,9.999829e-01,&
1056  & 9.999821e-01,9.999813e-01,9.999804e-01,9.999796e-01,9.999787e-01,&
1057  & 9.999778e-01,9.999768e-01,9.999759e-01 /
1058  data ssaice2(:, 28) / &
1059  & 9.999989e-01,9.999989e-01,9.999987e-01,9.999986e-01,9.999984e-01,&
1060  & 9.999982e-01,9.999980e-01,9.999978e-01,9.999975e-01,9.999972e-01,&
1061  & 9.999969e-01,9.999966e-01,9.999962e-01,9.999958e-01,9.999954e-01,&
1062  & 9.999950e-01,9.999945e-01,9.999941e-01,9.999936e-01,9.999931e-01,&
1063  & 9.999925e-01,9.999920e-01,9.999914e-01,9.999908e-01,9.999902e-01,&
1064  & 9.999896e-01,9.999889e-01,9.999883e-01,9.999876e-01,9.999869e-01,&
1065  & 9.999861e-01,9.999854e-01,9.999846e-01,9.999838e-01,9.999830e-01,&
1066  & 9.999822e-01,9.999814e-01,9.999805e-01,9.999796e-01,9.999787e-01,&
1067  & 9.999778e-01,9.999769e-01,9.999759e-01 /
1068  data ssaice2(:, 29) / &
1069  & 7.042143e-01,6.691161e-01,6.463240e-01,6.296590e-01,6.166381e-01,&
1070  & 6.060183e-01,5.970908e-01,5.894144e-01,5.826968e-01,5.767343e-01,&
1071  & 5.713804e-01,5.665256e-01,5.620867e-01,5.579987e-01,5.542101e-01,&
1072  & 5.506794e-01,5.473727e-01,5.442620e-01,5.413239e-01,5.385389e-01,&
1073  & 5.358901e-01,5.333633e-01,5.309460e-01,5.286277e-01,5.263988e-01,&
1074  & 5.242512e-01,5.221777e-01,5.201719e-01,5.182280e-01,5.163410e-01,&
1075  & 5.145062e-01,5.127197e-01,5.109776e-01,5.092766e-01,5.076137e-01,&
1076  & 5.059860e-01,5.043911e-01,5.028266e-01,5.012904e-01,4.997805e-01,&
1077  & 4.982951e-01,4.968326e-01,4.953913e-01 /
1078 
1079 ! --- ... asymmetry factor from streamer v3, unitless
1080  data asyice2(:, 16) / &
1081  & 7.946655e-01,8.547685e-01,8.806016e-01,8.949880e-01,9.041676e-01,&
1082  & 9.105399e-01,9.152249e-01,9.188160e-01,9.216573e-01,9.239620e-01,&
1083  & 9.258695e-01,9.274745e-01,9.288441e-01,9.300267e-01,9.310584e-01,&
1084  & 9.319665e-01,9.327721e-01,9.334918e-01,9.341387e-01,9.347236e-01,&
1085  & 9.352551e-01,9.357402e-01,9.361850e-01,9.365942e-01,9.369722e-01,&
1086  & 9.373225e-01,9.376481e-01,9.379516e-01,9.382352e-01,9.385010e-01,&
1087  & 9.387505e-01,9.389854e-01,9.392070e-01,9.394163e-01,9.396145e-01,&
1088  & 9.398024e-01,9.399809e-01,9.401508e-01,9.403126e-01,9.404670e-01,&
1089  & 9.406144e-01,9.407555e-01,9.408906e-01 /
1090  data asyice2(:, 17) / &
1091  & 9.078091e-01,9.195850e-01,9.267250e-01,9.317083e-01,9.354632e-01,&
1092  & 9.384323e-01,9.408597e-01,9.428935e-01,9.446301e-01,9.461351e-01,&
1093  & 9.474555e-01,9.486259e-01,9.496722e-01,9.506146e-01,9.514688e-01,&
1094  & 9.522476e-01,9.529612e-01,9.536181e-01,9.542251e-01,9.547883e-01,&
1095  & 9.553124e-01,9.558019e-01,9.562601e-01,9.566904e-01,9.570953e-01,&
1096  & 9.574773e-01,9.578385e-01,9.581806e-01,9.585054e-01,9.588142e-01,&
1097  & 9.591083e-01,9.593888e-01,9.596569e-01,9.599135e-01,9.601593e-01,&
1098  & 9.603952e-01,9.606219e-01,9.608399e-01,9.610499e-01,9.612523e-01,&
1099  & 9.614477e-01,9.616365e-01,9.618192e-01 /
1100  data asyice2(:, 18) / &
1101  & 8.322045e-01,8.528693e-01,8.648167e-01,8.729163e-01,8.789054e-01,&
1102  & 8.835845e-01,8.873819e-01,8.905511e-01,8.932532e-01,8.955965e-01,&
1103  & 8.976567e-01,8.994887e-01,9.011334e-01,9.026221e-01,9.039791e-01,&
1104  & 9.052237e-01,9.063715e-01,9.074349e-01,9.084245e-01,9.093489e-01,&
1105  & 9.102154e-01,9.110303e-01,9.117987e-01,9.125253e-01,9.132140e-01,&
1106  & 9.138682e-01,9.144910e-01,9.150850e-01,9.156524e-01,9.161955e-01,&
1107  & 9.167160e-01,9.172157e-01,9.176959e-01,9.181581e-01,9.186034e-01,&
1108  & 9.190330e-01,9.194478e-01,9.198488e-01,9.202368e-01,9.206126e-01,&
1109  & 9.209768e-01,9.213301e-01,9.216731e-01 /
1110  data asyice2(:, 19) / &
1111  & 8.116560e-01,8.488278e-01,8.674331e-01,8.788148e-01,8.865810e-01,&
1112  & 8.922595e-01,8.966149e-01,9.000747e-01,9.028980e-01,9.052513e-01,&
1113  & 9.072468e-01,9.089632e-01,9.104574e-01,9.117713e-01,9.129371e-01,&
1114  & 9.139793e-01,9.149174e-01,9.157668e-01,9.165400e-01,9.172473e-01,&
1115  & 9.178970e-01,9.184962e-01,9.190508e-01,9.195658e-01,9.200455e-01,&
1116  & 9.204935e-01,9.209130e-01,9.213067e-01,9.216771e-01,9.220262e-01,&
1117  & 9.223560e-01,9.226680e-01,9.229636e-01,9.232443e-01,9.235112e-01,&
1118  & 9.237652e-01,9.240074e-01,9.242385e-01,9.244594e-01,9.246708e-01,&
1119  & 9.248733e-01,9.250674e-01,9.252536e-01 /
1120  data asyice2(:, 20) / &
1121  & 8.047113e-01,8.402864e-01,8.570332e-01,8.668455e-01,8.733206e-01,&
1122  & 8.779272e-01,8.813796e-01,8.840676e-01,8.862225e-01,8.879904e-01,&
1123  & 8.894682e-01,8.907228e-01,8.918019e-01,8.927404e-01,8.935645e-01,&
1124  & 8.942943e-01,8.949452e-01,8.955296e-01,8.960574e-01,8.965366e-01,&
1125  & 8.969736e-01,8.973740e-01,8.977422e-01,8.980820e-01,8.983966e-01,&
1126  & 8.986889e-01,8.989611e-01,8.992153e-01,8.994533e-01,8.996766e-01,&
1127  & 8.998865e-01,9.000843e-01,9.002709e-01,9.004474e-01,9.006146e-01,&
1128  & 9.007731e-01,9.009237e-01,9.010670e-01,9.012034e-01,9.013336e-01,&
1129  & 9.014579e-01,9.015767e-01,9.016904e-01 /
1130  data asyice2(:, 21) / &
1131  & 8.179122e-01,8.480726e-01,8.621945e-01,8.704354e-01,8.758555e-01,&
1132  & 8.797007e-01,8.825750e-01,8.848078e-01,8.865939e-01,8.880564e-01,&
1133  & 8.892765e-01,8.903105e-01,8.911982e-01,8.919689e-01,8.926446e-01,&
1134  & 8.932419e-01,8.937738e-01,8.942506e-01,8.946806e-01,8.950702e-01,&
1135  & 8.954251e-01,8.957497e-01,8.960477e-01,8.963223e-01,8.965762e-01,&
1136  & 8.968116e-01,8.970306e-01,8.972347e-01,8.974255e-01,8.976042e-01,&
1137  & 8.977720e-01,8.979298e-01,8.980784e-01,8.982188e-01,8.983515e-01,&
1138  & 8.984771e-01,8.985963e-01,8.987095e-01,8.988171e-01,8.989195e-01,&
1139  & 8.990172e-01,8.991104e-01,8.991994e-01 /
1140  data asyice2(:, 22) / &
1141  & 8.169789e-01,8.455024e-01,8.586925e-01,8.663283e-01,8.713217e-01,&
1142  & 8.748488e-01,8.774765e-01,8.795122e-01,8.811370e-01,8.824649e-01,&
1143  & 8.835711e-01,8.845073e-01,8.853103e-01,8.860068e-01,8.866170e-01,&
1144  & 8.871560e-01,8.876358e-01,8.880658e-01,8.884533e-01,8.888044e-01,&
1145  & 8.891242e-01,8.894166e-01,8.896851e-01,8.899324e-01,8.901612e-01,&
1146  & 8.903733e-01,8.905706e-01,8.907545e-01,8.909265e-01,8.910876e-01,&
1147  & 8.912388e-01,8.913812e-01,8.915153e-01,8.916419e-01,8.917617e-01,&
1148  & 8.918752e-01,8.919829e-01,8.920851e-01,8.921824e-01,8.922751e-01,&
1149  & 8.923635e-01,8.924478e-01,8.925284e-01 /
1150  data asyice2(:, 23) / &
1151  & 8.387642e-01,8.569979e-01,8.658630e-01,8.711825e-01,8.747605e-01,&
1152  & 8.773472e-01,8.793129e-01,8.808621e-01,8.821179e-01,8.831583e-01,&
1153  & 8.840361e-01,8.847875e-01,8.854388e-01,8.860094e-01,8.865138e-01,&
1154  & 8.869634e-01,8.873668e-01,8.877310e-01,8.880617e-01,8.883635e-01,&
1155  & 8.886401e-01,8.888947e-01,8.891298e-01,8.893477e-01,8.895504e-01,&
1156  & 8.897393e-01,8.899159e-01,8.900815e-01,8.902370e-01,8.903833e-01,&
1157  & 8.905214e-01,8.906518e-01,8.907753e-01,8.908924e-01,8.910036e-01,&
1158  & 8.911094e-01,8.912101e-01,8.913062e-01,8.913979e-01,8.914856e-01,&
1159  & 8.915695e-01,8.916498e-01,8.917269e-01 /
1160  data asyice2(:, 24) / &
1161  & 8.522208e-01,8.648132e-01,8.711224e-01,8.749901e-01,8.776354e-01,&
1162  & 8.795743e-01,8.810649e-01,8.822518e-01,8.832225e-01,8.840333e-01,&
1163  & 8.847224e-01,8.853162e-01,8.858342e-01,8.862906e-01,8.866962e-01,&
1164  & 8.870595e-01,8.873871e-01,8.876842e-01,8.879551e-01,8.882032e-01,&
1165  & 8.884316e-01,8.886425e-01,8.888380e-01,8.890199e-01,8.891895e-01,&
1166  & 8.893481e-01,8.894968e-01,8.896366e-01,8.897683e-01,8.898926e-01,&
1167  & 8.900102e-01,8.901215e-01,8.902272e-01,8.903276e-01,8.904232e-01,&
1168  & 8.905144e-01,8.906014e-01,8.906845e-01,8.907640e-01,8.908402e-01,&
1169  & 8.909132e-01,8.909834e-01,8.910507e-01 /
1170  data asyice2(:, 25) / &
1171  & 8.578202e-01,8.683033e-01,8.735431e-01,8.767488e-01,8.789378e-01,&
1172  & 8.805399e-01,8.817701e-01,8.827485e-01,8.835480e-01,8.842152e-01,&
1173  & 8.847817e-01,8.852696e-01,8.856949e-01,8.860694e-01,8.864020e-01,&
1174  & 8.866997e-01,8.869681e-01,8.872113e-01,8.874330e-01,8.876360e-01,&
1175  & 8.878227e-01,8.879951e-01,8.881548e-01,8.883033e-01,8.884418e-01,&
1176  & 8.885712e-01,8.886926e-01,8.888066e-01,8.889139e-01,8.890152e-01,&
1177  & 8.891110e-01,8.892017e-01,8.892877e-01,8.893695e-01,8.894473e-01,&
1178  & 8.895214e-01,8.895921e-01,8.896597e-01,8.897243e-01,8.897862e-01,&
1179  & 8.898456e-01,8.899025e-01,8.899572e-01 /
1180  data asyice2(:, 26) / &
1181  & 8.625615e-01,8.713831e-01,8.755799e-01,8.780560e-01,8.796983e-01,&
1182  & 8.808714e-01,8.817534e-01,8.824420e-01,8.829953e-01,8.834501e-01,&
1183  & 8.838310e-01,8.841549e-01,8.844338e-01,8.846767e-01,8.848902e-01,&
1184  & 8.850795e-01,8.852484e-01,8.854002e-01,8.855374e-01,8.856620e-01,&
1185  & 8.857758e-01,8.858800e-01,8.859759e-01,8.860644e-01,8.861464e-01,&
1186  & 8.862225e-01,8.862935e-01,8.863598e-01,8.864218e-01,8.864800e-01,&
1187  & 8.865347e-01,8.865863e-01,8.866349e-01,8.866809e-01,8.867245e-01,&
1188  & 8.867658e-01,8.868050e-01,8.868423e-01,8.868778e-01,8.869117e-01,&
1189  & 8.869440e-01,8.869749e-01,8.870044e-01 /
1190  data asyice2(:, 27) / &
1191  & 8.587495e-01,8.684764e-01,8.728189e-01,8.752872e-01,8.768846e-01,&
1192  & 8.780060e-01,8.788386e-01,8.794824e-01,8.799960e-01,8.804159e-01,&
1193  & 8.807660e-01,8.810626e-01,8.813175e-01,8.815390e-01,8.817335e-01,&
1194  & 8.819057e-01,8.820593e-01,8.821973e-01,8.823220e-01,8.824353e-01,&
1195  & 8.825387e-01,8.826336e-01,8.827209e-01,8.828016e-01,8.828764e-01,&
1196  & 8.829459e-01,8.830108e-01,8.830715e-01,8.831283e-01,8.831817e-01,&
1197  & 8.832320e-01,8.832795e-01,8.833244e-01,8.833668e-01,8.834071e-01,&
1198  & 8.834454e-01,8.834817e-01,8.835164e-01,8.835495e-01,8.835811e-01,&
1199  & 8.836113e-01,8.836402e-01,8.836679e-01 /
1200  data asyice2(:, 28) / &
1201  & 8.561110e-01,8.678583e-01,8.727554e-01,8.753892e-01,8.770154e-01,&
1202  & 8.781109e-01,8.788949e-01,8.794812e-01,8.799348e-01,8.802952e-01,&
1203  & 8.805880e-01,8.808300e-01,8.810331e-01,8.812058e-01,8.813543e-01,&
1204  & 8.814832e-01,8.815960e-01,8.816956e-01,8.817839e-01,8.818629e-01,&
1205  & 8.819339e-01,8.819979e-01,8.820560e-01,8.821089e-01,8.821573e-01,&
1206  & 8.822016e-01,8.822425e-01,8.822801e-01,8.823150e-01,8.823474e-01,&
1207  & 8.823775e-01,8.824056e-01,8.824318e-01,8.824564e-01,8.824795e-01,&
1208  & 8.825011e-01,8.825215e-01,8.825408e-01,8.825589e-01,8.825761e-01,&
1209  & 8.825924e-01,8.826078e-01,8.826224e-01 /
1210  data asyice2(:, 29) / &
1211  & 8.311124e-01,8.688197e-01,8.900274e-01,9.040696e-01,9.142334e-01,&
1212  & 9.220181e-01,9.282195e-01,9.333048e-01,9.375689e-01,9.412085e-01,&
1213  & 9.443604e-01,9.471230e-01,9.495694e-01,9.517549e-01,9.537224e-01,&
1214  & 9.555057e-01,9.571316e-01,9.586222e-01,9.599952e-01,9.612656e-01,&
1215  & 9.624458e-01,9.635461e-01,9.645756e-01,9.655418e-01,9.664513e-01,&
1216  & 9.673098e-01,9.681222e-01,9.688928e-01,9.696256e-01,9.703237e-01,&
1217  & 9.709903e-01,9.716280e-01,9.722391e-01,9.728258e-01,9.733901e-01,&
1218  & 9.739336e-01,9.744579e-01,9.749645e-01,9.754546e-01,9.759294e-01,&
1219  & 9.763901e-01,9.768376e-01,9.772727e-01 /
1220 
1221 ! --- ... hexagonal ice particle parameterization from fu
1222 ! extinction units (ext coef/iwc): [(m^-1)/(g m^-3)]
1223  data extice3(:, 16) / &
1224  & 5.194013e-01,3.215089e-01,2.327917e-01,1.824424e-01,1.499977e-01,&
1225  & 1.273492e-01,1.106421e-01,9.780982e-02,8.764435e-02,7.939266e-02,&
1226  & 7.256081e-02,6.681137e-02,6.190600e-02,5.767154e-02,5.397915e-02,&
1227  & 5.073102e-02,4.785151e-02,4.528125e-02,4.297296e-02,4.088853e-02,&
1228  & 3.899690e-02,3.727251e-02,3.569411e-02,3.424393e-02,3.290694e-02,&
1229  & 3.167040e-02,3.052340e-02,2.945654e-02,2.846172e-02,2.753188e-02,&
1230  & 2.666085e-02,2.584322e-02,2.507423e-02,2.434967e-02,2.366579e-02,&
1231  & 2.301926e-02,2.240711e-02,2.182666e-02,2.127551e-02,2.075150e-02,&
1232  & 2.025267e-02,1.977725e-02,1.932364e-02,1.889035e-02,1.847607e-02,&
1233  & 1.807956e-02 /
1234  data extice3(:, 17) / &
1235  & 4.901155e-01,3.065286e-01,2.230800e-01,1.753951e-01,1.445402e-01,&
1236  & 1.229417e-01,1.069777e-01,9.469760e-02,8.495824e-02,7.704501e-02,&
1237  & 7.048834e-02,6.496693e-02,6.025353e-02,5.618286e-02,5.263186e-02,&
1238  & 4.950698e-02,4.673585e-02,4.426164e-02,4.203904e-02,4.003153e-02,&
1239  & 3.820932e-02,3.654790e-02,3.502688e-02,3.362919e-02,3.234041e-02,&
1240  & 3.114829e-02,3.004234e-02,2.901356e-02,2.805413e-02,2.715727e-02,&
1241  & 2.631705e-02,2.552828e-02,2.478637e-02,2.408725e-02,2.342734e-02,&
1242  & 2.280343e-02,2.221264e-02,2.165242e-02,2.112043e-02,2.061461e-02,&
1243  & 2.013308e-02,1.967411e-02,1.923616e-02,1.881783e-02,1.841781e-02,&
1244  & 1.803494e-02 /
1245  data extice3(:, 18) / &
1246  & 5.056264e-01,3.160261e-01,2.298442e-01,1.805973e-01,1.487318e-01,&
1247  & 1.264258e-01,1.099389e-01,9.725656e-02,8.719819e-02,7.902576e-02,&
1248  & 7.225433e-02,6.655206e-02,6.168427e-02,5.748028e-02,5.381296e-02,&
1249  & 5.058572e-02,4.772383e-02,4.516857e-02,4.287317e-02,4.079990e-02,&
1250  & 3.891801e-02,3.720217e-02,3.563133e-02,3.418786e-02,3.285686e-02,&
1251  & 3.162569e-02,3.048352e-02,2.942104e-02,2.843018e-02,2.750395e-02,&
1252  & 2.663621e-02,2.582160e-02,2.505539e-02,2.433337e-02,2.365185e-02,&
1253  & 2.300750e-02,2.239736e-02,2.181878e-02,2.126937e-02,2.074699e-02,&
1254  & 2.024968e-02,1.977567e-02,1.932338e-02,1.889134e-02,1.847823e-02,&
1255  & 1.808281e-02 /
1256  data extice3(:, 19) / &
1257  & 4.881605e-01,3.055237e-01,2.225070e-01,1.750688e-01,1.443736e-01,&
1258  & 1.228869e-01,1.070054e-01,9.478893e-02,8.509997e-02,7.722769e-02,&
1259  & 7.070495e-02,6.521211e-02,6.052311e-02,5.647351e-02,5.294088e-02,&
1260  & 4.983217e-02,4.707539e-02,4.461398e-02,4.240288e-02,4.040575e-02,&
1261  & 3.859298e-02,3.694016e-02,3.542701e-02,3.403655e-02,3.275444e-02,&
1262  & 3.156849e-02,3.046827e-02,2.944481e-02,2.849034e-02,2.759812e-02,&
1263  & 2.676226e-02,2.597757e-02,2.523949e-02,2.454400e-02,2.388750e-02,&
1264  & 2.326682e-02,2.267909e-02,2.212176e-02,2.159253e-02,2.108933e-02,&
1265  & 2.061028e-02,2.015369e-02,1.971801e-02,1.930184e-02,1.890389e-02,&
1266  & 1.852300e-02 /
1267  data extice3(:, 20) / &
1268  & 5.103703e-01,3.188144e-01,2.317435e-01,1.819887e-01,1.497944e-01,&
1269  & 1.272584e-01,1.106013e-01,9.778822e-02,8.762610e-02,7.936938e-02,&
1270  & 7.252809e-02,6.676701e-02,6.184901e-02,5.760165e-02,5.389651e-02,&
1271  & 5.063598e-02,4.774457e-02,4.516295e-02,4.284387e-02,4.074922e-02,&
1272  & 3.884792e-02,3.711438e-02,3.552734e-02,3.406898e-02,3.272425e-02,&
1273  & 3.148038e-02,3.032643e-02,2.925299e-02,2.825191e-02,2.731612e-02,&
1274  & 2.643943e-02,2.561642e-02,2.484230e-02,2.411284e-02,2.342429e-02,&
1275  & 2.277329e-02,2.215686e-02,2.157231e-02,2.101724e-02,2.048946e-02,&
1276  & 1.998702e-02,1.950813e-02,1.905118e-02,1.861468e-02,1.819730e-02,&
1277  & 1.779781e-02 /
1278  data extice3(:, 21) / &
1279  & 5.031161e-01,3.144511e-01,2.286942e-01,1.796903e-01,1.479819e-01,&
1280  & 1.257860e-01,1.093803e-01,9.676059e-02,8.675183e-02,7.861971e-02,&
1281  & 7.188168e-02,6.620754e-02,6.136376e-02,5.718050e-02,5.353127e-02,&
1282  & 5.031995e-02,4.747218e-02,4.492952e-02,4.264544e-02,4.058240e-02,&
1283  & 3.870979e-02,3.700242e-02,3.543933e-02,3.400297e-02,3.267854e-02,&
1284  & 3.145345e-02,3.031691e-02,2.925967e-02,2.827370e-02,2.735203e-02,&
1285  & 2.648858e-02,2.567798e-02,2.491555e-02,2.419710e-02,2.351893e-02,&
1286  & 2.287776e-02,2.227063e-02,2.169491e-02,2.114821e-02,2.062840e-02,&
1287  & 2.013354e-02,1.966188e-02,1.921182e-02,1.878191e-02,1.837083e-02,&
1288  & 1.797737e-02 /
1289  data extice3(:, 22) / &
1290  & 4.949453e-01,3.095918e-01,2.253402e-01,1.771964e-01,1.460446e-01,&
1291  & 1.242383e-01,1.081206e-01,9.572235e-02,8.588928e-02,7.789990e-02,&
1292  & 7.128013e-02,6.570559e-02,6.094684e-02,5.683701e-02,5.325183e-02,&
1293  & 5.009688e-02,4.729909e-02,4.480106e-02,4.255708e-02,4.053025e-02,&
1294  & 3.869051e-02,3.701310e-02,3.547745e-02,3.406631e-02,3.276512e-02,&
1295  & 3.156153e-02,3.044494e-02,2.940626e-02,2.843759e-02,2.753211e-02,&
1296  & 2.668381e-02,2.588744e-02,2.513839e-02,2.443255e-02,2.376629e-02,&
1297  & 2.313637e-02,2.253990e-02,2.197428e-02,2.143718e-02,2.092649e-02,&
1298  & 2.044032e-02,1.997694e-02,1.953478e-02,1.911241e-02,1.870855e-02,&
1299  & 1.832199e-02 /
1300  data extice3(:, 23) / &
1301  & 5.052816e-01,3.157665e-01,2.296233e-01,1.803986e-01,1.485473e-01,&
1302  & 1.262514e-01,1.097718e-01,9.709524e-02,8.704139e-02,7.887264e-02,&
1303  & 7.210424e-02,6.640454e-02,6.153894e-02,5.733683e-02,5.367116e-02,&
1304  & 5.044537e-02,4.758477e-02,4.503066e-02,4.273629e-02,4.066395e-02,&
1305  & 3.878291e-02,3.706784e-02,3.549771e-02,3.405488e-02,3.272448e-02,&
1306  & 3.149387e-02,3.035221e-02,2.929020e-02,2.829979e-02,2.737397e-02,&
1307  & 2.650663e-02,2.569238e-02,2.492651e-02,2.420482e-02,2.352361e-02,&
1308  & 2.287954e-02,2.226968e-02,2.169136e-02,2.114220e-02,2.062005e-02,&
1309  & 2.012296e-02,1.964917e-02,1.919709e-02,1.876524e-02,1.835231e-02,&
1310  & 1.795707e-02 /
1311  data extice3(:, 24) / &
1312  & 5.042067e-01,3.151195e-01,2.291708e-01,1.800573e-01,1.482779e-01,&
1313  & 1.260324e-01,1.095900e-01,9.694202e-02,8.691087e-02,7.876056e-02,&
1314  & 7.200745e-02,6.632062e-02,6.146600e-02,5.727338e-02,5.361599e-02,&
1315  & 5.039749e-02,4.754334e-02,4.499500e-02,4.270580e-02,4.063815e-02,&
1316  & 3.876135e-02,3.705016e-02,3.548357e-02,3.404400e-02,3.271661e-02,&
1317  & 3.148877e-02,3.034969e-02,2.929008e-02,2.830191e-02,2.737818e-02,&
1318  & 2.651279e-02,2.570039e-02,2.493624e-02,2.421618e-02,2.353650e-02,&
1319  & 2.289390e-02,2.228541e-02,2.170840e-02,2.116048e-02,2.063950e-02,&
1320  & 2.014354e-02,1.967082e-02,1.921975e-02,1.878888e-02,1.837688e-02,&
1321  & 1.798254e-02 /
1322  data extice3(:, 25) / &
1323  & 5.022507e-01,3.139246e-01,2.283218e-01,1.794059e-01,1.477544e-01,&
1324  & 1.255984e-01,1.092222e-01,9.662516e-02,8.663439e-02,7.851688e-02,&
1325  & 7.179095e-02,6.612700e-02,6.129193e-02,5.711618e-02,5.347351e-02,&
1326  & 5.026796e-02,4.742530e-02,4.488721e-02,4.260724e-02,4.054790e-02,&
1327  & 3.867866e-02,3.697435e-02,3.541407e-02,3.398029e-02,3.265824e-02,&
1328  & 3.143535e-02,3.030085e-02,2.924551e-02,2.826131e-02,2.734130e-02,&
1329  & 2.647939e-02,2.567026e-02,2.490919e-02,2.419203e-02,2.351509e-02,&
1330  & 2.287507e-02,2.226903e-02,2.169434e-02,2.114862e-02,2.062975e-02,&
1331  & 2.013578e-02,1.966496e-02,1.921571e-02,1.878658e-02,1.837623e-02,&
1332  & 1.798348e-02 /
1333  data extice3(:, 26) / &
1334  & 5.068316e-01,3.166869e-01,2.302576e-01,1.808693e-01,1.489122e-01,&
1335  & 1.265423e-01,1.100080e-01,9.728926e-02,8.720201e-02,7.900612e-02,&
1336  & 7.221524e-02,6.649660e-02,6.161484e-02,5.739877e-02,5.372093e-02,&
1337  & 5.048442e-02,4.761431e-02,4.505172e-02,4.274972e-02,4.067050e-02,&
1338  & 3.878321e-02,3.706244e-02,3.548710e-02,3.403948e-02,3.270466e-02,&
1339  & 3.146995e-02,3.032450e-02,2.925897e-02,2.826527e-02,2.733638e-02,&
1340  & 2.646615e-02,2.564920e-02,2.488078e-02,2.415670e-02,2.347322e-02,&
1341  & 2.282702e-02,2.221513e-02,2.163489e-02,2.108390e-02,2.056002e-02,&
1342  & 2.006128e-02,1.958591e-02,1.913232e-02,1.869904e-02,1.828474e-02,&
1343  & 1.788819e-02 /
1344  data extice3(:, 27) / &
1345  & 5.077707e-01,3.172636e-01,2.306695e-01,1.811871e-01,1.491691e-01,&
1346  & 1.267565e-01,1.101907e-01,9.744773e-02,8.734125e-02,7.912973e-02,&
1347  & 7.232591e-02,6.659637e-02,6.170530e-02,5.748120e-02,5.379634e-02,&
1348  & 5.055367e-02,4.767809e-02,4.511061e-02,4.280423e-02,4.072104e-02,&
1349  & 3.883015e-02,3.710611e-02,3.552776e-02,3.407738e-02,3.274002e-02,&
1350  & 3.150296e-02,3.035532e-02,2.928776e-02,2.829216e-02,2.736150e-02,&
1351  & 2.648961e-02,2.567111e-02,2.490123e-02,2.417576e-02,2.349098e-02,&
1352  & 2.284354e-02,2.223049e-02,2.164914e-02,2.109711e-02,2.057222e-02,&
1353  & 2.007253e-02,1.959626e-02,1.914181e-02,1.870770e-02,1.829261e-02,&
1354  & 1.789531e-02 /
1355  data extice3(:, 28) / &
1356  & 5.062281e-01,3.163402e-01,2.300275e-01,1.807060e-01,1.487921e-01,&
1357  & 1.264523e-01,1.099403e-01,9.723879e-02,8.716516e-02,7.898034e-02,&
1358  & 7.219863e-02,6.648771e-02,6.161254e-02,5.740217e-02,5.372929e-02,&
1359  & 5.049716e-02,4.763092e-02,4.507179e-02,4.277290e-02,4.069649e-02,&
1360  & 3.881175e-02,3.709331e-02,3.552008e-02,3.407442e-02,3.274141e-02,&
1361  & 3.150837e-02,3.036447e-02,2.930037e-02,2.830801e-02,2.738037e-02,&
1362  & 2.651132e-02,2.569547e-02,2.492810e-02,2.420499e-02,2.352243e-02,&
1363  & 2.287710e-02,2.226604e-02,2.168658e-02,2.113634e-02,2.061316e-02,&
1364  & 2.011510e-02,1.964038e-02,1.918740e-02,1.875471e-02,1.834096e-02,&
1365  & 1.794495e-02 /
1366  data extice3(:, 29) / &
1367  & 1.338834e-01,1.924912e-01,1.755523e-01,1.534793e-01,1.343937e-01,&
1368  & 1.187883e-01,1.060654e-01,9.559106e-02,8.685880e-02,7.948698e-02,&
1369  & 7.319086e-02,6.775669e-02,6.302215e-02,5.886236e-02,5.517996e-02,&
1370  & 5.189810e-02,4.895539e-02,4.630225e-02,4.389823e-02,4.171002e-02,&
1371  & 3.970998e-02,3.787493e-02,3.618537e-02,3.462471e-02,3.317880e-02,&
1372  & 3.183547e-02,3.058421e-02,2.941590e-02,2.832256e-02,2.729724e-02,&
1373  & 2.633377e-02,2.542675e-02,2.457136e-02,2.376332e-02,2.299882e-02,&
1374  & 2.227443e-02,2.158707e-02,2.093400e-02,2.031270e-02,1.972091e-02,&
1375  & 1.915659e-02,1.861787e-02,1.810304e-02,1.761055e-02,1.713899e-02,&
1376  & 1.668704e-02 /
1377 
1378 ! --- ... single-scattering albedo from fu, unitless
1379  data ssaice3(:, 16) / &
1380  & 6.749442e-01,6.649947e-01,6.565828e-01,6.489928e-01,6.420046e-01,&
1381  & 6.355231e-01,6.294964e-01,6.238901e-01,6.186783e-01,6.138395e-01,&
1382  & 6.093543e-01,6.052049e-01,6.013742e-01,5.978457e-01,5.946030e-01,&
1383  & 5.916302e-01,5.889115e-01,5.864310e-01,5.841731e-01,5.821221e-01,&
1384  & 5.802624e-01,5.785785e-01,5.770549e-01,5.756759e-01,5.744262e-01,&
1385  & 5.732901e-01,5.722524e-01,5.712974e-01,5.704097e-01,5.695739e-01,&
1386  & 5.687747e-01,5.679964e-01,5.672238e-01,5.664415e-01,5.656340e-01,&
1387  & 5.647860e-01,5.638821e-01,5.629070e-01,5.618452e-01,5.606815e-01,&
1388  & 5.594006e-01,5.579870e-01,5.564255e-01,5.547008e-01,5.527976e-01,&
1389  & 5.507005e-01 /
1390  data ssaice3(:, 17) / &
1391  & 7.628550e-01,7.567297e-01,7.508463e-01,7.451972e-01,7.397745e-01,&
1392  & 7.345705e-01,7.295775e-01,7.247881e-01,7.201945e-01,7.157894e-01,&
1393  & 7.115652e-01,7.075145e-01,7.036300e-01,6.999044e-01,6.963304e-01,&
1394  & 6.929007e-01,6.896083e-01,6.864460e-01,6.834067e-01,6.804833e-01,&
1395  & 6.776690e-01,6.749567e-01,6.723397e-01,6.698109e-01,6.673637e-01,&
1396  & 6.649913e-01,6.626870e-01,6.604441e-01,6.582561e-01,6.561163e-01,&
1397  & 6.540182e-01,6.519554e-01,6.499215e-01,6.479099e-01,6.459145e-01,&
1398  & 6.439289e-01,6.419468e-01,6.399621e-01,6.379686e-01,6.359601e-01,&
1399  & 6.339306e-01,6.318740e-01,6.297845e-01,6.276559e-01,6.254825e-01,&
1400  & 6.232583e-01 /
1401  data ssaice3(:, 18) / &
1402  & 9.924147e-01,9.882792e-01,9.842257e-01,9.802522e-01,9.763566e-01,&
1403  & 9.725367e-01,9.687905e-01,9.651157e-01,9.615104e-01,9.579725e-01,&
1404  & 9.544997e-01,9.510901e-01,9.477416e-01,9.444520e-01,9.412194e-01,&
1405  & 9.380415e-01,9.349165e-01,9.318421e-01,9.288164e-01,9.258373e-01,&
1406  & 9.229027e-01,9.200106e-01,9.171589e-01,9.143457e-01,9.115688e-01,&
1407  & 9.088263e-01,9.061161e-01,9.034362e-01,9.007846e-01,8.981592e-01,&
1408  & 8.955581e-01,8.929792e-01,8.904206e-01,8.878803e-01,8.853562e-01,&
1409  & 8.828464e-01,8.803488e-01,8.778616e-01,8.753827e-01,8.729102e-01,&
1410  & 8.704421e-01,8.679764e-01,8.655112e-01,8.630445e-01,8.605744e-01,&
1411  & 8.580989e-01 /
1412  data ssaice3(:, 19) / &
1413  & 9.629413e-01,9.517182e-01,9.409209e-01,9.305366e-01,9.205529e-01,&
1414  & 9.109569e-01,9.017362e-01,8.928780e-01,8.843699e-01,8.761992e-01,&
1415  & 8.683536e-01,8.608204e-01,8.535873e-01,8.466417e-01,8.399712e-01,&
1416  & 8.335635e-01,8.274062e-01,8.214868e-01,8.157932e-01,8.103129e-01,&
1417  & 8.050336e-01,7.999432e-01,7.950294e-01,7.902798e-01,7.856825e-01,&
1418  & 7.812250e-01,7.768954e-01,7.726815e-01,7.685711e-01,7.645522e-01,&
1419  & 7.606126e-01,7.567404e-01,7.529234e-01,7.491498e-01,7.454074e-01,&
1420  & 7.416844e-01,7.379688e-01,7.342485e-01,7.305118e-01,7.267468e-01,&
1421  & 7.229415e-01,7.190841e-01,7.151628e-01,7.111657e-01,7.070811e-01,&
1422  & 7.028972e-01 /
1423  data ssaice3(:, 20) / &
1424  & 9.942270e-01,9.909206e-01,9.876775e-01,9.844960e-01,9.813746e-01,&
1425  & 9.783114e-01,9.753049e-01,9.723535e-01,9.694553e-01,9.666088e-01,&
1426  & 9.638123e-01,9.610641e-01,9.583626e-01,9.557060e-01,9.530928e-01,&
1427  & 9.505211e-01,9.479895e-01,9.454961e-01,9.430393e-01,9.406174e-01,&
1428  & 9.382288e-01,9.358717e-01,9.335446e-01,9.312456e-01,9.289731e-01,&
1429  & 9.267255e-01,9.245010e-01,9.222980e-01,9.201147e-01,9.179496e-01,&
1430  & 9.158008e-01,9.136667e-01,9.115457e-01,9.094359e-01,9.073358e-01,&
1431  & 9.052436e-01,9.031577e-01,9.010763e-01,8.989977e-01,8.969203e-01,&
1432  & 8.948423e-01,8.927620e-01,8.906778e-01,8.885879e-01,8.864907e-01,&
1433  & 8.843843e-01 /
1434  data ssaice3(:, 21) / &
1435  & 9.934014e-01,9.899331e-01,9.865537e-01,9.832610e-01,9.800523e-01,&
1436  & 9.769254e-01,9.738777e-01,9.709069e-01,9.680106e-01,9.651862e-01,&
1437  & 9.624315e-01,9.597439e-01,9.571212e-01,9.545608e-01,9.520605e-01,&
1438  & 9.496177e-01,9.472301e-01,9.448954e-01,9.426111e-01,9.403749e-01,&
1439  & 9.381843e-01,9.360370e-01,9.339307e-01,9.318629e-01,9.298313e-01,&
1440  & 9.278336e-01,9.258673e-01,9.239302e-01,9.220198e-01,9.201338e-01,&
1441  & 9.182700e-01,9.164258e-01,9.145991e-01,9.127874e-01,9.109884e-01,&
1442  & 9.091999e-01,9.074194e-01,9.056447e-01,9.038735e-01,9.021033e-01,&
1443  & 9.003320e-01,8.985572e-01,8.967766e-01,8.949879e-01,8.931888e-01,&
1444  & 8.913770e-01 /
1445  data ssaice3(:, 22) / &
1446  & 9.994833e-01,9.992055e-01,9.989278e-01,9.986500e-01,9.983724e-01,&
1447  & 9.980947e-01,9.978172e-01,9.975397e-01,9.972623e-01,9.969849e-01,&
1448  & 9.967077e-01,9.964305e-01,9.961535e-01,9.958765e-01,9.955997e-01,&
1449  & 9.953230e-01,9.950464e-01,9.947699e-01,9.944936e-01,9.942174e-01,&
1450  & 9.939414e-01,9.936656e-01,9.933899e-01,9.931144e-01,9.928390e-01,&
1451  & 9.925639e-01,9.922889e-01,9.920141e-01,9.917396e-01,9.914652e-01,&
1452  & 9.911911e-01,9.909171e-01,9.906434e-01,9.903700e-01,9.900967e-01,&
1453  & 9.898237e-01,9.895510e-01,9.892784e-01,9.890062e-01,9.887342e-01,&
1454  & 9.884625e-01,9.881911e-01,9.879199e-01,9.876490e-01,9.873784e-01,&
1455  & 9.871081e-01 /
1456  data ssaice3(:, 23) / &
1457  & 9.999343e-01,9.998917e-01,9.998492e-01,9.998067e-01,9.997642e-01,&
1458  & 9.997218e-01,9.996795e-01,9.996372e-01,9.995949e-01,9.995528e-01,&
1459  & 9.995106e-01,9.994686e-01,9.994265e-01,9.993845e-01,9.993426e-01,&
1460  & 9.993007e-01,9.992589e-01,9.992171e-01,9.991754e-01,9.991337e-01,&
1461  & 9.990921e-01,9.990505e-01,9.990089e-01,9.989674e-01,9.989260e-01,&
1462  & 9.988846e-01,9.988432e-01,9.988019e-01,9.987606e-01,9.987194e-01,&
1463  & 9.986782e-01,9.986370e-01,9.985959e-01,9.985549e-01,9.985139e-01,&
1464  & 9.984729e-01,9.984319e-01,9.983910e-01,9.983502e-01,9.983094e-01,&
1465  & 9.982686e-01,9.982279e-01,9.981872e-01,9.981465e-01,9.981059e-01,&
1466  & 9.980653e-01 /
1467  data ssaice3(:, 24) / &
1468  & 9.999978e-01,9.999965e-01,9.999952e-01,9.999939e-01,9.999926e-01,&
1469  & 9.999913e-01,9.999900e-01,9.999887e-01,9.999873e-01,9.999860e-01,&
1470  & 9.999847e-01,9.999834e-01,9.999821e-01,9.999808e-01,9.999795e-01,&
1471  & 9.999782e-01,9.999769e-01,9.999756e-01,9.999743e-01,9.999730e-01,&
1472  & 9.999717e-01,9.999704e-01,9.999691e-01,9.999678e-01,9.999665e-01,&
1473  & 9.999652e-01,9.999639e-01,9.999626e-01,9.999613e-01,9.999600e-01,&
1474  & 9.999587e-01,9.999574e-01,9.999561e-01,9.999548e-01,9.999535e-01,&
1475  & 9.999522e-01,9.999509e-01,9.999496e-01,9.999483e-01,9.999470e-01,&
1476  & 9.999457e-01,9.999444e-01,9.999431e-01,9.999418e-01,9.999405e-01,&
1477  & 9.999392e-01 /
1478  data ssaice3(:, 25) / &
1479  & 9.999994e-01,9.999993e-01,9.999991e-01,9.999990e-01,9.999989e-01,&
1480  & 9.999987e-01,9.999986e-01,9.999984e-01,9.999983e-01,9.999982e-01,&
1481  & 9.999980e-01,9.999979e-01,9.999977e-01,9.999976e-01,9.999975e-01,&
1482  & 9.999973e-01,9.999972e-01,9.999970e-01,9.999969e-01,9.999967e-01,&
1483  & 9.999966e-01,9.999965e-01,9.999963e-01,9.999962e-01,9.999960e-01,&
1484  & 9.999959e-01,9.999957e-01,9.999956e-01,9.999954e-01,9.999953e-01,&
1485  & 9.999952e-01,9.999950e-01,9.999949e-01,9.999947e-01,9.999946e-01,&
1486  & 9.999944e-01,9.999943e-01,9.999941e-01,9.999940e-01,9.999939e-01,&
1487  & 9.999937e-01,9.999936e-01,9.999934e-01,9.999933e-01,9.999931e-01,&
1488  & 9.999930e-01 /
1489  data ssaice3(:, 26) / &
1490  & 9.999997e-01,9.999995e-01,9.999992e-01,9.999990e-01,9.999987e-01,&
1491  & 9.999985e-01,9.999983e-01,9.999980e-01,9.999978e-01,9.999976e-01,&
1492  & 9.999973e-01,9.999971e-01,9.999969e-01,9.999967e-01,9.999965e-01,&
1493  & 9.999963e-01,9.999960e-01,9.999958e-01,9.999956e-01,9.999954e-01,&
1494  & 9.999952e-01,9.999950e-01,9.999948e-01,9.999946e-01,9.999944e-01,&
1495  & 9.999942e-01,9.999939e-01,9.999937e-01,9.999935e-01,9.999933e-01,&
1496  & 9.999931e-01,9.999929e-01,9.999927e-01,9.999925e-01,9.999923e-01,&
1497  & 9.999920e-01,9.999918e-01,9.999916e-01,9.999914e-01,9.999911e-01,&
1498  & 9.999909e-01,9.999907e-01,9.999905e-01,9.999902e-01,9.999900e-01,&
1499  & 9.999897e-01 /
1500  data ssaice3(:, 27) / &
1501  & 9.999991e-01,9.999985e-01,9.999980e-01,9.999974e-01,9.999968e-01,&
1502  & 9.999963e-01,9.999957e-01,9.999951e-01,9.999946e-01,9.999940e-01,&
1503  & 9.999934e-01,9.999929e-01,9.999923e-01,9.999918e-01,9.999912e-01,&
1504  & 9.999907e-01,9.999901e-01,9.999896e-01,9.999891e-01,9.999885e-01,&
1505  & 9.999880e-01,9.999874e-01,9.999869e-01,9.999863e-01,9.999858e-01,&
1506  & 9.999853e-01,9.999847e-01,9.999842e-01,9.999836e-01,9.999831e-01,&
1507  & 9.999826e-01,9.999820e-01,9.999815e-01,9.999809e-01,9.999804e-01,&
1508  & 9.999798e-01,9.999793e-01,9.999787e-01,9.999782e-01,9.999776e-01,&
1509  & 9.999770e-01,9.999765e-01,9.999759e-01,9.999754e-01,9.999748e-01,&
1510  & 9.999742e-01 /
1511  data ssaice3(:, 28) / &
1512  & 9.999975e-01,9.999961e-01,9.999946e-01,9.999931e-01,9.999917e-01,&
1513  & 9.999903e-01,9.999888e-01,9.999874e-01,9.999859e-01,9.999845e-01,&
1514  & 9.999831e-01,9.999816e-01,9.999802e-01,9.999788e-01,9.999774e-01,&
1515  & 9.999759e-01,9.999745e-01,9.999731e-01,9.999717e-01,9.999702e-01,&
1516  & 9.999688e-01,9.999674e-01,9.999660e-01,9.999646e-01,9.999631e-01,&
1517  & 9.999617e-01,9.999603e-01,9.999589e-01,9.999574e-01,9.999560e-01,&
1518  & 9.999546e-01,9.999532e-01,9.999517e-01,9.999503e-01,9.999489e-01,&
1519  & 9.999474e-01,9.999460e-01,9.999446e-01,9.999431e-01,9.999417e-01,&
1520  & 9.999403e-01,9.999388e-01,9.999374e-01,9.999359e-01,9.999345e-01,&
1521  & 9.999330e-01 /
1522  data ssaice3(:, 29) / &
1523  & 4.526500e-01,5.287890e-01,5.410487e-01,5.459865e-01,5.485149e-01,&
1524  & 5.498914e-01,5.505895e-01,5.508310e-01,5.507364e-01,5.503793e-01,&
1525  & 5.498090e-01,5.490612e-01,5.481637e-01,5.471395e-01,5.460083e-01,&
1526  & 5.447878e-01,5.434946e-01,5.421442e-01,5.407514e-01,5.393309e-01,&
1527  & 5.378970e-01,5.364641e-01,5.350464e-01,5.336582e-01,5.323140e-01,&
1528  & 5.310283e-01,5.298158e-01,5.286914e-01,5.276704e-01,5.267680e-01,&
1529  & 5.260000e-01,5.253823e-01,5.249311e-01,5.246629e-01,5.245946e-01,&
1530  & 5.247434e-01,5.251268e-01,5.257626e-01,5.266693e-01,5.278653e-01,&
1531  & 5.293698e-01,5.312022e-01,5.333823e-01,5.359305e-01,5.388676e-01,&
1532  & 5.422146e-01 /
1533 
1534 ! --- ... asymmetry factor from fu, unitless
1535  data asyice3(:, 16) / &
1536  & 8.340752e-01,8.435170e-01,8.517487e-01,8.592064e-01,8.660387e-01,&
1537  & 8.723204e-01,8.780997e-01,8.834137e-01,8.882934e-01,8.927662e-01,&
1538  & 8.968577e-01,9.005914e-01,9.039899e-01,9.070745e-01,9.098659e-01,&
1539  & 9.123836e-01,9.146466e-01,9.166734e-01,9.184817e-01,9.200886e-01,&
1540  & 9.215109e-01,9.227648e-01,9.238661e-01,9.248304e-01,9.256727e-01,&
1541  & 9.264078e-01,9.270505e-01,9.276150e-01,9.281156e-01,9.285662e-01,&
1542  & 9.289806e-01,9.293726e-01,9.297557e-01,9.301435e-01,9.305491e-01,&
1543  & 9.309859e-01,9.314671e-01,9.320055e-01,9.326140e-01,9.333053e-01,&
1544  & 9.340919e-01,9.349861e-01,9.360000e-01,9.371451e-01,9.384329e-01,&
1545  & 9.398744e-01 /
1546  data asyice3(:, 17) / &
1547  & 8.728160e-01,8.777333e-01,8.823754e-01,8.867535e-01,8.908785e-01,&
1548  & 8.947611e-01,8.984118e-01,9.018408e-01,9.050582e-01,9.080739e-01,&
1549  & 9.108976e-01,9.135388e-01,9.160068e-01,9.183106e-01,9.204595e-01,&
1550  & 9.224620e-01,9.243271e-01,9.260632e-01,9.276788e-01,9.291822e-01,&
1551  & 9.305817e-01,9.318853e-01,9.331012e-01,9.342372e-01,9.353013e-01,&
1552  & 9.363013e-01,9.372450e-01,9.381400e-01,9.389939e-01,9.398145e-01,&
1553  & 9.406092e-01,9.413856e-01,9.421511e-01,9.429131e-01,9.436790e-01,&
1554  & 9.444561e-01,9.452517e-01,9.460729e-01,9.469270e-01,9.478209e-01,&
1555  & 9.487617e-01,9.497562e-01,9.508112e-01,9.519335e-01,9.531294e-01,&
1556  & 9.544055e-01 /
1557  data asyice3(:, 18) / &
1558  & 7.897566e-01,7.948704e-01,7.998041e-01,8.045623e-01,8.091495e-01,&
1559  & 8.135702e-01,8.178290e-01,8.219305e-01,8.258790e-01,8.296792e-01,&
1560  & 8.333355e-01,8.368524e-01,8.402343e-01,8.434856e-01,8.466108e-01,&
1561  & 8.496143e-01,8.525004e-01,8.552737e-01,8.579384e-01,8.604990e-01,&
1562  & 8.629597e-01,8.653250e-01,8.675992e-01,8.697867e-01,8.718916e-01,&
1563  & 8.739185e-01,8.758715e-01,8.777551e-01,8.795734e-01,8.813308e-01,&
1564  & 8.830315e-01,8.846799e-01,8.862802e-01,8.878366e-01,8.893534e-01,&
1565  & 8.908350e-01,8.922854e-01,8.937090e-01,8.951099e-01,8.964925e-01,&
1566  & 8.978609e-01,8.992192e-01,9.005718e-01,9.019229e-01,9.032765e-01,&
1567  & 9.046369e-01 /
1568  data asyice3(:, 19) / &
1569  & 7.812615e-01,7.887764e-01,7.959664e-01,8.028413e-01,8.094109e-01,&
1570  & 8.156849e-01,8.216730e-01,8.273846e-01,8.328294e-01,8.380166e-01,&
1571  & 8.429556e-01,8.476556e-01,8.521258e-01,8.563753e-01,8.604131e-01,&
1572  & 8.642481e-01,8.678893e-01,8.713455e-01,8.746254e-01,8.777378e-01,&
1573  & 8.806914e-01,8.834948e-01,8.861566e-01,8.886854e-01,8.910897e-01,&
1574  & 8.933779e-01,8.955586e-01,8.976402e-01,8.996311e-01,9.015398e-01,&
1575  & 9.033745e-01,9.051436e-01,9.068555e-01,9.085185e-01,9.101410e-01,&
1576  & 9.117311e-01,9.132972e-01,9.148476e-01,9.163905e-01,9.179340e-01,&
1577  & 9.194864e-01,9.210559e-01,9.226505e-01,9.242784e-01,9.259476e-01,&
1578  & 9.276661e-01 /
1579  data asyice3(:, 20) / &
1580  & 7.640720e-01,7.691119e-01,7.739941e-01,7.787222e-01,7.832998e-01,&
1581  & 7.877304e-01,7.920177e-01,7.961652e-01,8.001765e-01,8.040551e-01,&
1582  & 8.078044e-01,8.114280e-01,8.149294e-01,8.183119e-01,8.215791e-01,&
1583  & 8.247344e-01,8.277812e-01,8.307229e-01,8.335629e-01,8.363046e-01,&
1584  & 8.389514e-01,8.415067e-01,8.439738e-01,8.463560e-01,8.486568e-01,&
1585  & 8.508795e-01,8.530274e-01,8.551039e-01,8.571122e-01,8.590558e-01,&
1586  & 8.609378e-01,8.627618e-01,8.645309e-01,8.662485e-01,8.679178e-01,&
1587  & 8.695423e-01,8.711251e-01,8.726697e-01,8.741792e-01,8.756571e-01,&
1588  & 8.771065e-01,8.785307e-01,8.799331e-01,8.813169e-01,8.826854e-01,&
1589  & 8.840419e-01 /
1590  data asyice3(:, 21) / &
1591  & 7.602598e-01,7.651572e-01,7.699014e-01,7.744962e-01,7.789452e-01,&
1592  & 7.832522e-01,7.874205e-01,7.914538e-01,7.953555e-01,7.991290e-01,&
1593  & 8.027777e-01,8.063049e-01,8.097140e-01,8.130081e-01,8.161906e-01,&
1594  & 8.192645e-01,8.222331e-01,8.250993e-01,8.278664e-01,8.305374e-01,&
1595  & 8.331153e-01,8.356030e-01,8.380037e-01,8.403201e-01,8.425553e-01,&
1596  & 8.447121e-01,8.467935e-01,8.488022e-01,8.507412e-01,8.526132e-01,&
1597  & 8.544210e-01,8.561675e-01,8.578554e-01,8.594875e-01,8.610665e-01,&
1598  & 8.625951e-01,8.640760e-01,8.655119e-01,8.669055e-01,8.682594e-01,&
1599  & 8.695763e-01,8.708587e-01,8.721094e-01,8.733308e-01,8.745255e-01,&
1600  & 8.756961e-01 /
1601  data asyice3(:, 22) / &
1602  & 7.568957e-01,7.606995e-01,7.644072e-01,7.680204e-01,7.715402e-01,&
1603  & 7.749682e-01,7.783057e-01,7.815541e-01,7.847148e-01,7.877892e-01,&
1604  & 7.907786e-01,7.936846e-01,7.965084e-01,7.992515e-01,8.019153e-01,&
1605  & 8.045011e-01,8.070103e-01,8.094444e-01,8.118048e-01,8.140927e-01,&
1606  & 8.163097e-01,8.184571e-01,8.205364e-01,8.225488e-01,8.244958e-01,&
1607  & 8.263789e-01,8.281993e-01,8.299586e-01,8.316580e-01,8.332991e-01,&
1608  & 8.348831e-01,8.364115e-01,8.378857e-01,8.393071e-01,8.406770e-01,&
1609  & 8.419969e-01,8.432682e-01,8.444923e-01,8.456706e-01,8.468044e-01,&
1610  & 8.478952e-01,8.489444e-01,8.499533e-01,8.509234e-01,8.518561e-01,&
1611  & 8.527528e-01 /
1612  data asyice3(:, 23) / &
1613  & 7.575066e-01,7.606912e-01,7.638236e-01,7.669035e-01,7.699306e-01,&
1614  & 7.729046e-01,7.758254e-01,7.786926e-01,7.815060e-01,7.842654e-01,&
1615  & 7.869705e-01,7.896211e-01,7.922168e-01,7.947574e-01,7.972428e-01,&
1616  & 7.996726e-01,8.020466e-01,8.043646e-01,8.066262e-01,8.088313e-01,&
1617  & 8.109796e-01,8.130709e-01,8.151049e-01,8.170814e-01,8.190001e-01,&
1618  & 8.208608e-01,8.226632e-01,8.244071e-01,8.260924e-01,8.277186e-01,&
1619  & 8.292856e-01,8.307932e-01,8.322411e-01,8.336291e-01,8.349570e-01,&
1620  & 8.362244e-01,8.374312e-01,8.385772e-01,8.396621e-01,8.406856e-01,&
1621  & 8.416476e-01,8.425479e-01,8.433861e-01,8.441620e-01,8.448755e-01,&
1622  & 8.455263e-01 /
1623  data asyice3(:, 24) / &
1624  & 7.568829e-01,7.597947e-01,7.626745e-01,7.655212e-01,7.683337e-01,&
1625  & 7.711111e-01,7.738523e-01,7.765565e-01,7.792225e-01,7.818494e-01,&
1626  & 7.844362e-01,7.869819e-01,7.894854e-01,7.919459e-01,7.943623e-01,&
1627  & 7.967337e-01,7.990590e-01,8.013373e-01,8.035676e-01,8.057488e-01,&
1628  & 8.078802e-01,8.099605e-01,8.119890e-01,8.139645e-01,8.158862e-01,&
1629  & 8.177530e-01,8.195641e-01,8.213183e-01,8.230149e-01,8.246527e-01,&
1630  & 8.262308e-01,8.277483e-01,8.292042e-01,8.305976e-01,8.319275e-01,&
1631  & 8.331929e-01,8.343929e-01,8.355265e-01,8.365928e-01,8.375909e-01,&
1632  & 8.385197e-01,8.393784e-01,8.401659e-01,8.408815e-01,8.415240e-01,&
1633  & 8.420926e-01 /
1634  data asyice3(:, 25) / &
1635  & 7.548616e-01,7.575454e-01,7.602153e-01,7.628696e-01,7.655067e-01,&
1636  & 7.681249e-01,7.707225e-01,7.732978e-01,7.758492e-01,7.783750e-01,&
1637  & 7.808735e-01,7.833430e-01,7.857819e-01,7.881886e-01,7.905612e-01,&
1638  & 7.928983e-01,7.951980e-01,7.974588e-01,7.996789e-01,8.018567e-01,&
1639  & 8.039905e-01,8.060787e-01,8.081196e-01,8.101115e-01,8.120527e-01,&
1640  & 8.139416e-01,8.157764e-01,8.175557e-01,8.192776e-01,8.209405e-01,&
1641  & 8.225427e-01,8.240826e-01,8.255585e-01,8.269688e-01,8.283117e-01,&
1642  & 8.295856e-01,8.307889e-01,8.319198e-01,8.329767e-01,8.339579e-01,&
1643  & 8.348619e-01,8.356868e-01,8.364311e-01,8.370930e-01,8.376710e-01,&
1644  & 8.381633e-01 /
1645  data asyice3(:, 26) / &
1646  & 7.491854e-01,7.518523e-01,7.545089e-01,7.571534e-01,7.597839e-01,&
1647  & 7.623987e-01,7.649959e-01,7.675737e-01,7.701303e-01,7.726639e-01,&
1648  & 7.751727e-01,7.776548e-01,7.801084e-01,7.825318e-01,7.849230e-01,&
1649  & 7.872804e-01,7.896020e-01,7.918862e-01,7.941309e-01,7.963345e-01,&
1650  & 7.984951e-01,8.006109e-01,8.026802e-01,8.047009e-01,8.066715e-01,&
1651  & 8.085900e-01,8.104546e-01,8.122636e-01,8.140150e-01,8.157072e-01,&
1652  & 8.173382e-01,8.189063e-01,8.204096e-01,8.218464e-01,8.232148e-01,&
1653  & 8.245130e-01,8.257391e-01,8.268915e-01,8.279682e-01,8.289675e-01,&
1654  & 8.298875e-01,8.307264e-01,8.314824e-01,8.321537e-01,8.327385e-01,&
1655  & 8.332350e-01 /
1656  data asyice3(:, 27) / &
1657  & 7.397086e-01,7.424069e-01,7.450955e-01,7.477725e-01,7.504362e-01,&
1658  & 7.530846e-01,7.557159e-01,7.583283e-01,7.609199e-01,7.634888e-01,&
1659  & 7.660332e-01,7.685512e-01,7.710411e-01,7.735009e-01,7.759288e-01,&
1660  & 7.783229e-01,7.806814e-01,7.830024e-01,7.852841e-01,7.875246e-01,&
1661  & 7.897221e-01,7.918748e-01,7.939807e-01,7.960380e-01,7.980449e-01,&
1662  & 7.999995e-01,8.019000e-01,8.037445e-01,8.055311e-01,8.072581e-01,&
1663  & 8.089235e-01,8.105255e-01,8.120623e-01,8.135319e-01,8.149326e-01,&
1664  & 8.162626e-01,8.175198e-01,8.187025e-01,8.198089e-01,8.208371e-01,&
1665  & 8.217852e-01,8.226514e-01,8.234338e-01,8.241306e-01,8.247399e-01,&
1666  & 8.252599e-01 /
1667  data asyice3(:, 28) / &
1668  & 7.224533e-01,7.251681e-01,7.278728e-01,7.305654e-01,7.332444e-01,&
1669  & 7.359078e-01,7.385539e-01,7.411808e-01,7.437869e-01,7.463702e-01,&
1670  & 7.489291e-01,7.514616e-01,7.539661e-01,7.564408e-01,7.588837e-01,&
1671  & 7.612933e-01,7.636676e-01,7.660049e-01,7.683034e-01,7.705612e-01,&
1672  & 7.727767e-01,7.749480e-01,7.770733e-01,7.791509e-01,7.811789e-01,&
1673  & 7.831556e-01,7.850791e-01,7.869478e-01,7.887597e-01,7.905131e-01,&
1674  & 7.922062e-01,7.938372e-01,7.954044e-01,7.969059e-01,7.983399e-01,&
1675  & 7.997047e-01,8.009985e-01,8.022195e-01,8.033658e-01,8.044357e-01,&
1676  & 8.054275e-01,8.063392e-01,8.071692e-01,8.079157e-01,8.085768e-01,&
1677  & 8.091507e-01 /
1678  data asyice3(:, 29) / &
1679  & 8.850026e-01,9.005489e-01,9.069242e-01,9.121799e-01,9.168987e-01,&
1680  & 9.212259e-01,9.252176e-01,9.289028e-01,9.323000e-01,9.354235e-01,&
1681  & 9.382858e-01,9.408985e-01,9.432734e-01,9.454218e-01,9.473557e-01,&
1682  & 9.490871e-01,9.506282e-01,9.519917e-01,9.531904e-01,9.542374e-01,&
1683  & 9.551461e-01,9.559298e-01,9.566023e-01,9.571775e-01,9.576692e-01,&
1684  & 9.580916e-01,9.584589e-01,9.587853e-01,9.590851e-01,9.593729e-01,&
1685  & 9.596632e-01,9.599705e-01,9.603096e-01,9.606954e-01,9.611427e-01,&
1686  & 9.616667e-01,9.622826e-01,9.630060e-01,9.638524e-01,9.648379e-01,&
1687  & 9.659788e-01,9.672916e-01,9.687933e-01,9.705014e-01,9.724337e-01,&
1688  & 9.746084e-01 /
1689 
1690 ! --- ... fdelta from fu, unitless
1691  data fdlice3(:, 16) / &
1692  & 4.959277e-02,4.685292e-02,4.426104e-02,4.181231e-02,3.950191e-02,&
1693  & 3.732500e-02,3.527675e-02,3.335235e-02,3.154697e-02,2.985578e-02,&
1694  & 2.827395e-02,2.679666e-02,2.541909e-02,2.413640e-02,2.294378e-02,&
1695  & 2.183639e-02,2.080940e-02,1.985801e-02,1.897736e-02,1.816265e-02,&
1696  & 1.740905e-02,1.671172e-02,1.606585e-02,1.546661e-02,1.490917e-02,&
1697  & 1.438870e-02,1.390038e-02,1.343939e-02,1.300089e-02,1.258006e-02,&
1698  & 1.217208e-02,1.177212e-02,1.137536e-02,1.097696e-02,1.057210e-02,&
1699  & 1.015596e-02,9.723704e-03,9.270516e-03,8.791565e-03,8.282026e-03,&
1700  & 7.737072e-03,7.151879e-03,6.521619e-03,5.841467e-03,5.106597e-03,&
1701  & 4.312183e-03 /
1702  data fdlice3(:, 17) / &
1703  & 5.071224e-02,5.000217e-02,4.933872e-02,4.871992e-02,4.814380e-02,&
1704  & 4.760839e-02,4.711170e-02,4.665177e-02,4.622662e-02,4.583426e-02,&
1705  & 4.547274e-02,4.514007e-02,4.483428e-02,4.455340e-02,4.429544e-02,&
1706  & 4.405844e-02,4.384041e-02,4.363939e-02,4.345340e-02,4.328047e-02,&
1707  & 4.311861e-02,4.296586e-02,4.282024e-02,4.267977e-02,4.254248e-02,&
1708  & 4.240640e-02,4.226955e-02,4.212995e-02,4.198564e-02,4.183462e-02,&
1709  & 4.167494e-02,4.150462e-02,4.132167e-02,4.112413e-02,4.091003e-02,&
1710  & 4.067737e-02,4.042420e-02,4.014854e-02,3.984840e-02,3.952183e-02,&
1711  & 3.916683e-02,3.878144e-02,3.836368e-02,3.791158e-02,3.742316e-02,&
1712  & 3.689645e-02 /
1713  data fdlice3(:, 18) / &
1714  & 1.062938e-01,1.065234e-01,1.067822e-01,1.070682e-01,1.073793e-01,&
1715  & 1.077137e-01,1.080693e-01,1.084442e-01,1.088364e-01,1.092439e-01,&
1716  & 1.096647e-01,1.100970e-01,1.105387e-01,1.109878e-01,1.114423e-01,&
1717  & 1.119004e-01,1.123599e-01,1.128190e-01,1.132757e-01,1.137279e-01,&
1718  & 1.141738e-01,1.146113e-01,1.150385e-01,1.154534e-01,1.158540e-01,&
1719  & 1.162383e-01,1.166045e-01,1.169504e-01,1.172741e-01,1.175738e-01,&
1720  & 1.178472e-01,1.180926e-01,1.183080e-01,1.184913e-01,1.186405e-01,&
1721  & 1.187538e-01,1.188291e-01,1.188645e-01,1.188580e-01,1.188076e-01,&
1722  & 1.187113e-01,1.185672e-01,1.183733e-01,1.181277e-01,1.178282e-01,&
1723  & 1.174731e-01 /
1724  data fdlice3(:, 19) / &
1725  & 1.076195e-01,1.065195e-01,1.054696e-01,1.044673e-01,1.035099e-01,&
1726  & 1.025951e-01,1.017203e-01,1.008831e-01,1.000808e-01,9.931116e-02,&
1727  & 9.857151e-02,9.785939e-02,9.717230e-02,9.650774e-02,9.586322e-02,&
1728  & 9.523623e-02,9.462427e-02,9.402484e-02,9.343544e-02,9.285358e-02,&
1729  & 9.227675e-02,9.170245e-02,9.112818e-02,9.055144e-02,8.996974e-02,&
1730  & 8.938056e-02,8.878142e-02,8.816981e-02,8.754323e-02,8.689919e-02,&
1731  & 8.623517e-02,8.554869e-02,8.483724e-02,8.409832e-02,8.332943e-02,&
1732  & 8.252807e-02,8.169175e-02,8.081795e-02,7.990419e-02,7.894796e-02,&
1733  & 7.794676e-02,7.689809e-02,7.579945e-02,7.464834e-02,7.344227e-02,&
1734  & 7.217872e-02 /
1735  data fdlice3(:, 20) / &
1736  & 1.119014e-01,1.122706e-01,1.126690e-01,1.130947e-01,1.135456e-01,&
1737  & 1.140199e-01,1.145154e-01,1.150302e-01,1.155623e-01,1.161096e-01,&
1738  & 1.166703e-01,1.172422e-01,1.178233e-01,1.184118e-01,1.190055e-01,&
1739  & 1.196025e-01,1.202008e-01,1.207983e-01,1.213931e-01,1.219832e-01,&
1740  & 1.225665e-01,1.231411e-01,1.237050e-01,1.242561e-01,1.247926e-01,&
1741  & 1.253122e-01,1.258132e-01,1.262934e-01,1.267509e-01,1.271836e-01,&
1742  & 1.275896e-01,1.279669e-01,1.283134e-01,1.286272e-01,1.289063e-01,&
1743  & 1.291486e-01,1.293522e-01,1.295150e-01,1.296351e-01,1.297104e-01,&
1744  & 1.297390e-01,1.297189e-01,1.296480e-01,1.295244e-01,1.293460e-01,&
1745  & 1.291109e-01 /
1746  data fdlice3(:, 21) / &
1747  & 1.133298e-01,1.136777e-01,1.140556e-01,1.144615e-01,1.148934e-01,&
1748  & 1.153492e-01,1.158269e-01,1.163243e-01,1.168396e-01,1.173706e-01,&
1749  & 1.179152e-01,1.184715e-01,1.190374e-01,1.196108e-01,1.201897e-01,&
1750  & 1.207720e-01,1.213558e-01,1.219389e-01,1.225194e-01,1.230951e-01,&
1751  & 1.236640e-01,1.242241e-01,1.247733e-01,1.253096e-01,1.258309e-01,&
1752  & 1.263352e-01,1.268205e-01,1.272847e-01,1.277257e-01,1.281415e-01,&
1753  & 1.285300e-01,1.288893e-01,1.292173e-01,1.295118e-01,1.297710e-01,&
1754  & 1.299927e-01,1.301748e-01,1.303154e-01,1.304124e-01,1.304637e-01,&
1755  & 1.304673e-01,1.304212e-01,1.303233e-01,1.301715e-01,1.299638e-01,&
1756  & 1.296983e-01 /
1757  data fdlice3(:, 22) / &
1758  & 1.145360e-01,1.153256e-01,1.161453e-01,1.169929e-01,1.178666e-01,&
1759  & 1.187641e-01,1.196835e-01,1.206227e-01,1.215796e-01,1.225522e-01,&
1760  & 1.235383e-01,1.245361e-01,1.255433e-01,1.265579e-01,1.275779e-01,&
1761  & 1.286011e-01,1.296257e-01,1.306494e-01,1.316703e-01,1.326862e-01,&
1762  & 1.336951e-01,1.346950e-01,1.356838e-01,1.366594e-01,1.376198e-01,&
1763  & 1.385629e-01,1.394866e-01,1.403889e-01,1.412678e-01,1.421212e-01,&
1764  & 1.429469e-01,1.437430e-01,1.445074e-01,1.452381e-01,1.459329e-01,&
1765  & 1.465899e-01,1.472069e-01,1.477819e-01,1.483128e-01,1.487976e-01,&
1766  & 1.492343e-01,1.496207e-01,1.499548e-01,1.502346e-01,1.504579e-01,&
1767  & 1.506227e-01 /
1768  data fdlice3(:, 23) / &
1769  & 1.153263e-01,1.161445e-01,1.169932e-01,1.178703e-01,1.187738e-01,&
1770  & 1.197016e-01,1.206516e-01,1.216217e-01,1.226099e-01,1.236141e-01,&
1771  & 1.246322e-01,1.256621e-01,1.267017e-01,1.277491e-01,1.288020e-01,&
1772  & 1.298584e-01,1.309163e-01,1.319736e-01,1.330281e-01,1.340778e-01,&
1773  & 1.351207e-01,1.361546e-01,1.371775e-01,1.381873e-01,1.391820e-01,&
1774  & 1.401593e-01,1.411174e-01,1.420540e-01,1.429671e-01,1.438547e-01,&
1775  & 1.447146e-01,1.455449e-01,1.463433e-01,1.471078e-01,1.478364e-01,&
1776  & 1.485270e-01,1.491774e-01,1.497857e-01,1.503497e-01,1.508674e-01,&
1777  & 1.513367e-01,1.517554e-01,1.521216e-01,1.524332e-01,1.526880e-01,&
1778  & 1.528840e-01 /
1779  data fdlice3(:, 24) / &
1780  & 1.160842e-01,1.169118e-01,1.177697e-01,1.186556e-01,1.195676e-01,&
1781  & 1.205036e-01,1.214616e-01,1.224394e-01,1.234349e-01,1.244463e-01,&
1782  & 1.254712e-01,1.265078e-01,1.275539e-01,1.286075e-01,1.296664e-01,&
1783  & 1.307287e-01,1.317923e-01,1.328550e-01,1.339149e-01,1.349699e-01,&
1784  & 1.360179e-01,1.370567e-01,1.380845e-01,1.390991e-01,1.400984e-01,&
1785  & 1.410803e-01,1.420429e-01,1.429840e-01,1.439016e-01,1.447936e-01,&
1786  & 1.456579e-01,1.464925e-01,1.472953e-01,1.480642e-01,1.487972e-01,&
1787  & 1.494923e-01,1.501472e-01,1.507601e-01,1.513287e-01,1.518511e-01,&
1788  & 1.523252e-01,1.527489e-01,1.531201e-01,1.534368e-01,1.536969e-01,&
1789  & 1.538984e-01 /
1790  data fdlice3(:, 25) / &
1791  & 1.168725e-01,1.177088e-01,1.185747e-01,1.194680e-01,1.203867e-01,&
1792  & 1.213288e-01,1.222923e-01,1.232750e-01,1.242750e-01,1.252903e-01,&
1793  & 1.263187e-01,1.273583e-01,1.284069e-01,1.294626e-01,1.305233e-01,&
1794  & 1.315870e-01,1.326517e-01,1.337152e-01,1.347756e-01,1.358308e-01,&
1795  & 1.368788e-01,1.379175e-01,1.389449e-01,1.399590e-01,1.409577e-01,&
1796  & 1.419389e-01,1.429007e-01,1.438410e-01,1.447577e-01,1.456488e-01,&
1797  & 1.465123e-01,1.473461e-01,1.481483e-01,1.489166e-01,1.496492e-01,&
1798  & 1.503439e-01,1.509988e-01,1.516118e-01,1.521808e-01,1.527038e-01,&
1799  & 1.531788e-01,1.536037e-01,1.539764e-01,1.542951e-01,1.545575e-01,&
1800  & 1.547617e-01 /
1801  data fdlice3(:, 26) / &
1802  & 1.180509e-01,1.189025e-01,1.197820e-01,1.206875e-01,1.216171e-01,&
1803  & 1.225687e-01,1.235404e-01,1.245303e-01,1.255363e-01,1.265564e-01,&
1804  & 1.275888e-01,1.286313e-01,1.296821e-01,1.307392e-01,1.318006e-01,&
1805  & 1.328643e-01,1.339284e-01,1.349908e-01,1.360497e-01,1.371029e-01,&
1806  & 1.381486e-01,1.391848e-01,1.402095e-01,1.412208e-01,1.422165e-01,&
1807  & 1.431949e-01,1.441539e-01,1.450915e-01,1.460058e-01,1.468947e-01,&
1808  & 1.477564e-01,1.485888e-01,1.493900e-01,1.501580e-01,1.508907e-01,&
1809  & 1.515864e-01,1.522428e-01,1.528582e-01,1.534305e-01,1.539578e-01,&
1810  & 1.544380e-01,1.548692e-01,1.552494e-01,1.555767e-01,1.558490e-01,&
1811  & 1.560645e-01 /
1812  data fdlice3(:, 27) / &
1813  & 1.200480e-01,1.209267e-01,1.218304e-01,1.227575e-01,1.237059e-01,&
1814  & 1.246739e-01,1.256595e-01,1.266610e-01,1.276765e-01,1.287041e-01,&
1815  & 1.297420e-01,1.307883e-01,1.318412e-01,1.328988e-01,1.339593e-01,&
1816  & 1.350207e-01,1.360813e-01,1.371393e-01,1.381926e-01,1.392396e-01,&
1817  & 1.402783e-01,1.413069e-01,1.423235e-01,1.433263e-01,1.443134e-01,&
1818  & 1.452830e-01,1.462332e-01,1.471622e-01,1.480681e-01,1.489490e-01,&
1819  & 1.498032e-01,1.506286e-01,1.514236e-01,1.521863e-01,1.529147e-01,&
1820  & 1.536070e-01,1.542614e-01,1.548761e-01,1.554491e-01,1.559787e-01,&
1821  & 1.564629e-01,1.568999e-01,1.572879e-01,1.576249e-01,1.579093e-01,&
1822  & 1.581390e-01 /
1823  data fdlice3(:, 28) / &
1824  & 1.247813e-01,1.256496e-01,1.265417e-01,1.274560e-01,1.283905e-01,&
1825  & 1.293436e-01,1.303135e-01,1.312983e-01,1.322964e-01,1.333060e-01,&
1826  & 1.343252e-01,1.353523e-01,1.363855e-01,1.374231e-01,1.384632e-01,&
1827  & 1.395042e-01,1.405441e-01,1.415813e-01,1.426140e-01,1.436404e-01,&
1828  & 1.446587e-01,1.456672e-01,1.466640e-01,1.476475e-01,1.486157e-01,&
1829  & 1.495671e-01,1.504997e-01,1.514117e-01,1.523016e-01,1.531673e-01,&
1830  & 1.540073e-01,1.548197e-01,1.556026e-01,1.563545e-01,1.570734e-01,&
1831  & 1.577576e-01,1.584054e-01,1.590149e-01,1.595843e-01,1.601120e-01,&
1832  & 1.605962e-01,1.610349e-01,1.614266e-01,1.617693e-01,1.620614e-01,&
1833  & 1.623011e-01 /
1834  data fdlice3(:, 29) / &
1835  & 1.006055e-01,9.549582e-02,9.063960e-02,8.602900e-02,8.165612e-02,&
1836  & 7.751308e-02,7.359199e-02,6.988496e-02,6.638412e-02,6.308156e-02,&
1837  & 5.996942e-02,5.703979e-02,5.428481e-02,5.169657e-02,4.926719e-02,&
1838  & 4.698880e-02,4.485349e-02,4.285339e-02,4.098061e-02,3.922727e-02,&
1839  & 3.758547e-02,3.604733e-02,3.460497e-02,3.325051e-02,3.197604e-02,&
1840  & 3.077369e-02,2.963558e-02,2.855381e-02,2.752050e-02,2.652776e-02,&
1841  & 2.556772e-02,2.463247e-02,2.371415e-02,2.280485e-02,2.189670e-02,&
1842  & 2.098180e-02,2.005228e-02,1.910024e-02,1.811781e-02,1.709709e-02,&
1843  & 1.603020e-02,1.490925e-02,1.372635e-02,1.247363e-02,1.114319e-02,&
1844  & 9.727157e-03 /
1845 
1848  real (kind=kind_phys), public :: a0r, a1r, a0s, a1s
1849  data a0r,a1r / 3.07e-3, 0.0 /, a0s,a1s / 0.0, 1.5 / ! fu's coeff
1850 
1851  real (kind=kind_phys), dimension(nblow:nbhgh), public :: &
1852  & b0r, b0s, b1s, c0r, c0s
1853  data b0r / 0.466, 0.437, 0.416, 0.391, 0.374, 0.352, 0.183, &
1854  & 0.048, 0.012, 0.000, 0.000, 0.000, 0.000, 0.496 /
1855  data c0r / 0.975, 0.965, 0.960, 0.955, 0.952, 0.950, 0.944, &
1856  & 0.894, 0.884, 0.883, 0.883, 0.883, 0.883, 0.980 /
1857  data b0s / 7*0.460, 2*0.000, 4*0.000, 0.460 /
1858  data b1s / 7*0.000, 2*1.62e-5, 4*0.000, 0.000 /
1859  data c0s / 7*0.970, 2*0.970, 4*0.700, 0.970 /
1860 !!@}
1861 
1862 
1863 !........................................!
1864  end module module_radsw_cldprtb !
1865 !========================================!
1866 
1870 !========================================!
1872 !........................................!
1873 !
1874 ! *********************** module descriptions ********************** !
1875 ! !
1876 ! this module contains spectral distribution of solar radiation !
1877 ! flux used to obtain the incoming solar flux at toa. !
1878 ! !
1879 ! modify history: !
1880 ! originally by j.delamere, atmospheric & environmental research !
1881 ! in 14 bands kgb data table. !
1882 ! feb. 18, 2004 -- yu-tai hou move the reference data table !
1883 ! to a new data module. !
1884 ! !
1885 ! ************************* end description ************************ !
1886 !
1887  use physparam, only : kind_phys
1888  use module_radsw_parameters, only : ngmax, ng16, ng17, ng18, ng19,&
1889  & ng20, ng21, ng22, ng23, ng24, &
1890  & ng25, ng26, ng27, ng28, ng29, &
1891  & nblow, nbhgh
1892 !
1893  implicit none
1894 !
1895  public
1896 !
1897  integer, parameter :: mfs01 = 1 !
1898  integer, parameter :: mfs02 = 5 !
1899  integer, parameter :: mfs03 = 9 !
1900  integer, parameter :: mfb01 = 7 !
1901  integer, parameter :: mfb02 = 2 !
1902  integer, parameter :: mfb03 = 5 !
1903 !
1904  real (kind=kind_phys), dimension(nblow:nbhgh), public :: &
1905  & strrat, specwt
1906 
1907 ! --- original strrat
1908 ! data strrat / 2.52131e+2, 3.64641e-1, 3.89589e+1, 5.49281e+0, &
1909 ! & 0.00000e+0, 4.53210e-3, 2.27080e-2, 0.00000e+0, 1.24692e-1, &
1910 ! & 0.00000e+0, 0.00000e+0, 0.00000e+0, 6.67029e-7, 0.00000e+0 /
1911 ! --- strrat(22) has been multified by factor o2adj=1.6
1912  data strrat / 2.52131e+2, 3.64641e-1, 3.89589e+1, 5.49281e+0, &
1913  & 0.00000e+0, 4.53210e-3, 3.63328e-2, 0.00000e+0, 1.24692e-1, &
1914  & 0.00000e+0, 0.00000e+0, 0.00000e+0, 6.67029e-7, 0.00000e+0 /
1915 
1916  data specwt / 8.,4.,8.,8.,0.,8.,8.,0.,8.,0.,0.,0.,4.,0. /
1917 !
1918  integer, dimension(nblow:nbhgh), public :: layreffr, ix1, ix2, ibx
1919 
1920  data layreffr/ 18,30, 6, 3, 3, 8, 2, 6, 1, 2, 0,32,58,49 /
1921  data ix1 / 1, 1, 1, 1, 0, 1, 1, 0, 1, 0, 0, 0, 3, 0 /
1922  data ix2 / 5, 2, 5, 2, 0, 2, 6, 0, 6, 0, 0, 0, 6, 0 /
1923  data ibx / 1, 1, 1, 2, 2, 3, 4, 3, 5, 4, 5, 6, 2, 7 /
1924 
1925  real (kind=kind_phys), parameter, public :: scalekur=50.15/48.37
1926 !
1927  real (kind=kind_phys), target, public :: &
1928  & sfluxref01(NGMAX,MFS01,MFB01), &
1929  & sfluxref02(NGMAX,MFS02,MFB02), &
1930  & sfluxref03(NGMAX,MFS03,MFB03)
1931 
1932 ! --- setup solar sfluxref01
1933 ! ... band 16, NG16=6
1934  data sfluxref01(:,:,1) / .36511300e+1,&
1935  & .32277700e+1,.26913900e+1,.18039990e+1,.68068900e+0,.54590270e-1,&
1936  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
1937  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0/
1938 
1939 ! ... band 20, NG20=10
1940  data sfluxref01(:,:,2) / .93408100e+1,&
1941  & .89372000e+1,.81934600e+1,.73919600e+1,.61212700e+1,.52395600e+1,&
1942  & .42494100e+1,.32001300e+1,.23949790e+1,.55783362e+0,.00000000e+0,&
1943  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0/
1944 
1945 ! ... band 23, NG23=10
1946  data sfluxref01(:,:,3) / .10462440e+3,&
1947  & .94796000e+2,.40829400e+2,.35180100e+2,.28694700e+2,.21575100e+2,&
1948  & .14638800e+2,.15911100e+1,.23587800e+1,.14541238e+1,.00000000e+0,&
1949  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0/
1950 
1951 ! ... band 25, NG25=6
1952  data sfluxref01(:,:,4) / .42685800e+2,&
1953  & .45772000e+2,.90953400e+2,.88238400e+2,.75011180e+2,.45315347e+1,&
1954  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
1955  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0/
1956 
1957 ! ... band 26, NG26=6
1958  data sfluxref01(:,:,5) / .29007900e+2,&
1959  & .28408800e+2,.33338200e+2,.21820300e+2,.15982813e+2,.93700512e+0,&
1960  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
1961  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0/
1962 
1963 ! the following (NG27) values were obtained using the "low resolution"
1964 ! version of the kurucz solar source function. for unknown reasons,
1965 ! the total irradiance in this band differs from the corresponding
1966 ! total in the "high-resolution" version of the Kurucz function.
1967 ! therefore, below these values are scaled by the factor scalekur.
1968 
1969 ! ... band 27, NG27=8
1970  data sfluxref01(:,:,6) / .14052600e+2,&
1971  & .11479400e+2,.87259000e+1,.55696600e+1,.38092700e+1,.15769000e+1,&
1972  & .29680079e+1,.19043253e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
1973  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0/
1974 
1975 ! ... band 29, NG29=12
1976  data sfluxref01(:,:,7) / .13288000e+1,&
1977  & .21401800e+1,.19761200e+1,.17900000e+1,.27421900e+1,.18615160e+1,&
1978  & .83448990e+0,.12731000e+0,.44698800e-1,.30744100e-1,.11672800e-1,&
1979  & .16557300e-2,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0/
1980 
1981 ! --- setup solar sfluxref02
1982 ! ... band 17, NG17=12
1983  data sfluxref02(:,:,1) / &
1984  & .31561300e+1,.30344900e+1,.29206900e+1,.26387400e+1,.23458100e+1,&
1985  & .37790500e+1,.12908500e+1,.97039020e+0,.78781300e-1,.10810270e+0,&
1986  & .29412900e-1,.12635380e-1,.00000000e+0,.00000000e+0,.00000000e+0,&
1987  & .00000000e+0,.28314700e+1,.29591900e+1,.29667400e+1,.27767700e+1,&
1988  & .24682600e+1,.38472400e+1,.13027900e+1,.97894900e+0,.80212200e-1,&
1989  & .11088140e+0,.29905100e-1,.12675180e-1,.00000000e+0,.00000000e+0,&
1990  & .00000000e+0,.00000000e+0,.28230000e+1,.29484500e+1,.29588700e+1,&
1991  & .27759300e+1,.24709600e+1,.38644300e+1,.13079600e+1,.98108860e+0,&
1992  & .80199600e-1,.11130020e+0,.30051500e-1,.12844740e-1,.00000000e+0,&
1993  & .00000000e+0,.00000000e+0,.00000000e+0,.28171500e+1,.29378900e+1,&
1994  & .29509100e+1,.27704600e+1,.24771600e+1,.38795600e+1,.13127700e+1,&
1995  & .98414460e+0,.80339100e-1,.11153510e+0,.30072000e-1,.13100450e-1,&
1996  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.28233500e+1,&
1997  & .29316800e+1,.29145500e+1,.27521300e+1,.24916800e+1,.39013400e+1,&
1998  & .13240100e+1,.99059630e+0,.80519700e-1,.11150350e+0,.30566700e-1,&
1999  & .13155950e-1,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0/
2000 
2001 ! ... band 28, NG28=6
2002  data sfluxref02(:,:,2) / &
2003  & .10615600e+1,.59991000e+0,.82253900e+0,.47011400e+0,.12054496e+0,&
2004  & .52716294e-2,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2005  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2006  & .00000000e+0,.10759800e+1,.58509900e+0,.82292900e+0,.47011400e+0,&
2007  & .12059320e+0,.52233221e-2,.00000000e+0,.00000000e+0,.00000000e+0,&
2008  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2009  & .00000000e+0,.00000000e+0,.46164700e+0,.40611300e+0,.64001400e+0,&
2010  & .44662400e+0,.10729748e+1,.52565480e-1,.00000000e+0,.00000000e+0,&
2011  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2012  & .00000000e+0,.00000000e+0,.00000000e+0,.13266900e+0,.17505800e+0,&
2013  & .74740500e+0,.82625100e+0,.11385304e+1,.60026497e-1,.00000000e+0,&
2014  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2015  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.75480000e-1,&
2016  & .23224600e+0,.74740500e+0,.77667600e+0,.11821991e+1,.65932601e-1,&
2017  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2018  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0/
2019 
2020 ! --- setup solar sfluxref03
2021 ! ... band 18, NG18=8
2022  data sfluxref03(:,:,1) / &
2023  & .36584000e+1,.35437500e+1,.33448100e+1,.31053400e+1,.52272000e+1,&
2024  & .34812500e+1,.12703318e+1,.98650010e-1,.00000000e+0,.00000000e+0,&
2025  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2026  & .00000000e+0,.38637200e+1,.34852100e+1,.33079000e+1,.30810300e+1,&
2027  & .51827400e+1,.34533000e+1,.12591244e+1,.96720520e-1,.00000000e+0,&
2028  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2029  & .00000000e+0,.00000000e+0,.39037000e+1,.35065700e+1,.33062900e+1,&
2030  & .30604600e+1,.51688900e+1,.34381600e+1,.12512870e+1,.94381020e-1,&
2031  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2032  & .00000000e+0,.00000000e+0,.00000000e+0,.39316500e+1,.35205800e+1,&
2033  & .33134600e+1,.30494400e+1,.51550700e+1,.34226800e+1,.12456526e+1,&
2034  & .91203220e-1,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2035  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.39408200e+1,&
2036  & .35522100e+1,.33186300e+1,.30473000e+1,.51324600e+1,.34110100e+1,&
2037  & .12380195e+1,.89290320e-1,.00000000e+0,.00000000e+0,.00000000e+0,&
2038  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2039  & .39419800e+1,.35874300e+1,.33210600e+1,.30586600e+1,.51105400e+1,&
2040  & .33948500e+1,.12272675e+1,.87955720e-1,.00000000e+0,.00000000e+0,&
2041  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2042  & .00000000e+0,.39359600e+1,.36336600e+1,.33314400e+1,.30625200e+1,&
2043  & .50954600e+1,.33706900e+1,.12121929e+1,.87814620e-1,.00000000e+0,&
2044  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2045  & .00000000e+0,.00000000e+0,.39252000e+1,.36907800e+1,.33565600e+1,&
2046  & .30705500e+1,.50829200e+1,.33242900e+1,.11916105e+1,.87812520e-1,&
2047  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2048  & .00000000e+0,.00000000e+0,.00000000e+0,.38072100e+1,.37443700e+1,&
2049  & .35020500e+1,.31800900e+1,.50494500e+1,.32007600e+1,.11580073e+1,&
2050  & .87812920e-1,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2051  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0 /
2052 
2053 ! ... band 19, NG19=8
2054  data sfluxref03(:,:,2) / &
2055  & .32579100e+1,.32969700e+1,.31603100e+1,.29611500e+1,.50305700e+1,&
2056  & .33767800e+1,.12463848e+1,.97623090e-1,.00000000e+0,.00000000e+0,&
2057  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2058  & .00000000e+0,.32276900e+1,.32881700e+1,.31668700e+1,.29766200e+1,&
2059  & .50388700e+1,.33829100e+1,.12493943e+1,.97174500e-1,.00000000e+0,&
2060  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2061  & .00000000e+0,.00000000e+0,.32229400e+1,.32778000e+1,.31742400e+1,&
2062  & .29714300e+1,.50477800e+1,.33835100e+1,.12527049e+1,.97276400e-1,&
2063  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2064  & .00000000e+0,.00000000e+0,.00000000e+0,.32244500e+1,.32611300e+1,&
2065  & .31843800e+1,.29692100e+1,.50516500e+1,.33840300e+1,.12553459e+1,&
2066  & .97505500e-1,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2067  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.32249700e+1,&
2068  & .32510900e+1,.31874100e+1,.29697000e+1,.50548000e+1,.33852500e+1,&
2069  & .12565675e+1,.97922400e-1,.00000000e+0,.00000000e+0,.00000000e+0,&
2070  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2071  & .32263200e+1,.32417400e+1,.31852400e+1,.29740200e+1,.50554900e+1,&
2072  & .33899800e+1,.12562855e+1,.98616200e-1,.00000000e+0,.00000000e+0,&
2073  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2074  & .00000000e+0,.32279300e+1,.32358900e+1,.31772000e+1,.29786900e+1,&
2075  & .50572900e+1,.33942500e+1,.12571685e+1,.99276100e-1,.00000000e+0,&
2076  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2077  & .00000000e+0,.00000000e+0,.32296600e+1,.32408700e+1,.31567600e+1,&
2078  & .29817100e+1,.50586900e+1,.34020900e+1,.12586610e+1,.99259200e-1,&
2079  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2080  & .00000000e+0,.00000000e+0,.00000000e+0,.32724000e+1,.32466600e+1,&
2081  & .31388600e+1,.29523800e+1,.50465000e+1,.34105900e+1,.12610396e+1,&
2082  & .99262600e-1,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2083  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0 /
2084 
2085 ! ... band 21, NG21=10
2086  data sfluxref03(:,:,3) / &
2087  & .16164300e+2,.15580600e+2,.14725400e+2,.13554100e+2,.11951900e+2,&
2088  & .10444100e+2,.83788400e+1,.62638400e+1,.47495780e+1,.11187392e+1,&
2089  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2090  & .00000000e+0,.15645100e+2,.15317000e+2,.14698700e+2,.13735000e+2,&
2091  & .12226700e+2,.10516460e+2,.84715000e+1,.63887300e+1,.48059700e+1,&
2092  & .11263635e+1,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2093  & .00000000e+0,.00000000e+0,.15609200e+2,.15329300e+2,.14688100e+2,&
2094  & .13669300e+2,.12234200e+2,.10520100e+2,.84944200e+1,.64213800e+1,&
2095  & .48319990e+1,.11333414e+1,.00000000e+0,.00000000e+0,.00000000e+0,&
2096  & .00000000e+0,.00000000e+0,.00000000e+0,.15578600e+2,.15342200e+2,&
2097  & .14689400e+2,.13604000e+2,.12256700e+2,.10494000e+2,.85352100e+1,&
2098  & .64442700e+1,.48477890e+1,.11392313e+1,.00000000e+0,.00000000e+0,&
2099  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.15538000e+2,&
2100  & .15382600e+2,.14657500e+2,.13572200e+2,.12264600e+2,.10476720e+2,&
2101  & .85715800e+1,.64634300e+1,.48602370e+1,.114454305e+1,.0000000e+0,&
2102  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2103  & .15512400e+2,.15398600e+2,.14624000e+2,.13553500e+2,.12246800e+2,&
2104  & .10488910e+2,.86043400e+1,.6479850e+1,.48727470e+1,.115032015e+1,&
2105  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2106  & .00000000e+0,.15491000e+2,.15402800e+2,.14577200e+2,.13550700e+2,&
2107  & .12212200e+2,.10527350e+2,.86265000e+1,.64964400e+1,.48903570e+1,&
2108  & .115687915e+1,.0000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2109  & .00000000e+0,.00000000e+0,.15456200e+2,.15392800e+2,.14551000e+2,&
2110  & .13512200e+2,.12189000e+2,.10582600e+2,.86584200e+1,.65155800e+1,&
2111  & .49081390e+1,.116541315e+1,.0000000e+0,.00000000e+0,.00000000e+0,&
2112  & .00000000e+0,.00000000e+0,.00000000e+0,.15006900e+2,.15147900e+2,&
2113  & .14780200e+2,.13608500e+2,.12279300e+2,.10692900e+2,.87272300e+1,&
2114  & .65711400e+1,.49500240e+1,.116747315e+1,.0000000e+0,.00000000e+0,&
2115  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0 /
2116 
2117 ! ... band 22, NG22=2
2118  data sfluxref03(:,:,4) / &
2119  & .22870690e+2,.142292348e+1,.0000000e+0,.00000000e+0,.00000000e+0,&
2120  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2121  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2122  & .00000000e+0,.22872700e+2,.142092788e+1,.0000000e+0,.00000000e+0,&
2123  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2124  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2125  & .00000000e+0,.00000000e+0,.22877410e+2,.141623238e+1,.0000000e+0,&
2126  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2127  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2128  & .00000000e+0,.00000000e+0,.0000000e+0,.22879360e+2,.141425888e+1,&
2129  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2130  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2131  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.22880890e+2,&
2132  & .14127222e+1,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2133  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2134  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2135  & .22882260e+2,.141135631e+1,.0000000e+0,.00000000e+0,.00000000e+0,&
2136  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2137  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2138  & .00000000e+0,.22883070e+2,.141054121e+1,.0000000e+0,.00000000e+0,&
2139  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2140  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2141  & .00000000e+0,.00000000e+0,.22884580e+2,.140903474e+1,.0000000e+0,&
2142  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2143  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2144  & .00000000e+0,.00000000e+0,.0000000e+0,.22885890e+2,.140772281e+1,&
2145  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2146  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2147  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0 /
2148 
2149 ! ... band 24, NG24=8
2150  data sfluxref03(:,:,5) / &
2151  & .67485000e+2,.60119600e+2,.46277600e+2,.31190000e+2,.10594640e+2,&
2152  & .15530850e+1,.82783000e+0,.13921180e+0,.00000000e+0,.00000000e+0,&
2153  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2154  & .00000000e+0,.66669400e+2,.58294800e+2,.47994500e+2,.32163300e+2,&
2155  & .10551730e+2,.15462830e+1,.82782300e+0,.13922180e+0,.00000000e+0,&
2156  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2157  & .00000000e+0,.00000000e+0,.66436200e+2,.58556400e+2,.47978900e+2,&
2158  & .32183500e+2,.10528620e+2,.15397570e+1,.82447300e+0,.13921180e+0,&
2159  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2160  & .00000000e+0,.00000000e+0,.00000000e+0,.66368100e+2,.58663000e+2,&
2161  & .47964300e+2,.32188200e+2,.10508680e+2,.15344650e+1,.82105100e+0,&
2162  & .13921180e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2163  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.66325500e+2,&
2164  & .58727000e+2,.47967600e+2,.32196900e+2,.10482800e+2,.15295910e+1,&
2165  & .81841600e+0,.13922180e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2166  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2167  & .66303600e+2,.58785900e+2,.47960400e+2,.32194700e+2,.10462370e+2,&
2168  & .15250500e+1,.81580900e+0,.13921180e+0,.00000000e+0,.00000000e+0,&
2169  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2170  & .00000000e+0,.66332200e+2,.58793500e+2,.47946700e+2,.32196300e+2,&
2171  & .10445690e+2,.15221860e+1,.81413300e+0,.13631770e+0,.00000000e+0,&
2172  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2173  & .00000000e+0,.00000000e+0,.66389100e+2,.58828200e+2,.47920000e+2,&
2174  & .32155700e+2,.10430340e+2,.15208810e+1,.81012300e+0,.13260880e+0,&
2175  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2176  & .00000000e+0,.00000000e+0,.00000000e+0,.67319100e+2,.58382700e+2,&
2177  & .47610800e+2,.32032700e+2,.10390010e+2,.15156730e+1,.80297600e+0,&
2178  & .13316830e+0,.00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0,&
2179  & .00000000e+0,.00000000e+0,.00000000e+0,.00000000e+0 /
2180 
2181 !........................................!
2182  end module module_radsw_sflux !
2183 !========================================!
2184 
2188 
2191 !========================================!
2193 !........................................!
2194 !
2195 ! *************** the original program descriptions *************** !
2196 ! !
2197 ! originally by j.delamere, atmospheric & environmental research. !
2198 ! revision: 2.4 !
2199 ! band 16: 2600-3250 cm-1 (low - h2o,ch4; high - ch4) !
2200 ! reformatted for f90 by jjmorcrette, ecmwf !
2201 ! !
2202 ! this table has been re-generated for reduced number of g-point !
2203 ! by y.t.hou, ncep Feb 2004 !
2204 ! !
2205 ! ************************ end description ************************ !
2206 !
2207  use physparam, only : kind_phys
2208  use module_radsw_parameters, only : ng16
2209 
2210 !
2211  implicit none
2212 !
2213  private
2214 !
2216  integer, public :: msa16
2218  integer, public :: msb16
2220  integer, public :: msf16
2222  integer, public :: mfr16
2223  parameter(msa16=585, msb16=235, msf16=10, mfr16=3)
2224 
2230  real (kind=kind_phys), public :: selfref(msf16,ng16)
2231 
2247  real (kind=kind_phys), public :: absa(msa16,ng16)
2248 
2260  real (kind=kind_phys), public :: absb(msb16,ng16)
2261 
2262  real (kind=kind_phys), public :: forref(mfr16,ng16)
2263 
2265  real (kind=kind_phys), parameter, public :: rayl = 2.91e-10
2266 
2267 ! the array absa(585,NG16) (ka(9,5,13,NG16)) contains absorption coefs at
2268 ! the 16 chosen g-values for a range of pressure levels> ~100mb,
2269 ! temperatures, and binary species parameters (see taumol.f for definition).
2270 ! the first index in the array, js, runs from 1 to 9, and corresponds
2271 ! to different values of the binary species parameter. for instance,
2272 ! js=1 refers to dry air, js = 2 corresponds to the paramter value 1/8,
2273 ! js = 3 corresponds to the parameter value 2/8, etc. the second index
2274 ! in the array, jt, which runs from 1 to 5, corresponds to different
2275 ! temperatures. more specifically, jt = 3 means that the data are for
2276 ! the reference temperature tref for this pressure level, jt = 2 refers
2277 ! to tref-15, jt = 1 is for tref-30, jt = 4 is for tref+15, and jt = 5
2278 ! is for tref+30. the third index, jp, runs from 1 to 13 and refers
2279 ! to the jpth reference pressure level (see taumol.f for these levels
2280 ! in mb). the fourth index, ig, goes from 1 to 6, and indicates
2281 ! which g-interval the absorption coefficients are for.
2282 
2283  data absa( 1:180, 1) / &
2284  & .6164391e-04,.1393981e-03,.1485874e-03,.1470456e-03,.1378359e-03,&
2285  & .1251049e-03,.1080809e-03,.8380100e-04,.4375937e-04,.6303123e-04,&
2286  & .1387829e-03,.1476732e-03,.1465675e-03,.1376116e-03,.1247762e-03,&
2287  & .1082831e-03,.8452911e-04,.4545314e-04,.6421152e-04,.1383722e-03,&
2288  & .1469969e-03,.1464177e-03,.1376712e-03,.1247454e-03,.1085938e-03,&
2289  & .8527181e-04,.4714073e-04,.6487941e-04,.1376604e-03,.1463450e-03,&
2290  & .1456654e-03,.1375752e-03,.1247169e-03,.1088288e-03,.8599534e-04,&
2291  & .4882216e-04,.6543285e-04,.1371565e-03,.1459883e-03,.1450442e-03,&
2292  & .1376047e-03,.1246488e-03,.1084938e-03,.8677500e-04,.5041239e-04,&
2293  & .5313622e-04,.1212259e-03,.1294107e-03,.1289969e-03,.1215056e-03,&
2294  & .1099177e-03,.9560988e-04,.7413197e-04,.3741326e-04,.5429633e-04,&
2295  & .1208023e-03,.1288524e-03,.1287190e-03,.1215251e-03,.1095731e-03,&
2296  & .9593147e-04,.7493945e-04,.3890369e-04,.5532831e-04,.1205422e-03,&
2297  & .1285240e-03,.1281017e-03,.1216844e-03,.1097557e-03,.9586096e-04,&
2298  & .7569726e-04,.4033143e-04,.5592005e-04,.1201155e-03,.1280667e-03,&
2299  & .1275655e-03,.1215386e-03,.1099924e-03,.9556109e-04,.7641040e-04,&
2300  & .4181164e-04,.5617841e-04,.1196101e-03,.1275438e-03,.1270047e-03,&
2301  & .1210925e-03,.1101989e-03,.9565779e-04,.7709991e-04,.4321251e-04,&
2302  & .4531290e-04,.1048278e-03,.1125651e-03,.1126461e-03,.1064403e-03,&
2303  & .9599592e-04,.8416227e-04,.6509075e-04,.3260217e-04,.4640094e-04,&
2304  & .1045811e-03,.1122478e-03,.1120739e-03,.1065744e-03,.9607551e-04,&
2305  & .8395460e-04,.6589635e-04,.3382481e-04,.4717230e-04,.1043514e-03,&
2306  & .1118439e-03,.1116296e-03,.1065479e-03,.9636785e-04,.8372961e-04,&
2307  & .6667225e-04,.3501452e-04,.4770015e-04,.1042243e-03,.1115519e-03,&
2308  & .1111144e-03,.1064012e-03,.9685136e-04,.8410622e-04,.6743058e-04,&
2309  & .3619213e-04,.4786332e-04,.1037274e-03,.1110955e-03,.1107897e-03,&
2310  & .1063675e-03,.9719954e-04,.8449192e-04,.6808715e-04,.3740757e-04,&
2311  & .3843039e-04,.9043110e-04,.9770352e-04,.9799335e-04,.9304240e-04,&
2312  & .8389000e-04,.7321734e-04,.5677836e-04,.2994598e-04,.3931732e-04,&
2313  & .9024615e-04,.9732057e-04,.9745928e-04,.9306943e-04,.8414269e-04,&
2314  & .7304152e-04,.5752626e-04,.3089971e-04,.3999765e-04,.9015208e-04,&
2315  & .9690713e-04,.9702354e-04,.9292115e-04,.8443883e-04,.7337197e-04,&
2316  & .5829869e-04,.3187537e-04,.4043089e-04,.8996634e-04,.9668335e-04,&
2317  & .9670285e-04,.9286755e-04,.8481230e-04,.7380442e-04,.5906049e-04,&
2318  & .3283818e-04,.4073202e-04,.8972393e-04,.9645513e-04,.9660020e-04,&
2319  & .9303706e-04,.8536068e-04,.7423279e-04,.5981517e-04,.3379450e-04/
2320 
2321  data absa(181:315, 1) / &
2322  & .3239990e-04,.7798454e-04,.8455791e-04,.8504346e-04,.8081384e-04,&
2323  & .7294914e-04,.6337302e-04,.4924460e-04,.2913833e-04,.3322912e-04,&
2324  & .7774352e-04,.8406820e-04,.8454204e-04,.8094382e-04,.7323153e-04,&
2325  & .6358291e-04,.4994292e-04,.2993189e-04,.3380830e-04,.7760287e-04,&
2326  & .8375655e-04,.8415223e-04,.8078676e-04,.7365225e-04,.6386151e-04,&
2327  & .5066949e-04,.3071453e-04,.3417420e-04,.7744463e-04,.8351059e-04,&
2328  & .8385781e-04,.8079307e-04,.7414802e-04,.6412908e-04,.5142302e-04,&
2329  & .3151682e-04,.3444762e-04,.7723103e-04,.8340026e-04,.8386295e-04,&
2330  & .8097163e-04,.7469899e-04,.6465444e-04,.5217398e-04,.3235645e-04,&
2331  & .2715767e-04,.6701770e-04,.7283633e-04,.7341902e-04,.6985462e-04,&
2332  & .6319692e-04,.5481578e-04,.4247223e-04,.2909771e-04,.2792146e-04,&
2333  & .6685295e-04,.7241685e-04,.7300079e-04,.6986342e-04,.6356893e-04,&
2334  & .5491074e-04,.4310004e-04,.2966308e-04,.2845821e-04,.6661135e-04,&
2335  & .7209651e-04,.7266374e-04,.6978860e-04,.6395350e-04,.5508302e-04,&
2336  & .4376855e-04,.3030854e-04,.2875713e-04,.6641988e-04,.7186205e-04,&
2337  & .7238777e-04,.6998777e-04,.6431932e-04,.5551791e-04,.4448282e-04,&
2338  & .3094504e-04,.2891644e-04,.6615229e-04,.7169260e-04,.7229235e-04,&
2339  & .7001252e-04,.6472305e-04,.5607907e-04,.4487260e-04,.3162719e-04,&
2340  & .2261551e-04,.5728902e-04,.6237413e-04,.6297079e-04,.5987738e-04,&
2341  & .5427552e-04,.4703020e-04,.3639661e-04,.2945807e-04,.2329813e-04,&
2342  & .5709378e-04,.6201885e-04,.6258230e-04,.5996529e-04,.5461263e-04,&
2343  & .4701194e-04,.3698989e-04,.3029693e-04,.2379683e-04,.5686371e-04,&
2344  & .6178860e-04,.6234127e-04,.5990707e-04,.5500772e-04,.4729286e-04,&
2345  & .3760923e-04,.3119772e-04,.2405414e-04,.5664356e-04,.6153544e-04,&
2346  & .6214186e-04,.6002313e-04,.5529452e-04,.4777815e-04,.3824621e-04,&
2347  & .3201199e-04,.2417921e-04,.5638188e-04,.6131618e-04,.6200411e-04,&
2348  & .5999630e-04,.5566905e-04,.4832075e-04,.3841731e-04,.3273083e-04/
2349 
2350  data absa(316:450, 1) / &
2351  & .1878381e-04,.4894749e-04,.5331015e-04,.5389221e-04,.5125674e-04,&
2352  & .4647673e-04,.4004232e-04,.3106983e-04,.2910087e-04,.1940228e-04,&
2353  & .4877469e-04,.5302872e-04,.5356337e-04,.5126792e-04,.4678873e-04,&
2354  & .4012482e-04,.3162012e-04,.3075290e-04,.1985918e-04,.4855059e-04,&
2355  & .5279719e-04,.5333080e-04,.5126898e-04,.4707665e-04,.4046924e-04,&
2356  & .3217345e-04,.3150876e-04,.2014062e-04,.4829423e-04,.5255189e-04,&
2357  & .5319514e-04,.5130651e-04,.4737582e-04,.4091784e-04,.3262566e-04,&
2358  & .3216455e-04,.2025329e-04,.4801466e-04,.5234235e-04,.5308048e-04,&
2359  & .5128923e-04,.4759043e-04,.4140204e-04,.3278753e-04,.3333379e-04,&
2360  & .1546471e-04,.4162009e-04,.4540125e-04,.4587423e-04,.4356518e-04,&
2361  & .3940508e-04,.3397440e-04,.2638191e-04,.3148426e-04,.1606324e-04,&
2362  & .4144674e-04,.4510294e-04,.4559038e-04,.4360139e-04,.3960990e-04,&
2363  & .3411097e-04,.2689026e-04,.3297831e-04,.1647624e-04,.4124716e-04,&
2364  & .4486029e-04,.4540089e-04,.4359331e-04,.3994622e-04,.3443250e-04,&
2365  & .2738815e-04,.3466130e-04,.1674831e-04,.4101176e-04,.4463266e-04,&
2366  & .4523420e-04,.4362159e-04,.4026871e-04,.3484293e-04,.2762312e-04,&
2367  & .3608726e-04,.1688109e-04,.4072506e-04,.4442676e-04,.4508760e-04,&
2368  & .4359419e-04,.4044664e-04,.3522608e-04,.2789812e-04,.3743236e-04,&
2369  & .1262626e-04,.3515542e-04,.3839650e-04,.3883879e-04,.3680058e-04,&
2370  & .3322886e-04,.2866957e-04,.2229743e-04,.3542581e-04,.1323548e-04,&
2371  & .3501861e-04,.3816682e-04,.3862136e-04,.3691204e-04,.3341643e-04,&
2372  & .2882784e-04,.2274500e-04,.3810724e-04,.1360997e-04,.3480644e-04,&
2373  & .3790261e-04,.3840467e-04,.3688940e-04,.3369037e-04,.2909482e-04,&
2374  & .2319725e-04,.4051484e-04,.1386341e-04,.3459077e-04,.3769098e-04,&
2375  & .3821868e-04,.3684829e-04,.3399846e-04,.2945016e-04,.2334606e-04,&
2376  & .4250812e-04,.1401007e-04,.3434705e-04,.3748890e-04,.3806620e-04,&
2377  & .3681278e-04,.3416954e-04,.2981567e-04,.2357415e-04,.4469942e-04/
2378 
2379  data absa(451:585, 1) / &
2380  & .1054345e-04,.2952630e-04,.3222392e-04,.3265638e-04,.3106790e-04,&
2381  & .2796314e-04,.2415008e-04,.1892216e-04,.3133027e-04,.1103113e-04,&
2382  & .2937313e-04,.3202245e-04,.3244622e-04,.3107680e-04,.2818612e-04,&
2383  & .2432663e-04,.1931576e-04,.3420418e-04,.1132648e-04,.2917577e-04,&
2384  & .3179835e-04,.3224295e-04,.3105314e-04,.2839919e-04,.2458295e-04,&
2385  & .1960995e-04,.3745408e-04,.1151773e-04,.2897659e-04,.3158949e-04,&
2386  & .3206591e-04,.3099578e-04,.2862811e-04,.2491522e-04,.1969533e-04,&
2387  & .4018024e-04,.1162646e-04,.2873280e-04,.3141795e-04,.3192928e-04,&
2388  & .3092122e-04,.2876193e-04,.2527302e-04,.1991005e-04,.4272251e-04,&
2389  & .8773859e-05,.2472331e-04,.2698123e-04,.2731286e-04,.2605313e-04,&
2390  & .2347524e-04,.2028179e-04,.1599354e-04,.2710338e-04,.9175082e-05,&
2391  & .2455642e-04,.2677932e-04,.2714788e-04,.2603439e-04,.2367042e-04,&
2392  & .2044068e-04,.1632502e-04,.2976471e-04,.9405766e-05,.2437939e-04,&
2393  & .2657517e-04,.2695641e-04,.2600791e-04,.2387449e-04,.2068968e-04,&
2394  & .1643613e-04,.3198691e-04,.9551613e-05,.2419222e-04,.2638939e-04,&
2395  & .2678440e-04,.2590383e-04,.2398600e-04,.2098502e-04,.1655507e-04,&
2396  & .3463054e-04,.9634553e-05,.2396313e-04,.2622876e-04,.2664925e-04,&
2397  & .2582504e-04,.2410681e-04,.2125060e-04,.1672669e-04,.3742745e-04,&
2398  & .7283549e-05,.2064472e-04,.2252697e-04,.2280007e-04,.2176915e-04,&
2399  & .1965230e-04,.1697791e-04,.1344921e-04,.2262985e-04,.7614582e-05,&
2400  & .2049273e-04,.2234335e-04,.2265284e-04,.2175650e-04,.1980433e-04,&
2401  & .1713132e-04,.1373534e-04,.2489034e-04,.7799854e-05,.2032918e-04,&
2402  & .2216475e-04,.2247253e-04,.2168451e-04,.1997844e-04,.1730534e-04,&
2403  & .1371476e-04,.2674112e-04,.7917832e-05,.2015404e-04,.2198881e-04,&
2404  & .2232428e-04,.2159377e-04,.2002799e-04,.1753711e-04,.1382698e-04,&
2405  & .2881746e-04,.7981504e-05,.1995296e-04,.2184003e-04,.2217179e-04,&
2406  & .2152204e-04,.2013182e-04,.1776050e-04,.1402084e-04,.3110145e-04/
2407 
2408  data absa( 1:180, 2) / &
2409  & .2930165e-03,.4205176e-03,.4603190e-03,.4714149e-03,.4679470e-03,&
2410  & .4501949e-03,.4185459e-03,.3688035e-03,.2684515e-03,.2936114e-03,&
2411  & .4252087e-03,.4672427e-03,.4798112e-03,.4769734e-03,.4593456e-03,&
2412  & .4281470e-03,.3781642e-03,.2764789e-03,.2946377e-03,.4315576e-03,&
2413  & .4755024e-03,.4896418e-03,.4876102e-03,.4700407e-03,.4395838e-03,&
2414  & .3880213e-03,.2860406e-03,.2952749e-03,.4370625e-03,.4830699e-03,&
2415  & .4992608e-03,.4981682e-03,.4812406e-03,.4500990e-03,.3988892e-03,&
2416  & .2947867e-03,.2963643e-03,.4435447e-03,.4919681e-03,.5108647e-03,&
2417  & .5100757e-03,.4946687e-03,.4633694e-03,.4116274e-03,.3068946e-03,&
2418  & .2564192e-03,.3741028e-03,.4121845e-03,.4222514e-03,.4178533e-03,&
2419  & .4017900e-03,.3723948e-03,.3265092e-03,.2280897e-03,.2572159e-03,&
2420  & .3784588e-03,.4184094e-03,.4294373e-03,.4260348e-03,.4103047e-03,&
2421  & .3806553e-03,.3334951e-03,.2357658e-03,.2585085e-03,.3843346e-03,&
2422  & .4259985e-03,.4392394e-03,.4361957e-03,.4206279e-03,.3905943e-03,&
2423  & .3429498e-03,.2431183e-03,.2596736e-03,.3898247e-03,.4335148e-03,&
2424  & .4488328e-03,.4466516e-03,.4312067e-03,.4012724e-03,.3532432e-03,&
2425  & .2517667e-03,.2607431e-03,.3954864e-03,.4412810e-03,.4585918e-03,&
2426  & .4573106e-03,.4422671e-03,.4128750e-03,.3642066e-03,.2619245e-03,&
2427  & .2235048e-03,.3314541e-03,.3652461e-03,.3744704e-03,.3699739e-03,&
2428  & .3548398e-03,.3279534e-03,.2865252e-03,.1924155e-03,.2243217e-03,&
2429  & .3351441e-03,.3704468e-03,.3812002e-03,.3769484e-03,.3624388e-03,&
2430  & .3347617e-03,.2927657e-03,.1990504e-03,.2253955e-03,.3397624e-03,&
2431  & .3767056e-03,.3889755e-03,.3852321e-03,.3709575e-03,.3432829e-03,&
2432  & .3003296e-03,.2050004e-03,.2269437e-03,.3455225e-03,.3848163e-03,&
2433  & .3985839e-03,.3955107e-03,.3808205e-03,.3527054e-03,.3092164e-03,&
2434  & .2125103e-03,.2280141e-03,.3507535e-03,.3920562e-03,.4069340e-03,&
2435  & .4049634e-03,.3903833e-03,.3628870e-03,.3187283e-03,.2207668e-03,&
2436  & .1945146e-03,.2918639e-03,.3214502e-03,.3303679e-03,.3254231e-03,&
2437  & .3116270e-03,.2876070e-03,.2498710e-03,.1637253e-03,.1954096e-03,&
2438  & .2951961e-03,.3261050e-03,.3361412e-03,.3314562e-03,.3181672e-03,&
2439  & .2938352e-03,.2559070e-03,.1693706e-03,.1965264e-03,.2992768e-03,&
2440  & .3318268e-03,.3430041e-03,.3386437e-03,.3253725e-03,.3007759e-03,&
2441  & .2623706e-03,.1739993e-03,.1975452e-03,.3039553e-03,.3382589e-03,&
2442  & .3504664e-03,.3467920e-03,.3335199e-03,.3082884e-03,.2693916e-03,&
2443  & .1801702e-03,.1992020e-03,.3099779e-03,.3465283e-03,.3595055e-03,&
2444  & .3565400e-03,.3430057e-03,.3175611e-03,.2774855e-03,.1867273e-03/
2445 
2446  data absa(181:315, 2) / &
2447  & .1692110e-03,.2560783e-03,.2816239e-03,.2892751e-03,.2854340e-03,&
2448  & .2729454e-03,.2512636e-03,.2176013e-03,.1406685e-03,.1700158e-03,&
2449  & .2591285e-03,.2857505e-03,.2942600e-03,.2906779e-03,.2782649e-03,&
2450  & .2565024e-03,.2227555e-03,.1451134e-03,.1711402e-03,.2627639e-03,&
2451  & .2908575e-03,.3002244e-03,.2969592e-03,.2845936e-03,.2626853e-03,&
2452  & .2280973e-03,.1489243e-03,.1723113e-03,.2667721e-03,.2966815e-03,&
2453  & .3070349e-03,.3041790e-03,.2912783e-03,.2694000e-03,.2338131e-03,&
2454  & .1538692e-03,.1740563e-03,.2722405e-03,.3040666e-03,.3151440e-03,&
2455  & .3128365e-03,.2994324e-03,.2773169e-03,.2405489e-03,.1587634e-03,&
2456  & .1467247e-03,.2239121e-03,.2459341e-03,.2521661e-03,.2491285e-03,&
2457  & .2381498e-03,.2185025e-03,.1886728e-03,.1245807e-03,.1473884e-03,&
2458  & .2265685e-03,.2495294e-03,.2564125e-03,.2535594e-03,.2425776e-03,&
2459  & .2232033e-03,.1930135e-03,.1274953e-03,.1482897e-03,.2296257e-03,&
2460  & .2540362e-03,.2615549e-03,.2589723e-03,.2479233e-03,.2285370e-03,&
2461  & .1976049e-03,.1306204e-03,.1494392e-03,.2332170e-03,.2591337e-03,&
2462  & .2675927e-03,.2648872e-03,.2537659e-03,.2341528e-03,.2022251e-03,&
2463  & .1344888e-03,.1508093e-03,.2374102e-03,.2648426e-03,.2740852e-03,&
2464  & .2718576e-03,.2604781e-03,.2406433e-03,.2081661e-03,.1378196e-03,&
2465  & .1263109e-03,.1951428e-03,.2144975e-03,.2195749e-03,.2170080e-03,&
2466  & .2069188e-03,.1894328e-03,.1633783e-03,.1200887e-03,.1271134e-03,&
2467  & .1973810e-03,.2175147e-03,.2232648e-03,.2204590e-03,.2109194e-03,&
2468  & .1937750e-03,.1670597e-03,.1213160e-03,.1278627e-03,.2000293e-03,&
2469  & .2212521e-03,.2276502e-03,.2250313e-03,.2152307e-03,.1982160e-03,&
2470  & .1708010e-03,.1229746e-03,.1288762e-03,.2031265e-03,.2255973e-03,&
2471  & .2327902e-03,.2301752e-03,.2203853e-03,.2029333e-03,.1746039e-03,&
2472  & .1249396e-03,.1300624e-03,.2067082e-03,.2305851e-03,.2383986e-03,&
2473  & .2363202e-03,.2260966e-03,.2085247e-03,.1797897e-03,.1276706e-03/
2474 
2475  data absa(316:450, 2) / &
2476  & .1087530e-03,.1695227e-03,.1869845e-03,.1912855e-03,.1886016e-03,&
2477  & .1794107e-03,.1640395e-03,.1407348e-03,.1388109e-03,.1095657e-03,&
2478  & .1712971e-03,.1895043e-03,.1945158e-03,.1916236e-03,.1827598e-03,&
2479  & .1678635e-03,.1438343e-03,.1366925e-03,.1103222e-03,.1736665e-03,&
2480  & .1926247e-03,.1982051e-03,.1955376e-03,.1864091e-03,.1715841e-03,&
2481  & .1469470e-03,.1364063e-03,.1111854e-03,.1763283e-03,.1961855e-03,&
2482  & .2023728e-03,.2000777e-03,.1907608e-03,.1757564e-03,.1506354e-03,&
2483  & .1369112e-03,.1122634e-03,.1793268e-03,.2003957e-03,.2070334e-03,&
2484  & .2051943e-03,.1958970e-03,.1805692e-03,.1551262e-03,.1374744e-03,&
2485  & .9300705e-04,.1464182e-03,.1620111e-03,.1662152e-03,.1638421e-03,&
2486  & .1556181e-03,.1415254e-03,.1207125e-03,.2197460e-03,.9379197e-04,&
2487  & .1478848e-03,.1642219e-03,.1688554e-03,.1664207e-03,.1584541e-03,&
2488  & .1446859e-03,.1233342e-03,.2178811e-03,.9457710e-04,.1498107e-03,&
2489  & .1668492e-03,.1719850e-03,.1697382e-03,.1615171e-03,.1478254e-03,&
2490  & .1260245e-03,.2169464e-03,.9536836e-04,.1520740e-03,.1699345e-03,&
2491  & .1755822e-03,.1735872e-03,.1652759e-03,.1515057e-03,.1293800e-03,&
2492  & .2166357e-03,.9627944e-04,.1547433e-03,.1735275e-03,.1795990e-03,&
2493  & .1780373e-03,.1697434e-03,.1556408e-03,.1331356e-03,.2164129e-03,&
2494  & .7917379e-04,.1259529e-03,.1400562e-03,.1440600e-03,.1421290e-03,&
2495  & .1348884e-03,.1219352e-03,.1031837e-03,.3271209e-03,.7977861e-04,&
2496  & .1271040e-03,.1418834e-03,.1462764e-03,.1442107e-03,.1372758e-03,&
2497  & .1246562e-03,.1054164e-03,.3261360e-03,.8053422e-04,.1287862e-03,&
2498  & .1442112e-03,.1488988e-03,.1470409e-03,.1399784e-03,.1274996e-03,&
2499  & .1079546e-03,.3247606e-03,.8124880e-04,.1308583e-03,.1468362e-03,&
2500  & .1519274e-03,.1504180e-03,.1431923e-03,.1307815e-03,.1110513e-03,&
2501  & .3234572e-03,.8201452e-04,.1331325e-03,.1497495e-03,.1553833e-03,&
2502  & .1542308e-03,.1471022e-03,.1343535e-03,.1143694e-03,.3218489e-03/
2503 
2504  data absa(451:585, 2) / &
2505  & .6728851e-04,.1080906e-03,.1208580e-03,.1247323e-03,.1232827e-03,&
2506  & .1175266e-03,.1060571e-03,.8883780e-04,.3501958e-03,.6791800e-04,&
2507  & .1091898e-03,.1225378e-03,.1268241e-03,.1253901e-03,.1196653e-03,&
2508  & .1084469e-03,.9082183e-04,.3442870e-03,.6851447e-04,.1107863e-03,&
2509  & .1246494e-03,.1293024e-03,.1281246e-03,.1222490e-03,.1111838e-03,&
2510  & .9324574e-04,.3420183e-03,.6908353e-04,.1126804e-03,.1269928e-03,&
2511  & .1321156e-03,.1312354e-03,.1252083e-03,.1140710e-03,.9617117e-04,&
2512  & .3390113e-03,.6957312e-04,.1148165e-03,.1296320e-03,.1352293e-03,&
2513  & .1346612e-03,.1287087e-03,.1172723e-03,.9910752e-04,.3385633e-03,&
2514  & .5686255e-04,.9216035e-04,.1034858e-03,.1071516e-03,.1060652e-03,&
2515  & .1014159e-03,.9163836e-04,.7623805e-04,.3310437e-03,.5734770e-04,&
2516  & .9329051e-04,.1049670e-03,.1090060e-03,.1081383e-03,.1034188e-03,&
2517  & .9390315e-04,.7812498e-04,.3244905e-03,.5781298e-04,.9473394e-04,&
2518  & .1068652e-03,.1112574e-03,.1106069e-03,.1057391e-03,.9631206e-04,&
2519  & .8054235e-04,.3210568e-03,.5822217e-04,.9640942e-04,.1089655e-03,&
2520  & .1137847e-03,.1134036e-03,.1085277e-03,.9896999e-04,.8309374e-04,&
2521  & .3173487e-03,.5853550e-04,.9825196e-04,.1113394e-03,.1165990e-03,&
2522  & .1165067e-03,.1117023e-03,.1018552e-03,.8573085e-04,.3168446e-03,&
2523  & .4783824e-04,.7831477e-04,.8819578e-04,.9148052e-04,.9081639e-04,&
2524  & .8696960e-04,.7879106e-04,.6529420e-04,.2796540e-03,.4821354e-04,&
2525  & .7934773e-04,.8956662e-04,.9314137e-04,.9269390e-04,.8882919e-04,&
2526  & .8080982e-04,.6704726e-04,.2741660e-03,.4859146e-04,.8061493e-04,&
2527  & .9116325e-04,.9515541e-04,.9486227e-04,.9088828e-04,.8295551e-04,&
2528  & .6935405e-04,.2709349e-03,.4883862e-04,.8204290e-04,.9304806e-04,&
2529  & .9741929e-04,.9740051e-04,.9346855e-04,.8534014e-04,.7158356e-04,&
2530  & .2681460e-03,.4903521e-04,.8353294e-04,.9510393e-04,.9997200e-04,&
2531  & .1001833e-03,.9622958e-04,.8790924e-04,.7395389e-04,.2673945e-03/
2532 
2533  data absa( 1:180, 3) / &
2534  & .8184572e-03,.1288796e-02,.1495187e-02,.1632713e-02,.1719945e-02,&
2535  & .1761605e-02,.1759635e-02,.1698408e-02,.1367318e-02,.8243726e-03,&
2536  & .1301794e-02,.1514658e-02,.1658937e-02,.1753464e-02,.1802877e-02,&
2537  & .1805416e-02,.1745195e-02,.1405620e-02,.8348880e-03,.1320873e-02,&
2538  & .1542641e-02,.1692748e-02,.1795401e-02,.1852780e-02,.1858131e-02,&
2539  & .1800382e-02,.1449500e-02,.8418718e-03,.1340423e-02,.1571743e-02,&
2540  & .1728235e-02,.1837120e-02,.1903874e-02,.1915521e-02,.1859941e-02,&
2541  & .1503155e-02,.8531253e-03,.1366891e-02,.1607512e-02,.1771740e-02,&
2542  & .1886777e-02,.1961375e-02,.1981251e-02,.1927613e-02,.1561788e-02,&
2543  & .7302326e-03,.1151907e-02,.1334524e-02,.1456839e-02,.1533051e-02,&
2544  & .1567636e-02,.1559387e-02,.1499443e-02,.1187382e-02,.7372791e-03,&
2545  & .1164596e-02,.1352581e-02,.1480270e-02,.1561840e-02,.1601428e-02,&
2546  & .1596993e-02,.1539888e-02,.1219763e-02,.7483530e-03,.1183063e-02,&
2547  & .1378407e-02,.1510357e-02,.1596909e-02,.1642217e-02,.1642410e-02,&
2548  & .1586010e-02,.1257897e-02,.7577399e-03,.1203485e-02,.1406414e-02,&
2549  & .1543415e-02,.1634037e-02,.1686222e-02,.1692333e-02,.1636545e-02,&
2550  & .1301186e-02,.7660501e-03,.1226282e-02,.1437446e-02,.1580408e-02,&
2551  & .1675024e-02,.1733502e-02,.1745352e-02,.1693309e-02,.1350969e-02,&
2552  & .6502794e-03,.1026616e-02,.1186960e-02,.1295393e-02,.1364677e-02,&
2553  & .1394889e-02,.1381785e-02,.1317502e-02,.1017363e-02,.6567559e-03,&
2554  & .1037505e-02,.1202583e-02,.1315591e-02,.1388459e-02,.1421306e-02,&
2555  & .1413547e-02,.1351496e-02,.1044406e-02,.6651689e-03,.1050207e-02,&
2556  & .1223023e-02,.1339830e-02,.1416067e-02,.1452943e-02,.1449484e-02,&
2557  & .1390425e-02,.1076530e-02,.6772722e-03,.1071331e-02,.1249580e-02,&
2558  & .1370662e-02,.1449539e-02,.1490615e-02,.1491899e-02,.1434093e-02,&
2559  & .1111777e-02,.6855463e-03,.1091648e-02,.1276403e-02,.1402863e-02,&
2560  & .1483596e-02,.1529594e-02,.1535466e-02,.1481180e-02,.1152638e-02,&
2561  & .5768479e-03,.9115621e-03,.1053538e-02,.1150084e-02,.1211847e-02,&
2562  & .1236742e-02,.1220110e-02,.1153457e-02,.8691713e-03,.5830135e-03,&
2563  & .9209284e-03,.1066914e-02,.1166765e-02,.1232185e-02,.1259290e-02,&
2564  & .1246437e-02,.1180938e-02,.8912098e-03,.5910480e-03,.9345088e-03,&
2565  & .1084575e-02,.1187678e-02,.1255979e-02,.1286682e-02,.1276512e-02,&
2566  & .1213240e-02,.9180720e-03,.6008298e-03,.9515132e-03,.1106486e-02,&
2567  & .1212563e-02,.1283329e-02,.1317431e-02,.1311088e-02,.1249258e-02,&
2568  & .9471810e-03,.6138388e-03,.9709949e-03,.1132455e-02,.1242798e-02,&
2569  & .1315868e-02,.1353280e-02,.1350757e-02,.1291032e-02,.9816019e-03/
2570 
2571  data absa(181:315, 3) / &
2572  & .5093571e-03,.8080237e-03,.9381643e-03,.1019789e-02,.1071192e-02,&
2573  & .1090471e-02,.1073488e-02,.1005758e-02,.7418709e-03,.5151626e-03,&
2574  & .8165236e-03,.9496789e-03,.1034266e-02,.1088284e-02,.1110067e-02,&
2575  & .1094940e-02,.1028625e-02,.7599047e-03,.5224485e-03,.8286429e-03,&
2576  & .9624412e-03,.1052107e-02,.1109000e-02,.1133457e-02,.1120200e-02,&
2577  & .1055094e-02,.7812729e-03,.5316862e-03,.8438037e-03,.9798289e-03,&
2578  & .1073448e-02,.1132718e-02,.1160426e-02,.1149517e-02,.1085478e-02,&
2579  & .8053947e-03,.5444831e-03,.8638786e-03,.1002962e-02,.1099774e-02,&
2580  & .1161623e-02,.1191798e-02,.1183243e-02,.1121002e-02,.8340163e-03,&
2581  & .4476728e-03,.7152034e-03,.8303044e-03,.9027280e-03,.9422368e-03,&
2582  & .9566089e-03,.9387208e-03,.8743692e-03,.6315594e-03,.4531060e-03,&
2583  & .7229985e-03,.8401962e-03,.9128749e-03,.9571607e-03,.9729227e-03,&
2584  & .9565139e-03,.8930810e-03,.6455309e-03,.4601132e-03,.7340161e-03,&
2585  & .8531068e-03,.9280096e-03,.9748476e-03,.9926457e-03,.9777088e-03,&
2586  & .9149552e-03,.6618730e-03,.4687606e-03,.7470819e-03,.8686951e-03,&
2587  & .9463629e-03,.9951022e-03,.1015485e-02,.1002244e-02,.9403643e-03,&
2588  & .6808008e-03,.4785595e-03,.7635702e-03,.8869579e-03,.9676686e-03,&
2589  & .1018859e-02,.1041246e-02,.1029537e-02,.9684597e-03,.7044125e-03,&
2590  & .3929615e-03,.6307616e-03,.7313469e-03,.7929589e-03,.8247908e-03,&
2591  & .8356659e-03,.8173907e-03,.7575170e-03,.5383971e-03,.3978536e-03,&
2592  & .6382438e-03,.7406018e-03,.8039178e-03,.8378859e-03,.8488038e-03,&
2593  & .8315811e-03,.7727276e-03,.5497760e-03,.4043732e-03,.6478463e-03,&
2594  & .7517647e-03,.8168558e-03,.8526219e-03,.8656075e-03,.8491574e-03,&
2595  & .7907891e-03,.5627384e-03,.4122128e-03,.6599763e-03,.7657659e-03,&
2596  & .8304335e-03,.8701303e-03,.8849440e-03,.8695717e-03,.8115473e-03,&
2597  & .5782796e-03,.4216792e-03,.6747622e-03,.7823998e-03,.8487735e-03,&
2598  & .8905701e-03,.9067120e-03,.8925209e-03,.8346838e-03,.5962302e-03/
2599 
2600  data absa(316:450, 3) / &
2601  & .3452083e-03,.5538022e-03,.6406411e-03,.6932554e-03,.7213690e-03,&
2602  & .7269628e-03,.7089993e-03,.6545119e-03,.4847209e-03,.3494976e-03,&
2603  & .5608628e-03,.6492121e-03,.7026395e-03,.7319618e-03,.7381217e-03,&
2604  & .7204878e-03,.6670675e-03,.4924614e-03,.3555168e-03,.5695884e-03,&
2605  & .6593390e-03,.7138651e-03,.7429187e-03,.7522301e-03,.7349547e-03,&
2606  & .6817461e-03,.5010009e-03,.3629721e-03,.5805421e-03,.6721512e-03,&
2607  & .7278957e-03,.7573896e-03,.7683553e-03,.7514496e-03,.6984177e-03,&
2608  & .5116719e-03,.3715828e-03,.5938995e-03,.6869808e-03,.7439941e-03,&
2609  & .7750335e-03,.7864892e-03,.7704733e-03,.7174510e-03,.5246067e-03,&
2610  & .3053224e-03,.4856259e-03,.5588804e-03,.6031584e-03,.6264927e-03,&
2611  & .6296159e-03,.6127370e-03,.5636624e-03,.6772975e-03,.3090662e-03,&
2612  & .4924553e-03,.5671508e-03,.6120265e-03,.6363728e-03,.6394116e-03,&
2613  & .6225004e-03,.5739117e-03,.6640269e-03,.3140506e-03,.5003281e-03,&
2614  & .5762886e-03,.6218129e-03,.6467350e-03,.6509293e-03,.6346838e-03,&
2615  & .5862457e-03,.6537700e-03,.3203596e-03,.5098203e-03,.5876621e-03,&
2616  & .6339281e-03,.6587374e-03,.6641130e-03,.6482634e-03,.5998107e-03,&
2617  & .6477927e-03,.3280678e-03,.5213843e-03,.6008020e-03,.6482465e-03,&
2618  & .6724424e-03,.6792561e-03,.6641693e-03,.6153933e-03,.6458298e-03,&
2619  & .2733291e-03,.4289828e-03,.4894421e-03,.5250706e-03,.5435356e-03,&
2620  & .5455983e-03,.5286069e-03,.4846966e-03,.1525269e-02,.2767436e-03,&
2621  & .4347254e-03,.4967461e-03,.5327268e-03,.5517500e-03,.5540458e-03,&
2622  & .5369648e-03,.4938952e-03,.1462778e-02,.2810846e-03,.4416485e-03,&
2623  & .5047342e-03,.5418403e-03,.5610033e-03,.5634743e-03,.5472960e-03,&
2624  & .5038891e-03,.1415701e-02,.2866866e-03,.4502441e-03,.5146077e-03,&
2625  & .5523415e-03,.5718914e-03,.5740346e-03,.5587333e-03,.5149488e-03,&
2626  & .1375472e-02,.2934865e-03,.4607363e-03,.5263019e-03,.5647079e-03,&
2627  & .5847436e-03,.5869370e-03,.5719471e-03,.5277797e-03,.1341507e-02/
2628 
2629  data absa(451:585, 3) / &
2630  & .2437828e-03,.3835942e-03,.4355111e-03,.4643060e-03,.4763641e-03,&
2631  & .4751451e-03,.4583198e-03,.4193574e-03,.1825342e-02,.2475557e-03,&
2632  & .3898469e-03,.4421366e-03,.4710873e-03,.4839473e-03,.4831741e-03,&
2633  & .4661299e-03,.4275995e-03,.1756933e-02,.2523063e-03,.3973500e-03,&
2634  & .4497777e-03,.4789579e-03,.4924096e-03,.4921150e-03,.4752010e-03,&
2635  & .4363639e-03,.1708388e-02,.2580622e-03,.4058625e-03,.4589941e-03,&
2636  & .4884064e-03,.5025671e-03,.5020326e-03,.4855219e-03,.4461901e-03,&
2637  & .1669299e-02,.2648941e-03,.4157912e-03,.4698491e-03,.4998329e-03,&
2638  & .5143630e-03,.5136245e-03,.4973797e-03,.4575998e-03,.1623002e-02,&
2639  & .2144367e-03,.3401170e-03,.3854223e-03,.4099266e-03,.4196610e-03,&
2640  & .4161366e-03,.3989091e-03,.3620378e-03,.1821655e-02,.2181060e-03,&
2641  & .3463069e-03,.3922259e-03,.4165637e-03,.4265488e-03,.4233797e-03,&
2642  & .4058075e-03,.3692157e-03,.1752071e-02,.2229514e-03,.3537530e-03,&
2643  & .4002355e-03,.4242150e-03,.4345415e-03,.4315545e-03,.4136194e-03,&
2644  & .3770147e-03,.1694072e-02,.2286334e-03,.3622049e-03,.4092201e-03,&
2645  & .4334592e-03,.4440346e-03,.4406362e-03,.4225253e-03,.3857130e-03,&
2646  & .1645638e-02,.2354630e-03,.3723794e-03,.4193491e-03,.4443949e-03,&
2647  & .4547391e-03,.4513798e-03,.4332059e-03,.3959499e-03,.1604607e-02,&
2648  & .1873934e-03,.2995165e-03,.3394711e-03,.3611157e-03,.3690992e-03,&
2649  & .3648908e-03,.3479275e-03,.3123745e-03,.1574790e-02,.1910454e-03,&
2650  & .3056861e-03,.3461932e-03,.3679395e-03,.3758939e-03,.3716238e-03,&
2651  & .3543646e-03,.3186636e-03,.1513357e-02,.1954531e-03,.3127911e-03,&
2652  & .3540282e-03,.3758084e-03,.3835301e-03,.3790064e-03,.3616108e-03,&
2653  & .3254549e-03,.1464333e-02,.2011139e-03,.3213571e-03,.3628469e-03,&
2654  & .3848293e-03,.3922803e-03,.3876951e-03,.3697429e-03,.3333521e-03,&
2655  & .1424128e-02,.2075183e-03,.3308876e-03,.3732484e-03,.3952328e-03,&
2656  & .4025443e-03,.3978826e-03,.3793694e-03,.3424789e-03,.1389880e-02/
2657 
2658  data absa( 1:180, 4) / &
2659  & .3736324e-02,.6100560e-02,.7728410e-02,.8959576e-02,.9913897e-02,&
2660  & .1060534e-01,.1095043e-01,.1073709e-01,.9408838e-02,.3792238e-02,&
2661  & .6178500e-02,.7827205e-02,.9076284e-02,.1004324e-01,.1073477e-01,&
2662  & .1108085e-01,.1083940e-01,.9519649e-02,.3871754e-02,.6278718e-02,&
2663  & .7949468e-02,.9221394e-02,.1019996e-01,.1088941e-01,.1123148e-01,&
2664  & .1097176e-01,.9657396e-02,.3934975e-02,.6363492e-02,.8064193e-02,&
2665  & .9370476e-02,.1036793e-01,.1105745e-01,.1140542e-01,.1112862e-01,&
2666  & .9816845e-02,.4020724e-02,.6468817e-02,.8206395e-02,.9541906e-02,&
2667  & .1055918e-01,.1126073e-01,.1160795e-01,.1130758e-01,.9996192e-02,&
2668  & .3402273e-02,.5620650e-02,.7030748e-02,.8098078e-02,.8924472e-02,&
2669  & .9508944e-02,.9801255e-02,.9592074e-02,.8097867e-02,.3451518e-02,&
2670  & .5698898e-02,.7132591e-02,.8219355e-02,.9056752e-02,.9642702e-02,&
2671  & .9930623e-02,.9700146e-02,.8198722e-02,.3525436e-02,.5795932e-02,&
2672  & .7258246e-02,.8364978e-02,.9212267e-02,.9796289e-02,.1008263e-01,&
2673  & .9835560e-02,.8322568e-02,.3594242e-02,.5888324e-02,.7386430e-02,&
2674  & .8518910e-02,.9379100e-02,.9970774e-02,.1025951e-01,.9989379e-02,&
2675  & .8466107e-02,.3660490e-02,.5981362e-02,.7519542e-02,.8678334e-02,&
2676  & .9565719e-02,.1017025e-01,.1045322e-01,.1016255e-01,.8625539e-02,&
2677  & .3102796e-02,.5141091e-02,.6344760e-02,.7250524e-02,.7949175e-02,&
2678  & .8434987e-02,.8669628e-02,.8481084e-02,.6903275e-02,.3148146e-02,&
2679  & .5218469e-02,.6443866e-02,.7368450e-02,.8075641e-02,.8560889e-02,&
2680  & .8792122e-02,.8585149e-02,.6988914e-02,.3201454e-02,.5303035e-02,&
2681  & .6555873e-02,.7497631e-02,.8217284e-02,.8706091e-02,.8936316e-02,&
2682  & .8708232e-02,.7092276e-02,.3275760e-02,.5404005e-02,.6690045e-02,&
2683  & .7649565e-02,.8382414e-02,.8880227e-02,.9103836e-02,.8853150e-02,&
2684  & .7213900e-02,.3333969e-02,.5494628e-02,.6816793e-02,.7800860e-02,&
2685  & .8559397e-02,.9065543e-02,.9281723e-02,.9013731e-02,.7356112e-02,&
2686  & .2831427e-02,.4682414e-02,.5696173e-02,.6452550e-02,.7031440e-02,&
2687  & .7425488e-02,.7615078e-02,.7445178e-02,.5905547e-02,.2873398e-02,&
2688  & .4758548e-02,.5791245e-02,.6565599e-02,.7146886e-02,.7543948e-02,&
2689  & .7728470e-02,.7539994e-02,.5975231e-02,.2922042e-02,.4836804e-02,&
2690  & .5896068e-02,.6683182e-02,.7278970e-02,.7678598e-02,.7858498e-02,&
2691  & .7652488e-02,.6063670e-02,.2979003e-02,.4922733e-02,.6010505e-02,&
2692  & .6817378e-02,.7426977e-02,.7832832e-02,.8004073e-02,.7783099e-02,&
2693  & .6166540e-02,.3051509e-02,.5034845e-02,.6147088e-02,.6974054e-02,&
2694  & .7599704e-02,.8009148e-02,.8169023e-02,.7931032e-02,.6289201e-02/
2695 
2696  data absa(181:315, 4) / &
2697  & .2581422e-02,.4252396e-02,.5095766e-02,.5725588e-02,.6193716e-02,&
2698  & .6511713e-02,.6657529e-02,.6499613e-02,.5066125e-02,.2622021e-02,&
2699  & .4323928e-02,.5186112e-02,.5827234e-02,.6301641e-02,.6620209e-02,&
2700  & .6758605e-02,.6586843e-02,.5124677e-02,.2667849e-02,.4398967e-02,&
2701  & .5285995e-02,.5935349e-02,.6423419e-02,.6740405e-02,.6875009e-02,&
2702  & .6687854e-02,.5199137e-02,.2719644e-02,.4480894e-02,.5391504e-02,&
2703  & .6059082e-02,.6557515e-02,.6877697e-02,.7004932e-02,.6806128e-02,&
2704  & .5284911e-02,.2786609e-02,.4583687e-02,.5519294e-02,.6203484e-02,&
2705  & .6711011e-02,.7035046e-02,.7152458e-02,.6938895e-02,.5385742e-02,&
2706  & .2339609e-02,.3846094e-02,.4554211e-02,.5067608e-02,.5443590e-02,&
2707  & .5691422e-02,.5796061e-02,.5651788e-02,.4350403e-02,.2380923e-02,&
2708  & .3911794e-02,.4637326e-02,.5161799e-02,.5541208e-02,.5788128e-02,&
2709  & .5888423e-02,.5729114e-02,.4399487e-02,.2424975e-02,.3982801e-02,&
2710  & .4723535e-02,.5261943e-02,.5649668e-02,.5897396e-02,.5992483e-02,&
2711  & .5819539e-02,.4460491e-02,.2474162e-02,.4061310e-02,.4818668e-02,&
2712  & .5372412e-02,.5769446e-02,.6018440e-02,.6107034e-02,.5923338e-02,&
2713  & .4530683e-02,.2528477e-02,.4146106e-02,.4927901e-02,.5493040e-02,&
2714  & .5902213e-02,.6153417e-02,.6234974e-02,.6038909e-02,.4613086e-02,&
2715  & .2108102e-02,.3463767e-02,.4067283e-02,.4486100e-02,.4783508e-02,&
2716  & .4968566e-02,.5039362e-02,.4903349e-02,.3736969e-02,.2149169e-02,&
2717  & .3526123e-02,.4141192e-02,.4568003e-02,.4870426e-02,.5056936e-02,&
2718  & .5123533e-02,.4973057e-02,.3776037e-02,.2192220e-02,.3593626e-02,&
2719  & .4218969e-02,.4658171e-02,.4967303e-02,.5154377e-02,.5214872e-02,&
2720  & .5052489e-02,.3823705e-02,.2239930e-02,.3665815e-02,.4305224e-02,&
2721  & .4760112e-02,.5074184e-02,.5261541e-02,.5315916e-02,.5141203e-02,&
2722  & .3879448e-02,.2291457e-02,.3745249e-02,.4403192e-02,.4867213e-02,&
2723  & .5191513e-02,.5380406e-02,.5427689e-02,.5240706e-02,.3946442e-02/
2724 
2725  data absa(316:450, 4) / &
2726  & .1888206e-02,.3101989e-02,.3625968e-02,.3971182e-02,.4202567e-02,&
2727  & .4344619e-02,.4384538e-02,.4251354e-02,.3181821e-02,.1928325e-02,&
2728  & .3162679e-02,.3693527e-02,.4045345e-02,.4282687e-02,.4424622e-02,&
2729  & .4458656e-02,.4312656e-02,.3213796e-02,.1970231e-02,.3226941e-02,&
2730  & .3764384e-02,.4127675e-02,.4371933e-02,.4510091e-02,.4538985e-02,&
2731  & .4381451e-02,.3253041e-02,.2016368e-02,.3294141e-02,.3842606e-02,&
2732  & .4216009e-02,.4467372e-02,.4604053e-02,.4627489e-02,.4457971e-02,&
2733  & .3298935e-02,.2065463e-02,.3369431e-02,.3930153e-02,.4311858e-02,&
2734  & .4569900e-02,.4708801e-02,.4723164e-02,.4542339e-02,.3355283e-02,&
2735  & .1679110e-02,.2762441e-02,.3217170e-02,.3511424e-02,.3699441e-02,&
2736  & .3807111e-02,.3820305e-02,.3685883e-02,.2768596e-02,.1718111e-02,&
2737  & .2820629e-02,.3280981e-02,.3579835e-02,.3771324e-02,.3877601e-02,&
2738  & .3885055e-02,.3740150e-02,.2792302e-02,.1759096e-02,.2880777e-02,&
2739  & .3347449e-02,.3654997e-02,.3849489e-02,.3952528e-02,.3955472e-02,&
2740  & .3800453e-02,.2822088e-02,.1804159e-02,.2943869e-02,.3420297e-02,&
2741  & .3734906e-02,.3934456e-02,.4035234e-02,.4031563e-02,.3866511e-02,&
2742  & .2856445e-02,.1852018e-02,.3014249e-02,.3500208e-02,.3821348e-02,&
2743  & .4026208e-02,.4126369e-02,.4113254e-02,.3937685e-02,.2897579e-02,&
2744  & .1485209e-02,.2447369e-02,.2842719e-02,.3098235e-02,.3261684e-02,&
2745  & .3343620e-02,.3333197e-02,.3190317e-02,.4072685e-02,.1522667e-02,&
2746  & .2503774e-02,.2902412e-02,.3163342e-02,.3327673e-02,.3406943e-02,&
2747  & .3392715e-02,.3239642e-02,.4013646e-02,.1562338e-02,.2561154e-02,&
2748  & .2966329e-02,.3232897e-02,.3398043e-02,.3474218e-02,.3456041e-02,&
2749  & .3293328e-02,.3960211e-02,.1605822e-02,.2619463e-02,.3035388e-02,&
2750  & .3307311e-02,.3472770e-02,.3548127e-02,.3523210e-02,.3351454e-02,&
2751  & .3918895e-02,.1652396e-02,.2684419e-02,.3109623e-02,.3386474e-02,&
2752  & .3553371e-02,.3627950e-02,.3594923e-02,.3414383e-02,.3895295e-02/
2753 
2754  data absa(451:585, 4) / &
2755  & .1327826e-02,.2178249e-02,.2523484e-02,.2748178e-02,.2891129e-02,&
2756  & .2953926e-02,.2925626e-02,.2774151e-02,.5032627e-02,.1363836e-02,&
2757  & .2231507e-02,.2582331e-02,.2811256e-02,.2953861e-02,.3013652e-02,&
2758  & .2982332e-02,.2820761e-02,.4894171e-02,.1402555e-02,.2284583e-02,&
2759  & .2644926e-02,.2877676e-02,.3020940e-02,.3077742e-02,.3041427e-02,&
2760  & .2870356e-02,.4763815e-02,.1444850e-02,.2341577e-02,.2711315e-02,&
2761  & .2948500e-02,.3091276e-02,.3147103e-02,.3103922e-02,.2923523e-02,&
2762  & .4657359e-02,.1491126e-02,.2405746e-02,.2783605e-02,.3023985e-02,&
2763  & .3167614e-02,.3221278e-02,.3170403e-02,.2981808e-02,.4593950e-02,&
2764  & .1198258e-02,.1938520e-02,.2240507e-02,.2433881e-02,.2549827e-02,&
2765  & .2596355e-02,.2561600e-02,.2410177e-02,.5165038e-02,.1231984e-02,&
2766  & .1988536e-02,.2296997e-02,.2493517e-02,.2610218e-02,.2654628e-02,&
2767  & .2615348e-02,.2452955e-02,.4998695e-02,.1267303e-02,.2040113e-02,&
2768  & .2355817e-02,.2557194e-02,.2673983e-02,.2716145e-02,.2670737e-02,&
2769  & .2497659e-02,.4849281e-02,.1307299e-02,.2095435e-02,.2418826e-02,&
2770  & .2623945e-02,.2740846e-02,.2781831e-02,.2728441e-02,.2545893e-02,&
2771  & .4735365e-02,.1350768e-02,.2157279e-02,.2487383e-02,.2694912e-02,&
2772  & .2813081e-02,.2851205e-02,.2790976e-02,.2599947e-02,.4638902e-02,&
2773  & .1094611e-02,.1729442e-02,.1987775e-02,.2148646e-02,.2243224e-02,&
2774  & .2274670e-02,.2235199e-02,.2090113e-02,.4614858e-02,.1125402e-02,&
2775  & .1775981e-02,.2041820e-02,.2205584e-02,.2300560e-02,.2330200e-02,&
2776  & .2284917e-02,.2128857e-02,.4463987e-02,.1159259e-02,.1824840e-02,&
2777  & .2098113e-02,.2265637e-02,.2360409e-02,.2388227e-02,.2336076e-02,&
2778  & .2169572e-02,.4338182e-02,.1196616e-02,.1877338e-02,.2157749e-02,&
2779  & .2328747e-02,.2423999e-02,.2448955e-02,.2390335e-02,.2214290e-02,&
2780  & .4232022e-02,.1237500e-02,.1937731e-02,.2222832e-02,.2395916e-02,&
2781  & .2492122e-02,.2513855e-02,.2450198e-02,.2264343e-02,.4147518e-02/
2782 
2783  data absa( 1:180, 5) / &
2784  & .7569383e-01,.7127726e-01,.7072055e-01,.7167894e-01,.7293550e-01,&
2785  & .7244916e-01,.7056707e-01,.6926245e-01,.7313178e-01,.7613347e-01,&
2786  & .7151997e-01,.7077247e-01,.7153549e-01,.7263614e-01,.7201405e-01,&
2787  & .7009892e-01,.6889573e-01,.7285660e-01,.7647835e-01,.7168221e-01,&
2788  & .7076014e-01,.7134341e-01,.7231870e-01,.7159794e-01,.6969923e-01,&
2789  & .6859261e-01,.7264748e-01,.7670016e-01,.7175750e-01,.7068442e-01,&
2790  & .7110712e-01,.7197697e-01,.7120664e-01,.6933990e-01,.6836243e-01,&
2791  & .7255382e-01,.7691373e-01,.7183982e-01,.7062341e-01,.7088895e-01,&
2792  & .7164992e-01,.7087382e-01,.6904623e-01,.6822798e-01,.7257501e-01,&
2793  & .7421380e-01,.7089850e-01,.7145266e-01,.7330346e-01,.7466460e-01,&
2794  & .7395589e-01,.7188620e-01,.7007745e-01,.7342812e-01,.7470315e-01,&
2795  & .7115943e-01,.7149768e-01,.7312749e-01,.7437682e-01,.7354337e-01,&
2796  & .7146237e-01,.6973763e-01,.7320381e-01,.7511576e-01,.7137057e-01,&
2797  & .7150213e-01,.7293552e-01,.7408060e-01,.7316493e-01,.7110190e-01,&
2798  & .6944710e-01,.7305691e-01,.7543079e-01,.7151417e-01,.7146139e-01,&
2799  & .7272686e-01,.7376978e-01,.7280501e-01,.7076206e-01,.6923458e-01,&
2800  & .7300795e-01,.7568786e-01,.7161383e-01,.7139697e-01,.7250907e-01,&
2801  & .7343069e-01,.7248294e-01,.7048791e-01,.6909555e-01,.7306492e-01,&
2802  & .7230673e-01,.7021426e-01,.7189722e-01,.7451771e-01,.7579082e-01,&
2803  & .7503288e-01,.7282416e-01,.7049154e-01,.7299906e-01,.7286315e-01,&
2804  & .7051801e-01,.7197408e-01,.7438907e-01,.7552182e-01,.7466506e-01,&
2805  & .7245855e-01,.7016762e-01,.7281308e-01,.7332177e-01,.7075910e-01,&
2806  & .7199437e-01,.7424541e-01,.7524477e-01,.7430774e-01,.7210437e-01,&
2807  & .6988899e-01,.7270099e-01,.7375460e-01,.7098234e-01,.7200912e-01,&
2808  & .7408957e-01,.7497762e-01,.7399034e-01,.7179310e-01,.6966381e-01,&
2809  & .7266033e-01,.7410607e-01,.7113688e-01,.7196716e-01,.7387325e-01,&
2810  & .7467008e-01,.7369947e-01,.7152362e-01,.6950511e-01,.7269904e-01,&
2811  & .7006148e-01,.6923816e-01,.7203176e-01,.7518932e-01,.7630010e-01,&
2812  & .7558723e-01,.7324666e-01,.7030687e-01,.7173847e-01,.7070776e-01,&
2813  & .6960480e-01,.7215580e-01,.7510526e-01,.7608714e-01,.7528596e-01,&
2814  & .7291553e-01,.7001785e-01,.7160799e-01,.7124096e-01,.6989489e-01,&
2815  & .7221590e-01,.7501608e-01,.7584481e-01,.7498936e-01,.7259196e-01,&
2816  & .6976034e-01,.7152087e-01,.7170772e-01,.7013752e-01,.7222754e-01,&
2817  & .7487010e-01,.7559690e-01,.7471465e-01,.7231022e-01,.6954421e-01,&
2818  & .7149408e-01,.7217297e-01,.7036437e-01,.7224475e-01,.7470987e-01,&
2819  & .7536578e-01,.7448130e-01,.7207643e-01,.6939518e-01,.7153955e-01/
2820 
2821  data absa(181:315, 5) / &
2822  & .6746543e-01,.6789511e-01,.7175811e-01,.7512073e-01,.7623306e-01,&
2823  & .7554875e-01,.7299624e-01,.6947460e-01,.6972139e-01,.6817808e-01,&
2824  & .6831863e-01,.7191880e-01,.7511721e-01,.7607693e-01,.7533587e-01,&
2825  & .7272951e-01,.6921640e-01,.6962219e-01,.6878127e-01,.6866239e-01,&
2826  & .7201451e-01,.7507768e-01,.7588347e-01,.7512346e-01,.7245380e-01,&
2827  & .6898486e-01,.6955882e-01,.6931769e-01,.6894903e-01,.7206127e-01,&
2828  & .7499506e-01,.7568911e-01,.7490453e-01,.7221264e-01,.6878897e-01,&
2829  & .6955676e-01,.6984062e-01,.6921967e-01,.7210380e-01,.7490218e-01,&
2830  & .7552190e-01,.7471412e-01,.7202114e-01,.6866058e-01,.6962597e-01,&
2831  & .6453797e-01,.6619435e-01,.7096321e-01,.7435120e-01,.7557506e-01,&
2832  & .7489358e-01,.7213608e-01,.6797549e-01,.6697223e-01,.6531448e-01,&
2833  & .6667806e-01,.7120136e-01,.7443855e-01,.7550608e-01,.7477578e-01,&
2834  & .7192188e-01,.6776652e-01,.6691692e-01,.6599601e-01,.6708647e-01,&
2835  & .7137864e-01,.7446953e-01,.7539664e-01,.7463387e-01,.7169803e-01,&
2836  & .6757635e-01,.6690442e-01,.6658455e-01,.6741621e-01,.7148953e-01,&
2837  & .7446547e-01,.7527439e-01,.7447360e-01,.7150646e-01,.6741051e-01,&
2838  & .6692725e-01,.6710838e-01,.6769670e-01,.7154133e-01,.7442810e-01,&
2839  & .7515746e-01,.7430715e-01,.7133898e-01,.6729366e-01,.6700931e-01,&
2840  & .6127817e-01,.6414812e-01,.6958749e-01,.7293419e-01,.7429145e-01,&
2841  & .7361146e-01,.7059124e-01,.6583890e-01,.6355716e-01,.6212572e-01,&
2842  & .6469369e-01,.6993766e-01,.7312422e-01,.7433484e-01,.7357556e-01,&
2843  & .7045275e-01,.6569828e-01,.6357688e-01,.6288706e-01,.6516584e-01,&
2844  & .7021271e-01,.7326619e-01,.7432982e-01,.7348213e-01,.7031560e-01,&
2845  & .6555824e-01,.6360213e-01,.6354801e-01,.6556305e-01,.7040342e-01,&
2846  & .7334105e-01,.7430526e-01,.7337063e-01,.7018757e-01,.6542809e-01,&
2847  & .6365427e-01,.6412664e-01,.6589381e-01,.7053384e-01,.7337186e-01,&
2848  & .7426386e-01,.7326847e-01,.7006536e-01,.6533352e-01,.6375247e-01/
2849 
2850  data absa(316:450, 5) / &
2851  & .5769446e-01,.6178260e-01,.6765439e-01,.7096937e-01,.7236097e-01,&
2852  & .7162253e-01,.6841692e-01,.6322137e-01,.5970130e-01,.5863799e-01,&
2853  & .6240216e-01,.6811545e-01,.7126851e-01,.7252091e-01,.7168532e-01,&
2854  & .6838432e-01,.6313347e-01,.5975507e-01,.5948073e-01,.6294022e-01,&
2855  & .6847433e-01,.7150605e-01,.7262755e-01,.7166820e-01,.6832826e-01,&
2856  & .6301598e-01,.5980255e-01,.6019384e-01,.6338337e-01,.6874609e-01,&
2857  & .7165133e-01,.7270983e-01,.7163959e-01,.6825300e-01,.6292421e-01,&
2858  & .5988086e-01,.6082893e-01,.6376171e-01,.6894902e-01,.7174796e-01,&
2859  & .7275284e-01,.7161814e-01,.6819849e-01,.6284853e-01,.5997885e-01,&
2860  & .5384218e-01,.5913297e-01,.6512641e-01,.6847022e-01,.6981558e-01,&
2861  & .6898244e-01,.6574451e-01,.6014063e-01,.5493742e-01,.5486164e-01,&
2862  & .5981373e-01,.6568933e-01,.6889734e-01,.7011656e-01,.6915288e-01,&
2863  & .6580592e-01,.6008501e-01,.5501675e-01,.5576632e-01,.6040455e-01,&
2864  & .6615529e-01,.6921938e-01,.7034252e-01,.6924287e-01,.6580255e-01,&
2865  & .6001888e-01,.5509485e-01,.5653718e-01,.6090010e-01,.6649772e-01,&
2866  & .6944333e-01,.7051698e-01,.6931819e-01,.6580285e-01,.5995294e-01,&
2867  & .5518924e-01,.5724006e-01,.6133632e-01,.6675529e-01,.6962363e-01,&
2868  & .7062688e-01,.6937140e-01,.6580880e-01,.5991082e-01,.5530789e-01,&
2869  & .4986911e-01,.5625720e-01,.6219195e-01,.6550333e-01,.6673087e-01,&
2870  & .6585114e-01,.6260934e-01,.5664518e-01,.4665462e-01,.5094960e-01,&
2871  & .5701871e-01,.6284240e-01,.6603147e-01,.6716332e-01,.6612920e-01,&
2872  & .6275302e-01,.5663929e-01,.4676883e-01,.5188210e-01,.5764984e-01,&
2873  & .6336343e-01,.6646529e-01,.6749570e-01,.6632743e-01,.6282719e-01,&
2874  & .5662832e-01,.4689733e-01,.5269455e-01,.5818682e-01,.6376950e-01,&
2875  & .6678498e-01,.6774711e-01,.6647465e-01,.6289082e-01,.5661653e-01,&
2876  & .4705226e-01,.5340814e-01,.5863202e-01,.6410648e-01,.6704487e-01,&
2877  & .6795408e-01,.6661171e-01,.6295124e-01,.5663255e-01,.4724050e-01/
2878 
2879  data absa(451:585, 5) / &
2880  & .4634040e-01,.5350954e-01,.5924519e-01,.6235764e-01,.6342928e-01,&
2881  & .6250075e-01,.5915701e-01,.5294180e-01,.3981576e-01,.4736892e-01,&
2882  & .5426407e-01,.5988551e-01,.6297853e-01,.6392000e-01,.6284030e-01,&
2883  & .5933938e-01,.5297399e-01,.3998733e-01,.4826061e-01,.5489369e-01,&
2884  & .6040498e-01,.6345651e-01,.6430714e-01,.6308766e-01,.5949295e-01,&
2885  & .5300748e-01,.4016986e-01,.4903376e-01,.5542677e-01,.6085024e-01,&
2886  & .6383044e-01,.6465029e-01,.6331517e-01,.5962492e-01,.5307512e-01,&
2887  & .4039950e-01,.4974119e-01,.5589358e-01,.6123797e-01,.6415006e-01,&
2888  & .6494753e-01,.6353101e-01,.5976611e-01,.5317271e-01,.4065617e-01,&
2889  & .4271897e-01,.5052183e-01,.5599851e-01,.5891678e-01,.5984422e-01,&
2890  & .5881804e-01,.5542417e-01,.4913608e-01,.3713988e-01,.4368596e-01,&
2891  & .5124809e-01,.5664483e-01,.5957881e-01,.6039071e-01,.5919218e-01,&
2892  & .5567250e-01,.4923797e-01,.3723585e-01,.4453270e-01,.5188770e-01,&
2893  & .5720401e-01,.6010232e-01,.6087078e-01,.5953237e-01,.5588506e-01,&
2894  & .4936407e-01,.3745797e-01,.4529021e-01,.5243444e-01,.5768876e-01,&
2895  & .6053783e-01,.6126963e-01,.5984905e-01,.5610497e-01,.4950780e-01,&
2896  & .3755909e-01,.4600687e-01,.5293281e-01,.5813232e-01,.6093595e-01,&
2897  & .6163456e-01,.6016722e-01,.5635091e-01,.4968371e-01,.3773583e-01,&
2898  & .3908364e-01,.4730786e-01,.5250316e-01,.5524959e-01,.5601420e-01,&
2899  & .5485012e-01,.5154058e-01,.4532019e-01,.3566372e-01,.3998663e-01,&
2900  & .4803344e-01,.5319099e-01,.5592987e-01,.5663652e-01,.5530572e-01,&
2901  & .5183777e-01,.4553398e-01,.3583037e-01,.4078498e-01,.4865307e-01,&
2902  & .5379331e-01,.5649229e-01,.5715869e-01,.5574035e-01,.5214488e-01,&
2903  & .4574777e-01,.3594123e-01,.4154329e-01,.4922239e-01,.5434666e-01,&
2904  & .5701428e-01,.5763600e-01,.5616885e-01,.5247198e-01,.4597428e-01,&
2905  & .3604552e-01,.4229775e-01,.4978726e-01,.5486411e-01,.5751694e-01,&
2906  & .5809005e-01,.5659205e-01,.5281871e-01,.4623884e-01,.3624776e-01/
2907 
2908  data absa( 1:180, 6) / &
2909  & .4846620e+00,.4254449e+00,.3666979e+00,.3085003e+00,.2601346e+00,&
2910  & .2464956e+00,.2660087e+00,.3021063e+00,.3287759e+00,.4745246e+00,&
2911  & .4166752e+00,.3592695e+00,.3025580e+00,.2553943e+00,.2432268e+00,&
2912  & .2629249e+00,.2987363e+00,.3245474e+00,.4658709e+00,.4092568e+00,&
2913  & .3530642e+00,.2977163e+00,.2515626e+00,.2405793e+00,.2602783e+00,&
2914  & .2957536e+00,.3209745e+00,.4575145e+00,.4020922e+00,.3470681e+00,&
2915  & .2930793e+00,.2481591e+00,.2381801e+00,.2579191e+00,.2931017e+00,&
2916  & .3178371e+00,.4497966e+00,.3954548e+00,.3415131e+00,.2891031e+00,&
2917  & .2456319e+00,.2359968e+00,.2560087e+00,.2910169e+00,.3153507e+00,&
2918  & .5233277e+00,.4592284e+00,.3955317e+00,.3326601e+00,.2881387e+00,&
2919  & .2814594e+00,.3054605e+00,.3475919e+00,.3858173e+00,.5126637e+00,&
2920  & .4500477e+00,.3878258e+00,.3267077e+00,.2828332e+00,.2774387e+00,&
2921  & .3014139e+00,.3430855e+00,.3803776e+00,.5032811e+00,.4419694e+00,&
2922  & .3810629e+00,.3215530e+00,.2784520e+00,.2739908e+00,.2977829e+00,&
2923  & .3391699e+00,.3757057e+00,.4943912e+00,.4343294e+00,.3746578e+00,&
2924  & .3166441e+00,.2747404e+00,.2708931e+00,.2946970e+00,.3358529e+00,&
2925  & .3717479e+00,.4856925e+00,.4268266e+00,.3684341e+00,.3122038e+00,&
2926  & .2717769e+00,.2679905e+00,.2921861e+00,.3332832e+00,.3686250e+00,&
2927  & .5659721e+00,.4964838e+00,.4273442e+00,.3613333e+00,.3229778e+00,&
2928  & .3207717e+00,.3487909e+00,.3970188e+00,.4483696e+00,.5545946e+00,&
2929  & .4866491e+00,.4190737e+00,.3544937e+00,.3171184e+00,.3157821e+00,&
2930  & .3434204e+00,.3913987e+00,.4416557e+00,.5441901e+00,.4776455e+00,&
2931  & .4115043e+00,.3481950e+00,.3119787e+00,.3113749e+00,.3389006e+00,&
2932  & .3865528e+00,.4358447e+00,.5345476e+00,.4693294e+00,.4045767e+00,&
2933  & .3427926e+00,.3075766e+00,.3073312e+00,.3350898e+00,.3825859e+00,&
2934  & .4311541e+00,.5246854e+00,.4609334e+00,.3978727e+00,.3380061e+00,&
2935  & .3038003e+00,.3036818e+00,.3320521e+00,.3795333e+00,.4274614e+00,&
2936  & .6114156e+00,.5360856e+00,.4610841e+00,.3944939e+00,.3631225e+00,&
2937  & .3640797e+00,.3957193e+00,.4512458e+00,.5140119e+00,.5990211e+00,&
2938  & .5253614e+00,.4520735e+00,.3868300e+00,.3563118e+00,.3576976e+00,&
2939  & .3893012e+00,.4443146e+00,.5057705e+00,.5878031e+00,.5156587e+00,&
2940  & .4439389e+00,.3797822e+00,.3504051e+00,.3520245e+00,.3838216e+00,&
2941  & .4383993e+00,.4987384e+00,.5771932e+00,.5065469e+00,.4365968e+00,&
2942  & .3737334e+00,.3451671e+00,.3469143e+00,.3791776e+00,.4335158e+00,&
2943  & .4929659e+00,.5672493e+00,.4980854e+00,.4298759e+00,.3686864e+00,&
2944  & .3406738e+00,.3425037e+00,.3753823e+00,.4296076e+00,.4882770e+00/
2945 
2946  data absa(181:315, 6) / &
2947  & .6599457e+00,.5784248e+00,.4971773e+00,.4337450e+00,.4071444e+00,&
2948  & .4110564e+00,.4472427e+00,.5099709e+00,.5830348e+00,.6468482e+00,&
2949  & .5670871e+00,.4876631e+00,.4250777e+00,.3993382e+00,.4031458e+00,&
2950  & .4395792e+00,.5018776e+00,.5735256e+00,.6348396e+00,.5566698e+00,&
2951  & .4790978e+00,.4172804e+00,.3925206e+00,.3961110e+00,.4330389e+00,&
2952  & .4948939e+00,.5653109e+00,.6234166e+00,.5469278e+00,.4713504e+00,&
2953  & .4102887e+00,.3864066e+00,.3900014e+00,.4273461e+00,.4889966e+00,&
2954  & .5583254e+00,.6128604e+00,.5379244e+00,.4642610e+00,.4042901e+00,&
2955  & .3809946e+00,.3847891e+00,.4225472e+00,.4840732e+00,.5525507e+00,&
2956  & .7118405e+00,.6237026e+00,.5373473e+00,.4788483e+00,.4552052e+00,&
2957  & .4622830e+00,.5030364e+00,.5735317e+00,.6569249e+00,.6980451e+00,&
2958  & .6117423e+00,.5269042e+00,.4690257e+00,.4461057e+00,.4528737e+00,&
2959  & .4940744e+00,.5641178e+00,.6458719e+00,.6851401e+00,.6005735e+00,&
2960  & .5173938e+00,.4602048e+00,.4380661e+00,.4445391e+00,.4863645e+00,&
2961  & .5558444e+00,.6361244e+00,.6731826e+00,.5903092e+00,.5088902e+00,&
2962  & .4521990e+00,.4308774e+00,.4373808e+00,.4795420e+00,.5488504e+00,&
2963  & .6279339e+00,.6618869e+00,.5806518e+00,.5011956e+00,.4451372e+00,&
2964  & .4243261e+00,.4313958e+00,.4738124e+00,.5429837e+00,.6210544e+00,&
2965  & .7668972e+00,.6717524e+00,.5822052e+00,.5289402e+00,.5074279e+00,&
2966  & .5174762e+00,.5633483e+00,.6412958e+00,.7351146e+00,.7523724e+00,&
2967  & .6591380e+00,.5705110e+00,.5178052e+00,.4967826e+00,.5066462e+00,&
2968  & .5528830e+00,.6302350e+00,.7222090e+00,.7385919e+00,.6472212e+00,&
2969  & .5598496e+00,.5075245e+00,.4872782e+00,.4974170e+00,.5435990e+00,&
2970  & .6206660e+00,.7110675e+00,.7257857e+00,.6361589e+00,.5503268e+00,&
2971  & .4984685e+00,.4786719e+00,.4893603e+00,.5354629e+00,.6125751e+00,&
2972  & .7016399e+00,.7138973e+00,.6259486e+00,.5417002e+00,.4905437e+00,&
2973  & .4710327e+00,.4822383e+00,.5286586e+00,.6057803e+00,.6935878e+00/
2974 
2975  data absa(316:450, 6) / &
2976  & .8249134e+00,.7223579e+00,.6318367e+00,.5828461e+00,.5642052e+00,&
2977  & .5774889e+00,.6274321e+00,.7112179e+00,.8154752e+00,.8094743e+00,&
2978  & .7089425e+00,.6188253e+00,.5703294e+00,.5519242e+00,.5651410e+00,&
2979  & .6152177e+00,.6988740e+00,.8012054e+00,.7948100e+00,.6962635e+00,&
2980  & .6071335e+00,.5587642e+00,.5408447e+00,.5546817e+00,.6044782e+00,&
2981  & .6883629e+00,.7888678e+00,.7814861e+00,.6847483e+00,.5966332e+00,&
2982  & .5488036e+00,.5307506e+00,.5452968e+00,.5952041e+00,.6791251e+00,&
2983  & .7781169e+00,.7689261e+00,.6739251e+00,.5871415e+00,.5399440e+00,&
2984  & .5219107e+00,.5368668e+00,.5871449e+00,.6714540e+00,.7691532e+00,&
2985  & .8852145e+00,.7750456e+00,.6871055e+00,.6408984e+00,.6254709e+00,&
2986  & .6421647e+00,.6941504e+00,.7835789e+00,.8985979e+00,.8691028e+00,&
2987  & .7609767e+00,.6728330e+00,.6267061e+00,.6112664e+00,.6281600e+00,&
2988  & .6803225e+00,.7701312e+00,.8830032e+00,.8539650e+00,.7478668e+00,&
2989  & .6598673e+00,.6140672e+00,.5985796e+00,.6161528e+00,.6684674e+00,&
2990  & .7583442e+00,.8692469e+00,.8400620e+00,.7358241e+00,.6484499e+00,&
2991  & .6030312e+00,.5871483e+00,.6051785e+00,.6578534e+00,.7481252e+00,&
2992  & .8573340e+00,.8267308e+00,.7243453e+00,.6382877e+00,.5930271e+00,&
2993  & .5773599e+00,.5955257e+00,.6486068e+00,.7393848e+00,.8471526e+00,&
2994  & .9457456e+00,.8285939e+00,.7451511e+00,.7019917e+00,.6899693e+00,&
2995  & .7089637e+00,.7625561e+00,.8572460e+00,.9824613e+00,.9291323e+00,&
2996  & .8136971e+00,.7298541e+00,.6864425e+00,.6740084e+00,.6934007e+00,&
2997  & .7472875e+00,.8425945e+00,.9655705e+00,.9139136e+00,.8002614e+00,&
2998  & .7162229e+00,.6723573e+00,.6598915e+00,.6797955e+00,.7340436e+00,&
2999  & .8294611e+00,.9506098e+00,.8996396e+00,.7878323e+00,.7040173e+00,&
3000  & .6600638e+00,.6474290e+00,.6677087e+00,.7222527e+00,.8180613e+00,&
3001  & .9373243e+00,.8863343e+00,.7763696e+00,.6928464e+00,.6489803e+00,&
3002  & .6362699e+00,.6568098e+00,.7118980e+00,.8079921e+00,.9257131e+00/
3003 
3004  data absa(451:585, 6) / &
3005  & .9984509e+00,.8767023e+00,.7981236e+00,.7590051e+00,.7500479e+00,&
3006  & .7704148e+00,.8258274e+00,.9236821e+00,.1057116e+01,.9825580e+00,&
3007  & .8620354e+00,.7830513e+00,.7424078e+00,.7334532e+00,.7542144e+00,&
3008  & .8101460e+00,.9086138e+00,.1040043e+01,.9678310e+00,.8486729e+00,&
3009  & .7694638e+00,.7279026e+00,.7187504e+00,.7400787e+00,.7961034e+00,&
3010  & .8951540e+00,.1024689e+01,.9541401e+00,.8363966e+00,.7569500e+00,&
3011  & .7151152e+00,.7053524e+00,.7272043e+00,.7836771e+00,.8829254e+00,&
3012  & .1010610e+01,.9409238e+00,.8247336e+00,.7452605e+00,.7034806e+00,&
3013  & .6932724e+00,.7155504e+00,.7725713e+00,.8720814e+00,.9982035e+00,&
3014  & .1051209e+01,.9265442e+00,.8532619e+00,.8179703e+00,.8119095e+00,&
3015  & .8341371e+00,.8903756e+00,.9888756e+00,.1095956e+01,.1036235e+01,&
3016  & .9123511e+00,.8382101e+00,.8010032e+00,.7947542e+00,.8176096e+00,&
3017  & .8740008e+00,.9731309e+00,.1080421e+01,.1022216e+01,.8989889e+00,&
3018  & .8242808e+00,.7860446e+00,.7790076e+00,.8024437e+00,.8593689e+00,&
3019  & .9586866e+00,.1065303e+01,.1008831e+01,.8865583e+00,.8113619e+00,&
3020  & .7726307e+00,.7650415e+00,.7885957e+00,.8460657e+00,.9457463e+00,&
3021  & .1053284e+01,.9956237e+00,.8746029e+00,.7991663e+00,.7602091e+00,&
3022  & .7523241e+00,.7758775e+00,.8338469e+00,.9341164e+00,.1042323e+01,&
3023  & .1103094e+01,.9779325e+00,.9101471e+00,.8783812e+00,.8752086e+00,&
3024  & .8997168e+00,.9549270e+00,.1052106e+01,.1130777e+01,.1089042e+01,&
3025  & .9638679e+00,.8946771e+00,.8612419e+00,.8571856e+00,.8822649e+00,&
3026  & .9380724e+00,.1035137e+01,.1114750e+01,.1075742e+01,.9508309e+00,&
3027  & .8802630e+00,.8459304e+00,.8411000e+00,.8660581e+00,.9224269e+00,&
3028  & .1019820e+01,.1101053e+01,.1062410e+01,.9382231e+00,.8666081e+00,&
3029  & .8315446e+00,.8263075e+00,.8509882e+00,.9079071e+00,.1005967e+01,&
3030  & .1089316e+01,.1048876e+01,.9255641e+00,.8536249e+00,.8179717e+00,&
3031  & .8126191e+00,.8371360e+00,.8945910e+00,.9933411e+00,.1078307e+01/
3032 
3033 ! the array absb(235,6) (kb(5,13:59,6)) contains absorption coefs at
3034 ! the 16 chosen g-values for a range of pressure levels < ~100mb and
3035 ! temperatures. the first index in the array, jt, which runs from 1 to 5,
3036 ! corresponds to different temperatures. more specifically, jt = 3 means
3037 ! that the data are for the reference temperature tref for this pressure
3038 ! level, jt = 2 refers to the temperature tref-15, jt = 1 is for
3039 ! tref-30, jt = 4 is for tref+15, and jt = 5 is for tref+30.
3040 ! the second index, jp, runs from 13 to 59 and refers to the jpth
3041 ! reference pressure level (see taumol.f for the value of these
3042 ! pressure levels in mb). the third index, ig, goes from 1 to 6,
3043 ! and tells us which g-interval the absorption coefficients are for.
3044 ! -----------------------------------------------------------------
3045 
3046  data absb( 1:120, 1) / &
3047  & .2455108e-02,.2494284e-02,.2520068e-02,.2540222e-02,.2547453e-02,&
3048  & .2053818e-02,.2083023e-02,.2101215e-02,.2116145e-02,.2123172e-02,&
3049  & .1734639e-02,.1758680e-02,.1772416e-02,.1781767e-02,.1788224e-02,&
3050  & .1482314e-02,.1503678e-02,.1512899e-02,.1519630e-02,.1524757e-02,&
3051  & .1284745e-02,.1304855e-02,.1312793e-02,.1316311e-02,.1318005e-02,&
3052  & .1129086e-02,.1146597e-02,.1156453e-02,.1156435e-02,.1156401e-02,&
3053  & .9921713e-03,.1008990e-02,.1018291e-02,.1020213e-02,.1018365e-02,&
3054  & .8471850e-03,.8618578e-03,.8693996e-03,.8719597e-03,.8699465e-03,&
3055  & .7178765e-03,.7312448e-03,.7368809e-03,.7383122e-03,.7377363e-03,&
3056  & .6069271e-03,.6192294e-03,.6230026e-03,.6249060e-03,.6240653e-03,&
3057  & .5123512e-03,.5240166e-03,.5274574e-03,.5289784e-03,.5283974e-03,&
3058  & .4327672e-03,.4433865e-03,.4469695e-03,.4481477e-03,.4479432e-03,&
3059  & .3651769e-03,.3741862e-03,.3784929e-03,.3797155e-03,.3799202e-03,&
3060  & .3081802e-03,.3145936e-03,.3193752e-03,.3209357e-03,.3216224e-03,&
3061  & .2600564e-03,.2641825e-03,.2692918e-03,.2713207e-03,.2719491e-03,&
3062  & .2189889e-03,.2226081e-03,.2271490e-03,.2294557e-03,.2302383e-03,&
3063  & .1846009e-03,.1885356e-03,.1916569e-03,.1944705e-03,.1953784e-03,&
3064  & .1569872e-03,.1601747e-03,.1622966e-03,.1649634e-03,.1666332e-03,&
3065  & .1341940e-03,.1363878e-03,.1381676e-03,.1401546e-03,.1421984e-03,&
3066  & .1150202e-03,.1162012e-03,.1182134e-03,.1193516e-03,.1212431e-03,&
3067  & .9900466e-04,.9989409e-04,.1008343e-03,.1022803e-03,.1033529e-03,&
3068  & .8523323e-04,.8592559e-04,.8646982e-04,.8752563e-04,.8834547e-04,&
3069  & .7355247e-04,.7410040e-04,.7455079e-04,.7505627e-04,.7561834e-04,&
3070  & .6386391e-04,.6399156e-04,.6452062e-04,.6507966e-04,.6511678e-04/
3071 
3072  data absb(121:235, 1) / &
3073  & .5378377e-04,.5383807e-04,.5419748e-04,.5461584e-04,.5475942e-04,&
3074  & .4529476e-04,.4536607e-04,.4551849e-04,.4582121e-04,.4594236e-04,&
3075  & .3805002e-04,.3835500e-04,.3837164e-04,.3841587e-04,.3870224e-04,&
3076  & .3134721e-04,.3153158e-04,.3158800e-04,.3159241e-04,.3173210e-04,&
3077  & .2572678e-04,.2581660e-04,.2592636e-04,.2593449e-04,.2604293e-04,&
3078  & .2111340e-04,.2114297e-04,.2123906e-04,.2126974e-04,.2132702e-04,&
3079  & .1724042e-04,.1721678e-04,.1726492e-04,.1735856e-04,.1734777e-04,&
3080  & .1400853e-04,.1398539e-04,.1400256e-04,.1407486e-04,.1407744e-04,&
3081  & .1138599e-04,.1138052e-04,.1136754e-04,.1138325e-04,.1144462e-04,&
3082  & .9234875e-05,.9228129e-05,.9225511e-05,.9219129e-05,.9274721e-05,&
3083  & .7450018e-05,.7494669e-05,.7491514e-05,.7465424e-05,.7498018e-05,&
3084  & .5987641e-05,.6060252e-05,.6077441e-05,.6062453e-05,.6062401e-05,&
3085  & .4810640e-05,.4877970e-05,.4932441e-05,.4916522e-05,.4908248e-05,&
3086  & .3869095e-05,.3916912e-05,.3981052e-05,.3989636e-05,.3985085e-05,&
3087  & .3125584e-05,.3158316e-05,.3201951e-05,.3234304e-05,.3229423e-05,&
3088  & .2526771e-05,.2539982e-05,.2565764e-05,.2606671e-05,.2620099e-05,&
3089  & .2033741e-05,.2048230e-05,.2064945e-05,.2094217e-05,.2117279e-05,&
3090  & .1636949e-05,.1651544e-05,.1664769e-05,.1682082e-05,.1707938e-05,&
3091  & .1320644e-05,.1329014e-05,.1342957e-05,.1355072e-05,.1374367e-05,&
3092  & .1063144e-05,.1069247e-05,.1082985e-05,.1092178e-05,.1104704e-05,&
3093  & .8523022e-06,.8613254e-06,.8703544e-06,.8805758e-06,.8889748e-06,&
3094  & .6821306e-06,.6939226e-06,.7000980e-06,.7103676e-06,.7161581e-06,&
3095  & .5473000e-06,.5610035e-06,.5662359e-06,.5739016e-06,.5795604e-06/
3096 
3097  data absb( 1:120, 2) / &
3098  & .1286743e-01,.1298016e-01,.1307688e-01,.1314196e-01,.1318687e-01,&
3099  & .1084483e-01,.1095286e-01,.1104372e-01,.1107916e-01,.1110333e-01,&
3100  & .9173853e-02,.9249031e-02,.9308829e-02,.9349446e-02,.9373813e-02,&
3101  & .7773824e-02,.7815445e-02,.7855507e-02,.7887027e-02,.7894494e-02,&
3102  & .6635671e-02,.6658973e-02,.6677297e-02,.6693544e-02,.6694290e-02,&
3103  & .5714053e-02,.5714835e-02,.5716276e-02,.5728622e-02,.5719424e-02,&
3104  & .4953027e-02,.4935260e-02,.4928449e-02,.4921707e-02,.4912914e-02,&
3105  & .4202051e-02,.4179936e-02,.4170445e-02,.4154196e-02,.4145879e-02,&
3106  & .3546756e-02,.3522656e-02,.3509107e-02,.3496226e-02,.3483466e-02,&
3107  & .2986324e-02,.2962134e-02,.2946586e-02,.2935316e-02,.2924589e-02,&
3108  & .2520037e-02,.2493976e-02,.2477958e-02,.2467618e-02,.2459527e-02,&
3109  & .2128530e-02,.2102617e-02,.2086920e-02,.2077359e-02,.2068955e-02,&
3110  & .1796044e-02,.1774099e-02,.1757802e-02,.1748933e-02,.1740649e-02,&
3111  & .1511042e-02,.1493208e-02,.1478896e-02,.1469321e-02,.1461744e-02,&
3112  & .1272579e-02,.1259504e-02,.1246012e-02,.1235685e-02,.1229631e-02,&
3113  & .1074471e-02,.1063160e-02,.1050792e-02,.1041724e-02,.1036092e-02,&
3114  & .9106300e-03,.8993222e-03,.8888252e-03,.8805708e-03,.8768352e-03,&
3115  & .7732921e-03,.7632043e-03,.7552638e-03,.7485823e-03,.7491950e-03,&
3116  & .6597355e-03,.6512362e-03,.6451463e-03,.6404871e-03,.6392845e-03,&
3117  & .5654918e-03,.5596233e-03,.5545424e-03,.5500160e-03,.5486305e-03,&
3118  & .4880680e-03,.4838686e-03,.4792352e-03,.4746633e-03,.4742358e-03,&
3119  & .4240329e-03,.4198366e-03,.4158480e-03,.4147475e-03,.4118226e-03,&
3120  & .3707047e-03,.3670166e-03,.3635404e-03,.3627127e-03,.3598610e-03,&
3121  & .3269270e-03,.3238737e-03,.3206578e-03,.3192890e-03,.3166364e-03/
3122 
3123  data absb(121:235, 2) / &
3124  & .2789970e-03,.2765079e-03,.2739652e-03,.2724815e-03,.2694007e-03,&
3125  & .2383170e-03,.2362195e-03,.2338966e-03,.2321906e-03,.2293814e-03,&
3126  & .2043421e-03,.2022653e-03,.1998851e-03,.1974199e-03,.1958820e-03,&
3127  & .1703638e-03,.1685921e-03,.1664446e-03,.1644332e-03,.1632693e-03,&
3128  & .1414648e-03,.1398222e-03,.1381078e-03,.1364105e-03,.1354620e-03,&
3129  & .1171714e-03,.1160394e-03,.1146163e-03,.1132446e-03,.1124903e-03,&
3130  & .9653894e-04,.9566019e-04,.9459747e-04,.9340503e-04,.9220628e-04,&
3131  & .7932991e-04,.7856317e-04,.7774927e-04,.7682321e-04,.7581347e-04,&
3132  & .6515421e-04,.6441758e-04,.6392018e-04,.6313941e-04,.6221003e-04,&
3133  & .5347743e-04,.5297072e-04,.5245890e-04,.5184866e-04,.5107466e-04,&
3134  & .4396154e-04,.4347687e-04,.4303733e-04,.4259063e-04,.4196826e-04,&
3135  & .3615915e-04,.3568995e-04,.3529007e-04,.3492298e-04,.3444102e-04,&
3136  & .2966497e-04,.2925157e-04,.2889217e-04,.2855828e-04,.2821985e-04,&
3137  & .2430508e-04,.2403992e-04,.2370451e-04,.2340581e-04,.2311943e-04,&
3138  & .1995845e-04,.1971625e-04,.1943619e-04,.1919411e-04,.1893202e-04,&
3139  & .1630421e-04,.1613833e-04,.1595861e-04,.1573142e-04,.1549637e-04,&
3140  & .1329543e-04,.1321689e-04,.1306432e-04,.1287719e-04,.1268925e-04,&
3141  & .1082302e-04,.1082655e-04,.1071501e-04,.1058492e-04,.1042620e-04,&
3142  & .8829908e-05,.8878449e-05,.8804000e-05,.8713675e-05,.8582871e-05,&
3143  & .7229747e-05,.7274906e-05,.7243006e-05,.7161434e-05,.7060580e-05,&
3144  & .5920720e-05,.5930473e-05,.5943800e-05,.5878317e-05,.5803165e-05,&
3145  & .4850374e-05,.4842730e-05,.4872181e-05,.4827114e-05,.4773736e-05,&
3146  & .3998381e-05,.3995704e-05,.4020867e-05,.3990354e-05,.3948657e-05/
3147 
3148  data absb( 1:120, 3) / &
3149  & .5002398e-01,.5100799e-01,.5223444e-01,.5366230e-01,.5534006e-01,&
3150  & .4416861e-01,.4512229e-01,.4624963e-01,.4763751e-01,.4926106e-01,&
3151  & .3889418e-01,.3989178e-01,.4102991e-01,.4233451e-01,.4377504e-01,&
3152  & .3413273e-01,.3507125e-01,.3618746e-01,.3742424e-01,.3870722e-01,&
3153  & .2995928e-01,.3086478e-01,.3189959e-01,.3307320e-01,.3425277e-01,&
3154  & .2638019e-01,.2725271e-01,.2821585e-01,.2927539e-01,.3033342e-01,&
3155  & .2335920e-01,.2414637e-01,.2503317e-01,.2599890e-01,.2699514e-01,&
3156  & .2029208e-01,.2105095e-01,.2183638e-01,.2270657e-01,.2359078e-01,&
3157  & .1752887e-01,.1822677e-01,.1893693e-01,.1971216e-01,.2049024e-01,&
3158  & .1514301e-01,.1576265e-01,.1644949e-01,.1710856e-01,.1777047e-01,&
3159  & .1307907e-01,.1369568e-01,.1429327e-01,.1484508e-01,.1540994e-01,&
3160  & .1135002e-01,.1190407e-01,.1240533e-01,.1289830e-01,.1336006e-01,&
3161  & .9861342e-02,.1032874e-01,.1078971e-01,.1119067e-01,.1159988e-01,&
3162  & .8543786e-02,.8972343e-02,.9361670e-02,.9707599e-02,.1007270e-01,&
3163  & .7399186e-02,.7765826e-02,.8086950e-02,.8410397e-02,.8722569e-02,&
3164  & .6411375e-02,.6715139e-02,.6991916e-02,.7280002e-02,.7586032e-02,&
3165  & .5526867e-02,.5785983e-02,.6041283e-02,.6303233e-02,.6579648e-02,&
3166  & .4774311e-02,.4997352e-02,.5227375e-02,.5480339e-02,.5877541e-02,&
3167  & .4116828e-02,.4325497e-02,.4545463e-02,.4770394e-02,.5153971e-02,&
3168  & .3578769e-02,.3764998e-02,.3969666e-02,.4197341e-02,.4545465e-02,&
3169  & .3124717e-02,.3305659e-02,.3500480e-02,.3709794e-02,.4038550e-02,&
3170  & .2748728e-02,.2923454e-02,.3112152e-02,.3399419e-02,.3626701e-02,&
3171  & .2422516e-02,.2586643e-02,.2766372e-02,.3049770e-02,.3276646e-02,&
3172  & .2131791e-02,.2289101e-02,.2457066e-02,.2736600e-02,.2953943e-02/
3173 
3174  data absb(121:235, 3) / &
3175  & .1828665e-02,.1969373e-02,.2131950e-02,.2386197e-02,.2591184e-02,&
3176  & .1565325e-02,.1696357e-02,.1846360e-02,.2083995e-02,.2278216e-02,&
3177  & .1339532e-02,.1462299e-02,.1603891e-02,.1761979e-02,.2010098e-02,&
3178  & .1123112e-02,.1231996e-02,.1361344e-02,.1506360e-02,.1731174e-02,&
3179  & .9386379e-03,.1036085e-02,.1150679e-02,.1280160e-02,.1487488e-02,&
3180  & .7829286e-03,.8681007e-03,.9712611e-03,.1088601e-02,.1279327e-02,&
3181  & .6439906e-03,.7179533e-03,.8068447e-03,.9121069e-03,.1038346e-02,&
3182  & .5251100e-03,.5895043e-03,.6665253e-03,.7582909e-03,.8728263e-03,&
3183  & .4272101e-03,.4822133e-03,.5483728e-03,.6283465e-03,.7297410e-03,&
3184  & .3455385e-03,.3919227e-03,.4490025e-03,.5186610e-03,.6080615e-03,&
3185  & .2772875e-03,.3163585e-03,.3648993e-03,.4245665e-03,.5029312e-03,&
3186  & .2215243e-03,.2545308e-03,.2950909e-03,.3456400e-03,.4140863e-03,&
3187  & .1762697e-03,.2034714e-03,.2368499e-03,.2802197e-03,.3391266e-03,&
3188  & .1409510e-03,.1632263e-03,.1911441e-03,.2283913e-03,.2789978e-03,&
3189  & .1124638e-03,.1310401e-03,.1540205e-03,.1857656e-03,.2289863e-03,&
3190  & .8954236e-04,.1047453e-03,.1237097e-03,.1505540e-03,.1870030e-03,&
3191  & .7098317e-04,.8306387e-04,.9912454e-04,.1212505e-03,.1519558e-03,&
3192  & .5681762e-04,.6665919e-04,.7982178e-04,.9805318e-04,.1239971e-03,&
3193  & .4562520e-04,.5359104e-04,.6438194e-04,.7935790e-04,.1011203e-03,&
3194  & .3653132e-04,.4295380e-04,.5170112e-04,.6400146e-04,.8208662e-04,&
3195  & .2913090e-04,.3439039e-04,.4140146e-04,.5133409e-04,.6632514e-04,&
3196  & .2332055e-04,.2755437e-04,.3319705e-04,.4115994e-04,.5350282e-04,&
3197  & .1945717e-04,.2306888e-04,.2793905e-04,.3476686e-04,.4551954e-04/
3198 
3199  data absb( 1:120, 4) / &
3200  & .2878234e+00,.2961252e+00,.3050441e+00,.3147630e+00,.3253959e+00,&
3201  & .2743822e+00,.2825368e+00,.2911238e+00,.3003062e+00,.3104320e+00,&
3202  & .2632621e+00,.2715744e+00,.2807089e+00,.2905758e+00,.3014280e+00,&
3203  & .2470711e+00,.2556028e+00,.2648564e+00,.2753382e+00,.2872254e+00,&
3204  & .2312754e+00,.2397378e+00,.2488918e+00,.2593077e+00,.2714135e+00,&
3205  & .2159198e+00,.2248574e+00,.2346644e+00,.2452257e+00,.2571951e+00,&
3206  & .2025752e+00,.2115209e+00,.2212761e+00,.2319679e+00,.2443755e+00,&
3207  & .1870918e+00,.1958476e+00,.2056213e+00,.2168964e+00,.2297077e+00,&
3208  & .1719062e+00,.1808017e+00,.1908654e+00,.2024728e+00,.2155574e+00,&
3209  & .1580850e+00,.1674409e+00,.1780281e+00,.1900585e+00,.2031710e+00,&
3210  & .1462403e+00,.1558822e+00,.1666091e+00,.1789235e+00,.1922377e+00,&
3211  & .1362161e+00,.1459406e+00,.1567969e+00,.1692597e+00,.1829005e+00,&
3212  & .1274087e+00,.1370931e+00,.1484132e+00,.1609035e+00,.1746367e+00,&
3213  & .1194990e+00,.1297509e+00,.1410742e+00,.1539492e+00,.1679681e+00,&
3214  & .1123619e+00,.1230023e+00,.1347556e+00,.1477261e+00,.1617005e+00,&
3215  & .1061193e+00,.1170526e+00,.1291360e+00,.1421656e+00,.1564595e+00,&
3216  & .1006760e+00,.1119479e+00,.1241710e+00,.1376384e+00,.1522244e+00,&
3217  & .9607904e-01,.1075948e+00,.1202361e+00,.1342448e+00,.1520624e+00,&
3218  & .9236167e-01,.1042029e+00,.1173986e+00,.1321571e+00,.1502113e+00,&
3219  & .8989190e-01,.1021932e+00,.1159955e+00,.1310628e+00,.1496169e+00,&
3220  & .8834869e-01,.1013779e+00,.1156618e+00,.1310736e+00,.1499564e+00,&
3221  & .8767587e-01,.1011140e+00,.1157497e+00,.1341003e+00,.1509449e+00,&
3222  & .8642676e-01,.1002241e+00,.1151696e+00,.1339998e+00,.1509668e+00,&
3223  & .8444357e-01,.9839768e-01,.1137899e+00,.1328639e+00,.1500538e+00/
3224 
3225  data absb(121:235, 4) / &
3226  & .8008552e-01,.9397404e-01,.1092312e+00,.1284086e+00,.1456923e+00,&
3227  & .7606488e-01,.8974941e-01,.1049552e+00,.1241503e+00,.1414966e+00,&
3228  & .7241439e-01,.8585292e-01,.1009126e+00,.1172255e+00,.1376072e+00,&
3229  & .6737037e-01,.8040867e-01,.9512233e-01,.1111766e+00,.1313617e+00,&
3230  & .6249839e-01,.7518420e-01,.8941538e-01,.1051429e+00,.1250058e+00,&
3231  & .5796755e-01,.7023093e-01,.8399825e-01,.9941523e-01,.1191081e+00,&
3232  & .5290880e-01,.6463286e-01,.7799108e-01,.9283777e-01,.1092238e+00,&
3233  & .4784261e-01,.5904001e-01,.7178305e-01,.8613347e-01,.1019882e+00,&
3234  & .4314406e-01,.5383664e-01,.6605552e-01,.7975409e-01,.9510036e-01,&
3235  & .3853322e-01,.4870478e-01,.6029343e-01,.7337748e-01,.8815869e-01,&
3236  & .3389054e-01,.4343173e-01,.5438033e-01,.6682346e-01,.8091510e-01,&
3237  & .2963117e-01,.3852479e-01,.4883852e-01,.6062832e-01,.7400013e-01,&
3238  & .2572970e-01,.3391246e-01,.4359826e-01,.5471276e-01,.6736039e-01,&
3239  & .2233416e-01,.2991585e-01,.3901273e-01,.4954145e-01,.6156569e-01,&
3240  & .1939210e-01,.2638719e-01,.3485100e-01,.4478336e-01,.5620570e-01,&
3241  & .1668291e-01,.2307789e-01,.3098475e-01,.4031918e-01,.5116350e-01,&
3242  & .1420262e-01,.2005395e-01,.2735039e-01,.3608786e-01,.4625548e-01,&
3243  & .1217748e-01,.1754282e-01,.2430328e-01,.3256355e-01,.4217429e-01,&
3244  & .1044921e-01,.1536327e-01,.2163899e-01,.2944083e-01,.3855156e-01,&
3245  & .8884509e-02,.1335574e-01,.1918440e-01,.2646426e-01,.3516363e-01,&
3246  & .7483675e-02,.1152870e-01,.1691180e-01,.2368487e-01,.3190062e-01,&
3247  & .6305579e-02,.9961440e-02,.1489973e-01,.2122728e-01,.2897708e-01,&
3248  & .5828592e-02,.9332797e-02,.1413857e-01,.2030539e-01,.2791717e-01/
3249 
3250  data absb( 1:120, 5) / &
3251  & .9803355e+01,.1002921e+02,.1022928e+02,.1041986e+02,.1060893e+02,&
3252  & .8901187e+01,.9109354e+01,.9307795e+01,.9507481e+01,.9704484e+01,&
3253  & .8037550e+01,.8238379e+01,.8440990e+01,.8639971e+01,.8841430e+01,&
3254  & .7256235e+01,.7456728e+01,.7656282e+01,.7858569e+01,.8063361e+01,&
3255  & .6549121e+01,.6747154e+01,.6948541e+01,.7154546e+01,.7363018e+01,&
3256  & .5920127e+01,.6112982e+01,.6313644e+01,.6520192e+01,.6735708e+01,&
3257  & .5391811e+01,.5564840e+01,.5751524e+01,.5963164e+01,.6187711e+01,&
3258  & .4979063e+01,.5141211e+01,.5319204e+01,.5518536e+01,.5724852e+01,&
3259  & .4685729e+01,.4829264e+01,.4999371e+01,.5176536e+01,.5377588e+01,&
3260  & .4509733e+01,.4627971e+01,.4769025e+01,.4939138e+01,.5138382e+01,&
3261  & .4441848e+01,.4547145e+01,.4654076e+01,.4777266e+01,.4966192e+01,&
3262  & .4392672e+01,.4508636e+01,.4631472e+01,.4750610e+01,.4893241e+01,&
3263  & .4379451e+01,.4509691e+01,.4639368e+01,.4771997e+01,.4917485e+01,&
3264  & .4383266e+01,.4532070e+01,.4679856e+01,.4811910e+01,.4982307e+01,&
3265  & .4373711e+01,.4538212e+01,.4701877e+01,.4859289e+01,.5032829e+01,&
3266  & .4371956e+01,.4552831e+01,.4722242e+01,.4907609e+01,.5087424e+01,&
3267  & .4332160e+01,.4518631e+01,.4697783e+01,.4891344e+01,.5092684e+01,&
3268  & .4305857e+01,.4488111e+01,.4683919e+01,.4875401e+01,.5098906e+01,&
3269  & .4247319e+01,.4442550e+01,.4629624e+01,.4824728e+01,.5055952e+01,&
3270  & .4214744e+01,.4395695e+01,.4595960e+01,.4805492e+01,.5017792e+01,&
3271  & .4194067e+01,.4374577e+01,.4586487e+01,.4793725e+01,.5028709e+01,&
3272  & .4199133e+01,.4388763e+01,.4601898e+01,.4846199e+01,.5088486e+01,&
3273  & .4205331e+01,.4415572e+01,.4636671e+01,.4889061e+01,.5185128e+01,&
3274  & .4239611e+01,.4448023e+01,.4670143e+01,.4942226e+01,.5271353e+01/
3275 
3276  data absb(121:235, 5) / &
3277  & .4176844e+01,.4378265e+01,.4607587e+01,.4898813e+01,.5254033e+01,&
3278  & .4099489e+01,.4293386e+01,.4533269e+01,.4877379e+01,.5230256e+01,&
3279  & .4007521e+01,.4213195e+01,.4480775e+01,.4835666e+01,.5209135e+01,&
3280  & .3883977e+01,.4090925e+01,.4376746e+01,.4733176e+01,.5114008e+01,&
3281  & .3759955e+01,.3970704e+01,.4272560e+01,.4618469e+01,.4997992e+01,&
3282  & .3631179e+01,.3846064e+01,.4161525e+01,.4505341e+01,.4888289e+01,&
3283  & .3481107e+01,.3699160e+01,.4022359e+01,.4359341e+01,.4726661e+01,&
3284  & .3305633e+01,.3543449e+01,.3873804e+01,.4204009e+01,.4566058e+01,&
3285  & .3130039e+01,.3398800e+01,.3728888e+01,.4056038e+01,.4401957e+01,&
3286  & .2968975e+01,.3253192e+01,.3573124e+01,.3904086e+01,.4239970e+01,&
3287  & .2811010e+01,.3105040e+01,.3413054e+01,.3741891e+01,.4067138e+01,&
3288  & .2663058e+01,.2951303e+01,.3256042e+01,.3581236e+01,.3900989e+01,&
3289  & .2515451e+01,.2806289e+01,.3104377e+01,.3428028e+01,.3740708e+01,&
3290  & .2378861e+01,.2672260e+01,.2967412e+01,.3283792e+01,.3592902e+01,&
3291  & .2250954e+01,.2549314e+01,.2842896e+01,.3146414e+01,.3454348e+01,&
3292  & .2126384e+01,.2425968e+01,.2718676e+01,.3012722e+01,.3313565e+01,&
3293  & .2000566e+01,.2300064e+01,.2594150e+01,.2881717e+01,.3180487e+01,&
3294  & .1893973e+01,.2183036e+01,.2478401e+01,.2762266e+01,.3053944e+01,&
3295  & .1797191e+01,.2073967e+01,.2365713e+01,.2650269e+01,.2928594e+01,&
3296  & .1699063e+01,.1967053e+01,.2254958e+01,.2539431e+01,.2812870e+01,&
3297  & .1602483e+01,.1870209e+01,.2142381e+01,.2424027e+01,.2698355e+01,&
3298  & .1508607e+01,.1774262e+01,.2038629e+01,.2313372e+01,.2585830e+01,&
3299  & .1519868e+01,.1744553e+01,.1991354e+01,.2260467e+01,.2531035e+01/
3300 
3301  data absb( 1:120, 6) / &
3302  & .2781168e+03,.2745845e+03,.2712239e+03,.2678704e+03,.2644459e+03,&
3303  & .2904946e+03,.2871655e+03,.2838470e+03,.2803941e+03,.2768948e+03,&
3304  & .3022413e+03,.2989983e+03,.2955817e+03,.2921152e+03,.2885458e+03,&
3305  & .3130565e+03,.3098089e+03,.3064324e+03,.3028900e+03,.2992469e+03,&
3306  & .3228674e+03,.3196371e+03,.3162446e+03,.3126653e+03,.3089740e+03,&
3307  & .3316375e+03,.3284418e+03,.3250265e+03,.3214442e+03,.3176680e+03,&
3308  & .3390155e+03,.3360705e+03,.3328242e+03,.3291721e+03,.3252655e+03,&
3309  & .3449713e+03,.3421655e+03,.3390332e+03,.3355221e+03,.3318374e+03,&
3310  & .3493969e+03,.3468038e+03,.3437556e+03,.3405122e+03,.3368916e+03,&
3311  & .3522054e+03,.3499115e+03,.3472051e+03,.3440347e+03,.3404337e+03,&
3312  & .3535539e+03,.3513906e+03,.3491088e+03,.3465269e+03,.3430700e+03,&
3313  & .3545730e+03,.3522557e+03,.3497503e+03,.3472267e+03,.3443498e+03,&
3314  & .3550447e+03,.3525630e+03,.3499373e+03,.3472388e+03,.3443261e+03,&
3315  & .3552526e+03,.3524843e+03,.3496510e+03,.3469402e+03,.3437094e+03,&
3316  & .3555960e+03,.3526031e+03,.3495395e+03,.3465118e+03,.3432573e+03,&
3317  & .3557797e+03,.3525640e+03,.3494123e+03,.3460217e+03,.3426940e+03,&
3318  & .3564043e+03,.3530960e+03,.3498075e+03,.3463239e+03,.3427123e+03,&
3319  & .3568211e+03,.3535487e+03,.3500420e+03,.3465557e+03,.3428692e+03,&
3320  & .3576037e+03,.3541394e+03,.3507368e+03,.3471845e+03,.3434088e+03,&
3321  & .3580188e+03,.3547035e+03,.3511129e+03,.3473748e+03,.3438292e+03,&
3322  & .3581982e+03,.3548803e+03,.3511249e+03,.3474255e+03,.3435849e+03,&
3323  & .3580668e+03,.3546083e+03,.3508286e+03,.3468622e+03,.3427171e+03,&
3324  & .3579811e+03,.3542519e+03,.3503648e+03,.3462908e+03,.3414558e+03,&
3325  & .3576096e+03,.3539086e+03,.3499965e+03,.3456525e+03,.3403969e+03/
3326 
3327  data absb(121:235, 6) / &
3328  & .3586604e+03,.3550335e+03,.3510399e+03,.3464481e+03,.3408584e+03,&
3329  & .3598800e+03,.3563594e+03,.3522228e+03,.3469653e+03,.3413783e+03,&
3330  & .3612682e+03,.3576057e+03,.3531275e+03,.3475159e+03,.3418607e+03,&
3331  & .3631576e+03,.3595023e+03,.3547940e+03,.3491532e+03,.3434219e+03,&
3332  & .3650737e+03,.3613720e+03,.3564614e+03,.3509635e+03,.3452500e+03,&
3333  & .3670026e+03,.3632776e+03,.3582252e+03,.3527572e+03,.3469855e+03,&
3334  & .3692557e+03,.3655325e+03,.3603844e+03,.3550208e+03,.3492473e+03,&
3335  & .3718397e+03,.3678903e+03,.3626881e+03,.3574203e+03,.3517227e+03,&
3336  & .3744095e+03,.3701124e+03,.3649258e+03,.3597189e+03,.3542337e+03,&
3337  & .3767816e+03,.3723343e+03,.3673166e+03,.3620799e+03,.3567366e+03,&
3338  & .3791321e+03,.3746009e+03,.3697970e+03,.3646097e+03,.3594172e+03,&
3339  & .3813238e+03,.3769336e+03,.3722063e+03,.3670953e+03,.3619918e+03,&
3340  & .3834849e+03,.3791057e+03,.3745237e+03,.3694845e+03,.3645086e+03,&
3341  & .3854281e+03,.3811015e+03,.3766032e+03,.3716952e+03,.3667988e+03,&
3342  & .3872332e+03,.3829179e+03,.3785031e+03,.3738180e+03,.3689635e+03,&
3343  & .3889780e+03,.3847170e+03,.3803790e+03,.3758553e+03,.3711179e+03,&
3344  & .3907123e+03,.3865429e+03,.3822340e+03,.3778545e+03,.3731887e+03,&
3345  & .3921534e+03,.3881790e+03,.3839339e+03,.3796445e+03,.3751081e+03,&
3346  & .3934377e+03,.3896848e+03,.3855532e+03,.3813151e+03,.3769936e+03,&
3347  & .3947370e+03,.3911513e+03,.3871310e+03,.3829493e+03,.3787443e+03,&
3348  & .3959555e+03,.3924751e+03,.3887103e+03,.3846245e+03,.3804545e+03,&
3349  & .3971711e+03,.3937408e+03,.3901626e+03,.3862220e+03,.3821316e+03,&
3350  & .3970289e+03,.3941655e+03,.3908061e+03,.3869572e+03,.3829149e+03/
3351 
3352 ! ---
3353  data forref(1:3,1: 6) / .6585271e-05,.9433300e-05,.7977931e-04,&
3354  & .8154837e-04,.1197092e-03,.1424472e-03,.2535780e-03,.2329964e-03,&
3355  & .1885349e-03,.3380323e-03,.3052715e-03,.2150602e-03,.3685495e-03,&
3356  & .3314392e-03,.2543625e-03,.3806938e-03,.3823779e-03,.2995716e-03/
3357 
3358 ! the array selfref contains the coefficient of the water vapor
3359 ! self-continuum (including the energy term). the first index
3360 ! refers to temperature in 7.2 degree increments. for instance,
3361 ! jt = 1 refers to a temperature of 245.6, jt = 2 refers to 252.8,
3362 ! etc. the second index runs over the g-channel (1 to 6).
3363 
3364  data selfref(1:10,1: 6) / &
3365  & .1352797e-02,.1118049e-02,.9240558e-03,.7637369e-03,.6312454e-03,&
3366  & .5217486e-03,.4312539e-03,.3564616e-03,.2946471e-03,.2435560e-03,&
3367  & .3427292e-02,.2856171e-02,.2390076e-02,.2008096e-02,.1693734e-02,&
3368  & .1433911e-02,.1218251e-02,.1038495e-02,.8880442e-03,.7616162e-03,&
3369  & .4545629e-02,.4185794e-02,.3854444e-02,.3549326e-02,.3268367e-02,&
3370  & .3009646e-02,.2771406e-02,.2552033e-02,.2350020e-02,.2163998e-02,&
3371  & .5477838e-02,.5082542e-02,.4715844e-02,.4375667e-02,.4060089e-02,&
3372  & .3767331e-02,.3495734e-02,.3243771e-02,.3010013e-02,.2793137e-02,&
3373  & .5682360e-02,.5292443e-02,.4929650e-02,.4592058e-02,.4277891e-02,&
3374  & .3985497e-02,.3713349e-02,.3460014e-02,.3224177e-02,.3004612e-02,&
3375  & .7004786e-02,.6372419e-02,.5797303e-02,.5274236e-02,.4798502e-02,&
3376  & .4365805e-02,.3972237e-02,.3614256e-02,.3288634e-02,.2992436e-02/
3377 
3378 !........................................!
3379  end module module_radsw_kgb16 !
3380 !========================================!
3381 
3382 
3385 !========================================!
3387 !........................................!
3388 !
3389 ! ********* the original program descriptions ********* !
3390 ! !
3391 ! originally by j.delamere, atmospheric & environmental research. !
3392 ! revision: 2.4 !
3393 ! band 17: 3250-4000 cm-1 (low - h2o,co2; high - h2o, co2) !
3394 ! reformatted for f90 by jjmorcrette, ecmwf !
3395 ! !
3396 ! this table has been re-generated for reduced number of g-point !
3397 ! by y.t.hou, ncep !
3398 ! !
3399 ! ********* ********* end description ********* ********* !
3400 !
3401  use physparam, only : kind_phys
3402  use module_radsw_parameters, only : ng17
3403 
3404 !
3405  implicit none
3406 !
3407  private
3408 !
3410  integer, public :: msa17
3412  integer, public :: msb17
3414  integer, public :: msf17
3416  integer, public :: mfr17
3417  parameter(msa17=585, msb17=1175, msf17=10, mfr17=4)
3418 
3424  real (kind=kind_phys), public :: selfref(msf17,ng17)
3425 
3441  real (kind=kind_phys), public :: absa(msa17,ng17)
3442 
3454  real (kind=kind_phys), public :: absb(msb17,ng17)
3455 
3456  real (kind=kind_phys), public :: forref(mfr17,ng17)
3457 
3459  real (kind=kind_phys), parameter, public :: rayl = 6.86e-10
3460 
3461  data absa( 1:180, 1) / &
3462  & .1113400e-05,.3209200e-03,.5566300e-03,.7822700e-03,.9942100e-03,&
3463  & .1204500e-02,.1411600e-02,.1606900e-02,.1933000e-02,.1054400e-05,&
3464  & .3543400e-03,.6148000e-03,.8642400e-03,.1105500e-02,.1343100e-02,&
3465  & .1575400e-02,.1795100e-02,.2128000e-02,.9834500e-06,.3898900e-03,&
3466  & .6774700e-03,.9528900e-03,.1219600e-02,.1486400e-02,.1744900e-02,&
3467  & .1989700e-02,.2356400e-02,.9501700e-06,.4258200e-03,.7441900e-03,&
3468  & .1046300e-02,.1342400e-02,.1635300e-02,.1921500e-02,.2193900e-02,&
3469  & .2599300e-02,.9187000e-06,.4637100e-03,.8139400e-03,.1146400e-02,&
3470  & .1471500e-02,.1793700e-02,.2107200e-02,.2407700e-02,.2854000e-02,&
3471  & .9418400e-06,.2653200e-03,.4615700e-03,.6377600e-03,.8108700e-03,&
3472  & .9772800e-03,.1141900e-02,.1299100e-02,.1512100e-02,.8906000e-06,&
3473  & .2941700e-03,.5096700e-03,.7075900e-03,.9020300e-03,.1092000e-02,&
3474  & .1276400e-02,.1454400e-02,.1679500e-02,.8272000e-06,.3236100e-03,&
3475  & .5612400e-03,.7829900e-03,.9971800e-03,.1209400e-02,.1417200e-02,&
3476  & .1616500e-02,.1863700e-02,.7884200e-06,.3549500e-03,.6168400e-03,&
3477  & .8617600e-03,.1099500e-02,.1334500e-02,.1565200e-02,.1785600e-02,&
3478  & .2062100e-02,.7661000e-06,.3872800e-03,.6753800e-03,.9461300e-03,&
3479  & .1208200e-02,.1467500e-02,.1720600e-02,.1964000e-02,.2272000e-02,&
3480  & .7966300e-06,.2136900e-03,.3708800e-03,.5122200e-03,.6454900e-03,&
3481  & .7732200e-03,.8993900e-03,.1020500e-02,.1156800e-02,.7595500e-06,&
3482  & .2378000e-03,.4115300e-03,.5690100e-03,.7200900e-03,.8673500e-03,&
3483  & .1009200e-02,.1147600e-02,.1291300e-02,.7169200e-06,.2627600e-03,&
3484  & .4548800e-03,.6292200e-03,.7983600e-03,.9625900e-03,.1123600e-02,&
3485  & .1279600e-02,.1439800e-02,.6634800e-06,.2889600e-03,.5022100e-03,&
3486  & .6941100e-03,.8822600e-03,.1065800e-02,.1245600e-02,.1419100e-02,&
3487  & .1599100e-02,.6401300e-06,.3164300e-03,.5516600e-03,.7643400e-03,&
3488  & .9721600e-03,.1174500e-02,.1373100e-02,.1565700e-02,.1767100e-02,&
3489  & .6621700e-06,.1696600e-03,.2935800e-03,.4068800e-03,.5111400e-03,&
3490  & .6073900e-03,.7019100e-03,.7944600e-03,.8883200e-03,.6411100e-06,&
3491  & .1890200e-03,.3274200e-03,.4536400e-03,.5708600e-03,.6840100e-03,&
3492  & .7911600e-03,.8950700e-03,.9965500e-03,.6072900e-06,.2100700e-03,&
3493  & .3635400e-03,.5035400e-03,.6345900e-03,.7611300e-03,.8847300e-03,&
3494  & .1003500e-02,.1116300e-02,.5725000e-06,.2320300e-03,.4024500e-03,&
3495  & .5575800e-03,.7029500e-03,.8451500e-03,.9837900e-03,.1116500e-02,&
3496  & .1244400e-02,.5352400e-06,.2552900e-03,.4439900e-03,.6156400e-03,&
3497  & .7762600e-03,.9340500e-03,.1089200e-02,.1236900e-02,.1379500e-02/
3498 
3499  data absa(181:315, 1) / &
3500  & .5511200e-06,.1342200e-03,.2316600e-03,.3211900e-03,.4026500e-03,&
3501  & .4781200e-03,.5479700e-03,.6187300e-03,.6891200e-03,.5366900e-06,&
3502  & .1499000e-03,.2594900e-03,.3588600e-03,.4523900e-03,.5393600e-03,&
3503  & .6189400e-03,.6971800e-03,.7773200e-03,.5149500e-06,.1670600e-03,&
3504  & .2896000e-03,.4002000e-03,.5046100e-03,.6024900e-03,.6967700e-03,&
3505  & .7846400e-03,.8733400e-03,.4863300e-06,.1854300e-03,.3215900e-03,&
3506  & .4449900e-03,.5609500e-03,.6705500e-03,.7757500e-03,.8771700e-03,&
3507  & .9769400e-03,.4516200e-06,.2047200e-03,.3559100e-03,.4935000e-03,&
3508  & .6216300e-03,.7425300e-03,.8624700e-03,.9751800e-03,.1086400e-02,&
3509  & .4505500e-06,.1055600e-03,.1817600e-03,.2513700e-03,.3143800e-03,&
3510  & .3736300e-03,.4275900e-03,.4788300e-03,.5343700e-03,.4450200e-06,&
3511  & .1181400e-03,.2038300e-03,.2816200e-03,.3554700e-03,.4226100e-03,&
3512  & .4834000e-03,.5406600e-03,.6035200e-03,.4306600e-06,.1321700e-03,&
3513  & .2283600e-03,.3155200e-03,.3976200e-03,.4749300e-03,.5454300e-03,&
3514  & .6106600e-03,.6817600e-03,.4111600e-06,.1473300e-03,.2547200e-03,&
3515  & .3520400e-03,.4433400e-03,.5299700e-03,.6096600e-03,.6862200e-03,&
3516  & .7660700e-03,.3874800e-06,.1634400e-03,.2828100e-03,.3917300e-03,&
3517  & .4930500e-03,.5888000e-03,.6795400e-03,.7648500e-03,.8540100e-03,&
3518  & .3658200e-06,.8295800e-04,.1421000e-03,.1957400e-03,.2444000e-03,&
3519  & .2903900e-03,.3328100e-03,.3717700e-03,.4217800e-03,.3670700e-06,&
3520  & .9290900e-04,.1597700e-03,.2203400e-03,.2774200e-03,.3295500e-03,&
3521  & .3772700e-03,.4195600e-03,.4785900e-03,.3578700e-06,.1043200e-03,&
3522  & .1793000e-03,.2476900e-03,.3115500e-03,.3724200e-03,.4269900e-03,&
3523  & .4747400e-03,.5408300e-03,.3448200e-06,.1168500e-03,.2005500e-03,&
3524  & .2772500e-03,.3486600e-03,.4167700e-03,.4790300e-03,.5351800e-03,&
3525  & .6081200e-03,.3259800e-06,.1300100e-03,.2234100e-03,.3090000e-03,&
3526  & .3891900e-03,.4646500e-03,.5346700e-03,.5992600e-03,.6773300e-03/
3527 
3528  data absa(316:450, 1) / &
3529  & .2983400e-06,.6500900e-04,.1118300e-03,.1520000e-03,.1896900e-03,&
3530  & .2251700e-03,.2583200e-03,.2873000e-03,.3395500e-03,.2974500e-06,&
3531  & .7287200e-04,.1248200e-03,.1722100e-03,.2158300e-03,.2559600e-03,&
3532  & .2932800e-03,.3252000e-03,.3862000e-03,.2942100e-06,.8203600e-04,&
3533  & .1401000e-03,.1934400e-03,.2436200e-03,.2907100e-03,.3330800e-03,&
3534  & .3686700e-03,.4390100e-03,.2859600e-06,.9225600e-04,.1573800e-03,&
3535  & .2175200e-03,.2732500e-03,.3264300e-03,.3757800e-03,.4171000e-03,&
3536  & .4935800e-03,.2729600e-06,.1032000e-03,.1759800e-03,.2433900e-03,&
3537  & .3059100e-03,.3650500e-03,.4206100e-03,.4687200e-03,.5499300e-03,&
3538  & .2425900e-06,.5062600e-04,.8694500e-04,.1177800e-03,.1469200e-03,&
3539  & .1743100e-03,.2005700e-03,.2213100e-03,.2991900e-03,.2405800e-06,&
3540  & .5696600e-04,.9746700e-04,.1340500e-03,.1675000e-03,.1981400e-03,&
3541  & .2273900e-03,.2528100e-03,.3402200e-03,.2409100e-06,.6432400e-04,&
3542  & .1097100e-03,.1506100e-03,.1899600e-03,.2258000e-03,.2588500e-03,&
3543  & .2869400e-03,.3804500e-03,.2355000e-06,.7245100e-04,.1234500e-03,&
3544  & .1699100e-03,.2136200e-03,.2548400e-03,.2934100e-03,.3252300e-03,&
3545  & .4283600e-03,.2269600e-06,.8135100e-04,.1383900e-03,.1909000e-03,&
3546  & .2398600e-03,.2860800e-03,.3291000e-03,.3663900e-03,.4792500e-03,&
3547  & .1967900e-06,.3976000e-04,.6805200e-04,.9229500e-04,.1149800e-03,&
3548  & .1365600e-03,.1560400e-03,.1717100e-03,.2967900e-03,.1956700e-06,&
3549  & .4484700e-04,.7682900e-04,.1051800e-03,.1310200e-03,.1550900e-03,&
3550  & .1776400e-03,.1984300e-03,.3286300e-03,.1957400e-06,.5056500e-04,&
3551  & .8646600e-04,.1187800e-03,.1492000e-03,.1769800e-03,.2025800e-03,&
3552  & .2252600e-03,.3695900e-03,.1926200e-06,.5712400e-04,.9754600e-04,&
3553  & .1339800e-03,.1680300e-03,.2004600e-03,.2302200e-03,.2557800e-03,&
3554  & .4154300e-03,.1874700e-06,.6426400e-04,.1097100e-03,.1508600e-03,&
3555  & .1892300e-03,.2256500e-03,.2593400e-03,.2892100e-03,.4646300e-03/
3556 
3557  data absa(451:585, 1) / &
3558  & .1601500e-06,.3302500e-04,.5656200e-04,.7662500e-04,.9564500e-04,&
3559  & .1135800e-03,.1295500e-03,.1426900e-03,.2754500e-03,.1591800e-06,&
3560  & .3714800e-04,.6377500e-04,.8760000e-04,.1089700e-03,.1289300e-03,&
3561  & .1475600e-03,.1646500e-03,.3079900e-03,.1589700e-06,.4199300e-04,&
3562  & .7204000e-04,.9892800e-04,.1243300e-03,.1473300e-03,.1682400e-03,&
3563  & .1869400e-03,.3434000e-03,.1557800e-06,.4744100e-04,.8142600e-04,&
3564  & .1116500e-03,.1398500e-03,.1667300e-03,.1915600e-03,.2126800e-03,&
3565  & .3817600e-03,.1521000e-06,.5339800e-04,.9165700e-04,.1259200e-03,&
3566  & .1576900e-03,.1878100e-03,.2156900e-03,.2406900e-03,.4222800e-03,&
3567  & .1302100e-06,.2727200e-04,.4683200e-04,.6351100e-04,.7920500e-04,&
3568  & .9394900e-04,.1071900e-03,.1182700e-03,.2394400e-03,.1293000e-06,&
3569  & .3068600e-04,.5292500e-04,.7278200e-04,.9052700e-04,.1070800e-03,&
3570  & .1223600e-03,.1362000e-03,.2712100e-03,.1290000e-06,.3472300e-04,&
3571  & .5986700e-04,.8220500e-04,.1032600e-03,.1223800e-03,.1395800e-03,&
3572  & .1549800e-03,.2993000e-03,.1264800e-06,.3925200e-04,.6761800e-04,&
3573  & .9294900e-04,.1163600e-03,.1383500e-03,.1592400e-03,.1765300e-03,&
3574  & .3305000e-03,.1229900e-06,.4421300e-04,.7624400e-04,.1048800e-03,&
3575  & .1313500e-03,.1560100e-03,.1790200e-03,.1997600e-03,.3657900e-03,&
3576  & .1055400e-06,.2238800e-04,.3859700e-04,.5237800e-04,.6540400e-04,&
3577  & .7756700e-04,.8854300e-04,.9780100e-04,.1959900e-03,.1048000e-06,&
3578  & .2518100e-04,.4367000e-04,.6020500e-04,.7488300e-04,.8860500e-04,&
3579  & .1011700e-03,.1124200e-03,.2214600e-03,.1042900e-06,.2853000e-04,&
3580  & .4942200e-04,.6803900e-04,.8543500e-04,.1013600e-03,.1155700e-03,&
3581  & .1282800e-03,.2444700e-03,.1023200e-06,.3230100e-04,.5579700e-04,&
3582  & .7694800e-04,.9644700e-04,.1146200e-03,.1316600e-03,.1461600e-03,&
3583  & .2699900e-03,.9901400e-07,.3639400e-04,.6299400e-04,.8694600e-04,&
3584  & .1090000e-03,.1293700e-03,.1483300e-03,.1654000e-03,.2991600e-03/
3585 
3586  data absa( 1:180, 2) / &
3587  & .2348800e-04,.1668400e-02,.2957500e-02,.4008300e-02,.4995300e-02,&
3588  & .5902100e-02,.6744600e-02,.7600800e-02,.8703200e-02,.2515600e-04,&
3589  & .1846200e-02,.3271100e-02,.4500800e-02,.5618200e-02,.6628700e-02,&
3590  & .7590900e-02,.8555800e-02,.9754300e-02,.2708400e-04,.2032500e-02,&
3591  & .3603400e-02,.4999200e-02,.6279600e-02,.7413400e-02,.8499400e-02,&
3592  & .9569400e-02,.1084700e-01,.2814700e-04,.2234700e-02,.3962800e-02,&
3593  & .5500500e-02,.6945300e-02,.8242900e-02,.9469900e-02,.1066000e-01,&
3594  & .1199100e-01,.2871900e-04,.2447500e-02,.4336900e-02,.6036000e-02,&
3595  & .7618300e-02,.9087800e-02,.1049300e-01,.1180500e-01,.1320400e-01,&
3596  & .2094700e-04,.1401500e-02,.2472800e-02,.3367600e-02,.4180100e-02,&
3597  & .4924400e-02,.5578700e-02,.6220600e-02,.6974100e-02,.2235200e-04,&
3598  & .1553500e-02,.2739600e-02,.3787000e-02,.4712100e-02,.5557100e-02,&
3599  & .6289200e-02,.7013200e-02,.7809200e-02,.2388200e-04,.1721300e-02,&
3600  & .3034500e-02,.4202000e-02,.5278200e-02,.6228500e-02,.7055600e-02,&
3601  & .7881900e-02,.8733000e-02,.2465000e-04,.1895400e-02,.3338400e-02,&
3602  & .4633600e-02,.5833300e-02,.6931100e-02,.7875100e-02,.8814900e-02,&
3603  & .9691100e-02,.2513600e-04,.2080600e-02,.3664100e-02,.5096600e-02,&
3604  & .6419300e-02,.7628100e-02,.8740300e-02,.9794300e-02,.1070400e-01,&
3605  & .1772000e-04,.1141400e-02,.2004500e-02,.2728800e-02,.3389100e-02,&
3606  & .3975500e-02,.4496700e-02,.4938900e-02,.5385800e-02,.1908700e-04,&
3607  & .1274500e-02,.2233600e-02,.3084100e-02,.3833300e-02,.4498300e-02,&
3608  & .5089500e-02,.5593000e-02,.6066600e-02,.2012500e-04,.1417800e-02,&
3609  & .2479500e-02,.3427800e-02,.4310600e-02,.5060700e-02,.5728000e-02,&
3610  & .6309200e-02,.6828500e-02,.2089500e-04,.1566600e-02,.2734800e-02,&
3611  & .3793400e-02,.4776900e-02,.5662100e-02,.6404600e-02,.7086400e-02,&
3612  & .7602600e-02,.2150800e-04,.1725100e-02,.3015300e-02,.4180900e-02,&
3613  & .5268900e-02,.6246200e-02,.7112500e-02,.7910400e-02,.8438900e-02,&
3614  & .1466100e-04,.9226100e-03,.1608800e-02,.2178800e-02,.2695600e-02,&
3615  & .3161200e-02,.3562600e-02,.3887800e-02,.4152500e-02,.1560700e-04,&
3616  & .1032900e-02,.1797300e-02,.2473500e-02,.3069600e-02,.3595300e-02,&
3617  & .4051100e-02,.4416200e-02,.4699000e-02,.1655900e-04,.1155000e-02,&
3618  & .2001900e-02,.2757700e-02,.3462500e-02,.4066200e-02,.4583100e-02,&
3619  & .4999500e-02,.5307300e-02,.1726300e-04,.1279400e-02,.2218400e-02,&
3620  & .3061400e-02,.3851000e-02,.4566400e-02,.5153200e-02,.5629000e-02,&
3621  & .5943600e-02,.1789500e-04,.1413000e-02,.2452600e-02,.3380500e-02,&
3622  & .4262200e-02,.5055600e-02,.5748900e-02,.6309400e-02,.6625600e-02/
3623 
3624  data absa(181:315, 2) / &
3625  & .1188500e-04,.7488800e-03,.1282600e-02,.1725800e-02,.2134600e-02,&
3626  & .2497200e-02,.2804600e-02,.3060600e-02,.3232300e-02,.1245200e-04,&
3627  & .8408400e-03,.1438000e-02,.1969800e-02,.2438600e-02,.2853600e-02,&
3628  & .3207500e-02,.3493700e-02,.3656200e-02,.1343900e-04,.9427200e-03,&
3629  & .1606500e-02,.2207900e-02,.2766000e-02,.3238900e-02,.3644000e-02,&
3630  & .3967300e-02,.4139300e-02,.1405300e-04,.1047300e-02,.1789900e-02,&
3631  & .2460300e-02,.3086100e-02,.3652100e-02,.4115600e-02,.4482500e-02,&
3632  & .4652900e-02,.1458600e-04,.1158500e-02,.1988600e-02,.2725700e-02,&
3633  & .3427200e-02,.4059900e-02,.4611500e-02,.5028600e-02,.5208500e-02,&
3634  & .9487200e-05,.5979300e-03,.1021000e-02,.1357200e-02,.1671600e-02,&
3635  & .1951200e-02,.2189000e-02,.2382700e-02,.2534700e-02,.1006000e-04,&
3636  & .6740000e-03,.1143200e-02,.1556400e-02,.1918800e-02,.2238900e-02,&
3637  & .2516100e-02,.2730800e-02,.2877000e-02,.1074300e-04,.7594800e-03,&
3638  & .1280600e-02,.1755100e-02,.2186200e-02,.2554500e-02,.2872900e-02,&
3639  & .3114900e-02,.3271600e-02,.1132200e-04,.8513400e-03,.1432000e-02,&
3640  & .1963000e-02,.2451400e-02,.2893000e-02,.3257800e-02,.3537500e-02,&
3641  & .3691200e-02,.1175500e-04,.9461100e-03,.1598600e-02,.2180400e-02,&
3642  & .2729100e-02,.3230600e-02,.3669500e-02,.3991300e-02,.4143900e-02,&
3643  & .7593100e-05,.4713000e-03,.8121100e-03,.1065800e-02,.1300400e-02,&
3644  & .1517500e-02,.1700200e-02,.1847300e-02,.1986100e-02,.8072400e-05,&
3645  & .5335800e-03,.9116300e-03,.1226100e-02,.1501400e-02,.1748300e-02,&
3646  & .1961200e-02,.2120100e-02,.2259100e-02,.8440400e-05,.6051700e-03,&
3647  & .1023600e-02,.1388700e-02,.1720400e-02,.2003100e-02,.2249700e-02,&
3648  & .2432100e-02,.2582300e-02,.9051100e-05,.6803700e-03,.1147500e-02,&
3649  & .1559600e-02,.1940200e-02,.2278900e-02,.2563300e-02,.2775300e-02,&
3650  & .2924700e-02,.9440500e-05,.7610300e-03,.1283600e-02,.1742200e-02,&
3651  & .2169800e-02,.2558500e-02,.2898900e-02,.3144400e-02,.3301600e-02/
3652 
3653  data absa(316:450, 2) / &
3654  & .5808000e-05,.3678200e-03,.6351600e-03,.8379900e-03,.1011900e-02,&
3655  & .1175400e-02,.1316100e-02,.1438200e-02,.1583700e-02,.6315600e-05,&
3656  & .4190900e-03,.7197400e-03,.9695200e-03,.1171100e-02,.1361700e-02,&
3657  & .1523400e-02,.1644100e-02,.1811800e-02,.6677600e-05,.4782900e-03,&
3658  & .8115000e-03,.1105600e-02,.1349300e-02,.1564600e-02,.1752400e-02,&
3659  & .1893700e-02,.2069800e-02,.7058200e-05,.5401700e-03,.9133000e-03,&
3660  & .1243400e-02,.1541100e-02,.1788400e-02,.2005700e-02,.2170400e-02,&
3661  & .2354800e-02,.7490200e-05,.6071700e-03,.1026700e-02,.1390800e-02,&
3662  & .1723100e-02,.2028500e-02,.2281000e-02,.2471000e-02,.2663100e-02,&
3663  & .4506100e-05,.2862600e-03,.4944800e-03,.6531700e-03,.7908100e-03,&
3664  & .9106600e-03,.1018200e-02,.1110700e-02,.1459200e-02,.4939200e-05,&
3665  & .3273400e-03,.5655800e-03,.7607700e-03,.9184600e-03,.1057800e-02,&
3666  & .1177600e-02,.1272000e-02,.1677800e-02,.5258000e-05,.3752200e-03,&
3667  & .6384500e-03,.8780500e-03,.1061900e-02,.1219400e-02,.1360600e-02,&
3668  & .1468000e-02,.1925900e-02,.5499100e-05,.4265900e-03,.7210300e-03,&
3669  & .9875600e-03,.1216300e-02,.1400700e-02,.1564700e-02,.1690000e-02,&
3670  & .2177200e-02,.5876900e-05,.4819900e-03,.8146600e-03,.1107200e-02,&
3671  & .1368400e-02,.1598400e-02,.1788700e-02,.1933300e-02,.2433100e-02,&
3672  & .3415400e-05,.2253400e-03,.3878800e-03,.5111300e-03,.6219400e-03,&
3673  & .7143200e-03,.7974300e-03,.8628900e-03,.1475800e-02,.3808500e-05,&
3674  & .2583200e-03,.4474800e-03,.5983500e-03,.7251400e-03,.8328400e-03,&
3675  & .9194100e-03,.9958300e-03,.1735800e-02,.4157800e-05,.2965500e-03,&
3676  & .5055300e-03,.6951100e-03,.8410700e-03,.9637400e-03,.1066600e-02,&
3677  & .1147800e-02,.1962500e-02,.4391700e-05,.3390800e-03,.5735100e-03,&
3678  & .7864000e-03,.9686200e-03,.1110900e-02,.1230900e-02,.1326600e-02,&
3679  & .2210300e-02,.4544600e-05,.3854800e-03,.6488300e-03,.8840100e-03,&
3680  & .1095200e-02,.1270600e-02,.1413600e-02,.1523900e-02,.2475400e-02/
3681 
3682  data absa(451:585, 2) / &
3683  & .2760400e-05,.1884800e-03,.3253200e-03,.4294900e-03,.5235000e-03,&
3684  & .6008400e-03,.6664000e-03,.7207000e-03,.1369200e-02,.3090800e-05,&
3685  & .2167900e-03,.3725900e-03,.5036600e-03,.6107400e-03,.7015800e-03,&
3686  & .7727100e-03,.8303700e-03,.1568900e-02,.3367400e-05,.2496500e-03,&
3687  & .4224400e-03,.5835300e-03,.7092300e-03,.8133000e-03,.8975000e-03,&
3688  & .9613100e-03,.1797100e-02,.3556800e-05,.2860200e-03,.4804400e-03,&
3689  & .6586800e-03,.8181600e-03,.9385700e-03,.1035700e-02,.1111900e-02,&
3690  & .2050900e-02,.3692100e-05,.3248400e-03,.5462300e-03,.7447500e-03,&
3691  & .9230700e-03,.1075800e-02,.1189500e-02,.1277700e-02,.2325300e-02,&
3692  & .2227200e-05,.1580700e-03,.2716300e-03,.3593500e-03,.4378100e-03,&
3693  & .5032100e-03,.5577600e-03,.6004600e-03,.1185200e-02,.2489800e-05,&
3694  & .1820100e-03,.3100400e-03,.4220600e-03,.5122600e-03,.5882400e-03,&
3695  & .6491900e-03,.6929100e-03,.1362300e-02,.2702100e-05,.2095800e-03,&
3696  & .3532200e-03,.4867600e-03,.5958700e-03,.6836400e-03,.7552700e-03,&
3697  & .8043600e-03,.1565400e-02,.2852600e-05,.2403800e-03,.4026200e-03,&
3698  & .5509600e-03,.6867100e-03,.7910300e-03,.8721100e-03,.9312400e-03,&
3699  & .1789800e-02,.2989900e-05,.2728900e-03,.4590400e-03,.6244800e-03,&
3700  & .7749600e-03,.9021200e-03,.1001800e-02,.1070600e-02,.2026500e-02,&
3701  & .1757600e-05,.1315100e-03,.2251800e-03,.2989000e-03,.3639800e-03,&
3702  & .4188400e-03,.4650500e-03,.5008600e-03,.9791600e-03,.1952400e-05,&
3703  & .1518900e-03,.2568600e-03,.3512300e-03,.4272300e-03,.4906100e-03,&
3704  & .5429300e-03,.5781500e-03,.1126000e-02,.2113400e-05,.1755800e-03,&
3705  & .2938200e-03,.4045700e-03,.4977700e-03,.5715300e-03,.6318500e-03,&
3706  & .6721300e-03,.1296000e-02,.2268100e-05,.2010600e-03,.3358300e-03,&
3707  & .4597700e-03,.5709400e-03,.6627500e-03,.7314900e-03,.7779900e-03,&
3708  & .1485600e-02,.2394000e-05,.2285300e-03,.3832300e-03,.5212600e-03,&
3709  & .6468400e-03,.7545500e-03,.8411500e-03,.8957500e-03,.1681600e-02/
3710 
3711  data absa( 1:180, 3) / &
3712  & .8715400e-04,.7045600e-02,.1162400e-01,.1600700e-01,.2027700e-01,&
3713  & .2434900e-01,.2790200e-01,.3095600e-01,.3315900e-01,.9267800e-04,&
3714  & .7532400e-02,.1255200e-01,.1744400e-01,.2196700e-01,.2625000e-01,&
3715  & .3024100e-01,.3334800e-01,.3616400e-01,.9795500e-04,.8015300e-02,&
3716  & .1350200e-01,.1881200e-01,.2386200e-01,.2848000e-01,.3251100e-01,&
3717  & .3571300e-01,.3834900e-01,.1040400e-03,.8472400e-02,.1442900e-01,&
3718  & .2013600e-01,.2567200e-01,.3068800e-01,.3501100e-01,.3837900e-01,&
3719  & .4067300e-01,.1111000e-03,.8912300e-02,.1534300e-01,.2147900e-01,&
3720  & .2729000e-01,.3275100e-01,.3745500e-01,.4093100e-01,.4246300e-01,&
3721  & .7321400e-04,.6141000e-02,.1012500e-01,.1365000e-01,.1715800e-01,&
3722  & .2062700e-01,.2362800e-01,.2625100e-01,.2748100e-01,.7793600e-04,&
3723  & .6575100e-02,.1096600e-01,.1487700e-01,.1869300e-01,.2227200e-01,&
3724  & .2563000e-01,.2839500e-01,.2989400e-01,.8306100e-04,.6982800e-02,&
3725  & .1177400e-01,.1606800e-01,.2031700e-01,.2424400e-01,.2774800e-01,&
3726  & .3043200e-01,.3185100e-01,.8856400e-04,.7398500e-02,.1258100e-01,&
3727  & .1722600e-01,.2184200e-01,.2617700e-01,.2996900e-01,.3274800e-01,&
3728  & .3380500e-01,.9493300e-04,.7798800e-02,.1337200e-01,.1836700e-01,&
3729  & .2332300e-01,.2792800e-01,.3196400e-01,.3501300e-01,.3532700e-01,&
3730  & .6094700e-04,.5243600e-02,.8617400e-02,.1152000e-01,.1423100e-01,&
3731  & .1702700e-01,.1946900e-01,.2163400e-01,.2198100e-01,.6492100e-04,&
3732  & .5597500e-02,.9351200e-02,.1252600e-01,.1551600e-01,.1847100e-01,&
3733  & .2127000e-01,.2351200e-01,.2411400e-01,.6952100e-04,.5964800e-02,&
3734  & .1006000e-01,.1358200e-01,.1690300e-01,.2017700e-01,.2305500e-01,&
3735  & .2538000e-01,.2582200e-01,.7434800e-04,.6310400e-02,.1076700e-01,&
3736  & .1459900e-01,.1827300e-01,.2183600e-01,.2498400e-01,.2735800e-01,&
3737  & .2745000e-01,.7978000e-04,.6667100e-02,.1145800e-01,.1559000e-01,&
3738  & .1957900e-01,.2335800e-01,.2680600e-01,.2933500e-01,.2878600e-01,&
3739  & .5079900e-04,.4414800e-02,.7222500e-02,.9648300e-02,.1176700e-01,&
3740  & .1382800e-01,.1584400e-01,.1758800e-01,.1739100e-01,.5422700e-04,&
3741  & .4723100e-02,.7852700e-02,.1049300e-01,.1283500e-01,.1512600e-01,&
3742  & .1746600e-01,.1921900e-01,.1935100e-01,.5815100e-04,.5027700e-02,&
3743  & .8482300e-02,.1141800e-01,.1396900e-01,.1657600e-01,.1890300e-01,&
3744  & .2084000e-01,.2085300e-01,.6243300e-04,.5337200e-02,.9081300e-02,&
3745  & .1232500e-01,.1516300e-01,.1797100e-01,.2059000e-01,.2252900e-01,&
3746  & .2227300e-01,.6685200e-04,.5642900e-02,.9683600e-02,.1318900e-01,&
3747  & .1628000e-01,.1931200e-01,.2213600e-01,.2426300e-01,.2346600e-01/
3748 
3749  data absa(181:315, 3) / &
3750  & .4259300e-04,.3676000e-02,.5991300e-02,.7981200e-02,.9772900e-02,&
3751  & .1126500e-01,.1287400e-01,.1415000e-01,.1365100e-01,.4577900e-04,&
3752  & .3934400e-02,.6540100e-02,.8703000e-02,.1065000e-01,.1237400e-01,&
3753  & .1413500e-01,.1552900e-01,.1550700e-01,.4886800e-04,.4201300e-02,&
3754  & .7085900e-02,.9491200e-02,.1160900e-01,.1355700e-01,.1538100e-01,&
3755  & .1699300e-01,.1678500e-01,.5250900e-04,.4467400e-02,.7602200e-02,&
3756  & .1027100e-01,.1263000e-01,.1473600e-01,.1683000e-01,.1838700e-01,&
3757  & .1804000e-01,.5619600e-04,.4738100e-02,.8100500e-02,.1102600e-01,&
3758  & .1358600e-01,.1594000e-01,.1816000e-01,.1992000e-01,.1909200e-01,&
3759  & .3611200e-04,.3031600e-02,.4903800e-02,.6532500e-02,.7960600e-02,&
3760  & .9170600e-02,.1028500e-01,.1125200e-01,.1055600e-01,.3850200e-04,&
3761  & .3257500e-02,.5385500e-02,.7130200e-02,.8720000e-02,.1013800e-01,&
3762  & .1131900e-01,.1250400e-01,.1210900e-01,.4107000e-04,.3486900e-02,&
3763  & .5864300e-02,.7802000e-02,.9523200e-02,.1108100e-01,.1241300e-01,&
3764  & .1370000e-01,.1335000e-01,.4403400e-04,.3714200e-02,.6292400e-02,&
3765  & .8486700e-02,.1040000e-01,.1209100e-01,.1361400e-01,.1485000e-01,&
3766  & .1439600e-01,.4702100e-04,.3938700e-02,.6717100e-02,.9131900e-02,&
3767  & .1123100e-01,.1312900e-01,.1474500e-01,.1615500e-01,.1539200e-01,&
3768  & .3000100e-04,.2488400e-02,.3978700e-02,.5326200e-02,.6425400e-02,&
3769  & .7442200e-02,.8241800e-02,.8765100e-02,.8324100e-02,.3206700e-04,&
3770  & .2683100e-02,.4387300e-02,.5800900e-02,.7088100e-02,.8230300e-02,&
3771  & .9111500e-02,.9953000e-02,.9584300e-02,.3441400e-04,.2876200e-02,&
3772  & .4798100e-02,.6365000e-02,.7755500e-02,.9013000e-02,.1005100e-01,&
3773  & .1094400e-01,.1068700e-01,.3654300e-04,.3074900e-02,.5169700e-02,&
3774  & .6954900e-02,.8493900e-02,.9862100e-02,.1101200e-01,.1195000e-01,&
3775  & .1159600e-01,.3898600e-04,.3267200e-02,.5526800e-02,.7495000e-02,&
3776  & .9220600e-02,.1075000e-01,.1197000e-01,.1302900e-01,.1246100e-01/
3777 
3778  data absa(316:450, 3) / &
3779  & .2471800e-04,.2030400e-02,.3225300e-02,.4295700e-02,.5162100e-02,&
3780  & .5947700e-02,.6554300e-02,.6790100e-02,.6657800e-02,.2622600e-04,&
3781  & .2202700e-02,.3552800e-02,.4684400e-02,.5746300e-02,.6607000e-02,&
3782  & .7356600e-02,.7908600e-02,.7680700e-02,.2809500e-04,.2361400e-02,&
3783  & .3896000e-02,.5152900e-02,.6277300e-02,.7291900e-02,.8147500e-02,&
3784  & .8734400e-02,.8650900e-02,.2985600e-04,.2534600e-02,.4218000e-02,&
3785  & .5650700e-02,.6886700e-02,.7994800e-02,.8916900e-02,.9622600e-02,&
3786  & .9421200e-02,.3143200e-04,.2698900e-02,.4528800e-02,.6115800e-02,&
3787  & .7523100e-02,.8731900e-02,.9744700e-02,.1047000e-01,.1017200e-01,&
3788  & .2015100e-04,.1662200e-02,.2610200e-02,.3434500e-02,.4151800e-02,&
3789  & .4735600e-02,.5119800e-02,.5290100e-02,.5560800e-02,.2129000e-04,&
3790  & .1811200e-02,.2862200e-02,.3777000e-02,.4609800e-02,.5282500e-02,&
3791  & .5871900e-02,.6211500e-02,.6428700e-02,.2260400e-04,.1948300e-02,&
3792  & .3153600e-02,.4141800e-02,.5051300e-02,.5888300e-02,.6519900e-02,&
3793  & .7000000e-02,.7164100e-02,.2403900e-04,.2090900e-02,.3432100e-02,&
3794  & .4563300e-02,.5557500e-02,.6445300e-02,.7180000e-02,.7706200e-02,&
3795  & .7782100e-02,.2527500e-04,.2232500e-02,.3697600e-02,.4972700e-02,&
3796  & .6094500e-02,.7063200e-02,.7869600e-02,.8404800e-02,.8457100e-02,&
3797  & .1652000e-04,.1357900e-02,.2121700e-02,.2765000e-02,.3320900e-02,&
3798  & .3765700e-02,.4026300e-02,.4163200e-02,.5901900e-02,.1730700e-04,&
3799  & .1486800e-02,.2323000e-02,.3061600e-02,.3700000e-02,.4262900e-02,&
3800  & .4695800e-02,.4895600e-02,.6472900e-02,.1821000e-04,.1608600e-02,&
3801  & .2563500e-02,.3348000e-02,.4082700e-02,.4759000e-02,.5242400e-02,&
3802  & .5608800e-02,.7107200e-02,.1926300e-04,.1730800e-02,.2803800e-02,&
3803  & .3701600e-02,.4493300e-02,.5211400e-02,.5822400e-02,.6205300e-02,&
3804  & .7644500e-02,.2045000e-04,.1851400e-02,.3028600e-02,.4056900e-02,&
3805  & .4941700e-02,.5729200e-02,.6380900e-02,.6816200e-02,.8180000e-02/
3806 
3807  data absa(451:585, 3) / &
3808  & .1374300e-04,.1154400e-02,.1800500e-02,.2338000e-02,.2812700e-02,&
3809  & .3201900e-02,.3418400e-02,.3513700e-02,.5513200e-02,.1431400e-04,&
3810  & .1264800e-02,.1981100e-02,.2579400e-02,.3128300e-02,.3583500e-02,&
3811  & .3963500e-02,.4152400e-02,.6064000e-02,.1498000e-04,.1366700e-02,&
3812  & .2184600e-02,.2831600e-02,.3439000e-02,.4006900e-02,.4428300e-02,&
3813  & .4728200e-02,.6566200e-02,.1584300e-04,.1469100e-02,.2384400e-02,&
3814  & .3134600e-02,.3791500e-02,.4392600e-02,.4910800e-02,.5243100e-02,&
3815  & .7052100e-02,.1680100e-04,.1570900e-02,.2573800e-02,.3425000e-02,&
3816  & .4178100e-02,.4825800e-02,.5377600e-02,.5740000e-02,.7491300e-02,&
3817  & .1126500e-04,.9747300e-03,.1519000e-02,.1977900e-02,.2370800e-02,&
3818  & .2700200e-02,.2895400e-02,.2968900e-02,.4905200e-02,.1170300e-04,&
3819  & .1066000e-02,.1680600e-02,.2174200e-02,.2637000e-02,.3018400e-02,&
3820  & .3346100e-02,.3508100e-02,.5351500e-02,.1227500e-04,.1152400e-02,&
3821  & .1853200e-02,.2401400e-02,.2893200e-02,.3361500e-02,.3733200e-02,&
3822  & .3975900e-02,.5780600e-02,.1296300e-04,.1240500e-02,.2020000e-02,&
3823  & .2657300e-02,.3197800e-02,.3690400e-02,.4122500e-02,.4415100e-02,&
3824  & .6195600e-02,.1369600e-04,.1326600e-02,.2181400e-02,.2893900e-02,&
3825  & .3528400e-02,.4062900e-02,.4519100e-02,.4828300e-02,.6580000e-02,&
3826  & .9117900e-05,.8153100e-03,.1275400e-02,.1659800e-02,.1990000e-02,&
3827  & .2263400e-02,.2444100e-02,.2498400e-02,.4057600e-02,.9503900e-05,&
3828  & .8909300e-03,.1415000e-02,.1828700e-02,.2214300e-02,.2532900e-02,&
3829  & .2809200e-02,.2954600e-02,.4437400e-02,.9976200e-05,.9649400e-03,&
3830  & .1562500e-02,.2028800e-02,.2431900e-02,.2810800e-02,.3137300e-02,&
3831  & .3317700e-02,.4809400e-02,.1050900e-04,.1039800e-02,.1699600e-02,&
3832  & .2244300e-02,.2692500e-02,.3094200e-02,.3448100e-02,.3700300e-02,&
3833  & .5155000e-02,.1103300e-04,.1113400e-02,.1837200e-02,.2440800e-02,&
3834  & .2968200e-02,.3411400e-02,.3785900e-02,.4042400e-02,.5489300e-02/
3835 
3836  data absa( 1:180, 4) / &
3837  & .2556400e-03,.2394000e-01,.4153500e-01,.5627600e-01,.6856100e-01,&
3838  & .7863000e-01,.8699300e-01,.9179400e-01,.8422900e-01,.2919400e-03,&
3839  & .2517000e-01,.4365900e-01,.5901600e-01,.7230200e-01,.8316700e-01,&
3840  & .9173900e-01,.9677400e-01,.8683800e-01,.3393400e-03,.2643000e-01,&
3841  & .4583500e-01,.6192200e-01,.7561400e-01,.8728500e-01,.9660600e-01,&
3842  & .1015600e+00,.9008400e-01,.3887100e-03,.2773300e-01,.4805800e-01,&
3843  & .6497300e-01,.7909000e-01,.9115600e-01,.1008400e+00,.1058900e+00,&
3844  & .9258300e-01,.4447300e-03,.2902800e-01,.5028700e-01,.6801000e-01,&
3845  & .8280500e-01,.9519300e-01,.1049200e+00,.1099500e+00,.9541900e-01,&
3846  & .2340000e-03,.2075300e-01,.3574200e-01,.4870900e-01,.5954800e-01,&
3847  & .6820600e-01,.7504500e-01,.7891500e-01,.7018000e-01,.2677500e-03,&
3848  & .2183200e-01,.3761100e-01,.5115600e-01,.6276800e-01,.7226700e-01,&
3849  & .7942200e-01,.8326200e-01,.7273500e-01,.3003300e-03,.2296100e-01,&
3850  & .3961800e-01,.5377400e-01,.6577300e-01,.7581900e-01,.8353200e-01,&
3851  & .8749600e-01,.7545900e-01,.3436600e-03,.2411600e-01,.4159700e-01,&
3852  & .5650600e-01,.6894400e-01,.7923100e-01,.8724500e-01,.9133600e-01,&
3853  & .7766900e-01,.3917900e-03,.2528900e-01,.4357500e-01,.5928200e-01,&
3854  & .7213200e-01,.8295600e-01,.9103800e-01,.9493700e-01,.8027200e-01,&
3855  & .2073000e-03,.1804400e-01,.3022700e-01,.4120600e-01,.5062600e-01,&
3856  & .5809500e-01,.6372500e-01,.6672100e-01,.5778000e-01,.2400700e-03,&
3857  & .1897200e-01,.3188300e-01,.4348600e-01,.5357200e-01,.6174200e-01,&
3858  & .6748900e-01,.7055200e-01,.6000900e-01,.2693100e-03,.1993400e-01,&
3859  & .3368100e-01,.4577500e-01,.5625500e-01,.6486900e-01,.7125400e-01,&
3860  & .7423200e-01,.6235000e-01,.3006400e-03,.2096500e-01,.3544800e-01,&
3861  & .4819900e-01,.5903600e-01,.6792100e-01,.7459400e-01,.7768900e-01,&
3862  & .6441000e-01,.3396700e-03,.2197200e-01,.3719200e-01,.5067600e-01,&
3863  & .6188400e-01,.7120700e-01,.7788800e-01,.8094700e-01,.6666700e-01,&
3864  & .1820100e-03,.1559500e-01,.2537200e-01,.3443100e-01,.4240100e-01,&
3865  & .4891500e-01,.5361300e-01,.5595300e-01,.4772700e-01,.2088300e-03,&
3866  & .1642200e-01,.2685100e-01,.3648100e-01,.4507400e-01,.5207800e-01,&
3867  & .5686000e-01,.5928700e-01,.4955300e-01,.2387400e-03,.1728500e-01,&
3868  & .2842500e-01,.3851400e-01,.4754200e-01,.5490400e-01,.6028400e-01,&
3869  & .6256100e-01,.5159500e-01,.2670700e-03,.1820000e-01,.3000700e-01,&
3870  & .4061300e-01,.4998200e-01,.5766200e-01,.6323100e-01,.6566600e-01,&
3871  & .5345000e-01,.3010200e-03,.1911300e-01,.3155200e-01,.4280500e-01,&
3872  & .5253500e-01,.6055900e-01,.6619500e-01,.6854900e-01,.5541500e-01/
3873 
3874  data absa(181:315, 4) / &
3875  & .1580100e-03,.1329500e-01,.2152400e-01,.2866600e-01,.3514200e-01,&
3876  & .4075700e-01,.4471500e-01,.4674000e-01,.3938400e-01,.1799400e-03,&
3877  & .1405700e-01,.2278600e-01,.3048700e-01,.3756300e-01,.4350900e-01,&
3878  & .4767600e-01,.4963800e-01,.4084900e-01,.2053500e-03,.1481100e-01,&
3879  & .2411600e-01,.3226600e-01,.3976400e-01,.4612200e-01,.5066900e-01,&
3880  & .5241300e-01,.4268300e-01,.2351100e-03,.1559800e-01,.2548100e-01,&
3881  & .3410300e-01,.4192400e-01,.4859200e-01,.5328300e-01,.5523500e-01,&
3882  & .4433500e-01,.2664000e-03,.1640200e-01,.2684400e-01,.3600000e-01,&
3883  & .4418000e-01,.5108600e-01,.5591800e-01,.5779600e-01,.4599100e-01,&
3884  & .1380500e-03,.1122200e-01,.1812500e-01,.2387700e-01,.2893900e-01,&
3885  & .3350600e-01,.3694400e-01,.3867200e-01,.3233500e-01,.1543900e-03,&
3886  & .1188300e-01,.1926200e-01,.2552100e-01,.3106800e-01,.3588200e-01,&
3887  & .3958900e-01,.4113200e-01,.3368400e-01,.1756100e-03,.1255800e-01,&
3888  & .2040900e-01,.2703300e-01,.3305600e-01,.3826000e-01,.4215500e-01,&
3889  & .4363900e-01,.3517500e-01,.1996700e-03,.1323600e-01,.2162800e-01,&
3890  & .2855400e-01,.3493900e-01,.4045900e-01,.4455000e-01,.4614700e-01,&
3891  & .3664300e-01,.2311700e-03,.1393600e-01,.2283600e-01,.3018300e-01,&
3892  & .3690900e-01,.4265200e-01,.4686400e-01,.4844000e-01,.3799200e-01,&
3893  & .1198700e-03,.9398300e-02,.1513000e-01,.1980800e-01,.2379600e-01,&
3894  & .2728500e-01,.3017600e-01,.3190600e-01,.2619300e-01,.1316400e-03,&
3895  & .9974300e-02,.1611800e-01,.2131900e-01,.2560000e-01,.2940400e-01,&
3896  & .3248500e-01,.3390900e-01,.2743900e-01,.1486200e-03,.1055900e-01,&
3897  & .1712400e-01,.2267400e-01,.2737300e-01,.3150100e-01,.3470500e-01,&
3898  & .3611200e-01,.2866700e-01,.1694100e-03,.1114200e-01,.1816300e-01,&
3899  & .2399200e-01,.2902300e-01,.3346100e-01,.3688200e-01,.3828800e-01,&
3900  & .2999000e-01,.1944400e-03,.1174000e-01,.1923100e-01,.2541000e-01,&
3901  & .3070200e-01,.3538000e-01,.3893300e-01,.4032500e-01,.3116300e-01/
3902 
3903  data absa(316:450, 4) / &
3904  & .1026600e-03,.7813200e-02,.1249500e-01,.1629400e-01,.1955200e-01,&
3905  & .2220300e-01,.2452200e-01,.2615800e-01,.2147700e-01,.1130800e-03,&
3906  & .8299600e-02,.1338500e-01,.1765000e-01,.2111300e-01,.2402600e-01,&
3907  & .2642400e-01,.2777900e-01,.2266100e-01,.1243100e-03,.8811800e-02,&
3908  & .1425400e-01,.1885200e-01,.2271700e-01,.2582200e-01,.2835200e-01,&
3909  & .2966700e-01,.2367400e-01,.1414600e-03,.9308000e-02,.1515200e-01,&
3910  & .2001300e-01,.2415800e-01,.2756900e-01,.3030600e-01,.3149500e-01,&
3911  & .2483800e-01,.1627500e-03,.9828700e-02,.1608000e-01,.2122700e-01,&
3912  & .2559200e-01,.2922600e-01,.3207500e-01,.3335700e-01,.2588700e-01,&
3913  & .8579700e-04,.6441200e-02,.1023100e-01,.1332700e-01,.1592300e-01,&
3914  & .1810300e-01,.1990300e-01,.2118900e-01,.1797500e-01,.9437000e-04,&
3915  & .6851400e-02,.1104100e-01,.1447200e-01,.1729800e-01,.1966100e-01,&
3916  & .2142100e-01,.2263100e-01,.1899000e-01,.1060300e-03,.7287000e-02,&
3917  & .1178600e-01,.1557000e-01,.1871000e-01,.2119500e-01,.2309200e-01,&
3918  & .2415700e-01,.1993400e-01,.1181900e-03,.7721700e-02,.1255900e-01,&
3919  & .1658900e-01,.1999100e-01,.2273800e-01,.2476900e-01,.2577100e-01,&
3920  & .2094600e-01,.1350000e-03,.8162400e-02,.1334600e-01,.1761000e-01,&
3921  & .2122700e-01,.2414000e-01,.2633900e-01,.2738800e-01,.2181900e-01,&
3922  & .7327500e-04,.5314700e-02,.8383200e-02,.1089000e-01,.1299800e-01,&
3923  & .1477200e-01,.1623700e-01,.1716500e-01,.1597200e-01,.8030300e-04,&
3924  & .5659400e-02,.9096400e-02,.1186900e-01,.1418100e-01,.1606500e-01,&
3925  & .1749300e-01,.1844700e-01,.1707500e-01,.8882100e-04,.6028600e-02,&
3926  & .9749100e-02,.1285200e-01,.1538700e-01,.1739400e-01,.1890900e-01,&
3927  & .1970800e-01,.1807800e-01,.1014200e-03,.6396200e-02,.1039200e-01,&
3928  & .1373000e-01,.1652200e-01,.1877100e-01,.2030800e-01,.2109600e-01,&
3929  & .1903700e-01,.1140500e-03,.6775400e-02,.1106500e-01,.1460500e-01,&
3930  & .1758100e-01,.1999100e-01,.2168700e-01,.2245800e-01,.1987500e-01/
3931 
3932  data absa(451:585, 4) / &
3933  & .6451700e-04,.4513500e-02,.7116500e-02,.9238400e-02,.1099800e-01,&
3934  & .1247400e-01,.1370000e-01,.1438800e-01,.1463100e-01,.7153500e-04,&
3935  & .4807000e-02,.7713700e-02,.1009200e-01,.1202300e-01,.1362300e-01,&
3936  & .1479200e-01,.1544900e-01,.1548100e-01,.7950400e-04,.5119900e-02,&
3937  & .8260000e-02,.1091100e-01,.1307600e-01,.1475500e-01,.1600200e-01,&
3938  & .1654600e-01,.1629800e-01,.9043300e-04,.5435100e-02,.8810100e-02,&
3939  & .1164700e-01,.1401800e-01,.1592200e-01,.1720600e-01,.1771500e-01,&
3940  & .1699100e-01,.1014600e-03,.5759600e-02,.9386500e-02,.1240700e-01,&
3941  & .1492200e-01,.1695100e-01,.1838400e-01,.1889300e-01,.1766600e-01,&
3942  & .5691300e-04,.3836100e-02,.6023800e-02,.7810100e-02,.9294300e-02,&
3943  & .1051500e-01,.1151400e-01,.1205100e-01,.1270800e-01,.6298400e-04,&
3944  & .4088600e-02,.6515300e-02,.8546400e-02,.1016800e-01,.1149800e-01,&
3945  & .1245200e-01,.1293800e-01,.1347300e-01,.7058800e-04,.4356100e-02,&
3946  & .6976100e-02,.9213700e-02,.1106800e-01,.1248200e-01,.1349700e-01,&
3947  & .1389200e-01,.1409000e-01,.7955600e-04,.4622200e-02,.7447200e-02,&
3948  & .9838200e-02,.1185200e-01,.1346100e-01,.1453900e-01,.1486800e-01,&
3949  & .1468400e-01,.8933000e-04,.4903700e-02,.7933200e-02,.1049200e-01,&
3950  & .1261300e-01,.1433100e-01,.1552300e-01,.1586700e-01,.1526600e-01,&
3951  & .4904000e-04,.3247000e-02,.5078200e-02,.6581300e-02,.7825400e-02,&
3952  & .8839800e-02,.9648300e-02,.1009000e-01,.1061400e-01,.5422500e-04,&
3953  & .3461600e-02,.5490600e-02,.7195100e-02,.8571100e-02,.9678100e-02,&
3954  & .1046000e-01,.1084000e-01,.1120600e-01,.6113600e-04,.3687800e-02,&
3955  & .5877700e-02,.7745800e-02,.9318300e-02,.1052800e-01,.1134700e-01,&
3956  & .1168400e-01,.1173000e-01,.6878800e-04,.3921300e-02,.6279100e-02,&
3957  & .8277400e-02,.9976100e-02,.1133200e-01,.1224700e-01,.1249500e-01,&
3958  & .1225000e-01,.7742700e-04,.4164000e-02,.6689000e-02,.8835800e-02,&
3959  & .1062400e-01,.1206900e-01,.1306400e-01,.1334100e-01,.1273000e-01/
3960 
3961  data absa( 1:180, 5) / &
3962  & .6909800e-02,.8465000e-01,.1300600e+00,.1665200e+00,.1960800e+00,&
3963  & .2197500e+00,.2349600e+00,.2327700e+00,.1800700e+00,.7820000e-02,&
3964  & .8927900e-01,.1363000e+00,.1740900e+00,.2039800e+00,.2271800e+00,&
3965  & .2412900e+00,.2375000e+00,.1843800e+00,.8978700e-02,.9442800e-01,&
3966  & .1429600e+00,.1817000e+00,.2120500e+00,.2345000e+00,.2472600e+00,&
3967  & .2417200e+00,.1887800e+00,.1042600e-01,.1000300e+00,.1500900e+00,&
3968  & .1894300e+00,.2201500e+00,.2420600e+00,.2534100e+00,.2457100e+00,&
3969  & .1932500e+00,.1220900e-01,.1060300e+00,.1578100e+00,.1975600e+00,&
3970  & .2283200e+00,.2496300e+00,.2595700e+00,.2495800e+00,.1974800e+00,&
3971  & .6402000e-02,.7459700e-01,.1145800e+00,.1458100e+00,.1710300e+00,&
3972  & .1910500e+00,.2041200e+00,.2013300e+00,.1524200e+00,.7258600e-02,&
3973  & .7885700e-01,.1202400e+00,.1525700e+00,.1779600e+00,.1976500e+00,&
3974  & .2097200e+00,.2054800e+00,.1562000e+00,.8290300e-02,.8360200e-01,&
3975  & .1262300e+00,.1593100e+00,.1851200e+00,.2042300e+00,.2150300e+00,&
3976  & .2093700e+00,.1599300e+00,.9457800e-02,.8866800e-01,.1327700e+00,&
3977  & .1663500e+00,.1923300e+00,.2109800e+00,.2205000e+00,.2129400e+00,&
3978  & .1639700e+00,.1086500e-01,.9411300e-01,.1398700e+00,.1737500e+00,&
3979  & .1997500e+00,.2177100e+00,.2259200e+00,.2163900e+00,.1674500e+00,&
3980  & .5694300e-02,.6408400e-01,.9929400e-01,.1261400e+00,.1474600e+00,&
3981  & .1641400e+00,.1750300e+00,.1725500e+00,.1273800e+00,.6470200e-02,&
3982  & .6796700e-01,.1042700e+00,.1319700e+00,.1535000e+00,.1698500e+00,&
3983  & .1800800e+00,.1763100e+00,.1308700e+00,.7420000e-02,.7225200e-01,&
3984  & .1095600e+00,.1380100e+00,.1597800e+00,.1756700e+00,.1847600e+00,&
3985  & .1797700e+00,.1342100e+00,.8490700e-02,.7677200e-01,.1153900e+00,&
3986  & .1442700e+00,.1661500e+00,.1816800e+00,.1894700e+00,.1830000e+00,&
3987  & .1376100e+00,.9707800e-02,.8167100e-01,.1217200e+00,.1508200e+00,&
3988  & .1727700e+00,.1876900e+00,.1942700e+00,.1860800e+00,.1406700e+00,&
3989  & .4882900e-02,.5438300e-01,.8507500e-01,.1081500e+00,.1263800e+00,&
3990  & .1402000e+00,.1490300e+00,.1467000e+00,.1061400e+00,.5574000e-02,&
3991  & .5777900e-01,.8943600e-01,.1132300e+00,.1316000e+00,.1451400e+00,&
3992  & .1534900e+00,.1502700e+00,.1094900e+00,.6401500e-02,.6154600e-01,&
3993  & .9413900e-01,.1185000e+00,.1370100e+00,.1501700e+00,.1575700e+00,&
3994  & .1534400e+00,.1125700e+00,.7371900e-02,.6552100e-01,.9923200e-01,&
3995  & .1240300e+00,.1425900e+00,.1554100e+00,.1617500e+00,.1563400e+00,&
3996  & .1155700e+00,.8478900e-02,.6981000e-01,.1047800e+00,.1298500e+00,&
3997  & .1484000e+00,.1607100e+00,.1659700e+00,.1591000e+00,.1183300e+00/
3998 
3999  data absa(181:315, 5) / &
4000  & .4135700e-02,.4587800e-01,.7186600e-01,.9213000e-01,.1077200e+00,&
4001  & .1193500e+00,.1262700e+00,.1238200e+00,.8849000e-01,.4727800e-02,&
4002  & .4880900e-01,.7572400e-01,.9648500e-01,.1121800e+00,.1236300e+00,&
4003  & .1302300e+00,.1272300e+00,.9164600e-01,.5423400e-02,.5210800e-01,&
4004  & .7992500e-01,.1010500e+00,.1168400e+00,.1279500e+00,.1338900e+00,&
4005  & .1302400e+00,.9438400e-01,.6267200e-02,.5564700e-01,.8443800e-01,&
4006  & .1059100e+00,.1216700e+00,.1325500e+00,.1375900e+00,.1328800e+00,&
4007  & .9703700e-01,.7238700e-02,.5939300e-01,.8932600e-01,.1110200e+00,&
4008  & .1268000e+00,.1372300e+00,.1412800e+00,.1353000e+00,.9958500e-01,&
4009  & .3482000e-02,.3845500e-01,.6010600e-01,.7751500e-01,.9114300e-01,&
4010  & .1009400e+00,.1064900e+00,.1040300e+00,.7350900e-01,.3950700e-02,&
4011  & .4092700e-01,.6340200e-01,.8124000e-01,.9496800e-01,.1046900e+00,&
4012  & .1100100e+00,.1071700e+00,.7642600e-01,.4526600e-02,.4372600e-01,&
4013  & .6704100e-01,.8523400e-01,.9891100e-01,.1084500e+00,.1132900e+00,&
4014  & .1099600e+00,.7886100e-01,.5224200e-02,.4680700e-01,.7093900e-01,&
4015  & .8954700e-01,.1031200e+00,.1124700e+00,.1165300e+00,.1123700e+00,&
4016  & .8125000e-01,.6044900e-02,.5008300e-01,.7517500e-01,.9404100e-01,&
4017  & .1076000e+00,.1165700e+00,.1198000e+00,.1144900e+00,.8354900e-01,&
4018  & .2871100e-02,.3252300e-01,.4997100e-01,.6459700e-01,.7636000e-01,&
4019  & .8491800e-01,.8952300e-01,.8720000e-01,.6061800e-01,.3255000e-02,&
4020  & .3461400e-01,.5280300e-01,.6774000e-01,.7971300e-01,.8820700e-01,&
4021  & .9268100e-01,.9006000e-01,.6333100e-01,.3726300e-02,.3696800e-01,&
4022  & .5590400e-01,.7115300e-01,.8314300e-01,.9150900e-01,.9560700e-01,&
4023  & .9256400e-01,.6559500e-01,.4295300e-02,.3953800e-01,.5928100e-01,&
4024  & .7491200e-01,.8682200e-01,.9495600e-01,.9843800e-01,.9472800e-01,&
4025  & .6768000e-01,.4978800e-02,.4226400e-01,.6295300e-01,.7884200e-01,&
4026  & .9074200e-01,.9851000e-01,.1012900e+00,.9664100e-01,.6974600e-01/
4027 
4028  data absa(316:450, 5) / &
4029  & .2348000e-02,.2723000e-01,.4167100e-01,.5356500e-01,.6343600e-01,&
4030  & .7099900e-01,.7502000e-01,.7290600e-01,.4938600e-01,.2651700e-02,&
4031  & .2906500e-01,.4401700e-01,.5622500e-01,.6634100e-01,.7393500e-01,&
4032  & .7787900e-01,.7546800e-01,.5175000e-01,.3028500e-02,.3111200e-01,&
4033  & .4659800e-01,.5916100e-01,.6930200e-01,.7680900e-01,.8043900e-01,&
4034  & .7772900e-01,.5390400e-01,.3481600e-02,.3334800e-01,.4944800e-01,&
4035  & .6238000e-01,.7250200e-01,.7978600e-01,.8288700e-01,.7968300e-01,&
4036  & .5573100e-01,.4044400e-02,.3573000e-01,.5254500e-01,.6579400e-01,&
4037  & .7587800e-01,.8288900e-01,.8537900e-01,.8139100e-01,.5750900e-01,&
4038  & .1924700e-02,.2263000e-01,.3475200e-01,.4438700e-01,.5245500e-01,&
4039  & .5883300e-01,.6246800e-01,.6071900e-01,.4188000e-01,.2155700e-02,&
4040  & .2420400e-01,.3675000e-01,.4663600e-01,.5497600e-01,.6142100e-01,&
4041  & .6505200e-01,.6299400e-01,.4401000e-01,.2447700e-02,.2595800e-01,&
4042  & .3898100e-01,.4910800e-01,.5752600e-01,.6390700e-01,.6735100e-01,&
4043  & .6503800e-01,.4592900e-01,.2819600e-02,.2788200e-01,.4143100e-01,&
4044  & .5180200e-01,.6024900e-01,.6648000e-01,.6946700e-01,.6678800e-01,&
4045  & .4755500e-01,.3265400e-02,.2993900e-01,.4407200e-01,.5471400e-01,&
4046  & .6316300e-01,.6920700e-01,.7160000e-01,.6832800e-01,.4907700e-01,&
4047  & .1620000e-02,.1881400e-01,.2891100e-01,.3702500e-01,.4347900e-01,&
4048  & .4869100e-01,.5176700e-01,.5051700e-01,.3656500e-01,.1803100e-02,&
4049  & .2015000e-01,.3063200e-01,.3896700e-01,.4560900e-01,.5094000e-01,&
4050  & .5404600e-01,.5251500e-01,.3842500e-01,.2023200e-02,.2164000e-01,&
4051  & .3257200e-01,.4107900e-01,.4778800e-01,.5310100e-01,.5611400e-01,&
4052  & .5433800e-01,.4016200e-01,.2303800e-02,.2329800e-01,.3470300e-01,&
4053  & .4339300e-01,.5011000e-01,.5529800e-01,.5798200e-01,.5587300e-01,&
4054  & .4178200e-01,.2664900e-02,.2507300e-01,.3698300e-01,.4586800e-01,&
4055  & .5261700e-01,.5764100e-01,.5983300e-01,.5722200e-01,.4324300e-01/
4056 
4057  data absa(451:585, 5) / &
4058  & .1424100e-02,.1606500e-01,.2458600e-01,.3146500e-01,.3696300e-01,&
4059  & .4109300e-01,.4361700e-01,.4267300e-01,.3234300e-01,.1587800e-02,&
4060  & .1726800e-01,.2614400e-01,.3316900e-01,.3881600e-01,.4298800e-01,&
4061  & .4554600e-01,.4432700e-01,.3405400e-01,.1800300e-02,.1860900e-01,&
4062  & .2788800e-01,.3506600e-01,.4071700e-01,.4486100e-01,.4727700e-01,&
4063  & .4584500e-01,.3556200e-01,.2051300e-02,.2006900e-01,.2979400e-01,&
4064  & .3714700e-01,.4278100e-01,.4677400e-01,.4886900e-01,.4710600e-01,&
4065  & .3688100e-01,.2361000e-02,.2163600e-01,.3178600e-01,.3934100e-01,&
4066  & .4496400e-01,.4883200e-01,.5047800e-01,.4823700e-01,.3813600e-01,&
4067  & .1236700e-02,.1366400e-01,.2084100e-01,.2661900e-01,.3125800e-01,&
4068  & .3476600e-01,.3666500e-01,.3587300e-01,.2781100e-01,.1389800e-02,&
4069  & .1474700e-01,.2223800e-01,.2813400e-01,.3287600e-01,.3639200e-01,&
4070  & .3828600e-01,.3725700e-01,.2921200e-01,.1582200e-02,.1592000e-01,&
4071  & .2380800e-01,.2983000e-01,.3455800e-01,.3801400e-01,.3972800e-01,&
4072  & .3849300e-01,.3051700e-01,.1811700e-02,.1719500e-01,.2547900e-01,&
4073  & .3166400e-01,.3637800e-01,.3967500e-01,.4109800e-01,.3955300e-01,&
4074  & .3170500e-01,.2099600e-02,.1856700e-01,.2722500e-01,.3357100e-01,&
4075  & .3830200e-01,.4143700e-01,.4250100e-01,.4052500e-01,.3274800e-01,&
4076  & .1060600e-02,.1159400e-01,.1761600e-01,.2245600e-01,.2633700e-01,&
4077  & .2928200e-01,.3083100e-01,.3003700e-01,.2325100e-01,.1197500e-02,&
4078  & .1254100e-01,.1885000e-01,.2379500e-01,.2774500e-01,.3067600e-01,&
4079  & .3219100e-01,.3118600e-01,.2446100e-01,.1368600e-02,.1355700e-01,&
4080  & .2023600e-01,.2528700e-01,.2922400e-01,.3208500e-01,.3341100e-01,&
4081  & .3219000e-01,.2553900e-01,.1578700e-02,.1465500e-01,.2168500e-01,&
4082  & .2688700e-01,.3082100e-01,.3353300e-01,.3458100e-01,.3309100e-01,&
4083  & .2648300e-01,.1842200e-02,.1584700e-01,.2320100e-01,.2853500e-01,&
4084  & .3248600e-01,.3505900e-01,.3579100e-01,.3394200e-01,.2734000e-01/
4085 
4086  data absa( 1:180, 6) / &
4087  & .3839378e+00,.6279180e+00,.7318272e+00,.7920608e+00,.8216785e+00,&
4088  & .8230008e+00,.7947126e+00,.7302326e+00,.5811177e+00,.4128871e+00,&
4089  & .6485557e+00,.7485293e+00,.8043995e+00,.8308183e+00,.8293298e+00,&
4090  & .7988096e+00,.7334673e+00,.5866991e+00,.4408435e+00,.6690805e+00,&
4091  & .7652913e+00,.8177871e+00,.8406473e+00,.8361296e+00,.8033672e+00,&
4092  & .7370020e+00,.5912609e+00,.4672892e+00,.6894163e+00,.7820258e+00,&
4093  & .8313814e+00,.8509556e+00,.8436351e+00,.8085369e+00,.7402632e+00,&
4094  & .5956103e+00,.4927709e+00,.7092005e+00,.7986459e+00,.8452246e+00,&
4095  & .8615155e+00,.8516325e+00,.8138231e+00,.7437317e+00,.5997054e+00,&
4096  & .3325679e+00,.5548358e+00,.6461479e+00,.6995525e+00,.7253118e+00,&
4097  & .7266814e+00,.7024839e+00,.6480527e+00,.5065275e+00,.3575484e+00,&
4098  & .5737759e+00,.6620339e+00,.7123154e+00,.7348811e+00,.7336335e+00,&
4099  & .7074669e+00,.6519501e+00,.5119171e+00,.3814205e+00,.5923353e+00,&
4100  & .6775822e+00,.7253565e+00,.7450096e+00,.7412995e+00,.7131653e+00,&
4101  & .6558395e+00,.5167702e+00,.4042236e+00,.6103975e+00,.6930426e+00,&
4102  & .7383493e+00,.7554787e+00,.7494988e+00,.7190075e+00,.6598135e+00,&
4103  & .5211434e+00,.4265822e+00,.6282698e+00,.7082747e+00,.7513798e+00,&
4104  & .7663755e+00,.7576413e+00,.7252801e+00,.6640475e+00,.5252205e+00,&
4105  & .2819028e+00,.4836690e+00,.5649400e+00,.6121709e+00,.6347883e+00,&
4106  & .6367827e+00,.6170448e+00,.5707116e+00,.4371090e+00,.3032609e+00,&
4107  & .5006309e+00,.5795105e+00,.6243936e+00,.6444057e+00,.6442898e+00,&
4108  & .6228572e+00,.5750819e+00,.4422485e+00,.3236861e+00,.5170268e+00,&
4109  & .5937689e+00,.6365222e+00,.6544181e+00,.6524051e+00,.6289736e+00,&
4110  & .5795020e+00,.4469729e+00,.3434421e+00,.5330792e+00,.6078864e+00,&
4111  & .6485227e+00,.6647491e+00,.6605735e+00,.6354043e+00,.5840256e+00,&
4112  & .4512681e+00,.3630007e+00,.5490413e+00,.6217655e+00,.6606764e+00,&
4113  & .6752251e+00,.6688803e+00,.6420320e+00,.5886154e+00,.4550732e+00,&
4114  & .2364425e+00,.4182373e+00,.4906262e+00,.5320011e+00,.5523509e+00,&
4115  & .5548703e+00,.5383899e+00,.4987899e+00,.3768887e+00,.2546801e+00,&
4116  & .4331987e+00,.5037554e+00,.5432869e+00,.5616903e+00,.5626459e+00,&
4117  & .5445887e+00,.5034773e+00,.3818393e+00,.2721315e+00,.4476600e+00,&
4118  & .5164741e+00,.5543752e+00,.5713544e+00,.5708581e+00,.5510757e+00,&
4119  & .5081946e+00,.3862452e+00,.2892043e+00,.4618692e+00,.5290503e+00,&
4120  & .5654304e+00,.5811711e+00,.5789470e+00,.5577046e+00,.5130234e+00,&
4121  & .3902090e+00,.3062774e+00,.4761272e+00,.5414198e+00,.5765335e+00,&
4122  & .5909044e+00,.5871126e+00,.5644694e+00,.5178294e+00,.3937875e+00/
4123 
4124  data absa(181:315, 6) / &
4125  & .1976097e+00,.3599556e+00,.4238261e+00,.4601500e+00,.4784937e+00,&
4126  & .4808783e+00,.4668807e+00,.4328773e+00,.3243113e+00,.2131404e+00,&
4127  & .3730680e+00,.4353477e+00,.4703740e+00,.4874113e+00,.4885689e+00,&
4128  & .4731711e+00,.4377759e+00,.3288869e+00,.2280961e+00,.3857179e+00,&
4129  & .4465292e+00,.4804726e+00,.4964950e+00,.4964579e+00,.4796823e+00,&
4130  & .4426578e+00,.3330323e+00,.2427415e+00,.3981437e+00,.4574729e+00,&
4131  & .4906220e+00,.5055377e+00,.5041976e+00,.4863363e+00,.4474608e+00,&
4132  & .3367502e+00,.2574916e+00,.4108035e+00,.4685214e+00,.5005586e+00,&
4133  & .5144711e+00,.5119125e+00,.4929884e+00,.4523415e+00,.3400646e+00,&
4134  & .1644599e+00,.3082155e+00,.3641066e+00,.3958133e+00,.4120577e+00,&
4135  & .4144583e+00,.4024002e+00,.3731548e+00,.2772332e+00,.1776815e+00,&
4136  & .3195976e+00,.3741572e+00,.4049902e+00,.4203131e+00,.4217397e+00,&
4137  & .4086238e+00,.3780822e+00,.2815278e+00,.1904154e+00,.3305911e+00,&
4138  & .3838882e+00,.4140681e+00,.4286082e+00,.4290731e+00,.4150352e+00,&
4139  & .3829532e+00,.2854673e+00,.2029594e+00,.3414094e+00,.3935449e+00,&
4140  & .4230885e+00,.4367885e+00,.4362952e+00,.4213065e+00,.3877874e+00,&
4141  & .2889571e+00,.2156141e+00,.3525176e+00,.4033758e+00,.4319990e+00,&
4142  & .4448634e+00,.4434057e+00,.4275549e+00,.3926902e+00,.2921021e+00,&
4143  & .1365354e+00,.2627938e+00,.3116032e+00,.3390470e+00,.3531982e+00,&
4144  & .3553931e+00,.3450681e+00,.3195057e+00,.2355642e+00,.1476945e+00,&
4145  & .2725931e+00,.3203697e+00,.3471668e+00,.3606270e+00,.3621563e+00,&
4146  & .3510351e+00,.3243608e+00,.2395644e+00,.1584917e+00,.2820807e+00,&
4147  & .3288732e+00,.3551503e+00,.3679817e+00,.3688657e+00,.3570843e+00,&
4148  & .3290971e+00,.2432894e+00,.1692002e+00,.2914586e+00,.3373668e+00,&
4149  & .3630273e+00,.3752511e+00,.3754063e+00,.3629045e+00,.3338612e+00,&
4150  & .2465948e+00,.1800234e+00,.3011255e+00,.3460817e+00,.3709814e+00,&
4151  & .3824342e+00,.3817964e+00,.3686830e+00,.3386098e+00,.2495277e+00/
4152 
4153  data absa(316:450, 6) / &
4154  & .1130524e+00,.2235733e+00,.2655973e+00,.2894880e+00,.3015165e+00,&
4155  & .3032589e+00,.2943333e+00,.2719817e+00,.1988483e+00,.1224152e+00,&
4156  & .2318861e+00,.2733317e+00,.2965534e+00,.3081331e+00,.3094246e+00,&
4157  & .2999446e+00,.2766238e+00,.2026511e+00,.1315214e+00,.2399609e+00,&
4158  & .2807287e+00,.3034743e+00,.3145900e+00,.3154081e+00,.3054644e+00,&
4159  & .2811905e+00,.2060707e+00,.1406060e+00,.2479709e+00,.2881554e+00,&
4160  & .3103325e+00,.3209441e+00,.3212333e+00,.3107742e+00,.2857474e+00,&
4161  & .2091635e+00,.1498138e+00,.2563308e+00,.2958019e+00,.3173622e+00,&
4162  & .3271974e+00,.3269371e+00,.3159983e+00,.2902250e+00,.2119359e+00,&
4163  & .9301188e-01,.1895129e+00,.2254431e+00,.2461449e+00,.2564128e+00,&
4164  & .2576877e+00,.2498578e+00,.2303767e+00,.1659328e+00,.1009065e+00,&
4165  & .1965526e+00,.2321100e+00,.2522877e+00,.2622065e+00,.2632244e+00,&
4166  & .2549826e+00,.2347053e+00,.1694537e+00,.1085578e+00,.2034287e+00,&
4167  & .2384465e+00,.2583058e+00,.2678405e+00,.2684545e+00,.2599040e+00,&
4168  & .2390279e+00,.1725782e+00,.1162137e+00,.2102907e+00,.2448387e+00,&
4169  & .2642935e+00,.2733148e+00,.2735764e+00,.2646745e+00,.2432888e+00,&
4170  & .1754745e+00,.1240561e+00,.2175246e+00,.2515388e+00,.2703899e+00,&
4171  & .2788204e+00,.2785885e+00,.2693407e+00,.2473703e+00,.1781073e+00,&
4172  & .7640796e-01,.1603808e+00,.1911818e+00,.2086778e+00,.2175552e+00,&
4173  & .2186307e+00,.2116034e+00,.1944515e+00,.1456540e+00,.8306947e-01,&
4174  & .1663339e+00,.1968047e+00,.2139806e+00,.2226600e+00,.2234720e+00,&
4175  & .2162217e+00,.1984391e+00,.1487611e+00,.8952871e-01,.1721996e+00,&
4176  & .2022331e+00,.2191642e+00,.2275327e+00,.2280233e+00,.2205353e+00,&
4177  & .2024797e+00,.1513787e+00,.9600912e-01,.1780570e+00,.2077289e+00,&
4178  & .2243376e+00,.2322476e+00,.2324865e+00,.2247285e+00,.2063451e+00,&
4179  & .1537312e+00,.1026970e+00,.1842930e+00,.2135640e+00,.2296382e+00,&
4180  & .2370510e+00,.2368348e+00,.2288014e+00,.2100442e+00,.1559266e+00/
4181 
4182  data absa(451:585, 6) / &
4183  & .6498651e-01,.1372893e+00,.1636307e+00,.1784508e+00,.1858229e+00,&
4184  & .1867364e+00,.1805030e+00,.1651282e+00,.1253243e+00,.7051877e-01,&
4185  & .1422924e+00,.1682882e+00,.1829691e+00,.1901293e+00,.1907854e+00,&
4186  & .1844056e+00,.1688531e+00,.1278858e+00,.7594246e-01,.1472381e+00,&
4187  & .1729539e+00,.1873767e+00,.1942330e+00,.1947083e+00,.1880933e+00,&
4188  & .1724213e+00,.1301325e+00,.8152013e-01,.1524039e+00,.1778017e+00,&
4189  & .1918315e+00,.1983471e+00,.1985237e+00,.1916908e+00,.1757953e+00,&
4190  & .1322663e+00,.8732427e-01,.1579555e+00,.1829727e+00,.1965737e+00,&
4191  & .2026361e+00,.2023437e+00,.1952484e+00,.1791155e+00,.1342170e+00,&
4192  & .5506321e-01,.1168681e+00,.1392111e+00,.1518638e+00,.1581057e+00,&
4193  & .1587078e+00,.1534476e+00,.1400850e+00,.1080712e+00,.5967938e-01,&
4194  & .1210769e+00,.1431802e+00,.1556769e+00,.1617277e+00,.1621446e+00,&
4195  & .1567559e+00,.1434036e+00,.1102933e+00,.6432180e-01,.1253570e+00,&
4196  & .1472032e+00,.1594570e+00,.1652341e+00,.1654796e+00,.1599072e+00,&
4197  & .1464712e+00,.1123711e+00,.6912124e-01,.1299527e+00,.1515000e+00,&
4198  & .1634309e+00,.1688516e+00,.1687937e+00,.1630152e+00,.1494484e+00,&
4199  & .1143749e+00,.7411322e-01,.1349524e+00,.1561843e+00,.1676813e+00,&
4200  & .1726787e+00,.1722628e+00,.1662240e+00,.1523717e+00,.1162707e+00,&
4201  & .4671501e-01,.9906607e-01,.1179218e+00,.1285633e+00,.1338684e+00,&
4202  & .1344469e+00,.1299950e+00,.1186902e+00,.9160652e-01,.5062345e-01,&
4203  & .1026419e+00,.1213067e+00,.1318081e+00,.1369356e+00,.1373840e+00,&
4204  & .1328006e+00,.1215065e+00,.9359446e-01,.5459974e-01,.1064175e+00,&
4205  & .1248279e+00,.1351247e+00,.1399943e+00,.1402452e+00,.1355160e+00,&
4206  & .1241771e+00,.9556170e-01,.5873868e-01,.1105265e+00,.1286741e+00,&
4207  & .1386392e+00,.1431974e+00,.1431960e+00,.1382828e+00,.1267833e+00,&
4208  & .9738167e-01,.6302475e-01,.1149971e+00,.1329313e+00,.1425338e+00,&
4209  & .1467358e+00,.1463643e+00,.1411782e+00,.1293360e+00,.9929140e-01/
4210 
4211  data absa( 1:180, 7) / &
4212  & .2084400e+01,.2334400e+01,.2557600e+01,.2670100e+01,.2701000e+01,&
4213  & .2668100e+01,.2568300e+01,.2365500e+01,.2081000e+01,.2080700e+01,&
4214  & .2330400e+01,.2548900e+01,.2661100e+01,.2692000e+01,.2660900e+01,&
4215  & .2564700e+01,.2364500e+01,.2085900e+01,.2087700e+01,.2334200e+01,&
4216  & .2547700e+01,.2654800e+01,.2684300e+01,.2654100e+01,.2560500e+01,&
4217  & .2363700e+01,.2090300e+01,.2105200e+01,.2345400e+01,.2552000e+01,&
4218  & .2652900e+01,.2677800e+01,.2647800e+01,.2556500e+01,.2363000e+01,&
4219  & .2093500e+01,.2130300e+01,.2363300e+01,.2561900e+01,.2654600e+01,&
4220  & .2674900e+01,.2642900e+01,.2554200e+01,.2361900e+01,.2095800e+01,&
4221  & .1812000e+01,.2110100e+01,.2320400e+01,.2426600e+01,.2465700e+01,&
4222  & .2446900e+01,.2370200e+01,.2193100e+01,.1866900e+01,.1818700e+01,&
4223  & .2113700e+01,.2318800e+01,.2422300e+01,.2462000e+01,.2443600e+01,&
4224  & .2368700e+01,.2194400e+01,.1872600e+01,.1835600e+01,.2125500e+01,&
4225  & .2325600e+01,.2423200e+01,.2459000e+01,.2440700e+01,.2367400e+01,&
4226  & .2196000e+01,.1877600e+01,.1861400e+01,.2144700e+01,.2338600e+01,&
4227  & .2428700e+01,.2459500e+01,.2438700e+01,.2367200e+01,.2197000e+01,&
4228  & .1881600e+01,.1892700e+01,.2168300e+01,.2357900e+01,.2439200e+01,&
4229  & .2463600e+01,.2440700e+01,.2366500e+01,.2197400e+01,.1886400e+01,&
4230  & .1570200e+01,.1894200e+01,.2083700e+01,.2185400e+01,.2232400e+01,&
4231  & .2226600e+01,.2164900e+01,.2013400e+01,.1661700e+01,.1582700e+01,&
4232  & .1903800e+01,.2088600e+01,.2186500e+01,.2232900e+01,.2226600e+01,&
4233  & .2164900e+01,.2016700e+01,.1669500e+01,.1604600e+01,.1921300e+01,&
4234  & .2101900e+01,.2194200e+01,.2236000e+01,.2227100e+01,.2166500e+01,&
4235  & .2019500e+01,.1676200e+01,.1632900e+01,.1944300e+01,.2121300e+01,&
4236  & .2207000e+01,.2242400e+01,.2231100e+01,.2168300e+01,.2021400e+01,&
4237  & .1683000e+01,.1665800e+01,.1971700e+01,.2145200e+01,.2225100e+01,&
4238  & .2253000e+01,.2237100e+01,.2170800e+01,.2023800e+01,.1690400e+01,&
4239  & .1356400e+01,.1686900e+01,.1855000e+01,.1953700e+01,.2004900e+01,&
4240  & .2008500e+01,.1960100e+01,.1828700e+01,.1475600e+01,.1372000e+01,&
4241  & .1700000e+01,.1865500e+01,.1960700e+01,.2010000e+01,.2010500e+01,&
4242  & .1962200e+01,.1833900e+01,.1485400e+01,.1395200e+01,.1720400e+01,&
4243  & .1883700e+01,.1974000e+01,.2018200e+01,.2015400e+01,.1965400e+01,&
4244  & .1838400e+01,.1494800e+01,.1422900e+01,.1746100e+01,.1907200e+01,&
4245  & .1992600e+01,.2030300e+01,.2023400e+01,.1969100e+01,.1842000e+01,&
4246  & .1504000e+01,.1453400e+01,.1775100e+01,.1934500e+01,.2015400e+01,&
4247  & .2046700e+01,.2033700e+01,.1974200e+01,.1846500e+01,.1513100e+01/
4248 
4249  data absa(181:315, 7) / &
4250  & .1167500e+01,.1490600e+01,.1642200e+01,.1736400e+01,.1787500e+01,&
4251  & .1797000e+01,.1758200e+01,.1645900e+01,.1305700e+01,.1183900e+01,&
4252  & .1506200e+01,.1657300e+01,.1748300e+01,.1795600e+01,.1802000e+01,&
4253  & .1762300e+01,.1652900e+01,.1317600e+01,.1206100e+01,.1528100e+01,&
4254  & .1679000e+01,.1766000e+01,.1808200e+01,.1810600e+01,.1767800e+01,&
4255  & .1658700e+01,.1328900e+01,.1231100e+01,.1554900e+01,.1704800e+01,&
4256  & .1787700e+01,.1825000e+01,.1822200e+01,.1774200e+01,.1664400e+01,&
4257  & .1339800e+01,.1258200e+01,.1583600e+01,.1733800e+01,.1813100e+01,&
4258  & .1845700e+01,.1835900e+01,.1782600e+01,.1671000e+01,.1350700e+01,&
4259  & .9998100e+00,.1308000e+01,.1447700e+01,.1535600e+01,.1582900e+01,&
4260  & .1593600e+01,.1563600e+01,.1468300e+01,.1148200e+01,.1015100e+01,&
4261  & .1325100e+01,.1465500e+01,.1550400e+01,.1594100e+01,.1601500e+01,&
4262  & .1569800e+01,.1476700e+01,.1161900e+01,.1034400e+01,.1347600e+01,&
4263  & .1488700e+01,.1570200e+01,.1609700e+01,.1613000e+01,.1577200e+01,&
4264  & .1484700e+01,.1174300e+01,.1056000e+01,.1373500e+01,.1515500e+01,&
4265  & .1593900e+01,.1629300e+01,.1627600e+01,.1587000e+01,.1492400e+01,&
4266  & .1186400e+01,.1079400e+01,.1399600e+01,.1543800e+01,.1620500e+01,&
4267  & .1652100e+01,.1645100e+01,.1599100e+01,.1500300e+01,.1198200e+01,&
4268  & .8523900e+00,.1141900e+01,.1271400e+01,.1350700e+01,.1393000e+01,&
4269  & .1403900e+01,.1379000e+01,.1297100e+01,.1003400e+01,.8654200e+00,&
4270  & .1159100e+01,.1289800e+01,.1367000e+01,.1406200e+01,.1413900e+01,&
4271  & .1387100e+01,.1307200e+01,.1017900e+01,.8810800e+00,.1180900e+01,&
4272  & .1313000e+01,.1388000e+01,.1424100e+01,.1427800e+01,.1397500e+01,&
4273  & .1317200e+01,.1031000e+01,.8990000e+00,.1204100e+01,.1339000e+01,&
4274  & .1412300e+01,.1445500e+01,.1445300e+01,.1410500e+01,.1326600e+01,&
4275  & .1043400e+01,.9186200e+00,.1227900e+01,.1364900e+01,.1438600e+01,&
4276  & .1469200e+01,.1466400e+01,.1425400e+01,.1336700e+01,.1055800e+01/
4277 
4278  data absa(316:450, 7) / &
4279  & .7249700e+00,.9920100e+00,.1110700e+01,.1181300e+01,.1219500e+01,&
4280  & .1228500e+01,.1205800e+01,.1135900e+01,.8711000e+00,.7351700e+00,&
4281  & .1008600e+01,.1128500e+01,.1198800e+01,.1234200e+01,.1240500e+01,&
4282  & .1216000e+01,.1147900e+01,.8856800e+00,.7475200e+00,.1028500e+01,&
4283  & .1150700e+01,.1219800e+01,.1253200e+01,.1257000e+01,.1228900e+01,&
4284  & .1158900e+01,.8992700e+00,.7621300e+00,.1048900e+01,.1174700e+01,&
4285  & .1243600e+01,.1275700e+01,.1276900e+01,.1244500e+01,.1170000e+01,&
4286  & .9120300e+00,.7785400e+00,.1069700e+01,.1198000e+01,.1267900e+01,&
4287  & .1300200e+01,.1299400e+01,.1262100e+01,.1181600e+01,.9239200e+00,&
4288  & .6168200e+00,.8584100e+00,.9640300e+00,.1027200e+01,.1060600e+01,&
4289  & .1067900e+01,.1047200e+01,.9871500e+00,.7482500e+00,.6241500e+00,&
4290  & .8740100e+00,.9814000e+00,.1044600e+01,.1076300e+01,.1081100e+01,&
4291  & .1059300e+01,.1000300e+01,.7629400e+00,.6338700e+00,.8910400e+00,&
4292  & .1002200e+01,.1065100e+01,.1096200e+01,.1099700e+01,.1074000e+01,&
4293  & .1012000e+01,.7765900e+00,.6454200e+00,.9087200e+00,.1023000e+01,&
4294  & .1087800e+01,.1118800e+01,.1120700e+01,.1091100e+01,.1024300e+01,&
4295  & .7890500e+00,.6590000e+00,.9267400e+00,.1043600e+01,.1110300e+01,&
4296  & .1142400e+01,.1143500e+01,.1110200e+01,.1037500e+01,.8003400e+00,&
4297  & .5254700e+00,.7422000e+00,.8343300e+00,.8889000e+00,.9174100e+00,&
4298  & .9233600e+00,.9053800e+00,.8531100e+00,.6469600e+00,.5306400e+00,&
4299  & .7560400e+00,.8510700e+00,.9058400e+00,.9336100e+00,.9383600e+00,&
4300  & .9186100e+00,.8662600e+00,.6606200e+00,.5380900e+00,.7703700e+00,&
4301  & .8694200e+00,.9256200e+00,.9540900e+00,.9577400e+00,.9342300e+00,&
4302  & .8787100e+00,.6739100e+00,.5473400e+00,.7857600e+00,.8873400e+00,&
4303  & .9463400e+00,.9761100e+00,.9789000e+00,.9525300e+00,.8919100e+00,&
4304  & .6852600e+00,.5584200e+00,.8012900e+00,.9054200e+00,.9667500e+00,&
4305  & .9978100e+00,.1001300e+01,.9725300e+00,.9059700e+00,.6958300e+00/
4306 
4307  data absa(451:585, 7) / &
4308  & .4490200e+00,.6464100e+00,.7268200e+00,.7729500e+00,.7967900e+00,&
4309  & .8009500e+00,.7847800e+00,.7388000e+00,.5750000e+00,.4534300e+00,&
4310  & .6581900e+00,.7425900e+00,.7903000e+00,.8150900e+00,.8186600e+00,&
4311  & .7996000e+00,.7513700e+00,.5878400e+00,.4596800e+00,.6709400e+00,&
4312  & .7581200e+00,.8089800e+00,.8352200e+00,.8385400e+00,.8171100e+00,&
4313  & .7646100e+00,.5993900e+00,.4676400e+00,.6841800e+00,.7740200e+00,&
4314  & .8271100e+00,.8551800e+00,.8596800e+00,.8363400e+00,.7785900e+00,&
4315  & .6095400e+00,.4775000e+00,.6979800e+00,.7902100e+00,.8453400e+00,&
4316  & .8748000e+00,.8801100e+00,.8559500e+00,.7926900e+00,.6189600e+00,&
4317  & .3825200e+00,.5612300e+00,.6322100e+00,.6720700e+00,.6919100e+00,&
4318  & .6945100e+00,.6785300e+00,.6367100e+00,.4962400e+00,.3861000e+00,&
4319  & .5715200e+00,.6455900e+00,.6885700e+00,.7099200e+00,.7125000e+00,&
4320  & .6944000e+00,.6494800e+00,.5077200e+00,.3913500e+00,.5825100e+00,&
4321  & .6595300e+00,.7045900e+00,.7279300e+00,.7318800e+00,.7125100e+00,&
4322  & .6631400e+00,.5177100e+00,.3983800e+00,.5940600e+00,.6735700e+00,&
4323  & .7206600e+00,.7457000e+00,.7507500e+00,.7310800e+00,.6769600e+00,&
4324  & .5268000e+00,.4078500e+00,.6062800e+00,.6880200e+00,.7368500e+00,&
4325  & .7634200e+00,.7684200e+00,.7485700e+00,.6913500e+00,.5340800e+00,&
4326  & .3229700e+00,.4855600e+00,.5476000e+00,.5835000e+00,.6007900e+00,&
4327  & .6011600e+00,.5851800e+00,.5469900e+00,.4227600e+00,.3259100e+00,&
4328  & .4944500e+00,.5596300e+00,.5976400e+00,.6165400e+00,.6184400e+00,&
4329  & .6014900e+00,.5597300e+00,.4328000e+00,.3305700e+00,.5040500e+00,&
4330  & .5718400e+00,.6118600e+00,.6323900e+00,.6355700e+00,.6186400e+00,&
4331  & .5730500e+00,.4415100e+00,.3370500e+00,.5142700e+00,.5842800e+00,&
4332  & .6261400e+00,.6482500e+00,.6517500e+00,.6349200e+00,.5868900e+00,&
4333  & .4489300e+00,.3463600e+00,.5254400e+00,.5974000e+00,.6405500e+00,&
4334  & .6634200e+00,.6673600e+00,.6500200e+00,.6005500e+00,.4548700e+00/
4335 
4336  data absa( 1:180, 8) / &
4337  & .8454475e+01,.7946981e+01,.8106902e+01,.8293415e+01,.8302744e+01,&
4338  & .8132473e+01,.7748332e+01,.7379908e+01,.7837216e+01,.8369020e+01,&
4339  & .7875895e+01,.8045177e+01,.8244563e+01,.8270709e+01,.8116300e+01,&
4340  & .7749859e+01,.7393894e+01,.7847366e+01,.8285211e+01,.7804773e+01,&
4341  & .7981608e+01,.8194058e+01,.8236878e+01,.8095655e+01,.7745523e+01,&
4342  & .7401744e+01,.7853486e+01,.8206631e+01,.7736200e+01,.7920325e+01,&
4343  & .8142313e+01,.8201279e+01,.8071188e+01,.7732988e+01,.7403543e+01,&
4344  & .7855384e+01,.8131353e+01,.7669212e+01,.7859419e+01,.8089006e+01,&
4345  & .8160968e+01,.8041936e+01,.7714112e+01,.7402770e+01,.7854506e+01,&
4346  & .8035329e+01,.7711984e+01,.8054326e+01,.8312552e+01,.8382878e+01,&
4347  & .8255716e+01,.7865615e+01,.7362355e+01,.7659280e+01,.7952578e+01,&
4348  & .7639845e+01,.7991063e+01,.8263177e+01,.8347848e+01,.8239605e+01,&
4349  & .7870529e+01,.7384107e+01,.7682523e+01,.7876313e+01,.7571250e+01,&
4350  & .7929061e+01,.8212430e+01,.8313538e+01,.8219780e+01,.7866208e+01,&
4351  & .7395265e+01,.7697467e+01,.7805455e+01,.7505993e+01,.7868255e+01,&
4352  & .8161157e+01,.8275309e+01,.8195732e+01,.7853413e+01,.7398979e+01,&
4353  & .7704855e+01,.7742281e+01,.7447306e+01,.7808392e+01,.8111167e+01,&
4354  & .8233033e+01,.8164826e+01,.7836884e+01,.7399520e+01,.7708591e+01,&
4355  & .7532706e+01,.7422731e+01,.7921038e+01,.8241749e+01,.8361773e+01,&
4356  & .8264953e+01,.7883764e+01,.7273843e+01,.7366162e+01,.7456853e+01,&
4357  & .7352022e+01,.7858416e+01,.8192991e+01,.8327704e+01,.8251231e+01,&
4358  & .7894283e+01,.7297668e+01,.7395152e+01,.7388143e+01,.7286773e+01,&
4359  & .7797671e+01,.8142220e+01,.8291520e+01,.8232710e+01,.7892900e+01,&
4360  & .7312768e+01,.7415601e+01,.7329897e+01,.7229298e+01,.7738967e+01,&
4361  & .8093725e+01,.8253763e+01,.8209025e+01,.7884574e+01,.7322979e+01,&
4362  & .7429711e+01,.7281243e+01,.7179080e+01,.7684292e+01,.8043638e+01,&
4363  & .8212576e+01,.8180221e+01,.7872560e+01,.7328406e+01,.7440260e+01,&
4364  & .6960506e+01,.7084860e+01,.7692419e+01,.8072395e+01,.8231420e+01,&
4365  & .8158941e+01,.7802620e+01,.7115961e+01,.6985525e+01,.6890460e+01,&
4366  & .7017186e+01,.7632657e+01,.8022920e+01,.8197430e+01,.8148687e+01,&
4367  & .7816871e+01,.7144322e+01,.7020806e+01,.6833009e+01,.6958106e+01,&
4368  & .7575897e+01,.7974036e+01,.8162581e+01,.8133025e+01,.7819855e+01,&
4369  & .7167278e+01,.7050824e+01,.6788341e+01,.6907823e+01,.7522755e+01,&
4370  & .7926643e+01,.8125775e+01,.8111753e+01,.7815827e+01,.7185676e+01,&
4371  & .7075641e+01,.6757259e+01,.6867282e+01,.7475452e+01,.7880340e+01,&
4372  & .8087458e+01,.8084863e+01,.7806464e+01,.7198807e+01,.7097443e+01/
4373 
4374  data absa(181:315, 8) / &
4375  & .6340185e+01,.6707242e+01,.7374216e+01,.7801587e+01,.7986307e+01,&
4376  & .7935884e+01,.7614843e+01,.6902656e+01,.6547120e+01,.6278416e+01,&
4377  & .6644090e+01,.7317234e+01,.7752832e+01,.7957040e+01,.7930429e+01,&
4378  & .7630569e+01,.6936644e+01,.6589898e+01,.6232993e+01,.6592439e+01,&
4379  & .7264591e+01,.7707509e+01,.7925533e+01,.7918826e+01,.7635078e+01,&
4380  & .6967951e+01,.6630153e+01,.6204934e+01,.6551194e+01,.7219795e+01,&
4381  & .7664391e+01,.7893004e+01,.7899675e+01,.7635240e+01,.6992659e+01,&
4382  & .6663746e+01,.6191620e+01,.6521893e+01,.7181052e+01,.7625747e+01,&
4383  & .7860409e+01,.7878371e+01,.7631859e+01,.7008584e+01,.6691435e+01,&
4384  & .5701027e+01,.6282840e+01,.6983217e+01,.7436614e+01,.7637531e+01,&
4385  & .7613654e+01,.7322878e+01,.6631103e+01,.6068872e+01,.5649363e+01,&
4386  & .6225960e+01,.6931874e+01,.7392920e+01,.7615331e+01,.7612305e+01,&
4387  & .7340268e+01,.6671266e+01,.6121220e+01,.5616215e+01,.6181108e+01,&
4388  & .6886667e+01,.7353790e+01,.7592183e+01,.7603387e+01,.7349200e+01,&
4389  & .6709222e+01,.6171471e+01,.5602211e+01,.6150585e+01,.6849555e+01,&
4390  & .7318623e+01,.7568758e+01,.7589509e+01,.7355024e+01,.6738001e+01,&
4391  & .6212573e+01,.5606495e+01,.6135466e+01,.6822413e+01,.7289641e+01,&
4392  & .7542848e+01,.7572934e+01,.7357114e+01,.6757793e+01,.6246128e+01,&
4393  & .5069814e+01,.5819946e+01,.6539483e+01,.6990273e+01,.7204566e+01,&
4394  & .7201912e+01,.6945088e+01,.6305330e+01,.5574348e+01,.5026679e+01,&
4395  & .5770074e+01,.6492443e+01,.6954397e+01,.7190065e+01,.7204039e+01,&
4396  & .6965377e+01,.6352224e+01,.5636607e+01,.5006597e+01,.5734952e+01,&
4397  & .6454389e+01,.6924197e+01,.7174636e+01,.7200149e+01,.6978142e+01,&
4398  & .6394579e+01,.5692813e+01,.5006429e+01,.5716643e+01,.6426495e+01,&
4399  & .6900048e+01,.7157117e+01,.7191321e+01,.6989772e+01,.6426021e+01,&
4400  & .5738457e+01,.5025396e+01,.5715867e+01,.6411783e+01,.6882764e+01,&
4401  & .7139311e+01,.7183117e+01,.6997950e+01,.6450090e+01,.5778441e+01/
4402 
4403  data absa(316:450, 8) / &
4404  & .4462234e+01,.5335655e+01,.6051411e+01,.6480333e+01,.6706714e+01,&
4405  & .6719742e+01,.6501878e+01,.5937436e+01,.5082003e+01,.4429084e+01,&
4406  & .5293651e+01,.6011247e+01,.6455537e+01,.6695967e+01,.6727139e+01,&
4407  & .6525443e+01,.5987665e+01,.5149466e+01,.4418913e+01,.5268426e+01,&
4408  & .5981934e+01,.6436217e+01,.6685886e+01,.6728405e+01,.6544585e+01,&
4409  & .6031729e+01,.5208404e+01,.4431057e+01,.5262879e+01,.5965884e+01,&
4410  & .6423698e+01,.6675347e+01,.6726852e+01,.6562473e+01,.6066482e+01,&
4411  & .5259098e+01,.4463604e+01,.5273803e+01,.5964332e+01,.6418269e+01,&
4412  & .6667516e+01,.6727383e+01,.6575984e+01,.6094410e+01,.5304372e+01,&
4413  & .3893017e+01,.4852214e+01,.5530986e+01,.5941479e+01,.6161053e+01,&
4414  & .6192794e+01,.6013485e+01,.5527651e+01,.4603839e+01,.3868292e+01,&
4415  & .4816432e+01,.5499970e+01,.5924581e+01,.6155187e+01,.6204798e+01,&
4416  & .6043116e+01,.5578514e+01,.4673568e+01,.3867315e+01,.4800668e+01,&
4417  & .5481603e+01,.5912694e+01,.6151550e+01,.6211560e+01,.6068531e+01,&
4418  & .5623715e+01,.4735833e+01,.3889089e+01,.4804843e+01,.5478401e+01,&
4419  & .5908385e+01,.6149321e+01,.6219065e+01,.6091671e+01,.5661853e+01,&
4420  & .4790546e+01,.3931954e+01,.4826464e+01,.5491042e+01,.5912928e+01,&
4421  & .6152912e+01,.6229107e+01,.6110084e+01,.5693512e+01,.4840222e+01,&
4422  & .3370800e+01,.4371741e+01,.4996837e+01,.5386824e+01,.5594880e+01,&
4423  & .5641906e+01,.5505250e+01,.5094350e+01,.4102630e+01,.3354024e+01,&
4424  & .4346187e+01,.4976577e+01,.5374389e+01,.5596429e+01,.5658447e+01,&
4425  & .5539483e+01,.5146897e+01,.4175662e+01,.3361375e+01,.4340181e+01,&
4426  & .4971228e+01,.5370928e+01,.5598179e+01,.5672261e+01,.5570116e+01,&
4427  & .5193502e+01,.4240227e+01,.3392497e+01,.4352744e+01,.4980679e+01,&
4428  & .5377112e+01,.5606443e+01,.5688563e+01,.5596813e+01,.5234384e+01,&
4429  & .4299382e+01,.3445749e+01,.4384734e+01,.5004059e+01,.5393218e+01,&
4430  & .5623134e+01,.5706956e+01,.5620707e+01,.5270254e+01,.4350295e+01/
4431 
4432  data absa(451:585, 8) / &
4433  & .2896690e+01,.3891858e+01,.4467847e+01,.4828220e+01,.5035892e+01,&
4434  & .5103952e+01,.5010639e+01,.4674849e+01,.3670107e+01,.2897792e+01,&
4435  & .3883888e+01,.4462186e+01,.4828076e+01,.5043823e+01,.5124270e+01,&
4436  & .5046967e+01,.4727706e+01,.3740688e+01,.2923572e+01,.3895453e+01,&
4437  & .4471923e+01,.4837551e+01,.5057813e+01,.5145441e+01,.5079272e+01,&
4438  & .4774390e+01,.3805013e+01,.2972461e+01,.3927241e+01,.4497456e+01,&
4439  & .4859388e+01,.5080493e+01,.5168972e+01,.5109386e+01,.4816374e+01,&
4440  & .3861922e+01,.3043384e+01,.3977838e+01,.4537492e+01,.4893037e+01,&
4441  & .5111190e+01,.5197160e+01,.5139056e+01,.4854089e+01,.3912075e+01,&
4442  & .2490281e+01,.3445349e+01,.3966257e+01,.4299151e+01,.4503210e+01,&
4443  & .4585981e+01,.4527887e+01,.4253375e+01,.3285333e+01,.2507718e+01,&
4444  & .3454661e+01,.3975474e+01,.4311153e+01,.4520893e+01,.4611552e+01,&
4445  & .4565739e+01,.4306696e+01,.3353145e+01,.2549112e+01,.3484385e+01,&
4446  & .4000658e+01,.4335871e+01,.4546759e+01,.4639747e+01,.4601392e+01,&
4447  & .4354901e+01,.3414904e+01,.2613534e+01,.3533116e+01,.4041205e+01,&
4448  & .4373302e+01,.4580520e+01,.4672532e+01,.4636635e+01,.4399031e+01,&
4449  & .3469339e+01,.2696279e+01,.3599603e+01,.4096892e+01,.4422225e+01,&
4450  & .4622150e+01,.4711302e+01,.4672921e+01,.4436995e+01,.3520495e+01,&
4451  & .2147723e+01,.3043091e+01,.3506523e+01,.3813045e+01,.4007672e+01,&
4452  & .4097762e+01,.4063337e+01,.3839253e+01,.2937518e+01,.2178826e+01,&
4453  & .3066802e+01,.3529383e+01,.3837562e+01,.4035183e+01,.4129716e+01,&
4454  & .4103957e+01,.3892792e+01,.3003047e+01,.2233352e+01,.3109540e+01,&
4455  & .3568948e+01,.3874858e+01,.4071147e+01,.4166460e+01,.4144730e+01,&
4456  & .3941453e+01,.3061753e+01,.2307024e+01,.3171315e+01,.3623581e+01,&
4457  & .3923493e+01,.4115241e+01,.4208646e+01,.4185941e+01,.3984848e+01,&
4458  & .3115620e+01,.2388613e+01,.3250521e+01,.3691760e+01,.3982688e+01,&
4459  & .4168532e+01,.4255448e+01,.4227404e+01,.4025674e+01,.3167770e+01/
4460 
4461  data absa( 1:180, 9) / &
4462  & .2529000e+02,.2237800e+02,.1968200e+02,.1909200e+02,.1840100e+02,&
4463  & .1733000e+02,.1719400e+02,.1951300e+02,.2154600e+02,.2515300e+02,&
4464  & .2225100e+02,.1957400e+02,.1900200e+02,.1830900e+02,.1734600e+02,&
4465  & .1716800e+02,.1946900e+02,.2151600e+02,.2499000e+02,.2210800e+02,&
4466  & .1945700e+02,.1889100e+02,.1819700e+02,.1734400e+02,.1715300e+02,&
4467  & .1943500e+02,.2151600e+02,.2478500e+02,.2192600e+02,.1931200e+02,&
4468  & .1877400e+02,.1811100e+02,.1730000e+02,.1716800e+02,.1942600e+02,&
4469  & .2152400e+02,.2456200e+02,.2172900e+02,.1914500e+02,.1865700e+02,&
4470  & .1804300e+02,.1723900e+02,.1719000e+02,.1940000e+02,.2151700e+02,&
4471  & .2673800e+02,.2363500e+02,.2116400e+02,.2088200e+02,.2013300e+02,&
4472  & .1895200e+02,.1839100e+02,.2039700e+02,.2275200e+02,.2657900e+02,&
4473  & .2349300e+02,.2102600e+02,.2077000e+02,.2004600e+02,.1892400e+02,&
4474  & .1835100e+02,.2030200e+02,.2267300e+02,.2636900e+02,.2330400e+02,&
4475  & .2084700e+02,.2063400e+02,.1995500e+02,.1886700e+02,.1835500e+02,&
4476  & .2027400e+02,.2264300e+02,.2614700e+02,.2310800e+02,.2066300e+02,&
4477  & .2049100e+02,.1987000e+02,.1879000e+02,.1836500e+02,.2027100e+02,&
4478  & .2263800e+02,.2587600e+02,.2286700e+02,.2045700e+02,.2030800e+02,&
4479  & .1978800e+02,.1872300e+02,.1835900e+02,.2024200e+02,.2261200e+02,&
4480  & .2780100e+02,.2455800e+02,.2262500e+02,.2245600e+02,.2176600e+02,&
4481  & .2072300e+02,.1978500e+02,.2119300e+02,.2381100e+02,.2758600e+02,&
4482  & .2436600e+02,.2244400e+02,.2234100e+02,.2167000e+02,.2065100e+02,&
4483  & .1973200e+02,.2116300e+02,.2377800e+02,.2736200e+02,.2416600e+02,&
4484  & .2223600e+02,.2220000e+02,.2157500e+02,.2055700e+02,.1971800e+02,&
4485  & .2115500e+02,.2378300e+02,.2708400e+02,.2391900e+02,.2201300e+02,&
4486  & .2201800e+02,.2147100e+02,.2045700e+02,.1970800e+02,.2113600e+02,&
4487  & .2376900e+02,.2679500e+02,.2366600e+02,.2179400e+02,.2182700e+02,&
4488  & .2135500e+02,.2037400e+02,.1965500e+02,.2109200e+02,.2372400e+02,&
4489  & .2832700e+02,.2502600e+02,.2391000e+02,.2372000e+02,.2326500e+02,&
4490  & .2239600e+02,.2108600e+02,.2185900e+02,.2464900e+02,.2809500e+02,&
4491  & .2481600e+02,.2368300e+02,.2359400e+02,.2315600e+02,.2230400e+02,&
4492  & .2102300e+02,.2187300e+02,.2467400e+02,.2781700e+02,.2456900e+02,&
4493  & .2345400e+02,.2344600e+02,.2303100e+02,.2218200e+02,.2102200e+02,&
4494  & .2187800e+02,.2468000e+02,.2752500e+02,.2431000e+02,.2322000e+02,&
4495  & .2326800e+02,.2290800e+02,.2209000e+02,.2102200e+02,.2182400e+02,&
4496  & .2462000e+02,.2719100e+02,.2402300e+02,.2299600e+02,.2307200e+02,&
4497  & .2276900e+02,.2202200e+02,.2098200e+02,.2173700e+02,.2451400e+02/
4498 
4499  data absa(181:315, 9) / &
4500  & .2825900e+02,.2501400e+02,.2490700e+02,.2470600e+02,.2464200e+02,&
4501  & .2391800e+02,.2233000e+02,.2221900e+02,.2509100e+02,.2799300e+02,&
4502  & .2477100e+02,.2466600e+02,.2459600e+02,.2448700e+02,.2381800e+02,&
4503  & .2234800e+02,.2226900e+02,.2514900e+02,.2769100e+02,.2449900e+02,&
4504  & .2442100e+02,.2443200e+02,.2434000e+02,.2370500e+02,.2242000e+02,&
4505  & .2224200e+02,.2510900e+02,.2735700e+02,.2421400e+02,.2417800e+02,&
4506  & .2425300e+02,.2419100e+02,.2364200e+02,.2242200e+02,.2217400e+02,&
4507  & .2503000e+02,.2700800e+02,.2391600e+02,.2393500e+02,.2406300e+02,&
4508  & .2402000e+02,.2357200e+02,.2235500e+02,.2213200e+02,.2495700e+02,&
4509  & .2762700e+02,.2484100e+02,.2541400e+02,.2551300e+02,.2578800e+02,&
4510  & .2516100e+02,.2356700e+02,.2238400e+02,.2509100e+02,.2731700e+02,&
4511  & .2455000e+02,.2516500e+02,.2538400e+02,.2557800e+02,.2508300e+02,&
4512  & .2366200e+02,.2242300e+02,.2510200e+02,.2699400e+02,.2425900e+02,&
4513  & .2492600e+02,.2520600e+02,.2539100e+02,.2501500e+02,.2375800e+02,&
4514  & .2236300e+02,.2502500e+02,.2664000e+02,.2394500e+02,.2469200e+02,&
4515  & .2500200e+02,.2519300e+02,.2497300e+02,.2373300e+02,.2232800e+02,&
4516  & .2496500e+02,.2626500e+02,.2362500e+02,.2444600e+02,.2478500e+02,&
4517  & .2503700e+02,.2490600e+02,.2365900e+02,.2235200e+02,.2496500e+02,&
4518  & .2643000e+02,.2458100e+02,.2543900e+02,.2614000e+02,.2652400e+02,&
4519  & .2597400e+02,.2455200e+02,.2244100e+02,.2449800e+02,.2610500e+02,&
4520  & .2426300e+02,.2522500e+02,.2597400e+02,.2631500e+02,.2594600e+02,&
4521  & .2467700e+02,.2247100e+02,.2449000e+02,.2575200e+02,.2393800e+02,&
4522  & .2499600e+02,.2574900e+02,.2611300e+02,.2592500e+02,.2475800e+02,&
4523  & .2244200e+02,.2445400e+02,.2538900e+02,.2360900e+02,.2476100e+02,&
4524  & .2549900e+02,.2594000e+02,.2591300e+02,.2472000e+02,.2247300e+02,&
4525  & .2447500e+02,.2501000e+02,.2326000e+02,.2451000e+02,.2526200e+02,&
4526  & .2580400e+02,.2581100e+02,.2464000e+02,.2254700e+02,.2453400e+02/
4527 
4528  data absa(316:450, 9) / &
4529  & .2476200e+02,.2399700e+02,.2520900e+02,.2646700e+02,.2674800e+02,&
4530  & .2636500e+02,.2509400e+02,.2235700e+02,.2340600e+02,.2442100e+02,&
4531  & .2367200e+02,.2498100e+02,.2621700e+02,.2659500e+02,.2637500e+02,&
4532  & .2519500e+02,.2243500e+02,.2345300e+02,.2406700e+02,.2333600e+02,&
4533  & .2475400e+02,.2595600e+02,.2645500e+02,.2636100e+02,.2524100e+02,&
4534  & .2245800e+02,.2347500e+02,.2369100e+02,.2299600e+02,.2450200e+02,&
4535  & .2569800e+02,.2633000e+02,.2634300e+02,.2519700e+02,.2253300e+02,&
4536  & .2357500e+02,.2331100e+02,.2266000e+02,.2423400e+02,.2545000e+02,&
4537  & .2621500e+02,.2620900e+02,.2512300e+02,.2264200e+02,.2370900e+02,&
4538  & .2280000e+02,.2301100e+02,.2479900e+02,.2618100e+02,.2653300e+02,&
4539  & .2630100e+02,.2504400e+02,.2207700e+02,.2190700e+02,.2243600e+02,&
4540  & .2269700e+02,.2454600e+02,.2594500e+02,.2646000e+02,.2631400e+02,&
4541  & .2512200e+02,.2220400e+02,.2202900e+02,.2207900e+02,.2236700e+02,&
4542  & .2429500e+02,.2570600e+02,.2637000e+02,.2628800e+02,.2516200e+02,&
4543  & .2231400e+02,.2215100e+02,.2171900e+02,.2202900e+02,.2401700e+02,&
4544  & .2548700e+02,.2627300e+02,.2621700e+02,.2511000e+02,.2243500e+02,&
4545  & .2233400e+02,.2134100e+02,.2170700e+02,.2370200e+02,.2528200e+02,&
4546  & .2615900e+02,.2608600e+02,.2506500e+02,.2257800e+02,.2250600e+02,&
4547  & .2060100e+02,.2167800e+02,.2405800e+02,.2535200e+02,.2593100e+02,&
4548  & .2571800e+02,.2443200e+02,.2160700e+02,.2026200e+02,.2025400e+02,&
4549  & .2134500e+02,.2379600e+02,.2518300e+02,.2587500e+02,.2569100e+02,&
4550  & .2450800e+02,.2177400e+02,.2044500e+02,.1989900e+02,.2104800e+02,&
4551  & .2349400e+02,.2500000e+02,.2580000e+02,.2566200e+02,.2453300e+02,&
4552  & .2192200e+02,.2063800e+02,.1954400e+02,.2076600e+02,.2320700e+02,&
4553  & .2482600e+02,.2568600e+02,.2559300e+02,.2452700e+02,.2208500e+02,&
4554  & .2083200e+02,.1919300e+02,.2047000e+02,.2293600e+02,.2467300e+02,&
4555  & .2554400e+02,.2548000e+02,.2453700e+02,.2221800e+02,.2104400e+02/
4556 
4557  data absa(451:585, 9) / &
4558  & .1817000e+02,.2015500e+02,.2272100e+02,.2414500e+02,.2479800e+02,&
4559  & .2455900e+02,.2340300e+02,.2089500e+02,.1874000e+02,.1783000e+02,&
4560  & .1986000e+02,.2247900e+02,.2401800e+02,.2472100e+02,.2455600e+02,&
4561  & .2346600e+02,.2106900e+02,.1894900e+02,.1749600e+02,.1957600e+02,&
4562  & .2224200e+02,.2388600e+02,.2462100e+02,.2452900e+02,.2352500e+02,&
4563  & .2123100e+02,.1914700e+02,.1716800e+02,.1929200e+02,.2200500e+02,&
4564  & .2373400e+02,.2451400e+02,.2447600e+02,.2358000e+02,.2137600e+02,&
4565  & .1936800e+02,.1684400e+02,.1901300e+02,.2177100e+02,.2357000e+02,&
4566  & .2439000e+02,.2444000e+02,.2365100e+02,.2151700e+02,.1961200e+02,&
4567  & .1576200e+02,.1861500e+02,.2113300e+02,.2263900e+02,.2321400e+02,&
4568  & .2302200e+02,.2206000e+02,.1995800e+02,.1731400e+02,.1545500e+02,&
4569  & .1834100e+02,.2094400e+02,.2251000e+02,.2314800e+02,.2304200e+02,&
4570  & .2216400e+02,.2012700e+02,.1754300e+02,.1515600e+02,.1806800e+02,&
4571  & .2076800e+02,.2237400e+02,.2308400e+02,.2306000e+02,.2225700e+02,&
4572  & .2027500e+02,.1777000e+02,.1486500e+02,.1779400e+02,.2058200e+02,&
4573  & .2223700e+02,.2301800e+02,.2307900e+02,.2235000e+02,.2042700e+02,&
4574  & .1802600e+02,.1461200e+02,.1753400e+02,.2039900e+02,.2208600e+02,&
4575  & .2295600e+02,.2311200e+02,.2244300e+02,.2060700e+02,.1828000e+02,&
4576  & .1351700e+02,.1691400e+02,.1942500e+02,.2079000e+02,.2136700e+02,&
4577  & .2131500e+02,.2060700e+02,.1887100e+02,.1596700e+02,.1324900e+02,&
4578  & .1668800e+02,.1927900e+02,.2069300e+02,.2134400e+02,.2137200e+02,&
4579  & .2072500e+02,.1904300e+02,.1621700e+02,.1299400e+02,.1646700e+02,&
4580  & .1910800e+02,.2060200e+02,.2134300e+02,.2143600e+02,.2083900e+02,&
4581  & .1921200e+02,.1649400e+02,.1278400e+02,.1625000e+02,.1895100e+02,&
4582  & .2050600e+02,.2133500e+02,.2150300e+02,.2096100e+02,.1941500e+02,&
4583  & .1677000e+02,.1273400e+02,.1604900e+02,.1881900e+02,.2043800e+02,&
4584  & .2132900e+02,.2157300e+02,.2110400e+02,.1962300e+02,.1698300e+02/
4585 
4586  data absa( 1:180,10) / &
4587  & .3587728e+02,.3163298e+02,.2744141e+02,.2457089e+02,.2397093e+02,&
4588  & .2424633e+02,.2723997e+02,.3121916e+02,.3444458e+02,.3583320e+02,&
4589  & .3160263e+02,.2742318e+02,.2450739e+02,.2389581e+02,.2409779e+02,&
4590  & .2700065e+02,.3092695e+02,.3408907e+02,.3574205e+02,.3152702e+02,&
4591  & .2736303e+02,.2442532e+02,.2382519e+02,.2395943e+02,.2677589e+02,&
4592  & .3065092e+02,.3375501e+02,.3559971e+02,.3140018e+02,.2725046e+02,&
4593  & .2431487e+02,.2372351e+02,.2384507e+02,.2657448e+02,.3041293e+02,&
4594  & .3346529e+02,.3540621e+02,.3122776e+02,.2710481e+02,.2417902e+02,&
4595  & .2360279e+02,.2374616e+02,.2639615e+02,.3021059e+02,.3322457e+02,&
4596  & .4028856e+02,.3550073e+02,.3077033e+02,.2797279e+02,.2711240e+02,&
4597  & .2689686e+02,.2944080e+02,.3377959e+02,.3768881e+02,.4023214e+02,&
4598  & .3545689e+02,.3073830e+02,.2787552e+02,.2703385e+02,.2679085e+02,&
4599  & .2921417e+02,.3349222e+02,.3733705e+02,.4012534e+02,.3536466e+02,&
4600  & .3066284e+02,.2776145e+02,.2693419e+02,.2667684e+02,.2898061e+02,&
4601  & .3321866e+02,.3700637e+02,.3994773e+02,.3520594e+02,.3052931e+02,&
4602  & .2761549e+02,.2681235e+02,.2656436e+02,.2878066e+02,.3297874e+02,&
4603  & .3672473e+02,.3972581e+02,.3501021e+02,.3036408e+02,.2745552e+02,&
4604  & .2667155e+02,.2645065e+02,.2861110e+02,.3278003e+02,.3649274e+02,&
4605  & .4476125e+02,.3941959e+02,.3422706e+02,.3167904e+02,.3052481e+02,&
4606  & .2973002e+02,.3165313e+02,.3629435e+02,.4090093e+02,.4471130e+02,&
4607  & .3937886e+02,.3418630e+02,.3155677e+02,.3043113e+02,.2965728e+02,&
4608  & .3143493e+02,.3600307e+02,.4054030e+02,.4457943e+02,.3926295e+02,&
4609  & .3408654e+02,.3140866e+02,.3032055e+02,.2958250e+02,.3123380e+02,&
4610  & .3573596e+02,.4022035e+02,.4439236e+02,.3909796e+02,.3394316e+02,&
4611  & .3123639e+02,.3018674e+02,.2947741e+02,.3105394e+02,.3550064e+02,&
4612  & .3995406e+02,.4412856e+02,.3886401e+02,.3374559e+02,.3104184e+02,&
4613  & .3002428e+02,.2936062e+02,.3091031e+02,.3530951e+02,.3974076e+02,&
4614  & .4910432e+02,.4321511e+02,.3779078e+02,.3556693e+02,.3409226e+02,&
4615  & .3283110e+02,.3395610e+02,.3866004e+02,.4376828e+02,.4902356e+02,&
4616  & .4314962e+02,.3771527e+02,.3544117e+02,.3399674e+02,.3277233e+02,&
4617  & .3377629e+02,.3837960e+02,.4342838e+02,.4888388e+02,.4302756e+02,&
4618  & .3758282e+02,.3527975e+02,.3389250e+02,.3269755e+02,.3359135e+02,&
4619  & .3810582e+02,.4311667e+02,.4865644e+02,.4282619e+02,.3740141e+02,&
4620  & .3507775e+02,.3374861e+02,.3258381e+02,.3342561e+02,.3789331e+02,&
4621  & .4287514e+02,.4836706e+02,.4257131e+02,.3716473e+02,.3485086e+02,&
4622  & .3357022e+02,.3245299e+02,.3329940e+02,.3773038e+02,.4269789e+02/
4623 
4624  data absa(181:315,10) / &
4625  & .5307594e+02,.4667483e+02,.4130685e+02,.3949369e+02,.3769718e+02,&
4626  & .3615626e+02,.3643522e+02,.4090265e+02,.4638012e+02,.5296984e+02,&
4627  & .4659097e+02,.4119161e+02,.3933623e+02,.3762920e+02,.3609076e+02,&
4628  & .3626818e+02,.4063453e+02,.4606837e+02,.5278655e+02,.4643245e+02,&
4629  & .4102506e+02,.3914923e+02,.3752838e+02,.3600030e+02,.3607944e+02,&
4630  & .4039533e+02,.4580658e+02,.5252049e+02,.4620146e+02,.4079758e+02,&
4631  & .3892166e+02,.3738707e+02,.3586925e+02,.3592354e+02,.4020885e+02,&
4632  & .4560089e+02,.5218739e+02,.4591040e+02,.4053117e+02,.3866135e+02,&
4633  & .3721768e+02,.3572048e+02,.3579033e+02,.4004272e+02,.4542333e+02,&
4634  & .5645060e+02,.4959535e+02,.4476419e+02,.4329540e+02,.4136555e+02,&
4635  & .3958949e+02,.3901626e+02,.4295054e+02,.4873997e+02,.5630605e+02,&
4636  & .4947453e+02,.4458064e+02,.4311329e+02,.4131649e+02,.3950972e+02,&
4637  & .3886403e+02,.4274257e+02,.4850859e+02,.5608434e+02,.4928505e+02,&
4638  & .4434892e+02,.4288710e+02,.4120465e+02,.3940634e+02,.3867749e+02,&
4639  & .4253840e+02,.4828479e+02,.5577797e+02,.4902368e+02,.4406590e+02,&
4640  & .4263870e+02,.4106511e+02,.3925611e+02,.3851716e+02,.4234391e+02,&
4641  & .4807363e+02,.5538906e+02,.4869020e+02,.4373996e+02,.4235043e+02,&
4642  & .4087593e+02,.3908727e+02,.3836821e+02,.4215132e+02,.4786703e+02,&
4643  & .5901771e+02,.5183601e+02,.4798533e+02,.4682270e+02,.4499590e+02,&
4644  & .4308761e+02,.4172136e+02,.4474695e+02,.5079194e+02,.5882554e+02,&
4645  & .5166631e+02,.4772612e+02,.4661016e+02,.4492409e+02,.4299263e+02,&
4646  & .4159694e+02,.4458623e+02,.5061389e+02,.5854583e+02,.5141979e+02,&
4647  & .4742883e+02,.4637327e+02,.4480255e+02,.4286883e+02,.4142281e+02,&
4648  & .4438577e+02,.5039888e+02,.5817816e+02,.5110231e+02,.4708389e+02,&
4649  & .4609738e+02,.4463949e+02,.4268850e+02,.4126044e+02,.4418534e+02,&
4650  & .5018101e+02,.5773974e+02,.5072435e+02,.4670644e+02,.4577129e+02,&
4651  & .4443478e+02,.4250650e+02,.4111702e+02,.4397705e+02,.4997641e+02/
4652 
4653  data absa(316:450,10) / &
4654  & .6060573e+02,.5344936e+02,.5077793e+02,.4997885e+02,.4845492e+02,&
4655  & .4650628e+02,.4444661e+02,.4611186e+02,.5223587e+02,.6035565e+02,&
4656  & .5321162e+02,.5047679e+02,.4976412e+02,.4835297e+02,.4640277e+02,&
4657  & .4437648e+02,.4597962e+02,.5210068e+02,.6001386e+02,.5290034e+02,&
4658  & .5010907e+02,.4949538e+02,.4818206e+02,.4628144e+02,.4423845e+02,&
4659  & .4582350e+02,.5193692e+02,.5960595e+02,.5253493e+02,.4971769e+02,&
4660  & .4917510e+02,.4797986e+02,.4609629e+02,.4410837e+02,.4565103e+02,&
4661  & .5175207e+02,.5910403e+02,.5209755e+02,.4928800e+02,.4883659e+02,&
4662  & .4774249e+02,.4591174e+02,.4398757e+02,.4546040e+02,.5157175e+02,&
4663  & .6109714e+02,.5440970e+02,.5300408e+02,.5268782e+02,.5157437e+02,&
4664  & .4964597e+02,.4705595e+02,.4702696e+02,.5286716e+02,.6078367e+02,&
4665  & .5409377e+02,.5266455e+02,.5243664e+02,.5140681e+02,.4958118e+02,&
4666  & .4706770e+02,.4700927e+02,.5284723e+02,.6037380e+02,.5371502e+02,&
4667  & .5225748e+02,.5215540e+02,.5119129e+02,.4948761e+02,.4697878e+02,&
4668  & .4691301e+02,.5274423e+02,.5989651e+02,.5328949e+02,.5183758e+02,&
4669  & .5181450e+02,.5096397e+02,.4932968e+02,.4689935e+02,.4677701e+02,&
4670  & .5261482e+02,.5936966e+02,.5280219e+02,.5138276e+02,.5145230e+02,&
4671  & .5070975e+02,.4914571e+02,.4680586e+02,.4662819e+02,.5250407e+02,&
4672  & .6042976e+02,.5467511e+02,.5454288e+02,.5481038e+02,.5409097e+02,&
4673  & .5235706e+02,.4927445e+02,.4742032e+02,.5252935e+02,.6001878e+02,&
4674  & .5427532e+02,.5413495e+02,.5452142e+02,.5389531e+02,.5233375e+02,&
4675  & .4936959e+02,.4752824e+02,.5263857e+02,.5955852e+02,.5382395e+02,&
4676  & .5371774e+02,.5419930e+02,.5366829e+02,.5225894e+02,.4936460e+02,&
4677  & .4753260e+02,.5265555e+02,.5902075e+02,.5331468e+02,.5326153e+02,&
4678  & .5383822e+02,.5344237e+02,.5210269e+02,.4932635e+02,.4747318e+02,&
4679  & .5266176e+02,.5843636e+02,.5278414e+02,.5278267e+02,.5345038e+02,&
4680  & .5319472e+02,.5193593e+02,.4925399e+02,.4743021e+02,.5267090e+02/
4681 
4682  data absa(451:585,10) / &
4683  & .5841299e+02,.5394652e+02,.5521374e+02,.5605247e+02,.5585908e+02,&
4684  & .5438236e+02,.5102018e+02,.4757287e+02,.5144594e+02,.5792304e+02,&
4685  & .5345752e+02,.5477573e+02,.5572296e+02,.5566296e+02,.5437881e+02,&
4686  & .5115010e+02,.4772352e+02,.5165224e+02,.5737807e+02,.5293116e+02,&
4687  & .5431199e+02,.5537393e+02,.5546638e+02,.5430287e+02,.5118313e+02,&
4688  & .4781700e+02,.5183934e+02,.5678698e+02,.5237535e+02,.5381877e+02,&
4689  & .5500766e+02,.5523934e+02,.5416503e+02,.5117650e+02,.4791639e+02,&
4690  & .5201561e+02,.5615143e+02,.5178837e+02,.5328954e+02,.5460865e+02,&
4691  & .5497459e+02,.5398659e+02,.5113103e+02,.4798503e+02,.5214722e+02,&
4692  & .5536220e+02,.5249053e+02,.5510606e+02,.5651628e+02,.5687411e+02,&
4693  & .5558754e+02,.5214421e+02,.4740469e+02,.4972236e+02,.5479927e+02,&
4694  & .5192667e+02,.5465501e+02,.5620526e+02,.5671006e+02,.5563285e+02,&
4695  & .5229549e+02,.4766073e+02,.5010788e+02,.5421071e+02,.5135180e+02,&
4696  & .5415133e+02,.5586559e+02,.5652158e+02,.5556841e+02,.5239599e+02,&
4697  & .4791820e+02,.5046754e+02,.5358519e+02,.5076397e+02,.5362234e+02,&
4698  & .5548685e+02,.5629675e+02,.5544739e+02,.5247314e+02,.4811189e+02,&
4699  & .5074908e+02,.5294036e+02,.5016394e+02,.5307965e+02,.5511021e+02,&
4700  & .5600283e+02,.5528953e+02,.5251126e+02,.4826838e+02,.5100487e+02,&
4701  & .5148338e+02,.5053874e+02,.5414066e+02,.5624827e+02,.5702373e+02,&
4702  & .5589687e+02,.5255754e+02,.4705268e+02,.4767006e+02,.5089925e+02,&
4703  & .4993871e+02,.5366605e+02,.5594429e+02,.5690194e+02,.5597842e+02,&
4704  & .5278229e+02,.4742535e+02,.4816570e+02,.5028772e+02,.4933321e+02,&
4705  & .5319737e+02,.5560811e+02,.5674811e+02,.5596622e+02,.5298860e+02,&
4706  & .4773920e+02,.4858121e+02,.4966712e+02,.4872563e+02,.5271026e+02,&
4707  & .5528046e+02,.5651701e+02,.5590277e+02,.5315749e+02,.4798366e+02,&
4708  & .4895540e+02,.4904239e+02,.4811862e+02,.5220900e+02,.5494835e+02,&
4709  & .5626643e+02,.5584337e+02,.5327664e+02,.4820949e+02,.4934904e+02/
4710 
4711  data absa( 1:180,11) / &
4712  & .5140400e+02,.4521200e+02,.3907800e+02,.3297800e+02,.3121300e+02,&
4713  & .3568900e+02,.4223900e+02,.4910900e+02,.5355500e+02,.5145600e+02,&
4714  & .4526300e+02,.3908500e+02,.3297500e+02,.3103400e+02,.3523700e+02,&
4715  & .4175600e+02,.4853100e+02,.5287700e+02,.5141900e+02,.4522600e+02,&
4716  & .3901300e+02,.3293200e+02,.3082600e+02,.3487100e+02,.4137200e+02,&
4717  & .4807000e+02,.5231900e+02,.5131500e+02,.4512200e+02,.3892500e+02,&
4718  & .3288600e+02,.3064300e+02,.3456500e+02,.4105400e+02,.4769000e+02,&
4719  & .5185300e+02,.5113400e+02,.4495800e+02,.3878700e+02,.3281900e+02,&
4720  & .3047600e+02,.3433000e+02,.4079900e+02,.4738400e+02,.5151300e+02,&
4721  & .5957500e+02,.5234300e+02,.4516800e+02,.3815600e+02,.3654900e+02,&
4722  & .4079800e+02,.4843300e+02,.5632000e+02,.6249900e+02,.5965600e+02,&
4723  & .5241500e+02,.4519600e+02,.3815900e+02,.3635600e+02,.4023200e+02,&
4724  & .4780600e+02,.5560300e+02,.6169200e+02,.5963500e+02,.5239500e+02,&
4725  & .4514600e+02,.3811600e+02,.3613900e+02,.3980500e+02,.4733900e+02,&
4726  & .5504600e+02,.6106800e+02,.5952200e+02,.5228500e+02,.4505100e+02,&
4727  & .3806600e+02,.3588900e+02,.3947000e+02,.4698100e+02,.5462100e+02,&
4728  & .6059200e+02,.5930700e+02,.5209400e+02,.4488900e+02,.3796000e+02,&
4729  & .3567700e+02,.3921600e+02,.4668700e+02,.5426800e+02,.6019300e+02,&
4730  & .6880900e+02,.6039700e+02,.5202500e+02,.4416100e+02,.4270100e+02,&
4731  & .4666700e+02,.5552000e+02,.6449300e+02,.7266900e+02,.6892400e+02,&
4732  & .6049900e+02,.5209800e+02,.4413300e+02,.4252100e+02,.4596600e+02,&
4733  & .5473200e+02,.6359400e+02,.7170500e+02,.6895000e+02,.6053100e+02,&
4734  & .5210100e+02,.4410000e+02,.4228500e+02,.4541800e+02,.5409500e+02,&
4735  & .6288300e+02,.7091900e+02,.6885700e+02,.6043400e+02,.5201400e+02,&
4736  & .4404100e+02,.4203100e+02,.4500500e+02,.5356400e+02,.6229100e+02,&
4737  & .7024700e+02,.6866600e+02,.6026500e+02,.5187100e+02,.4394200e+02,&
4738  & .4184200e+02,.4469000e+02,.5313400e+02,.6180600e+02,.6968600e+02,&
4739  & .7931100e+02,.6956100e+02,.5988100e+02,.5127600e+02,.4976100e+02,&
4740  & .5319300e+02,.6339600e+02,.7365600e+02,.8365200e+02,.7951100e+02,&
4741  & .6973600e+02,.6001900e+02,.5117300e+02,.4959400e+02,.5246600e+02,&
4742  & .6246100e+02,.7257800e+02,.8242600e+02,.7956200e+02,.6978900e+02,&
4743  & .6004300e+02,.5107500e+02,.4934600e+02,.5184700e+02,.6163900e+02,&
4744  & .7163200e+02,.8136900e+02,.7951200e+02,.6973300e+02,.5998900e+02,&
4745  & .5097900e+02,.4908800e+02,.5136000e+02,.6094700e+02,.7083600e+02,&
4746  & .8046800e+02,.7932500e+02,.6956900e+02,.5985400e+02,.5087100e+02,&
4747  & .4888200e+02,.5099100e+02,.6036200e+02,.7016100e+02,.7970100e+02/
4748 
4749  data absa(181:315,11) / &
4750  & .9111200e+02,.7989200e+02,.6878100e+02,.5949600e+02,.5798800e+02,&
4751  & .6041500e+02,.7159500e+02,.8322700e+02,.9485400e+02,.9144700e+02,&
4752  & .8017300e+02,.6902300e+02,.5941600e+02,.5774300e+02,.5967300e+02,&
4753  & .7048300e+02,.8194200e+02,.9339400e+02,.9158300e+02,.8028800e+02,&
4754  & .6910600e+02,.5927600e+02,.5741600e+02,.5903500e+02,.6952800e+02,&
4755  & .8082900e+02,.9213100e+02,.9156600e+02,.8025700e+02,.6907300e+02,&
4756  & .5913600e+02,.5709200e+02,.5852700e+02,.6872400e+02,.7988500e+02,&
4757  & .9105300e+02,.9139000e+02,.8010400e+02,.6893700e+02,.5897300e+02,&
4758  & .5677600e+02,.5810700e+02,.6807900e+02,.7907200e+02,.9012200e+02,&
4759  & .1041900e+03,.9139400e+02,.7865600e+02,.6891600e+02,.6712800e+02,&
4760  & .6846100e+02,.7989400e+02,.9292600e+02,.1060700e+03,.1046300e+03,&
4761  & .9178200e+02,.7900200e+02,.6881900e+02,.6684500e+02,.6773800e+02,&
4762  & .7862800e+02,.9145800e+02,.1044000e+03,.1048600e+03,.9197000e+02,&
4763  & .7915600e+02,.6869800e+02,.6647000e+02,.6706600e+02,.7762800e+02,&
4764  & .9024200e+02,.1030200e+03,.1049400e+03,.9202500e+02,.7920700e+02,&
4765  & .6855500e+02,.6608100e+02,.6654300e+02,.7684300e+02,.8925300e+02,&
4766  & .1018900e+03,.1048100e+03,.9189200e+02,.7910500e+02,.6834400e+02,&
4767  & .6566800e+02,.6610900e+02,.7619000e+02,.8838600e+02,.1009000e+03,&
4768  & .1185000e+03,.1039400e+03,.8942300e+02,.7950900e+02,.7720700e+02,&
4769  & .7719600e+02,.8794300e+02,.1023600e+03,.1169400e+03,.1190500e+03,&
4770  & .1044300e+03,.8986400e+02,.7952800e+02,.7690500e+02,.7649400e+02,&
4771  & .8665000e+02,.1007800e+03,.1151500e+03,.1193900e+03,.1047300e+03,&
4772  & .9011500e+02,.7940100e+02,.7652300e+02,.7585300e+02,.8571500e+02,&
4773  & .9959500e+02,.1138000e+03,.1195100e+03,.1048400e+03,.9022200e+02,&
4774  & .7922000e+02,.7609000e+02,.7540500e+02,.8502200e+02,.9865300e+02,&
4775  & .1127100e+03,.1194200e+03,.1047600e+03,.9016900e+02,.7897600e+02,&
4776  & .7560700e+02,.7501800e+02,.8435200e+02,.9778300e+02,.1116700e+03/
4777 
4778  data absa(316:450,11) / &
4779  & .1338100e+03,.1173500e+03,.1009500e+03,.9122600e+02,.8818800e+02,&
4780  & .8637900e+02,.9582800e+02,.1115500e+03,.1275500e+03,.1344600e+03,&
4781  & .1179400e+03,.1014500e+03,.9127100e+02,.8794700e+02,.8576600e+02,&
4782  & .9465200e+02,.1100600e+03,.1258300e+03,.1349200e+03,.1183400e+03,&
4783  & .1018000e+03,.9123300e+02,.8761900e+02,.8522800e+02,.9381100e+02,&
4784  & .1089200e+03,.1245200e+03,.1350500e+03,.1184600e+03,.1019200e+03,&
4785  & .9109000e+02,.8715000e+02,.8488700e+02,.9311100e+02,.1079700e+03,&
4786  & .1233700e+03,.1350000e+03,.1184400e+03,.1019200e+03,.9079700e+02,&
4787  & .8662600e+02,.8457000e+02,.9242100e+02,.1071000e+03,.1222600e+03,&
4788  & .1495200e+03,.1311000e+03,.1131600e+03,.1041000e+03,.9992700e+02,&
4789  & .9607400e+02,.1037400e+03,.1206700e+03,.1380100e+03,.1502800e+03,&
4790  & .1317900e+03,.1136000e+03,.1041500e+03,.9987000e+02,.9558900e+02,&
4791  & .1025700e+03,.1191200e+03,.1362300e+03,.1508200e+03,.1322700e+03,&
4792  & .1139200e+03,.1040500e+03,.9957100e+02,.9518900e+02,.1018200e+03,&
4793  & .1180300e+03,.1349600e+03,.1510300e+03,.1324700e+03,.1140300e+03,&
4794  & .1038500e+03,.9912600e+02,.9498000e+02,.1012200e+03,.1172000e+03,&
4795  & .1338800e+03,.1509400e+03,.1324500e+03,.1140100e+03,.1034800e+03,&
4796  & .9855000e+02,.9474600e+02,.1005500e+03,.1163600e+03,.1327600e+03,&
4797  & .1652400e+03,.1448600e+03,.1259400e+03,.1178500e+03,.1122500e+03,&
4798  & .1065400e+03,.1120200e+03,.1296500e+03,.1482900e+03,.1661000e+03,&
4799  & .1456400e+03,.1263600e+03,.1178700e+03,.1123300e+03,.1063000e+03,&
4800  & .1109300e+03,.1281100e+03,.1465300e+03,.1665900e+03,.1460800e+03,&
4801  & .1265600e+03,.1176900e+03,.1121400e+03,.1060900e+03,.1103200e+03,&
4802  & .1271300e+03,.1453200e+03,.1668100e+03,.1463000e+03,.1265900e+03,&
4803  & .1173600e+03,.1116900e+03,.1059700e+03,.1097300e+03,.1262900e+03,&
4804  & .1441600e+03,.1667100e+03,.1462300e+03,.1263900e+03,.1168800e+03,&
4805  & .1111100e+03,.1057600e+03,.1090900e+03,.1254200e+03,.1430300e+03/
4806 
4807  data absa(451:585,11) / &
4808  & .1806500e+03,.1583200e+03,.1390300e+03,.1320100e+03,.1251900e+03,&
4809  & .1182000e+03,.1204700e+03,.1376000e+03,.1573900e+03,.1813100e+03,&
4810  & .1589300e+03,.1391600e+03,.1318300e+03,.1252000e+03,.1180000e+03,&
4811  & .1197900e+03,.1366000e+03,.1561200e+03,.1816200e+03,.1592500e+03,&
4812  & .1391200e+03,.1314500e+03,.1248700e+03,.1178900e+03,.1192200e+03,&
4813  & .1356600e+03,.1548100e+03,.1816100e+03,.1592700e+03,.1388800e+03,&
4814  & .1309100e+03,.1243200e+03,.1177000e+03,.1185800e+03,.1346200e+03,&
4815  & .1535000e+03,.1812900e+03,.1590100e+03,.1384900e+03,.1302700e+03,&
4816  & .1237100e+03,.1173800e+03,.1180000e+03,.1337800e+03,.1524800e+03,&
4817  & .1943900e+03,.1703100e+03,.1518100e+03,.1457700e+03,.1382800e+03,&
4818  & .1307000e+03,.1297200e+03,.1454600e+03,.1661800e+03,.1948300e+03,&
4819  & .1707300e+03,.1515600e+03,.1454300e+03,.1381200e+03,.1304300e+03,&
4820  & .1291300e+03,.1444300e+03,.1647600e+03,.1949400e+03,.1708700e+03,&
4821  & .1512400e+03,.1449300e+03,.1377100e+03,.1302000e+03,.1284700e+03,&
4822  & .1433000e+03,.1633500e+03,.1947400e+03,.1707300e+03,.1507800e+03,&
4823  & .1442500e+03,.1371800e+03,.1298600e+03,.1277900e+03,.1424000e+03,&
4824  & .1622900e+03,.1942000e+03,.1702900e+03,.1501100e+03,.1433700e+03,&
4825  & .1366600e+03,.1294200e+03,.1272500e+03,.1417100e+03,.1614700e+03,&
4826  & .2056200e+03,.1801400e+03,.1639500e+03,.1588500e+03,.1513100e+03,&
4827  & .1434400e+03,.1392800e+03,.1520100e+03,.1733600e+03,.2058300e+03,&
4828  & .1803400e+03,.1634600e+03,.1584400e+03,.1510200e+03,.1431000e+03,&
4829  & .1386700e+03,.1510100e+03,.1721000e+03,.2057900e+03,.1803400e+03,&
4830  & .1628200e+03,.1578200e+03,.1505100e+03,.1427100e+03,.1380300e+03,&
4831  & .1502600e+03,.1711900e+03,.2053900e+03,.1800200e+03,.1619900e+03,&
4832  & .1569600e+03,.1500500e+03,.1422600e+03,.1374600e+03,.1497700e+03,&
4833  & .1706100e+03,.2047100e+03,.1794600e+03,.1610100e+03,.1558000e+03,&
4834  & .1494200e+03,.1416300e+03,.1368500e+03,.1492200e+03,.1699800e+03/
4835 
4836  data absa( 1:180,12) / &
4837  & .6180979e+02,.5415023e+02,.4652334e+02,.3927453e+02,.3636930e+02,&
4838  & .4458440e+02,.5332753e+02,.6199779e+02,.6686984e+02,.6201467e+02,&
4839  & .5432712e+02,.4674137e+02,.3945307e+02,.3621804e+02,.4416739e+02,&
4840  & .5281294e+02,.6138502e+02,.6622974e+02,.6212587e+02,.5443223e+02,&
4841  & .4690627e+02,.3958570e+02,.3609178e+02,.4380068e+02,.5235331e+02,&
4842  & .6084698e+02,.6567797e+02,.6210514e+02,.5448391e+02,.4698891e+02,&
4843  & .3965214e+02,.3594726e+02,.4347273e+02,.5194539e+02,.6034581e+02,&
4844  & .6519221e+02,.6202833e+02,.5446118e+02,.4698444e+02,.3963823e+02,&
4845  & .3578608e+02,.4315548e+02,.5153608e+02,.5985270e+02,.6466696e+02,&
4846  & .7408612e+02,.6488258e+02,.5568066e+02,.4672809e+02,.4299401e+02,&
4847  & .5300946e+02,.6345952e+02,.7381337e+02,.8120038e+02,.7431987e+02,&
4848  & .6508647e+02,.5591094e+02,.4696983e+02,.4270620e+02,.5245020e+02,&
4849  & .6277983e+02,.7301412e+02,.8031789e+02,.7445016e+02,.6522132e+02,&
4850  & .5612423e+02,.4716489e+02,.4247167e+02,.5192560e+02,.6214199e+02,&
4851  & .7225979e+02,.7950285e+02,.7449398e+02,.6532501e+02,.5623682e+02,&
4852  & .4725560e+02,.4229442e+02,.5140668e+02,.6150959e+02,.7151980e+02,&
4853  & .7870069e+02,.7445650e+02,.6532487e+02,.5624935e+02,.4725682e+02,&
4854  & .4210652e+02,.5092387e+02,.6091509e+02,.7081995e+02,.7792811e+02,&
4855  & .8862835e+02,.7760021e+02,.6657195e+02,.5566578e+02,.5128990e+02,&
4856  & .6327373e+02,.7579325e+02,.8820522e+02,.9907097e+02,.8897752e+02,&
4857  & .7790504e+02,.6685198e+02,.5596711e+02,.5087545e+02,.6255790e+02,&
4858  & .7492859e+02,.8717970e+02,.9792393e+02,.8915502e+02,.7806522e+02,&
4859  & .6707372e+02,.5618767e+02,.5053795e+02,.6185942e+02,.7408065e+02,&
4860  & .8619344e+02,.9681481e+02,.8920224e+02,.7817532e+02,.6720276e+02,&
4861  & .5630420e+02,.5024670e+02,.6121136e+02,.7329693e+02,.8526792e+02,&
4862  & .9576831e+02,.8916248e+02,.7817526e+02,.6722423e+02,.5632955e+02,&
4863  & .4997369e+02,.6057311e+02,.7252164e+02,.8436173e+02,.9475516e+02,&
4864  & .1056142e+03,.9245626e+02,.7929792e+02,.6618040e+02,.6147280e+02,&
4865  & .7551544e+02,.9049492e+02,.1053424e+03,.1195913e+03,.1061542e+03,&
4866  & .9293152e+02,.7971544e+02,.6661696e+02,.6092308e+02,.7453632e+02,&
4867  & .8931434e+02,.1039588e+03,.1180265e+03,.1064863e+03,.9323304e+02,&
4868  & .8004289e+02,.6692374e+02,.6046019e+02,.7370615e+02,.8831649e+02,&
4869  & .1027830e+03,.1166845e+03,.1066437e+03,.9342567e+02,.8024158e+02,&
4870  & .6710433e+02,.6006174e+02,.7289075e+02,.8732560e+02,.1016334e+03,&
4871  & .1153732e+03,.1066187e+03,.9342970e+02,.8026290e+02,.6712941e+02,&
4872  & .5968287e+02,.7205721e+02,.8632392e+02,.1004504e+03,.1140396e+03/
4873 
4874  data absa(181:315,12) / &
4875  & .1255319e+03,.1098733e+03,.9422394e+02,.7856981e+02,.7364879e+02,&
4876  & .8993455e+02,.1078090e+03,.1255219e+03,.1431747e+03,.1261993e+03,&
4877  & .1104607e+03,.9472274e+02,.7906163e+02,.7299959e+02,.8871931e+02,&
4878  & .1063433e+03,.1238040e+03,.1412246e+03,.1266478e+03,.1108818e+03,&
4879  & .9515186e+02,.7946770e+02,.7245329e+02,.8760934e+02,.1050151e+03,&
4880  & .1222508e+03,.1394428e+03,.1269276e+03,.1111655e+03,.9543063e+02,&
4881  & .7971950e+02,.7193392e+02,.8655075e+02,.1037357e+03,.1207616e+03,&
4882  & .1377350e+03,.1269774e+03,.1112303e+03,.9549436e+02,.7977777e+02,&
4883  & .7145906e+02,.8552064e+02,.1024909e+03,.1193094e+03,.1360690e+03,&
4884  & .1486316e+03,.1300858e+03,.1115387e+03,.9299465e+02,.8823269e+02,&
4885  & .1068891e+03,.1281501e+03,.1492401e+03,.1705961e+03,.1495263e+03,&
4886  & .1308668e+03,.1122085e+03,.9359013e+02,.8736883e+02,.1053484e+03,&
4887  & .1263026e+03,.1470657e+03,.1681173e+03,.1501396e+03,.1314414e+03,&
4888  & .1127520e+03,.9410033e+02,.8669616e+02,.1039401e+03,.1246072e+03,&
4889  & .1450931e+03,.1658588e+03,.1504832e+03,.1317688e+03,.1130645e+03,&
4890  & .9437770e+02,.8607984e+02,.1025821e+03,.1229795e+03,.1431843e+03,&
4891  & .1636739e+03,.1505906e+03,.1318738e+03,.1131670e+03,.9446367e+02,&
4892  & .8553451e+02,.1012614e+03,.1213902e+03,.1413315e+03,.1615525e+03,&
4893  & .1749535e+03,.1531197e+03,.1312770e+03,.1098627e+03,.1054310e+03,&
4894  & .1267118e+03,.1519465e+03,.1769451e+03,.2025356e+03,.1761867e+03,&
4895  & .1541979e+03,.1321991e+03,.1103506e+03,.1043907e+03,.1247740e+03,&
4896  & .1496095e+03,.1742366e+03,.1994180e+03,.1770334e+03,.1549823e+03,&
4897  & .1329299e+03,.1109139e+03,.1035393e+03,.1229433e+03,.1474132e+03,&
4898  & .1716583e+03,.1964792e+03,.1775830e+03,.1554757e+03,.1333697e+03,&
4899  & .1112711e+03,.1027772e+03,.1211079e+03,.1452057e+03,.1690988e+03,&
4900  & .1935313e+03,.1778130e+03,.1556757e+03,.1335484e+03,.1114211e+03,&
4901  & .1020906e+03,.1193757e+03,.1431352e+03,.1666861e+03,.1907553e+03/
4902 
4903  data absa(316:450,12) / &
4904  & .2050280e+03,.1794206e+03,.1538132e+03,.1296698e+03,.1256113e+03,&
4905  & .1498126e+03,.1795895e+03,.2091417e+03,.2395094e+03,.2065326e+03,&
4906  & .1807328e+03,.1549517e+03,.1300986e+03,.1242724e+03,.1472448e+03,&
4907  & .1765192e+03,.2055840e+03,.2354240e+03,.2076189e+03,.1817305e+03,&
4908  & .1558434e+03,.1304997e+03,.1232100e+03,.1448216e+03,.1736269e+03,&
4909  & .2021988e+03,.2315773e+03,.2083544e+03,.1823886e+03,.1564141e+03,&
4910  & .1307551e+03,.1223058e+03,.1424212e+03,.1707823e+03,.1989036e+03,&
4911  & .2278090e+03,.2086842e+03,.1826772e+03,.1566702e+03,.1308824e+03,&
4912  & .1214212e+03,.1402293e+03,.1681510e+03,.1958442e+03,.2243003e+03,&
4913  & .2393883e+03,.2094845e+03,.1795806e+03,.1526649e+03,.1492182e+03,&
4914  & .1761707e+03,.2111935e+03,.2459442e+03,.2817236e+03,.2413366e+03,&
4915  & .2111878e+03,.1810490e+03,.1530843e+03,.1474621e+03,.1729020e+03,&
4916  & .2072851e+03,.2414036e+03,.2765008e+03,.2426640e+03,.2123804e+03,&
4917  & .1821044e+03,.1534075e+03,.1461365e+03,.1697315e+03,.2034720e+03,&
4918  & .2369666e+03,.2714312e+03,.2435891e+03,.2131944e+03,.1828085e+03,&
4919  & .1535710e+03,.1449502e+03,.1666087e+03,.1997639e+03,.2326282e+03,&
4920  & .2664788e+03,.2439749e+03,.2135440e+03,.1831044e+03,.1535327e+03,&
4921  & .1438260e+03,.1637945e+03,.1963970e+03,.2287448e+03,.2620139e+03,&
4922  & .2786275e+03,.2438158e+03,.2090742e+03,.1791980e+03,.1764044e+03,&
4923  & .2051521e+03,.2459740e+03,.2864840e+03,.3281621e+03,.2809503e+03,&
4924  & .2458500e+03,.2108110e+03,.1796731e+03,.1742226e+03,.2010652e+03,&
4925  & .2410665e+03,.2807744e+03,.3216182e+03,.2826742e+03,.2473903e+03,&
4926  & .2121402e+03,.1799408e+03,.1725339e+03,.1970313e+03,.2361865e+03,&
4927  & .2750847e+03,.3150950e+03,.2837444e+03,.2483293e+03,.2129494e+03,&
4928  & .1799627e+03,.1710146e+03,.1933057e+03,.2316484e+03,.2698242e+03,&
4929  & .3090609e+03,.2842653e+03,.2487778e+03,.2133179e+03,.1797427e+03,&
4930  & .1695361e+03,.1899175e+03,.2275176e+03,.2649935e+03,.3035329e+03/
4931 
4932  data absa(451:585,12) / &
4933  & .3246164e+03,.2841571e+03,.2437591e+03,.2099009e+03,.2061338e+03,&
4934  & .2346079e+03,.2807869e+03,.3270860e+03,.3746416e+03,.3270160e+03,&
4935  & .2862343e+03,.2455753e+03,.2101750e+03,.2037891e+03,.2298452e+03,&
4936  & .2746768e+03,.3199854e+03,.3664519e+03,.3287071e+03,.2876768e+03,&
4937  & .2468055e+03,.2102385e+03,.2017300e+03,.2252550e+03,.2691398e+03,&
4938  & .3135254e+03,.3590802e+03,.3296547e+03,.2884880e+03,.2474892e+03,&
4939  & .2100045e+03,.1997651e+03,.2211596e+03,.2640071e+03,.3075507e+03,&
4940  & .3522449e+03,.3298874e+03,.2886932e+03,.2476393e+03,.2093907e+03,&
4941  & .1977676e+03,.2173310e+03,.2589645e+03,.3016760e+03,.3454882e+03,&
4942  & .3764185e+03,.3295629e+03,.2827412e+03,.2448362e+03,.2395515e+03,&
4943  & .2667523e+03,.3170130e+03,.3693427e+03,.4229547e+03,.3787898e+03,&
4944  & .3316408e+03,.2845544e+03,.2447605e+03,.2368444e+03,.2613950e+03,&
4945  & .3103293e+03,.3615554e+03,.4140351e+03,.3801676e+03,.3328413e+03,&
4946  & .2856113e+03,.2443688e+03,.2342033e+03,.2564579e+03,.3041029e+03,&
4947  & .3543252e+03,.4057425e+03,.3807335e+03,.3332994e+03,.2860069e+03,&
4948  & .2436761e+03,.2315207e+03,.2518766e+03,.2980292e+03,.3472163e+03,&
4949  & .3976049e+03,.3804795e+03,.3330315e+03,.2857763e+03,.2425900e+03,&
4950  & .2287390e+03,.2473661e+03,.2919475e+03,.3401341e+03,.3894698e+03,&
4951  & .4337936e+03,.3798110e+03,.3258724e+03,.2839162e+03,.2765829e+03,&
4952  & .3019915e+03,.3551500e+03,.4138455e+03,.4738475e+03,.4358679e+03,&
4953  & .3816444e+03,.3274735e+03,.2832262e+03,.2732493e+03,.2960468e+03,&
4954  & .3477195e+03,.4051747e+03,.4639479e+03,.4367543e+03,.3824308e+03,&
4955  & .3281687e+03,.2821996e+03,.2697997e+03,.2905362e+03,.3403748e+03,&
4956  & .3966217e+03,.4541170e+03,.4367336e+03,.3824073e+03,.3281688e+03,&
4957  & .2807593e+03,.2662071e+03,.2851390e+03,.3330291e+03,.3880528e+03,&
4958  & .4442749e+03,.4356281e+03,.3814241e+03,.3273328e+03,.2789760e+03,&
4959  & .2624596e+03,.2797763e+03,.3260499e+03,.3798827e+03,.4349494e+03/
4960 
4961 
4962  data absb( 1:175, 1) / &
4963  & .1055400e-06,.3859600e-04,.6540200e-04,.8854000e-04,.1960100e-03,&
4964  & .1047900e-06,.4367200e-04,.7488900e-04,.1011800e-03,.2214600e-03,&
4965  & .1042900e-06,.4941800e-04,.8542900e-04,.1155700e-03,.2444800e-03,&
4966  & .1023200e-06,.5580200e-04,.9645900e-04,.1316700e-03,.2700100e-03,&
4967  & .9901300e-07,.6299600e-04,.1090000e-03,.1483400e-03,.2991700e-03,&
4968  & .8513600e-07,.3194300e-04,.5440200e-04,.7388700e-04,.1589500e-03,&
4969  & .8459700e-07,.3619600e-04,.6242900e-04,.8447900e-04,.1774900e-03,&
4970  & .8362900e-07,.4098200e-04,.7112600e-04,.9657300e-04,.1974000e-03,&
4971  & .8231000e-07,.4634400e-04,.8045800e-04,.1098400e-03,.2184700e-03,&
4972  & .7870900e-07,.5225200e-04,.9098900e-04,.1239400e-03,.2428100e-03,&
4973  & .6849700e-07,.2639300e-04,.4516400e-04,.6157000e-04,.1249300e-03,&
4974  & .6806200e-07,.2993600e-04,.5191900e-04,.7038700e-04,.1395300e-03,&
4975  & .6676600e-07,.3386300e-04,.5905600e-04,.8069300e-04,.1565300e-03,&
4976  & .6563600e-07,.3829400e-04,.6688500e-04,.9155500e-04,.1751000e-03,&
4977  & .6271100e-07,.4318900e-04,.7575600e-04,.1035500e-03,.1943900e-03,&
4978  & .5508300e-07,.2176100e-04,.3748400e-04,.5130100e-04,.9787500e-04,&
4979  & .5409500e-07,.2467000e-04,.4308400e-04,.5863900e-04,.1099600e-03,&
4980  & .5334000e-07,.2792500e-04,.4897600e-04,.6723400e-04,.1241500e-03,&
4981  & .5141200e-07,.3158800e-04,.5557600e-04,.7635200e-04,.1393900e-03,&
4982  & .4934100e-07,.3567700e-04,.6293700e-04,.8636300e-04,.1554300e-03,&
4983  & .4402200e-07,.1796300e-04,.3110200e-04,.4260400e-04,.7829000e-04,&
4984  & .4316700e-07,.2038200e-04,.3575400e-04,.4887500e-04,.8794100e-04,&
4985  & .4221000e-07,.2309100e-04,.4067400e-04,.5605900e-04,.9925700e-04,&
4986  & .4040200e-07,.2612500e-04,.4616200e-04,.6358600e-04,.1116600e-03,&
4987  & .3853200e-07,.2949400e-04,.5232700e-04,.7196000e-04,.1248000e-03,&
4988  & .3493700e-07,.1490300e-04,.2586800e-04,.3550300e-04,.6336800e-04,&
4989  & .3430800e-07,.1692300e-04,.2978100e-04,.4078900e-04,.7111500e-04,&
4990  & .3299500e-07,.1917100e-04,.3387200e-04,.4681000e-04,.8030200e-04,&
4991  & .3165400e-07,.2167900e-04,.3846800e-04,.5304800e-04,.9043100e-04,&
4992  & .3028200e-07,.2449100e-04,.4359600e-04,.6007800e-04,.1013300e-03,&
4993  & .2797100e-07,.1238500e-04,.2154900e-04,.2961800e-04,.5173200e-04,&
4994  & .2712800e-07,.1404200e-04,.2482600e-04,.3404700e-04,.5806400e-04,&
4995  & .2601800e-07,.1592000e-04,.2822100e-04,.3907200e-04,.6549500e-04,&
4996  & .2471700e-07,.1801700e-04,.3205600e-04,.4428500e-04,.7385900e-04,&
4997  & .2385900e-07,.2036000e-04,.3634100e-04,.5017000e-04,.8294400e-04/
4998 
4999  data absb(176:350, 1) / &
5000  & .2252900e-07,.1033600e-04,.1799900e-04,.2477600e-04,.4260200e-04,&
5001  & .2173300e-07,.1168500e-04,.2076900e-04,.2850300e-04,.4783300e-04,&
5002  & .2079100e-07,.1328000e-04,.2357100e-04,.3265400e-04,.5399500e-04,&
5003  & .1966300e-07,.1502900e-04,.2678800e-04,.3706600e-04,.6094400e-04,&
5004  & .1916900e-07,.1697500e-04,.3035300e-04,.4199600e-04,.6834400e-04,&
5005  & .1814800e-07,.8603900e-05,.1504100e-04,.2071700e-04,.3514300e-04,&
5006  & .1746500e-07,.9728700e-05,.1734800e-04,.2386200e-04,.3950800e-04,&
5007  & .1653700e-07,.1107300e-04,.1968700e-04,.2727100e-04,.4465200e-04,&
5008  & .1586000e-07,.1252600e-04,.2238800e-04,.3101500e-04,.5026900e-04,&
5009  & .1545200e-07,.1415800e-04,.2533900e-04,.3514100e-04,.5632700e-04,&
5010  & .1454200e-07,.7180700e-05,.1268200e-04,.1747300e-04,.2917900e-04,&
5011  & .1396700e-07,.8157400e-05,.1455000e-04,.2014700e-04,.3279500e-04,&
5012  & .1324100e-07,.9283900e-05,.1654700e-04,.2297100e-04,.3703600e-04,&
5013  & .1274600e-07,.1052200e-04,.1884000e-04,.2611400e-04,.4161700e-04,&
5014  & .1242600e-07,.1188600e-04,.2131300e-04,.2960400e-04,.4670900e-04,&
5015  & .1172400e-07,.6019600e-05,.1070300e-04,.1475300e-04,.2414300e-04,&
5016  & .1112400e-07,.6849900e-05,.1223300e-04,.1700900e-04,.2714700e-04,&
5017  & .1055200e-07,.7789700e-05,.1392700e-04,.1936200e-04,.3066100e-04,&
5018  & .1021300e-07,.8839800e-05,.1585000e-04,.2202400e-04,.3451900e-04,&
5019  & .9962700e-08,.9975500e-05,.1791900e-04,.2494400e-04,.3873000e-04,&
5020  & .9383500e-08,.5050500e-05,.9029800e-05,.1245000e-04,.1994000e-04,&
5021  & .8872200e-08,.5749400e-05,.1028700e-04,.1435100e-04,.2245000e-04,&
5022  & .8471900e-08,.6537400e-05,.1172700e-04,.1632900e-04,.2537800e-04,&
5023  & .8192400e-08,.7418600e-05,.1333400e-04,.1856700e-04,.2856000e-04,&
5024  & .7919400e-08,.8371900e-05,.1505600e-04,.2100300e-04,.3199000e-04,&
5025  & .7453500e-08,.4243700e-05,.7622000e-05,.1052300e-04,.1653100e-04,&
5026  & .7051600e-08,.4830000e-05,.8666700e-05,.1208900e-04,.1861600e-04,&
5027  & .6774600e-08,.5494100e-05,.9892700e-05,.1379000e-04,.2102400e-04,&
5028  & .6537500e-08,.6235700e-05,.1123300e-04,.1566200e-04,.2364200e-04,&
5029  & .6300100e-08,.7028200e-05,.1266900e-04,.1769500e-04,.2647800e-04,&
5030  & .5952000e-08,.3573900e-05,.6435000e-05,.8933000e-05,.1375400e-04,&
5031  & .5664400e-08,.4079700e-05,.7329100e-05,.1022800e-04,.1548900e-04,&
5032  & .5422900e-08,.4636600e-05,.8366400e-05,.1165900e-04,.1748600e-04,&
5033  & .5215500e-08,.5254600e-05,.9482900e-05,.1324600e-04,.1964300e-04,&
5034  & .5002600e-08,.5913400e-05,.1067600e-04,.1493300e-04,.2197900e-04/
5035 
5036  data absb(351:525, 1) / &
5037  & .4734700e-08,.3011700e-05,.5422300e-05,.7581000e-05,.1142400e-04,&
5038  & .4521500e-08,.3442100e-05,.6195900e-05,.8661900e-05,.1288400e-04,&
5039  & .4333400e-08,.3914300e-05,.7070200e-05,.9876100e-05,.1454300e-04,&
5040  & .4135000e-08,.4427500e-05,.8000500e-05,.1119500e-04,.1631900e-04,&
5041  & .3965300e-08,.4976900e-05,.8993100e-05,.1259800e-04,.1816000e-04,&
5042  & .3794800e-08,.2541500e-05,.4581900e-05,.6433600e-05,.9495600e-05,&
5043  & .3608300e-08,.2903800e-05,.5242600e-05,.7340000e-05,.1071900e-04,&
5044  & .3441800e-08,.3301700e-05,.5973300e-05,.8357500e-05,.1206600e-04,&
5045  & .3263600e-08,.3729700e-05,.6749300e-05,.9455800e-05,.1346800e-04,&
5046  & .3134000e-08,.4187300e-05,.7575900e-05,.1062000e-04,.1495300e-04,&
5047  & .3012100e-08,.2153600e-05,.3884100e-05,.5449100e-05,.7909000e-05,&
5048  & .2877500e-08,.2455700e-05,.4446700e-05,.6224700e-05,.8914800e-05,&
5049  & .2719600e-08,.2790000e-05,.5054300e-05,.7078200e-05,.9994300e-05,&
5050  & .2579800e-08,.3147300e-05,.5701100e-05,.7993600e-05,.1113500e-04,&
5051  & .2478500e-08,.3528700e-05,.6389400e-05,.8962400e-05,.1235700e-04,&
5052  & .2403400e-08,.1823100e-05,.3294500e-05,.4618300e-05,.6583700e-05,&
5053  & .2270200e-08,.2076600e-05,.3767100e-05,.5273500e-05,.7387500e-05,&
5054  & .2155100e-08,.2355900e-05,.4274400e-05,.5993200e-05,.8266500e-05,&
5055  & .2039700e-08,.2654100e-05,.4813700e-05,.6754900e-05,.9207100e-05,&
5056  & .1920800e-08,.2971100e-05,.5388000e-05,.7559800e-05,.1021100e-04,&
5057  & .1911600e-08,.1545400e-05,.2795700e-05,.3922800e-05,.5466400e-05,&
5058  & .1804500e-08,.1757900e-05,.3193800e-05,.4478000e-05,.6120500e-05,&
5059  & .1701500e-08,.1991100e-05,.3616700e-05,.5075300e-05,.6852300e-05,&
5060  & .1604200e-08,.2239300e-05,.4066600e-05,.5709400e-05,.7626000e-05,&
5061  & .1518900e-08,.2503500e-05,.4543900e-05,.6378500e-05,.8456200e-05,&
5062  & .1513400e-08,.1308000e-05,.2376300e-05,.3336000e-05,.4538200e-05,&
5063  & .1425400e-08,.1488600e-05,.2708600e-05,.3799500e-05,.5093800e-05,&
5064  & .1347800e-08,.1683100e-05,.3060500e-05,.4297100e-05,.5693300e-05,&
5065  & .1272600e-08,.1890400e-05,.3435300e-05,.4824700e-05,.6335300e-05,&
5066  & .1202700e-08,.2109800e-05,.3831800e-05,.5380900e-05,.7030200e-05,&
5067  & .1202400e-08,.1108400e-05,.2019300e-05,.2831000e-05,.3784900e-05,&
5068  & .1133800e-08,.1260500e-05,.2294900e-05,.3222100e-05,.4245800e-05,&
5069  & .1067800e-08,.1423100e-05,.2588100e-05,.3636500e-05,.4746000e-05,&
5070  & .1005200e-08,.1596300e-05,.2901000e-05,.4072800e-05,.5280400e-05,&
5071  & .9594600e-09,.1777900e-05,.3230100e-05,.4538100e-05,.5854700e-05/
5072 
5073  data absb(526:700, 1) / &
5074  & .9575000e-09,.9366500e-06,.1706800e-05,.2395400e-05,.3161100e-05,&
5075  & .8999100e-09,.1063600e-05,.1936600e-05,.2720900e-05,.3544000e-05,&
5076  & .8494400e-09,.1199400e-05,.2180400e-05,.3065100e-05,.3960000e-05,&
5077  & .8086300e-09,.1343100e-05,.2440600e-05,.3428500e-05,.4404500e-05,&
5078  & .7669700e-09,.1493700e-05,.2713800e-05,.3815300e-05,.4873900e-05,&
5079  & .7693100e-09,.7814500e-06,.1424300e-05,.2000400e-05,.2608800e-05,&
5080  & .7255400e-09,.8865200e-06,.1614000e-05,.2268400e-05,.2925500e-05,&
5081  & .6867700e-09,.9987200e-06,.1815900e-05,.2553700e-05,.3267200e-05,&
5082  & .6498600e-09,.1117800e-05,.2031200e-05,.2854200e-05,.3630400e-05,&
5083  & .6217700e-09,.1242000e-05,.2256600e-05,.3173700e-05,.4018700e-05,&
5084  & .6224500e-09,.6423500e-06,.1170900e-05,.1644500e-05,.2121300e-05,&
5085  & .5869600e-09,.7287600e-06,.1326600e-05,.1864600e-05,.2379800e-05,&
5086  & .5569300e-09,.8208900e-06,.1492700e-05,.2099100e-05,.2660000e-05,&
5087  & .5293400e-09,.9187400e-06,.1669500e-05,.2345700e-05,.2957500e-05,&
5088  & .5058500e-09,.1021000e-05,.1854900e-05,.2608500e-05,.3275800e-05,&
5089  & .5115600e-09,.5187200e-06,.9455000e-06,.1328700e-05,.1708900e-05,&
5090  & .4825800e-09,.5890800e-06,.1072200e-05,.1507900e-05,.1918700e-05,&
5091  & .4569400e-09,.6642100e-06,.1207800e-05,.1699200e-05,.2145600e-05,&
5092  & .4350200e-09,.7440800e-06,.1352000e-05,.1900000e-05,.2387600e-05,&
5093  & .4151700e-09,.8275800e-06,.1503400e-05,.2114600e-05,.2647300e-05,&
5094  & .4209400e-09,.4183700e-06,.7626000e-06,.1071900e-05,.1375600e-05,&
5095  & .3970000e-09,.4755700e-06,.8657200e-06,.1218000e-05,.1546200e-05,&
5096  & .3756300e-09,.5368400e-06,.9761300e-06,.1373800e-05,.1728900e-05,&
5097  & .3578300e-09,.6019300e-06,.1093600e-05,.1537400e-05,.1925200e-05,&
5098  & .3410700e-09,.6701400e-06,.1217300e-05,.1712700e-05,.2136900e-05,&
5099  & .3463500e-09,.3373200e-06,.6149200e-06,.8644700e-06,.1105500e-05,&
5100  & .3265400e-09,.3838300e-06,.6986900e-06,.9835500e-06,.1244000e-05,&
5101  & .3090900e-09,.4337100e-06,.7886900e-06,.1110500e-05,.1392400e-05,&
5102  & .2942500e-09,.4868100e-06,.8844600e-06,.1243300e-05,.1552600e-05,&
5103  & .2800000e-09,.5425600e-06,.9855000e-06,.1386800e-05,.1723800e-05,&
5104  & .2873100e-09,.2684300e-06,.4891500e-06,.6881000e-06,.8786700e-06,&
5105  & .2708900e-09,.3060000e-06,.5569800e-06,.7843000e-06,.9907500e-06,&
5106  & .2560700e-09,.3462400e-06,.6296600e-06,.8867700e-06,.1110700e-05,&
5107  & .2437200e-09,.3892600e-06,.7073200e-06,.9943000e-06,.1240200e-05,&
5108  & .2317600e-09,.4346500e-06,.7894300e-06,.1110700e-05,.1378700e-05/
5109 
5110  data absb(701:875, 1) / &
5111  & .2390300e-09,.2132300e-06,.3885500e-06,.5470100e-06,.6978100e-06,&
5112  & .2248700e-09,.2433200e-06,.4432800e-06,.6239700e-06,.7877400e-06,&
5113  & .2123600e-09,.2758100e-06,.5017000e-06,.7066400e-06,.8842700e-06,&
5114  & .2020400e-09,.3106600e-06,.5643500e-06,.7938400e-06,.9889900e-06,&
5115  & .1920900e-09,.3475300e-06,.6311900e-06,.8878700e-06,.1100700e-05,&
5116  & .1986800e-09,.1695000e-06,.3088500e-06,.4342600e-06,.5533600e-06,&
5117  & .1868100e-09,.1933800e-06,.3525000e-06,.4962200e-06,.6262800e-06,&
5118  & .1764900e-09,.2196300e-06,.3995000e-06,.5626900e-06,.7039600e-06,&
5119  & .1675300e-09,.2477800e-06,.4501300e-06,.6334200e-06,.7877000e-06,&
5120  & .1593000e-09,.2777200e-06,.5043900e-06,.7094500e-06,.8778300e-06,&
5121  & .1657700e-09,.1333200e-06,.2432300e-06,.3418400e-06,.4359400e-06,&
5122  & .1559700e-09,.1524500e-06,.2780100e-06,.3913000e-06,.4946000e-06,&
5123  & .1472100e-09,.1735400e-06,.3158400e-06,.4449900e-06,.5570500e-06,&
5124  & .1393600e-09,.1962500e-06,.3566100e-06,.5018900e-06,.6239800e-06,&
5125  & .1325500e-09,.2204400e-06,.4003400e-06,.5630800e-06,.6963400e-06,&
5126  & .1386100e-09,.1044500e-06,.1905800e-06,.2684100e-06,.3423300e-06,&
5127  & .1302700e-09,.1197400e-06,.2183600e-06,.3074400e-06,.3889700e-06,&
5128  & .1229000e-09,.1366200e-06,.2486400e-06,.3506500e-06,.4391600e-06,&
5129  & .1161100e-09,.1548400e-06,.2815500e-06,.3962700e-06,.4927300e-06,&
5130  & .1104200e-09,.1743100e-06,.3166600e-06,.4454000e-06,.5508700e-06,&
5131  & .1158100e-09,.8191500e-07,.1491500e-06,.2114000e-06,.2698700e-06,&
5132  & .1090600e-09,.9407700e-07,.1714300e-06,.2417300e-06,.3058600e-06,&
5133  & .1025400e-09,.1074500e-06,.1958200e-06,.2760600e-06,.3459300e-06,&
5134  & .9675700e-10,.1220500e-06,.2220100e-06,.3127100e-06,.3887600e-06,&
5135  & .9197900e-10,.1377200e-06,.2501500e-06,.3520800e-06,.4356100e-06,&
5136  & .9688900e-10,.6411600e-07,.1170800e-06,.1645500e-06,.2103600e-06,&
5137  & .9128100e-10,.7364100e-07,.1343600e-06,.1889500e-06,.2395100e-06,&
5138  & .8583000e-10,.8416100e-07,.1536000e-06,.2164300e-06,.2717600e-06,&
5139  & .8104800e-10,.9586700e-07,.1744700e-06,.2458200e-06,.3061300e-06,&
5140  & .7671200e-10,.1084400e-06,.1970600e-06,.2774300e-06,.3432900e-06,&
5141  & .8151600e-10,.4969800e-07,.9059600e-07,.1272700e-06,.1631300e-06,&
5142  & .7660900e-10,.5713200e-07,.1043300e-06,.1469400e-06,.1867200e-06,&
5143  & .7197500e-10,.6553400e-07,.1195500e-06,.1685000e-06,.2121500e-06,&
5144  & .6790800e-10,.7482900e-07,.1361900e-06,.1920900e-06,.2395900e-06,&
5145  & .6411700e-10,.8487200e-07,.1543300e-06,.2173300e-06,.2691500e-06/
5146 
5147  data absb(876:1050, 1) / &
5148  & .6842900e-10,.3871500e-07,.6985400e-07,.9837700e-07,.1261900e-06,&
5149  & .6423600e-10,.4437500e-07,.8089500e-07,.1147100e-06,.1460400e-06,&
5150  & .6051000e-10,.5102500e-07,.9297700e-07,.1312300e-06,.1654200e-06,&
5151  & .5685100e-10,.5834500e-07,.1063300e-06,.1499100e-06,.1874500e-06,&
5152  & .5367400e-10,.6634600e-07,.1207000e-06,.1700100e-06,.2109500e-06,&
5153  & .5738700e-10,.2980000e-07,.5381700e-07,.7590600e-07,.9771000e-07,&
5154  & .5396000e-10,.3450000e-07,.6320500e-07,.8865500e-07,.1131000e-06,&
5155  & .5074000e-10,.3968400e-07,.7250200e-07,.1019300e-06,.1289200e-06,&
5156  & .4771000e-10,.4541800e-07,.8294100e-07,.1169200e-06,.1464900e-06,&
5157  & .4505000e-10,.5179700e-07,.9432000e-07,.1329600e-06,.1652600e-06,&
5158  & .4801000e-10,.2299900e-07,.4168200e-07,.5897500e-07,.7589800e-07,&
5159  & .4528200e-10,.2691700e-07,.4892900e-07,.6876500e-07,.8798300e-07,&
5160  & .4253100e-10,.3087900e-07,.5640600e-07,.7959300e-07,.1010900e-06,&
5161  & .4000200e-10,.3547000e-07,.6470600e-07,.9131200e-07,.1147300e-06,&
5162  & .3767400e-10,.4054200e-07,.7383400e-07,.1041200e-06,.1296700e-06,&
5163  & .4009400e-10,.1781000e-07,.3241200e-07,.4598500e-07,.5904100e-07,&
5164  & .3790100e-10,.2101300e-07,.3792100e-07,.5347900e-07,.6847900e-07,&
5165  & .3558400e-10,.2410000e-07,.4398800e-07,.6240900e-07,.7931100e-07,&
5166  & .3351600e-10,.2773700e-07,.5054400e-07,.7143600e-07,.8991200e-07,&
5167  & .3150300e-10,.3173800e-07,.5788900e-07,.8159100e-07,.1019500e-06,&
5168  & .3346200e-10,.1382900e-07,.2522700e-07,.3549800e-07,.4579300e-07,&
5169  & .3170300e-10,.1627200e-07,.2939300e-07,.4147600e-07,.5334000e-07,&
5170  & .2985600e-10,.1883600e-07,.3453700e-07,.4849000e-07,.6179100e-07,&
5171  & .2803800e-10,.2168400e-07,.3957800e-07,.5575100e-07,.7042200e-07,&
5172  & .2637500e-10,.2482400e-07,.4538900e-07,.6389800e-07,.8007100e-07,&
5173  & .2785900e-10,.1075700e-07,.1943600e-07,.2736800e-07,.3540100e-07,&
5174  & .2648200e-10,.1257500e-07,.2278600e-07,.3227500e-07,.4150400e-07,&
5175  & .2501300e-10,.1471800e-07,.2678600e-07,.3765700e-07,.4815000e-07,&
5176  & .2348100e-10,.1689000e-07,.3087500e-07,.4356100e-07,.5528400e-07,&
5177  & .2210300e-10,.1940500e-07,.3543500e-07,.5004600e-07,.6282400e-07,&
5178  & .2326200e-10,.8353400e-08,.1503300e-07,.2114200e-07,.2749100e-07,&
5179  & .2207500e-10,.9782100e-08,.1779100e-07,.2529800e-07,.3244700e-07,&
5180  & .2088700e-10,.1154100e-07,.2085200e-07,.2939200e-07,.3764300e-07,&
5181  & .1962900e-10,.1322800e-07,.2416400e-07,.3433000e-07,.4362200e-07,&
5182  & .1847500e-10,.1523300e-07,.2777900e-07,.3930400e-07,.4943200e-07/
5183 
5184  data absb(1051:1175, 1) / &
5185  & .1936000e-10,.6488800e-08,.1164400e-07,.1638700e-07,.2134000e-07,&
5186  & .1837200e-10,.7636700e-08,.1394700e-07,.1967200e-07,.2540100e-07,&
5187  & .1742100e-10,.9008300e-08,.1627500e-07,.2297100e-07,.2952200e-07,&
5188  & .1641300e-10,.1040200e-07,.1908100e-07,.2685400e-07,.3423300e-07,&
5189  & .1541700e-10,.1198400e-07,.2183500e-07,.3085600e-07,.3895400e-07,&
5190  & .1609400e-10,.5017400e-08,.9028300e-08,.1271800e-07,.1657600e-07,&
5191  & .1526500e-10,.5974700e-08,.1085000e-07,.1529700e-07,.1978300e-07,&
5192  & .1451500e-10,.7014200e-08,.1269900e-07,.1796000e-07,.2317100e-07,&
5193  & .1371500e-10,.8162600e-08,.1494000e-07,.2099400e-07,.2686500e-07,&
5194  & .1288000e-10,.9405400e-08,.1720600e-07,.2422100e-07,.3073900e-07,&
5195  & .1336800e-10,.3883800e-08,.6999100e-08,.9837200e-08,.1282100e-07,&
5196  & .1274300e-10,.4675100e-08,.8424300e-08,.1185600e-07,.1540600e-07,&
5197  & .1208700e-10,.5464200e-08,.9929500e-08,.1406900e-07,.1814400e-07,&
5198  & .1144200e-10,.6446100e-08,.1165700e-07,.1640700e-07,.2107200e-07,&
5199  & .1075900e-10,.7371100e-08,.1347800e-07,.1910600e-07,.2431400e-07,&
5200  & .1108100e-10,.3014800e-08,.5416500e-08,.7642100e-08,.9949600e-08,&
5201  & .1059800e-10,.3633700e-08,.6537500e-08,.9204100e-08,.1202500e-07,&
5202  & .1005200e-10,.4271200e-08,.7784100e-08,.1105300e-07,.1430600e-07,&
5203  & .9530800e-11,.5042900e-08,.9113300e-08,.1286500e-07,.1655400e-07,&
5204  & .8979500e-11,.5797900e-08,.1061500e-07,.1505100e-07,.1921600e-07,&
5205  & .9119400e-11,.2421400e-08,.4349600e-08,.6153100e-08,.8013600e-08,&
5206  & .8728700e-11,.2923200e-08,.5253500e-08,.7396600e-08,.9683000e-08,&
5207  & .8276500e-11,.3441200e-08,.6278800e-08,.8899200e-08,.1153400e-07,&
5208  & .7860500e-11,.4063200e-08,.7345400e-08,.1038200e-07,.1337200e-07,&
5209  & .7412700e-11,.4680100e-08,.8591000e-08,.1213700e-07,.1553000e-07/
5210 
5211  data absb( 1:175, 2) / &
5212  & .1757600e-05,.2251800e-03,.3639800e-03,.4650500e-03,.9792000e-03,&
5213  & .1952200e-05,.2568800e-03,.4272400e-03,.5429300e-03,.1126100e-02,&
5214  & .2113400e-05,.2938200e-03,.4977800e-03,.6318600e-03,.1296100e-02,&
5215  & .2268000e-05,.3358500e-03,.5709500e-03,.7314900e-03,.1485700e-02,&
5216  & .2393900e-05,.3832600e-03,.6468800e-03,.8412000e-03,.1681500e-02,&
5217  & .1386600e-05,.1881600e-03,.3054100e-03,.3908200e-03,.8061400e-03,&
5218  & .1482500e-05,.2152500e-03,.3590600e-03,.4577200e-03,.9297600e-03,&
5219  & .1642800e-05,.2466400e-03,.4189100e-03,.5334100e-03,.1068900e-02,&
5220  & .1780700e-05,.2821800e-03,.4802100e-03,.6186100e-03,.1223600e-02,&
5221  & .1868500e-05,.3220400e-03,.5438500e-03,.7122300e-03,.1384400e-02,&
5222  & .1048300e-05,.1569900e-03,.2557100e-03,.3280300e-03,.6587300e-03,&
5223  & .1131000e-05,.1801600e-03,.3007100e-03,.3853400e-03,.7591600e-03,&
5224  & .1233000e-05,.2067200e-03,.3518100e-03,.4494000e-03,.8704100e-03,&
5225  & .1342600e-05,.2365000e-03,.4029200e-03,.5224600e-03,.9944500e-03,&
5226  & .1451400e-05,.2697900e-03,.4568400e-03,.6019500e-03,.1117300e-02,&
5227  & .8066300e-06,.1309800e-03,.2138200e-03,.2753900e-03,.5372700e-03,&
5228  & .8574700e-06,.1505800e-03,.2520100e-03,.3240600e-03,.6157300e-03,&
5229  & .9243500e-06,.1728300e-03,.2954200e-03,.3787900e-03,.7014000e-03,&
5230  & .9974700e-06,.1979300e-03,.3380700e-03,.4407600e-03,.7946800e-03,&
5231  & .1081900e-05,.2258200e-03,.3835400e-03,.5066300e-03,.8898000e-03,&
5232  & .6177200e-06,.1094100e-03,.1792600e-03,.2314400e-03,.4355400e-03,&
5233  & .6571800e-06,.1257600e-03,.2117400e-03,.2727500e-03,.4975000e-03,&
5234  & .6994900e-06,.1446100e-03,.2485200e-03,.3193700e-03,.5646200e-03,&
5235  & .7538700e-06,.1658000e-03,.2837400e-03,.3721300e-03,.6350700e-03,&
5236  & .7971500e-06,.1892600e-03,.3223600e-03,.4258800e-03,.7072800e-03,&
5237  & .4718800e-06,.9195200e-04,.1510000e-03,.1949500e-03,.3554300e-03,&
5238  & .5093700e-06,.1051300e-03,.1785200e-03,.2299900e-03,.4025000e-03,&
5239  & .5420600e-06,.1213000e-03,.2095900e-03,.2697900e-03,.4566200e-03,&
5240  & .5732800e-06,.1393600e-03,.2381500e-03,.3145100e-03,.5111300e-03,&
5241  & .6107700e-06,.1591600e-03,.2707500e-03,.3596700e-03,.5707600e-03,&
5242  & .3600500e-06,.7698400e-04,.1274300e-03,.1642200e-03,.2888500e-03,&
5243  & .3898800e-06,.8802900e-04,.1506700e-03,.1939600e-03,.3285400e-03,&
5244  & .4198900e-06,.1017200e-03,.1753900e-03,.2278400e-03,.3704500e-03,&
5245  & .4409200e-06,.1172700e-03,.2000400e-03,.2659200e-03,.4159800e-03,&
5246  & .4688300e-06,.1338600e-03,.2276900e-03,.3028500e-03,.4655000e-03/
5247 
5248  data absb(176:350, 2) / &
5249  & .2790800e-06,.6445000e-04,.1079500e-03,.1388900e-03,.2387800e-03,&
5250  & .3093400e-06,.7418700e-04,.1277300e-03,.1641700e-03,.2701700e-03,&
5251  & .3308600e-06,.8580100e-04,.1478200e-03,.1930700e-03,.3050800e-03,&
5252  & .3505800e-06,.9886100e-04,.1686800e-03,.2250800e-03,.3424900e-03,&
5253  & .3706900e-06,.1130600e-03,.1918800e-03,.2560100e-03,.3851900e-03,&
5254  & .2241800e-06,.5409500e-04,.9141400e-04,.1175700e-03,.1969700e-03,&
5255  & .2455900e-06,.6256700e-04,.1081900e-03,.1390800e-03,.2228400e-03,&
5256  & .2616900e-06,.7238300e-04,.1248100e-03,.1636800e-03,.2520500e-03,&
5257  & .2788500e-06,.8344600e-04,.1425800e-03,.1891000e-03,.2838600e-03,&
5258  & .2934400e-06,.9554000e-04,.1619800e-03,.2160900e-03,.3194700e-03,&
5259  & .1794100e-06,.4583000e-04,.7817600e-04,.1006100e-03,.1631300e-03,&
5260  & .1939700e-06,.5313900e-04,.9255600e-04,.1190100e-03,.1848200e-03,&
5261  & .2070700e-06,.6159300e-04,.1057900e-03,.1400800e-03,.2096500e-03,&
5262  & .2207100e-06,.7101600e-04,.1210000e-03,.1612800e-03,.2366100e-03,&
5263  & .2314800e-06,.8128600e-04,.1379500e-03,.1840100e-03,.2658000e-03,&
5264  & .1429100e-06,.3882500e-04,.6686600e-04,.8614000e-04,.1351100e-03,&
5265  & .1517900e-06,.4513500e-04,.7845000e-04,.1019400e-03,.1536900e-03,&
5266  & .1632600e-06,.5239900e-04,.8991900e-04,.1200100e-03,.1744100e-03,&
5267  & .1730700e-06,.6044000e-04,.1029300e-03,.1373500e-03,.1966800e-03,&
5268  & .1813700e-06,.6918900e-04,.1175900e-03,.1565100e-03,.2199800e-03,&
5269  & .1124500e-06,.3286200e-04,.5716600e-04,.7382800e-04,.1118500e-03,&
5270  & .1195800e-06,.3828100e-04,.6663500e-04,.8739000e-04,.1274000e-03,&
5271  & .1270200e-06,.4451900e-04,.7660600e-04,.1019000e-03,.1441800e-03,&
5272  & .1346700e-06,.5137300e-04,.8762200e-04,.1170000e-03,.1620500e-03,&
5273  & .1412000e-06,.5887400e-04,.1001900e-03,.1334800e-03,.1818800e-03,&
5274  & .8824200e-07,.2795000e-04,.4901000e-04,.6343400e-04,.9287700e-04,&
5275  & .9438300e-07,.3261000e-04,.5669000e-04,.7511400e-04,.1053100e-03,&
5276  & .9971200e-07,.3792900e-04,.6520400e-04,.8711300e-04,.1193100e-03,&
5277  & .1047300e-06,.4377800e-04,.7480500e-04,.9995000e-04,.1342700e-03,&
5278  & .1098800e-06,.5022900e-04,.8559800e-04,.1140600e-03,.1505000e-03,&
5279  & .6969600e-07,.2389500e-04,.4216600e-04,.5473300e-04,.7714600e-04,&
5280  & .7439000e-07,.2792100e-04,.4838700e-04,.6481700e-04,.8760700e-04,&
5281  & .7885600e-07,.3249700e-04,.5569200e-04,.7469100e-04,.9938700e-04,&
5282  & .8325300e-07,.3749100e-04,.6413000e-04,.8560900e-04,.1119300e-03,&
5283  & .8767500e-07,.4301100e-04,.7339800e-04,.9782800e-04,.1257400e-03/
5284 
5285  data absb(351:525, 2) / &
5286  & .5461900e-07,.2046900e-04,.3586900e-04,.4725900e-04,.6415100e-04,&
5287  & .5865700e-07,.2392500e-04,.4146800e-04,.5549900e-04,.7291100e-04,&
5288  & .6253200e-07,.2783900e-04,.4773500e-04,.6398500e-04,.8295500e-04,&
5289  & .6618400e-07,.3214100e-04,.5500100e-04,.7345600e-04,.9356700e-04,&
5290  & .6930500e-07,.3660500e-04,.6296800e-04,.8393800e-04,.1051700e-03,&
5291  & .4334800e-07,.1747600e-04,.3069200e-04,.4080300e-04,.5327100e-04,&
5292  & .4634800e-07,.2049600e-04,.3549800e-04,.4762900e-04,.6080900e-04,&
5293  & .4950700e-07,.2385700e-04,.4097400e-04,.5494700e-04,.6922200e-04,&
5294  & .5241900e-07,.2756000e-04,.4720500e-04,.6304400e-04,.7812300e-04,&
5295  & .5484200e-07,.3109400e-04,.5402800e-04,.7211600e-04,.8783400e-04,&
5296  & .3448000e-07,.1502700e-04,.2626800e-04,.3535800e-04,.4471100e-04,&
5297  & .3698500e-07,.1763800e-04,.3040500e-04,.4093800e-04,.5105400e-04,&
5298  & .3947600e-07,.2051200e-04,.3523700e-04,.4720700e-04,.5803400e-04,&
5299  & .4165000e-07,.2369400e-04,.4058600e-04,.5428600e-04,.6570800e-04,&
5300  & .4369300e-07,.2643800e-04,.4646700e-04,.6203500e-04,.7387200e-04,&
5301  & .2740200e-07,.1293200e-04,.2258500e-04,.3036500e-04,.3747100e-04,&
5302  & .2937700e-07,.1518300e-04,.2615800e-04,.3519500e-04,.4286700e-04,&
5303  & .3135300e-07,.1765800e-04,.3034300e-04,.4060600e-04,.4885800e-04,&
5304  & .3305600e-07,.2028600e-04,.3492400e-04,.4673500e-04,.5532900e-04,&
5305  & .3467300e-07,.2245100e-04,.3971700e-04,.5332900e-04,.6215100e-04,&
5306  & .2171600e-07,.1115600e-04,.1942700e-04,.2616900e-04,.3151200e-04,&
5307  & .2331300e-07,.1309100e-04,.2256800e-04,.3037700e-04,.3621600e-04,&
5308  & .2480300e-07,.1522100e-04,.2615700e-04,.3505000e-04,.4125600e-04,&
5309  & .2626000e-07,.1727700e-04,.3009100e-04,.4028800e-04,.4669300e-04,&
5310  & .2733400e-07,.1915900e-04,.3377300e-04,.4589200e-04,.5231400e-04,&
5311  & .1712300e-07,.9645300e-05,.1668800e-04,.2252800e-04,.2664800e-04,&
5312  & .1848900e-07,.1130500e-04,.1946400e-04,.2613700e-04,.3061700e-04,&
5313  & .1962100e-07,.1314300e-04,.2255400e-04,.3023800e-04,.3487600e-04,&
5314  & .2065300e-07,.1469800e-04,.2592800e-04,.3471200e-04,.3939800e-04,&
5315  & .2150000e-07,.1631500e-04,.2865100e-04,.3930200e-04,.4409700e-04,&
5316  & .1341400e-07,.8335500e-05,.1440900e-04,.1946100e-04,.2258200e-04,&
5317  & .1445600e-07,.9764700e-05,.1681800e-04,.2257800e-04,.2592300e-04,&
5318  & .1541600e-07,.1125000e-04,.1945100e-04,.2611900e-04,.2948200e-04,&
5319  & .1618400e-07,.1252000e-04,.2206400e-04,.2991100e-04,.3323000e-04,&
5320  & .1686100e-07,.1381000e-04,.2433200e-04,.3336300e-04,.3713500e-04/
5321 
5322  data absb(526:700, 2) / &
5323  & .1057500e-07,.7178600e-05,.1240700e-04,.1671900e-04,.1915800e-04,&
5324  & .1132800e-07,.8409300e-05,.1445700e-04,.1943300e-04,.2194000e-04,&
5325  & .1204900e-07,.9586000e-05,.1671800e-04,.2242500e-04,.2493200e-04,&
5326  & .1268900e-07,.1065500e-04,.1877100e-04,.2564700e-04,.2806500e-04,&
5327  & .1324100e-07,.1170300e-04,.2062800e-04,.2818400e-04,.3132300e-04,&
5328  & .8248900e-08,.6085000e-05,.1050500e-04,.1414000e-04,.1600400e-04,&
5329  & .8853200e-08,.7130600e-05,.1225000e-04,.1646300e-04,.1833300e-04,&
5330  & .9346800e-08,.8026900e-05,.1415800e-04,.1898900e-04,.2083500e-04,&
5331  & .9847800e-08,.8945000e-05,.1569100e-04,.2157600e-04,.2342800e-04,&
5332  & .1033200e-07,.9835400e-05,.1729300e-04,.2361800e-04,.2612800e-04,&
5333  & .6395100e-08,.5054500e-05,.8737800e-05,.1177800e-04,.1317600e-04,&
5334  & .6825200e-08,.5934800e-05,.1019300e-04,.1373000e-04,.1510400e-04,&
5335  & .7244500e-08,.6648000e-05,.1178300e-04,.1583200e-04,.1716000e-04,&
5336  & .7587100e-08,.7396000e-05,.1300500e-04,.1786600e-04,.1929500e-04,&
5337  & .7907500e-08,.8155800e-05,.1430600e-04,.1961700e-04,.2153200e-04,&
5338  & .5057400e-08,.4121500e-05,.7124900e-05,.9592300e-05,.1068600e-04,&
5339  & .5396700e-08,.4851800e-05,.8328600e-05,.1120600e-04,.1226900e-04,&
5340  & .5751700e-08,.5441100e-05,.9638300e-05,.1294200e-04,.1395800e-04,&
5341  & .6027300e-08,.6059000e-05,.1064400e-04,.1461900e-04,.1571400e-04,&
5342  & .6277500e-08,.6690000e-05,.1172300e-04,.1607700e-04,.1756000e-04,&
5343  & .3994800e-08,.3353500e-05,.5797600e-05,.7798900e-05,.8654800e-05,&
5344  & .4264200e-08,.3958400e-05,.6793200e-05,.9129000e-05,.9950700e-05,&
5345  & .4552900e-08,.4447800e-05,.7874600e-05,.1056300e-04,.1133800e-04,&
5346  & .4791100e-08,.4959200e-05,.8701900e-05,.1195000e-04,.1278300e-04,&
5347  & .4995900e-08,.5482000e-05,.9596400e-05,.1315500e-04,.1430800e-04,&
5348  & .3160700e-08,.2726000e-05,.4714300e-05,.6338100e-05,.7009400e-05,&
5349  & .3377100e-08,.3226300e-05,.5535200e-05,.7432200e-05,.8069500e-05,&
5350  & .3590700e-08,.3631600e-05,.6425600e-05,.8613300e-05,.9201900e-05,&
5351  & .3792000e-08,.4055500e-05,.7112800e-05,.9767700e-05,.1039200e-04,&
5352  & .3968700e-08,.4488200e-05,.7849900e-05,.1075300e-04,.1164700e-04,&
5353  & .2513700e-08,.2178200e-05,.3770000e-05,.5063600e-05,.5587200e-05,&
5354  & .2695300e-08,.2587200e-05,.4441100e-05,.5953800e-05,.6469300e-05,&
5355  & .2873800e-08,.2941500e-05,.5169700e-05,.6921700e-05,.7380600e-05,&
5356  & .3036500e-08,.3288700e-05,.5757400e-05,.7911500e-05,.8354700e-05,&
5357  & .3182700e-08,.3639100e-05,.6373000e-05,.8711400e-05,.9385400e-05/
5358 
5359  data absb(701:875, 2) / &
5360  & .2004900e-08,.1735000e-05,.3008900e-05,.4034200e-05,.4443700e-05,&
5361  & .2152200e-08,.2068500e-05,.3553200e-05,.4754200e-05,.5157700e-05,&
5362  & .2297800e-08,.2371600e-05,.4149000e-05,.5545900e-05,.5902900e-05,&
5363  & .2427700e-08,.2660800e-05,.4658500e-05,.6392800e-05,.6701500e-05,&
5364  & .2559200e-08,.2943400e-05,.5161400e-05,.7037600e-05,.7547200e-05,&
5365  & .1600700e-08,.1379300e-05,.2393900e-05,.3220300e-05,.3534700e-05,&
5366  & .1718200e-08,.1650900e-05,.2838800e-05,.3795000e-05,.4106900e-05,&
5367  & .1836400e-08,.1905800e-05,.3325000e-05,.4438600e-05,.4716900e-05,&
5368  & .1945900e-08,.2143600e-05,.3767600e-05,.5138900e-05,.5371000e-05,&
5369  & .2055500e-08,.2378100e-05,.4172200e-05,.5691500e-05,.6061300e-05,&
5370  & .1276300e-08,.1085500e-05,.1884200e-05,.2535500e-05,.2789400e-05,&
5371  & .1369300e-08,.1303800e-05,.2243400e-05,.2999100e-05,.3245200e-05,&
5372  & .1466900e-08,.1522700e-05,.2639400e-05,.3519500e-05,.3740300e-05,&
5373  & .1562100e-08,.1714500e-05,.3018800e-05,.4088100e-05,.4275700e-05,&
5374  & .1646700e-08,.1909300e-05,.3348100e-05,.4576800e-05,.4835700e-05,&
5375  & .1016400e-08,.8490800e-06,.1474100e-05,.1986400e-05,.2174400e-05,&
5376  & .1092600e-08,.1023200e-05,.1764200e-05,.2353600e-05,.2556200e-05,&
5377  & .1171700e-08,.1215600e-05,.2083600e-05,.2775000e-05,.2954700e-05,&
5378  & .1250200e-08,.1367100e-05,.2414900e-05,.3237400e-05,.3385600e-05,&
5379  & .1320400e-08,.1529000e-05,.2680100e-05,.3663100e-05,.3843000e-05,&
5380  & .8096700e-09,.6624700e-06,.1152500e-05,.1555700e-05,.1691100e-05,&
5381  & .8709100e-09,.8011400e-06,.1383800e-05,.1845700e-05,.2007100e-05,&
5382  & .9347100e-09,.9606300e-06,.1641400e-05,.2186200e-05,.2335700e-05,&
5383  & .9999600e-09,.1089800e-05,.1928700e-05,.2558700e-05,.2676500e-05,&
5384  & .1059400e-08,.1225500e-05,.2143700e-05,.2923900e-05,.3049100e-05,&
5385  & .6443800e-09,.5140800e-06,.8969200e-06,.1217600e-05,.1309400e-05,&
5386  & .6933800e-09,.6233500e-06,.1078300e-05,.1440800e-05,.1569700e-05,&
5387  & .7424900e-09,.7519700e-06,.1285900e-05,.1711600e-05,.1828600e-05,&
5388  & .7971000e-09,.8678500e-06,.1518200e-05,.2011700e-05,.2107200e-05,&
5389  & .8496600e-09,.9792300e-06,.1715600e-05,.2335400e-05,.2409600e-05,&
5390  & .5123600e-09,.3948300e-06,.6910000e-06,.9487100e-06,.1005000e-05,&
5391  & .5507500e-09,.4807500e-06,.8332600e-06,.1117100e-05,.1216900e-05,&
5392  & .5915300e-09,.5827900e-06,.9992200e-06,.1330700e-05,.1422700e-05,&
5393  & .6348500e-09,.6834700e-06,.1184500e-05,.1569600e-05,.1647400e-05,&
5394  & .6783300e-09,.7735900e-06,.1359300e-05,.1832900e-05,.1893300e-05/
5395 
5396  data absb(876:1050, 2) / &
5397  & .4074900e-09,.3016200e-06,.5340800e-06,.7277700e-06,.7676800e-06,&
5398  & .4368200e-09,.3697500e-06,.6420100e-06,.8617400e-06,.9333400e-06,&
5399  & .4698100e-09,.4501500e-06,.7746000e-06,.1030600e-05,.1109200e-05,&
5400  & .5030200e-09,.5391200e-06,.9217100e-06,.1222500e-05,.1287400e-05,&
5401  & .5399900e-09,.6101300e-06,.1079000e-05,.1433400e-05,.1482800e-05,&
5402  & .3228800e-09,.2311500e-06,.4162500e-06,.5531800e-06,.5847600e-06,&
5403  & .3473100e-09,.2835500e-06,.4949300e-06,.6685000e-06,.7160000e-06,&
5404  & .3731000e-09,.3468200e-06,.5982000e-06,.7961700e-06,.8598500e-06,&
5405  & .3997500e-09,.4203400e-06,.7152700e-06,.9504600e-06,.1004100e-05,&
5406  & .4297000e-09,.4834100e-06,.8482900e-06,.1119100e-05,.1158200e-05,&
5407  & .2564600e-09,.1774300e-06,.3242300e-06,.4217500e-06,.4475400e-06,&
5408  & .2766900e-09,.2185600e-06,.3822000e-06,.5210200e-06,.5514100e-06,&
5409  & .2965400e-09,.2680800e-06,.4637500e-06,.6192100e-06,.6702500e-06,&
5410  & .3187200e-09,.3266200e-06,.5568700e-06,.7398500e-06,.7829100e-06,&
5411  & .3419800e-09,.3813600e-06,.6638500e-06,.8759100e-06,.9077100e-06,&
5412  & .2047200e-09,.1369400e-06,.2472600e-06,.3221600e-06,.3422900e-06,&
5413  & .2205400e-09,.1684200e-06,.2964600e-06,.4063500e-06,.4240200e-06,&
5414  & .2365300e-09,.2073100e-06,.3591300e-06,.4802700e-06,.5171400e-06,&
5415  & .2540200e-09,.2537900e-06,.4337700e-06,.5768900e-06,.6122800e-06,&
5416  & .2723300e-09,.3020200e-06,.5194000e-06,.6862600e-06,.7114600e-06,&
5417  & .1642800e-09,.1068700e-06,.1880300e-06,.2451700e-06,.2609000e-06,&
5418  & .1752000e-09,.1297800e-06,.2302500e-06,.3110600e-06,.3251200e-06,&
5419  & .1886500e-09,.1599400e-06,.2772600e-06,.3726100e-06,.3988800e-06,&
5420  & .2026500e-09,.1967000e-06,.3370800e-06,.4484500e-06,.4777900e-06,&
5421  & .2171100e-09,.2373900e-06,.4052800e-06,.5366800e-06,.5582800e-06,&
5422  & .1320600e-09,.8267700e-07,.1428400e-06,.1864000e-06,.1989800e-06,&
5423  & .1393800e-09,.9959700e-07,.1809500e-06,.2372500e-06,.2491100e-06,&
5424  & .1505600e-09,.1230900e-06,.2149400e-06,.2902600e-06,.3072000e-06,&
5425  & .1613600e-09,.1520500e-06,.2614700e-06,.3477400e-06,.3733100e-06,&
5426  & .1731800e-09,.1854700e-06,.3156600e-06,.4185700e-06,.4364900e-06,&
5427  & .1062800e-09,.6352900e-07,.1093800e-06,.1428500e-06,.1528100e-06,&
5428  & .1118100e-09,.7706800e-07,.1403600e-06,.1820100e-06,.1916300e-06,&
5429  & .1199200e-09,.9538700e-07,.1669200e-06,.2287800e-06,.2382400e-06,&
5430  & .1290000e-09,.1180900e-06,.2040600e-06,.2716300e-06,.2907800e-06,&
5431  & .1382800e-09,.1451000e-06,.2467800e-06,.3275300e-06,.3421700e-06/
5432 
5433  data absb(1051:1175, 2) / &
5434  & .8566400e-10,.4844400e-07,.8393200e-07,.1095000e-06,.1178500e-06,&
5435  & .8999900e-10,.5988500e-07,.1077600e-06,.1402300e-06,.1476300e-06,&
5436  & .9583600e-10,.7394100e-07,.1302300e-06,.1787600e-06,.1842600e-06,&
5437  & .1032300e-09,.9179100e-07,.1588200e-06,.2120200e-06,.2261100e-06,&
5438  & .1108100e-09,.1133600e-06,.1931600e-06,.2564700e-06,.2691800e-06,&
5439  & .6909300e-10,.3683200e-07,.6412300e-07,.8403000e-07,.9097400e-07,&
5440  & .7243300e-10,.4708400e-07,.8261300e-07,.1075800e-06,.1134600e-06,&
5441  & .7661600e-10,.5738800e-07,.1018200e-06,.1376800e-06,.1422400e-06,&
5442  & .8270900e-10,.7129400e-07,.1235500e-06,.1653000e-06,.1754900e-06,&
5443  & .8863600e-10,.8844500e-07,.1509400e-06,.2006700e-06,.2111800e-06,&
5444  & .5598000e-10,.2801800e-07,.4886700e-07,.6485700e-07,.7005500e-07,&
5445  & .5839700e-10,.3662000e-07,.6323200e-07,.8242800e-07,.8745700e-07,&
5446  & .6150900e-10,.4444600e-07,.8051200e-07,.1058000e-06,.1098800e-06,&
5447  & .6601500e-10,.5522200e-07,.9640100e-07,.1293500e-06,.1361400e-06,&
5448  & .7097600e-10,.6882100e-07,.1178000e-06,.1563200e-06,.1658600e-06,&
5449  & .4572200e-10,.2150600e-07,.3732600e-07,.5033300e-07,.5485500e-07,&
5450  & .4709000e-10,.2824900e-07,.4861200e-07,.6344200e-07,.6755000e-07,&
5451  & .4955000e-10,.3443000e-07,.6276900e-07,.8150900e-07,.8491700e-07,&
5452  & .5281700e-10,.4295800e-07,.7517300e-07,.1020400e-06,.1060300e-06,&
5453  & .5686400e-10,.5363700e-07,.9204400e-07,.1222900e-06,.1301100e-06,&
5454  & .3749600e-10,.1725500e-07,.2996700e-07,.4039400e-07,.4405900e-07,&
5455  & .3836700e-10,.2278200e-07,.3914400e-07,.5101900e-07,.5440400e-07,&
5456  & .4034600e-10,.2784200e-07,.5069200e-07,.6571600e-07,.6844000e-07,&
5457  & .4290800e-10,.3476100e-07,.6084600e-07,.8283400e-07,.8571300e-07,&
5458  & .4621300e-10,.4346700e-07,.7462600e-07,.9914400e-07,.1051800e-06/
5459 
5460  data absb( 1:175, 3) / &
5461  & .9118000e-05,.1275400e-02,.1990000e-02,.2444000e-02,.4057600e-02,&
5462  & .9503700e-05,.1415000e-02,.2214500e-02,.2809400e-02,.4437500e-02,&
5463  & .9975700e-05,.1562600e-02,.2432000e-02,.3137500e-02,.4809700e-02,&
5464  & .1050800e-04,.1699700e-02,.2692600e-02,.3448300e-02,.5155400e-02,&
5465  & .1103300e-04,.1837300e-02,.2968400e-02,.3786100e-02,.5489600e-02,&
5466  & .7320900e-05,.1072700e-02,.1678700e-02,.2088100e-02,.3304100e-02,&
5467  & .7679500e-05,.1193700e-02,.1868300e-02,.2361600e-02,.3624600e-02,&
5468  & .8041700e-05,.1317700e-02,.2056700e-02,.2646500e-02,.3943800e-02,&
5469  & .8429600e-05,.1431700e-02,.2282600e-02,.2902200e-02,.4236800e-02,&
5470  & .8895000e-05,.1549500e-02,.2508400e-02,.3190100e-02,.4499200e-02,&
5471  & .5827500e-05,.8989500e-03,.1416100e-02,.1776000e-02,.2650800e-02,&
5472  & .6116600e-05,.1002500e-02,.1570600e-02,.1989300e-02,.2921900e-02,&
5473  & .6434000e-05,.1105500e-02,.1737500e-02,.2223700e-02,.3171800e-02,&
5474  & .6750100e-05,.1202800e-02,.1929100e-02,.2443300e-02,.3401500e-02,&
5475  & .7084300e-05,.1303400e-02,.2115200e-02,.2689200e-02,.3635000e-02,&
5476  & .4577600e-05,.7523300e-03,.1190600e-02,.1495700e-02,.2107600e-02,&
5477  & .4826200e-05,.8405100e-03,.1319200e-02,.1678000e-02,.2326700e-02,&
5478  & .5102400e-05,.9260300e-03,.1465300e-02,.1867100e-02,.2524200e-02,&
5479  & .5385600e-05,.1009300e-02,.1628800e-02,.2059900e-02,.2713400e-02,&
5480  & .5662500e-05,.1093900e-02,.1783400e-02,.2269300e-02,.2909200e-02,&
5481  & .3597800e-05,.6305500e-03,.1000100e-02,.1261800e-02,.1675900e-02,&
5482  & .3809000e-05,.7051900e-03,.1108000e-02,.1414200e-02,.1856300e-02,&
5483  & .4036500e-05,.7759300e-03,.1235200e-02,.1569200e-02,.2021500e-02,&
5484  & .4269200e-05,.8464800e-03,.1375300e-02,.1736100e-02,.2188200e-02,&
5485  & .4532500e-05,.9181500e-03,.1503100e-02,.1915600e-02,.2351100e-02,&
5486  & .2857700e-05,.5292300e-03,.8406000e-03,.1064100e-02,.1352400e-02,&
5487  & .3018900e-05,.5927500e-03,.9326400e-03,.1192500e-02,.1505100e-02,&
5488  & .3197100e-05,.6514000e-03,.1042200e-02,.1317400e-02,.1641300e-02,&
5489  & .3398100e-05,.7114400e-03,.1159400e-02,.1461300e-02,.1785100e-02,&
5490  & .3612700e-05,.7720000e-03,.1268500e-02,.1616400e-02,.1916600e-02,&
5491  & .2283200e-05,.4448900e-03,.7052300e-03,.8915000e-03,.1105400e-02,&
5492  & .2400500e-05,.4986000e-03,.7859600e-03,.1003300e-02,.1231000e-02,&
5493  & .2546500e-05,.5474600e-03,.8809600e-03,.1108400e-02,.1347900e-02,&
5494  & .2716700e-05,.5976000e-03,.9768500e-03,.1230500e-02,.1466800e-02,&
5495  & .2892700e-05,.6484400e-03,.1069500e-02,.1363200e-02,.1574600e-02/
5496 
5497  data absb(176:350, 3) / &
5498  & .1842600e-05,.3756700e-03,.5927600e-03,.7500200e-03,.9115900e-03,&
5499  & .1932400e-05,.4204900e-03,.6637600e-03,.8430400e-03,.1017500e-02,&
5500  & .2056300e-05,.4610400e-03,.7456100e-03,.9356800e-03,.1115300e-02,&
5501  & .2195200e-05,.5030200e-03,.8249100e-03,.1041000e-02,.1213100e-02,&
5502  & .2342900e-05,.5457000e-03,.9032400e-03,.1151200e-02,.1300200e-02,&
5503  & .1491400e-05,.3172700e-03,.4987900e-03,.6314100e-03,.7548000e-03,&
5504  & .1571100e-05,.3536700e-03,.5610500e-03,.7085900e-03,.8427800e-03,&
5505  & .1672000e-05,.3877600e-03,.6312200e-03,.7906600e-03,.9249200e-03,&
5506  & .1783000e-05,.4232700e-03,.6965500e-03,.8831100e-03,.1004100e-02,&
5507  & .1906500e-05,.4590500e-03,.7623800e-03,.9732000e-03,.1076700e-02,&
5508  & .1200700e-05,.2697600e-03,.4231600e-03,.5375000e-03,.6274700e-03,&
5509  & .1274400e-05,.2988000e-03,.4784000e-03,.6009400e-03,.7013400e-03,&
5510  & .1357200e-05,.3281300e-03,.5367200e-03,.6734100e-03,.7691600e-03,&
5511  & .1445900e-05,.3576100e-03,.5915400e-03,.7542100e-03,.8337100e-03,&
5512  & .1553800e-05,.3879200e-03,.6466300e-03,.8287700e-03,.8952900e-03,&
5513  & .9686100e-06,.2291800e-03,.3601500e-03,.4571900e-03,.5240400e-03,&
5514  & .1033600e-05,.2532100e-03,.4083400e-03,.5116100e-03,.5835100e-03,&
5515  & .1098500e-05,.2776700e-03,.4557100e-03,.5745900e-03,.6398500e-03,&
5516  & .1176800e-05,.3025200e-03,.5019500e-03,.6419000e-03,.6930300e-03,&
5517  & .1261500e-05,.3279400e-03,.5483100e-03,.7057900e-03,.7454000e-03,&
5518  & .7756000e-06,.1943700e-03,.3074800e-03,.3882800e-03,.4352900e-03,&
5519  & .8258000e-06,.2143800e-03,.3483500e-03,.4361700e-03,.4837300e-03,&
5520  & .8820000e-06,.2349200e-03,.3868000e-03,.4916900e-03,.5318900e-03,&
5521  & .9494700e-06,.2557300e-03,.4263500e-03,.5464100e-03,.5763700e-03,&
5522  & .1018200e-05,.2774500e-03,.4660700e-03,.6004600e-03,.6199800e-03,&
5523  & .6196300e-06,.1645400e-03,.2628400e-03,.3301600e-03,.3628400e-03,&
5524  & .6614600e-06,.1816200e-03,.2971400e-03,.3731500e-03,.4037000e-03,&
5525  & .7111100e-06,.1988200e-03,.3294200e-03,.4213000e-03,.4438200e-03,&
5526  & .7657300e-06,.2166300e-03,.3622800e-03,.4664000e-03,.4805200e-03,&
5527  & .8210000e-06,.2350300e-03,.3962700e-03,.5113200e-03,.5177600e-03,&
5528  & .4971800e-06,.1398200e-03,.2252300e-03,.2827500e-03,.3055800e-03,&
5529  & .5336500e-06,.1543100e-03,.2536800e-03,.3204400e-03,.3389500e-03,&
5530  & .5770500e-06,.1688400e-03,.2808200e-03,.3601900e-03,.3717300e-03,&
5531  & .6206100e-06,.1839300e-03,.3086500e-03,.3986600e-03,.4024300e-03,&
5532  & .6642700e-06,.1996800e-03,.3375700e-03,.4366300e-03,.4330900e-03/
5533 
5534  data absb(351:525, 3) / &
5535  & .3996100e-06,.1188900e-03,.1936100e-03,.2427000e-03,.2569300e-03,&
5536  & .4313600e-06,.1310000e-03,.2163200e-03,.2759100e-03,.2846300e-03,&
5537  & .4649000e-06,.1433300e-03,.2396600e-03,.3084900e-03,.3110600e-03,&
5538  & .5000900e-06,.1563000e-03,.2634600e-03,.3408300e-03,.3371300e-03,&
5539  & .5380800e-06,.1699900e-03,.2876800e-03,.3732300e-03,.3627900e-03,&
5540  & .3198600e-06,.1010600e-03,.1658500e-03,.2089100e-03,.2155800e-03,&
5541  & .3454000e-06,.1111900e-03,.1850000e-03,.2376000e-03,.2385400e-03,&
5542  & .3722600e-06,.1218300e-03,.2045600e-03,.2641900e-03,.2605300e-03,&
5543  & .4031700e-06,.1329000e-03,.2248700e-03,.2915600e-03,.2826200e-03,&
5544  & .4327100e-06,.1448200e-03,.2454100e-03,.3193400e-03,.3041900e-03,&
5545  & .2567700e-06,.8606000e-04,.1420600e-03,.1802300e-03,.1814100e-03,&
5546  & .2773600e-06,.9467700e-04,.1584100e-03,.2037800e-03,.2008800e-03,&
5547  & .3010400e-06,.1037200e-03,.1751500e-03,.2266300e-03,.2192100e-03,&
5548  & .3258400e-06,.1134000e-03,.1923200e-03,.2495300e-03,.2378900e-03,&
5549  & .3489100e-06,.1236800e-03,.2097600e-03,.2736400e-03,.2557000e-03,&
5550  & .2055600e-06,.7327400e-04,.1217000e-03,.1558800e-03,.1531200e-03,&
5551  & .2237600e-06,.8065100e-04,.1356800e-03,.1752400e-03,.1694800e-03,&
5552  & .2431300e-06,.8848100e-04,.1499200e-03,.1944700e-03,.1847700e-03,&
5553  & .2623300e-06,.9682400e-04,.1645800e-03,.2140900e-03,.2002700e-03,&
5554  & .2824900e-06,.1058000e-03,.1798700e-03,.2343500e-03,.2153200e-03,&
5555  & .1655300e-06,.6253600e-04,.1045700e-03,.1344300e-03,.1296800e-03,&
5556  & .1807800e-06,.6886300e-04,.1164300e-03,.1506000e-03,.1430400e-03,&
5557  & .1961900e-06,.7567000e-04,.1286400e-03,.1668100e-03,.1561500e-03,&
5558  & .2115800e-06,.8289900e-04,.1411400e-03,.1838500e-03,.1691100e-03,&
5559  & .2291500e-06,.9062900e-04,.1545600e-03,.2009900e-03,.1814600e-03,&
5560  & .1338000e-06,.5340700e-04,.8993000e-04,.1159100e-03,.1100500e-03,&
5561  & .1460400e-06,.5888700e-04,.1000100e-03,.1296300e-03,.1210700e-03,&
5562  & .1584800e-06,.6479000e-04,.1104000e-03,.1434900e-03,.1323000e-03,&
5563  & .1719000e-06,.7116900e-04,.1212500e-03,.1579200e-03,.1429700e-03,&
5564  & .1858700e-06,.7779200e-04,.1329200e-03,.1726500e-03,.1530800e-03,&
5565  & .1083000e-06,.4568600e-04,.7733900e-04,.9986700e-04,.9356200e-04,&
5566  & .1176500e-06,.5052600e-04,.8595900e-04,.1115300e-03,.1026900e-03,&
5567  & .1282400e-06,.5562700e-04,.9490000e-04,.1235400e-03,.1120500e-03,&
5568  & .1395800e-06,.6115800e-04,.1044000e-03,.1357300e-03,.1209900e-03,&
5569  & .1507800e-06,.6690900e-04,.1143100e-03,.1486100e-03,.1291800e-03/
5570 
5571  data absb(526:700, 3) / &
5572  & .8753700e-07,.3907300e-04,.6633000e-04,.8586000e-04,.7929600e-04,&
5573  & .9527000e-07,.4328200e-04,.7374300e-04,.9573300e-04,.8708200e-04,&
5574  & .1042300e-06,.4770100e-04,.8144700e-04,.1060900e-03,.9485700e-04,&
5575  & .1134800e-06,.5248400e-04,.8962400e-04,.1163800e-03,.1021100e-03,&
5576  & .1228900e-06,.5743100e-04,.9812200e-04,.1276000e-03,.1086600e-03,&
5577  & .6989100e-07,.3312900e-04,.5632300e-04,.7303600e-04,.6656800e-04,&
5578  & .7646500e-07,.3672400e-04,.6262700e-04,.8152000e-04,.7317600e-04,&
5579  & .8383300e-07,.4061900e-04,.6929300e-04,.9016100e-04,.7954800e-04,&
5580  & .9143600e-07,.4467100e-04,.7636200e-04,.9907500e-04,.8549700e-04,&
5581  & .9926300e-07,.4888600e-04,.8355000e-04,.1084900e-03,.9072000e-04,&
5582  & .5508000e-07,.2779600e-04,.4726100e-04,.6129900e-04,.5523700e-04,&
5583  & .6056200e-07,.3085000e-04,.5263500e-04,.6851500e-04,.6079400e-04,&
5584  & .6644000e-07,.3420000e-04,.5829800e-04,.7584700e-04,.6609700e-04,&
5585  & .7291300e-07,.3765000e-04,.6431000e-04,.8353000e-04,.7103200e-04,&
5586  & .7954500e-07,.4121600e-04,.7039700e-04,.9130400e-04,.7519300e-04,&
5587  & .4364400e-07,.2299700e-04,.3908800e-04,.5071400e-04,.4537400e-04,&
5588  & .4818200e-07,.2558500e-04,.4366100e-04,.5681300e-04,.5005700e-04,&
5589  & .5306700e-07,.2842900e-04,.4846500e-04,.6302000e-04,.5449000e-04,&
5590  & .5834900e-07,.3136500e-04,.5360300e-04,.6951600e-04,.5858500e-04,&
5591  & .6372700e-07,.3439800e-04,.5871000e-04,.7603200e-04,.6204600e-04,&
5592  & .3466100e-07,.1900300e-04,.3229500e-04,.4189800e-04,.3720700e-04,&
5593  & .3841400e-07,.2120000e-04,.3617000e-04,.4704500e-04,.4115000e-04,&
5594  & .4237800e-07,.2360500e-04,.4024700e-04,.5230600e-04,.4487200e-04,&
5595  & .4659800e-07,.2611000e-04,.4462000e-04,.5780000e-04,.4829300e-04,&
5596  & .5099500e-07,.2868300e-04,.4893500e-04,.6325000e-04,.5115500e-04,&
5597  & .2754500e-07,.1570000e-04,.2666100e-04,.3460300e-04,.3048700e-04,&
5598  & .3055300e-07,.1756800e-04,.2994800e-04,.3893500e-04,.3381300e-04,&
5599  & .3377200e-07,.1960100e-04,.3341100e-04,.4340300e-04,.3692200e-04,&
5600  & .3716400e-07,.2172600e-04,.3711300e-04,.4803000e-04,.3977100e-04,&
5601  & .4079500e-07,.2390100e-04,.4076500e-04,.5260700e-04,.4215200e-04,&
5602  & .2185200e-07,.1281900e-04,.2175700e-04,.2822100e-04,.2474500e-04,&
5603  & .2420700e-07,.1439500e-04,.2452700e-04,.3186700e-04,.2750200e-04,&
5604  & .2680600e-07,.1609200e-04,.2746200e-04,.3564600e-04,.3014500e-04,&
5605  & .2961200e-07,.1789400e-04,.3057200e-04,.3952700e-04,.3254300e-04,&
5606  & .3257700e-07,.1974600e-04,.3367200e-04,.4339900e-04,.3455600e-04/
5607 
5608  data absb(701:875, 3) / &
5609  & .1733600e-07,.1044100e-04,.1769500e-04,.2295400e-04,.2004200e-04,&
5610  & .1918700e-07,.1177100e-04,.2002500e-04,.2602900e-04,.2234600e-04,&
5611  & .2131100e-07,.1319000e-04,.2251600e-04,.2920100e-04,.2457700e-04,&
5612  & .2359700e-07,.1471200e-04,.2512200e-04,.3246600e-04,.2658400e-04,&
5613  & .2595800e-07,.1628000e-04,.2774400e-04,.3576200e-04,.2829500e-04,&
5614  & .1375200e-07,.8497000e-05,.1437900e-04,.1864000e-04,.1620500e-04,&
5615  & .1524000e-07,.9608200e-05,.1632500e-04,.2122500e-04,.1812400e-04,&
5616  & .1692400e-07,.1080200e-04,.1843000e-04,.2389600e-04,.2002400e-04,&
5617  & .1876700e-07,.1208700e-04,.2060900e-04,.2665100e-04,.2169800e-04,&
5618  & .2066600e-07,.1340900e-04,.2283700e-04,.2942700e-04,.2315300e-04,&
5619  & .1082700e-07,.6862400e-05,.1158600e-04,.1499900e-04,.1297500e-04,&
5620  & .1203000e-07,.7784700e-05,.1320500e-04,.1716400e-04,.1460500e-04,&
5621  & .1335200e-07,.8777900e-05,.1497400e-04,.1941000e-04,.1623100e-04,&
5622  & .1482900e-07,.9862000e-05,.1679500e-04,.2175100e-04,.1763400e-04,&
5623  & .1639600e-07,.1097500e-04,.1868200e-04,.2406600e-04,.1887900e-04,&
5624  & .8573100e-08,.5513200e-05,.9286200e-05,.1200000e-04,.1034700e-04,&
5625  & .9503300e-08,.6281600e-05,.1062900e-04,.1381700e-04,.1171200e-04,&
5626  & .1053700e-07,.7096400e-05,.1210800e-04,.1570000e-04,.1309500e-04,&
5627  & .1172200e-07,.8012000e-05,.1362100e-04,.1767900e-04,.1429600e-04,&
5628  & .1299100e-07,.8945700e-05,.1522000e-04,.1961400e-04,.1535000e-04,&
5629  & .6751500e-08,.4421200e-05,.7424400e-05,.9577600e-05,.8242900e-05,&
5630  & .7499900e-08,.5060300e-05,.8536000e-05,.1109500e-04,.9379100e-05,&
5631  & .8318200e-08,.5741100e-05,.9768600e-05,.1266700e-04,.1052800e-04,&
5632  & .9252600e-08,.6494200e-05,.1102800e-04,.1432800e-04,.1156600e-04,&
5633  & .1026900e-07,.7276900e-05,.1237500e-04,.1596400e-04,.1247200e-04,&
5634  & .5303100e-08,.3530100e-05,.5905000e-05,.7596500e-05,.6545200e-05,&
5635  & .5890700e-08,.4056100e-05,.6823300e-05,.8862100e-05,.7477100e-05,&
5636  & .6542200e-08,.4627000e-05,.7839300e-05,.1016900e-04,.8437000e-05,&
5637  & .7266900e-08,.5243300e-05,.8906100e-05,.1156300e-04,.9326800e-05,&
5638  & .8088000e-08,.5896700e-05,.1001600e-04,.1293000e-04,.1010600e-04,&
5639  & .4145900e-08,.2796500e-05,.4652900e-05,.5964800e-05,.5155200e-05,&
5640  & .4632400e-08,.3225300e-05,.5410000e-05,.7009400e-05,.5911000e-05,&
5641  & .5143300e-08,.3701400e-05,.6239500e-05,.8097600e-05,.6710000e-05,&
5642  & .5704500e-08,.4209100e-05,.7138100e-05,.9253700e-05,.7489600e-05,&
5643  & .6352600e-08,.4754100e-05,.8057300e-05,.1042800e-04,.8154000e-05/
5644 
5645  data absb(876:1050, 3) / &
5646  & .3254900e-08,.2208900e-05,.3657100e-05,.4666300e-05,.4038700e-05,&
5647  & .3619200e-08,.2558100e-05,.4275200e-05,.5526500e-05,.4658200e-05,&
5648  & .4021500e-08,.2951500e-05,.4955300e-05,.6432700e-05,.5323600e-05,&
5649  & .4473600e-08,.3369000e-05,.5701500e-05,.7385900e-05,.5996000e-05,&
5650  & .4976000e-08,.3827600e-05,.6459600e-05,.8384400e-05,.6564700e-05,&
5651  & .2543200e-08,.1739000e-05,.2860700e-05,.3643800e-05,.3142500e-05,&
5652  & .2836400e-08,.2021900e-05,.3369800e-05,.4341200e-05,.3665400e-05,&
5653  & .3160100e-08,.2347200e-05,.3923200e-05,.5096400e-05,.4214200e-05,&
5654  & .3510100e-08,.2694800e-05,.4542900e-05,.5879700e-05,.4771500e-05,&
5655  & .3898900e-08,.3071800e-05,.5173100e-05,.6719000e-05,.5272000e-05,&
5656  & .2009300e-08,.1370400e-05,.2237300e-05,.2837500e-05,.2455000e-05,&
5657  & .2227000e-08,.1602000e-05,.2662600e-05,.3414400e-05,.2896300e-05,&
5658  & .2479700e-08,.1868600e-05,.3113100e-05,.4034800e-05,.3339800e-05,&
5659  & .2761400e-08,.2159300e-05,.3619900e-05,.4685600e-05,.3801900e-05,&
5660  & .3067400e-08,.2469900e-05,.4151700e-05,.5384400e-05,.4232200e-05,&
5661  & .1590700e-08,.1080300e-05,.1751800e-05,.2206400e-05,.1925400e-05,&
5662  & .1750900e-08,.1269100e-05,.2100000e-05,.2679400e-05,.2283200e-05,&
5663  & .1950900e-08,.1486100e-05,.2472600e-05,.3195700e-05,.2641800e-05,&
5664  & .2170300e-08,.1728400e-05,.2883800e-05,.3732500e-05,.3025700e-05,&
5665  & .2412400e-08,.1984400e-05,.3330500e-05,.4312800e-05,.3401500e-05,&
5666  & .1256400e-08,.8466900e-06,.1371700e-05,.1714700e-05,.1494700e-05,&
5667  & .1379400e-08,.1002400e-05,.1652300e-05,.2099300e-05,.1787000e-05,&
5668  & .1532000e-08,.1179000e-05,.1957700e-05,.2522000e-05,.2084500e-05,&
5669  & .1713000e-08,.1379100e-05,.2295200e-05,.2967700e-05,.2404000e-05,&
5670  & .1904100e-08,.1591400e-05,.2663500e-05,.3443900e-05,.2724700e-05,&
5671  & .9952300e-09,.6621900e-06,.1063200e-05,.1334100e-05,.1155000e-05,&
5672  & .1090300e-08,.7902200e-06,.1291400e-05,.1640100e-05,.1392900e-05,&
5673  & .1208200e-08,.9326600e-06,.1544500e-05,.1984100e-05,.1645200e-05,&
5674  & .1343700e-08,.1096900e-05,.1821200e-05,.2351700e-05,.1902900e-05,&
5675  & .1497200e-08,.1273400e-05,.2127600e-05,.2743100e-05,.2172200e-05,&
5676  & .7878200e-09,.5199300e-06,.8275200e-06,.1042100e-05,.8863200e-06,&
5677  & .8664200e-09,.6244000e-06,.1013800e-05,.1282000e-05,.1095800e-05,&
5678  & .9514100e-09,.7405100e-06,.1222100e-05,.1562600e-05,.1301400e-05,&
5679  & .1062200e-08,.8743800e-06,.1448100e-05,.1867500e-05,.1513800e-05,&
5680  & .1182900e-08,.1021700e-05,.1702500e-05,.2190000e-05,.1734900e-05/
5681 
5682  data absb(1051:1175, 3) / &
5683  & .6273400e-09,.4084400e-06,.6467500e-06,.8116800e-06,.6801500e-06,&
5684  & .6867000e-09,.4943700e-06,.7982200e-06,.1003100e-05,.8595500e-06,&
5685  & .7555100e-09,.5881300e-06,.9664000e-06,.1230500e-05,.1029000e-05,&
5686  & .8389600e-09,.6976200e-06,.1152900e-05,.1484500e-05,.1202500e-05,&
5687  & .9372700e-09,.8199200e-06,.1361800e-05,.1748900e-05,.1385600e-05,&
5688  & .5021400e-09,.3202800e-06,.5052400e-06,.6314700e-06,.5190300e-06,&
5689  & .5477500e-09,.3884100e-06,.6258900e-06,.7844500e-06,.6709900e-06,&
5690  & .5997100e-09,.4660200e-06,.7635600e-06,.9697800e-06,.8091200e-06,&
5691  & .6646600e-09,.5550900e-06,.9153300e-06,.1176600e-05,.9528400e-06,&
5692  & .7393100e-09,.6562500e-06,.1086400e-05,.1394600e-05,.1105500e-05,&
5693  & .4017100e-09,.2500900e-06,.3921100e-06,.4925000e-06,.3933200e-06,&
5694  & .4337900e-09,.3047300e-06,.4893200e-06,.6134200e-06,.5207600e-06,&
5695  & .4772900e-09,.3687400e-06,.5997800e-06,.7624600e-06,.6355600e-06,&
5696  & .5245400e-09,.4407500e-06,.7248800e-06,.9307900e-06,.7544800e-06,&
5697  & .5854600e-09,.5238900e-06,.8656500e-06,.1110700e-05,.8785800e-06,&
5698  & .3222200e-09,.1953600e-06,.3048400e-06,.3812300e-06,.2979800e-06,&
5699  & .3455000e-09,.2400300e-06,.3820600e-06,.4803300e-06,.4019300e-06,&
5700  & .3793000e-09,.2917900e-06,.4722600e-06,.5993800e-06,.5005600e-06,&
5701  & .4167500e-09,.3503500e-06,.5750000e-06,.7364200e-06,.5983600e-06,&
5702  & .4632000e-09,.4185400e-06,.6904100e-06,.8854800e-06,.7000300e-06,&
5703  & .2616600e-09,.1586800e-06,.2469700e-06,.3089200e-06,.2396400e-06,&
5704  & .2809500e-09,.1955200e-06,.3106800e-06,.3903700e-06,.3246900e-06,&
5705  & .3073000e-09,.2385600e-06,.3855400e-06,.4890200e-06,.4073800e-06,&
5706  & .3378100e-09,.2874900e-06,.4715700e-06,.6028600e-06,.4880300e-06,&
5707  & .3752600e-09,.3443900e-06,.5678900e-06,.7274200e-06,.5723800e-06/
5708 
5709  data absb( 1:175, 4) / &
5710  & .4903800e-04,.5078100e-02,.7825400e-02,.9648400e-02,.1061400e-01,&
5711  & .5422500e-04,.5490500e-02,.8571000e-02,.1046000e-01,.1120600e-01,&
5712  & .6113400e-04,.5877300e-02,.9318300e-02,.1134700e-01,.1172900e-01,&
5713  & .6879300e-04,.6279400e-02,.9976800e-02,.1224800e-01,.1225000e-01,&
5714  & .7742900e-04,.6689300e-02,.1062400e-01,.1306400e-01,.1273000e-01,&
5715  & .4070600e-04,.4304500e-02,.6624000e-02,.8122700e-02,.8710500e-02,&
5716  & .4578900e-04,.4640400e-02,.7254700e-02,.8850800e-02,.9218300e-02,&
5717  & .5135900e-04,.4967000e-02,.7864900e-02,.9592800e-02,.9659000e-02,&
5718  & .5844800e-04,.5311200e-02,.8416500e-02,.1035600e-01,.1008500e-01,&
5719  & .6658500e-04,.5659000e-02,.8977000e-02,.1102200e-01,.1054000e-01,&
5720  & .3316100e-04,.3637400e-02,.5600700e-02,.6840800e-02,.7039900e-02,&
5721  & .3731600e-04,.3914500e-02,.6131800e-02,.7481200e-02,.7453300e-02,&
5722  & .4218400e-04,.4194900e-02,.6627200e-02,.8109700e-02,.7839300e-02,&
5723  & .4824900e-04,.4486100e-02,.7093400e-02,.8733000e-02,.8226200e-02,&
5724  & .5491200e-04,.4782900e-02,.7568800e-02,.9283000e-02,.8605800e-02,&
5725  & .2659800e-04,.3064900e-02,.4732300e-02,.5774200e-02,.5664400e-02,&
5726  & .3009600e-04,.3295000e-02,.5177800e-02,.6314500e-02,.6019300e-02,&
5727  & .3408500e-04,.3535000e-02,.5580600e-02,.6844700e-02,.6370800e-02,&
5728  & .3891900e-04,.3783100e-02,.5971900e-02,.7346500e-02,.6708800e-02,&
5729  & .4449200e-04,.4039300e-02,.6375000e-02,.7812000e-02,.7024900e-02,&
5730  & .2144900e-04,.2575600e-02,.3993600e-02,.4866200e-02,.4620500e-02,&
5731  & .2410300e-04,.2770600e-02,.4361900e-02,.5316400e-02,.4920200e-02,&
5732  & .2745100e-04,.2976500e-02,.4695900e-02,.5763200e-02,.5212200e-02,&
5733  & .3138100e-04,.3188400e-02,.5022200e-02,.6173500e-02,.5479000e-02,&
5734  & .3595300e-04,.3409900e-02,.5364500e-02,.6565900e-02,.5741900e-02,&
5735  & .1746800e-04,.2164200e-02,.3364200e-02,.4097200e-02,.3792100e-02,&
5736  & .1950600e-04,.2330800e-02,.3668300e-02,.4469600e-02,.4038500e-02,&
5737  & .2232600e-04,.2507200e-02,.3945400e-02,.4850700e-02,.4277300e-02,&
5738  & .2555800e-04,.2690100e-02,.4224000e-02,.5185500e-02,.4500000e-02,&
5739  & .2951900e-04,.2881600e-02,.4513500e-02,.5516800e-02,.4725900e-02,&
5740  & .1416200e-04,.1816500e-02,.2831100e-02,.3449100e-02,.3126300e-02,&
5741  & .1588000e-04,.1959400e-02,.3079200e-02,.3757700e-02,.3327700e-02,&
5742  & .1825000e-04,.2112400e-02,.3311000e-02,.4071700e-02,.3525500e-02,&
5743  & .2094800e-04,.2271100e-02,.3551200e-02,.4354100e-02,.3711400e-02,&
5744  & .2427900e-04,.2436000e-02,.3797200e-02,.4633600e-02,.3906300e-02/
5745 
5746  data absb(176:350, 4) / &
5747  & .1167700e-04,.1526800e-02,.2385400e-02,.2905400e-02,.2592700e-02,&
5748  & .1312700e-04,.1650200e-02,.2588400e-02,.3164200e-02,.2758400e-02,&
5749  & .1514500e-04,.1782700e-02,.2785400e-02,.3419800e-02,.2922800e-02,&
5750  & .1742600e-04,.1920800e-02,.2991900e-02,.3656300e-02,.3083600e-02,&
5751  & .2018700e-04,.2063800e-02,.3202700e-02,.3895500e-02,.3251700e-02,&
5752  & .9624800e-05,.1283900e-02,.2006900e-02,.2443900e-02,.2152100e-02,&
5753  & .1088400e-04,.1390500e-02,.2175300e-02,.2663400e-02,.2290100e-02,&
5754  & .1257600e-04,.1505700e-02,.2343000e-02,.2871400e-02,.2427100e-02,&
5755  & .1449200e-04,.1624500e-02,.2522900e-02,.3070900e-02,.2565300e-02,&
5756  & .1678500e-04,.1748700e-02,.2705300e-02,.3276900e-02,.2704100e-02,&
5757  & .7898700e-05,.1084100e-02,.1696300e-02,.2064600e-02,.1792000e-02,&
5758  & .9068800e-05,.1178300e-02,.1836400e-02,.2252300e-02,.1905400e-02,&
5759  & .1043600e-04,.1277600e-02,.1983200e-02,.2422000e-02,.2020000e-02,&
5760  & .1205100e-04,.1380000e-02,.2139100e-02,.2590400e-02,.2136400e-02,&
5761  & .1399200e-04,.1487700e-02,.2298300e-02,.2769000e-02,.2251900e-02,&
5762  & .6514300e-05,.9162900e-03,.1433700e-02,.1746800e-02,.1489000e-02,&
5763  & .7529500e-05,.9988000e-03,.1553200e-02,.1901700e-02,.1584400e-02,&
5764  & .8617200e-05,.1084300e-02,.1682800e-02,.2045400e-02,.1682200e-02,&
5765  & .1001700e-04,.1172900e-02,.1817600e-02,.2191200e-02,.1780000e-02,&
5766  & .1164000e-04,.1266800e-02,.1954900e-02,.2344700e-02,.1876500e-02,&
5767  & .5343200e-05,.7757100e-03,.1211400e-02,.1480500e-02,.1237200e-02,&
5768  & .6151500e-05,.8471800e-03,.1315300e-02,.1607800e-02,.1318100e-02,&
5769  & .7092300e-05,.9202400e-03,.1429300e-02,.1730000e-02,.1398900e-02,&
5770  & .8268400e-05,.9974000e-03,.1544700e-02,.1857300e-02,.1481100e-02,&
5771  & .9626800e-05,.1078900e-02,.1662700e-02,.1989200e-02,.1562100e-02,&
5772  & .4393200e-05,.6589800e-03,.1025900e-02,.1256800e-02,.1028700e-02,&
5773  & .5048300e-05,.7197300e-03,.1117400e-02,.1361000e-02,.1097300e-02,&
5774  & .5852700e-05,.7826900e-03,.1215700e-02,.1465800e-02,.1164800e-02,&
5775  & .6825800e-05,.8496800e-03,.1315800e-02,.1577400e-02,.1235400e-02,&
5776  & .7978000e-05,.9209300e-03,.1417100e-02,.1691700e-02,.1302900e-02,&
5777  & .3634900e-05,.5613900e-03,.8723200e-03,.1067100e-02,.8574700e-03,&
5778  & .4176300e-05,.6130700e-03,.9528400e-03,.1155900e-02,.9164000e-03,&
5779  & .4864300e-05,.6676900e-03,.1037700e-02,.1248000e-02,.9741700e-03,&
5780  & .5680600e-05,.7261800e-03,.1123800e-02,.1344300e-02,.1034100e-02,&
5781  & .6657400e-05,.7879100e-03,.1211800e-02,.1442600e-02,.1090800e-02/
5782 
5783  data absb(351:525, 4) / &
5784  & .2984900e-05,.4784500e-03,.7432400e-03,.9069500e-03,.7165400e-03,&
5785  & .3452800e-05,.5230500e-03,.8140700e-03,.9834800e-03,.7662200e-03,&
5786  & .4038600e-05,.5706700e-03,.8863500e-03,.1064300e-02,.8161700e-03,&
5787  & .4734900e-05,.6215900e-03,.9604500e-03,.1147600e-02,.8666700e-03,&
5788  & .5550400e-05,.6748600e-03,.1037300e-02,.1232700e-02,.9143700e-03,&
5789  & .2447400e-05,.4081900e-03,.6346900e-03,.7718400e-03,.5995900e-03,&
5790  & .2852700e-05,.4469400e-03,.6955000e-03,.8380900e-03,.6415100e-03,&
5791  & .3344400e-05,.4880400e-03,.7579700e-03,.9092100e-03,.6846400e-03,&
5792  & .3933200e-05,.5322900e-03,.8217400e-03,.9810300e-03,.7268000e-03,&
5793  & .4624500e-05,.5786400e-03,.8887200e-03,.1054400e-02,.7672300e-03,&
5794  & .2025300e-05,.3492100e-03,.5436500e-03,.6586500e-03,.5033100e-03,&
5795  & .2372000e-05,.3827800e-03,.5957700e-03,.7172900e-03,.5386400e-03,&
5796  & .2794500e-05,.4188700e-03,.6490700e-03,.7782300e-03,.5758100e-03,&
5797  & .3293600e-05,.4569900e-03,.7048100e-03,.8407400e-03,.6108900e-03,&
5798  & .3888100e-05,.4975700e-03,.7632500e-03,.9035600e-03,.6456400e-03,&
5799  & .1679700e-05,.2991800e-03,.4659800e-03,.5631600e-03,.4227000e-03,&
5800  & .1976400e-05,.3283900e-03,.5107600e-03,.6143900e-03,.4530600e-03,&
5801  & .2338400e-05,.3598500e-03,.5568600e-03,.6671200e-03,.4844500e-03,&
5802  & .2766200e-05,.3930200e-03,.6052500e-03,.7209200e-03,.5142500e-03,&
5803  & .3268700e-05,.4283700e-03,.6561000e-03,.7757000e-03,.5439600e-03,&
5804  & .1399100e-05,.2568700e-03,.3999600e-03,.4830700e-03,.3557000e-03,&
5805  & .1656400e-05,.2824600e-03,.4385800e-03,.5274300e-03,.3821100e-03,&
5806  & .1966000e-05,.3097100e-03,.4785600e-03,.5730900e-03,.4082600e-03,&
5807  & .2333400e-05,.3388100e-03,.5206600e-03,.6191900e-03,.4336700e-03,&
5808  & .2758700e-05,.3696400e-03,.5649900e-03,.6666000e-03,.4596900e-03,&
5809  & .1171100e-05,.2210200e-03,.3439400e-03,.4151200e-03,.2998000e-03,&
5810  & .1392800e-05,.2433700e-03,.3771300e-03,.4535100e-03,.3225300e-03,&
5811  & .1658900e-05,.2670400e-03,.4120200e-03,.4927200e-03,.3444200e-03,&
5812  & .1974000e-05,.2926100e-03,.4485500e-03,.5327400e-03,.3663300e-03,&
5813  & .2332300e-05,.3197300e-03,.4872600e-03,.5738300e-03,.3891500e-03,&
5814  & .9830000e-06,.1904700e-03,.2959200e-03,.3573900e-03,.2530300e-03,&
5815  & .1175100e-05,.2098300e-03,.3247400e-03,.3904300e-03,.2725900e-03,&
5816  & .1402700e-05,.2306500e-03,.3550500e-03,.4240500e-03,.2912000e-03,&
5817  & .1669200e-05,.2530200e-03,.3869900e-03,.4588800e-03,.3101800e-03,&
5818  & .1971600e-05,.2771500e-03,.4211900e-03,.4946800e-03,.3298900e-03/
5819 
5820  data absb(526:700, 4) / &
5821  & .8291500e-06,.1639600e-03,.2543300e-03,.3070000e-03,.2140600e-03,&
5822  & .9935200e-06,.1808300e-03,.2793500e-03,.3355200e-03,.2304800e-03,&
5823  & .1187700e-05,.1991500e-03,.3057800e-03,.3645500e-03,.2465900e-03,&
5824  & .1413900e-05,.2188600e-03,.3338400e-03,.3947600e-03,.2631700e-03,&
5825  & .1667000e-05,.2402100e-03,.3639000e-03,.4260300e-03,.2800500e-03,&
5826  & .6867000e-06,.1397900e-03,.2167300e-03,.2616100e-03,.1797400e-03,&
5827  & .8243700e-06,.1544800e-03,.2384600e-03,.2861100e-03,.1937700e-03,&
5828  & .9864900e-06,.1704400e-03,.2613900e-03,.3113200e-03,.2076500e-03,&
5829  & .1174000e-05,.1877300e-03,.2860900e-03,.3374000e-03,.2219700e-03,&
5830  & .1383300e-05,.2065200e-03,.3123300e-03,.3644900e-03,.2365800e-03,&
5831  & .5556400e-06,.1178600e-03,.1828300e-03,.2208900e-03,.1495100e-03,&
5832  & .6673100e-06,.1305300e-03,.2015100e-03,.2418900e-03,.1614600e-03,&
5833  & .8004800e-06,.1443200e-03,.2215400e-03,.2636400e-03,.1734800e-03,&
5834  & .9519500e-06,.1593700e-03,.2431000e-03,.2860900e-03,.1857700e-03,&
5835  & .1121700e-05,.1758000e-03,.2660100e-03,.3094900e-03,.1985000e-03,&
5836  & .4452600e-06,.9833400e-04,.1523600e-03,.1839500e-03,.1236900e-03,&
5837  & .5355100e-06,.1092700e-03,.1683700e-03,.2019400e-03,.1338700e-03,&
5838  & .6430700e-06,.1211000e-03,.1855600e-03,.2205900e-03,.1441800e-03,&
5839  & .7668800e-06,.1341100e-03,.2041400e-03,.2398500e-03,.1547700e-03,&
5840  & .9059100e-06,.1484200e-03,.2240500e-03,.2599600e-03,.1656600e-03,&
5841  & .3563000e-06,.8199100e-04,.1269000e-03,.1531200e-03,.1022600e-03,&
5842  & .4291100e-06,.9139100e-04,.1406400e-03,.1684900e-03,.1109500e-03,&
5843  & .5158300e-06,.1016300e-03,.1553800e-03,.1844800e-03,.1197700e-03,&
5844  & .6165400e-06,.1128700e-03,.1713800e-03,.2010100e-03,.1288400e-03,&
5845  & .7302800e-06,.1253000e-03,.1886200e-03,.2182600e-03,.1381600e-03,&
5846  & .2845500e-06,.6836200e-04,.1057200e-03,.1274700e-03,.8449400e-04,&
5847  & .3431300e-06,.7641300e-04,.1175100e-03,.1406000e-03,.9190500e-04,&
5848  & .4130500e-06,.8529900e-04,.1301600e-03,.1543100e-03,.9946300e-04,&
5849  & .4946600e-06,.9504700e-04,.1439600e-03,.1685100e-03,.1072500e-03,&
5850  & .5872100e-06,.1058300e-03,.1588600e-03,.1833200e-03,.1151600e-03,&
5851  & .2241600e-06,.5645100e-04,.8719200e-04,.1050300e-03,.6929900e-04,&
5852  & .2705800e-06,.6332500e-04,.9724100e-04,.1162500e-03,.7563500e-04,&
5853  & .3264000e-06,.7094200e-04,.1080100e-03,.1279200e-03,.8206100e-04,&
5854  & .3917800e-06,.7938100e-04,.1198500e-03,.1400500e-03,.8872200e-04,&
5855  & .4669400e-06,.8867300e-04,.1326100e-03,.1527400e-03,.9543700e-04/
5856 
5857  data absb(701:875, 4) / &
5858  & .1762000e-06,.4649500e-04,.7182900e-04,.8635100e-04,.5670100e-04,&
5859  & .2129500e-06,.5238300e-04,.8038000e-04,.9593700e-04,.6210000e-04,&
5860  & .2572000e-06,.5890000e-04,.8954800e-04,.1059400e-03,.6756800e-04,&
5861  & .3095700e-06,.6613600e-04,.9964300e-04,.1162300e-03,.7328000e-04,&
5862  & .3700300e-06,.7420300e-04,.1106100e-03,.1270700e-03,.7897900e-04,&
5863  & .1384300e-06,.3823800e-04,.5912400e-04,.7098200e-04,.4633100e-04,&
5864  & .1672600e-06,.4326900e-04,.6642400e-04,.7912500e-04,.5095600e-04,&
5865  & .2023200e-06,.4887000e-04,.7424700e-04,.8766100e-04,.5556100e-04,&
5866  & .2440800e-06,.5511900e-04,.8282700e-04,.9645300e-04,.6044700e-04,&
5867  & .2927600e-06,.6202800e-04,.9222100e-04,.1057000e-03,.6528100e-04,&
5868  & .1079300e-06,.3119100e-04,.4830500e-04,.5794800e-04,.3766600e-04,&
5869  & .1301700e-06,.3546500e-04,.5448900e-04,.6484100e-04,.4155600e-04,&
5870  & .1577100e-06,.4023500e-04,.6117600e-04,.7208200e-04,.4545200e-04,&
5871  & .1906400e-06,.4559900e-04,.6848800e-04,.7957600e-04,.4959300e-04,&
5872  & .2294400e-06,.5155200e-04,.7643100e-04,.8746200e-04,.5371500e-04,&
5873  & .8387900e-07,.2532500e-04,.3929700e-04,.4711800e-04,.3051000e-04,&
5874  & .1008700e-06,.2892000e-04,.4453200e-04,.5292900e-04,.3377200e-04,&
5875  & .1223800e-06,.3297700e-04,.5018900e-04,.5907500e-04,.3706900e-04,&
5876  & .1481300e-06,.3755600e-04,.5645100e-04,.6544800e-04,.4056700e-04,&
5877  & .1787400e-06,.4267200e-04,.6319600e-04,.7215900e-04,.4408500e-04,&
5878  & .6526100e-07,.2051600e-04,.3189500e-04,.3827900e-04,.2465000e-04,&
5879  & .7814500e-07,.2354000e-04,.3631900e-04,.4316100e-04,.2739000e-04,&
5880  & .9480500e-07,.2696200e-04,.4113400e-04,.4835700e-04,.3019000e-04,&
5881  & .1149000e-06,.3085800e-04,.4642900e-04,.5378500e-04,.3313600e-04,&
5882  & .1390500e-06,.3521000e-04,.5221600e-04,.5948200e-04,.3612200e-04,&
5883  & .5066800e-07,.1652600e-04,.2575200e-04,.3095400e-04,.1981700e-04,&
5884  & .6036100e-07,.1905800e-04,.2947100e-04,.3506000e-04,.2212300e-04,&
5885  & .7310100e-07,.2193700e-04,.3356900e-04,.3946100e-04,.2449800e-04,&
5886  & .8874700e-07,.2522200e-04,.3804800e-04,.4403900e-04,.2697300e-04,&
5887  & .1076200e-06,.2893200e-04,.4296400e-04,.4887100e-04,.2949900e-04,&
5888  & .3918500e-07,.1320700e-04,.2062600e-04,.2483500e-04,.1582600e-04,&
5889  & .4633500e-07,.1530300e-04,.2372200e-04,.2827700e-04,.1776200e-04,&
5890  & .5589600e-07,.1770300e-04,.2716200e-04,.3197600e-04,.1978000e-04,&
5891  & .6796200e-07,.2045100e-04,.3094000e-04,.3586700e-04,.2183400e-04,&
5892  & .8253500e-07,.2358300e-04,.3512800e-04,.3993300e-04,.2397200e-04/
5893 
5894  data absb(876:1050, 4) / &
5895  & .3043500e-07,.1052800e-04,.1645800e-04,.1987100e-04,.1263000e-04,&
5896  & .3565700e-07,.1225500e-04,.1903400e-04,.2275700e-04,.1423000e-04,&
5897  & .4277700e-07,.1424100e-04,.2191600e-04,.2585600e-04,.1591600e-04,&
5898  & .5197700e-07,.1653100e-04,.2509400e-04,.2914200e-04,.1763200e-04,&
5899  & .6324600e-07,.1916200e-04,.2863100e-04,.3258600e-04,.1944700e-04,&
5900  & .2372200e-07,.8365600e-05,.1308800e-04,.1583400e-04,.1006000e-04,&
5901  & .2750900e-07,.9786900e-05,.1522700e-04,.1825200e-04,.1136300e-04,&
5902  & .3276900e-07,.1142600e-04,.1762800e-04,.2085300e-04,.1276700e-04,&
5903  & .3971900e-07,.1332600e-04,.2028500e-04,.2363700e-04,.1422300e-04,&
5904  & .4841500e-07,.1552400e-04,.2326800e-04,.2653000e-04,.1573900e-04,&
5905  & .1862300e-07,.6662000e-05,.1042500e-04,.1263400e-04,.8013200e-05,&
5906  & .2139300e-07,.7826400e-05,.1218800e-04,.1464300e-04,.9075700e-05,&
5907  & .2528100e-07,.9178700e-05,.1418600e-04,.1682500e-04,.1024700e-04,&
5908  & .3053000e-07,.1075800e-04,.1641900e-04,.1917800e-04,.1148200e-04,&
5909  & .3721300e-07,.1259300e-04,.1892000e-04,.2164300e-04,.1274900e-04,&
5910  & .1468100e-07,.5304300e-05,.8295600e-05,.1006400e-04,.6366900e-05,&
5911  & .1671700e-07,.6250800e-05,.9750100e-05,.1173700e-04,.7247300e-05,&
5912  & .1958700e-07,.7364300e-05,.1140000e-04,.1355800e-04,.8229000e-05,&
5913  & .2355500e-07,.8674800e-05,.1326800e-04,.1553700e-04,.9263400e-05,&
5914  & .2867100e-07,.1020900e-04,.1537900e-04,.1763500e-04,.1031600e-04,&
5915  & .1162600e-07,.4214900e-05,.6574000e-05,.7983500e-05,.5059500e-05,&
5916  & .1310200e-07,.4988400e-05,.7775800e-05,.9384600e-05,.5785600e-05,&
5917  & .1520800e-07,.5895500e-05,.9139200e-05,.1089800e-04,.6593700e-05,&
5918  & .1817400e-07,.6975800e-05,.1069200e-04,.1255400e-04,.7456400e-05,&
5919  & .2205700e-07,.8250500e-05,.1246200e-04,.1433100e-04,.8330100e-05,&
5920  & .9213000e-08,.3337800e-05,.5199800e-05,.6300600e-05,.4009700e-05,&
5921  & .1029800e-07,.3970400e-05,.6183900e-05,.7477500e-05,.4607700e-05,&
5922  & .1183100e-07,.4708800e-05,.7306200e-05,.8734500e-05,.5262000e-05,&
5923  & .1403000e-07,.5594200e-05,.8592100e-05,.1011900e-04,.5983800e-05,&
5924  & .1697000e-07,.6644700e-05,.1006300e-04,.1162000e-04,.6720800e-05,&
5925  & .7344300e-08,.2649800e-05,.4122900e-05,.4978800e-05,.3192900e-05,&
5926  & .8145300e-08,.3168900e-05,.4932000e-05,.5970100e-05,.3670600e-05,&
5927  & .9285300e-08,.3774600e-05,.5856100e-05,.7013900e-05,.4210500e-05,&
5928  & .1091300e-07,.4498600e-05,.6919200e-05,.8173300e-05,.4808100e-05,&
5929  & .1315100e-07,.5368900e-05,.8146900e-05,.9437700e-05,.5432000e-05/
5930 
5931  data absb(1051:1175, 4) / &
5932  & .5869000e-08,.2105600e-05,.3271000e-05,.3936200e-05,.2535700e-05,&
5933  & .6482400e-08,.2529200e-05,.3933500e-05,.4765200e-05,.2926600e-05,&
5934  & .7319500e-08,.3026000e-05,.4694200e-05,.5634600e-05,.3370000e-05,&
5935  & .8529800e-08,.3621600e-05,.5572700e-05,.6599000e-05,.3866200e-05,&
5936  & .1022700e-07,.4336600e-05,.6593500e-05,.7662700e-05,.4388900e-05,&
5937  & .4687900e-08,.1667400e-05,.2584800e-05,.3099200e-05,.2009700e-05,&
5938  & .5157900e-08,.2014500e-05,.3130700e-05,.3787500e-05,.2330400e-05,&
5939  & .5782900e-08,.2419900e-05,.3752900e-05,.4511900e-05,.2696200e-05,&
5940  & .6681700e-08,.2909200e-05,.4478800e-05,.5314200e-05,.3103700e-05,&
5941  & .7954800e-08,.3498500e-05,.5324800e-05,.6206600e-05,.3538700e-05,&
5942  & .3748700e-08,.1317700e-05,.2036200e-05,.2427800e-05,.1588800e-05,&
5943  & .4113200e-08,.1600600e-05,.2486300e-05,.3000100e-05,.1853000e-05,&
5944  & .4579600e-08,.1930100e-05,.2995700e-05,.3605300e-05,.2151500e-05,&
5945  & .5244700e-08,.2330100e-05,.3590200e-05,.4269000e-05,.2484400e-05,&
5946  & .6195200e-08,.2817500e-05,.4289400e-05,.5013300e-05,.2850300e-05,&
5947  & .3005300e-08,.1041900e-05,.1603400e-05,.1907100e-05,.1255000e-05,&
5948  & .3290600e-08,.1271700e-05,.1975000e-05,.2375100e-05,.1476100e-05,&
5949  & .3641200e-08,.1541300e-05,.2395000e-05,.2881700e-05,.1717300e-05,&
5950  & .4132700e-08,.1867300e-05,.2880000e-05,.3430100e-05,.1989300e-05,&
5951  & .4844800e-08,.2269900e-05,.3455900e-05,.4049600e-05,.2293800e-05,&
5952  & .2451700e-08,.8536700e-06,.1312100e-05,.1558700e-05,.1020900e-05,&
5953  & .2681400e-08,.1045900e-05,.1624100e-05,.1950500e-05,.1206700e-05,&
5954  & .2960400e-08,.1272600e-05,.1978600e-05,.2376500e-05,.1407100e-05,&
5955  & .3349000e-08,.1548600e-05,.2388400e-05,.2839300e-05,.1635300e-05,&
5956  & .3917700e-08,.1892300e-05,.2875100e-05,.3364800e-05,.1889600e-05/
5957 
5958  data absb( 1:175, 5) / &
5959  & .1060600e-02,.1761600e-01,.2633700e-01,.3083200e-01,.2325000e-01,&
5960  & .1197500e-02,.1885100e-01,.2774600e-01,.3219100e-01,.2446100e-01,&
5961  & .1368600e-02,.2023600e-01,.2922400e-01,.3340900e-01,.2553800e-01,&
5962  & .1578800e-02,.2168600e-01,.3082200e-01,.3458100e-01,.2648300e-01,&
5963  & .1842200e-02,.2320100e-01,.3248500e-01,.3579100e-01,.2733900e-01,&
5964  & .9029900e-03,.1493900e-01,.2223500e-01,.2596900e-01,.1945900e-01,&
5965  & .1027600e-02,.1604300e-01,.2346400e-01,.2710200e-01,.2041800e-01,&
5966  & .1184800e-02,.1724400e-01,.2476600e-01,.2813700e-01,.2127900e-01,&
5967  & .1376300e-02,.1849400e-01,.2615900e-01,.2914100e-01,.2203500e-01,&
5968  & .1608700e-02,.1980100e-01,.2758600e-01,.3020800e-01,.2271200e-01,&
5969  & .7616900e-03,.1265700e-01,.1874400e-01,.2180700e-01,.1615500e-01,&
5970  & .8742900e-03,.1362200e-01,.1982000e-01,.2275300e-01,.1690800e-01,&
5971  & .1015300e-02,.1465000e-01,.2096700e-01,.2363700e-01,.1759700e-01,&
5972  & .1186000e-02,.1572800e-01,.2215900e-01,.2452100e-01,.1823600e-01,&
5973  & .1394000e-02,.1685500e-01,.2337700e-01,.2544200e-01,.1880000e-01,&
5974  & .6397900e-03,.1071600e-01,.1578200e-01,.1828000e-01,.1333000e-01,&
5975  & .7399200e-03,.1155000e-01,.1672100e-01,.1907400e-01,.1395500e-01,&
5976  & .8653500e-03,.1243200e-01,.1771500e-01,.1983500e-01,.1451900e-01,&
5977  & .1018000e-02,.1335800e-01,.1873300e-01,.2061200e-01,.1505300e-01,&
5978  & .1202000e-02,.1433000e-01,.1978000e-01,.2139000e-01,.1552300e-01,&
5979  & .5382700e-03,.9067500e-02,.1328200e-01,.1531000e-01,.1100200e-01,&
5980  & .6273300e-03,.9781800e-02,.1409300e-01,.1598500e-01,.1151700e-01,&
5981  & .7389400e-03,.1053600e-01,.1493700e-01,.1664200e-01,.1198200e-01,&
5982  & .8747100e-03,.1132900e-01,.1581300e-01,.1730800e-01,.1243100e-01,&
5983  & .1036900e-02,.1216700e-01,.1671700e-01,.1796600e-01,.1283300e-01,&
5984  & .4563200e-03,.7663100e-02,.1117500e-01,.1282100e-01,.9100700e-02,&
5985  & .5361800e-03,.8274100e-02,.1186700e-01,.1340200e-01,.9528400e-02,&
5986  & .6352000e-03,.8917900e-02,.1259100e-01,.1396000e-01,.9922700e-02,&
5987  & .7551300e-03,.9596600e-02,.1334500e-01,.1452900e-01,.1029400e-01,&
5988  & .8982800e-03,.1032500e-01,.1412700e-01,.1508200e-01,.1063700e-01,&
5989  & .3878200e-03,.6468600e-02,.9394700e-02,.1073800e-01,.7536600e-02,&
5990  & .4582600e-03,.6987200e-02,.9987800e-02,.1123000e-01,.7892000e-02,&
5991  & .5454400e-03,.7538600e-02,.1061300e-01,.1170600e-01,.8221900e-02,&
5992  & .6508500e-03,.8124300e-02,.1126100e-01,.1218300e-01,.8544700e-02,&
5993  & .7760100e-03,.8759800e-02,.1193300e-01,.1266000e-01,.8838800e-02/
5994 
5995  data absb(176:350, 5) / &
5996  & .3330400e-03,.5462300e-02,.7902800e-02,.8996000e-02,.6263500e-02,&
5997  & .3955300e-03,.5905500e-02,.8415500e-02,.9411100e-02,.6561300e-02,&
5998  & .4718000e-03,.6377900e-02,.8950000e-02,.9817200e-02,.6845900e-02,&
5999  & .5645300e-03,.6886200e-02,.9504800e-02,.1022500e-01,.7124600e-02,&
6000  & .6748600e-03,.7441100e-02,.1008200e-01,.1063700e-01,.7378600e-02,&
6001  & .2869300e-03,.4618000e-02,.6650400e-02,.7537900e-02,.5207100e-02,&
6002  & .3418000e-03,.4994800e-02,.7089800e-02,.7886600e-02,.5464500e-02,&
6003  & .4081100e-03,.5400600e-02,.7547400e-02,.8233100e-02,.5712700e-02,&
6004  & .4887300e-03,.5843400e-02,.8021200e-02,.8584400e-02,.5947000e-02,&
6005  & .5859300e-03,.6326000e-02,.8518200e-02,.8940800e-02,.6166200e-02,&
6006  & .2497400e-03,.3924000e-02,.5620800e-02,.6334500e-02,.4343100e-02,&
6007  & .2974900e-03,.4252600e-02,.5999600e-02,.6626600e-02,.4562400e-02,&
6008  & .3560800e-03,.4604700e-02,.6391900e-02,.6925900e-02,.4773800e-02,&
6009  & .4269900e-03,.4992000e-02,.6799300e-02,.7227600e-02,.4971400e-02,&
6010  & .5119800e-03,.5416600e-02,.7230200e-02,.7538700e-02,.5166000e-02,&
6011  & .2171600e-03,.3337500e-02,.4752800e-02,.5323800e-02,.3625800e-02,&
6012  & .2588600e-03,.3624300e-02,.5079700e-02,.5574000e-02,.3810700e-02,&
6013  & .3102600e-03,.3935300e-02,.5416900e-02,.5830900e-02,.3987600e-02,&
6014  & .3723500e-03,.4275700e-02,.5771100e-02,.6091100e-02,.4158600e-02,&
6015  & .4456800e-03,.4646300e-02,.6147600e-02,.6363300e-02,.4327700e-02,&
6016  & .1873800e-03,.2841200e-02,.4025100e-02,.4475400e-02,.3023200e-02,&
6017  & .2242200e-03,.3093000e-02,.4306200e-02,.4692100e-02,.3178800e-02,&
6018  & .2694200e-03,.3369400e-02,.4598300e-02,.4912600e-02,.3328700e-02,&
6019  & .3231700e-03,.3670200e-02,.4909200e-02,.5139300e-02,.3477100e-02,&
6020  & .3863800e-03,.3995100e-02,.5238500e-02,.5381500e-02,.3623200e-02,&
6021  & .1622400e-03,.2423200e-02,.3414100e-02,.3766100e-02,.2526200e-02,&
6022  & .1946500e-03,.2646300e-02,.3657500e-02,.3954100e-02,.2657700e-02,&
6023  & .2339100e-03,.2893600e-02,.3913000e-02,.4144600e-02,.2784100e-02,&
6024  & .2804400e-03,.3159800e-02,.4185300e-02,.4344200e-02,.2909800e-02,&
6025  & .3348300e-03,.3443700e-02,.4473500e-02,.4562500e-02,.3035100e-02,&
6026  & .1413200e-03,.2073700e-02,.2903600e-02,.3176200e-02,.2115700e-02,&
6027  & .1697700e-03,.2274300e-02,.3115200e-02,.3338200e-02,.2225800e-02,&
6028  & .2040900e-03,.2494700e-02,.3340100e-02,.3504800e-02,.2333800e-02,&
6029  & .2447200e-03,.2729700e-02,.3579800e-02,.3683500e-02,.2442100e-02,&
6030  & .2913100e-03,.2980400e-02,.3830800e-02,.3879700e-02,.2550000e-02/
6031 
6032  data absb(351:525, 5) / &
6033  & .1229300e-03,.1779700e-02,.2472500e-02,.2682200e-02,.1771800e-02,&
6034  & .1478900e-03,.1959500e-02,.2658400e-02,.2822200e-02,.1865500e-02,&
6035  & .1779000e-03,.2155200e-02,.2858400e-02,.2969500e-02,.1958900e-02,&
6036  & .2131500e-03,.2362400e-02,.3068800e-02,.3130900e-02,.2052000e-02,&
6037  & .2528500e-03,.2582500e-02,.3287600e-02,.3306800e-02,.2144500e-02,&
6038  & .1065700e-03,.1531900e-02,.2109600e-02,.2267800e-02,.1484400e-02,&
6039  & .1285600e-03,.1692000e-02,.2274300e-02,.2389900e-02,.1563900e-02,&
6040  & .1547100e-03,.1863600e-02,.2451100e-02,.2522100e-02,.1643600e-02,&
6041  & .1851200e-03,.2047200e-02,.2636400e-02,.2668100e-02,.1723800e-02,&
6042  & .2187200e-03,.2241100e-02,.2827000e-02,.2826000e-02,.1804800e-02,&
6043  & .9287600e-04,.1323700e-02,.1804900e-02,.1921400e-02,.1247100e-02,&
6044  & .1122600e-03,.1465900e-02,.1951800e-02,.2029500e-02,.1314300e-02,&
6045  & .1351900e-03,.1617100e-02,.2108900e-02,.2149800e-02,.1383300e-02,&
6046  & .1610200e-03,.1777800e-02,.2270300e-02,.2281000e-02,.1452800e-02,&
6047  & .1898100e-03,.1948400e-02,.2437400e-02,.2424900e-02,.1523600e-02,&
6048  & .8082800e-04,.1147100e-02,.1548600e-02,.1630700e-02,.1048200e-02,&
6049  & .9806300e-04,.1271800e-02,.1679700e-02,.1728700e-02,.1105300e-02,&
6050  & .1177200e-03,.1405000e-02,.1817700e-02,.1837900e-02,.1164800e-02,&
6051  & .1398100e-03,.1546900e-02,.1958900e-02,.1956500e-02,.1225800e-02,&
6052  & .1644600e-03,.1694700e-02,.2105500e-02,.2087400e-02,.1288500e-02,&
6053  & .7053900e-04,.9962100e-03,.1332500e-02,.1387900e-02,.8822000e-03,&
6054  & .8558900e-04,.1106300e-02,.1449200e-02,.1477600e-02,.9311300e-03,&
6055  & .1024400e-03,.1224000e-02,.1570100e-02,.1576400e-02,.9823700e-03,&
6056  & .1215100e-03,.1348800e-02,.1694200e-02,.1684600e-02,.1036400e-02,&
6057  & .1424500e-03,.1475300e-02,.1822900e-02,.1804200e-02,.1091000e-02,&
6058  & .6159800e-04,.8670800e-03,.1150600e-02,.1185700e-02,.7439600e-03,&
6059  & .7469800e-04,.9644300e-03,.1253300e-02,.1267300e-02,.7859000e-03,&
6060  & .8909200e-04,.1068400e-02,.1359000e-02,.1357100e-02,.8309000e-03,&
6061  & .1053700e-03,.1176600e-02,.1468200e-02,.1456000e-02,.8782700e-03,&
6062  & .1232700e-03,.1285000e-02,.1581300e-02,.1564300e-02,.9259900e-03,&
6063  & .5374800e-04,.7562900e-03,.9959500e-03,.1016300e-02,.6280900e-03,&
6064  & .6497200e-04,.8426500e-03,.1085600e-02,.1090800e-02,.6641600e-03,&
6065  & .7738600e-04,.9339700e-03,.1178700e-02,.1172700e-02,.7038700e-03,&
6066  & .9113800e-04,.1026600e-02,.1274900e-02,.1263000e-02,.7450700e-03,&
6067  & .1064000e-03,.1118900e-02,.1373800e-02,.1360800e-02,.7883000e-03/
6068 
6069  data absb(526:700, 5) / &
6070  & .4666700e-04,.6588400e-03,.8604900e-03,.8721400e-03,.5309900e-03,&
6071  & .5626300e-04,.7349000e-03,.9390000e-03,.9394600e-03,.5627800e-03,&
6072  & .6685300e-04,.8138300e-03,.1020900e-02,.1014200e-02,.5977600e-03,&
6073  & .7859800e-04,.8931400e-03,.1105400e-02,.1096300e-02,.6341900e-03,&
6074  & .9150300e-04,.9719300e-03,.1192700e-02,.1184000e-02,.6732000e-03,&
6075  & .3959900e-04,.5686600e-03,.7380300e-03,.7449100e-03,.4468800e-03,&
6076  & .4767700e-04,.6349000e-03,.8068500e-03,.8054000e-03,.4746600e-03,&
6077  & .5663000e-04,.7027900e-03,.8786000e-03,.8733200e-03,.5047600e-03,&
6078  & .6650600e-04,.7706100e-03,.9526200e-03,.9467600e-03,.5373000e-03,&
6079  & .7734300e-04,.8387000e-03,.1029500e-02,.1025000e-02,.5720000e-03,&
6080  & .3276700e-04,.4852300e-03,.6275100e-03,.6318300e-03,.3735300e-03,&
6081  & .3945000e-04,.5426100e-03,.6874400e-03,.6858700e-03,.3974400e-03,&
6082  & .4686100e-04,.6009300e-03,.7497700e-03,.7462300e-03,.4231500e-03,&
6083  & .5495600e-04,.6591600e-03,.8146900e-03,.8115800e-03,.4514400e-03,&
6084  & .6390800e-04,.7182000e-03,.8821200e-03,.8810300e-03,.4816500e-03,&
6085  & .2673400e-04,.4075400e-03,.5264500e-03,.5301400e-03,.3111800e-03,&
6086  & .3227300e-04,.4566100e-03,.5782500e-03,.5776600e-03,.3320600e-03,&
6087  & .3848800e-04,.5069700e-03,.6324500e-03,.6305800e-03,.3547600e-03,&
6088  & .4522800e-04,.5570600e-03,.6891800e-03,.6880900e-03,.3794400e-03,&
6089  & .5267500e-04,.6080800e-03,.7479400e-03,.7493400e-03,.4059800e-03,&
6090  & .2175100e-04,.3420900e-03,.4414600e-03,.4445800e-03,.2592000e-03,&
6091  & .2632600e-04,.3841500e-03,.4860300e-03,.4863200e-03,.2773000e-03,&
6092  & .3151500e-04,.4273600e-03,.5332500e-03,.5326200e-03,.2971400e-03,&
6093  & .3721900e-04,.4706400e-03,.5826300e-03,.5832100e-03,.3189000e-03,&
6094  & .4334400e-04,.5149300e-03,.6340200e-03,.6372900e-03,.3421200e-03,&
6095  & .1764300e-04,.2871700e-03,.3702000e-03,.3728800e-03,.2158000e-03,&
6096  & .2141800e-04,.3234300e-03,.4087100e-03,.4095300e-03,.2315100e-03,&
6097  & .2572500e-04,.3604400e-03,.4496600e-03,.4500500e-03,.2488000e-03,&
6098  & .3047900e-04,.3978500e-03,.4926300e-03,.4944500e-03,.2678300e-03,&
6099  & .3565300e-04,.4364600e-03,.5377100e-03,.5423000e-03,.2882200e-03,&
6100  & .1410200e-04,.2381400e-03,.3073000e-03,.3098100e-03,.1786400e-03,&
6101  & .1718700e-04,.2693400e-03,.3403900e-03,.3414600e-03,.1923400e-03,&
6102  & .2073900e-04,.3013000e-03,.3757100e-03,.3767200e-03,.2073700e-03,&
6103  & .2467000e-04,.3333300e-03,.4128300e-03,.4153800e-03,.2240800e-03,&
6104  & .2904600e-04,.3669400e-03,.4521600e-03,.4572900e-03,.2418700e-03/
6105 
6106  data absb(701:875, 5) / &
6107  & .1122100e-04,.1971000e-03,.2546500e-03,.2569600e-03,.1477300e-03,&
6108  & .1374700e-04,.2239000e-03,.2830500e-03,.2841300e-03,.1595500e-03,&
6109  & .1664900e-04,.2514500e-03,.3134600e-03,.3146700e-03,.1726900e-03,&
6110  & .1989900e-04,.2793500e-03,.3456300e-03,.3484500e-03,.1871800e-03,&
6111  & .2356800e-04,.3083000e-03,.3797400e-03,.3851200e-03,.2028100e-03,&
6112  & .8914700e-05,.1631400e-03,.2108800e-03,.2129400e-03,.1220500e-03,&
6113  & .1095700e-04,.1859600e-03,.2352300e-03,.2362800e-03,.1322500e-03,&
6114  & .1332700e-04,.2097400e-03,.2613400e-03,.2626300e-03,.1435600e-03,&
6115  & .1600500e-04,.2337800e-03,.2892500e-03,.2920200e-03,.1562100e-03,&
6116  & .1903800e-04,.2591400e-03,.3189700e-03,.3241500e-03,.1698200e-03,&
6117  & .6999500e-05,.1340500e-03,.1733800e-03,.1753500e-03,.1003600e-03,&
6118  & .8640600e-05,.1534500e-03,.1941600e-03,.1951400e-03,.1091000e-03,&
6119  & .1055600e-04,.1737300e-03,.2165900e-03,.2176700e-03,.1188700e-03,&
6120  & .1273900e-04,.1944500e-03,.2405300e-03,.2431100e-03,.1298000e-03,&
6121  & .1523200e-04,.2164000e-03,.2664500e-03,.2710700e-03,.1416900e-03,&
6122  & .5471200e-05,.1097000e-03,.1419500e-03,.1438600e-03,.8226000e-04,&
6123  & .6764400e-05,.1261200e-03,.1596300e-03,.1606100e-03,.8972700e-04,&
6124  & .8297300e-05,.1434800e-03,.1787800e-03,.1797500e-03,.9812200e-04,&
6125  & .1008200e-04,.1613200e-03,.1995200e-03,.2015500e-03,.1075500e-03,&
6126  & .1210700e-04,.1800800e-03,.2217900e-03,.2257600e-03,.1178700e-03,&
6127  & .4276700e-05,.8968000e-04,.1161100e-03,.1178100e-03,.6733800e-04,&
6128  & .5286000e-05,.1036000e-03,.1310700e-03,.1320300e-03,.7372200e-04,&
6129  & .6510700e-05,.1183800e-03,.1473500e-03,.1482900e-03,.8085200e-04,&
6130  & .7950100e-05,.1337400e-03,.1652000e-03,.1669300e-03,.8896900e-04,&
6131  & .9593700e-05,.1499300e-03,.1845600e-03,.1878100e-03,.9789700e-04,&
6132  & .3322600e-05,.7291800e-04,.9463500e-04,.9606900e-04,.5491200e-04,&
6133  & .4118500e-05,.8470500e-04,.1072600e-03,.1080900e-03,.6032500e-04,&
6134  & .5079600e-05,.9741400e-04,.1210600e-03,.1218400e-03,.6641500e-04,&
6135  & .6231100e-05,.1105500e-03,.1362500e-03,.1377200e-03,.7335400e-04,&
6136  & .7559400e-05,.1243900e-03,.1529700e-03,.1556900e-03,.8097200e-04,&
6137  & .2550700e-05,.5875300e-04,.7659900e-04,.7779800e-04,.4450800e-04,&
6138  & .3180000e-05,.6867900e-04,.8724000e-04,.8784300e-04,.4911500e-04,&
6139  & .3927300e-05,.7949700e-04,.9887100e-04,.9942100e-04,.5424900e-04,&
6140  & .4834600e-05,.9078200e-04,.1117300e-03,.1128200e-03,.6011300e-04,&
6141  & .5899500e-05,.1026700e-03,.1259200e-03,.1281500e-03,.6665600e-04/
6142 
6143  data absb(876:1050, 5) / &
6144  & .1953900e-05,.4717400e-04,.6187400e-04,.6291600e-04,.3597300e-04,&
6145  & .2445200e-05,.5557500e-04,.7085300e-04,.7123800e-04,.3989800e-04,&
6146  & .3040200e-05,.6478300e-04,.8063300e-04,.8092100e-04,.4421400e-04,&
6147  & .3739000e-05,.7443900e-04,.9149800e-04,.9220800e-04,.4916200e-04,&
6148  & .4583600e-05,.8460800e-04,.1035800e-03,.1053100e-03,.5470200e-04,&
6149  & .1494000e-05,.3771600e-04,.4982900e-04,.5080400e-04,.2898700e-04,&
6150  & .1875800e-05,.4477700e-04,.5739200e-04,.5769700e-04,.3231700e-04,&
6151  & .2341300e-05,.5260400e-04,.6560800e-04,.6574800e-04,.3594600e-04,&
6152  & .2896100e-05,.6089100e-04,.7482400e-04,.7518200e-04,.4009900e-04,&
6153  & .3552400e-05,.6958700e-04,.8506800e-04,.8629500e-04,.4480400e-04,&
6154  & .1150000e-05,.3016900e-04,.4015700e-04,.4106900e-04,.2336200e-04,&
6155  & .1445300e-05,.3608900e-04,.4654900e-04,.4679900e-04,.2619300e-04,&
6156  & .1812900e-05,.4273500e-04,.5347400e-04,.5351400e-04,.2924900e-04,&
6157  & .2252900e-05,.4984300e-04,.6123400e-04,.6140400e-04,.3274800e-04,&
6158  & .2776200e-05,.5732800e-04,.7002700e-04,.7078300e-04,.3671200e-04,&
6159  & .8885100e-06,.2409500e-04,.3230300e-04,.3321000e-04,.1880500e-04,&
6160  & .1117700e-05,.2908200e-04,.3770500e-04,.3794400e-04,.2120900e-04,&
6161  & .1406000e-05,.3466700e-04,.4357800e-04,.4357000e-04,.2379200e-04,&
6162  & .1753900e-05,.4073900e-04,.5011400e-04,.5017200e-04,.2672000e-04,&
6163  & .2172900e-05,.4722400e-04,.5759800e-04,.5807000e-04,.3007900e-04,&
6164  & .6852500e-06,.1917800e-04,.2589600e-04,.2680900e-04,.1509700e-04,&
6165  & .8630100e-06,.2333600e-04,.3043400e-04,.3071300e-04,.1712000e-04,&
6166  & .1088900e-05,.2802800e-04,.3542200e-04,.3539700e-04,.1930100e-04,&
6167  & .1364900e-05,.3318700e-04,.4095400e-04,.4092100e-04,.2175200e-04,&
6168  & .1698200e-05,.3874700e-04,.4726000e-04,.4755700e-04,.2458800e-04,&
6169  & .5280900e-06,.1520600e-04,.2068800e-04,.2159200e-04,.1208400e-04,&
6170  & .6649300e-06,.1864700e-04,.2447900e-04,.2481900e-04,.1378100e-04,&
6171  & .8410200e-06,.2257400e-04,.2868300e-04,.2869000e-04,.1562100e-04,&
6172  & .1058500e-05,.2695500e-04,.3336400e-04,.3329800e-04,.1767700e-04,&
6173  & .1323900e-05,.3171000e-04,.3873300e-04,.3886400e-04,.2004900e-04,&
6174  & .4096900e-06,.1209300e-04,.1656400e-04,.1742100e-04,.9688200e-05,&
6175  & .5156900e-06,.1493700e-04,.1973400e-04,.2009400e-04,.1111200e-04,&
6176  & .6529600e-06,.1822900e-04,.2328200e-04,.2332100e-04,.1266400e-04,&
6177  & .8257300e-06,.2195000e-04,.2723100e-04,.2715000e-04,.1439300e-04,&
6178  & .1037300e-05,.2601300e-04,.3179100e-04,.3182800e-04,.1637900e-04/
6179 
6180  data absb(1051:1175, 5) / &
6181  & .3192800e-06,.9616200e-05,.1325700e-04,.1405300e-04,.7774100e-05,&
6182  & .4011200e-06,.1196300e-04,.1590600e-04,.1625700e-04,.8957800e-05,&
6183  & .5081600e-06,.1471700e-04,.1888600e-04,.1894700e-04,.1026200e-04,&
6184  & .6446500e-06,.1786400e-04,.2220700e-04,.2215500e-04,.1171500e-04,&
6185  & .8132800e-06,.2132600e-04,.2607600e-04,.2606100e-04,.1337600e-04,&
6186  & .2482900e-06,.7620400e-05,.1057800e-04,.1130900e-04,.6220800e-05,&
6187  & .3117600e-06,.9548800e-05,.1278000e-04,.1312500e-04,.7201300e-05,&
6188  & .3950600e-06,.1185000e-04,.1527900e-04,.1534800e-04,.8294700e-05,&
6189  & .5026600e-06,.1449200e-04,.1807400e-04,.1804000e-04,.9515300e-05,&
6190  & .6363800e-06,.1744200e-04,.2133600e-04,.2131000e-04,.1090400e-04,&
6191  & .1930200e-06,.6018700e-05,.8416200e-05,.9079900e-05,.4964900e-05,&
6192  & .2422200e-06,.7595900e-05,.1023300e-04,.1057000e-04,.5770100e-05,&
6193  & .3068800e-06,.9508000e-05,.1231800e-04,.1240300e-04,.6691300e-05,&
6194  & .3908900e-06,.1171900e-04,.1467000e-04,.1464400e-04,.7716600e-05,&
6195  & .4967400e-06,.1421400e-04,.1740200e-04,.1738200e-04,.8872700e-05,&
6196  & .1504600e-06,.4766300e-05,.6699800e-05,.7290800e-05,.3963100e-05,&
6197  & .1885600e-06,.6045900e-05,.8190800e-05,.8520600e-05,.4627000e-05,&
6198  & .2386900e-06,.7630200e-05,.9924500e-05,.1002300e-04,.5397700e-05,&
6199  & .3045900e-06,.9476700e-05,.1191100e-04,.1189400e-04,.6257900e-05,&
6200  & .3882000e-06,.1158800e-04,.1420500e-04,.1418200e-04,.7222600e-05,&
6201  & .1221200e-06,.3933200e-05,.5523000e-05,.6009400e-05,.3249900e-05,&
6202  & .1532400e-06,.5017800e-05,.6787900e-05,.7056600e-05,.3810800e-05,&
6203  & .1941800e-06,.6367800e-05,.8264700e-05,.8344300e-05,.4467200e-05,&
6204  & .2482000e-06,.7954300e-05,.9967000e-05,.9951800e-05,.5202700e-05,&
6205  & .3174000e-06,.9770400e-05,.1196400e-04,.1193800e-04,.6027800e-05/
6206 
6207  data absb( 1:175, 6) / &
6208  & .4672255e-01,.1179341e+00,.1338757e+00,.1299972e+00,.9161157e-01,&
6209  & .5062470e-01,.1213117e+00,.1369429e+00,.1328028e+00,.9360006e-01,&
6210  & .5459974e-01,.1248223e+00,.1399926e+00,.1355144e+00,.9556280e-01,&
6211  & .5873868e-01,.1286746e+00,.1431991e+00,.1382901e+00,.9738836e-01,&
6212  & .6302530e-01,.1329297e+00,.1467302e+00,.1411782e+00,.9929195e-01,&
6213  & .3968991e-01,.9976895e-01,.1131751e+00,.1100474e+00,.7710072e-01,&
6214  & .4301477e-01,.1026851e+00,.1158037e+00,.1124295e+00,.7893417e-01,&
6215  & .4646290e-01,.1058587e+00,.1184976e+00,.1148060e+00,.8065093e-01,&
6216  & .5002899e-01,.1093646e+00,.1214273e+00,.1173032e+00,.8238971e-01,&
6217  & .5370336e-01,.1132393e+00,.1247403e+00,.1199136e+00,.8410182e-01,&
6218  & .3361226e-01,.8419071e-01,.9544048e-01,.9285444e-01,.6446524e-01,&
6219  & .3646479e-01,.8678678e-01,.9771637e-01,.9491470e-01,.6610593e-01,&
6220  & .3943418e-01,.8966612e-01,.1001521e+00,.9704047e-01,.6769280e-01,&
6221  & .4249750e-01,.9286388e-01,.1028925e+00,.9929778e-01,.6917725e-01,&
6222  & .4559710e-01,.9635024e-01,.1059705e+00,.1017312e+00,.7059703e-01,&
6223  & .2841305e-01,.7093757e-01,.8032314e-01,.7813700e-01,.5373624e-01,&
6224  & .3087001e-01,.7327916e-01,.8235049e-01,.7995476e-01,.5513198e-01,&
6225  & .3341491e-01,.7589200e-01,.8459743e-01,.8187839e-01,.5650567e-01,&
6226  & .3600242e-01,.7879372e-01,.8716029e-01,.8394378e-01,.5783239e-01,&
6227  & .3862500e-01,.8189679e-01,.8997661e-01,.8623580e-01,.5901740e-01,&
6228  & .2401634e-01,.5974102e-01,.6747709e-01,.6564216e-01,.4478664e-01,&
6229  & .2611796e-01,.6185142e-01,.6932940e-01,.6726455e-01,.4600594e-01,&
6230  & .2827920e-01,.6420880e-01,.7144020e-01,.6899927e-01,.4720878e-01,&
6231  & .3044618e-01,.6678350e-01,.7379995e-01,.7092071e-01,.4834282e-01,&
6232  & .3265937e-01,.6948508e-01,.7635424e-01,.7306622e-01,.4936137e-01,&
6233  & .2029779e-01,.5028866e-01,.5661750e-01,.5508955e-01,.3739316e-01,&
6234  & .2208972e-01,.5221100e-01,.5834184e-01,.5654839e-01,.3848438e-01,&
6235  & .2389477e-01,.5432163e-01,.6030221e-01,.5814906e-01,.3951198e-01,&
6236  & .2571656e-01,.5658610e-01,.6243776e-01,.5994219e-01,.4048024e-01,&
6237  & .2759559e-01,.5894005e-01,.6471627e-01,.6189304e-01,.4136898e-01,&
6238  & .1714555e-01,.4232553e-01,.4751571e-01,.4621072e-01,.3128045e-01,&
6239  & .1865226e-01,.4405192e-01,.4911024e-01,.4754554e-01,.3222507e-01,&
6240  & .2016046e-01,.4594242e-01,.5088205e-01,.4903912e-01,.3313354e-01,&
6241  & .2170679e-01,.4792414e-01,.5278935e-01,.5068417e-01,.3395265e-01,&
6242  & .2331129e-01,.4999405e-01,.5480871e-01,.5244342e-01,.3473337e-01/
6243 
6244  data absb(176:350, 6) / &
6245  & .1449397e-01,.3565245e-01,.3997027e-01,.3878295e-01,.2623894e-01,&
6246  & .1574907e-01,.3721054e-01,.4142074e-01,.4002092e-01,.2707613e-01,&
6247  & .1701927e-01,.3887652e-01,.4300733e-01,.4140562e-01,.2785469e-01,&
6248  & .1834230e-01,.4061477e-01,.4467996e-01,.4289260e-01,.2857492e-01,&
6249  & .1972332e-01,.4243979e-01,.4646142e-01,.4447765e-01,.2929449e-01,&
6250  & .1223686e-01,.3005384e-01,.3364453e-01,.3256819e-01,.2203383e-01,&
6251  & .1329184e-01,.3143872e-01,.3496344e-01,.3371716e-01,.2275179e-01,&
6252  & .1437272e-01,.3289059e-01,.3638637e-01,.3497888e-01,.2343303e-01,&
6253  & .1550047e-01,.3441489e-01,.3787367e-01,.3632111e-01,.2407709e-01,&
6254  & .1668336e-01,.3604499e-01,.3944792e-01,.3774085e-01,.2472138e-01,&
6255  & .1038282e-01,.2542597e-01,.2842132e-01,.2744137e-01,.1852562e-01,&
6256  & .1127312e-01,.2664076e-01,.2962239e-01,.2850810e-01,.1915442e-01,&
6257  & .1219323e-01,.2791660e-01,.3088571e-01,.2965335e-01,.1975054e-01,&
6258  & .1315724e-01,.2927559e-01,.3221079e-01,.3086581e-01,.2032424e-01,&
6259  & .1418884e-01,.3074537e-01,.3362124e-01,.3215085e-01,.2090413e-01,&
6260  & .8810984e-02,.2153212e-01,.2404863e-01,.2318381e-01,.1558634e-01,&
6261  & .9557713e-02,.2259858e-01,.2512473e-01,.2414921e-01,.1614064e-01,&
6262  & .1034460e-01,.2372894e-01,.2624401e-01,.2518234e-01,.1665912e-01,&
6263  & .1117906e-01,.2495670e-01,.2743338e-01,.2627714e-01,.1717734e-01,&
6264  & .1208564e-01,.2629206e-01,.2873101e-01,.2745336e-01,.1769705e-01,&
6265  & .7472179e-02,.1826124e-01,.2037977e-01,.1963051e-01,.1311820e-01,&
6266  & .8105914e-02,.1920286e-01,.2133520e-01,.2050264e-01,.1360311e-01,&
6267  & .8786371e-02,.2021445e-01,.2233873e-01,.2143465e-01,.1406558e-01,&
6268  & .9517597e-02,.2132628e-01,.2342388e-01,.2243468e-01,.1453007e-01,&
6269  & .1031444e-01,.2254987e-01,.2462788e-01,.2351153e-01,.1499827e-01,&
6270  & .6339327e-02,.1551891e-01,.1730563e-01,.1666327e-01,.1106485e-01,&
6271  & .6886916e-02,.1635981e-01,.1815633e-01,.1745076e-01,.1148631e-01,&
6272  & .7479578e-02,.1727214e-01,.1906789e-01,.1829842e-01,.1190414e-01,&
6273  & .8122799e-02,.1828117e-01,.2007236e-01,.1921662e-01,.1232324e-01,&
6274  & .8828155e-02,.1940872e-01,.2120238e-01,.2020565e-01,.1274767e-01,&
6275  & .5392272e-02,.1323113e-01,.1473701e-01,.1419217e-01,.9365787e-02,&
6276  & .5870200e-02,.1398439e-01,.1550589e-01,.1490579e-01,.9737495e-02,&
6277  & .6389745e-02,.1481106e-01,.1634605e-01,.1568477e-01,.1010973e-01,&
6278  & .6958634e-02,.1574163e-01,.1728569e-01,.1652721e-01,.1049045e-01,&
6279  & .7581630e-02,.1678655e-01,.1834875e-01,.1744786e-01,.1088430e-01/
6280 
6281  data absb(351:525, 6) / &
6282  & .4592919e-02,.1130255e-01,.1258234e-01,.1211906e-01,.7936306e-02,&
6283  & .5013344e-02,.1198363e-01,.1328506e-01,.1277230e-01,.8268918e-02,&
6284  & .5471875e-02,.1274465e-01,.1406720e-01,.1349234e-01,.8605208e-02,&
6285  & .5975738e-02,.1360931e-01,.1495090e-01,.1427336e-01,.8951125e-02,&
6286  & .6524713e-02,.1458353e-01,.1594799e-01,.1514041e-01,.9313867e-02,&
6287  & .3921257e-02,.9679135e-02,.1077668e-01,.1037874e-01,.6732679e-02,&
6288  & .4289466e-02,.1030205e-01,.1142417e-01,.1098668e-01,.7034601e-02,&
6289  & .4696449e-02,.1101261e-01,.1215654e-01,.1165356e-01,.7339816e-02,&
6290  & .5140924e-02,.1181986e-01,.1298600e-01,.1238661e-01,.7655437e-02,&
6291  & .5627986e-02,.1273133e-01,.1391895e-01,.1320853e-01,.7987663e-02,&
6292  & .3358374e-02,.8318578e-02,.9266665e-02,.8925427e-02,.5731495e-02,&
6293  & .3681177e-02,.8898948e-02,.9870888e-02,.9491903e-02,.6003477e-02,&
6294  & .4042382e-02,.9566221e-02,.1056008e-01,.1011534e-01,.6284646e-02,&
6295  & .4437145e-02,.1032409e-01,.1134025e-01,.1081068e-01,.6574647e-02,&
6296  & .4869992e-02,.1118221e-01,.1221978e-01,.1159427e-01,.6878293e-02,&
6297  & .2880952e-02,.7177713e-02,.8000548e-02,.7709187e-02,.4888892e-02,&
6298  & .3168109e-02,.7724358e-02,.8567998e-02,.8237375e-02,.5136819e-02,&
6299  & .3487574e-02,.8352795e-02,.9218971e-02,.8825929e-02,.5394241e-02,&
6300  & .3839297e-02,.9067161e-02,.9957533e-02,.9491401e-02,.5660899e-02,&
6301  & .4223712e-02,.9875806e-02,.1079202e-01,.1023576e-01,.5939546e-02,&
6302  & .2478739e-02,.6226385e-02,.6940669e-02,.6691212e-02,.4181873e-02,&
6303  & .2734468e-02,.6743172e-02,.7478246e-02,.7187563e-02,.4408421e-02,&
6304  & .3017927e-02,.7337488e-02,.8096419e-02,.7749978e-02,.4643233e-02,&
6305  & .3331178e-02,.8012614e-02,.8797666e-02,.8384632e-02,.4887248e-02,&
6306  & .3674803e-02,.8776521e-02,.9606185e-02,.9089542e-02,.5147082e-02,&
6307  & .2139286e-02,.5432558e-02,.6053952e-02,.5837608e-02,.3588363e-02,&
6308  & .2366596e-02,.5923173e-02,.6566620e-02,.6309240e-02,.3794714e-02,&
6309  & .2619079e-02,.6485565e-02,.7155112e-02,.6847354e-02,.4009599e-02,&
6310  & .2899192e-02,.7125771e-02,.7834469e-02,.7451217e-02,.4235186e-02,&
6311  & .3206376e-02,.7850198e-02,.8612179e-02,.8123777e-02,.4476963e-02,&
6312  & .1850772e-02,.4769289e-02,.5310687e-02,.5121509e-02,.3086654e-02,&
6313  & .2053571e-02,.5233812e-02,.5801277e-02,.5573075e-02,.3276182e-02,&
6314  & .2279445e-02,.5767992e-02,.6371794e-02,.6087455e-02,.3472505e-02,&
6315  & .2530319e-02,.6378620e-02,.7028994e-02,.6663834e-02,.3681702e-02,&
6316  & .2802247e-02,.7072716e-02,.7774573e-02,.7310658e-02,.3905465e-02/
6317 
6318  data absb(526:700, 6) / &
6319  & .1599613e-02,.4199571e-02,.4673794e-02,.4506393e-02,.2664028e-02,&
6320  & .1780622e-02,.4639345e-02,.5147271e-02,.4937749e-02,.2836730e-02,&
6321  & .1982209e-02,.5147946e-02,.5697272e-02,.5427726e-02,.3018582e-02,&
6322  & .2205837e-02,.5730040e-02,.6328408e-02,.5979873e-02,.3214093e-02,&
6323  & .2444633e-02,.6402438e-02,.7040553e-02,.6604978e-02,.3423730e-02,&
6324  & .1370767e-02,.3680434e-02,.4101387e-02,.3951642e-02,.2288026e-02,&
6325  & .1530214e-02,.4092955e-02,.4551071e-02,.4359160e-02,.2445148e-02,&
6326  & .1709076e-02,.4573254e-02,.5075448e-02,.4822350e-02,.2615383e-02,&
6327  & .1905572e-02,.5130202e-02,.5673701e-02,.5348975e-02,.2795090e-02,&
6328  & .2113656e-02,.5770683e-02,.6349792e-02,.5951205e-02,.2990809e-02,&
6329  & .1161344e-02,.3200182e-02,.3576104e-02,.3443194e-02,.1950452e-02,&
6330  & .1300611e-02,.3583463e-02,.3997263e-02,.3823311e-02,.2093149e-02,&
6331  & .1456618e-02,.4035349e-02,.4489225e-02,.4258002e-02,.2249394e-02,&
6332  & .1627537e-02,.4558261e-02,.5050496e-02,.4756449e-02,.2415485e-02,&
6333  & .1808199e-02,.5161226e-02,.5687359e-02,.5329814e-02,.2597049e-02,&
6334  & .9689423e-03,.2745553e-02,.3074976e-02,.2960730e-02,.1661770e-02,&
6335  & .1088391e-02,.3094206e-02,.3461113e-02,.3308475e-02,.1792192e-02,&
6336  & .1222284e-02,.3506981e-02,.3912501e-02,.3709778e-02,.1935066e-02,&
6337  & .1369638e-02,.3987964e-02,.4430278e-02,.4173459e-02,.2088437e-02,&
6338  & .1526024e-02,.4545546e-02,.5021863e-02,.4708792e-02,.2255640e-02,&
6339  & .8077252e-03,.2356556e-02,.2645654e-02,.2547112e-02,.1416723e-02,&
6340  & .9097668e-03,.2673661e-02,.2999603e-02,.2865604e-02,.1535808e-02,&
6341  & .1024815e-02,.3051199e-02,.3413691e-02,.3236220e-02,.1665481e-02,&
6342  & .1151477e-02,.3493356e-02,.3891808e-02,.3667727e-02,.1807129e-02,&
6343  & .1286842e-02,.4009109e-02,.4442138e-02,.4167563e-02,.1962379e-02,&
6344  & .6730887e-03,.2025445e-02,.2280105e-02,.2194379e-02,.1207918e-02,&
6345  & .7604151e-03,.2314345e-02,.2604175e-02,.2486551e-02,.1316161e-02,&
6346  & .8589949e-03,.2660424e-02,.2985221e-02,.2829802e-02,.1435082e-02,&
6347  & .9677787e-03,.3067804e-02,.3427622e-02,.3232026e-02,.1564953e-02,&
6348  & .1084841e-02,.3545518e-02,.3940911e-02,.3699314e-02,.1709431e-02,&
6349  & .5540015e-03,.1719029e-02,.1940291e-02,.1868227e-02,.1025773e-02,&
6350  & .6275728e-03,.1977116e-02,.2231569e-02,.2131986e-02,.1124006e-02,&
6351  & .7113040e-03,.2288889e-02,.2577000e-02,.2444792e-02,.1232036e-02,&
6352  & .8041626e-03,.2658785e-02,.2980992e-02,.2813689e-02,.1351842e-02,&
6353  & .9045868e-03,.3094678e-02,.3453278e-02,.3244781e-02,.1485313e-02/
6354 
6355  data absb(701:875, 6) / &
6356  & .4548896e-03,.1456307e-02,.1647750e-02,.1587652e-02,.8696717e-03,&
6357  & .5169304e-03,.1686770e-02,.1909185e-02,.1825449e-02,.9593282e-03,&
6358  & .5876050e-03,.1966424e-02,.2220965e-02,.2109507e-02,.1057588e-02,&
6359  & .6666461e-03,.2301238e-02,.2589214e-02,.2446720e-02,.1167507e-02,&
6360  & .7525562e-03,.2698055e-02,.3023141e-02,.2843621e-02,.1289308e-02,&
6361  & .3734897e-03,.1232867e-02,.1398777e-02,.1349075e-02,.7359709e-03,&
6362  & .4253634e-03,.1438755e-02,.1632644e-02,.1562815e-02,.8174284e-03,&
6363  & .4850469e-03,.1689562e-02,.1914018e-02,.1820551e-02,.9077182e-03,&
6364  & .5522656e-03,.1992581e-02,.2249528e-02,.2128458e-02,.1008030e-02,&
6365  & .6258618e-03,.2353791e-02,.2648433e-02,.2493658e-02,.1119658e-02,&
6366  & .3045367e-03,.1033446e-02,.1175577e-02,.1135975e-02,.6197699e-03,&
6367  & .3473823e-03,.1215271e-02,.1382545e-02,.1325828e-02,.6926384e-03,&
6368  & .3970307e-03,.1437673e-02,.1633541e-02,.1556762e-02,.7746954e-03,&
6369  & .4539062e-03,.1708894e-02,.1936090e-02,.1834842e-02,.8669180e-03,&
6370  & .5165865e-03,.2034536e-02,.2299010e-02,.2167541e-02,.9692109e-03,&
6371  & .2472336e-03,.8613164e-03,.9823016e-03,.9514129e-03,.5196099e-03,&
6372  & .2828538e-03,.1020438e-02,.1163949e-02,.1118679e-02,.5847521e-03,&
6373  & .3237516e-03,.1216274e-02,.1386324e-02,.1324100e-02,.6591741e-03,&
6374  & .3714736e-03,.1458189e-02,.1657661e-02,.1574061e-02,.7425059e-03,&
6375  & .4245663e-03,.1749792e-02,.1985372e-02,.1874641e-02,.8368539e-03,&
6376  & .2006002e-03,.7166388e-03,.8191347e-03,.7953709e-03,.4345003e-03,&
6377  & .2300088e-03,.8550124e-03,.9779366e-03,.9420990e-03,.4927929e-03,&
6378  & .2640138e-03,.1027318e-02,.1174304e-02,.1124337e-02,.5593878e-03,&
6379  & .3036185e-03,.1241926e-02,.1416866e-02,.1348159e-02,.6350064e-03,&
6380  & .3483255e-03,.1503311e-02,.1712388e-02,.1619624e-02,.7206305e-03,&
6381  & .1620672e-03,.5924002e-03,.6788004e-03,.6609668e-03,.3615247e-03,&
6382  & .1863562e-03,.7120820e-03,.8162499e-03,.7885530e-03,.4130089e-03,&
6383  & .2144232e-03,.8626280e-03,.9887801e-03,.9492287e-03,.4724825e-03,&
6384  & .2473832e-03,.1051309e-02,.1203656e-02,.1147998e-02,.5403679e-03,&
6385  & .2847841e-03,.1284144e-02,.1468365e-02,.1391452e-02,.6179991e-03,&
6386  & .1299474e-03,.4846482e-03,.5565712e-03,.5436535e-03,.2982511e-03,&
6387  & .1498986e-03,.5864424e-03,.6736990e-03,.6529381e-03,.3434172e-03,&
6388  & .1729325e-03,.7163074e-03,.8229894e-03,.7924220e-03,.3957912e-03,&
6389  & .2000081e-03,.8797706e-03,.1010993e-02,.9670011e-03,.4564930e-03,&
6390  & .2313308e-03,.1085043e-02,.1245383e-02,.1182959e-02,.5264754e-03/
6391 
6392  data absb(876:1050, 6) / &
6393  & .1041538e-03,.3951902e-03,.4548472e-03,.4454470e-03,.2452479e-03,&
6394  & .1203711e-03,.4813274e-03,.5542653e-03,.5387494e-03,.2845514e-03,&
6395  & .1392557e-03,.5925482e-03,.6823171e-03,.6591592e-03,.3305080e-03,&
6396  & .1615406e-03,.7342118e-03,.8463369e-03,.8118950e-03,.3843966e-03,&
6397  & .1875302e-03,.9137067e-03,.1052775e-02,.1002597e-02,.4471473e-03,&
6398  & .8339613e-04,.3212348e-03,.3702850e-03,.3635514e-03,.2009331e-03,&
6399  & .9663218e-04,.3936340e-03,.4542459e-03,.4427976e-03,.2348384e-03,&
6400  & .1119212e-03,.4884335e-03,.5635159e-03,.5461149e-03,.2749028e-03,&
6401  & .1301921e-03,.6106310e-03,.7057229e-03,.6791355e-03,.3226368e-03,&
6402  & .1518690e-03,.7666828e-03,.8867916e-03,.8470024e-03,.3788358e-03,&
6403  & .6703277e-04,.2615715e-03,.3020685e-03,.2972644e-03,.1647457e-03,&
6404  & .7781745e-04,.3226047e-03,.3728758e-03,.3643763e-03,.1940020e-03,&
6405  & .9035340e-04,.4034207e-03,.4665853e-03,.4531468e-03,.2290995e-03,&
6406  & .1051725e-03,.5090275e-03,.5895403e-03,.5690155e-03,.2711767e-03,&
6407  & .1231606e-03,.6451073e-03,.7487546e-03,.7170779e-03,.3213112e-03,&
6408  & .5388627e-04,.2129730e-03,.2462008e-03,.2426751e-03,.1352080e-03,&
6409  & .6277450e-04,.2640459e-03,.3057224e-03,.2995161e-03,.1599361e-03,&
6410  & .7304733e-04,.3329169e-03,.3859229e-03,.3754737e-03,.1906374e-03,&
6411  & .8515751e-04,.4241494e-03,.4919296e-03,.4761974e-03,.2276739e-03,&
6412  & .9991988e-04,.5432688e-03,.6320927e-03,.6069695e-03,.2723849e-03,&
6413  & .4326262e-04,.1729315e-03,.2000827e-03,.1973909e-03,.1105920e-03,&
6414  & .5057315e-04,.2155302e-03,.2498708e-03,.2454105e-03,.1317820e-03,&
6415  & .5902025e-04,.2738145e-03,.3180329e-03,.3099867e-03,.1580455e-03,&
6416  & .6892231e-04,.3521416e-03,.4093245e-03,.3971150e-03,.1905530e-03,&
6417  & .8105656e-04,.4558123e-03,.5314348e-03,.5116504e-03,.2300912e-03,&
6418  & .3466273e-04,.1400139e-03,.1619739e-03,.1598674e-03,.9004375e-04,&
6419  & .4063512e-04,.1754360e-03,.2034983e-03,.2003206e-03,.1082624e-03,&
6420  & .4757947e-04,.2243047e-03,.2609699e-03,.2549037e-03,.1307310e-03,&
6421  & .5575140e-04,.2912187e-03,.3392706e-03,.3296565e-03,.1588775e-03,&
6422  & .6571337e-04,.3810311e-03,.4450150e-03,.4296054e-03,.1937683e-03,&
6423  & .2781043e-04,.1138793e-03,.1316412e-03,.1298484e-03,.7350396e-04,&
6424  & .3277645e-04,.1433051e-03,.1663826e-03,.1640294e-03,.8913117e-04,&
6425  & .3850357e-04,.1846844e-03,.2150481e-03,.2104981e-03,.1086380e-03,&
6426  & .4522837e-04,.2419881e-03,.2824462e-03,.2747396e-03,.1329710e-03,&
6427  & .5347828e-04,.3200061e-03,.3744878e-03,.3622497e-03,.1637392e-03/
6428 
6429  data absb(1051:1175, 6) / &
6430  & .2232236e-04,.9267720e-04,.1070487e-03,.1054862e-03,.5992194e-04,&
6431  & .2641653e-04,.1172861e-03,.1361391e-03,.1343624e-03,.7334096e-04,&
6432  & .3117369e-04,.1521353e-03,.1772789e-03,.1738983e-03,.9024944e-04,&
6433  & .3674804e-04,.2011031e-03,.2351698e-03,.2290276e-03,.1115235e-03,&
6434  & .4354793e-04,.2690881e-03,.3153806e-03,.3055401e-03,.1384935e-03,&
6435  & .1785498e-04,.7521527e-04,.8673443e-04,.8536647e-04,.4869020e-04,&
6436  & .2122523e-04,.9568767e-04,.1111031e-03,.1096456e-03,.6010776e-04,&
6437  & .2515713e-04,.1249154e-03,.1456399e-03,.1431298e-03,.7472628e-04,&
6438  & .2980978e-04,.1668004e-03,.1951256e-03,.1902764e-03,.9333750e-04,&
6439  & .3542498e-04,.2255442e-03,.2648513e-03,.2567580e-03,.1168654e-03,&
6440  & .1425709e-04,.6087198e-04,.7014411e-04,.6881006e-04,.3939206e-04,&
6441  & .1702198e-04,.7779210e-04,.9029022e-04,.8913052e-04,.4908012e-04,&
6442  & .2026100e-04,.1023006e-03,.1192918e-03,.1173391e-03,.6161544e-04,&
6443  & .2410865e-04,.1377899e-03,.1613227e-03,.1576056e-03,.7784401e-04,&
6444  & .2878722e-04,.1883410e-03,.2215045e-03,.2149526e-03,.9849260e-04,&
6445  & .1138303e-04,.4934557e-04,.5673238e-04,.5553184e-04,.3186568e-04,&
6446  & .1366146e-04,.6335560e-04,.7355595e-04,.7250807e-04,.4005918e-04,&
6447  & .1632332e-04,.8387900e-04,.9788807e-04,.9633384e-04,.5083176e-04,&
6448  & .1950274e-04,.1140523e-03,.1335383e-03,.1306879e-03,.6491699e-04,&
6449  & .2338070e-04,.1577480e-03,.1855710e-03,.1802136e-03,.8318615e-04,&
6450  & .9393833e-05,.4172083e-04,.4794329e-04,.4688225e-04,.2676670e-04,&
6451  & .1131203e-04,.5413446e-04,.6285587e-04,.6190797e-04,.3404469e-04,&
6452  & .1356891e-04,.7245624e-04,.8467100e-04,.8329182e-04,.4370019e-04,&
6453  & .1627959e-04,.9993465e-04,.1171212e-03,.1145831e-03,.5652037e-04,&
6454  & .1962119e-04,.1401179e-03,.1650762e-03,.1601642e-03,.7346404e-04/
6455 
6456  data absb( 1:175, 7) / &
6457  & .3229900e+00,.5476000e+00,.6007900e+00,.5851700e+00,.4227600e+00,&
6458  & .3259400e+00,.5596300e+00,.6165300e+00,.6014700e+00,.4328100e+00,&
6459  & .3305600e+00,.5718200e+00,.6323600e+00,.6186300e+00,.4414900e+00,&
6460  & .3370600e+00,.5842600e+00,.6482200e+00,.6348900e+00,.4489300e+00,&
6461  & .3463500e+00,.5973900e+00,.6634300e+00,.6500300e+00,.4548600e+00,&
6462  & .2718500e+00,.4739600e+00,.5208700e+00,.5051800e+00,.3589800e+00,&
6463  & .2745500e+00,.4845400e+00,.5347300e+00,.5205800e+00,.3672500e+00,&
6464  & .2787800e+00,.4952300e+00,.5487600e+00,.5355600e+00,.3747700e+00,&
6465  & .2854000e+00,.5066000e+00,.5624400e+00,.5494800e+00,.3809500e+00,&
6466  & .2947400e+00,.5187600e+00,.5759200e+00,.5625500e+00,.3866000e+00,&
6467  & .2281800e+00,.4082500e+00,.4500300e+00,.4358200e+00,.3035000e+00,&
6468  & .2307400e+00,.4174900e+00,.4622000e+00,.4493000e+00,.3106400e+00,&
6469  & .2351000e+00,.4273700e+00,.4743400e+00,.4620200e+00,.3169600e+00,&
6470  & .2418600e+00,.4378300e+00,.4863700e+00,.4738700e+00,.3226500e+00,&
6471  & .2512100e+00,.4494300e+00,.4985500e+00,.4851900e+00,.3281600e+00,&
6472  & .1912000e+00,.3497500e+00,.3873200e+00,.3750900e+00,.2561700e+00,&
6473  & .1938500e+00,.3582600e+00,.3979900e+00,.3866600e+00,.2625900e+00,&
6474  & .1984600e+00,.3672700e+00,.4087200e+00,.3975000e+00,.2681500e+00,&
6475  & .2053700e+00,.3771200e+00,.4195400e+00,.4077700e+00,.2733000e+00,&
6476  & .2142700e+00,.3886800e+00,.4307100e+00,.4178400e+00,.2785300e+00,&
6477  & .1598800e+00,.2985400e+00,.3318000e+00,.3220100e+00,.2161100e+00,&
6478  & .1627900e+00,.3062800e+00,.3412900e+00,.3318800e+00,.2216200e+00,&
6479  & .1676300e+00,.3146300e+00,.3508500e+00,.3412200e+00,.2266400e+00,&
6480  & .1744400e+00,.3243200e+00,.3606800e+00,.3503200e+00,.2316100e+00,&
6481  & .1827400e+00,.3360900e+00,.3714000e+00,.3594400e+00,.2366500e+00,&
6482  & .1335200e+00,.2540400e+00,.2833000e+00,.2757700e+00,.1822500e+00,&
6483  & .1366700e+00,.2610300e+00,.2917100e+00,.2843100e+00,.1871200e+00,&
6484  & .1416400e+00,.2691000e+00,.3003000e+00,.2925400e+00,.1917600e+00,&
6485  & .1480900e+00,.2788600e+00,.3095900e+00,.3007300e+00,.1963700e+00,&
6486  & .1555100e+00,.2905000e+00,.3202000e+00,.3093000e+00,.2011500e+00,&
6487  & .1117700e+00,.2158000e+00,.2413600e+00,.2355200e+00,.1539200e+00,&
6488  & .1150400e+00,.2224300e+00,.2489000e+00,.2430400e+00,.1583300e+00,&
6489  & .1197500e+00,.2303100e+00,.2568700e+00,.2504800e+00,.1624400e+00,&
6490  & .1255300e+00,.2399400e+00,.2658800e+00,.2581200e+00,.1667100e+00,&
6491  & .1320400e+00,.2510700e+00,.2763900e+00,.2662900e+00,.1711000e+00/
6492 
6493  data absb(176:350, 7) / &
6494  & .9381800e-01,.1833600e+00,.2053300e+00,.2008300e+00,.1306300e+00,&
6495  & .9715300e-01,.1897500e+00,.2122200e+00,.2075400e+00,.1344500e+00,&
6496  & .1015700e+00,.1975900e+00,.2198900e+00,.2143900e+00,.1381900e+00,&
6497  & .1065600e+00,.2069200e+00,.2288500e+00,.2217000e+00,.1420000e+00,&
6498  & .1121700e+00,.2174100e+00,.2391400e+00,.2297200e+00,.1459500e+00,&
6499  & .7886400e-01,.1558100e+00,.1746700e+00,.1711100e+00,.1109300e+00,&
6500  & .8211500e-01,.1621300e+00,.1811400e+00,.1772200e+00,.1144800e+00,&
6501  & .8609100e-01,.1698900e+00,.1885800e+00,.1836800e+00,.1179500e+00,&
6502  & .9054400e-01,.1788300e+00,.1974000e+00,.1907500e+00,.1214000e+00,&
6503  & .9553100e-01,.1885700e+00,.2071900e+00,.1987200e+00,.1249400e+00,&
6504  & .6653600e-01,.1329300e+00,.1491300e+00,.1461800e+00,.9442900e-01,&
6505  & .6963900e-01,.1393100e+00,.1553700e+00,.1518700e+00,.9768000e-01,&
6506  & .7319400e-01,.1468800e+00,.1628200e+00,.1580500e+00,.1008700e+00,&
6507  & .7720500e-01,.1553600e+00,.1713500e+00,.1650300e+00,.1041400e+00,&
6508  & .8166700e-01,.1642700e+00,.1806600e+00,.1729100e+00,.1074400e+00,&
6509  & .5626100e-01,.1138300e+00,.1276000e+00,.1251200e+00,.8055900e-01,&
6510  & .5908600e-01,.1201400e+00,.1338400e+00,.1304800e+00,.8348500e-01,&
6511  & .6228100e-01,.1273800e+00,.1412100e+00,.1364800e+00,.8646000e-01,&
6512  & .6590600e-01,.1351700e+00,.1493700e+00,.1433600e+00,.8946200e-01,&
6513  & .6999800e-01,.1433500e+00,.1580700e+00,.1509800e+00,.9258800e-01,&
6514  & .4764200e-01,.9793300e-01,.1096300e+00,.1074200e+00,.6875000e-01,&
6515  & .5019300e-01,.1039900e+00,.1158700e+00,.1125800e+00,.7143200e-01,&
6516  & .5308500e-01,.1107700e+00,.1229800e+00,.1184500e+00,.7419400e-01,&
6517  & .5638400e-01,.1179500e+00,.1307000e+00,.1251200e+00,.7697300e-01,&
6518  & .6017400e-01,.1255500e+00,.1387900e+00,.1323700e+00,.7992000e-01,&
6519  & .4043200e-01,.8464500e-01,.9472400e-01,.9263700e-01,.5880500e-01,&
6520  & .4274800e-01,.9040900e-01,.1007900e+00,.9765400e-01,.6128900e-01,&
6521  & .4539200e-01,.9668200e-01,.1075600e+00,.1034100e+00,.6381800e-01,&
6522  & .4843800e-01,.1033500e+00,.1147800e+00,.1097800e+00,.6648100e-01,&
6523  & .5201900e-01,.1105000e+00,.1223400e+00,.1166400e+00,.6920900e-01,&
6524  & .3443000e-01,.7356700e-01,.8234900e-01,.8034100e-01,.5048500e-01,&
6525  & .3655800e-01,.7899700e-01,.8816300e-01,.8529300e-01,.5283500e-01,&
6526  & .3900900e-01,.8481800e-01,.9452100e-01,.9085100e-01,.5518100e-01,&
6527  & .4187600e-01,.9107400e-01,.1012700e+00,.9692200e-01,.5764400e-01,&
6528  & .4529400e-01,.9787400e-01,.1084100e+00,.1034000e+00,.6025800e-01/
6529 
6530  data absb(351:525, 7) / &
6531  & .2941800e-01,.6428900e-01,.7198400e-01,.7011200e-01,.4351400e-01,&
6532  & .3136700e-01,.6933300e-01,.7750000e-01,.7494500e-01,.4565400e-01,&
6533  & .3365000e-01,.7477900e-01,.8345100e-01,.8028400e-01,.4783800e-01,&
6534  & .3637300e-01,.8069800e-01,.8980300e-01,.8603500e-01,.5018800e-01,&
6535  & .3962500e-01,.8722700e-01,.9660500e-01,.9216300e-01,.5266100e-01,&
6536  & .2520600e-01,.5643600e-01,.6328200e-01,.6157100e-01,.3760200e-01,&
6537  & .2700900e-01,.6114700e-01,.6848100e-01,.6623700e-01,.3956200e-01,&
6538  & .2915000e-01,.6630200e-01,.7407400e-01,.7134100e-01,.4160100e-01,&
6539  & .3175000e-01,.7195500e-01,.8010400e-01,.7678500e-01,.4379400e-01,&
6540  & .3483400e-01,.7826800e-01,.8666200e-01,.8263200e-01,.4619300e-01,&
6541  & .2167200e-01,.4982100e-01,.5598500e-01,.5443100e-01,.3267700e-01,&
6542  & .2336000e-01,.5425700e-01,.6087100e-01,.5891800e-01,.3445300e-01,&
6543  & .2542000e-01,.5915900e-01,.6616800e-01,.6376500e-01,.3639800e-01,&
6544  & .2790800e-01,.6462900e-01,.7193500e-01,.6897700e-01,.3849000e-01,&
6545  & .3084300e-01,.7079100e-01,.7832300e-01,.7461000e-01,.4074700e-01,&
6546  & .1870300e-01,.4423600e-01,.4981900e-01,.4842300e-01,.2850300e-01,&
6547  & .2031500e-01,.4844500e-01,.5442500e-01,.5272000e-01,.3017400e-01,&
6548  & .2230700e-01,.5316300e-01,.5948100e-01,.5735900e-01,.3201800e-01,&
6549  & .2468700e-01,.5849500e-01,.6506400e-01,.6236800e-01,.3402200e-01,&
6550  & .2751000e-01,.6459700e-01,.7135200e-01,.6786000e-01,.3624300e-01,&
6551  & .1622700e-01,.3954600e-01,.4461300e-01,.4338400e-01,.2494700e-01,&
6552  & .1779100e-01,.4357600e-01,.4901000e-01,.4750100e-01,.2657700e-01,&
6553  & .1972000e-01,.4816300e-01,.5387700e-01,.5196200e-01,.2834700e-01,&
6554  & .2201000e-01,.5341900e-01,.5936800e-01,.5684200e-01,.3032600e-01,&
6555  & .2477800e-01,.5953300e-01,.6558200e-01,.6227900e-01,.3246400e-01,&
6556  & .1416800e-01,.3561000e-01,.4022800e-01,.3914500e-01,.2199800e-01,&
6557  & .1570100e-01,.3951800e-01,.4445500e-01,.4310800e-01,.2355100e-01,&
6558  & .1756800e-01,.4402800e-01,.4922800e-01,.4744200e-01,.2530300e-01,&
6559  & .1982200e-01,.4927400e-01,.5464400e-01,.5226900e-01,.2721900e-01,&
6560  & .2249200e-01,.5542900e-01,.6087800e-01,.5769600e-01,.2928900e-01,&
6561  & .1246900e-01,.3232100e-01,.3654800e-01,.3558600e-01,.1953500e-01,&
6562  & .1396700e-01,.3616000e-01,.4067000e-01,.3941400e-01,.2105700e-01,&
6563  & .1580400e-01,.4064600e-01,.4537100e-01,.4369700e-01,.2274800e-01,&
6564  & .1800700e-01,.4593500e-01,.5079000e-01,.4850400e-01,.2458900e-01,&
6565  & .2058300e-01,.5211700e-01,.5708300e-01,.5394900e-01,.2661200e-01/
6566 
6567  data absb(526:700, 7) / &
6568  & .1103000e-01,.2946200e-01,.3333300e-01,.3245700e-01,.1744100e-01,&
6569  & .1248500e-01,.3325200e-01,.3737400e-01,.3620300e-01,.1890200e-01,&
6570  & .1428400e-01,.3773500e-01,.4203900e-01,.4044900e-01,.2053300e-01,&
6571  & .1640600e-01,.4305000e-01,.4747300e-01,.4525000e-01,.2231500e-01,&
6572  & .1888900e-01,.4922100e-01,.5383800e-01,.5070900e-01,.2429500e-01,&
6573  & .9704500e-02,.2676500e-01,.3029400e-01,.2949400e-01,.1552700e-01,&
6574  & .1111600e-01,.3047100e-01,.3423700e-01,.3315600e-01,.1693600e-01,&
6575  & .1283300e-01,.3490800e-01,.3882700e-01,.3733500e-01,.1849400e-01,&
6576  & .1485100e-01,.4016000e-01,.4422800e-01,.4209500e-01,.2023000e-01,&
6577  & .1722000e-01,.4627500e-01,.5060000e-01,.4752400e-01,.2213700e-01,&
6578  & .8478700e-02,.2413100e-01,.2733900e-01,.2661900e-01,.1375600e-01,&
6579  & .9803300e-02,.2770600e-01,.3114700e-01,.3016600e-01,.1510600e-01,&
6580  & .1140700e-01,.3201500e-01,.3561000e-01,.3423900e-01,.1659300e-01,&
6581  & .1330200e-01,.3714000e-01,.4090700e-01,.3890400e-01,.1825700e-01,&
6582  & .1553700e-01,.4312900e-01,.4718200e-01,.4423600e-01,.2007400e-01,&
6583  & .7268500e-02,.2139200e-01,.2430100e-01,.2367900e-01,.1208700e-01,&
6584  & .8473300e-02,.2475900e-01,.2789800e-01,.2704600e-01,.1334200e-01,&
6585  & .9935300e-02,.2884800e-01,.3215200e-01,.3094000e-01,.1474800e-01,&
6586  & .1167300e-01,.3373400e-01,.3722400e-01,.3542200e-01,.1631900e-01,&
6587  & .1374000e-01,.3948100e-01,.4325600e-01,.4056600e-01,.1804900e-01,&
6588  & .6232600e-02,.1899900e-01,.2164400e-01,.2110300e-01,.1062900e-01,&
6589  & .7326900e-02,.2217000e-01,.2504200e-01,.2429900e-01,.1180700e-01,&
6590  & .8658600e-02,.2604500e-01,.2909800e-01,.2801900e-01,.1313800e-01,&
6591  & .1025400e-01,.3069900e-01,.3395200e-01,.3231600e-01,.1462100e-01,&
6592  & .1216800e-01,.3621100e-01,.3974800e-01,.3728800e-01,.1626300e-01,&
6593  & .5352200e-02,.1692500e-01,.1933700e-01,.1886300e-01,.9369700e-02,&
6594  & .6343700e-02,.1991600e-01,.2255500e-01,.2190000e-01,.1047700e-01,&
6595  & .7560000e-02,.2359000e-01,.2642800e-01,.2545300e-01,.1173200e-01,&
6596  & .9027700e-02,.2802700e-01,.3108100e-01,.2958100e-01,.1314000e-01,&
6597  & .1080400e-01,.3332500e-01,.3665500e-01,.3439600e-01,.1471400e-01,&
6598  & .4518300e-02,.1486200e-01,.1704300e-01,.1664000e-01,.8190600e-02,&
6599  & .5396400e-02,.1763000e-01,.2004300e-01,.1948200e-01,.9233500e-02,&
6600  & .6483500e-02,.2104100e-01,.2367400e-01,.2282100e-01,.1040000e-01,&
6601  & .7810000e-02,.2519700e-01,.2805600e-01,.2673300e-01,.1171800e-01,&
6602  & .9431000e-02,.3020300e-01,.3332200e-01,.3132100e-01,.1320900e-01/
6603 
6604  data absb(701:875, 7) / &
6605  & .3802000e-02,.1303500e-01,.1500700e-01,.1466500e-01,.7164500e-02,&
6606  & .4579600e-02,.1559200e-01,.1780200e-01,.1732000e-01,.8133200e-02,&
6607  & .5546400e-02,.1874900e-01,.2119100e-01,.2044800e-01,.9231200e-02,&
6608  & .6740800e-02,.2262900e-01,.2530900e-01,.2414300e-01,.1045800e-01,&
6609  & .8215500e-02,.2734700e-01,.3027700e-01,.2850600e-01,.1187100e-01,&
6610  & .3196200e-02,.1144400e-01,.1322900e-01,.1293700e-01,.6278800e-02,&
6611  & .3881500e-02,.1379800e-01,.1582200e-01,.1540700e-01,.7177400e-02,&
6612  & .4742200e-02,.1672200e-01,.1899000e-01,.1833900e-01,.8198600e-02,&
6613  & .5815400e-02,.2034200e-01,.2285700e-01,.2183000e-01,.9359400e-02,&
6614  & .7154600e-02,.2478700e-01,.2754500e-01,.2597300e-01,.1068400e-01,&
6615  & .2654200e-02,.9942100e-02,.1154500e-01,.1129700e-01,.5468100e-02,&
6616  & .3246700e-02,.1208500e-01,.1392600e-01,.1357500e-01,.6301700e-02,&
6617  & .4003700e-02,.1475800e-01,.1684800e-01,.1629600e-01,.7243400e-02,&
6618  & .4953400e-02,.1809400e-01,.2043800e-01,.1955600e-01,.8335400e-02,&
6619  & .6152500e-02,.2223000e-01,.2481700e-01,.2345000e-01,.9575100e-02,&
6620  & .2188100e-02,.8585700e-02,.1001900e-01,.9804300e-02,.4745600e-02,&
6621  & .2693700e-02,.1052500e-01,.1219200e-01,.1189800e-01,.5516800e-02,&
6622  & .3353100e-02,.1295200e-01,.1487000e-01,.1440800e-01,.6393800e-02,&
6623  & .4191600e-02,.1601600e-01,.1818700e-01,.1744100e-01,.7399500e-02,&
6624  & .5252900e-02,.1982500e-01,.2224500e-01,.2107400e-01,.8569300e-02,&
6625  & .1797400e-02,.7403600e-02,.8681900e-02,.8494900e-02,.4110000e-02,&
6626  & .2228300e-02,.9155600e-02,.1066400e-01,.1041400e-01,.4825700e-02,&
6627  & .2799300e-02,.1136000e-01,.1311500e-01,.1273100e-01,.5642300e-02,&
6628  & .3535800e-02,.1416400e-01,.1617000e-01,.1554300e-01,.6586700e-02,&
6629  & .4476200e-02,.1767100e-01,.1992800e-01,.1893100e-01,.7672500e-02,&
6630  & .1466600e-02,.6344300e-02,.7471000e-02,.7309900e-02,.3554000e-02,&
6631  & .1828600e-02,.7914000e-02,.9271900e-02,.9058800e-02,.4198100e-02,&
6632  & .2319600e-02,.9908900e-02,.1150800e-01,.1119200e-01,.4965600e-02,&
6633  & .2957500e-02,.1245100e-01,.1429600e-01,.1377900e-01,.5844100e-02,&
6634  & .3784200e-02,.1566200e-01,.1775800e-01,.1692100e-01,.6866000e-02,&
6635  & .1182200e-02,.5370000e-02,.6348300e-02,.6209000e-02,.3050000e-02,&
6636  & .1481700e-02,.6761600e-02,.7967800e-02,.7787400e-02,.3631700e-02,&
6637  & .1891800e-02,.8539200e-02,.9981800e-02,.9725400e-02,.4324800e-02,&
6638  & .2438200e-02,.1082000e-01,.1250300e-01,.1208800e-01,.5147700e-02,&
6639  & .3153300e-02,.1372500e-01,.1565600e-01,.1497000e-01,.6100000e-02/
6640 
6641  data absb(876:1050, 7) / &
6642  & .9490600e-03,.4529800e-02,.5370600e-02,.5250600e-02,.2616200e-02,&
6643  & .1196500e-02,.5759700e-02,.6821300e-02,.6669800e-02,.3140300e-02,&
6644  & .1536900e-02,.7338000e-02,.8636800e-02,.8424600e-02,.3768700e-02,&
6645  & .2000800e-02,.9381400e-02,.1091100e-01,.1058000e-01,.4521300e-02,&
6646  & .2615900e-02,.1200200e-01,.1377400e-01,.1322100e-01,.5414200e-02,&
6647  & .7591300e-03,.3804300e-02,.4520300e-02,.4418100e-02,.2237900e-02,&
6648  & .9609700e-03,.4889900e-02,.5813800e-02,.5687800e-02,.2709800e-02,&
6649  & .1244700e-02,.6289500e-02,.7450100e-02,.7272700e-02,.3285900e-02,&
6650  & .1632200e-02,.8112200e-02,.9498900e-02,.9234900e-02,.3972000e-02,&
6651  & .2159700e-02,.1047000e-01,.1209200e-01,.1165000e-01,.4793800e-02,&
6652  & .6094900e-03,.3200900e-02,.3808000e-02,.3720400e-02,.1914800e-02,&
6653  & .7733200e-03,.4163700e-02,.4965800e-02,.4858800e-02,.2349800e-02,&
6654  & .1009900e-02,.5409500e-02,.6441600e-02,.6293800e-02,.2871300e-02,&
6655  & .1335300e-02,.7041700e-02,.8300400e-02,.8084400e-02,.3511400e-02,&
6656  & .1787300e-02,.9169100e-02,.1065800e-01,.1030300e-01,.4264100e-02,&
6657  & .4896000e-03,.2687300e-02,.3200800e-02,.3125900e-02,.1637800e-02,&
6658  & .6218700e-03,.3542300e-02,.4234900e-02,.4144300e-02,.2032500e-02,&
6659  & .8178800e-03,.4652900e-02,.5565600e-02,.5442400e-02,.2516400e-02,&
6660  & .1093500e-02,.6115500e-02,.7256500e-02,.7076500e-02,.3100700e-02,&
6661  & .1477600e-02,.8041600e-02,.9408700e-02,.9119700e-02,.3808500e-02,&
6662  & .3930200e-03,.2243500e-02,.2675400e-02,.2612200e-02,.1389800e-02,&
6663  & .4988900e-03,.3000600e-02,.3594300e-02,.3517200e-02,.1753200e-02,&
6664  & .6592200e-03,.3990600e-02,.4790100e-02,.4688000e-02,.2198000e-02,&
6665  & .8907500e-03,.5298000e-02,.6323700e-02,.6174800e-02,.2741200e-02,&
6666  & .1215000e-02,.7031200e-02,.8283700e-02,.8049700e-02,.3395600e-02,&
6667  & .3153300e-03,.1859800e-02,.2221600e-02,.2169000e-02,.1170500e-02,&
6668  & .3991900e-03,.2529000e-02,.3033800e-02,.2967900e-02,.1505100e-02,&
6669  & .5295800e-03,.3409600e-02,.4103000e-02,.4018900e-02,.1913700e-02,&
6670  & .7214700e-03,.4575600e-02,.5489400e-02,.5367800e-02,.2414700e-02,&
6671  & .9956300e-03,.6132100e-02,.7273900e-02,.7082600e-02,.3028600e-02,&
6672  & .2543400e-03,.1547700e-02,.1850200e-02,.1807500e-02,.9889100e-03,&
6673  & .3222100e-03,.2139800e-02,.2570800e-02,.2514800e-02,.1293500e-02,&
6674  & .4277500e-03,.2927200e-02,.3531500e-02,.3459900e-02,.1674100e-02,&
6675  & .5876200e-03,.3976100e-02,.4790700e-02,.4689600e-02,.2137600e-02,&
6676  & .8205300e-03,.5382400e-02,.6424400e-02,.6266400e-02,.2717300e-02/
6677 
6678  data absb(1051:1175, 7) / &
6679  & .2061800e-03,.1286600e-02,.1540000e-02,.1505500e-02,.8357200e-03,&
6680  & .2605900e-03,.1809400e-02,.2178700e-02,.2130200e-02,.1109000e-02,&
6681  & .3465100e-03,.2514000e-02,.3039200e-02,.2978000e-02,.1462800e-02,&
6682  & .4788200e-03,.3460800e-02,.4183100e-02,.4100300e-02,.1899200e-02,&
6683  & .6767100e-03,.4733100e-02,.5681700e-02,.5550300e-02,.2436000e-02,&
6684  & .1668100e-03,.1062100e-02,.1272800e-02,.1246100e-02,.7016200e-03,&
6685  & .2106400e-03,.1521300e-02,.1835000e-02,.1794500e-02,.9482800e-03,&
6686  & .2802800e-03,.2150000e-02,.2604500e-02,.2552100e-02,.1272100e-02,&
6687  & .3890600e-03,.3002900e-02,.3638700e-02,.3571000e-02,.1683300e-02,&
6688  & .5556800e-03,.4153400e-02,.5011100e-02,.4902700e-02,.2184900e-02,&
6689  & .1348400e-03,.8716800e-03,.1044400e-02,.1024800e-02,.5851600e-03,&
6690  & .1700700e-03,.1271700e-02,.1536000e-02,.1502400e-02,.8080500e-03,&
6691  & .2260300e-03,.1829600e-02,.2221100e-02,.2175700e-02,.1100600e-02,&
6692  & .3156500e-03,.2596300e-02,.3153100e-02,.3095900e-02,.1485100e-02,&
6693  & .4541700e-03,.3636500e-02,.4405800e-02,.4315700e-02,.1962500e-02,&
6694  & .1093800e-03,.7144900e-03,.8565500e-03,.8424000e-03,.4877200e-03,&
6695  & .1375200e-03,.1062400e-02,.1284900e-02,.1258300e-02,.6868900e-03,&
6696  & .1830700e-03,.1557200e-02,.1895400e-02,.1856600e-02,.9534400e-03,&
6697  & .2567300e-03,.2248100e-02,.2736300e-02,.2687700e-02,.1307900e-02,&
6698  & .3723000e-03,.3192100e-02,.3881200e-02,.3807000e-02,.1757000e-02,&
6699  & .9215300e-04,.6279800e-03,.7537400e-03,.7424300e-03,.4316100e-03,&
6700  & .1167600e-03,.9501900e-03,.1152500e-02,.1129600e-02,.6195900e-03,&
6701  & .1568700e-03,.1416800e-02,.1728500e-02,.1693800e-02,.8746800e-03,&
6702  & .2227800e-03,.2074300e-02,.2530200e-02,.2486300e-02,.1216100e-02,&
6703  & .3272400e-03,.2979700e-02,.3631300e-02,.3566400e-02,.1657700e-02/
6704 
6705  data absb( 1:175, 8) / &
6706  & .2147772e+01,.3506523e+01,.4007672e+01,.4063247e+01,.2937459e+01,&
6707  & .2178726e+01,.3529383e+01,.4034995e+01,.4103957e+01,.3003216e+01,&
6708  & .2233362e+01,.3568760e+01,.4070770e+01,.4144550e+01,.3061714e+01,&
6709  & .2307004e+01,.3623393e+01,.4115151e+01,.4185941e+01,.3115511e+01,&
6710  & .2388633e+01,.3691850e+01,.4168630e+01,.4227592e+01,.3167839e+01,&
6711  & .1860982e+01,.3098016e+01,.3558079e+01,.3627319e+01,.2627403e+01,&
6712  & .1905280e+01,.3134646e+01,.3595375e+01,.3671395e+01,.2687036e+01,&
6713  & .1969054e+01,.3186559e+01,.3641361e+01,.3716596e+01,.2741361e+01,&
6714  & .2041391e+01,.3252536e+01,.3696281e+01,.3763063e+01,.2795119e+01,&
6715  & .2116579e+01,.3332677e+01,.3758858e+01,.3812101e+01,.2847416e+01,&
6716  & .1617458e+01,.2741093e+01,.3152632e+01,.3221428e+01,.2339877e+01,&
6717  & .1670160e+01,.2788238e+01,.3198512e+01,.3269657e+01,.2396388e+01,&
6718  & .1732677e+01,.2849720e+01,.3253678e+01,.3319736e+01,.2449246e+01,&
6719  & .1797925e+01,.2926437e+01,.3317317e+01,.3372271e+01,.2501129e+01,&
6720  & .1862880e+01,.3012958e+01,.3388595e+01,.3427980e+01,.2552877e+01,&
6721  & .1410490e+01,.2430273e+01,.2789567e+01,.2851573e+01,.2070884e+01,&
6722  & .1462546e+01,.2486398e+01,.2843042e+01,.2903268e+01,.2125260e+01,&
6723  & .1517639e+01,.2557586e+01,.2906093e+01,.2957563e+01,.2178494e+01,&
6724  & .1573385e+01,.2638614e+01,.2977318e+01,.3015588e+01,.2231226e+01,&
6725  & .1630346e+01,.2723778e+01,.3055751e+01,.3077711e+01,.2281963e+01,&
6726  & .1230541e+01,.2156310e+01,.2468500e+01,.2517143e+01,.1827564e+01,&
6727  & .1276117e+01,.2220980e+01,.2528907e+01,.2572462e+01,.1880843e+01,&
6728  & .1322689e+01,.2296509e+01,.2597740e+01,.2631249e+01,.1932799e+01,&
6729  & .1370777e+01,.2376996e+01,.2674941e+01,.2694611e+01,.1983918e+01,&
6730  & .1421644e+01,.2457551e+01,.2758874e+01,.2763587e+01,.2034867e+01,&
6731  & .1070969e+01,.1915020e+01,.2186826e+01,.2218812e+01,.1611091e+01,&
6732  & .1109526e+01,.1984117e+01,.2252013e+01,.2276826e+01,.1661713e+01,&
6733  & .1149568e+01,.2059351e+01,.2326295e+01,.2340036e+01,.1710989e+01,&
6734  & .1192105e+01,.2135358e+01,.2407183e+01,.2409247e+01,.1761075e+01,&
6735  & .1238203e+01,.2211009e+01,.2491678e+01,.2482619e+01,.1811988e+01,&
6736  & .9283756e+00,.1702510e+01,.1938601e+01,.1955270e+01,.1419882e+01,&
6737  & .9616580e+00,.1771777e+01,.2008679e+01,.2016979e+01,.1468037e+01,&
6738  & .9971495e+00,.1842985e+01,.2085977e+01,.2084514e+01,.1515441e+01,&
6739  & .1035954e+01,.1914171e+01,.2167568e+01,.2156971e+01,.1563415e+01,&
6740  & .1079188e+01,.1986694e+01,.2252099e+01,.2233773e+01,.1612851e+01/
6741 
6742  data absb(176:350, 8) / &
6743  & .8036031e+00,.1516186e+01,.1721627e+01,.1727213e+01,.1252674e+01,&
6744  & .8326793e+00,.1581949e+01,.1794758e+01,.1792292e+01,.1298932e+01,&
6745  & .8648349e+00,.1648188e+01,.1873088e+01,.1862805e+01,.1346221e+01,&
6746  & .9010472e+00,.1716012e+01,.1954493e+01,.1937771e+01,.1392209e+01,&
6747  & .9422352e+00,.1787156e+01,.2036790e+01,.2017682e+01,.1438445e+01,&
6748  & .6953625e+00,.1350659e+01,.1532717e+01,.1530267e+01,.1104610e+01,&
6749  & .7214726e+00,.1411984e+01,.1606492e+01,.1597505e+01,.1150564e+01,&
6750  & .7509696e+00,.1474817e+01,.1683945e+01,.1669864e+01,.1196729e+01,&
6751  & .7851546e+00,.1540757e+01,.1763201e+01,.1747500e+01,.1242539e+01,&
6752  & .8247478e+00,.1610749e+01,.1844223e+01,.1828234e+01,.1287882e+01,&
6753  & .6026917e+00,.1207364e+01,.1372521e+01,.1364577e+01,.9775652e+00,&
6754  & .6273178e+00,.1265727e+01,.1445916e+01,.1433870e+01,.1022600e+01,&
6755  & .6557573e+00,.1326639e+01,.1521041e+01,.1508141e+01,.1067263e+01,&
6756  & .6889575e+00,.1391759e+01,.1598467e+01,.1586453e+01,.1112837e+01,&
6757  & .7278457e+00,.1461987e+01,.1679430e+01,.1668167e+01,.1158214e+01,&
6758  & .5220814e+00,.1081272e+01,.1234021e+01,.1222809e+01,.8668184e+00,&
6759  & .5462161e+00,.1137925e+01,.1304901e+01,.1293790e+01,.9111319e+00,&
6760  & .5743245e+00,.1198422e+01,.1378329e+01,.1368895e+01,.9551067e+00,&
6761  & .6074624e+00,.1263493e+01,.1455169e+01,.1447720e+01,.9999031e+00,&
6762  & .6464214e+00,.1334732e+01,.1536800e+01,.1530362e+01,.1044710e+01,&
6763  & .4530676e+00,.9718752e+00,.1113625e+01,.1102459e+01,.7702607e+00,&
6764  & .4767827e+00,.1027819e+01,.1182580e+01,.1173836e+01,.8131121e+00,&
6765  & .5050006e+00,.1088357e+01,.1255221e+01,.1249573e+01,.8570364e+00,&
6766  & .5385629e+00,.1154487e+01,.1332423e+01,.1329078e+01,.9009956e+00,&
6767  & .5782279e+00,.1226660e+01,.1415277e+01,.1412212e+01,.9457995e+00,&
6768  & .3944211e+00,.8783220e+00,.1009831e+01,.1000358e+01,.6870193e+00,&
6769  & .4180031e+00,.9342002e+00,.1077916e+01,.1071914e+01,.7295172e+00,&
6770  & .4466039e+00,.9953298e+00,.1150465e+01,.1147983e+01,.7723351e+00,&
6771  & .4807452e+00,.1062397e+01,.1228665e+01,.1227974e+01,.8161121e+00,&
6772  & .5212184e+00,.1135828e+01,.1313016e+01,.1312663e+01,.8641655e+00,&
6773  & .3452462e+00,.7999293e+00,.9219804e+00,.9149658e+00,.6174465e+00,&
6774  & .3690573e+00,.8557897e+00,.9899741e+00,.9866927e+00,.6583574e+00,&
6775  & .3981461e+00,.9176898e+00,.1063178e+01,.1062821e+01,.7012026e+00,&
6776  & .4331021e+00,.9859104e+00,.1142768e+01,.1144162e+01,.7470311e+00,&
6777  & .4742396e+00,.1061101e+01,.1229416e+01,.1231158e+01,.7973609e+00/
6778 
6779  data absb(351:525, 8) / &
6780  & .3040686e+00,.7336469e+00,.8476943e+00,.8430763e+00,.5574518e+00,&
6781  & .3283125e+00,.7901985e+00,.9160319e+00,.9148169e+00,.5982934e+00,&
6782  & .3580998e+00,.8530076e+00,.9905938e+00,.9917986e+00,.6421955e+00,&
6783  & .3937998e+00,.9226604e+00,.1072205e+01,.1075289e+01,.6908810e+00,&
6784  & .4350420e+00,.1000013e+01,.1161544e+01,.1165076e+01,.7420692e+00,&
6785  & .2699261e+00,.6782542e+00,.7854145e+00,.7829386e+00,.5064205e+00,&
6786  & .2947504e+00,.7357341e+00,.8549126e+00,.8551804e+00,.5487324e+00,&
6787  & .3252847e+00,.7997113e+00,.9311639e+00,.9339914e+00,.5953021e+00,&
6788  & .3613092e+00,.8712485e+00,.1015309e+01,.1020027e+01,.6445334e+00,&
6789  & .4023145e+00,.9510193e+00,.1107717e+01,.1113072e+01,.6967532e+00,&
6790  & .2420005e+00,.6327790e+00,.7343674e+00,.7337147e+00,.4659044e+00,&
6791  & .2675426e+00,.6914513e+00,.8056098e+00,.8073577e+00,.5100332e+00,&
6792  & .2985977e+00,.7570808e+00,.8841869e+00,.8886282e+00,.5568586e+00,&
6793  & .3345903e+00,.8307955e+00,.9712488e+00,.9777164e+00,.6069869e+00,&
6794  & .3752790e+00,.9132888e+00,.1067298e+01,.1074521e+01,.6606337e+00,&
6795  & .2193104e+00,.5956904e+00,.6933100e+00,.6941123e+00,.4338918e+00,&
6796  & .2454356e+00,.6558867e+00,.7665763e+00,.7700794e+00,.4783097e+00,&
6797  & .2766892e+00,.7234267e+00,.8479414e+00,.8542122e+00,.5258379e+00,&
6798  & .3125185e+00,.7996635e+00,.9383927e+00,.9468621e+00,.5771763e+00,&
6799  & .3530433e+00,.8851441e+00,.1038330e+01,.1047465e+01,.6323351e+00,&
6800  & .2011174e+00,.5662868e+00,.6614813e+00,.6638455e+00,.4081986e+00,&
6801  & .2276405e+00,.6282768e+00,.7371843e+00,.7426597e+00,.4531121e+00,&
6802  & .2588601e+00,.6982349e+00,.8218536e+00,.8302250e+00,.5017038e+00,&
6803  & .2946400e+00,.7772718e+00,.9161532e+00,.9266575e+00,.5545280e+00,&
6804  & .3351557e+00,.8661253e+00,.1020315e+01,.1031181e+01,.6114083e+00,&
6805  & .1865615e+00,.5436250e+00,.6378358e+00,.6421123e+00,.3878649e+00,&
6806  & .2133106e+00,.6078013e+00,.7166414e+00,.7241786e+00,.4336769e+00,&
6807  & .2445042e+00,.6804884e+00,.8049500e+00,.8154355e+00,.4837168e+00,&
6808  & .2803835e+00,.7627085e+00,.9033997e+00,.9157583e+00,.5381867e+00,&
6809  & .3210362e+00,.8552279e+00,.1011978e+01,.1024218e+01,.5970880e+00,&
6810  & .1749538e+00,.5269996e+00,.6215976e+00,.6279908e+00,.3723894e+00,&
6811  & .2017790e+00,.5937199e+00,.7039645e+00,.7136463e+00,.4194095e+00,&
6812  & .2331437e+00,.6694912e+00,.7962787e+00,.8088205e+00,.4711663e+00,&
6813  & .2692141e+00,.7551867e+00,.8989845e+00,.9129664e+00,.5275761e+00,&
6814  & .3102376e+00,.8516644e+00,.1011909e+01,.1025210e+01,.5885594e+00/
6815 
6816  data absb(526:700, 8) / &
6817  & .1648200e+00,.5135795e+00,.6093601e+00,.6178369e+00,.3595625e+00,&
6818  & .1916764e+00,.5828141e+00,.6952491e+00,.7068257e+00,.4080742e+00,&
6819  & .2231330e+00,.6615194e+00,.7912997e+00,.8055439e+00,.4615211e+00,&
6820  & .2594329e+00,.7506484e+00,.8977476e+00,.9130454e+00,.5197857e+00,&
6821  & .3009092e+00,.8509191e+00,.1014517e+01,.1028676e+01,.5827702e+00,&
6822  & .1542942e+00,.4984661e+00,.5950172e+00,.6050995e+00,.3460966e+00,&
6823  & .1808778e+00,.5696361e+00,.6834611e+00,.6965516e+00,.3958165e+00,&
6824  & .2120868e+00,.6504539e+00,.7821549e+00,.7977925e+00,.4505357e+00,&
6825  & .2483187e+00,.7421169e+00,.8913076e+00,.9077047e+00,.5102050e+00,&
6826  & .2900951e+00,.8450562e+00,.1010731e+01,.1025679e+01,.5747009e+00,&
6827  & .1428838e+00,.4799142e+00,.5760617e+00,.5872644e+00,.3307220e+00,&
6828  & .1688185e+00,.5520986e+00,.6658687e+00,.6800494e+00,.3810810e+00,&
6829  & .1993677e+00,.6340252e+00,.7660136e+00,.7826397e+00,.4366263e+00,&
6830  & .2351442e+00,.7269414e+00,.8765519e+00,.8938786e+00,.4971268e+00,&
6831  & .2767765e+00,.8312265e+00,.9973781e+00,.1013193e+01,.5625664e+00,&
6832  & .1295255e+00,.4542258e+00,.5478587e+00,.5595381e+00,.3107326e+00,&
6833  & .1542935e+00,.5261193e+00,.6373454e+00,.6520435e+00,.3608896e+00,&
6834  & .1835749e+00,.6075514e+00,.7372141e+00,.7544331e+00,.4164074e+00,&
6835  & .2182062e+00,.6998975e+00,.8474540e+00,.8656087e+00,.4768929e+00,&
6836  & .2589005e+00,.8036978e+00,.9679606e+00,.9848442e+00,.5424313e+00,&
6837  & .1175401e+00,.4307071e+00,.5219632e+00,.5338978e+00,.2926245e+00,&
6838  & .1412629e+00,.5022212e+00,.6108981e+00,.6259401e+00,.3424732e+00,&
6839  & .1693284e+00,.5830370e+00,.7102630e+00,.7278824e+00,.3978669e+00,&
6840  & .2028442e+00,.6746033e+00,.8199129e+00,.8387792e+00,.4582588e+00,&
6841  & .2426035e+00,.7776740e+00,.9399588e+00,.9577662e+00,.5237233e+00,&
6842  & .1069057e+00,.4095696e+00,.4986606e+00,.5107070e+00,.2765051e+00,&
6843  & .1297183e+00,.4806709e+00,.5869321e+00,.6022485e+00,.3260232e+00,&
6844  & .1566724e+00,.5608628e+00,.6856622e+00,.7036230e+00,.3812308e+00,&
6845  & .1891795e+00,.6516100e+00,.7946672e+00,.8140707e+00,.4414800e+00,&
6846  & .2280943e+00,.7538152e+00,.9140427e+00,.9326912e+00,.5067756e+00,&
6847  & .9538147e-01,.3836728e+00,.4692157e+00,.4807161e+00,.2573361e+00,&
6848  & .1169920e+00,.4534590e+00,.5555647e+00,.5707684e+00,.3058432e+00,&
6849  & .1425205e+00,.5320323e+00,.6525202e+00,.6704208e+00,.3602199e+00,&
6850  & .1734620e+00,.6207733e+00,.7596824e+00,.7794089e+00,.4197447e+00,&
6851  & .2108876e+00,.7208589e+00,.8772631e+00,.8967522e+00,.4842904e+00/
6852 
6853  data absb(701:875, 8) / &
6854  & .8483947e-01,.3588563e+00,.4408601e+00,.4516281e+00,.2391711e+00,&
6855  & .1052687e+00,.4273398e+00,.5251982e+00,.5400986e+00,.2865821e+00,&
6856  & .1294958e+00,.5040617e+00,.6199729e+00,.6376780e+00,.3398708e+00,&
6857  & .1588835e+00,.5906162e+00,.7250743e+00,.7449273e+00,.3985409e+00,&
6858  & .1946890e+00,.6883248e+00,.8405775e+00,.8607468e+00,.4621965e+00,&
6859  & .7543551e-01,.3358861e+00,.4145122e+00,.4243832e+00,.2224114e+00,&
6860  & .9465525e-01,.4026844e+00,.4964574e+00,.5108780e+00,.2686287e+00,&
6861  & .1177290e+00,.4776992e+00,.5890965e+00,.6064776e+00,.3207812e+00,&
6862  & .1456605e+00,.5620963e+00,.6920814e+00,.7118635e+00,.3784909e+00,&
6863  & .1798767e+00,.6573786e+00,.8054007e+00,.8260421e+00,.4411895e+00,&
6864  & .6608792e-01,.3109105e+00,.3855264e+00,.3941304e+00,.2044580e+00,&
6865  & .8394591e-01,.3756301e+00,.4645764e+00,.4780384e+00,.2491451e+00,&
6866  & .1057032e+00,.4484352e+00,.5543433e+00,.5711787e+00,.2997657e+00,&
6867  & .1320096e+00,.5302167e+00,.6546096e+00,.6740082e+00,.3560965e+00,&
6868  & .1642833e+00,.6224082e+00,.7650984e+00,.7859469e+00,.4175347e+00,&
6869  & .5738271e-01,.2860275e+00,.3565059e+00,.3636546e+00,.1867469e+00,&
6870  & .7381553e-01,.3484044e+00,.4324451e+00,.4446271e+00,.2297128e+00,&
6871  & .9417454e-01,.4188318e+00,.5189475e+00,.5351023e+00,.2785779e+00,&
6872  & .1189809e+00,.4980563e+00,.6163102e+00,.6351253e+00,.3333660e+00,&
6873  & .1491626e+00,.5867414e+00,.7235000e+00,.7442712e+00,.3933218e+00,&
6874  & .4966189e-01,.2627287e+00,.3290966e+00,.3348944e+00,.1702478e+00,&
6875  & .6472660e-01,.3227122e+00,.4021344e+00,.4129120e+00,.2114833e+00,&
6876  & .8369235e-01,.3907371e+00,.4852534e+00,.5005355e+00,.2585650e+00,&
6877  & .1070502e+00,.4673220e+00,.5794833e+00,.5976216e+00,.3116401e+00,&
6878  & .1353378e+00,.5528051e+00,.6835756e+00,.7040363e+00,.3701096e+00,&
6879  & .4256723e-01,.2397851e+00,.3016717e+00,.3062819e+00,.1540481e+00,&
6880  & .5622816e-01,.2970953e+00,.3718496e+00,.3810025e+00,.1934507e+00,&
6881  & .7377185e-01,.3626587e+00,.4515842e+00,.4655582e+00,.2385992e+00,&
6882  & .9559465e-01,.4363178e+00,.5420972e+00,.5594484e+00,.2897050e+00,&
6883  & .1220368e+00,.5185878e+00,.6428277e+00,.6627182e+00,.3464809e+00,&
6884  & .3589415e-01,.2161673e+00,.2729648e+00,.2765338e+00,.1375028e+00,&
6885  & .4805408e-01,.2703938e+00,.3401678e+00,.3474504e+00,.1747652e+00,&
6886  & .6397943e-01,.3329344e+00,.4160369e+00,.4283381e+00,.2177681e+00,&
6887  & .8411883e-01,.4035911e+00,.5024152e+00,.5187692e+00,.2666244e+00,&
6888  & .1087145e+00,.4824389e+00,.5992777e+00,.6183786e+00,.3213119e+00/
6889 
6890  data absb(876:1050, 8) / &
6891  & .3011941e-01,.1941366e+00,.2458479e+00,.2487746e+00,.1221988e+00,&
6892  & .4084506e-01,.2453806e+00,.3101120e+00,.3157807e+00,.1572649e+00,&
6893  & .5518255e-01,.3048452e+00,.3825091e+00,.3929551e+00,.1981390e+00,&
6894  & .7368328e-01,.3724217e+00,.4646897e+00,.4797945e+00,.2447415e+00,&
6895  & .9652937e-01,.4480322e+00,.5576115e+00,.5757517e+00,.2972212e+00,&
6896  & .2515607e-01,.1736587e+00,.2203553e+00,.2229593e+00,.1080693e+00,&
6897  & .3453399e-01,.2219693e+00,.2815682e+00,.2859887e+00,.1409424e+00,&
6898  & .4732652e-01,.2782830e+00,.3508111e+00,.3593155e+00,.1796231e+00,&
6899  & .6419246e-01,.3427924e+00,.4290016e+00,.4424221e+00,.2240016e+00,&
6900  & .8533710e-01,.4152474e+00,.5177134e+00,.5349045e+00,.2742416e+00,&
6901  & .2108838e-01,.1557171e+00,.1978594e+00,.2004336e+00,.9577831e-01,&
6902  & .2927578e-01,.2012690e+00,.2560716e+00,.2596510e+00,.1265930e+00,&
6903  & .4069811e-01,.2546968e+00,.3225058e+00,.3293032e+00,.1632049e+00,&
6904  & .5604639e-01,.3162711e+00,.3971951e+00,.4089321e+00,.2055380e+00,&
6905  & .7561968e-01,.3858696e+00,.4819614e+00,.4980595e+00,.2536384e+00,&
6906  & .1767518e-01,.1394513e+00,.1774120e+00,.1800232e+00,.8475686e-01,&
6907  & .2479537e-01,.1824043e+00,.2325611e+00,.2356543e+00,.1136169e+00,&
6908  & .3495024e-01,.2330902e+00,.2962474e+00,.3017090e+00,.1481769e+00,&
6909  & .4886078e-01,.2917985e+00,.3678777e+00,.3778687e+00,.1885266e+00,&
6910  & .6700377e-01,.3587323e+00,.4490277e+00,.4637480e+00,.2345858e+00,&
6911  & .1476895e-01,.1243742e+00,.1583798e+00,.1609596e+00,.7459372e-01,&
6912  & .2091694e-01,.1647602e+00,.2103847e+00,.2132485e+00,.1015375e+00,&
6913  & .2988238e-01,.2127462e+00,.2712282e+00,.2756073e+00,.1340822e+00,&
6914  & .4238686e-01,.2685463e+00,.3400097e+00,.3482087e+00,.1724055e+00,&
6915  & .5904346e-01,.3326286e+00,.4175653e+00,.4306952e+00,.2164369e+00,&
6916  & .1230374e-01,.1104196e+00,.1406329e+00,.1430549e+00,.6528664e-01,&
6917  & .1757050e-01,.1482205e+00,.1894519e+00,.1922843e+00,.9031455e-01,&
6918  & .2540539e-01,.1934889e+00,.2472646e+00,.2509359e+00,.1208463e+00,&
6919  & .3658763e-01,.2464677e+00,.3133038e+00,.3198840e+00,.1571069e+00,&
6920  & .5175125e-01,.3076675e+00,.3875310e+00,.3989625e+00,.1991350e+00,&
6921  & .1033543e-01,.9851647e-01,.1254426e+00,.1276686e+00,.5744944e-01,&
6922  & .1487034e-01,.1339448e+00,.1713721e+00,.1742024e+00,.8071988e-01,&
6923  & .2174783e-01,.1768075e+00,.2263355e+00,.2295753e+00,.1094349e+00,&
6924  & .3178517e-01,.2272599e+00,.2898005e+00,.2951977e+00,.1438116e+00,&
6925  & .4561407e-01,.2857740e+00,.3612374e+00,.3710210e+00,.1839585e+00/
6926 
6927  data absb(1051:1175, 8) / &
6928  & .8709412e-02,.8794504e-01,.1119210e+00,.1139728e+00,.5066255e-01,&
6929  & .1262413e-01,.1212030e+00,.1551537e+00,.1579143e+00,.7214590e-01,&
6930  & .1865119e-01,.1616922e+00,.2072178e+00,.2102675e+00,.9913095e-01,&
6931  & .2764278e-01,.2097406e+00,.2681310e+00,.2726069e+00,.1317209e+00,&
6932  & .4023984e-01,.2656768e+00,.3370690e+00,.3452748e+00,.1700699e+00,&
6933  & .7309742e-02,.7805313e-01,.9935397e-01,.1011896e+00,.4454450e-01,&
6934  & .1068078e-01,.1092344e+00,.1398484e+00,.1424507e+00,.6420420e-01,&
6935  & .1594110e-01,.1474371e+00,.1891070e+00,.1921023e+00,.8951479e-01,&
6936  & .2393561e-01,.1930891e+00,.2473383e+00,.2511858e+00,.1203039e+00,&
6937  & .3536639e-01,.2465547e+00,.3138627e+00,.3206321e+00,.1568422e+00,&
6938  & .6111505e-02,.6882934e-01,.8775334e-01,.8932843e-01,.3912454e-01,&
6939  & .9015756e-02,.9808206e-01,.1255190e+00,.1279049e+00,.5696209e-01,&
6940  & .1357531e-01,.1339695e+00,.1719655e+00,.1749408e+00,.8050805e-01,&
6941  & .2064520e-01,.1772958e+00,.2274651e+00,.2308615e+00,.1095380e+00,&
6942  & .3095469e-01,.2282972e+00,.2914883e+00,.2970959e+00,.1442483e+00,&
6943  & .5121725e-02,.6067687e-01,.7763361e-01,.7890932e-01,.3444819e-01,&
6944  & .7639216e-02,.8816021e-01,.1127621e+00,.1149702e+00,.5070163e-01,&
6945  & .1160557e-01,.1219458e+00,.1566131e+00,.1595297e+00,.7248142e-01,&
6946  & .1786695e-01,.1630817e+00,.2094426e+00,.2126006e+00,.9988204e-01,&
6947  & .2716600e-01,.2117945e+00,.2710344e+00,.2757215e+00,.1328837e+00,&
6948  & .4599319e-02,.5738031e-01,.7361124e-01,.7479831e-01,.3257284e-01,&
6949  & .6965718e-02,.8418710e-01,.1077301e+00,.1098721e+00,.4821784e-01,&
6950  & .1072080e-01,.1171779e+00,.1505705e+00,.1534484e+00,.6933089e-01,&
6951  & .1668801e-01,.1574612e+00,.2023452e+00,.2054613e+00,.9606507e-01,&
6952  & .2561291e-01,.2052733e+00,.2629716e+00,.2673724e+00,.1283901e+00/
6953 
6954  data absb( 1:175, 9) / &
6955  & .1351800e+02,.1942600e+02,.2136800e+02,.2060700e+02,.1596700e+02,&
6956  & .1324900e+02,.1927800e+02,.2134500e+02,.2072500e+02,.1621800e+02,&
6957  & .1299100e+02,.1910600e+02,.2134400e+02,.2083800e+02,.1649300e+02,&
6958  & .1278300e+02,.1895300e+02,.2133700e+02,.2095900e+02,.1676900e+02,&
6959  & .1273500e+02,.1882000e+02,.2132800e+02,.2110400e+02,.1698200e+02,&
6960  & .1150400e+02,.1753400e+02,.1945700e+02,.1913100e+02,.1462500e+02,&
6961  & .1128100e+02,.1739600e+02,.1949100e+02,.1927100e+02,.1493900e+02,&
6962  & .1111200e+02,.1729000e+02,.1952700e+02,.1941500e+02,.1525500e+02,&
6963  & .1111500e+02,.1721300e+02,.1956000e+02,.1958000e+02,.1550400e+02,&
6964  & .1134200e+02,.1713900e+02,.1961500e+02,.1975900e+02,.1570600e+02,&
6965  & .9817000e+01,.1559900e+02,.1762700e+02,.1766600e+02,.1335400e+02,&
6966  & .9674700e+01,.1553300e+02,.1769500e+02,.1784200e+02,.1368700e+02,&
6967  & .9698400e+01,.1550200e+02,.1775500e+02,.1803600e+02,.1400400e+02,&
6968  & .9952200e+01,.1548000e+02,.1782900e+02,.1823500e+02,.1426300e+02,&
6969  & .1034400e+02,.1552500e+02,.1792900e+02,.1841800e+02,.1447500e+02,&
6970  & .8433200e+01,.1380600e+02,.1592600e+02,.1621500e+02,.1222400e+02,&
6971  & .8458300e+01,.1380500e+02,.1602100e+02,.1643700e+02,.1255600e+02,&
6972  & .8706600e+01,.1382300e+02,.1610800e+02,.1666000e+02,.1283400e+02,&
6973  & .9082700e+01,.1392400e+02,.1622600e+02,.1688300e+02,.1307800e+02,&
6974  & .9526300e+01,.1415600e+02,.1638200e+02,.1707900e+02,.1333400e+02,&
6975  & .7306800e+01,.1225200e+02,.1434100e+02,.1481000e+02,.1112900e+02,&
6976  & .7529500e+01,.1229100e+02,.1446300e+02,.1505200e+02,.1143900e+02,&
6977  & .7885300e+01,.1240500e+02,.1460600e+02,.1530900e+02,.1172900e+02,&
6978  & .8304000e+01,.1264300e+02,.1477600e+02,.1554800e+02,.1200600e+02,&
6979  & .8712300e+01,.1303900e+02,.1498200e+02,.1576200e+02,.1228600e+02,&
6980  & .6428700e+01,.1093300e+02,.1287900e+02,.1345100e+02,.1005300e+02,&
6981  & .6744600e+01,.1103900e+02,.1304100e+02,.1374000e+02,.1037700e+02,&
6982  & .7127100e+01,.1126600e+02,.1322200e+02,.1401800e+02,.1069900e+02,&
6983  & .7506700e+01,.1165000e+02,.1345500e+02,.1426300e+02,.1101100e+02,&
6984  & .7879700e+01,.1214400e+02,.1376600e+02,.1451700e+02,.1132300e+02,&
6985  & .5716500e+01,.9819800e+01,.1156300e+02,.1221000e+02,.9028700e+01,&
6986  & .6050400e+01,.1003000e+02,.1175900e+02,.1251100e+02,.9377100e+01,&
6987  & .6387200e+01,.1039000e+02,.1200400e+02,.1278700e+02,.9738200e+01,&
6988  & .6726200e+01,.1085800e+02,.1232500e+02,.1307100e+02,.1010000e+02,&
6989  & .7063000e+01,.1139600e+02,.1272000e+02,.1337100e+02,.1043300e+02/
6990 
6991  data absb(176:350, 9) / &
6992  & .5107700e+01,.8868000e+01,.1041500e+02,.1105300e+02,.8096300e+01,&
6993  & .5401700e+01,.9210700e+01,.1066200e+02,.1136100e+02,.8475800e+01,&
6994  & .5701500e+01,.9669800e+01,.1098200e+02,.1166800e+02,.8848100e+01,&
6995  & .6004100e+01,.1019600e+02,.1138400e+02,.1200000e+02,.9237600e+01,&
6996  & .6310600e+01,.1073200e+02,.1188400e+02,.1234900e+02,.9625500e+01,&
6997  & .4541400e+01,.8084100e+01,.9433300e+01,.1000100e+02,.7298700e+01,&
6998  & .4806000e+01,.8516900e+01,.9739900e+01,.1032400e+02,.7679900e+01,&
6999  & .5075400e+01,.9031100e+01,.1013400e+02,.1067300e+02,.8069200e+01,&
7000  & .5348900e+01,.9566000e+01,.1062600e+02,.1104600e+02,.8467100e+01,&
7001  & .5622600e+01,.1010000e+02,.1118800e+02,.1146700e+02,.8887800e+01,&
7002  & .4051200e+01,.7453700e+01,.8611300e+01,.9076000e+01,.6640600e+01,&
7003  & .4286100e+01,.7945500e+01,.8998800e+01,.9432600e+01,.7029800e+01,&
7004  & .4528400e+01,.8472300e+01,.9480600e+01,.9828200e+01,.7436500e+01,&
7005  & .4776500e+01,.9002200e+01,.1003600e+02,.1026700e+02,.7853000e+01,&
7006  & .5027300e+01,.9537500e+01,.1064400e+02,.1076200e+02,.8292500e+01,&
7007  & .3627200e+01,.6934500e+01,.7929200e+01,.8282100e+01,.6086200e+01,&
7008  & .3832400e+01,.7441200e+01,.8405800e+01,.8677900e+01,.6481400e+01,&
7009  & .4049600e+01,.7955600e+01,.8949700e+01,.9127700e+01,.6903100e+01,&
7010  & .4273600e+01,.8488100e+01,.9551200e+01,.9635300e+01,.7342300e+01,&
7011  & .4500800e+01,.9023100e+01,.1019900e+02,.1019600e+02,.7810700e+01,&
7012  & .3261700e+01,.6492700e+01,.7381400e+01,.7620400e+01,.5635100e+01,&
7013  & .3445500e+01,.6986400e+01,.7914600e+01,.8066800e+01,.6048200e+01,&
7014  & .3637500e+01,.7498200e+01,.8512400e+01,.8568800e+01,.6479300e+01,&
7015  & .3836100e+01,.8025300e+01,.9153000e+01,.9138400e+01,.6948800e+01,&
7016  & .4043400e+01,.8577000e+01,.9824900e+01,.9770100e+01,.7439200e+01,&
7017  & .2950400e+01,.6099600e+01,.6937800e+01,.7093300e+01,.5269600e+01,&
7018  & .3113400e+01,.6585900e+01,.7519300e+01,.7587400e+01,.5690800e+01,&
7019  & .3285000e+01,.7099100e+01,.8158300e+01,.8145500e+01,.6150400e+01,&
7020  & .3463900e+01,.7635700e+01,.8828900e+01,.8776600e+01,.6639100e+01,&
7021  & .3657500e+01,.8203100e+01,.9533500e+01,.9472800e+01,.7118100e+01,&
7022  & .2678500e+01,.5759200e+01,.6594400e+01,.6679300e+01,.4965900e+01,&
7023  & .2830300e+01,.6251200e+01,.7218000e+01,.7229200e+01,.5415800e+01,&
7024  & .2984500e+01,.6770000e+01,.7885300e+01,.7851700e+01,.5892900e+01,&
7025  & .3149800e+01,.7321800e+01,.8589200e+01,.8540500e+01,.6377900e+01,&
7026  & .3336500e+01,.7909500e+01,.9326000e+01,.9287600e+01,.6859300e+01/
7027 
7028  data absb(351:525, 9) / &
7029  & .2438100e+01,.5471900e+01,.6329600e+01,.6369900e+01,.4737800e+01,&
7030  & .2583300e+01,.5970600e+01,.6983900e+01,.6980900e+01,.5202400e+01,&
7031  & .2727600e+01,.6503200e+01,.7682300e+01,.7662300e+01,.5684900e+01,&
7032  & .2884300e+01,.7076800e+01,.8422300e+01,.8397300e+01,.6161300e+01,&
7033  & .3077600e+01,.7683700e+01,.9192900e+01,.9187100e+01,.6669700e+01,&
7034  & .2223800e+01,.5236600e+01,.6133500e+01,.6157400e+01,.4570500e+01,&
7035  & .2364800e+01,.5745100e+01,.6815100e+01,.6826600e+01,.5034700e+01,&
7036  & .2506700e+01,.6298000e+01,.7546000e+01,.7554800e+01,.5506400e+01,&
7037  & .2668000e+01,.6893000e+01,.8322300e+01,.8330800e+01,.6010300e+01,&
7038  & .2876300e+01,.7523400e+01,.9126900e+01,.9154700e+01,.6544300e+01,&
7039  & .2034300e+01,.5054000e+01,.6002100e+01,.6036000e+01,.4430600e+01,&
7040  & .2173200e+01,.5578500e+01,.6713400e+01,.6754400e+01,.4892400e+01,&
7041  & .2321700e+01,.6155400e+01,.7482800e+01,.7521700e+01,.5389900e+01,&
7042  & .2499100e+01,.6772700e+01,.8294300e+01,.8334100e+01,.5921100e+01,&
7043  & .2729800e+01,.7430900e+01,.9129400e+01,.9187700e+01,.6477600e+01,&
7044  & .1867800e+01,.4920300e+01,.5929100e+01,.5987500e+01,.4320400e+01,&
7045  & .2010200e+01,.5466700e+01,.6674700e+01,.6743000e+01,.4802600e+01,&
7046  & .2171900e+01,.6068200e+01,.7482700e+01,.7547700e+01,.5328100e+01,&
7047  & .2372000e+01,.6712600e+01,.8325200e+01,.8391000e+01,.5882600e+01,&
7048  & .2626400e+01,.7397700e+01,.9187000e+01,.9272300e+01,.6459800e+01,&
7049  & .1724400e+01,.4837000e+01,.5915600e+01,.6000100e+01,.4255500e+01,&
7050  & .1875500e+01,.5410700e+01,.6699900e+01,.6790400e+01,.4764400e+01,&
7051  & .2057300e+01,.6036300e+01,.7540200e+01,.7627400e+01,.5315500e+01,&
7052  & .2282900e+01,.6709400e+01,.8407900e+01,.8496200e+01,.5890100e+01,&
7053  & .2559000e+01,.7419500e+01,.9290900e+01,.9399400e+01,.6487100e+01,&
7054  & .1606900e+01,.4803000e+01,.5957900e+01,.6063900e+01,.4235600e+01,&
7055  & .1770500e+01,.5403700e+01,.6778800e+01,.6887400e+01,.4771200e+01,&
7056  & .1974200e+01,.6057400e+01,.7644800e+01,.7749100e+01,.5343400e+01,&
7057  & .2224700e+01,.6756000e+01,.8531000e+01,.8638500e+01,.5938100e+01,&
7058  & .2523800e+01,.7488000e+01,.9429200e+01,.9557000e+01,.6549700e+01,&
7059  & .1512800e+01,.4814000e+01,.6050100e+01,.6171400e+01,.4255000e+01,&
7060  & .1694600e+01,.5441700e+01,.6900000e+01,.7021200e+01,.4815500e+01,&
7061  & .1920600e+01,.6121300e+01,.7783900e+01,.7902000e+01,.5406900e+01,&
7062  & .2194600e+01,.6842200e+01,.8682700e+01,.8807500e+01,.6016900e+01,&
7063  & .2517300e+01,.7591300e+01,.9592400e+01,.9737300e+01,.6639800e+01/
7064 
7065  data absb(526:700, 9) / &
7066  & .1435600e+01,.4841800e+01,.6149500e+01,.6282800e+01,.4289600e+01,&
7067  & .1635700e+01,.5493500e+01,.7018400e+01,.7151600e+01,.4869100e+01,&
7068  & .1883800e+01,.6195700e+01,.7915100e+01,.8045700e+01,.5474200e+01,&
7069  & .2178800e+01,.6932500e+01,.8825600e+01,.8964300e+01,.6095600e+01,&
7070  & .2523800e+01,.7693000e+01,.9743900e+01,.9902100e+01,.6726400e+01,&
7071  & .1362000e+01,.4840000e+01,.6191100e+01,.6334100e+01,.4295000e+01,&
7072  & .1576500e+01,.5507700e+01,.7071700e+01,.7214900e+01,.4887200e+01,&
7073  & .1841600e+01,.6223800e+01,.7977800e+01,.8117300e+01,.5501400e+01,&
7074  & .2152800e+01,.6969400e+01,.8895100e+01,.9043000e+01,.6130400e+01,&
7075  & .2513500e+01,.7737000e+01,.9819100e+01,.9986500e+01,.6766200e+01,&
7076  & .1283600e+01,.4789200e+01,.6154900e+01,.6305000e+01,.4254000e+01,&
7077  & .1507000e+01,.5464900e+01,.7041600e+01,.7192300e+01,.4853600e+01,&
7078  & .1783000e+01,.6187200e+01,.7953100e+01,.8099400e+01,.5473400e+01,&
7079  & .2105500e+01,.6936900e+01,.8874500e+01,.9028800e+01,.6106600e+01,&
7080  & .2475400e+01,.7709000e+01,.9802300e+01,.9975900e+01,.6745900e+01,&
7081  & .1187800e+01,.4654100e+01,.5997500e+01,.6153100e+01,.4135700e+01,&
7082  & .1411400e+01,.5327900e+01,.6883600e+01,.7040700e+01,.4736600e+01,&
7083  & .1690700e+01,.6048800e+01,.7796100e+01,.7949200e+01,.5358700e+01,&
7084  & .2017100e+01,.6798700e+01,.8721400e+01,.8878200e+01,.5993100e+01,&
7085  & .2387900e+01,.7572100e+01,.9650500e+01,.9826300e+01,.6634600e+01,&
7086  & .1101900e+01,.4524100e+01,.5841100e+01,.6001500e+01,.4020600e+01,&
7087  & .1324000e+01,.5193800e+01,.6724800e+01,.6888100e+01,.4621500e+01,&
7088  & .1605000e+01,.5912700e+01,.7637700e+01,.7796900e+01,.5244400e+01,&
7089  & .1934400e+01,.6661400e+01,.8565600e+01,.8724100e+01,.5879700e+01,&
7090  & .2305300e+01,.7435200e+01,.9496100e+01,.9673000e+01,.6523200e+01,&
7091  & .1026100e+01,.4403500e+01,.5692500e+01,.5857100e+01,.3913000e+01,&
7092  & .1245800e+01,.5069400e+01,.6573500e+01,.6741100e+01,.4513000e+01,&
7093  & .1528100e+01,.5784400e+01,.7485300e+01,.7649700e+01,.5135300e+01,&
7094  & .1859000e+01,.6531000e+01,.8413900e+01,.8575200e+01,.5771100e+01,&
7095  & .2229600e+01,.7303100e+01,.9346100e+01,.9523300e+01,.6415500e+01,&
7096  & .9402000e+00,.4225200e+01,.5461800e+01,.5630500e+01,.3751400e+01,&
7097  & .1151000e+01,.4880800e+01,.6335900e+01,.6505100e+01,.4346400e+01,&
7098  & .1426700e+01,.5586500e+01,.7242900e+01,.7411600e+01,.4965900e+01,&
7099  & .1753400e+01,.6328400e+01,.8170600e+01,.8334600e+01,.5600400e+01,&
7100  & .2119600e+01,.7095400e+01,.9103800e+01,.9279000e+01,.6244300e+01/
7101 
7102  data absb(701:875, 9) / &
7103  & .8612900e+00,.4045700e+01,.5226400e+01,.5397600e+01,.3587900e+01,&
7104  & .1063300e+01,.4691500e+01,.6092400e+01,.6263500e+01,.4176800e+01,&
7105  & .1328300e+01,.5384500e+01,.6992600e+01,.7164900e+01,.4792100e+01,&
7106  & .1648500e+01,.6120100e+01,.7917500e+01,.8084400e+01,.5424000e+01,&
7107  & .2009300e+01,.6881200e+01,.8852200e+01,.9024900e+01,.6066800e+01,&
7108  & .7912300e+00,.3873500e+01,.4996000e+01,.5169900e+01,.3428700e+01,&
7109  & .9829500e+00,.4507200e+01,.5853300e+01,.6025400e+01,.4010900e+01,&
7110  & .1236400e+01,.5187600e+01,.6745900e+01,.6921400e+01,.4621200e+01,&
7111  & .1548400e+01,.5915000e+01,.7666500e+01,.7837300e+01,.5250300e+01,&
7112  & .1902600e+01,.6671600e+01,.8601800e+01,.8772800e+01,.5891500e+01,&
7113  & .7198400e+00,.3672900e+01,.4723500e+01,.4897500e+01,.3239700e+01,&
7114  & .8980800e+00,.4291600e+01,.5569700e+01,.5744300e+01,.3815300e+01,&
7115  & .1136000e+01,.4957400e+01,.6451900e+01,.6628900e+01,.4418400e+01,&
7116  & .1434500e+01,.5672800e+01,.7366000e+01,.7541000e+01,.5043700e+01,&
7117  & .1779300e+01,.6422800e+01,.8299900e+01,.8470500e+01,.5682300e+01,&
7118  & .6528500e+00,.3466700e+01,.4437200e+01,.4608200e+01,.3039900e+01,&
7119  & .8165700e+00,.4067400e+01,.5270100e+01,.5446600e+01,.3609400e+01,&
7120  & .1037000e+01,.4717100e+01,.6140500e+01,.6317500e+01,.4203800e+01,&
7121  & .1319400e+01,.5418400e+01,.7047300e+01,.7224800e+01,.4823700e+01,&
7122  & .1651400e+01,.6158400e+01,.7976000e+01,.8147700e+01,.5458100e+01,&
7123  & .5932400e+00,.3268700e+01,.4161000e+01,.4327000e+01,.2843700e+01,&
7124  & .7429200e+00,.3850200e+01,.4975400e+01,.5152500e+01,.3408100e+01,&
7125  & .9460600e+00,.4483800e+01,.5834700e+01,.6011200e+01,.3993200e+01,&
7126  & .1210300e+01,.5169100e+01,.6731200e+01,.6911300e+01,.4606300e+01,&
7127  & .1528300e+01,.5897000e+01,.7652900e+01,.7828300e+01,.5236500e+01,&
7128  & .5366500e+00,.3066500e+01,.3878800e+01,.4034400e+01,.2639600e+01,&
7129  & .6732600e+00,.3627500e+01,.4668500e+01,.4844500e+01,.3197000e+01,&
7130  & .8596400e+00,.4245000e+01,.5516100e+01,.5694000e+01,.3774200e+01,&
7131  & .1102600e+01,.4911200e+01,.6399200e+01,.6579500e+01,.4378500e+01,&
7132  & .1403000e+01,.5624700e+01,.7312800e+01,.7491800e+01,.5003700e+01,&
7133  & .4796500e+00,.2851200e+01,.3577300e+01,.3719000e+01,.2417900e+01,&
7134  & .6049900e+00,.3389500e+01,.4335300e+01,.4507000e+01,.2965300e+01,&
7135  & .7721100e+00,.3985700e+01,.5165600e+01,.5343900e+01,.3534600e+01,&
7136  & .9928000e+00,.4632000e+01,.6034600e+01,.6213800e+01,.4127800e+01,&
7137  & .1271100e+01,.5327200e+01,.6937700e+01,.7118900e+01,.4746400e+01/
7138 
7139  data absb(876:1050, 9) / &
7140  & .4265100e+00,.2644500e+01,.3289400e+01,.3414800e+01,.2203300e+01,&
7141  & .5438800e+00,.3161100e+01,.4016100e+01,.4179100e+01,.2737300e+01,&
7142  & .6936800e+00,.3734700e+01,.4820600e+01,.4998900e+01,.3299700e+01,&
7143  & .8927900e+00,.4362000e+01,.5676700e+01,.5855400e+01,.3882200e+01,&
7144  & .1148400e+01,.5036900e+01,.6566800e+01,.6749500e+01,.4491800e+01,&
7145  & .3771300e+00,.2443900e+01,.3016000e+01,.3120600e+01,.1997600e+01,&
7146  & .4876600e+00,.2943400e+01,.3710400e+01,.3859900e+01,.2514300e+01,&
7147  & .6240700e+00,.3493900e+01,.4484700e+01,.4659600e+01,.3068000e+01,&
7148  & .8029800e+00,.4100600e+01,.5325500e+01,.5504900e+01,.3641300e+01,&
7149  & .1035300e+01,.4755400e+01,.6201000e+01,.6382000e+01,.4240700e+01,&
7150  & .3333400e+00,.2257300e+01,.2773000e+01,.2853700e+01,.1814100e+01,&
7151  & .4382400e+00,.2747700e+01,.3435900e+01,.3571200e+01,.2311200e+01,&
7152  & .5655500e+00,.3276700e+01,.4180700e+01,.4349700e+01,.2854000e+01,&
7153  & .7266200e+00,.3863100e+01,.5000300e+01,.5179800e+01,.3420600e+01,&
7154  & .9381100e+00,.4499800e+01,.5863500e+01,.6043300e+01,.4009200e+01,&
7155  & .2934400e+00,.2079200e+01,.2549300e+01,.2604500e+01,.1644700e+01,&
7156  & .3932000e+00,.2563300e+01,.3181100e+01,.3299600e+01,.2120200e+01,&
7157  & .5133500e+00,.3073900e+01,.3896800e+01,.4055400e+01,.2649300e+01,&
7158  & .6599100e+00,.3639600e+01,.4691000e+01,.4869200e+01,.3209500e+01,&
7159  & .8530500e+00,.4260200e+01,.5542800e+01,.5722700e+01,.3789000e+01,&
7160  & .2563400e+00,.1906500e+01,.2337300e+01,.2367500e+01,.1484900e+01,&
7161  & .3508500e+00,.2383200e+01,.2938000e+01,.3036300e+01,.1937900e+01,&
7162  & .4646300e+00,.2880600e+01,.3624500e+01,.3770500e+01,.2449900e+01,&
7163  & .6001400e+00,.3424700e+01,.4390100e+01,.4564400e+01,.3001300e+01,&
7164  & .7750200e+00,.4026800e+01,.5226400e+01,.5406400e+01,.3572900e+01,&
7165  & .2219800e+00,.1738200e+01,.2135500e+01,.2144300e+01,.1332100e+01,&
7166  & .3108800e+00,.2203700e+01,.2707000e+01,.2780900e+01,.1763100e+01,&
7167  & .4186800e+00,.2693700e+01,.3362800e+01,.3493700e+01,.2255100e+01,&
7168  & .5459000e+00,.3217200e+01,.4099400e+01,.4266900e+01,.2795000e+01,&
7169  & .7038200e+00,.3799300e+01,.4913400e+01,.5093400e+01,.3360900e+01,&
7170  & .1927900e+00,.1588400e+01,.1957600e+01,.1951600e+01,.1199100e+01,&
7171  & .2761400e+00,.2042300e+01,.2505300e+01,.2555900e+01,.1610600e+01,&
7172  & .3790000e+00,.2526400e+01,.3132300e+01,.3247300e+01,.2082500e+01,&
7173  & .4995400e+00,.3034400e+01,.3842500e+01,.3999400e+01,.2609000e+01,&
7174  & .6448300e+00,.3596700e+01,.4632000e+01,.4810400e+01,.3168300e+01/
7175 
7176  data absb(1051:1175, 9) / &
7177  & .1675200e+00,.1450600e+01,.1792400e+01,.1778000e+01,.1076600e+01,&
7178  & .2454600e+00,.1892400e+01,.2321500e+01,.2350200e+01,.1471800e+01,&
7179  & .3428200e+00,.2368600e+01,.2920300e+01,.3017100e+01,.1923800e+01,&
7180  & .4575100e+00,.2865700e+01,.3604800e+01,.3750400e+01,.2434700e+01,&
7181  & .5934500e+00,.3409100e+01,.4369200e+01,.4543600e+01,.2986000e+01,&
7182  & .1444200e+00,.1319100e+01,.1630700e+01,.1615800e+01,.9596600e+00,&
7183  & .2162900e+00,.1745600e+01,.2145400e+01,.2155300e+01,.1338400e+01,&
7184  & .3083800e+00,.2211700e+01,.2718400e+01,.2793900e+01,.1771000e+01,&
7185  & .4178000e+00,.2702400e+01,.3376100e+01,.3508300e+01,.2264700e+01,&
7186  & .5463300e+00,.3227700e+01,.4115300e+01,.4283500e+01,.2805700e+01,&
7187  & .1236900e+00,.1194200e+01,.1475100e+01,.1466000e+01,.8479400e+00,&
7188  & .1894300e+00,.1602500e+01,.1975200e+01,.1970600e+01,.1210400e+01,&
7189  & .2758000e+00,.2057700e+01,.2525300e+01,.2578500e+01,.1624900e+01,&
7190  & .3801500e+00,.2542500e+01,.3155400e+01,.3272400e+01,.2099500e+01,&
7191  & .5022000e+00,.3052800e+01,.3869400e+01,.4027500e+01,.2627900e+01,&
7192  & .1061900e+00,.1081500e+01,.1333800e+01,.1334000e+01,.7492400e+00,&
7193  & .1658600e+00,.1471300e+01,.1818300e+01,.1804700e+01,.1093300e+01,&
7194  & .2466800e+00,.1915000e+01,.2349800e+01,.2382400e+01,.1493100e+01,&
7195  & .3461300e+00,.2393600e+01,.2954200e+01,.3054500e+01,.1948900e+01,&
7196  & .4625100e+00,.2892800e+01,.3643900e+01,.3791400e+01,.2462800e+01,&
7197  & .9878100e-01,.1037400e+01,.1279000e+01,.1283400e+01,.7109100e+00,&
7198  & .1564300e+00,.1419900e+01,.1756000e+01,.1740600e+01,.1047500e+01,&
7199  & .2351200e+00,.1858500e+01,.2281500e+01,.2306100e+01,.1440800e+01,&
7200  & .3325000e+00,.2333800e+01,.2875500e+01,.2968600e+01,.1889800e+01,&
7201  & .4469700e+00,.2829800e+01,.3555500e+01,.3698400e+01,.2397500e+01/
7202 
7203  data absb( 1:175,10) / &
7204  & .5148311e+02,.5413939e+02,.5702358e+02,.5255781e+02,.4767175e+02,&
7205  & .5089809e+02,.5366563e+02,.5690094e+02,.5278229e+02,.4816697e+02,&
7206  & .5028687e+02,.5319767e+02,.5674627e+02,.5298787e+02,.4858275e+02,&
7207  & .4966788e+02,.5270972e+02,.5651558e+02,.5315507e+02,.4895540e+02,&
7208  & .4904266e+02,.5220812e+02,.5626701e+02,.5327637e+02,.4934862e+02,&
7209  & .4695357e+02,.5244112e+02,.5623255e+02,.5228165e+02,.4528190e+02,&
7210  & .4636862e+02,.5203478e+02,.5620209e+02,.5261290e+02,.4583339e+02,&
7211  & .4578848e+02,.5161094e+02,.5610019e+02,.5291867e+02,.4633999e+02,&
7212  & .4522091e+02,.5118237e+02,.5596404e+02,.5316078e+02,.4686589e+02,&
7213  & .4464656e+02,.5075226e+02,.5579719e+02,.5336823e+02,.4742733e+02,&
7214  & .4214601e+02,.5023928e+02,.5465620e+02,.5137721e+02,.4265810e+02,&
7215  & .4159514e+02,.4989728e+02,.5473059e+02,.5180612e+02,.4330876e+02,&
7216  & .4107738e+02,.4954386e+02,.5475515e+02,.5218532e+02,.4396773e+02,&
7217  & .4057407e+02,.4919951e+02,.5475077e+02,.5253512e+02,.4466305e+02,&
7218  & .4017621e+02,.4885046e+02,.5474194e+02,.5287718e+02,.4535369e+02,&
7219  & .3729887e+02,.4762187e+02,.5248346e+02,.4992379e+02,.3996857e+02,&
7220  & .3682707e+02,.4735522e+02,.5268439e+02,.5045155e+02,.4074890e+02,&
7221  & .3639654e+02,.4710649e+02,.5286499e+02,.5096814e+02,.4156839e+02,&
7222  & .3608349e+02,.4686360e+02,.5304363e+02,.5147530e+02,.4241003e+02,&
7223  & .3594030e+02,.4664103e+02,.5320927e+02,.5198934e+02,.4322855e+02,&
7224  & .3267085e+02,.4471454e+02,.4990144e+02,.4806389e+02,.3737273e+02,&
7225  & .3229921e+02,.4458748e+02,.5027045e+02,.4875782e+02,.3829531e+02,&
7226  & .3205109e+02,.4447599e+02,.5065142e+02,.4944055e+02,.3925216e+02,&
7227  & .3198556e+02,.4439449e+02,.5103374e+02,.5013485e+02,.4020794e+02,&
7228  & .3212562e+02,.4431957e+02,.5139858e+02,.5083922e+02,.4116103e+02,&
7229  & .2840862e+02,.4164567e+02,.4712876e+02,.4597745e+02,.3496902e+02,&
7230  & .2819485e+02,.4169424e+02,.4770395e+02,.4685191e+02,.3600935e+02,&
7231  & .2816868e+02,.4176226e+02,.4829256e+02,.4773086e+02,.3708676e+02,&
7232  & .2836998e+02,.4184080e+02,.4888393e+02,.4862950e+02,.3815932e+02,&
7233  & .2876609e+02,.4198837e+02,.4946530e+02,.4954016e+02,.3924359e+02,&
7234  & .2458838e+02,.3854886e+02,.4433510e+02,.4378221e+02,.3278158e+02,&
7235  & .2458406e+02,.3879353e+02,.4511982e+02,.4485465e+02,.3393561e+02,&
7236  & .2481011e+02,.3904687e+02,.4591165e+02,.4596040e+02,.3509830e+02,&
7237  & .2524181e+02,.3936718e+02,.4670940e+02,.4707856e+02,.3628077e+02,&
7238  & .2588043e+02,.3975083e+02,.4751106e+02,.4819091e+02,.3749205e+02/
7239 
7240  data absb(176:350,10) / &
7241  & .2128943e+02,.3559835e+02,.4162163e+02,.4164333e+02,.3082318e+02,&
7242  & .2150537e+02,.3602723e+02,.4259734e+02,.4292976e+02,.3205684e+02,&
7243  & .2193801e+02,.3650531e+02,.4361086e+02,.4425346e+02,.3332155e+02,&
7244  & .2259310e+02,.3706210e+02,.4463171e+02,.4558654e+02,.3461692e+02,&
7245  & .2342964e+02,.3772964e+02,.4566117e+02,.4688864e+02,.3593171e+02,&
7246  & .1852062e+02,.3287436e+02,.3903572e+02,.3964314e+02,.2907608e+02,&
7247  & .1891782e+02,.3350332e+02,.4024543e+02,.4114241e+02,.3039091e+02,&
7248  & .1954091e+02,.3421519e+02,.4148282e+02,.4268352e+02,.3174986e+02,&
7249  & .2036981e+02,.3502995e+02,.4273744e+02,.4421574e+02,.3314916e+02,&
7250  & .2138764e+02,.3596408e+02,.4400706e+02,.4569955e+02,.3457774e+02,&
7251  & .1624714e+02,.3047658e+02,.3680690e+02,.3795944e+02,.2761997e+02,&
7252  & .1682346e+02,.3133476e+02,.3822752e+02,.3967654e+02,.2904446e+02,&
7253  & .1761414e+02,.3229856e+02,.3969010e+02,.4139802e+02,.3050220e+02,&
7254  & .1860843e+02,.3338503e+02,.4119523e+02,.4312030e+02,.3200324e+02,&
7255  & .1979142e+02,.3455683e+02,.4269211e+02,.4477201e+02,.3355101e+02,&
7256  & .1441593e+02,.2844847e+02,.3488725e+02,.3654168e+02,.2639799e+02,&
7257  & .1513627e+02,.2951628e+02,.3652960e+02,.3844842e+02,.2793035e+02,&
7258  & .1607257e+02,.3073671e+02,.3822881e+02,.4036376e+02,.2949013e+02,&
7259  & .1721158e+02,.3204955e+02,.3993969e+02,.4224228e+02,.3109975e+02,&
7260  & .1853506e+02,.3344658e+02,.4166331e+02,.4405921e+02,.3276077e+02,&
7261  & .1295279e+02,.2677411e+02,.3332381e+02,.3540024e+02,.2541395e+02,&
7262  & .1380491e+02,.2807574e+02,.3519465e+02,.3748808e+02,.2704929e+02,&
7263  & .1487470e+02,.2950308e+02,.3708718e+02,.3957763e+02,.2871542e+02,&
7264  & .1613680e+02,.3102968e+02,.3900635e+02,.4159900e+02,.3042625e+02,&
7265  & .1756668e+02,.3261608e+02,.4093414e+02,.4356179e+02,.3219685e+02,&
7266  & .1181308e+02,.2545547e+02,.3213568e+02,.3454579e+02,.2465802e+02,&
7267  & .1278415e+02,.2697292e+02,.3418991e+02,.3680560e+02,.2639551e+02,&
7268  & .1396046e+02,.2859206e+02,.3627615e+02,.3903520e+02,.2816396e+02,&
7269  & .1530966e+02,.3030034e+02,.3838513e+02,.4119274e+02,.2998441e+02,&
7270  & .1680246e+02,.3204287e+02,.4046635e+02,.4326902e+02,.3183828e+02,&
7271  & .1095745e+02,.2448401e+02,.3130388e+02,.3400597e+02,.2413910e+02,&
7272  & .1202575e+02,.2618548e+02,.3353135e+02,.3640460e+02,.2597275e+02,&
7273  & .1327161e+02,.2798353e+02,.3579506e+02,.3875055e+02,.2784255e+02,&
7274  & .1467686e+02,.2984441e+02,.3805097e+02,.4101420e+02,.2975816e+02,&
7275  & .1623812e+02,.3172488e+02,.4025111e+02,.4318326e+02,.3168296e+02/
7276 
7277  data absb(351:525,10) / &
7278  & .1031026e+02,.2379955e+02,.3077002e+02,.3371001e+02,.2381408e+02,&
7279  & .1143882e+02,.2566958e+02,.3315826e+02,.3621895e+02,.2574289e+02,&
7280  & .1273674e+02,.2762295e+02,.3556863e+02,.3865824e+02,.2770335e+02,&
7281  & .1420938e+02,.2960954e+02,.3792581e+02,.4100632e+02,.2969115e+02,&
7282  & .1584019e+02,.3161041e+02,.4022388e+02,.4324073e+02,.3167330e+02,&
7283  & .9809660e+01,.2337401e+02,.3050021e+02,.3361805e+02,.2366649e+02,&
7284  & .1099292e+02,.2539109e+02,.3302281e+02,.3621280e+02,.2568000e+02,&
7285  & .1234898e+02,.2746966e+02,.3553468e+02,.3873037e+02,.2771661e+02,&
7286  & .1389015e+02,.2956157e+02,.3797616e+02,.4114283e+02,.2975703e+02,&
7287  & .1559986e+02,.3165438e+02,.4034450e+02,.4341423e+02,.3178583e+02,&
7288  & .9444252e+01,.2318083e+02,.3046927e+02,.3371915e+02,.2368071e+02,&
7289  & .1068902e+02,.2532385e+02,.3309721e+02,.3637816e+02,.2576903e+02,&
7290  & .1210865e+02,.2749920e+02,.3567757e+02,.3895396e+02,.2786288e+02,&
7291  & .1372527e+02,.2967804e+02,.3817975e+02,.4140126e+02,.2994365e+02,&
7292  & .1551148e+02,.3183065e+02,.4058662e+02,.4368854e+02,.3200806e+02,&
7293  & .9197704e+01,.2317475e+02,.3061830e+02,.3396112e+02,.2382472e+02,&
7294  & .1050749e+02,.2541270e+02,.3332073e+02,.3667202e+02,.2597119e+02,&
7295  & .1200173e+02,.2766533e+02,.3594813e+02,.3928170e+02,.2810254e+02,&
7296  & .1369150e+02,.2990848e+02,.3849061e+02,.4174119e+02,.3021392e+02,&
7297  & .1554967e+02,.3210113e+02,.4091548e+02,.4403004e+02,.3230534e+02,&
7298  & .9070152e+01,.2333358e+02,.3092333e+02,.3432849e+02,.2408369e+02,&
7299  & .1044943e+02,.2564057e+02,.3366988e+02,.3707300e+02,.2627089e+02,&
7300  & .1201766e+02,.2795335e+02,.3632847e+02,.3969279e+02,.2842654e+02,&
7301  & .1377594e+02,.3023853e+02,.3888979e+02,.4215285e+02,.3056150e+02,&
7302  & .1570981e+02,.3246011e+02,.4132215e+02,.4443246e+02,.3266580e+02,&
7303  & .9050881e+01,.2361502e+02,.3134148e+02,.3479389e+02,.2443447e+02,&
7304  & .1049856e+02,.2597874e+02,.3411303e+02,.3755332e+02,.2664478e+02,&
7305  & .1213853e+02,.2833372e+02,.3679073e+02,.4016895e+02,.2881882e+02,&
7306  & .1396914e+02,.3064406e+02,.3935900e+02,.4261289e+02,.3096497e+02,&
7307  & .1597202e+02,.3287736e+02,.4178044e+02,.4487584e+02,.3307507e+02,&
7308  & .9121485e+01,.2399340e+02,.3184110e+02,.3533107e+02,.2484905e+02,&
7309  & .1063898e+02,.2639662e+02,.3462510e+02,.3808849e+02,.2707110e+02,&
7310  & .1235080e+02,.2877918e+02,.3730856e+02,.4068584e+02,.2925606e+02,&
7311  & .1425215e+02,.3109959e+02,.3987030e+02,.4310628e+02,.3140551e+02,&
7312  & .1631751e+02,.3333996e+02,.4227596e+02,.4534660e+02,.3351854e+02/
7313 
7314  data absb(526:700,10) / &
7315  & .9221530e+01,.2435543e+02,.3229891e+02,.3581316e+02,.2522887e+02,&
7316  & .1079853e+02,.2679042e+02,.3509314e+02,.3856585e+02,.2745675e+02,&
7317  & .1257368e+02,.2918513e+02,.3777390e+02,.4114200e+02,.2964790e+02,&
7318  & .1453244e+02,.3151030e+02,.4032236e+02,.4354185e+02,.3180140e+02,&
7319  & .1664739e+02,.3375272e+02,.4271105e+02,.4575694e+02,.3391150e+02,&
7320  & .9234921e+01,.2453098e+02,.3252381e+02,.3605734e+02,.2542131e+02,&
7321  & .1085339e+02,.2698432e+02,.3532561e+02,.3880579e+02,.2765412e+02,&
7322  & .1266775e+02,.2939222e+02,.3801034e+02,.4137794e+02,.2985073e+02,&
7323  & .1466294e+02,.3172547e+02,.4055737e+02,.4377010e+02,.3200723e+02,&
7324  & .1680944e+02,.3397153e+02,.4293979e+02,.4597565e+02,.3411921e+02,&
7325  & .9122231e+01,.2446628e+02,.3246758e+02,.3601819e+02,.2538766e+02,&
7326  & .1075904e+02,.2694105e+02,.3528642e+02,.3878018e+02,.2762932e+02,&
7327  & .1258935e+02,.2936114e+02,.3798364e+02,.4136006e+02,.2983193e+02,&
7328  & .1459875e+02,.3170547e+02,.4053737e+02,.4375979e+02,.3199342e+02,&
7329  & .1675964e+02,.3396515e+02,.4293329e+02,.4597404e+02,.3411195e+02,&
7330  & .8803526e+01,.2404740e+02,.3199538e+02,.3556585e+02,.2502152e+02,&
7331  & .1042899e+02,.2653898e+02,.3484146e+02,.3835958e+02,.2727937e+02,&
7332  & .1224422e+02,.2898189e+02,.3757031e+02,.4097542e+02,.2949406e+02,&
7333  & .1424127e+02,.3135230e+02,.4015581e+02,.4341193e+02,.3166878e+02,&
7334  & .1639118e+02,.3362956e+02,.4258239e+02,.4565679e+02,.3379358e+02,&
7335  & .8495800e+01,.2362002e+02,.3150999e+02,.3509681e+02,.2464648e+02,&
7336  & .1010745e+02,.2612626e+02,.3438400e+02,.3792281e+02,.2691822e+02,&
7337  & .1190476e+02,.2858932e+02,.3713908e+02,.4057067e+02,.2914314e+02,&
7338  & .1388319e+02,.3098024e+02,.3975563e+02,.4304137e+02,.3132741e+02,&
7339  & .1601937e+02,.3327847e+02,.4221299e+02,.4532208e+02,.3346428e+02,&
7340  & .8209035e+01,.2320772e+02,.3103726e+02,.3463708e+02,.2427972e+02,&
7341  & .9807919e+01,.2572338e+02,.3393496e+02,.3749067e+02,.2656635e+02,&
7342  & .1158465e+02,.2820687e+02,.3671655e+02,.4017333e+02,.2879950e+02,&
7343  & .1354242e+02,.3061364e+02,.3936092e+02,.4267581e+02,.3099415e+02,&
7344  & .1566241e+02,.3293272e+02,.4184735e+02,.4498926e+02,.3314168e+02,&
7345  & .7784536e+01,.2254512e+02,.3026965e+02,.3388321e+02,.2367971e+02,&
7346  & .9354919e+01,.2507029e+02,.3319736e+02,.3677442e+02,.2598726e+02,&
7347  & .1108920e+02,.2757544e+02,.3601743e+02,.3950998e+02,.2823588e+02,&
7348  & .1300857e+02,.3000630e+02,.3870211e+02,.4206119e+02,.3044264e+02,&
7349  & .1509523e+02,.3235435e+02,.4123355e+02,.4442692e+02,.3260463e+02/
7350 
7351  data absb(701:875,10) / &
7352  & .7359863e+01,.2185814e+02,.2946589e+02,.3308961e+02,.2305342e+02,&
7353  & .8903128e+01,.2438939e+02,.3241822e+02,.3601163e+02,.2537863e+02,&
7354  & .1058971e+02,.2690897e+02,.3527629e+02,.3879993e+02,.2764129e+02,&
7355  & .1246583e+02,.2936503e+02,.3800506e+02,.4140154e+02,.2986144e+02,&
7356  & .1451513e+02,.3174374e+02,.4058041e+02,.4382112e+02,.3203789e+02,&
7357  & .6956382e+01,.2118043e+02,.2866324e+02,.3229115e+02,.2242833e+02,&
7358  & .8461548e+01,.2370968e+02,.3163712e+02,.3524703e+02,.2476677e+02,&
7359  & .1010795e+02,.2624061e+02,.3452870e+02,.3808268e+02,.2704785e+02,&
7360  & .1193898e+02,.2872275e+02,.3729875e+02,.4073465e+02,.2928035e+02,&
7361  & .1394781e+02,.3112498e+02,.3991541e+02,.4320304e+02,.3147062e+02,&
7362  & .6487545e+01,.2036428e+02,.2769057e+02,.3132006e+02,.2167153e+02,&
7363  & .7946649e+01,.2289019e+02,.3068619e+02,.3430975e+02,.2402051e+02,&
7364  & .9549264e+01,.2542789e+02,.3361405e+02,.3719415e+02,.2632349e+02,&
7365  & .1132268e+02,.2793770e+02,.3642692e+02,.3990874e+02,.2857172e+02,&
7366  & .1327981e+02,.3036678e+02,.3909744e+02,.4243907e+02,.3077710e+02,&
7367  & .6005571e+01,.1948807e+02,.2664131e+02,.3026331e+02,.2085818e+02,&
7368  & .7413456e+01,.2201077e+02,.2965560e+02,.3329082e+02,.2321444e+02,&
7369  & .8970318e+01,.2455040e+02,.3261620e+02,.3621899e+02,.2554069e+02,&
7370  & .1068617e+02,.2708083e+02,.3547019e+02,.3899468e+02,.2780284e+02,&
7371  & .1258054e+02,.2953954e+02,.3819719e+02,.4159109e+02,.3002584e+02,&
7372  & .5548432e+01,.1861826e+02,.2559278e+02,.2919402e+02,.2004363e+02,&
7373  & .6900092e+01,.2113681e+02,.2862219e+02,.3226196e+02,.2240744e+02,&
7374  & .8410066e+01,.2367383e+02,.3160742e+02,.3522918e+02,.2474973e+02,&
7375  & .1007047e+02,.2621742e+02,.3450362e+02,.3806349e+02,.2703382e+02,&
7376  & .1190409e+02,.2870722e+02,.3728217e+02,.4072426e+02,.2927143e+02,&
7377  & .5089620e+01,.1770102e+02,.2447913e+02,.2805560e+02,.1917787e+02,&
7378  & .6378669e+01,.2021146e+02,.2751878e+02,.3115717e+02,.2154621e+02,&
7379  & .7837964e+01,.2274529e+02,.3052386e+02,.3415832e+02,.2390212e+02,&
7380  & .9443196e+01,.2529235e+02,.3346307e+02,.3705110e+02,.2620879e+02,&
7381  & .1120944e+02,.2781188e+02,.3628879e+02,.3978127e+02,.2846286e+02,&
7382  & .4610896e+01,.1669349e+02,.2324369e+02,.2677647e+02,.1820576e+02,&
7383  & .5824606e+01,.1918277e+02,.2628270e+02,.2990605e+02,.2058572e+02,&
7384  & .7220182e+01,.2171074e+02,.2930791e+02,.3295106e+02,.2294896e+02,&
7385  & .8769986e+01,.2425684e+02,.3228052e+02,.3589409e+02,.2528213e+02,&
7386  & .1046384e+02,.2679654e+02,.3515901e+02,.3869877e+02,.2755405e+02/
7387 
7388  data absb(876:1050,10) / &
7389  & .4168305e+01,.1570562e+02,.2201962e+02,.2548007e+02,.1723083e+02,&
7390  & .5302277e+01,.1816020e+02,.2504538e+02,.2864169e+02,.1962267e+02,&
7391  & .6628824e+01,.2068096e+02,.2808483e+02,.3173022e+02,.2199260e+02,&
7392  & .8120143e+01,.2322187e+02,.3108353e+02,.3471491e+02,.2434405e+02,&
7393  & .9751318e+01,.2577042e+02,.3400727e+02,.3758542e+02,.2664002e+02,&
7394  & .3760997e+01,.1474503e+02,.2081030e+02,.2417490e+02,.1625573e+02,&
7395  & .4812522e+01,.1715003e+02,.2381102e+02,.2737145e+02,.1865721e+02,&
7396  & .6065394e+01,.1965574e+02,.2685618e+02,.3049364e+02,.2103561e+02,&
7397  & .7493897e+01,.2218813e+02,.2987458e+02,.3351954e+02,.2339558e+02,&
7398  & .9069722e+01,.2473888e+02,.3283783e+02,.3644425e+02,.2572001e+02,&
7399  & .3407008e+01,.1387327e+02,.1968672e+02,.2295130e+02,.1534229e+02,&
7400  & .4384559e+01,.1621715e+02,.2266121e+02,.2616930e+02,.1774766e+02,&
7401  & .5564493e+01,.1869821e+02,.2569991e+02,.2931565e+02,.2013618e+02,&
7402  & .6930044e+01,.2122343e+02,.2873366e+02,.3238405e+02,.2250272e+02,&
7403  & .8451961e+01,.2376957e+02,.3172435e+02,.3535077e+02,.2484828e+02,&
7404  & .3086932e+01,.1305420e+02,.1860890e+02,.2176702e+02,.1445866e+02,&
7405  & .3998495e+01,.1533239e+02,.2155796e+02,.2498933e+02,.1686364e+02,&
7406  & .5105023e+01,.1777463e+02,.2457856e+02,.2816630e+02,.1926213e+02,&
7407  & .6405638e+01,.2029281e+02,.2762298e+02,.3127387e+02,.2163511e+02,&
7408  & .7876512e+01,.2283418e+02,.3063295e+02,.3427110e+02,.2399217e+02,&
7409  & .2791590e+01,.1226154e+02,.1753948e+02,.2058143e+02,.1357966e+02,&
7410  & .3641206e+01,.1447202e+02,.2046653e+02,.2380567e+02,.1597990e+02,&
7411  & .4672585e+01,.1686375e+02,.2346271e+02,.2701461e+02,.1838557e+02,&
7412  & .5905294e+01,.1936440e+02,.2650933e+02,.3014596e+02,.2076820e+02,&
7413  & .7318334e+01,.2189961e+02,.2953666e+02,.3318455e+02,.2313340e+02,&
7414  & .2518774e+01,.1149827e+02,.1648112e+02,.1939248e+02,.1269754e+02,&
7415  & .3307338e+01,.1363661e+02,.1938353e+02,.2262314e+02,.1509794e+02,&
7416  & .4268652e+01,.1596732e+02,.2235360e+02,.2584534e+02,.1750525e+02,&
7417  & .5428748e+01,.1843909e+02,.2539018e+02,.2900296e+02,.1989679e+02,&
7418  & .6779426e+01,.2096706e+02,.2843121e+02,.3208295e+02,.2226801e+02,&
7419  & .2289464e+01,.1082893e+02,.1552622e+02,.1830474e+02,.1189008e+02,&
7420  & .3020620e+01,.1289378e+02,.1840077e+02,.2154161e+02,.1429147e+02,&
7421  & .3922374e+01,.1516305e+02,.2134768e+02,.2476500e+02,.1669686e+02,&
7422  & .5015015e+01,.1759724e+02,.2436604e+02,.2795197e+02,.1909808e+02,&
7423  & .6305470e+01,.2011705e+02,.2741465e+02,.3106251e+02,.2147332e+02/
7424 
7425  data absb(1051:1175,10) / &
7426  & .2089789e+01,.1021602e+02,.1463344e+02,.1726758e+02,.1112336e+02,&
7427  & .2767245e+01,.1220573e+02,.1746541e+02,.2050030e+02,.1351996e+02,&
7428  & .3612314e+01,.1441119e+02,.2039079e+02,.2372523e+02,.1592114e+02,&
7429  & .4639139e+01,.1679873e+02,.2338586e+02,.2693757e+02,.1832633e+02,&
7430  & .5869463e+01,.1930265e+02,.2643475e+02,.3007091e+02,.2071169e+02,&
7431  & .1902771e+01,.9617449e+01,.1375735e+02,.1623578e+02,.1036934e+02,&
7432  & .2529334e+01,.1153875e+02,.1653836e+02,.1945888e+02,.1274803e+02,&
7433  & .3320906e+01,.1368161e+02,.1944359e+02,.2269151e+02,.1514962e+02,&
7434  & .4286297e+01,.1601548e+02,.2241651e+02,.2591604e+02,.1755694e+02,&
7435  & .5452967e+01,.1849373e+02,.2545654e+02,.2907074e+02,.1994983e+02,&
7436  & .1725440e+01,.9031381e+01,.1289432e+02,.1520765e+02,.9626329e+01,&
7437  & .2309750e+01,.1089872e+02,.1562812e+02,.1842270e+02,.1197707e+02,&
7438  & .3046266e+01,.1297125e+02,.1850543e+02,.2165803e+02,.1437884e+02,&
7439  & .3954352e+01,.1524573e+02,.2145498e+02,.2488428e+02,.1678481e+02,&
7440  & .5056606e+01,.1768754e+02,.2447686e+02,.2806579e+02,.1918626e+02,&
7441  & .1564823e+01,.8489334e+01,.1209006e+02,.1424280e+02,.8931475e+01,&
7442  & .2117660e+01,.1031347e+02,.1477913e+02,.1744092e+02,.1125085e+02,&
7443  & .2802981e+01,.1231464e+02,.1761845e+02,.2067534e+02,.1364984e+02,&
7444  & .3659632e+01,.1453293e+02,.2055035e+02,.2390260e+02,.1605194e+02,&
7445  & .4698820e+01,.1693318e+02,.2355149e+02,.2710920e+02,.1845815e+02,&
7446  & .1502352e+01,.8276308e+01,.1177375e+02,.1385967e+02,.8655479e+01,&
7447  & .2044007e+01,.1008294e+02,.1444326e+02,.1704897e+02,.1096188e+02,&
7448  & .2709296e+01,.1205664e+02,.1726418e+02,.2027874e+02,.1335631e+02,&
7449  & .3545610e+01,.1425196e+02,.2018817e+02,.2350704e+02,.1575791e+02,&
7450  & .4560655e+01,.1663292e+02,.2318230e+02,.2672443e+02,.1816710e+02/
7451 
7452  data absb( 1:175,11) / &
7453  & .2056300e+03,.1639500e+03,.1513100e+03,.1392800e+03,.1733600e+03,&
7454  & .2058300e+03,.1634600e+03,.1510200e+03,.1386700e+03,.1720900e+03,&
7455  & .2057900e+03,.1628200e+03,.1505100e+03,.1380300e+03,.1711900e+03,&
7456  & .2053800e+03,.1619800e+03,.1500500e+03,.1374600e+03,.1706200e+03,&
7457  & .2047100e+03,.1610000e+03,.1494200e+03,.1368500e+03,.1699800e+03,&
7458  & .2138700e+03,.1748600e+03,.1641000e+03,.1489600e+03,.1792600e+03,&
7459  & .2139800e+03,.1740700e+03,.1635400e+03,.1484900e+03,.1787200e+03,&
7460  & .2137100e+03,.1730600e+03,.1630000e+03,.1479600e+03,.1783800e+03,&
7461  & .2132000e+03,.1719300e+03,.1623800e+03,.1474800e+03,.1780700e+03,&
7462  & .2123900e+03,.1706200e+03,.1615800e+03,.1466100e+03,.1772600e+03,&
7463  & .2186800e+03,.1839200e+03,.1759700e+03,.1587700e+03,.1840900e+03,&
7464  & .2186100e+03,.1828500e+03,.1753300e+03,.1584500e+03,.1841300e+03,&
7465  & .2183800e+03,.1816800e+03,.1746900e+03,.1581400e+03,.1842300e+03,&
7466  & .2178500e+03,.1802800e+03,.1739200e+03,.1574700e+03,.1839100e+03,&
7467  & .2171400e+03,.1788100e+03,.1728100e+03,.1564400e+03,.1833700e+03,&
7468  & .2198900e+03,.1909000e+03,.1866600e+03,.1682300e+03,.1871700e+03,&
7469  & .2200000e+03,.1898900e+03,.1860400e+03,.1682200e+03,.1879700e+03,&
7470  & .2198200e+03,.1885600e+03,.1853300e+03,.1679400e+03,.1885100e+03,&
7471  & .2195400e+03,.1870900e+03,.1843200e+03,.1671500e+03,.1885400e+03,&
7472  & .2189800e+03,.1854200e+03,.1830300e+03,.1660000e+03,.1883900e+03,&
7473  & .2179300e+03,.1959600e+03,.1960300e+03,.1770300e+03,.1885700e+03,&
7474  & .2182100e+03,.1949200e+03,.1954800e+03,.1772500e+03,.1902300e+03,&
7475  & .2185000e+03,.1936900e+03,.1946200e+03,.1770100e+03,.1913300e+03,&
7476  & .2185500e+03,.1922100e+03,.1934300e+03,.1761600e+03,.1919400e+03,&
7477  & .2183900e+03,.1905700e+03,.1920600e+03,.1749000e+03,.1922500e+03,&
7478  & .2131100e+03,.1993500e+03,.2038500e+03,.1849200e+03,.1886400e+03,&
7479  & .2139900e+03,.1983800e+03,.2033900e+03,.1853600e+03,.1911700e+03,&
7480  & .2147700e+03,.1972700e+03,.2025100e+03,.1851700e+03,.1929600e+03,&
7481  & .2153700e+03,.1960200e+03,.2013100e+03,.1843300e+03,.1942600e+03,&
7482  & .2159400e+03,.1946000e+03,.1998900e+03,.1829900e+03,.1951100e+03,&
7483  & .2062800e+03,.2013100e+03,.2101800e+03,.1918100e+03,.1878000e+03,&
7484  & .2078600e+03,.2006100e+03,.2098500e+03,.1924900e+03,.1911700e+03,&
7485  & .2093900e+03,.1997800e+03,.2091500e+03,.1924500e+03,.1937900e+03,&
7486  & .2107800e+03,.1987600e+03,.2080800e+03,.1915900e+03,.1957800e+03,&
7487  & .2119600e+03,.1976200e+03,.2066600e+03,.1902000e+03,.1972600e+03/
7488 
7489  data absb(176:350,11) / &
7490  & .1980600e+03,.2021500e+03,.2152500e+03,.1978100e+03,.1864600e+03,&
7491  & .2005400e+03,.2018000e+03,.2152700e+03,.1987400e+03,.1907200e+03,&
7492  & .2029800e+03,.2013200e+03,.2147800e+03,.1987700e+03,.1941300e+03,&
7493  & .2052200e+03,.2007000e+03,.2138400e+03,.1979300e+03,.1968100e+03,&
7494  & .2072500e+03,.1997500e+03,.2124900e+03,.1965900e+03,.1989900e+03,&
7495  & .1891900e+03,.2021700e+03,.2194200e+03,.2029100e+03,.1849900e+03,&
7496  & .1926800e+03,.2023900e+03,.2197400e+03,.2041500e+03,.1901200e+03,&
7497  & .1960900e+03,.2023100e+03,.2194700e+03,.2042500e+03,.1943200e+03,&
7498  & .1992600e+03,.2020100e+03,.2186600e+03,.2034600e+03,.1977000e+03,&
7499  & .2022400e+03,.2013600e+03,.2174200e+03,.2021200e+03,.2004400e+03,&
7500  & .1806400e+03,.2018200e+03,.2227600e+03,.2074000e+03,.1840900e+03,&
7501  & .1851300e+03,.2025300e+03,.2234100e+03,.2087600e+03,.1898800e+03,&
7502  & .1895100e+03,.2028700e+03,.2232900e+03,.2089000e+03,.1947400e+03,&
7503  & .1936800e+03,.2028300e+03,.2225900e+03,.2081200e+03,.1986900e+03,&
7504  & .1975200e+03,.2024800e+03,.2214300e+03,.2067600e+03,.2018500e+03,&
7505  & .1726100e+03,.2012900e+03,.2256000e+03,.2112600e+03,.1836000e+03,&
7506  & .1781300e+03,.2025500e+03,.2264500e+03,.2127700e+03,.1899300e+03,&
7507  & .1834700e+03,.2032200e+03,.2264900e+03,.2128800e+03,.1953400e+03,&
7508  & .1885800e+03,.2034500e+03,.2259300e+03,.2121100e+03,.1997200e+03,&
7509  & .1932500e+03,.2033000e+03,.2247000e+03,.2106600e+03,.2031400e+03,&
7510  & .1655000e+03,.2007900e+03,.2279700e+03,.2145900e+03,.1835200e+03,&
7511  & .1719900e+03,.2024700e+03,.2289900e+03,.2161400e+03,.1903100e+03,&
7512  & .1782900e+03,.2034900e+03,.2292000e+03,.2162100e+03,.1961000e+03,&
7513  & .1842400e+03,.2039500e+03,.2286500e+03,.2154400e+03,.2008000e+03,&
7514  & .1896600e+03,.2039300e+03,.2273500e+03,.2138800e+03,.2043700e+03,&
7515  & .1594900e+03,.2004800e+03,.2299900e+03,.2175800e+03,.1839500e+03,&
7516  & .1669800e+03,.2024700e+03,.2311900e+03,.2190300e+03,.1910800e+03,&
7517  & .1741100e+03,.2037000e+03,.2314400e+03,.2190400e+03,.1971100e+03,&
7518  & .1808800e+03,.2043500e+03,.2308200e+03,.2181700e+03,.2019200e+03,&
7519  & .1871000e+03,.2045000e+03,.2295000e+03,.2164800e+03,.2055900e+03,&
7520  & .1547900e+03,.2003800e+03,.2318100e+03,.2201600e+03,.1849000e+03,&
7521  & .1632200e+03,.2025800e+03,.2330700e+03,.2214500e+03,.1922200e+03,&
7522  & .1711900e+03,.2040100e+03,.2332600e+03,.2214000e+03,.1983100e+03,&
7523  & .1786600e+03,.2047800e+03,.2325900e+03,.2203800e+03,.2031500e+03,&
7524  & .1855300e+03,.2049800e+03,.2312200e+03,.2185400e+03,.2068500e+03/
7525 
7526  data absb(351:525,11) / &
7527  & .1514300e+03,.2004900e+03,.2334400e+03,.2224100e+03,.1861500e+03,&
7528  & .1607000e+03,.2027900e+03,.2346500e+03,.2235200e+03,.1935300e+03,&
7529  & .1693200e+03,.2043000e+03,.2347300e+03,.2233100e+03,.1996000e+03,&
7530  & .1773700e+03,.2051800e+03,.2340200e+03,.2221200e+03,.2044000e+03,&
7531  & .1847200e+03,.2053700e+03,.2325700e+03,.2201500e+03,.2080700e+03,&
7532  & .1493500e+03,.2007800e+03,.2348700e+03,.2243600e+03,.1876200e+03,&
7533  & .1592600e+03,.2031200e+03,.2359700e+03,.2252300e+03,.1949100e+03,&
7534  & .1683900e+03,.2046700e+03,.2359700e+03,.2248400e+03,.2009200e+03,&
7535  & .1768700e+03,.2055400e+03,.2351600e+03,.2234500e+03,.2056200e+03,&
7536  & .1845300e+03,.2057000e+03,.2335700e+03,.2213500e+03,.2092100e+03,&
7537  & .1484400e+03,.2011700e+03,.2361400e+03,.2260100e+03,.1892700e+03,&
7538  & .1587800e+03,.2035000e+03,.2370700e+03,.2266400e+03,.1964200e+03,&
7539  & .1682900e+03,.2050500e+03,.2369600e+03,.2260100e+03,.2022900e+03,&
7540  & .1770200e+03,.2058500e+03,.2360200e+03,.2244500e+03,.2068500e+03,&
7541  & .1848700e+03,.2059900e+03,.2343000e+03,.2222000e+03,.2103100e+03,&
7542  & .1484100e+03,.2016500e+03,.2372400e+03,.2274200e+03,.1910100e+03,&
7543  & .1590300e+03,.2039500e+03,.2379800e+03,.2277400e+03,.1979600e+03,&
7544  & .1687800e+03,.2054300e+03,.2377400e+03,.2268900e+03,.2036700e+03,&
7545  & .1776500e+03,.2061400e+03,.2366200e+03,.2251500e+03,.2080400e+03,&
7546  & .1855600e+03,.2062600e+03,.2347800e+03,.2227400e+03,.2113300e+03,&
7547  & .1491000e+03,.2021900e+03,.2381600e+03,.2285700e+03,.1928000e+03,&
7548  & .1598700e+03,.2044200e+03,.2387300e+03,.2286000e+03,.1995500e+03,&
7549  & .1697400e+03,.2057800e+03,.2383000e+03,.2275100e+03,.2050300e+03,&
7550  & .1787000e+03,.2064000e+03,.2370300e+03,.2255900e+03,.2091700e+03,&
7551  & .1865600e+03,.2064700e+03,.2350400e+03,.2230300e+03,.2123200e+03,&
7552  & .1503100e+03,.2027900e+03,.2389700e+03,.2294900e+03,.1945900e+03,&
7553  & .1611900e+03,.2048900e+03,.2393100e+03,.2292200e+03,.2011300e+03,&
7554  & .1711000e+03,.2061000e+03,.2386900e+03,.2279100e+03,.2063400e+03,&
7555  & .1800200e+03,.2066200e+03,.2372300e+03,.2258200e+03,.2102900e+03,&
7556  & .1877700e+03,.2065900e+03,.2351000e+03,.2230800e+03,.2132200e+03,&
7557  & .1519700e+03,.2034100e+03,.2396500e+03,.2301900e+03,.1963900e+03,&
7558  & .1628500e+03,.2053400e+03,.2397600e+03,.2296400e+03,.2026700e+03,&
7559  & .1727000e+03,.2063800e+03,.2389300e+03,.2281100e+03,.2075800e+03,&
7560  & .1815100e+03,.2068000e+03,.2372700e+03,.2258400e+03,.2113200e+03,&
7561  & .1891200e+03,.2066500e+03,.2350000e+03,.2229600e+03,.2140600e+03/
7562 
7563  data absb(526:700,11) / &
7564  & .1535200e+03,.2039100e+03,.2401400e+03,.2306900e+03,.1979000e+03,&
7565  & .1643700e+03,.2056600e+03,.2400600e+03,.2299200e+03,.2039600e+03,&
7566  & .1741600e+03,.2066200e+03,.2390700e+03,.2282300e+03,.2086300e+03,&
7567  & .1828500e+03,.2069500e+03,.2372800e+03,.2258000e+03,.2121800e+03,&
7568  & .1903300e+03,.2066700e+03,.2348700e+03,.2228000e+03,.2147400e+03,&
7569  & .1542100e+03,.2041800e+03,.2405200e+03,.2311000e+03,.1987600e+03,&
7570  & .1650700e+03,.2058600e+03,.2403300e+03,.2302000e+03,.2046800e+03,&
7571  & .1748600e+03,.2067700e+03,.2392400e+03,.2284100e+03,.2092300e+03,&
7572  & .1835000e+03,.2070500e+03,.2373700e+03,.2258900e+03,.2126900e+03,&
7573  & .1909400e+03,.2066900e+03,.2348900e+03,.2228100e+03,.2151400e+03,&
7574  & .1538100e+03,.2042400e+03,.2408000e+03,.2314500e+03,.1988800e+03,&
7575  & .1647800e+03,.2059200e+03,.2406000e+03,.2305500e+03,.2048400e+03,&
7576  & .1746400e+03,.2068400e+03,.2395000e+03,.2287400e+03,.2093800e+03,&
7577  & .1833600e+03,.2071500e+03,.2376200e+03,.2261800e+03,.2128400e+03,&
7578  & .1908600e+03,.2067800e+03,.2351400e+03,.2231100e+03,.2153200e+03,&
7579  & .1517700e+03,.2039400e+03,.2409600e+03,.2317800e+03,.1980200e+03,&
7580  & .1629800e+03,.2057800e+03,.2409100e+03,.2310200e+03,.2041600e+03,&
7581  & .1730700e+03,.2068100e+03,.2399400e+03,.2293400e+03,.2089300e+03,&
7582  & .1820400e+03,.2072100e+03,.2381800e+03,.2268800e+03,.2125500e+03,&
7583  & .1897300e+03,.2069500e+03,.2357300e+03,.2238300e+03,.2151600e+03,&
7584  & .1496800e+03,.2035900e+03,.2410400e+03,.2320200e+03,.1970300e+03,&
7585  & .1611300e+03,.2056000e+03,.2411600e+03,.2314300e+03,.2034100e+03,&
7586  & .1714400e+03,.2067400e+03,.2403300e+03,.2298800e+03,.2083800e+03,&
7587  & .1806300e+03,.2072400e+03,.2386600e+03,.2275200e+03,.2121600e+03,&
7588  & .1885500e+03,.2071000e+03,.2363200e+03,.2245300e+03,.2149300e+03,&
7589  & .1476400e+03,.2032200e+03,.2410600e+03,.2322000e+03,.1960400e+03,&
7590  & .1593200e+03,.2054000e+03,.2413700e+03,.2318000e+03,.2026200e+03,&
7591  & .1698400e+03,.2066500e+03,.2406500e+03,.2303600e+03,.2078100e+03,&
7592  & .1792300e+03,.2072500e+03,.2391000e+03,.2281000e+03,.2117500e+03,&
7593  & .1873700e+03,.2072200e+03,.2368400e+03,.2251700e+03,.2146700e+03,&
7594  & .1443800e+03,.2025400e+03,.2409200e+03,.2322500e+03,.1942500e+03,&
7595  & .1563300e+03,.2049800e+03,.2415200e+03,.2321700e+03,.2011500e+03,&
7596  & .1671800e+03,.2064200e+03,.2410500e+03,.2309600e+03,.2067200e+03,&
7597  & .1769000e+03,.2072000e+03,.2396900e+03,.2288700e+03,.2109300e+03,&
7598  & .1853900e+03,.2073300e+03,.2375800e+03,.2260900e+03,.2141100e+03/
7599 
7600  data absb(701:875,11) / &
7601  & .1409300e+03,.2017000e+03,.2406200e+03,.2321400e+03,.1922600e+03,&
7602  & .1530900e+03,.2044100e+03,.2415500e+03,.2324300e+03,.1995100e+03,&
7603  & .1643400e+03,.2061300e+03,.2413600e+03,.2314900e+03,.2054500e+03,&
7604  & .1743900e+03,.2070900e+03,.2402200e+03,.2296300e+03,.2100000e+03,&
7605  & .1832500e+03,.2073900e+03,.2382900e+03,.2270000e+03,.2134400e+03,&
7606  & .1374200e+03,.2007200e+03,.2401800e+03,.2318800e+03,.1901700e+03,&
7607  & .1498700e+03,.2038100e+03,.2415100e+03,.2326000e+03,.1977800e+03,&
7608  & .1614400e+03,.2058000e+03,.2415900e+03,.2319400e+03,.2040800e+03,&
7609  & .1718200e+03,.2069300e+03,.2406800e+03,.2303000e+03,.2089700e+03,&
7610  & .1810100e+03,.2073900e+03,.2389400e+03,.2278500e+03,.2126900e+03,&
7611  & .1331600e+03,.1994600e+03,.2395200e+03,.2313400e+03,.1874600e+03,&
7612  & .1459000e+03,.2029900e+03,.2413100e+03,.2326500e+03,.1955500e+03,&
7613  & .1578200e+03,.2053100e+03,.2417600e+03,.2323700e+03,.2022800e+03,&
7614  & .1686000e+03,.2066600e+03,.2411300e+03,.2309900e+03,.2076100e+03,&
7615  & .1781800e+03,.2073300e+03,.2396400e+03,.2287800e+03,.2116600e+03,&
7616  & .1285100e+03,.1979300e+03,.2386000e+03,.2305100e+03,.1844000e+03,&
7617  & .1415600e+03,.2019500e+03,.2409200e+03,.2324900e+03,.1929800e+03,&
7618  & .1538100e+03,.2046800e+03,.2418200e+03,.2326800e+03,.2001500e+03,&
7619  & .1649400e+03,.2062500e+03,.2414800e+03,.2316300e+03,.2059700e+03,&
7620  & .1749900e+03,.2071900e+03,.2402900e+03,.2296900e+03,.2104300e+03,&
7621  & .1237700e+03,.1962200e+03,.2374500e+03,.2293800e+03,.1811400e+03,&
7622  & .1371300e+03,.2007400e+03,.2403500e+03,.2321000e+03,.1902400e+03,&
7623  & .1496900e+03,.2038900e+03,.2417100e+03,.2328300e+03,.1978700e+03,&
7624  & .1612200e+03,.2058000e+03,.2417200e+03,.2321500e+03,.2041700e+03,&
7625  & .1716900e+03,.2069700e+03,.2408500e+03,.2305100e+03,.2090700e+03,&
7626  & .1187100e+03,.1941800e+03,.2360000e+03,.2279000e+03,.1774700e+03,&
7627  & .1323100e+03,.1992900e+03,.2395400e+03,.2314300e+03,.1871200e+03,&
7628  & .1451400e+03,.2028800e+03,.2413800e+03,.2328000e+03,.1952600e+03,&
7629  & .1571100e+03,.2052300e+03,.2418700e+03,.2325700e+03,.2020700e+03,&
7630  & .1680200e+03,.2066400e+03,.2413200e+03,.2312600e+03,.2074900e+03,&
7631  & .1129500e+03,.1915900e+03,.2339800e+03,.2258800e+03,.1731300e+03,&
7632  & .1268300e+03,.1974100e+03,.2383500e+03,.2303100e+03,.1834200e+03,&
7633  & .1399900e+03,.2015900e+03,.2408500e+03,.2325300e+03,.1921700e+03,&
7634  & .1523400e+03,.2044200e+03,.2418600e+03,.2328600e+03,.1994900e+03,&
7635  & .1637300e+03,.2061800e+03,.2416900e+03,.2319400e+03,.2054900e+03/
7636 
7637  data absb(876:1050,11) / &
7638  & .1071200e+03,.1887100e+03,.2315900e+03,.2234700e+03,.1685000e+03,&
7639  & .1212400e+03,.1952900e+03,.2368700e+03,.2288200e+03,.1794600e+03,&
7640  & .1347300e+03,.2000700e+03,.2400500e+03,.2319100e+03,.1888300e+03,&
7641  & .1474200e+03,.2034200e+03,.2416400e+03,.2329400e+03,.1967000e+03,&
7642  & .1592800e+03,.2056200e+03,.2419200e+03,.2324700e+03,.2032500e+03,&
7643  & .1012000e+03,.1855000e+03,.2288000e+03,.2207100e+03,.1636300e+03,&
7644  & .1155600e+03,.1928500e+03,.2350400e+03,.2269700e+03,.1752400e+03,&
7645  & .1293200e+03,.1983200e+03,.2390100e+03,.2309700e+03,.1852400e+03,&
7646  & .1423800e+03,.2022600e+03,.2412000e+03,.2327800e+03,.1937000e+03,&
7647  & .1546000e+03,.2048800e+03,.2419900e+03,.2328300e+03,.2007800e+03,&
7648  & .9560300e+02,.1821600e+03,.2257600e+03,.2176800e+03,.1587800e+03,&
7649  & .1101500e+03,.1903100e+03,.2329800e+03,.2249000e+03,.1710500e+03,&
7650  & .1241500e+03,.1964600e+03,.2377500e+03,.2297500e+03,.1816600e+03,&
7651  & .1375200e+03,.2009400e+03,.2405800e+03,.2323600e+03,.1906900e+03,&
7652  & .1500700e+03,.2040300e+03,.2418700e+03,.2329900e+03,.1982600e+03,&
7653  & .9013700e+02,.1786800e+03,.2224000e+03,.2144200e+03,.1538400e+03,&
7654  & .1048400e+03,.1875700e+03,.2306600e+03,.2225800e+03,.1667700e+03,&
7655  & .1190700e+03,.1944200e+03,.2362800e+03,.2282400e+03,.1779600e+03,&
7656  & .1326900e+03,.1994800e+03,.2397600e+03,.2316700e+03,.1875600e+03,&
7657  & .1455200e+03,.2030200e+03,.2415400e+03,.2329600e+03,.1956500e+03,&
7658  & .8469000e+02,.1749600e+03,.2186400e+03,.2108000e+03,.1486200e+03,&
7659  & .9947100e+02,.1845300e+03,.2279800e+03,.2199200e+03,.1622500e+03,&
7660  & .1139100e+03,.1921300e+03,.2345100e+03,.2264400e+03,.1740600e+03,&
7661  & .1277700e+03,.1978100e+03,.2387200e+03,.2307000e+03,.1842400e+03,&
7662  & .1409100e+03,.2018900e+03,.2410700e+03,.2327300e+03,.1928600e+03,&
7663  & .7926200e+02,.1709500e+03,.2143600e+03,.2068100e+03,.1431700e+03,&
7664  & .9404700e+02,.1812600e+03,.2249400e+03,.2169000e+03,.1574800e+03,&
7665  & .1086500e+03,.1895800e+03,.2324100e+03,.2243400e+03,.1699400e+03,&
7666  & .1227400e+03,.1959500e+03,.2374200e+03,.2294100e+03,.1807000e+03,&
7667  & .1361800e+03,.2005600e+03,.2404000e+03,.2322400e+03,.1898800e+03,&
7668  & .7431200e+02,.1670100e+03,.2100000e+03,.2028300e+03,.1380100e+03,&
7669  & .8905900e+02,.1780200e+03,.2217700e+03,.2138100e+03,.1528900e+03,&
7670  & .1037900e+03,.1870100e+03,.2302100e+03,.2221400e+03,.1659500e+03,&
7671  & .1180800e+03,.1940300e+03,.2360200e+03,.2279700e+03,.1772800e+03,&
7672  & .1317400e+03,.1991800e+03,.2396100e+03,.2315500e+03,.1869700e+03/
7673 
7674  data absb(1051:1175,11) / &
7675  & .6961500e+02,.1629600e+03,.2054000e+03,.1986600e+03,.1328800e+03,&
7676  & .8427600e+02,.1746600e+03,.2183500e+03,.2105600e+03,.1482800e+03,&
7677  & .9906600e+02,.1843300e+03,.2278200e+03,.2197700e+03,.1619700e+03,&
7678  & .1135400e+03,.1919900e+03,.2344200e+03,.2263600e+03,.1738300e+03,&
7679  & .1274100e+03,.1977000e+03,.2386600e+03,.2306500e+03,.1840300e+03,&
7680  & .6494400e+02,.1587700e+03,.2004400e+03,.1942100e+03,.1276200e+03,&
7681  & .7952400e+02,.1711400e+03,.2146100e+03,.2070700e+03,.1435100e+03,&
7682  & .9432300e+02,.1814400e+03,.2251400e+03,.2171100e+03,.1577800e+03,&
7683  & .1089400e+03,.1897600e+03,.2325700e+03,.2245200e+03,.1702200e+03,&
7684  & .1230100e+03,.1960500e+03,.2375200e+03,.2295400e+03,.1809400e+03,&
7685  & .6035300e+02,.1543100e+03,.1951400e+03,.1894500e+03,.1222500e+03,&
7686  & .7481500e+02,.1674200e+03,.2104900e+03,.2032900e+03,.1386000e+03,&
7687  & .8956700e+02,.1783700e+03,.2221400e+03,.2141900e+03,.1534300e+03,&
7688  & .1043100e+03,.1873300e+03,.2305000e+03,.2224400e+03,.1664400e+03,&
7689  & .1185600e+03,.1942300e+03,.2361800e+03,.2281600e+03,.1776700e+03,&
7690  & .5609800e+02,.1499100e+03,.1898000e+03,.1846500e+03,.1170600e+03,&
7691  & .7037700e+02,.1636700e+03,.2062200e+03,.1994200e+03,.1337800e+03,&
7692  & .8504900e+02,.1752800e+03,.2190200e+03,.2111900e+03,.1491000e+03,&
7693  & .9985700e+02,.1848200e+03,.2282700e+03,.2202200e+03,.1626800e+03,&
7694  & .1142800e+03,.1923300e+03,.2347000e+03,.2266600e+03,.1744400e+03,&
7695  & .5441800e+02,.1480900e+03,.1875400e+03,.1826100e+03,.1149500e+03,&
7696  & .6859800e+02,.1621000e+03,.2044100e+03,.1977800e+03,.1318000e+03,&
7697  & .8324600e+02,.1739800e+03,.2176800e+03,.2099300e+03,.1473300e+03,&
7698  & .9805500e+02,.1837500e+03,.2273200e+03,.2192700e+03,.1611300e+03,&
7699  & .1125500e+03,.1915300e+03,.2340600e+03,.2260100e+03,.1731000e+03/
7700 
7701  data absb( 1:175,12) / &
7702  & .4338110e+03,.3258785e+03,.2765841e+03,.3551700e+03,.4738213e+03,&
7703  & .4358591e+03,.3274735e+03,.2732330e+03,.3477157e+03,.4639305e+03,&
7704  & .4367994e+03,.3282050e+03,.2698072e+03,.3403736e+03,.4541170e+03,&
7705  & .4367673e+03,.3281913e+03,.2662171e+03,.3330191e+03,.4442737e+03,&
7706  & .4356257e+03,.3273304e+03,.2624520e+03,.3260525e+03,.4349606e+03,&
7707  & .4965751e+03,.3730543e+03,.3165865e+03,.3940821e+03,.5257811e+03,&
7708  & .4977615e+03,.3739641e+03,.3123416e+03,.3853185e+03,.5140967e+03,&
7709  & .4978529e+03,.3740600e+03,.3078301e+03,.3766318e+03,.5024939e+03,&
7710  & .4965358e+03,.3731122e+03,.3030947e+03,.3681551e+03,.4911078e+03,&
7711  & .4942501e+03,.3714089e+03,.2982254e+03,.3606307e+03,.4809116e+03,&
7712  & .5631880e+03,.4233224e+03,.3594901e+03,.4335570e+03,.5784608e+03,&
7713  & .5634438e+03,.4233039e+03,.3539288e+03,.4233711e+03,.5648410e+03,&
7714  & .5619418e+03,.4221964e+03,.3480452e+03,.4132459e+03,.5512312e+03,&
7715  & .5592483e+03,.4202048e+03,.3418750e+03,.4039045e+03,.5386286e+03,&
7716  & .5551436e+03,.4171466e+03,.3356718e+03,.3953284e+03,.5268417e+03,&
7717  & .6327464e+03,.4759753e+03,.4043694e+03,.4738466e+03,.6318088e+03,&
7718  & .6309974e+03,.4742402e+03,.3971672e+03,.4618354e+03,.6156456e+03,&
7719  & .6278582e+03,.4716973e+03,.3895188e+03,.4502024e+03,.5999656e+03,&
7720  & .6230476e+03,.4681132e+03,.3817116e+03,.4394718e+03,.5854793e+03,&
7721  & .6168383e+03,.4634762e+03,.3737303e+03,.4293418e+03,.5716261e+03,&
7722  & .7031362e+03,.5296686e+03,.4502274e+03,.5144971e+03,.6844628e+03,&
7723  & .6994439e+03,.5260700e+03,.4409153e+03,.5003459e+03,.6654934e+03,&
7724  & .6938124e+03,.5214150e+03,.4313297e+03,.4869200e+03,.6474992e+03,&
7725  & .6865591e+03,.5157531e+03,.4215792e+03,.4743711e+03,.6306843e+03,&
7726  & .6778828e+03,.5092809e+03,.4115306e+03,.4623577e+03,.6144981e+03,&
7727  & .7731573e+03,.5833614e+03,.4960552e+03,.5546751e+03,.7351434e+03,&
7728  & .7667584e+03,.5774695e+03,.4843214e+03,.5381637e+03,.7133093e+03,&
7729  & .7584006e+03,.5703374e+03,.4724758e+03,.5225411e+03,.6927570e+03,&
7730  & .7484491e+03,.5623616e+03,.4604054e+03,.5079339e+03,.6733220e+03,&
7731  & .7367135e+03,.5534249e+03,.4480895e+03,.4939401e+03,.6546934e+03,&
7732  & .8409349e+03,.6358707e+03,.5406929e+03,.5933755e+03,.7826997e+03,&
7733  & .8314773e+03,.6270808e+03,.5263991e+03,.5744137e+03,.7580256e+03,&
7734  & .8200103e+03,.6173497e+03,.5119158e+03,.5563407e+03,.7348534e+03,&
7735  & .8068534e+03,.6066626e+03,.4972618e+03,.5395008e+03,.7127611e+03,&
7736  & .7922845e+03,.5951793e+03,.4826400e+03,.5234260e+03,.6916658e+03/
7737 
7738  data absb(176:350,12) / &
7739  & .9048913e+03,.6856063e+03,.5829003e+03,.6293251e+03,.8259779e+03,&
7740  & .8920622e+03,.6739392e+03,.5656996e+03,.6076975e+03,.7986291e+03,&
7741  & .8773064e+03,.6613225e+03,.5484044e+03,.5872679e+03,.7727058e+03,&
7742  & .8609036e+03,.6477146e+03,.5311640e+03,.5681427e+03,.7481234e+03,&
7743  & .8431150e+03,.6336171e+03,.5140156e+03,.5498732e+03,.7244630e+03,&
7744  & .9636991e+03,.7316951e+03,.6218536e+03,.6620342e+03,.8647359e+03,&
7745  & .9475066e+03,.7168594e+03,.6016241e+03,.6376903e+03,.8346844e+03,&
7746  & .9293968e+03,.7013269e+03,.5815752e+03,.6149608e+03,.8061544e+03,&
7747  & .9098003e+03,.6849951e+03,.5617381e+03,.5935925e+03,.7790911e+03,&
7748  & .8886450e+03,.6681002e+03,.5420821e+03,.5733205e+03,.7530675e+03,&
7749  & .1015405e+04,.7723224e+03,.6554984e+03,.6893842e+03,.8965322e+03,&
7750  & .9957317e+03,.7543125e+03,.6322716e+03,.6625732e+03,.8641101e+03,&
7751  & .9742889e+03,.7357574e+03,.6095984e+03,.6377464e+03,.8332099e+03,&
7752  & .9513341e+03,.7167192e+03,.5872099e+03,.6143318e+03,.8038674e+03,&
7753  & .9271699e+03,.6973008e+03,.5653278e+03,.5922105e+03,.7757920e+03,&
7754  & .1060462e+04,.8075265e+03,.6843897e+03,.7124747e+03,.9230005e+03,&
7755  & .1037459e+04,.7864953e+03,.6584383e+03,.6833274e+03,.8883530e+03,&
7756  & .1012792e+04,.7651897e+03,.6331576e+03,.6565949e+03,.8552652e+03,&
7757  & .9866354e+03,.7436769e+03,.6084848e+03,.6313485e+03,.8239323e+03,&
7758  & .9595800e+03,.7219245e+03,.5846257e+03,.6076220e+03,.7941595e+03,&
7759  & .1098608e+04,.8371963e+03,.7083084e+03,.7311988e+03,.9441461e+03,&
7760  & .1072494e+04,.8134318e+03,.6798957e+03,.7001704e+03,.9076022e+03,&
7761  & .1044667e+04,.7896182e+03,.6523292e+03,.6716308e+03,.8727223e+03,&
7762  & .1015777e+04,.7658591e+03,.6257102e+03,.6448513e+03,.8396486e+03,&
7763  & .9862086e+03,.7420869e+03,.6001289e+03,.6196814e+03,.8085246e+03,&
7764  & .1130080e+04,.8613842e+03,.7273980e+03,.7455565e+03,.9603143e+03,&
7765  & .1100795e+04,.8351571e+03,.6967578e+03,.7129616e+03,.9220699e+03,&
7766  & .1070329e+04,.8092621e+03,.6672876e+03,.6829948e+03,.8856533e+03,&
7767  & .1038932e+04,.7834641e+03,.6390022e+03,.6549212e+03,.8512901e+03,&
7768  & .1007073e+04,.7578586e+03,.6119071e+03,.6285978e+03,.8190226e+03,&
7769  & .1154817e+04,.8801654e+03,.7415039e+03,.7556111e+03,.9714143e+03,&
7770  & .1122664e+04,.8518781e+03,.7090277e+03,.7218209e+03,.9318180e+03,&
7771  & .1089916e+04,.8241127e+03,.6780777e+03,.6907287e+03,.8943125e+03,&
7772  & .1056461e+04,.7965849e+03,.6484079e+03,.6616194e+03,.8589272e+03,&
7773  & .1022590e+04,.7695324e+03,.6201114e+03,.6344623e+03,.8258624e+03/
7774 
7775  data absb(351:525,12) / &
7776  & .1173826e+04,.8944232e+03,.7516288e+03,.7622958e+03,.9786164e+03,&
7777  & .1139213e+04,.8644602e+03,.7176974e+03,.7275753e+03,.9379617e+03,&
7778  & .1104499e+04,.8350215e+03,.6855100e+03,.6956267e+03,.8996608e+03,&
7779  & .1069228e+04,.8060327e+03,.6547517e+03,.6658171e+03,.8636644e+03,&
7780  & .1033679e+04,.7777792e+03,.6254959e+03,.6380265e+03,.8299256e+03,&
7781  & .1187612e+04,.9045966e+03,.7582339e+03,.7660705e+03,.9825372e+03,&
7782  & .1151104e+04,.8732077e+03,.7232198e+03,.7307711e+03,.9412613e+03,&
7783  & .1114812e+04,.8425100e+03,.6900707e+03,.6982050e+03,.9022920e+03,&
7784  & .1077922e+04,.8124079e+03,.6584780e+03,.6679077e+03,.8658499e+03,&
7785  & .1040927e+04,.7831204e+03,.6285352e+03,.6396645e+03,.8317461e+03,&
7786  & .1196774e+04,.9111403e+03,.7616196e+03,.7671722e+03,.9834539e+03,&
7787  & .1158870e+04,.8786102e+03,.7258194e+03,.7315277e+03,.9417190e+03,&
7788  & .1121068e+04,.8468836e+03,.6919844e+03,.6985953e+03,.9023781e+03,&
7789  & .1082920e+04,.8159387e+03,.6597813e+03,.6679809e+03,.8657188e+03,&
7790  & .1044783e+04,.7858772e+03,.6294298e+03,.6395237e+03,.8313784e+03,&
7791  & .1202260e+04,.9148111e+03,.7624882e+03,.7661952e+03,.9820032e+03,&
7792  & .1163158e+04,.8813333e+03,.7261740e+03,.7304250e+03,.9399991e+03,&
7793  & .1124180e+04,.8488606e+03,.6918461e+03,.6972877e+03,.9005744e+03,&
7794  & .1084954e+04,.8172592e+03,.6592986e+03,.6665878e+03,.8638719e+03,&
7795  & .1045950e+04,.7865464e+03,.6286194e+03,.6380504e+03,.8294321e+03,&
7796  & .1204456e+04,.9157270e+03,.7610818e+03,.7633951e+03,.9784831e+03,&
7797  & .1164367e+04,.8816366e+03,.7244819e+03,.7276259e+03,.9364715e+03,&
7798  & .1124324e+04,.8486129e+03,.6898842e+03,.6945597e+03,.8971270e+03,&
7799  & .1084324e+04,.8165570e+03,.6571659e+03,.6638568e+03,.8604884e+03,&
7800  & .1044694e+04,.7853529e+03,.6263972e+03,.6354464e+03,.8261775e+03,&
7801  & .1204084e+04,.9146184e+03,.7579482e+03,.7592747e+03,.9734683e+03,&
7802  & .1162995e+04,.8799770e+03,.7211610e+03,.7236223e+03,.9315108e+03,&
7803  & .1122270e+04,.8466270e+03,.6864778e+03,.6906781e+03,.8923413e+03,&
7804  & .1081628e+04,.8142783e+03,.6537748e+03,.6601480e+03,.8559108e+03,&
7805  & .1041535e+04,.7827690e+03,.6229791e+03,.6318521e+03,.8217287e+03,&
7806  & .1201431e+04,.9117433e+03,.7533822e+03,.7540042e+03,.9671155e+03,&
7807  & .1159753e+04,.8768687e+03,.7166394e+03,.7186372e+03,.9254210e+03,&
7808  & .1118355e+04,.8432577e+03,.6819604e+03,.6859134e+03,.8865933e+03,&
7809  & .1077205e+04,.8106161e+03,.6493437e+03,.6556209e+03,.8503919e+03,&
7810  & .1036866e+04,.7790721e+03,.6187296e+03,.6275874e+03,.8165163e+03/
7811 
7812  data absb(526:700,12) / &
7813  & .1198563e+04,.9088441e+03,.7491554e+03,.7492438e+03,.9613627e+03,&
7814  & .1156284e+04,.8737803e+03,.7124077e+03,.7140741e+03,.9199132e+03,&
7815  & .1114455e+04,.8399712e+03,.6778293e+03,.6816338e+03,.8814481e+03,&
7816  & .1073022e+04,.8072052e+03,.6453367e+03,.6515614e+03,.8454321e+03,&
7817  & .1032356e+04,.7755667e+03,.6148054e+03,.6237372e+03,.8118204e+03,&
7818  & .1198333e+04,.9083513e+03,.7477168e+03,.7473560e+03,.9590262e+03,&
7819  & .1155753e+04,.8731138e+03,.7109009e+03,.7122360e+03,.9176511e+03,&
7820  & .1113496e+04,.8390696e+03,.6762632e+03,.6798170e+03,.8792408e+03,&
7821  & .1071776e+04,.8061247e+03,.6437713e+03,.6498449e+03,.8432884e+03,&
7822  & .1030817e+04,.7743687e+03,.6132096e+03,.6220561e+03,.8097579e+03,&
7823  & .1201812e+04,.9109743e+03,.7497301e+03,.7489114e+03,.9607489e+03,&
7824  & .1158859e+04,.8754611e+03,.7126895e+03,.7135931e+03,.9191682e+03,&
7825  & .1116249e+04,.8411676e+03,.6778498e+03,.6810248e+03,.8806473e+03,&
7826  & .1074182e+04,.8079523e+03,.6451507e+03,.6509316e+03,.8445579e+03,&
7827  & .1033029e+04,.7760505e+03,.6144744e+03,.6230304e+03,.8108939e+03,&
7828  & .1211130e+04,.9186048e+03,.7571510e+03,.7557283e+03,.9686341e+03,&
7829  & .1167769e+04,.8825784e+03,.7195377e+03,.7197860e+03,.9264272e+03,&
7830  & .1124863e+04,.8479369e+03,.6841799e+03,.6866852e+03,.8873138e+03,&
7831  & .1082412e+04,.8143560e+03,.6510060e+03,.6560895e+03,.8507530e+03,&
7832  & .1040908e+04,.7820519e+03,.6199358e+03,.6277981e+03,.8166320e+03,&
7833  & .1220285e+04,.9261353e+03,.7646141e+03,.7626244e+03,.9766109e+03,&
7834  & .1176440e+04,.8896203e+03,.7264230e+03,.7260792e+03,.9337937e+03,&
7835  & .1133375e+04,.8546623e+03,.6905960e+03,.6924389e+03,.8940982e+03,&
7836  & .1090677e+04,.8207879e+03,.6569885e+03,.6613756e+03,.8570661e+03,&
7837  & .1048813e+04,.7881007e+03,.6254696e+03,.6327012e+03,.8225054e+03,&
7838  & .1228866e+04,.9332604e+03,.7717386e+03,.7692485e+03,.9842332e+03,&
7839  & .1184837e+04,.8964165e+03,.7330783e+03,.7321425e+03,.9408794e+03,&
7840  & .1141425e+04,.8610630e+03,.6967646e+03,.6979977e+03,.9006456e+03,&
7841  & .1098473e+04,.8268792e+03,.6626986e+03,.6664793e+03,.8631791e+03,&
7842  & .1056323e+04,.7938687e+03,.6308135e+03,.6374322e+03,.8281892e+03,&
7843  & .1241753e+04,.9440723e+03,.7828610e+03,.7798359e+03,.9964019e+03,&
7844  & .1197417e+04,.9066817e+03,.7434365e+03,.7418632e+03,.9522524e+03,&
7845  & .1153661e+04,.8708987e+03,.7064391e+03,.7069149e+03,.9111337e+03,&
7846  & .1110381e+04,.8362458e+03,.6717052e+03,.6746952e+03,.8729740e+03,&
7847  & .1067895e+04,.8028379e+03,.6392420e+03,.6449926e+03,.8372651e+03/
7848 
7849  data absb(701:875,12) / &
7850  & .1254711e+04,.9552218e+03,.7944804e+03,.7910279e+03,.1009186e+04,&
7851  & .1210280e+04,.9173371e+03,.7543339e+03,.7521533e+03,.9642251e+03,&
7852  & .1166182e+04,.8810139e+03,.7165982e+03,.7163206e+03,.9222282e+03,&
7853  & .1122776e+04,.8459987e+03,.6811757e+03,.6833364e+03,.8832595e+03,&
7854  & .1079901e+04,.8122269e+03,.6480909e+03,.6529289e+03,.8468137e+03,&
7855  & .1267704e+04,.9665631e+03,.8063197e+03,.8024662e+03,.1022026e+04,&
7856  & .1222982e+04,.9279730e+03,.7652524e+03,.7624963e+03,.9762665e+03,&
7857  & .1178689e+04,.8911031e+03,.7268015e+03,.7258004e+03,.9333389e+03,&
7858  & .1134938e+04,.8556974e+03,.6907044e+03,.6920393e+03,.8935613e+03,&
7859  & .1091744e+04,.8215054e+03,.6569768e+03,.6609780e+03,.8565207e+03,&
7860  & .1282885e+04,.9799862e+03,.8205225e+03,.8164768e+03,.1037659e+04,&
7861  & .1238160e+04,.9407046e+03,.7785501e+03,.7751742e+03,.9909163e+03,&
7862  & .1193461e+04,.9032104e+03,.7391944e+03,.7374586e+03,.9470329e+03,&
7863  & .1149466e+04,.8673209e+03,.7023116e+03,.7027833e+03,.9062086e+03,&
7864  & .1106044e+04,.8327209e+03,.6678128e+03,.6708431e+03,.8683165e+03,&
7865  & .1299221e+04,.9946371e+03,.8360635e+03,.8320461e+03,.1054652e+04,&
7866  & .1254105e+04,.9544361e+03,.7930175e+03,.7891647e+03,.1006958e+04,&
7867  & .1209314e+04,.9163157e+03,.7527076e+03,.7503398e+03,.9620928e+03,&
7868  & .1165150e+04,.8800178e+03,.7151041e+03,.7146356e+03,.9201686e+03,&
7869  & .1121407e+04,.8448306e+03,.6796764e+03,.6817394e+03,.8813213e+03,&
7870  & .1315203e+04,.1009411e+04,.8519211e+03,.8481780e+03,.1072024e+04,&
7871  & .1270148e+04,.9683874e+03,.8077450e+03,.8035704e+03,.1023229e+04,&
7872  & .1225178e+04,.9296125e+03,.7664897e+03,.7634566e+03,.9773360e+03,&
7873  & .1180684e+04,.8926430e+03,.7280109e+03,.7267010e+03,.9343522e+03,&
7874  & .1136746e+04,.8570580e+03,.6917330e+03,.6928240e+03,.8944515e+03,&
7875  & .1332014e+04,.1025376e+04,.8690997e+03,.8658147e+03,.1090797e+04,&
7876  & .1287083e+04,.9833984e+03,.8237334e+03,.8194241e+03,.1040908e+04,&
7877  & .1241959e+04,.9438288e+03,.7814714e+03,.7777789e+03,.9938697e+03,&
7878  & .1197174e+04,.9061941e+03,.7419541e+03,.7398805e+03,.9497877e+03,&
7879  & .1152918e+04,.8700812e+03,.7048184e+03,.7049556e+03,.9087731e+03,&
7880  & .1350647e+04,.1043564e+04,.8888305e+03,.8860745e+03,.1112065e+04,&
7881  & .1305779e+04,.1000456e+04,.8419893e+03,.8378345e+03,.1060921e+04,&
7882  & .1260705e+04,.9599420e+03,.7984917e+03,.7943099e+03,.1012757e+04,&
7883  & .1215666e+04,.9215564e+03,.7578604e+03,.7550366e+03,.9674587e+03,&
7884  & .1171119e+04,.8847872e+03,.7197368e+03,.7188825e+03,.9251420e+03/
7885 
7886  data absb(876:1050,12) / &
7887  & .1369025e+04,.1061988e+04,.9090576e+03,.9070507e+03,.1133822e+04,&
7888  & .1324283e+04,.1017792e+04,.8607146e+03,.8569957e+03,.1081438e+04,&
7889  & .1279221e+04,.9763247e+03,.8159408e+03,.8115038e+03,.1032081e+04,&
7890  & .1234106e+04,.9370840e+03,.7741603e+03,.7706394e+03,.9855998e+03,&
7891  & .1189255e+04,.8996323e+03,.7349893e+03,.7332176e+03,.9419966e+03,&
7892  & .1387296e+04,.1080897e+04,.9299250e+03,.9288068e+03,.1156040e+04,&
7893  & .1342857e+04,.1035650e+04,.8800130e+03,.8768348e+03,.1102421e+04,&
7894  & .1297820e+04,.9930678e+03,.8338259e+03,.8293976e+03,.1051801e+04,&
7895  & .1252579e+04,.9528599e+03,.7908416e+03,.7867574e+03,.1004167e+04,&
7896  & .1207574e+04,.9146924e+03,.7505619e+03,.7480415e+03,.9593335e+03,&
7897  & .1404104e+04,.1098935e+04,.9500783e+03,.9498735e+03,.1177271e+04,&
7898  & .1360008e+04,.1052670e+04,.8986275e+03,.8960550e+03,.1122511e+04,&
7899  & .1315196e+04,.1009091e+04,.8510987e+03,.8469719e+03,.1070745e+04,&
7900  & .1269965e+04,.9680021e+03,.8068947e+03,.8024578e+03,.1021945e+04,&
7901  & .1224670e+04,.9290678e+03,.7655748e+03,.7624022e+03,.9760562e+03,&
7902  & .1420396e+04,.1116667e+04,.9703151e+03,.9709136e+03,.1198267e+04,&
7903  & .1376519e+04,.1069496e+04,.9171148e+03,.9153343e+03,.1142380e+04,&
7904  & .1331895e+04,.1024943e+04,.8682037e+03,.8645664e+03,.1089458e+04,&
7905  & .1286713e+04,.9828640e+03,.8228042e+03,.8182606e+03,.1039599e+04,&
7906  & .1241514e+04,.9432594e+03,.7805968e+03,.7767631e+03,.9926584e+03,&
7907  & .1436295e+04,.1134602e+04,.9911820e+03,.9925055e+03,.1219679e+04,&
7908  & .1392861e+04,.1086682e+04,.9361507e+03,.9351807e+03,.1162507e+04,&
7909  & .1348464e+04,.1041116e+04,.8857605e+03,.8826630e+03,.1108509e+04,&
7910  & .1303445e+04,.9981438e+03,.8391267e+03,.8346717e+03,.1057512e+04,&
7911  & .1258155e+04,.9576321e+03,.7957736e+03,.7914987e+03,.1009530e+04,&
7912  & .1451947e+04,.1152803e+04,.1012912e+04,.1014725e+04,.1241375e+04,&
7913  & .1409171e+04,.1104184e+04,.9558739e+03,.9558293e+03,.1183310e+04,&
7914  & .1365042e+04,.1057601e+04,.9039098e+03,.9014495e+03,.1128065e+04,&
7915  & .1320122e+04,.1013646e+04,.8559028e+03,.8518298e+03,.1075944e+04,&
7916  & .1274918e+04,.9723353e+03,.8114299e+03,.8068514e+03,.1026857e+04,&
7917  & .1466066e+04,.1169745e+04,.1033600e+04,.1035678e+04,.1261517e+04,&
7918  & .1423885e+04,.1120363e+04,.9744091e+03,.9750701e+03,.1202414e+04,&
7919  & .1380086e+04,.1073062e+04,.9208922e+03,.9191581e+03,.1146254e+04,&
7920  & .1335390e+04,.1028184e+04,.8716013e+03,.8680259e+03,.1093132e+04,&
7921  & .1290197e+04,.9859694e+03,.8260174e+03,.8214000e+03,.1043057e+04/
7922 
7923  data absb(1051:1175,12) / &
7924  & .1479052e+04,.1186138e+04,.1053992e+04,.1056277e+04,.1281061e+04,&
7925  & .1437721e+04,.1136174e+04,.9928663e+03,.9941031e+03,.1221167e+04,&
7926  & .1394340e+04,.1088094e+04,.9376415e+03,.9367024e+03,.1164059e+04,&
7927  & .1349933e+04,.1042434e+04,.8871475e+03,.8840194e+03,.1109960e+04,&
7928  & .1304838e+04,.9993418e+03,.8403647e+03,.8358995e+03,.1058827e+04,&
7929  & .1492071e+04,.1202807e+04,.1075082e+04,.1077418e+04,.1300751e+04,&
7930  & .1451378e+04,.1152078e+04,.1011888e+04,.1013598e+04,.1240207e+04,&
7931  & .1408590e+04,.1103420e+04,.9548463e+03,.9546446e+03,.1182081e+04,&
7932  & .1364310e+04,.1056805e+04,.9029595e+03,.9004074e+03,.1127003e+04,&
7933  & .1319414e+04,.1012901e+04,.8550197e+03,.8508617e+03,.1074911e+04,&
7934  & .1504643e+04,.1219744e+04,.1096579e+04,.1098934e+04,.1320376e+04,&
7935  & .1464791e+04,.1168191e+04,.1031579e+04,.1033563e+04,.1259497e+04,&
7936  & .1422597e+04,.1118810e+04,.9725173e+03,.9730206e+03,.1200352e+04,&
7937  & .1378559e+04,.1071486e+04,.9191235e+03,.9172829e+03,.1144372e+04,&
7938  & .1333898e+04,.1026715e+04,.8699929e+03,.8663091e+03,.1091312e+04,&
7939  & .1516339e+04,.1236030e+04,.1117522e+04,.1119831e+04,.1339023e+04,&
7940  & .1477239e+04,.1183650e+04,.1050741e+04,.1052932e+04,.1277904e+04,&
7941  & .1435679e+04,.1133650e+04,.9897694e+03,.9909248e+03,.1218096e+04,&
7942  & .1392107e+04,.1085680e+04,.9348858e+03,.9337357e+03,.1161095e+04,&
7943  & .1347658e+04,.1040131e+04,.8845784e+03,.8813290e+03,.1107099e+04,&
7944  & .1520825e+04,.1242563e+04,.1126048e+04,.1128336e+04,.1346460e+04,&
7945  & .1482173e+04,.1189885e+04,.1058578e+04,.1060811e+04,.1285327e+04,&
7946  & .1440948e+04,.1139665e+04,.9968499e+03,.9981671e+03,.1225222e+04,&
7947  & .1397470e+04,.1091462e+04,.9413190e+03,.9405053e+03,.1167923e+04,&
7948  & .1353151e+04,.1045578e+04,.8905298e+03,.8874634e+03,.1113520e+04/
7949 
7950 ! ---
7951  data forref(1:4,1:12) / .5532580e-03,.5554860e-03,.6013390e-03,&
7952  & .7082800e-03,.1585580e-02,.1629570e-02,.2049910e-02,.4758810e-02,&
7953  & .7725420e-02,.7845620e-02,.1119790e-01,.2290160e-01,.2550970e-01,&
7954  & .2562720e-01,.2706910e-01,.2595050e-01,.3232630e-01,.3244950e-01,&
7955  & .3055350e-01,.2639930e-01,.3557280e-01,.3564191e-01,.3329601e-01,&
7956  & .2956313e-01,.3784510e-01,.3753410e-01,.3743690e-01,.3203340e-01,&
7957  & .4098704e-01,.3991769e-01,.3953723e-01,.3197576e-01,.4282540e-01,&
7958  & .4411510e-01,.4088870e-01,.3270770e-01,.4529070e-01,.4526648e-01,&
7959  & .4032414e-01,.3589280e-01,.4839280e-01,.4772840e-01,.3806840e-01,&
7960  & .3879400e-01,.5074618e-01,.4940565e-01,.4711472e-01,.3831108e-01/
7961 
7962  data selfref(1:10,1:12) / &
7963  & .1605370e-01,.1490380e-01,.1383630e-01,.1284520e-01,.1192510e-01,&
7964  & .1107090e-01,.1027790e-01,.9541750e-02,.8858290e-02,.8223790e-02,&
7965  & .3657530e-01,.3422670e-01,.3202880e-01,.2997200e-01,.2804740e-01,&
7966  & .2624630e-01,.2456090e-01,.2298370e-01,.2150780e-01,.2012670e-01,&
7967  & .1274190e+00,.1185530e+00,.1103040e+00,.1026290e+00,.9548830e-01,&
7968  & .8884420e-01,.8266240e-01,.7691070e-01,.7155930e-01,.6658020e-01,&
7969  & .3786870e+00,.3489610e+00,.3215680e+00,.2963250e+00,.2730640e+00,&
7970  & .2516290e+00,.2318760e+00,.2136740e+00,.1969010e+00,.1814440e+00,&
7971  & .4728220e+00,.4350180e+00,.4002360e+00,.3682360e+00,.3387940e+00,&
7972  & .3117060e+00,.2867830e+00,.2638540e+00,.2427570e+00,.2233480e+00,&
7973  & .5168017e+00,.4753661e+00,.4372531e+00,.4021962e+00,.3699493e+00,&
7974  & .3402876e+00,.3130049e+00,.2879097e+00,.2648259e+00,.2435933e+00,&
7975  & .5402220e+00,.4977460e+00,.4586100e+00,.4225510e+00,.3893270e+00,&
7976  & .3587160e+00,.3305110e+00,.3045240e+00,.2805800e+00,.2585190e+00,&
7977  & .5700865e+00,.5267717e+00,.4867481e+00,.4497659e+00,.4155940e+00,&
7978  & .3840184e+00,.3548416e+00,.3278825e+00,.3029720e+00,.2799538e+00,&
7979  & .6451760e+00,.5889570e+00,.5376360e+00,.4907880e+00,.4480220e+00,&
7980  & .4089820e+00,.3733440e+00,.3408120e+00,.3111140e+00,.2840040e+00,&
7981  & .6556933e+00,.6013742e+00,.5515585e+00,.5058718e+00,.4639719e+00,&
7982  & .4255448e+00,.3903026e+00,.3579808e+00,.3283371e+00,.3011502e+00,&
7983  & .6925540e+00,.6355740e+00,.5832820e+00,.5352930e+00,.4912510e+00,&
7984  & .4508340e+00,.4137410e+00,.3797010e+00,.3484610e+00,.3197910e+00,&
7985  & .7229700e+00,.6637789e+00,.6094446e+00,.5595658e+00,.5137786e+00,&
7986  & .4717450e+00,.4331576e+00,.3977321e+00,.3652099e+00,.3353523e+00/
7987 
7988 !........................................!
7989  end module module_radsw_kgb17 !
7990 !========================================!
7991 
7992 
7995 !========================================!
7997 !........................................!
7998 !
7999 ! ********* the original program descriptions ********* !
8000 ! !
8001 ! originally by j.delamere, atmospheric & environmental research. !
8002 ! revision: 2.4 !
8003 ! band 18: 4000-4650 cm-1 (low - h2o,ch4; high - ch4) !
8004 ! reformatted for f90 by jjmorcrette, ecmwf !
8005 ! !
8006 ! this table has been re-generated for reduced number of g-point !
8007 ! by y.t.hou, ncep !
8008 ! !
8009 ! ********* ********* end description ********* ********* !
8010 !
8011  use physparam, only : kind_phys
8012  use module_radsw_parameters, only : ng18
8013 
8014 !
8015  implicit none
8016 !
8017  private
8018 !
8020  integer, public :: msa18
8022  integer, public :: msb18
8024  integer, public :: msf18
8026  integer, public :: mfr18
8027  parameter(msa18=585, msb18=235, msf18=10, mfr18=3)
8028 
8034  real (kind=kind_phys), public :: selfref(msf18,ng18)
8035 
8051  real (kind=kind_phys), public :: absa(msa18,ng18)
8052 
8064  real (kind=kind_phys), public :: absb(msb18,ng18)
8065 
8066  real (kind=kind_phys), public :: forref(mfr18,ng18)
8067 
8069  real (kind=kind_phys), parameter, public :: rayl = 1.39e-09
8070 
8071 
8072  data absa( 1:180, 1) / &
8073  & .1481300e-04,.3984200e-04,.4336200e-04,.4309500e-04,.3981100e-04,&
8074  & .3499400e-04,.2898400e-04,.2060900e-04,.1884500e-05,.1443200e-04,&
8075  & .3874900e-04,.4211900e-04,.4183400e-04,.3890000e-04,.3436500e-04,&
8076  & .2857100e-04,.2050300e-04,.1471500e-05,.1396900e-04,.3766600e-04,&
8077  & .4094200e-04,.4070300e-04,.3798200e-04,.3373100e-04,.2815800e-04,&
8078  & .2035100e-04,.1084200e-05,.1336700e-04,.3660500e-04,.3972900e-04,&
8079  & .3952900e-04,.3703300e-04,.3309600e-04,.2769000e-04,.2015400e-04,&
8080  & .7870200e-06,.1276500e-04,.3558400e-04,.3853600e-04,.3836100e-04,&
8081  & .3607300e-04,.3238400e-04,.2724200e-04,.1993200e-04,.5829600e-06,&
8082  & .1229900e-04,.3417900e-04,.3740500e-04,.3753500e-04,.3471400e-04,&
8083  & .3033500e-04,.2489200e-04,.1752400e-04,.1330100e-05,.1206400e-04,&
8084  & .3322500e-04,.3635700e-04,.3651200e-04,.3387000e-04,.2978900e-04,&
8085  & .2457800e-04,.1743500e-04,.1021700e-05,.1169700e-04,.3230100e-04,&
8086  & .3531600e-04,.3548100e-04,.3304900e-04,.2922600e-04,.2423300e-04,&
8087  & .1730400e-04,.7215200e-06,.1120900e-04,.3139500e-04,.3426300e-04,&
8088  & .3443600e-04,.3217300e-04,.2861000e-04,.2384700e-04,.1716100e-04,&
8089  & .5178700e-06,.1070600e-04,.3049600e-04,.3331100e-04,.3339600e-04,&
8090  & .3129500e-04,.2800200e-04,.2344500e-04,.1697100e-04,.4023000e-06,&
8091  & .1027100e-04,.2927300e-04,.3204900e-04,.3236500e-04,.2985700e-04,&
8092  & .2617100e-04,.2135200e-04,.1481400e-04,.8047000e-06,.1005800e-04,&
8093  & .2845800e-04,.3119600e-04,.3144000e-04,.2913300e-04,.2564000e-04,&
8094  & .2105600e-04,.1475600e-04,.5301000e-06,.9817200e-05,.2765100e-04,&
8095  & .3035200e-04,.3060900e-04,.2839600e-04,.2511000e-04,.2073000e-04,&
8096  & .1465500e-04,.3865200e-06,.9457700e-05,.2687400e-04,.2947500e-04,&
8097  & .2974900e-04,.2766900e-04,.2455300e-04,.2040000e-04,.1453600e-04,&
8098  & .3323600e-06,.9050800e-05,.2612800e-04,.2863100e-04,.2883400e-04,&
8099  & .2695200e-04,.2401500e-04,.2004500e-04,.1438200e-04,.3065900e-06,&
8100  & .8608100e-05,.2489700e-04,.2731700e-04,.2763200e-04,.2546500e-04,&
8101  & .2232800e-04,.1811200e-04,.1246800e-04,.3928600e-06,.8379300e-05,&
8102  & .2427300e-04,.2659000e-04,.2686500e-04,.2487600e-04,.2186700e-04,&
8103  & .1784900e-04,.1242000e-04,.3226600e-06,.8229600e-05,.2358400e-04,&
8104  & .2586900e-04,.2615500e-04,.2425500e-04,.2140300e-04,.1757900e-04,&
8105  & .1233800e-04,.3077500e-06,.7973100e-05,.2291500e-04,.2516600e-04,&
8106  & .2543500e-04,.2362700e-04,.2091700e-04,.1728200e-04,.1224200e-04,&
8107  & .3041800e-06,.7655300e-05,.2225900e-04,.2444000e-04,.2467300e-04,&
8108  & .2300300e-04,.2043700e-04,.1698400e-04,.1211200e-04,.3063800e-06/
8109 
8110  data absa(181:315, 1) / &
8111  & .7225900e-05,.2108900e-04,.2317700e-04,.2341900e-04,.2158400e-04,&
8112  & .1892600e-04,.1525100e-04,.1041700e-04,.2517000e-06,.7021500e-05,&
8113  & .2056700e-04,.2254100e-04,.2278800e-04,.2110200e-04,.1852600e-04,&
8114  & .1504900e-04,.1037900e-04,.2595800e-06,.6849000e-05,.2001800e-04,&
8115  & .2193800e-04,.2220600e-04,.2057900e-04,.1813900e-04,.1480600e-04,&
8116  & .1031300e-04,.2666600e-06,.6697300e-05,.1944400e-04,.2134000e-04,&
8117  & .2161500e-04,.2007000e-04,.1772800e-04,.1455400e-04,.1023900e-04,&
8118  & .2858900e-06,.6480800e-05,.1888300e-04,.2073800e-04,.2099400e-04,&
8119  & .1954600e-04,.1730400e-04,.1430600e-04,.1014800e-04,.3088600e-06,&
8120  & .6072700e-05,.1779400e-04,.1960900e-04,.1976900e-04,.1822800e-04,&
8121  & .1594600e-04,.1279300e-04,.8655900e-05,.1855900e-06,.5894900e-05,&
8122  & .1739000e-04,.1905900e-04,.1924400e-04,.1782000e-04,.1564700e-04,&
8123  & .1262600e-04,.8635400e-05,.1954400e-06,.5726800e-05,.1693500e-04,&
8124  & .1856400e-04,.1872400e-04,.1740200e-04,.1530400e-04,.1243300e-04,&
8125  & .8588200e-05,.2203300e-06,.5624300e-05,.1645900e-04,.1805400e-04,&
8126  & .1826300e-04,.1698400e-04,.1497100e-04,.1221500e-04,.8526800e-05,&
8127  & .2507200e-06,.5458400e-05,.1598400e-04,.1754800e-04,.1777300e-04,&
8128  & .1655100e-04,.1460100e-04,.1200400e-04,.8456800e-05,.2811000e-06,&
8129  & .5062400e-05,.1496300e-04,.1648200e-04,.1661100e-04,.1533900e-04,&
8130  & .1333300e-04,.1065600e-04,.7157000e-05,.1345300e-06,.4942800e-05,&
8131  & .1463600e-04,.1604000e-04,.1618100e-04,.1499200e-04,.1314400e-04,&
8132  & .1053300e-04,.7153200e-05,.1562000e-06,.4795500e-05,.1425600e-04,&
8133  & .1561100e-04,.1573500e-04,.1464300e-04,.1286500e-04,.1039000e-04,&
8134  & .7124800e-05,.1857100e-06,.4674300e-05,.1387600e-04,.1521300e-04,&
8135  & .1534200e-04,.1429300e-04,.1257600e-04,.1021500e-04,.7073500e-05,&
8136  & .2138200e-06,.4570800e-05,.1347300e-04,.1478200e-04,.1494700e-04,&
8137  & .1393300e-04,.1227400e-04,.1003600e-04,.7017700e-05,.2441900e-06/
8138 
8139  data absa(316:450, 1) / &
8140  & .4228900e-05,.1252800e-04,.1381700e-04,.1392200e-04,.1286700e-04,&
8141  & .1112600e-04,.8846800e-05,.5901000e-05,.1060000e-06,.4131900e-05,&
8142  & .1228600e-04,.1348000e-04,.1358200e-04,.1258400e-04,.1097300e-04,&
8143  & .8764400e-05,.5904900e-05,.1295100e-06,.4031700e-05,.1199600e-04,&
8144  & .1311600e-04,.1320600e-04,.1229500e-04,.1078600e-04,.8653700e-05,&
8145  & .5889800e-05,.1573100e-06,.3910700e-05,.1166600e-04,.1277100e-04,&
8146  & .1287000e-04,.1201000e-04,.1054600e-04,.8524400e-05,.5853600e-05,&
8147  & .1871600e-06,.3838400e-05,.1134600e-04,.1243500e-04,.1254900e-04,&
8148  & .1170600e-04,.1028900e-04,.8375600e-05,.5810400e-05,.2167900e-06,&
8149  & .3524000e-05,.1041800e-04,.1155800e-04,.1168700e-04,.1074800e-04,&
8150  & .9230500e-05,.7319800e-05,.4851400e-05,.1017600e-06,.3447800e-05,&
8151  & .1029600e-04,.1129600e-04,.1136900e-04,.1053200e-04,.9137500e-05,&
8152  & .7273700e-05,.4863900e-05,.1269500e-06,.3371800e-05,.1006800e-04,&
8153  & .1099600e-04,.1106300e-04,.1029000e-04,.8995700e-05,.7184400e-05,&
8154  & .4858300e-05,.1548200e-06,.3280100e-05,.9799000e-05,.1071200e-04,&
8155  & .1076200e-04,.1005600e-04,.8825500e-05,.7090700e-05,.4836400e-05,&
8156  & .1812300e-06,.3196000e-05,.9535000e-05,.1042700e-04,.1050100e-04,&
8157  & .9805600e-05,.8615700e-05,.6972300e-05,.4801000e-05,.2073800e-06,&
8158  & .2919700e-05,.8618300e-05,.9610000e-05,.9744800e-05,.8918700e-05,&
8159  & .7635400e-05,.6031800e-05,.3973300e-05,.1031000e-06,.2867700e-05,&
8160  & .8556500e-05,.9419100e-05,.9468200e-05,.8765300e-05,.7572500e-05,&
8161  & .6008900e-05,.3995600e-05,.1295100e-06,.2803600e-05,.8412100e-05,&
8162  & .9190200e-05,.9225100e-05,.8581100e-05,.7465300e-05,.5945200e-05,&
8163  & .3996700e-05,.1568400e-06,.2742000e-05,.8203500e-05,.8944000e-05,&
8164  & .8974800e-05,.8381700e-05,.7342200e-05,.5872500e-05,.3984400e-05,&
8165  & .1856400e-06,.2659600e-05,.7973900e-05,.8707400e-05,.8750800e-05,&
8166  & .8178400e-05,.7178100e-05,.5781500e-05,.3956900e-05,.2147600e-06/
8167 
8168  data absa(451:585, 1) / &
8169  & .2398800e-05,.7113500e-05,.7912100e-05,.8011800e-05,.7337000e-05,&
8170  & .6284400e-05,.4961000e-05,.3264100e-05,.9169700e-07,.2355200e-05,&
8171  & .7058700e-05,.7751900e-05,.7782100e-05,.7211300e-05,.6229700e-05,&
8172  & .4940700e-05,.3281500e-05,.1130700e-06,.2304600e-05,.6936700e-05,&
8173  & .7566200e-05,.7579000e-05,.7063100e-05,.6140900e-05,.4886700e-05,&
8174  & .3281200e-05,.1371500e-06,.2255700e-05,.6763200e-05,.7364000e-05,&
8175  & .7377200e-05,.6897200e-05,.6038100e-05,.4825400e-05,.3270500e-05,&
8176  & .1643600e-06,.2189900e-05,.6574800e-05,.7169500e-05,.7194600e-05,&
8177  & .6729500e-05,.5902200e-05,.4748800e-05,.3247600e-05,.1902500e-06,&
8178  & .1969900e-05,.5867000e-05,.6507500e-05,.6580800e-05,.6030000e-05,&
8179  & .5166500e-05,.4074900e-05,.2678800e-05,.7710000e-07,.1934800e-05,&
8180  & .5814600e-05,.6373000e-05,.6389100e-05,.5926000e-05,.5119600e-05,&
8181  & .4057700e-05,.2692600e-05,.9569300e-07,.1894700e-05,.5713400e-05,&
8182  & .6220700e-05,.6223800e-05,.5809000e-05,.5045900e-05,.4011300e-05,&
8183  & .2691600e-05,.1157200e-06,.1855200e-05,.5570900e-05,.6052200e-05,&
8184  & .6061100e-05,.5669300e-05,.4959400e-05,.3960600e-05,.2682400e-05,&
8185  & .1379700e-06,.1804000e-05,.5413700e-05,.5893500e-05,.5909600e-05,&
8186  & .5529400e-05,.4844300e-05,.3897700e-05,.2663300e-05,.1588400e-06,&
8187  & .1616700e-05,.4827200e-05,.5347500e-05,.5398300e-05,.4950300e-05,&
8188  & .4241300e-05,.3343100e-05,.2195600e-05,.6138100e-07,.1589500e-05,&
8189  & .4780900e-05,.5234200e-05,.5240900e-05,.4865200e-05,.4202100e-05,&
8190  & .3326300e-05,.2207200e-05,.7638200e-07,.1558200e-05,.4698200e-05,&
8191  & .5105500e-05,.5105800e-05,.4771600e-05,.4140600e-05,.3288600e-05,&
8192  & .2205800e-05,.9308300e-07,.1524200e-05,.4583100e-05,.4969600e-05,&
8193  & .4973500e-05,.4653400e-05,.4067800e-05,.3246900e-05,.2196900e-05,&
8194  & .1121100e-06,.1485900e-05,.4449200e-05,.4839200e-05,.4847900e-05,&
8195  & .4537800e-05,.3968900e-05,.3193300e-05,.2181300e-05,.1297000e-06/
8196 
8197  data absa( 1:180, 2) / &
8198  & .1013800e-03,.2045600e-03,.2211700e-03,.2194800e-03,.2080500e-03,&
8199  & .1837300e-03,.1499900e-03,.9538200e-04,.3321300e-05,.1014100e-03,&
8200  & .2088900e-03,.2245600e-03,.2222300e-03,.2091200e-03,.1846700e-03,&
8201  & .1506000e-03,.9571300e-04,.2847900e-05,.1012500e-03,.2122300e-03,&
8202  & .2271200e-03,.2238800e-03,.2098300e-03,.1851300e-03,.1510000e-03,&
8203  & .9588100e-04,.2633800e-05,.1010500e-03,.2144200e-03,.2286300e-03,&
8204  & .2242100e-03,.2104600e-03,.1854000e-03,.1506000e-03,.9579800e-04,&
8205  & .2763800e-05,.1004000e-03,.2161200e-03,.2289900e-03,.2241600e-03,&
8206  & .2104600e-03,.1857000e-03,.1500100e-03,.9556900e-04,.2931300e-05,&
8207  & .8963900e-04,.1779700e-03,.1928400e-03,.1898600e-03,.1782400e-03,&
8208  & .1578900e-03,.1290600e-03,.8352400e-04,.2392600e-05,.8949900e-04,&
8209  & .1814400e-03,.1956300e-03,.1922700e-03,.1794100e-03,.1584400e-03,&
8210  & .1296100e-03,.8363200e-04,.2196900e-05,.8941100e-04,.1840100e-03,&
8211  & .1975300e-03,.1935000e-03,.1799900e-03,.1588300e-03,.1298900e-03,&
8212  & .8357700e-04,.2315800e-05,.8884100e-04,.1854100e-03,.1987200e-03,&
8213  & .1939800e-03,.1805300e-03,.1590700e-03,.1297200e-03,.8339600e-04,&
8214  & .2376000e-05,.8794900e-04,.1865900e-03,.1990200e-03,.1940700e-03,&
8215  & .1807300e-03,.1591000e-03,.1293700e-03,.8312000e-04,.2524700e-05,&
8216  & .7746600e-04,.1526400e-03,.1670400e-03,.1634200e-03,.1530000e-03,&
8217  & .1349900e-03,.1100700e-03,.7188100e-04,.1783900e-05,.7748300e-04,&
8218  & .1561100e-03,.1695000e-03,.1655100e-03,.1540800e-03,.1358000e-03,&
8219  & .1105500e-03,.7202000e-04,.1856400e-05,.7714200e-04,.1586700e-03,&
8220  & .1711200e-03,.1667200e-03,.1548100e-03,.1361600e-03,.1107700e-03,&
8221  & .7192200e-04,.2022800e-05,.7646000e-04,.1605800e-03,.1718600e-03,&
8222  & .1671700e-03,.1551900e-03,.1364100e-03,.1106000e-03,.7177500e-04,&
8223  & .2171700e-05,.7551000e-04,.1615800e-03,.1721000e-03,.1673000e-03,&
8224  & .1552100e-03,.1364900e-03,.1102200e-03,.7151600e-04,.2314000e-05,&
8225  & .6593100e-04,.1294000e-03,.1429500e-03,.1400500e-03,.1309500e-03,&
8226  & .1149400e-03,.9365600e-04,.6116700e-04,.1709400e-05,.6609000e-04,&
8227  & .1326900e-03,.1454200e-03,.1423300e-03,.1320100e-03,.1155800e-03,&
8228  & .9397500e-04,.6143600e-04,.1852700e-05,.6563000e-04,.1353200e-03,&
8229  & .1471700e-03,.1436400e-03,.1326600e-03,.1160400e-03,.9412600e-04,&
8230  & .6146700e-04,.1957600e-05,.6497100e-04,.1370800e-03,.1481800e-03,&
8231  & .1442700e-03,.1330400e-03,.1161600e-03,.9415200e-04,.6133400e-04,&
8232  & .2061400e-05,.6412200e-04,.1383400e-03,.1486400e-03,.1445100e-03,&
8233  & .1331200e-03,.1163800e-03,.9395500e-04,.6116200e-04,.2164000e-05/
8234 
8235  data absa(181:315, 2) / &
8236  & .5559400e-04,.1083000e-03,.1206800e-03,.1186500e-03,.1112700e-03,&
8237  & .9792500e-04,.7920800e-04,.5184200e-04,.1595400e-05,.5566900e-04,&
8238  & .1111700e-03,.1229900e-03,.1209100e-03,.1124800e-03,.9864300e-04,&
8239  & .7943300e-04,.5212700e-04,.1696600e-05,.5543000e-04,.1134500e-03,&
8240  & .1247800e-03,.1223500e-03,.1133200e-03,.9911700e-04,.7982300e-04,&
8241  & .5228600e-04,.1830400e-05,.5480000e-04,.1154300e-03,.1260100e-03,&
8242  & .1230400e-03,.1138900e-03,.9934600e-04,.7993500e-04,.5227500e-04,&
8243  & .1947900e-05,.5402700e-04,.1166500e-03,.1266000e-03,.1233900e-03,&
8244  & .1141000e-03,.9953500e-04,.7984000e-04,.5216800e-04,.2058300e-05,&
8245  & .4650000e-04,.8988700e-04,.1004800e-03,.9916100e-04,.9313600e-04,&
8246  & .8227900e-04,.6687200e-04,.4361700e-04,.1473000e-05,.4663200e-04,&
8247  & .9244400e-04,.1027100e-03,.1012300e-03,.9455900e-04,.8313500e-04,&
8248  & .6720400e-04,.4404600e-04,.1621500e-05,.4649000e-04,.9441500e-04,&
8249  & .1044600e-03,.1026900e-03,.9538700e-04,.8367600e-04,.6757900e-04,&
8250  & .4427900e-04,.1735800e-05,.4600400e-04,.9619000e-04,.1057000e-03,&
8251  & .1034600e-03,.9588300e-04,.8403800e-04,.6775300e-04,.4434800e-04,&
8252  & .1809600e-05,.4536200e-04,.9751100e-04,.1064500e-03,.1038400e-03,&
8253  & .9619700e-04,.8434700e-04,.6775800e-04,.4430500e-04,.1888200e-05,&
8254  & .3859700e-04,.7401900e-04,.8288200e-04,.8180700e-04,.7693600e-04,&
8255  & .6827800e-04,.5574400e-04,.3650700e-04,.1340000e-05,.3872800e-04,&
8256  & .7635300e-04,.8503000e-04,.8382200e-04,.7852300e-04,.6922100e-04,&
8257  & .5619900e-04,.3693200e-04,.1476600e-05,.3868800e-04,.7816400e-04,&
8258  & .8669100e-04,.8526900e-04,.7942400e-04,.6984900e-04,.5650700e-04,&
8259  & .3721100e-04,.1607700e-05,.3839900e-04,.7965400e-04,.8788200e-04,&
8260  & .8614500e-04,.7991700e-04,.7021400e-04,.5669800e-04,.3730200e-04,&
8261  & .1736500e-05,.3789900e-04,.8101200e-04,.8870600e-04,.8658900e-04,&
8262  & .8025900e-04,.7042900e-04,.5681000e-04,.3728700e-04,.1859500e-05/
8263 
8264  data absa(316:450, 2) / &
8265  & .3195900e-04,.6067100e-04,.6796300e-04,.6705300e-04,.6305700e-04,&
8266  & .5628700e-04,.4618700e-04,.3029800e-04,.1207100e-05,.3206200e-04,&
8267  & .6275300e-04,.6989200e-04,.6894100e-04,.6462400e-04,.5718700e-04,&
8268  & .4656600e-04,.3068700e-04,.1358200e-05,.3209800e-04,.6443500e-04,&
8269  & .7142300e-04,.7035900e-04,.6564600e-04,.5788200e-04,.4689700e-04,&
8270  & .3099300e-04,.1521700e-05,.3195600e-04,.6575800e-04,.7265000e-04,&
8271  & .7127500e-04,.6627500e-04,.5829800e-04,.4710000e-04,.3107900e-04,&
8272  & .1679400e-05,.3158400e-04,.6691600e-04,.7350200e-04,.7181900e-04,&
8273  & .6661100e-04,.5850500e-04,.4724300e-04,.3108800e-04,.1825000e-05,&
8274  & .2635500e-04,.4947200e-04,.5541500e-04,.5458400e-04,.5136100e-04,&
8275  & .4613500e-04,.3802700e-04,.2498300e-04,.1354900e-05,.2647200e-04,&
8276  & .5130200e-04,.5716500e-04,.5641700e-04,.5293600e-04,.4704800e-04,&
8277  & .3841700e-04,.2534700e-04,.1494100e-05,.2654500e-04,.5286600e-04,&
8278  & .5856300e-04,.5777600e-04,.5398800e-04,.4770600e-04,.3873900e-04,&
8279  & .2563800e-04,.1656300e-05,.2646900e-04,.5410500e-04,.5974900e-04,&
8280  & .5874600e-04,.5466800e-04,.4816100e-04,.3897000e-04,.2574400e-04,&
8281  & .1826200e-05,.2624800e-04,.5507900e-04,.6061900e-04,.5931700e-04,&
8282  & .5509900e-04,.4843500e-04,.3911500e-04,.2577800e-04,.2023800e-05,&
8283  & .2163100e-04,.4029700e-04,.4517000e-04,.4429800e-04,.4187600e-04,&
8284  & .3769000e-04,.3121200e-04,.2055200e-04,.1632800e-05,.2181400e-04,&
8285  & .4189600e-04,.4668100e-04,.4606500e-04,.4322700e-04,.3860800e-04,&
8286  & .3161400e-04,.2085700e-04,.1861000e-05,.2186400e-04,.4324700e-04,&
8287  & .4794500e-04,.4732700e-04,.4427300e-04,.3920100e-04,.3189400e-04,&
8288  & .2111900e-04,.2077500e-05,.2183500e-04,.4438600e-04,.4898600e-04,&
8289  & .4822800e-04,.4491600e-04,.3963700e-04,.3209300e-04,.2122800e-04,&
8290  & .2254100e-05,.2172800e-04,.4526300e-04,.4980400e-04,.4881800e-04,&
8291  & .4540900e-04,.3995000e-04,.3226900e-04,.2129000e-04,.2452500e-05/
8292 
8293  data absa(451:585, 2) / &
8294  & .1782300e-04,.3337800e-04,.3733700e-04,.3661900e-04,.3459800e-04,&
8295  & .3111300e-04,.2576100e-04,.1695600e-04,.1504200e-05,.1797000e-04,&
8296  & .3467900e-04,.3858900e-04,.3806500e-04,.3569500e-04,.3186900e-04,&
8297  & .2604400e-04,.1721400e-04,.1684700e-05,.1799700e-04,.3579100e-04,&
8298  & .3961900e-04,.3909700e-04,.3653900e-04,.3237400e-04,.2629800e-04,&
8299  & .1742800e-04,.1888700e-05,.1796700e-04,.3671700e-04,.4046300e-04,&
8300  & .3982100e-04,.3707100e-04,.3271600e-04,.2646100e-04,.1749600e-04,&
8301  & .2054600e-05,.1786800e-04,.3742300e-04,.4112400e-04,.4030400e-04,&
8302  & .3747300e-04,.3297100e-04,.2661200e-04,.1753200e-04,.2224000e-05,&
8303  & .1466500e-04,.2760500e-04,.3081100e-04,.3025000e-04,.2852500e-04,&
8304  & .2564400e-04,.2118600e-04,.1395500e-04,.1258800e-05,.1477500e-04,&
8305  & .2865500e-04,.3185100e-04,.3140800e-04,.2941800e-04,.2626100e-04,&
8306  & .2143000e-04,.1417200e-04,.1418100e-05,.1479900e-04,.2957100e-04,&
8307  & .3268700e-04,.3224200e-04,.3009300e-04,.2668300e-04,.2163600e-04,&
8308  & .1433800e-04,.1561900e-05,.1477700e-04,.3032500e-04,.3337100e-04,&
8309  & .3282600e-04,.3055300e-04,.2694500e-04,.2177500e-04,.1438000e-04,&
8310  & .1691700e-05,.1468500e-04,.3090400e-04,.3390700e-04,.3321400e-04,&
8311  & .3087500e-04,.2715800e-04,.2188300e-04,.1441400e-04,.1842300e-05,&
8312  & .1204400e-04,.2277200e-04,.2537500e-04,.2492600e-04,.2345800e-04,&
8313  & .2105900e-04,.1738700e-04,.1145700e-04,.9912200e-06,.1212800e-04,&
8314  & .2363700e-04,.2624900e-04,.2584200e-04,.2418700e-04,.2158200e-04,&
8315  & .1759000e-04,.1163600e-04,.1103700e-05,.1215200e-04,.2438600e-04,&
8316  & .2691000e-04,.2653100e-04,.2473100e-04,.2192300e-04,.1776000e-04,&
8317  & .1175500e-04,.1202600e-05,.1213000e-04,.2499600e-04,.2746400e-04,&
8318  & .2700600e-04,.2511300e-04,.2213800e-04,.1787400e-04,.1179700e-04,&
8319  & .1302800e-05,.1205000e-04,.2547400e-04,.2789500e-04,.2729700e-04,&
8320  & .2537300e-04,.2230200e-04,.1794800e-04,.1181700e-04,.1401000e-05/
8321 
8322  data absa( 1:180, 3) / &
8323  & .3682300e-03,.4961300e-03,.5181700e-03,.5053800e-03,.4571100e-03,&
8324  & .3960500e-03,.3148600e-03,.2147400e-03,.1093200e-04,.3700800e-03,&
8325  & .5077800e-03,.5336100e-03,.5177800e-03,.4699500e-03,.4062900e-03,&
8326  & .3230900e-03,.2187800e-03,.1142100e-04,.3698900e-03,.5181200e-03,&
8327  & .5469900e-03,.5292200e-03,.4803600e-03,.4155900e-03,.3296500e-03,&
8328  & .2222600e-03,.1239500e-04,.3672100e-03,.5276300e-03,.5574600e-03,&
8329  & .5395700e-03,.4889100e-03,.4231300e-03,.3354500e-03,.2258800e-03,&
8330  & .1351500e-04,.3631300e-03,.5365200e-03,.5668000e-03,.5479100e-03,&
8331  & .4966400e-03,.4290700e-03,.3404300e-03,.2291600e-03,.1473400e-04,&
8332  & .3241100e-03,.4281500e-03,.4472500e-03,.4381300e-03,.4015000e-03,&
8333  & .3487100e-03,.2791200e-03,.1892900e-03,.8074100e-05,.3256700e-03,&
8334  & .4378600e-03,.4606900e-03,.4502700e-03,.4131900e-03,.3581900e-03,&
8335  & .2863500e-03,.1932500e-03,.8734000e-05,.3242900e-03,.4463800e-03,&
8336  & .4722800e-03,.4607400e-03,.4227200e-03,.3660200e-03,.2920100e-03,&
8337  & .1965300e-03,.9611000e-05,.3213700e-03,.4553100e-03,.4814200e-03,&
8338  & .4695100e-03,.4299600e-03,.3725000e-03,.2970900e-03,.1997400e-03,&
8339  & .1069700e-04,.3177600e-03,.4620700e-03,.4888000e-03,.4765900e-03,&
8340  & .4355100e-03,.3777600e-03,.3013800e-03,.2027400e-03,.1170400e-04,&
8341  & .2848800e-03,.3676700e-03,.3808100e-03,.3743800e-03,.3452500e-03,&
8342  & .3015000e-03,.2433200e-03,.1641500e-03,.6397000e-05,.2853900e-03,&
8343  & .3750900e-03,.3919600e-03,.3851000e-03,.3556600e-03,.3099800e-03,&
8344  & .2496300e-03,.1676600e-03,.7200600e-05,.2839700e-03,.3821500e-03,&
8345  & .4015600e-03,.3942800e-03,.3641800e-03,.3172700e-03,.2544600e-03,&
8346  & .1710700e-03,.7957400e-05,.2813400e-03,.3886700e-03,.4095900e-03,&
8347  & .4023000e-03,.3709300e-03,.3230100e-03,.2589800e-03,.1744700e-03,&
8348  & .8713100e-05,.2788600e-03,.3936000e-03,.4164200e-03,.4085200e-03,&
8349  & .3760900e-03,.3274000e-03,.2631200e-03,.1773700e-03,.9470400e-05,&
8350  & .2492300e-03,.3155500e-03,.3242300e-03,.3173100e-03,.2941000e-03,&
8351  & .2567100e-03,.2076200e-03,.1407400e-03,.5587700e-05,.2497700e-03,&
8352  & .3212000e-03,.3337200e-03,.3265700e-03,.3029500e-03,.2647200e-03,&
8353  & .2130300e-03,.1439600e-03,.6157500e-05,.2486500e-03,.3266800e-03,&
8354  & .3418000e-03,.3344600e-03,.3103300e-03,.2714400e-03,.2177700e-03,&
8355  & .1471400e-03,.6791600e-05,.2470900e-03,.3313300e-03,.3484100e-03,&
8356  & .3413400e-03,.3160000e-03,.2764700e-03,.2217900e-03,.1501600e-03,&
8357  & .7465300e-05,.2445500e-03,.3349100e-03,.3538800e-03,.3470800e-03,&
8358  & .3206900e-03,.2800500e-03,.2252200e-03,.1524200e-03,.8161900e-05/
8359 
8360  data absa(181:315, 3) / &
8361  & .2152600e-03,.2711500e-03,.2750500e-03,.2680200e-03,.2496800e-03,&
8362  & .2169000e-03,.1748100e-03,.1190600e-03,.5085000e-05,.2161100e-03,&
8363  & .2762100e-03,.2829800e-03,.2762000e-03,.2572200e-03,.2241100e-03,&
8364  & .1800400e-03,.1219700e-03,.5573800e-05,.2158300e-03,.2806000e-03,&
8365  & .2895500e-03,.2828200e-03,.2634600e-03,.2300500e-03,.1841500e-03,&
8366  & .1245100e-03,.6086400e-05,.2144600e-03,.2836300e-03,.2946900e-03,&
8367  & .2889600e-03,.2686000e-03,.2343500e-03,.1876800e-03,.1269000e-03,&
8368  & .6641700e-05,.2121700e-03,.2862600e-03,.2992900e-03,.2937000e-03,&
8369  & .2725000e-03,.2376300e-03,.1907300e-03,.1290900e-03,.7212200e-05,&
8370  & .1826200e-03,.2311200e-03,.2338800e-03,.2268100e-03,.2106200e-03,&
8371  & .1819600e-03,.1463400e-03,.9970700e-04,.4807800e-05,.1839300e-03,&
8372  & .2359100e-03,.2409400e-03,.2336400e-03,.2166300e-03,.1881400e-03,&
8373  & .1511400e-03,.1020500e-03,.5225200e-05,.1837900e-03,.2398400e-03,&
8374  & .2467600e-03,.2395600e-03,.2222100e-03,.1935600e-03,.1548900e-03,&
8375  & .1043400e-03,.5640500e-05,.1827000e-03,.2425800e-03,.2510200e-03,&
8376  & .2445800e-03,.2268500e-03,.1977100e-03,.1580500e-03,.1065500e-03,&
8377  & .6072800e-05,.1806700e-03,.2444600e-03,.2546700e-03,.2489400e-03,&
8378  & .2305100e-03,.2005600e-03,.1608800e-03,.1084400e-03,.6516000e-05,&
8379  & .1526900e-03,.1940700e-03,.1964000e-03,.1907300e-03,.1771500e-03,&
8380  & .1522400e-03,.1218100e-03,.8330200e-04,.4518500e-05,.1545000e-03,&
8381  & .1983400e-03,.2024600e-03,.1967500e-03,.1824200e-03,.1577600e-03,&
8382  & .1261000e-03,.8530600e-04,.4931500e-05,.1545900e-03,.2017800e-03,&
8383  & .2075900e-03,.2017600e-03,.1873700e-03,.1623300e-03,.1295100e-03,&
8384  & .8741700e-04,.5349100e-05,.1536800e-03,.2041000e-03,.2116000e-03,&
8385  & .2062300e-03,.1916100e-03,.1660300e-03,.1324600e-03,.8923700e-04,&
8386  & .5756200e-05,.1520700e-03,.2056700e-03,.2145800e-03,.2099100e-03,&
8387  & .1952500e-03,.1690600e-03,.1348100e-03,.9093200e-04,.6165900e-05/
8388 
8389  data absa(316:450, 3) / &
8390  & .1267200e-03,.1615900e-03,.1632900e-03,.1582100e-03,.1474600e-03,&
8391  & .1262400e-03,.1011600e-03,.6930600e-04,.4665200e-05,.1285300e-03,&
8392  & .1653900e-03,.1685900e-03,.1635900e-03,.1520800e-03,.1312000e-03,&
8393  & .1051300e-03,.7100500e-04,.5139200e-05,.1290100e-03,.1684100e-03,&
8394  & .1730100e-03,.1681300e-03,.1561400e-03,.1353200e-03,.1082900e-03,&
8395  & .7286300e-04,.5524400e-05,.1283300e-03,.1705800e-03,.1765200e-03,&
8396  & .1718400e-03,.1597100e-03,.1386700e-03,.1108700e-03,.7447500e-04,&
8397  & .5819300e-05,.1271500e-03,.1719700e-03,.1791800e-03,.1751300e-03,&
8398  & .1629200e-03,.1414400e-03,.1130100e-03,.7596500e-04,.6170500e-05,&
8399  & .1042800e-03,.1334800e-03,.1346200e-03,.1299500e-03,.1215800e-03,&
8400  & .1037900e-03,.8300500e-04,.5737100e-04,.5596500e-05,.1061900e-03,&
8401  & .1371000e-03,.1393200e-03,.1346900e-03,.1253800e-03,.1080000e-03,&
8402  & .8663200e-04,.5895400e-04,.6196100e-05,.1069000e-03,.1397800e-03,&
8403  & .1431500e-03,.1387700e-03,.1288500e-03,.1116900e-03,.8964300e-04,&
8404  & .6056800e-04,.6852600e-05,.1066800e-03,.1417800e-03,.1462600e-03,&
8405  & .1421300e-03,.1320700e-03,.1146800e-03,.9198400e-04,.6207000e-04,&
8406  & .7512200e-05,.1058200e-03,.1431600e-03,.1487300e-03,.1450100e-03,&
8407  & .1347100e-03,.1170400e-03,.9387600e-04,.6338800e-04,.8076100e-05,&
8408  & .8547600e-04,.1098200e-03,.1103400e-03,.1064300e-03,.9970200e-04,&
8409  & .8496700e-04,.6800800e-04,.4722900e-04,.6614500e-05,.8724200e-04,&
8410  & .1132200e-03,.1146300e-03,.1104500e-03,.1029300e-03,.8858000e-04,&
8411  & .7111300e-04,.4863100e-04,.7545200e-05,.8811100e-04,.1156300e-03,&
8412  & .1179200e-03,.1140400e-03,.1058700e-03,.9187700e-04,.7379000e-04,&
8413  & .5004400e-04,.8488100e-05,.8820000e-04,.1174300e-03,.1206500e-03,&
8414  & .1170800e-03,.1087000e-03,.9448000e-04,.7589700e-04,.5138400e-04,&
8415  & .9513600e-05,.8758300e-04,.1187100e-03,.1229200e-03,.1195400e-03,&
8416  & .1110300e-03,.9652300e-04,.7752600e-04,.5251800e-04,.1053200e-04/
8417 
8418  data absa(451:585, 3) / &
8419  & .7055600e-04,.9142800e-04,.9186700e-04,.8846300e-04,.8284600e-04,&
8420  & .7077400e-04,.5663200e-04,.3916700e-04,.6187200e-05,.7193300e-04,&
8421  & .9418200e-04,.9526900e-04,.9164600e-04,.8538300e-04,.7373800e-04,&
8422  & .5921900e-04,.4047400e-04,.6996500e-05,.7256700e-04,.9609800e-04,&
8423  & .9792700e-04,.9460600e-04,.8783700e-04,.7637000e-04,.6132600e-04,&
8424  & .4163300e-04,.7823500e-05,.7252900e-04,.9753200e-04,.1001100e-03,&
8425  & .9707600e-04,.9013400e-04,.7842800e-04,.6301600e-04,.4275400e-04,&
8426  & .8790400e-05,.7199000e-04,.9855200e-04,.1019300e-03,.9908000e-04,&
8427  & .9209100e-04,.8006800e-04,.6434900e-04,.4367400e-04,.9801100e-05,&
8428  & .5807200e-04,.7581500e-04,.7616800e-04,.7325200e-04,.6852100e-04,&
8429  & .5874800e-04,.4702900e-04,.3243000e-04,.5183800e-05,.5914900e-04,&
8430  & .7800500e-04,.7888900e-04,.7585300e-04,.7069100e-04,.6116000e-04,&
8431  & .4910500e-04,.3357200e-04,.5866900e-05,.5961500e-04,.7957200e-04,&
8432  & .8104300e-04,.7830100e-04,.7271600e-04,.6326500e-04,.5077700e-04,&
8433  & .3450600e-04,.6646400e-05,.5950600e-04,.8071200e-04,.8281100e-04,&
8434  & .8032100e-04,.7457100e-04,.6493500e-04,.5216500e-04,.3544700e-04,&
8435  & .7441200e-05,.5906700e-04,.8152000e-04,.8428800e-04,.8197700e-04,&
8436  & .7617200e-04,.6625900e-04,.5328100e-04,.3617800e-04,.8246500e-05,&
8437  & .4764000e-04,.6258300e-04,.6288700e-04,.6048500e-04,.5655900e-04,&
8438  & .4862400e-04,.3890400e-04,.2677300e-04,.4058200e-05,.4849800e-04,&
8439  & .6437900e-04,.6508700e-04,.6264100e-04,.5837700e-04,.5057200e-04,&
8440  & .4056600e-04,.2771700e-04,.4661600e-05,.4884400e-04,.6565600e-04,&
8441  & .6685100e-04,.6462800e-04,.6004200e-04,.5225400e-04,.4191700e-04,&
8442  & .2851000e-04,.5320400e-05,.4872200e-04,.6657400e-04,.6830300e-04,&
8443  & .6630000e-04,.6154700e-04,.5361400e-04,.4305800e-04,.2925400e-04,&
8444  & .5944200e-05,.4835500e-04,.6721700e-04,.6951100e-04,.6765100e-04,&
8445  & .6286400e-04,.5471200e-04,.4399800e-04,.2987500e-04,.6643600e-05/
8446 
8447  data absa( 1:180, 4) / &
8448  & .8538700e-03,.9726800e-03,.9520100e-03,.8922600e-03,.8146500e-03,&
8449  & .6970700e-03,.5482900e-03,.3588200e-03,.3792000e-04,.8549600e-03,&
8450  & .9874600e-03,.9718800e-03,.9177500e-03,.8352900e-03,.7164900e-03,&
8451  & .5637600e-03,.3706100e-03,.4315500e-04,.8515400e-03,.9990800e-03,&
8452  & .9896900e-03,.9401400e-03,.8560400e-03,.7337900e-03,.5783200e-03,&
8453  & .3818300e-03,.4870200e-04,.8460600e-03,.1009000e-02,.1006800e-02,&
8454  & .9594400e-03,.8743400e-03,.7497500e-03,.5924300e-03,.3918800e-03,&
8455  & .5402200e-04,.8406100e-03,.1017100e-02,.1021800e-02,.9768400e-03,&
8456  & .8890600e-03,.7634500e-03,.6047100e-03,.4018000e-03,.5977800e-04,&
8457  & .7610600e-03,.8676300e-03,.8462000e-03,.7933700e-03,.7236800e-03,&
8458  & .6263300e-03,.4916800e-03,.3234600e-03,.3132200e-04,.7615300e-03,&
8459  & .8814800e-03,.8634900e-03,.8155900e-03,.7448000e-03,.6444800e-03,&
8460  & .5063500e-03,.3343000e-03,.3556600e-04,.7597700e-03,.8919500e-03,&
8461  & .8787100e-03,.8360500e-03,.7628600e-03,.6612700e-03,.5195900e-03,&
8462  & .3447200e-03,.3970500e-04,.7577100e-03,.8998700e-03,.8940600e-03,&
8463  & .8553000e-03,.7812300e-03,.6761200e-03,.5322100e-03,.3544700e-03,&
8464  & .4426600e-04,.7528900e-03,.9065700e-03,.9077100e-03,.8720000e-03,&
8465  & .7971500e-03,.6892600e-03,.5438200e-03,.3637200e-03,.4870800e-04,&
8466  & .6689300e-03,.7624600e-03,.7433400e-03,.6975200e-03,.6350100e-03,&
8467  & .5536200e-03,.4345500e-03,.2884300e-03,.2426000e-04,.6711800e-03,&
8468  & .7758800e-03,.7594400e-03,.7171000e-03,.6546100e-03,.5712200e-03,&
8469  & .4499100e-03,.2990600e-03,.2743400e-04,.6721800e-03,.7850500e-03,&
8470  & .7732800e-03,.7349700e-03,.6728600e-03,.5871800e-03,.4637500e-03,&
8471  & .3093300e-03,.3080800e-04,.6705800e-03,.7924200e-03,.7862700e-03,&
8472  & .7518100e-03,.6894600e-03,.6018300e-03,.4753200e-03,.3174300e-03,&
8473  & .3432400e-04,.6646700e-03,.7982200e-03,.7977600e-03,.7677900e-03,&
8474  & .7048100e-03,.6151000e-03,.4855300e-03,.3252600e-03,.3790500e-04,&
8475  & .5829700e-03,.6602000e-03,.6433700e-03,.6061000e-03,.5522200e-03,&
8476  & .4833800e-03,.3815400e-03,.2553700e-03,.2005400e-04,.5861600e-03,&
8477  & .6731100e-03,.6576400e-03,.6236200e-03,.5699600e-03,.4993900e-03,&
8478  & .3965700e-03,.2641800e-03,.2245700e-04,.5871900e-03,.6829100e-03,&
8479  & .6701400e-03,.6392600e-03,.5870300e-03,.5145300e-03,.4097600e-03,&
8480  & .2728000e-03,.2497400e-04,.5845100e-03,.6892500e-03,.6814400e-03,&
8481  & .6541000e-03,.6031200e-03,.5290300e-03,.4214700e-03,.2809600e-03,&
8482  & .2761300e-04,.5788500e-03,.6936900e-03,.6915300e-03,.6672500e-03,&
8483  & .6166600e-03,.5411400e-03,.4312300e-03,.2890700e-03,.3024300e-04/
8484 
8485  data absa(181:315, 4) / &
8486  & .5063900e-03,.5689700e-03,.5541200e-03,.5212700e-03,.4734100e-03,&
8487  & .4166900e-03,.3329300e-03,.2221500e-03,.1705700e-04,.5106500e-03,&
8488  & .5811100e-03,.5674000e-03,.5364200e-03,.4897000e-03,.4316600e-03,&
8489  & .3467100e-03,.2311100e-03,.1919100e-04,.5113100e-03,.5892300e-03,&
8490  & .5780200e-03,.5498900e-03,.5051900e-03,.4452000e-03,.3586700e-03,&
8491  & .2395500e-03,.2123800e-04,.5088800e-03,.5943200e-03,.5870000e-03,&
8492  & .5623800e-03,.5189900e-03,.4578700e-03,.3696000e-03,.2473300e-03,&
8493  & .2344200e-04,.5041100e-03,.5980400e-03,.5949700e-03,.5734200e-03,&
8494  & .5315800e-03,.4692400e-03,.3788600e-03,.2545000e-03,.2575600e-04,&
8495  & .4367300e-03,.4878200e-03,.4749900e-03,.4462900e-03,.4035400e-03,&
8496  & .3545700e-03,.2860500e-03,.1908600e-03,.1470200e-04,.4410200e-03,&
8497  & .4983100e-03,.4863900e-03,.4594300e-03,.4187900e-03,.3680800e-03,&
8498  & .2980200e-03,.1998500e-03,.1647100e-04,.4422100e-03,.5051800e-03,&
8499  & .4953800e-03,.4707500e-03,.4318300e-03,.3799500e-03,.3088200e-03,&
8500  & .2076300e-03,.1842000e-04,.4401700e-03,.5099400e-03,.5032300e-03,&
8501  & .4814100e-03,.4436000e-03,.3911600e-03,.3184400e-03,.2146000e-03,&
8502  & .2047300e-04,.4365600e-03,.5124900e-03,.5100000e-03,.4906800e-03,&
8503  & .4542500e-03,.4010700e-03,.3265300e-03,.2210900e-03,.2260000e-04,&
8504  & .3762700e-03,.4152500e-03,.4036500e-03,.3792300e-03,.3425700e-03,&
8505  & .3014700e-03,.2432400e-03,.1609400e-03,.1340000e-04,.3805100e-03,&
8506  & .4248900e-03,.4140000e-03,.3906700e-03,.3555500e-03,.3125700e-03,&
8507  & .2535300e-03,.1694700e-03,.1490500e-04,.3819600e-03,.4315400e-03,&
8508  & .4216900e-03,.4003500e-03,.3670300e-03,.3231100e-03,.2629100e-03,&
8509  & .1767200e-03,.1656600e-04,.3810800e-03,.4358700e-03,.4280900e-03,&
8510  & .4089000e-03,.3769400e-03,.3324600e-03,.2709400e-03,.1830500e-03,&
8511  & .1835200e-04,.3785400e-03,.4388900e-03,.4340200e-03,.4169700e-03,&
8512  & .3853200e-03,.3407400e-03,.2781600e-03,.1887300e-03,.2022000e-04/
8513 
8514  data absa(316:450, 4) / &
8515  & .3196800e-03,.3530100e-03,.3431000e-03,.3220600e-03,.2890400e-03,&
8516  & .2535600e-03,.2052300e-03,.1343200e-03,.1354800e-04,.3238600e-03,&
8517  & .3622900e-03,.3528800e-03,.3321400e-03,.3003300e-03,.2634500e-03,&
8518  & .2137400e-03,.1419800e-03,.1496600e-04,.3252100e-03,.3684800e-03,&
8519  & .3598600e-03,.3405600e-03,.3104200e-03,.2722200e-03,.2211500e-03,&
8520  & .1484100e-03,.1627800e-04,.3252700e-03,.3725800e-03,.3655300e-03,&
8521  & .3481100e-03,.3191600e-03,.2803400e-03,.2283700e-03,.1544300e-03,&
8522  & .1761400e-04,.3227200e-03,.3753300e-03,.3702500e-03,.3543800e-03,&
8523  & .3263200e-03,.2874000e-03,.2348400e-03,.1595200e-03,.1907500e-04,&
8524  & .2679400e-03,.2965500e-03,.2885100e-03,.2715500e-03,.2429000e-03,&
8525  & .2118200e-03,.1718700e-03,.1115800e-03,.1689300e-04,.2721500e-03,&
8526  & .3047700e-03,.2976500e-03,.2807500e-03,.2533600e-03,.2212000e-03,&
8527  & .1785800e-03,.1179400e-03,.1857600e-04,.2740000e-03,.3106100e-03,&
8528  & .3044700e-03,.2883600e-03,.2622400e-03,.2288600e-03,.1847400e-03,&
8529  & .1237200e-03,.2005600e-04,.2738500e-03,.3142400e-03,.3092300e-03,&
8530  & .2947700e-03,.2697700e-03,.2355400e-03,.1909300e-03,.1288400e-03,&
8531  & .2132100e-04,.2719600e-03,.3164700e-03,.3130800e-03,.3000600e-03,&
8532  & .2760400e-03,.2419100e-03,.1964900e-03,.1335200e-03,.2261100e-04,&
8533  & .2225500e-03,.2471600e-03,.2408700e-03,.2267200e-03,.2021600e-03,&
8534  & .1758200e-03,.1433900e-03,.9252800e-04,.2247100e-04,.2266300e-03,&
8535  & .2542900e-03,.2490800e-03,.2350600e-03,.2116700e-03,.1837700e-03,&
8536  & .1491000e-03,.9797200e-04,.2453600e-04,.2286700e-03,.2596300e-03,&
8537  & .2553200e-03,.2416900e-03,.2192300e-03,.1906700e-03,.1545800e-03,&
8538  & .1029300e-03,.2645300e-04,.2285300e-03,.2627300e-03,.2596000e-03,&
8539  & .2470400e-03,.2254900e-03,.1967900e-03,.1596800e-03,.1072800e-03,&
8540  & .2838300e-04,.2270400e-03,.2646900e-03,.2625900e-03,.2514100e-03,&
8541  & .2308000e-03,.2021600e-03,.1643300e-03,.1111600e-03,.3011100e-04/
8542 
8543  data absa(451:585, 4) / &
8544  & .1857000e-03,.2079100e-03,.2031000e-03,.1910600e-03,.1706600e-03,&
8545  & .1479700e-03,.1209700e-03,.7870400e-04,.2072000e-04,.1886800e-03,&
8546  & .2135600e-03,.2096900e-03,.1980700e-03,.1782100e-03,.1543400e-03,&
8547  & .1258400e-03,.8317900e-04,.2326800e-04,.1897200e-03,.2173200e-03,&
8548  & .2144700e-03,.2030500e-03,.1841600e-03,.1599300e-03,.1300600e-03,&
8549  & .8713400e-04,.2578100e-04,.1892900e-03,.2195500e-03,.2177100e-03,&
8550  & .2071100e-03,.1890700e-03,.1649300e-03,.1342000e-03,.9069900e-04,&
8551  & .2818100e-04,.1876600e-03,.2209500e-03,.2198700e-03,.2104500e-03,&
8552  & .1931200e-03,.1693400e-03,.1381200e-03,.9384000e-04,.3048900e-04,&
8553  & .1540900e-03,.1739900e-03,.1701000e-03,.1600200e-03,.1431100e-03,&
8554  & .1237600e-03,.1012100e-03,.6642800e-04,.1781300e-04,.1559900e-03,&
8555  & .1783100e-03,.1752100e-03,.1655400e-03,.1489000e-03,.1288100e-03,&
8556  & .1052700e-03,.6996400e-04,.1991800e-04,.1566100e-03,.1811900e-03,&
8557  & .1789200e-03,.1693400e-03,.1536500e-03,.1333800e-03,.1086400e-03,&
8558  & .7314200e-04,.2212100e-04,.1560800e-03,.1829300e-03,.1814500e-03,&
8559  & .1725400e-03,.1574300e-03,.1374700e-03,.1120900e-03,.7597100e-04,&
8560  & .2442500e-04,.1545300e-03,.1838300e-03,.1830900e-03,.1751000e-03,&
8561  & .1606700e-03,.1410200e-03,.1152900e-03,.7860700e-04,.2679100e-04,&
8562  & .1270500e-03,.1448500e-03,.1415500e-03,.1331200e-03,.1191400e-03,&
8563  & .1029900e-03,.8441600e-04,.5559800e-04,.1442900e-04,.1284300e-03,&
8564  & .1482200e-03,.1455500e-03,.1374800e-03,.1237700e-03,.1070200e-03,&
8565  & .8752000e-04,.5840500e-04,.1614700e-04,.1287500e-03,.1504300e-03,&
8566  & .1485000e-03,.1405300e-03,.1275200e-03,.1108100e-03,.9034800e-04,&
8567  & .6093400e-04,.1799200e-04,.1282200e-03,.1517500e-03,.1504900e-03,&
8568  & .1430100e-03,.1305900e-03,.1141300e-03,.9317100e-04,.6329600e-04,&
8569  & .1988800e-04,.1268400e-03,.1523900e-03,.1517900e-03,.1451100e-03,&
8570  & .1332000e-03,.1170200e-03,.9578600e-04,.6546800e-04,.2170600e-04/
8571 
8572  data absa( 1:180, 5) / &
8573  & .2275875e-02,.2332064e-02,.2216796e-02,.2037339e-02,.1810754e-02,&
8574  & .1542017e-02,.1221835e-02,.8225168e-03,.2378785e-03,.2274525e-02,&
8575  & .2355192e-02,.2253198e-02,.2079119e-02,.1858235e-02,.1590203e-02,&
8576  & .1266759e-02,.8576253e-03,.2590612e-03,.2266023e-02,.2375024e-02,&
8577  & .2283817e-02,.2117878e-02,.1902253e-02,.1637433e-02,.1310064e-02,&
8578  & .8925666e-03,.2839408e-03,.2251924e-02,.2389473e-02,.2311430e-02,&
8579  & .2154739e-02,.1945283e-02,.1682775e-02,.1352510e-02,.9268463e-03,&
8580  & .3108163e-03,.2232455e-02,.2399259e-02,.2336395e-02,.2189553e-02,&
8581  & .1986811e-02,.1727976e-02,.1393776e-02,.9592790e-03,.3382077e-03,&
8582  & .2106993e-02,.2154787e-02,.2043104e-02,.1868719e-02,.1654669e-02,&
8583  & .1404007e-02,.1111065e-02,.7507219e-03,.1949377e-03,.2109908e-02,&
8584  & .2178927e-02,.2078863e-02,.1908781e-02,.1697578e-02,.1448872e-02,&
8585  & .1153419e-02,.7832801e-03,.2139563e-03,.2105465e-02,.2199441e-02,&
8586  & .2109463e-02,.1944753e-02,.1739524e-02,.1492018e-02,.1195120e-02,&
8587  & .8155632e-03,.2349725e-03,.2093796e-02,.2214377e-02,.2136026e-02,&
8588  & .1977275e-02,.1778542e-02,.1533694e-02,.1236220e-02,.8467658e-03,&
8589  & .2569866e-03,.2076724e-02,.2225712e-02,.2159173e-02,.2008267e-02,&
8590  & .1816462e-02,.1574183e-02,.1275209e-02,.8771670e-03,.2791186e-03,&
8591  & .1940537e-02,.1975605e-02,.1864311e-02,.1695911e-02,.1496137e-02,&
8592  & .1263628e-02,.9971610e-03,.6738674e-03,.1565544e-03,.1948245e-02,&
8593  & .2001986e-02,.1900553e-02,.1736295e-02,.1537745e-02,.1305077e-02,&
8594  & .1036131e-02,.7035141e-03,.1728753e-03,.1946880e-02,.2024379e-02,&
8595  & .1930764e-02,.1771154e-02,.1575770e-02,.1344673e-02,.1074374e-02,&
8596  & .7332422e-03,.1899479e-03,.1938868e-02,.2041140e-02,.1955874e-02,&
8597  & .1802287e-02,.1611440e-02,.1382812e-02,.1112406e-02,.7633322e-03,&
8598  & .2072614e-03,.1926362e-02,.2054363e-02,.1977970e-02,.1829838e-02,&
8599  & .1645759e-02,.1419736e-02,.1149822e-02,.7922080e-03,.2267149e-03,&
8600  & .1777321e-02,.1802735e-02,.1693881e-02,.1532687e-02,.1345353e-02,&
8601  & .1130261e-02,.8895753e-03,.5968647e-03,.1247261e-03,.1788584e-02,&
8602  & .1831387e-02,.1729859e-02,.1572174e-02,.1384900e-02,.1169670e-02,&
8603  & .9252263e-03,.6260595e-03,.1385262e-03,.1791618e-02,.1854218e-02,&
8604  & .1759929e-02,.1606995e-02,.1420262e-02,.1206226e-02,.9598075e-03,&
8605  & .6546109e-03,.1526122e-03,.1788339e-02,.1872013e-02,.1786084e-02,&
8606  & .1636442e-02,.1452167e-02,.1240664e-02,.9939639e-03,.6826539e-03,&
8607  & .1672628e-03,.1778773e-02,.1885271e-02,.1807813e-02,.1662029e-02,&
8608  & .1483280e-02,.1274547e-02,.1027899e-02,.7097707e-03,.1836638e-03/
8609 
8610  data absa(181:315, 5) / &
8611  & .1611039e-02,.1628826e-02,.1528886e-02,.1381805e-02,.1208375e-02,&
8612  & .1011477e-02,.7896015e-03,.5279159e-03,.9908775e-04,.1625251e-02,&
8613  & .1659059e-02,.1564750e-02,.1419820e-02,.1247291e-02,.1047725e-02,&
8614  & .8222728e-03,.5541873e-03,.1104539e-03,.1631934e-02,.1683911e-02,&
8615  & .1595157e-02,.1453710e-02,.1281311e-02,.1080902e-02,.8540548e-03,&
8616  & .5806197e-03,.1219897e-03,.1631403e-02,.1703448e-02,.1621164e-02,&
8617  & .1482847e-02,.1310904e-02,.1111385e-02,.8847073e-03,.6065309e-03,&
8618  & .1346152e-03,.1624079e-02,.1717008e-02,.1643088e-02,.1507761e-02,&
8619  & .1337964e-02,.1141306e-02,.9151343e-03,.6325088e-03,.1481383e-03,&
8620  & .1446415e-02,.1455765e-02,.1361590e-02,.1229351e-02,.1074912e-02,&
8621  & .9006186e-03,.7006813e-03,.4647234e-03,.8189242e-04,.1463779e-02,&
8622  & .1487367e-02,.1398211e-02,.1267666e-02,.1112416e-02,.9358187e-03,&
8623  & .7313361e-03,.4886301e-03,.9135341e-04,.1472351e-02,.1513138e-02,&
8624  & .1428682e-02,.1300953e-02,.1145840e-02,.9675370e-03,.7596020e-03,&
8625  & .5122126e-03,.1005443e-03,.1474221e-02,.1532600e-02,.1454339e-02,&
8626  & .1329459e-02,.1174906e-02,.9956373e-03,.7867852e-03,.5359551e-03,&
8627  & .1109812e-03,.1468517e-02,.1546507e-02,.1474790e-02,.1352688e-02,&
8628  & .1200227e-02,.1022681e-02,.8131587e-03,.5591171e-03,.1219361e-03,&
8629  & .1282142e-02,.1287927e-02,.1202141e-02,.1083733e-02,.9460514e-03,&
8630  & .7915341e-03,.6168183e-03,.4084185e-03,.6913010e-04,.1301052e-02,&
8631  & .1319819e-02,.1238509e-02,.1121340e-02,.9823064e-03,.8254094e-03,&
8632  & .6455635e-03,.4300976e-03,.7651588e-04,.1311903e-02,.1345238e-02,&
8633  & .1268573e-02,.1153718e-02,.1014080e-02,.8553954e-03,.6719282e-03,&
8634  & .4514177e-03,.8484352e-04,.1314609e-02,.1365010e-02,.1292722e-02,&
8635  & .1180653e-02,.1041774e-02,.8822963e-03,.6970864e-03,.4722480e-03,&
8636  & .9377363e-04,.1310264e-02,.1377648e-02,.1311780e-02,.1202781e-02,&
8637  & .1065878e-02,.9070933e-03,.7215140e-03,.4928747e-03,.1032168e-03/
8638 
8639  data absa(316:450, 5) / &
8640  & .1123722e-02,.1125509e-02,.1049077e-02,.9463051e-03,.8264962e-03,&
8641  & .6910472e-03,.5381327e-03,.3566196e-03,.6074714e-04,.1144528e-02,&
8642  & .1157108e-02,.1084145e-02,.9824251e-03,.8612451e-03,.7227531e-03,&
8643  & .5650534e-03,.3769954e-03,.6752101e-04,.1156115e-02,.1182481e-02,&
8644  & .1113388e-02,.1013135e-02,.8909498e-03,.7510056e-03,.5899576e-03,&
8645  & .3965626e-03,.7509877e-04,.1159636e-02,.1200610e-02,.1136628e-02,&
8646  & .1038419e-02,.9163190e-03,.7757266e-03,.6129711e-03,.4156689e-03,&
8647  & .8319483e-04,.1156675e-02,.1212668e-02,.1153943e-02,.1059223e-02,&
8648  & .9387272e-03,.7983980e-03,.6348116e-03,.4345877e-03,.9149048e-04,&
8649  & .9788217e-03,.9762902e-03,.9076191e-03,.8180805e-03,.7140719e-03,&
8650  & .5979311e-03,.4657057e-03,.3080365e-03,.6376560e-04,.9995801e-03,&
8651  & .1006767e-02,.9409303e-03,.8518710e-03,.7465719e-03,.6272074e-03,&
8652  & .4915396e-03,.3271476e-03,.7043059e-04,.1011283e-02,.1030289e-02,&
8653  & .9679162e-03,.8806454e-03,.7743638e-03,.6533475e-03,.5145414e-03,&
8654  & .3451157e-03,.7748348e-04,.1015523e-02,.1047024e-02,.9891231e-03,&
8655  & .9038676e-03,.7980900e-03,.6765444e-03,.5353367e-03,.3623073e-03,&
8656  & .8485843e-04,.1014685e-02,.1058164e-02,.1005055e-02,.9228604e-03,&
8657  & .8183767e-03,.6971991e-03,.5549716e-03,.3793243e-03,.9265390e-04,&
8658  & .8467257e-03,.8439047e-03,.7839737e-03,.7069600e-03,.6168442e-03,&
8659  & .5161363e-03,.4002993e-03,.2648075e-03,.8538662e-04,.8663801e-03,&
8660  & .8726556e-03,.8143622e-03,.7377253e-03,.6460394e-03,.5429897e-03,&
8661  & .4242444e-03,.2822342e-03,.9232499e-04,.8777160e-03,.8939799e-03,&
8662  & .8388502e-03,.7633777e-03,.6710202e-03,.5661949e-03,.4453570e-03,&
8663  & .2983921e-03,.9968327e-04,.8822976e-03,.9090305e-03,.8576617e-03,&
8664  & .7836215e-03,.6918973e-03,.5865524e-03,.4643056e-03,.3139878e-03,&
8665  & .1075001e-03,.8816821e-03,.9194329e-03,.8721358e-03,.8002626e-03,&
8666  & .7096839e-03,.6047828e-03,.4818629e-03,.3291128e-03,.1153966e-03/
8667 
8668  data absa(451:585, 5) / &
8669  & .7345259e-03,.7353571e-03,.6844124e-03,.6191407e-03,.5419865e-03,&
8670  & .4543535e-03,.3524790e-03,.2326534e-03,.8831490e-04,.7490617e-03,&
8671  & .7579739e-03,.7093615e-03,.6447658e-03,.5665622e-03,.4774427e-03,&
8672  & .3729073e-03,.2477509e-03,.9439904e-04,.7564292e-03,.7744541e-03,&
8673  & .7287630e-03,.6652977e-03,.5871248e-03,.4970065e-03,.3911667e-03,&
8674  & .2619945e-03,.9990772e-04,.7586881e-03,.7858289e-03,.7437324e-03,&
8675  & .6818515e-03,.6043581e-03,.5141276e-03,.4072910e-03,.2755984e-03,&
8676  & .1066252e-03,.7563639e-03,.7931595e-03,.7548375e-03,.6950726e-03,&
8677  & .6192222e-03,.5294685e-03,.4222590e-03,.2889243e-03,.1133924e-03,&
8678  & .6314226e-03,.6349627e-03,.5926562e-03,.5376114e-03,.4719251e-03,&
8679  & .3962308e-03,.3074879e-03,.2032569e-03,.8003266e-04,.6418725e-03,&
8680  & .6525898e-03,.6125061e-03,.5580757e-03,.4921735e-03,.4155327e-03,&
8681  & .3248794e-03,.2162533e-03,.8576530e-04,.6471266e-03,.6653221e-03,&
8682  & .6276452e-03,.5745768e-03,.5090609e-03,.4319430e-03,.3403545e-03,&
8683  & .2285539e-03,.9041149e-04,.6478227e-03,.6738338e-03,.6394020e-03,&
8684  & .5876220e-03,.5231812e-03,.4462724e-03,.3541410e-03,.2403090e-03,&
8685  & .9584348e-04,.6442291e-03,.6788200e-03,.6475947e-03,.5980228e-03,&
8686  & .5350971e-03,.4588656e-03,.3667841e-03,.2515799e-03,.1017699e-03,&
8687  & .5366413e-03,.5433012e-03,.5091779e-03,.4634801e-03,.4076173e-03,&
8688  & .3421937e-03,.2655508e-03,.1759732e-03,.6609799e-04,.5446297e-03,&
8689  & .5573704e-03,.5249762e-03,.4800512e-03,.4241853e-03,.3581272e-03,&
8690  & .2800981e-03,.1871731e-03,.7047861e-04,.5481742e-03,.5672989e-03,&
8691  & .5373039e-03,.4932643e-03,.4379422e-03,.3716071e-03,.2930461e-03,&
8692  & .1977626e-03,.7433299e-04,.5476171e-03,.5738401e-03,.5461812e-03,&
8693  & .5035685e-03,.4492907e-03,.3832995e-03,.3046021e-03,.2077508e-03,&
8694  & .7880238e-04,.5438946e-03,.5774436e-03,.5525251e-03,.5119901e-03,&
8695  & .4590263e-03,.3938170e-03,.3152705e-03,.2173888e-03,.8388184e-04/
8696 
8697  data absa( 1:180, 6) / &
8698  & .7453129e-02,.7117405e-02,.6661341e-02,.6078589e-02,.5376308e-02,&
8699  & .4581666e-02,.3692876e-02,.2668674e-02,.1857553e-02,.7414650e-02,&
8700  & .7132841e-02,.6723850e-02,.6175876e-02,.5501579e-02,.4730655e-02,&
8701  & .3847363e-02,.2834084e-02,.2101417e-02,.7367697e-02,.7142450e-02,&
8702  & .6787572e-02,.6271236e-02,.5628812e-02,.4876081e-02,.4005906e-02,&
8703  & .3014246e-02,.2361444e-02,.7309381e-02,.7154158e-02,.6847198e-02,&
8704  & .6364336e-02,.5757194e-02,.5023915e-02,.4174265e-02,.3211257e-02,&
8705  & .2644919e-02,.7240917e-02,.7165375e-02,.6901545e-02,.6460272e-02,&
8706  & .5886974e-02,.5176789e-02,.4355003e-02,.3427381e-02,.2951988e-02,&
8707  & .7302417e-02,.6986029e-02,.6506078e-02,.5915241e-02,.5213714e-02,&
8708  & .4409454e-02,.3509969e-02,.2477433e-02,.1531293e-02,.7272446e-02,&
8709  & .7005207e-02,.6569159e-02,.6009028e-02,.5333024e-02,.4547186e-02,&
8710  & .3651478e-02,.2623452e-02,.1730635e-02,.7229818e-02,.7019119e-02,&
8711  & .6631639e-02,.6101575e-02,.5452906e-02,.4682444e-02,.3795174e-02,&
8712  & .2779605e-02,.1947925e-02,.7174295e-02,.7033174e-02,.6689925e-02,&
8713  & .6193261e-02,.5571003e-02,.4818428e-02,.3945240e-02,.2947728e-02,&
8714  & .2183570e-02,.7110805e-02,.7045732e-02,.6744602e-02,.6284811e-02,&
8715  & .5687916e-02,.4958393e-02,.4105561e-02,.3129372e-02,.2439844e-02,&
8716  & .7107732e-02,.6797516e-02,.6299565e-02,.5698070e-02,.4995391e-02,&
8717  & .4198481e-02,.3302300e-02,.2275195e-02,.1230993e-02,.7086152e-02,&
8718  & .6823070e-02,.6363343e-02,.5788270e-02,.5108424e-02,.4328271e-02,&
8719  & .3431427e-02,.2406277e-02,.1392637e-02,.7052294e-02,.6841431e-02,&
8720  & .6426576e-02,.5878051e-02,.5223227e-02,.4454560e-02,.3563303e-02,&
8721  & .2543558e-02,.1569089e-02,.7006893e-02,.6857640e-02,.6486440e-02,&
8722  & .5967434e-02,.5334883e-02,.4578334e-02,.3699649e-02,.2688020e-02,&
8723  & .1760440e-02,.6949333e-02,.6870773e-02,.6541587e-02,.6057335e-02,&
8724  & .5442169e-02,.4706411e-02,.3839426e-02,.2841732e-02,.1964963e-02,&
8725  & .6855130e-02,.6551944e-02,.6044314e-02,.5438518e-02,.4743060e-02,&
8726  & .3966419e-02,.3087108e-02,.2087789e-02,.9879948e-03,.6846892e-02,&
8727  & .6585398e-02,.6112347e-02,.5528377e-02,.4852610e-02,.4086708e-02,&
8728  & .3208051e-02,.2203856e-02,.1119742e-02,.6824941e-02,.6610372e-02,&
8729  & .6177682e-02,.5615844e-02,.4962743e-02,.4204184e-02,.3329715e-02,&
8730  & .2324960e-02,.1263158e-02,.6787743e-02,.6632257e-02,.6236180e-02,&
8731  & .5702032e-02,.5069502e-02,.4319861e-02,.3453836e-02,.2450583e-02,&
8732  & .1417217e-02,.6740085e-02,.6651560e-02,.6290312e-02,.5788524e-02,&
8733  & .5171266e-02,.4436812e-02,.3580405e-02,.2581552e-02,.1582148e-02/
8734 
8735  data absa(181:315, 6) / &
8736  & .6558083e-02,.6261779e-02,.5751378e-02,.5145860e-02,.4467228e-02,&
8737  & .3714081e-02,.2872846e-02,.1912747e-02,.7974292e-03,.6563849e-02,&
8738  & .6305787e-02,.5824503e-02,.5238051e-02,.4571578e-02,.3828273e-02,&
8739  & .2985436e-02,.2017845e-02,.9044707e-03,.6552571e-02,.6339245e-02,&
8740  & .5892376e-02,.5324090e-02,.4676050e-02,.3939449e-02,.3097458e-02,&
8741  & .2125514e-02,.1021181e-02,.6528895e-02,.6367176e-02,.5952402e-02,&
8742  & .5408542e-02,.4777701e-02,.4049784e-02,.3211983e-02,.2236558e-02,&
8743  & .1145140e-02,.6494313e-02,.6390805e-02,.6006376e-02,.5490888e-02,&
8744  & .4876710e-02,.4160137e-02,.3328414e-02,.2349602e-02,.1279011e-02,&
8745  & .6217297e-02,.5928758e-02,.5426959e-02,.4833520e-02,.4174155e-02,&
8746  & .3449793e-02,.2650701e-02,.1741615e-02,.6370094e-03,.6238859e-02,&
8747  & .5985757e-02,.5505992e-02,.4926333e-02,.4277869e-02,.3557040e-02,&
8748  & .2755926e-02,.1837721e-02,.7241979e-03,.6246176e-02,.6029777e-02,&
8749  & .5577993e-02,.5013764e-02,.4377842e-02,.3662657e-02,.2861509e-02,&
8750  & .1935493e-02,.8193352e-03,.6236692e-02,.6066266e-02,.5641135e-02,&
8751  & .5097431e-02,.4474642e-02,.3767073e-02,.2967217e-02,.2035588e-02,&
8752  & .9198253e-03,.6214342e-02,.6096770e-02,.5698970e-02,.5179034e-02,&
8753  & .4569107e-02,.3869801e-02,.3075666e-02,.2136680e-02,.1028239e-02,&
8754  & .5843663e-02,.5561987e-02,.5073558e-02,.4502171e-02,.3871558e-02,&
8755  & .3184826e-02,.2432337e-02,.1579438e-02,.5066815e-03,.5883549e-02,&
8756  & .5632733e-02,.5159626e-02,.4598553e-02,.3975656e-02,.3289560e-02,&
8757  & .2531458e-02,.1667525e-02,.5778308e-03,.5906315e-02,.5689718e-02,&
8758  & .5238108e-02,.4688943e-02,.4074005e-02,.3390408e-02,.2630796e-02,&
8759  & .1755973e-02,.6537602e-03,.5911760e-02,.5735215e-02,.5308819e-02,&
8760  & .4775175e-02,.4168666e-02,.3489857e-02,.2728910e-02,.1847257e-02,&
8761  & .7347999e-03,.5905012e-02,.5775036e-02,.5371993e-02,.4856819e-02,&
8762  & .4260538e-02,.3587351e-02,.2827507e-02,.1938584e-02,.8225668e-03/
8763 
8764  data absa(316:450, 6) / &
8765  & .5448799e-02,.5174237e-02,.4702978e-02,.4159096e-02,.3562636e-02,&
8766  & .2919042e-02,.2216707e-02,.1428474e-02,.4372080e-03,.5503786e-02,&
8767  & .5258826e-02,.4798801e-02,.4260222e-02,.3666742e-02,.3022053e-02,&
8768  & .2311790e-02,.1509380e-02,.4923566e-03,.5542089e-02,.5327495e-02,&
8769  & .4884619e-02,.4354537e-02,.3765908e-02,.3119877e-02,.2406348e-02,&
8770  & .1590203e-02,.5508055e-03,.5564630e-02,.5383808e-02,.4961019e-02,&
8771  & .4443926e-02,.3860688e-02,.3216549e-02,.2498792e-02,.1671379e-02,&
8772  & .6126355e-03,.5570361e-02,.5432506e-02,.5031105e-02,.4526985e-02,&
8773  & .3951398e-02,.3309750e-02,.2590269e-02,.1752856e-02,.6794564e-03,&
8774  & .5025183e-02,.4765836e-02,.4321116e-02,.3810537e-02,.3254592e-02,&
8775  & .2655950e-02,.2006115e-02,.1286407e-02,.4311014e-03,.5098265e-02,&
8776  & .4863995e-02,.4425250e-02,.3917786e-02,.3360874e-02,.2757245e-02,&
8777  & .2097126e-02,.1360829e-02,.4799419e-03,.5154179e-02,.4945399e-02,&
8778  & .4519161e-02,.4017193e-02,.3461670e-02,.2853712e-02,.2187196e-02,&
8779  & .1435268e-02,.5332265e-03,.5190969e-02,.5013790e-02,.4604355e-02,&
8780  & .4110643e-02,.3555937e-02,.2947656e-02,.2275382e-02,.1509403e-02,&
8781  & .5888012e-03,.5208138e-02,.5072165e-02,.4680561e-02,.4195990e-02,&
8782  & .3646519e-02,.3037397e-02,.2361829e-02,.1583627e-02,.6478322e-03,&
8783  & .4623391e-02,.4366790e-02,.3943485e-02,.3465227e-02,.2955259e-02,&
8784  & .2405643e-02,.1812616e-02,.1157161e-02,.4945874e-03,.4710125e-02,&
8785  & .4474615e-02,.4054953e-02,.3577026e-02,.3062985e-02,.2506113e-02,&
8786  & .1900613e-02,.1226503e-02,.5465245e-03,.4776716e-02,.4564405e-02,&
8787  & .4153594e-02,.3680995e-02,.3166029e-02,.2601953e-02,.1986110e-02,&
8788  & .1295516e-02,.6032750e-03,.4823514e-02,.4640328e-02,.4243823e-02,&
8789  & .3778649e-02,.3262225e-02,.2694009e-02,.2069881e-02,.1363711e-02,&
8790  & .6621313e-03,.4852467e-02,.4703395e-02,.4324910e-02,.3866669e-02,&
8791  & .3352109e-02,.2781681e-02,.2151024e-02,.1432036e-02,.7228720e-03/
8792 
8793  data absa(451:585, 6) / &
8794  & .4268691e-02,.4040183e-02,.3646880e-02,.3203178e-02,.2726389e-02,&
8795  & .2213905e-02,.1666317e-02,.1066325e-02,.4983873e-03,.4358586e-02,&
8796  & .4148745e-02,.3757876e-02,.3313137e-02,.2831232e-02,.2309276e-02,&
8797  & .1749842e-02,.1130782e-02,.5479266e-03,.4428469e-02,.4241143e-02,&
8798  & .3857210e-02,.3414820e-02,.2929730e-02,.2400315e-02,.1831540e-02,&
8799  & .1194311e-02,.6008082e-03,.4479685e-02,.4318791e-02,.3947347e-02,&
8800  & .3507844e-02,.3019422e-02,.2487256e-02,.1910638e-02,.1257207e-02,&
8801  & .6538267e-03,.4513413e-02,.4384415e-02,.4026009e-02,.3591207e-02,&
8802  & .3103605e-02,.2569184e-02,.1986548e-02,.1320050e-02,.7081602e-03,&
8803  & .3915100e-02,.3711716e-02,.3349816e-02,.2944438e-02,.2506601e-02,&
8804  & .2037038e-02,.1533857e-02,.9781961e-03,.4622673e-03,.4005434e-02,&
8805  & .3819687e-02,.3461208e-02,.3053733e-02,.2609936e-02,.2129368e-02,&
8806  & .1612065e-02,.1038339e-02,.5051377e-03,.4076956e-02,.3913286e-02,&
8807  & .3561928e-02,.3154739e-02,.2705010e-02,.2215707e-02,.1687464e-02,&
8808  & .1097449e-02,.5512414e-03,.4130247e-02,.3993297e-02,.3650863e-02,&
8809  & .3245814e-02,.2792524e-02,.2297376e-02,.1759369e-02,.1155953e-02,&
8810  & .5980184e-03,.4167218e-02,.4060665e-02,.3729251e-02,.3327359e-02,&
8811  & .2873454e-02,.2374433e-02,.1829761e-02,.1214279e-02,.6444273e-03,&
8812  & .3565599e-02,.3385516e-02,.3057279e-02,.2688351e-02,.2290666e-02,&
8813  & .1864426e-02,.1405266e-02,.8966862e-03,.3986965e-03,.3656897e-02,&
8814  & .3493575e-02,.3167640e-02,.2795196e-02,.2390148e-02,.1952514e-02,&
8815  & .1480086e-02,.9522316e-03,.4352189e-03,.3729366e-02,.3587046e-02,&
8816  & .3266101e-02,.2893554e-02,.2481255e-02,.2035902e-02,.1551310e-02,&
8817  & .1006380e-02,.4737097e-03,.3784570e-02,.3667287e-02,.3354159e-02,&
8818  & .2981192e-02,.2566707e-02,.2114949e-02,.1619376e-02,.1060223e-02,&
8819  & .5128669e-03,.3823908e-02,.3735653e-02,.3431813e-02,.3061934e-02,&
8820  & .2645587e-02,.2189124e-02,.1685116e-02,.1114442e-02,.5524785e-03/
8821 
8822  data absa( 1:180, 7) / &
8823  & .2337626e-01,.2175176e-01,.2063054e-01,.1953289e-01,.1869334e-01,&
8824  & .1836575e-01,.1866188e-01,.1986732e-01,.2252135e-01,.2315624e-01,&
8825  & .2164265e-01,.2067161e-01,.1978356e-01,.1921682e-01,.1922562e-01,&
8826  & .1992930e-01,.2155800e-01,.2450575e-01,.2293107e-01,.2154457e-01,&
8827  & .2074715e-01,.2011748e-01,.1985588e-01,.2024390e-01,.2137333e-01,&
8828  & .2342559e-01,.2668727e-01,.2270210e-01,.2145089e-01,.2088033e-01,&
8829  & .2054255e-01,.2062482e-01,.2143098e-01,.2299821e-01,.2549251e-01,&
8830  & .2907234e-01,.2247095e-01,.2137582e-01,.2108331e-01,.2107230e-01,&
8831  & .2155716e-01,.2281018e-01,.2484353e-01,.2780611e-01,.3172795e-01,&
8832  & .2458189e-01,.2285200e-01,.2156813e-01,.2024632e-01,.1900708e-01,&
8833  & .1819156e-01,.1796768e-01,.1857224e-01,.2076937e-01,.2435250e-01,&
8834  & .2275178e-01,.2160965e-01,.2048103e-01,.1947652e-01,.1898219e-01,&
8835  & .1913925e-01,.2015560e-01,.2268231e-01,.2412387e-01,.2265897e-01,&
8836  & .2168600e-01,.2079019e-01,.2005803e-01,.1992705e-01,.2048310e-01,&
8837  & .2192140e-01,.2477362e-01,.2389129e-01,.2256825e-01,.2181441e-01,&
8838  & .2118241e-01,.2077464e-01,.2103762e-01,.2201020e-01,.2389372e-01,&
8839  & .2708335e-01,.2365223e-01,.2248782e-01,.2200444e-01,.2167167e-01,&
8840  & .2165150e-01,.2233835e-01,.2375741e-01,.2611574e-01,.2966311e-01,&
8841  & .2579688e-01,.2397618e-01,.2249064e-01,.2092442e-01,.1929406e-01,&
8842  & .1790138e-01,.1706811e-01,.1698922e-01,.1852242e-01,.2557176e-01,&
8843  & .2388374e-01,.2253992e-01,.2114151e-01,.1969695e-01,.1860179e-01,&
8844  & .1812445e-01,.1843215e-01,.2030655e-01,.2534781e-01,.2379879e-01,&
8845  & .2261460e-01,.2141516e-01,.2020271e-01,.1944733e-01,.1934135e-01,&
8846  & .2004948e-01,.2227174e-01,.2511276e-01,.2371341e-01,.2273562e-01,&
8847  & .2176102e-01,.2083763e-01,.2045509e-01,.2073270e-01,.2187030e-01,&
8848  & .2445363e-01,.2487422e-01,.2363274e-01,.2290622e-01,.2219407e-01,&
8849  & .2162169e-01,.2162715e-01,.2232993e-01,.2392248e-01,.2688023e-01,&
8850  & .2698586e-01,.2506791e-01,.2338609e-01,.2157417e-01,.1958193e-01,&
8851  & .1763778e-01,.1616964e-01,.1538518e-01,.1621144e-01,.2676194e-01,&
8852  & .2498910e-01,.2344897e-01,.2177479e-01,.1993962e-01,.1825433e-01,&
8853  & .1710937e-01,.1668719e-01,.1786207e-01,.2654257e-01,.2491521e-01,&
8854  & .2352676e-01,.2201454e-01,.2038036e-01,.1899998e-01,.1819673e-01,&
8855  & .1814869e-01,.1968096e-01,.2631697e-01,.2483856e-01,.2364114e-01,&
8856  & .2232785e-01,.2093620e-01,.1989270e-01,.1944697e-01,.1980212e-01,&
8857  & .2170612e-01,.2608471e-01,.2475687e-01,.2379589e-01,.2271583e-01,&
8858  & .2161901e-01,.2093691e-01,.2088135e-01,.2166610e-01,.2395288e-01/
8859 
8860  data absa(181:315, 7) / &
8861  & .2810778e-01,.2610373e-01,.2423479e-01,.2218757e-01,.1986177e-01,&
8862  & .1746306e-01,.1537001e-01,.1389630e-01,.1400744e-01,.2789745e-01,&
8863  & .2604100e-01,.2431619e-01,.2238153e-01,.2019516e-01,.1800500e-01,&
8864  & .1621009e-01,.1507015e-01,.1553290e-01,.2769341e-01,.2597967e-01,&
8865  & .2440064e-01,.2260000e-01,.2059359e-01,.1865773e-01,.1717719e-01,&
8866  & .1638502e-01,.1720845e-01,.2747581e-01,.2591687e-01,.2451639e-01,&
8867  & .2287475e-01,.2108787e-01,.1943977e-01,.1828677e-01,.1786928e-01,&
8868  & .1906661e-01,.2724525e-01,.2584524e-01,.2465979e-01,.2322623e-01,&
8869  & .2169174e-01,.2036043e-01,.1956477e-01,.1955161e-01,.2112946e-01,&
8870  & .2916121e-01,.2706131e-01,.2501249e-01,.2273351e-01,.2011979e-01,&
8871  & .1734949e-01,.1468202e-01,.1254397e-01,.1192697e-01,.2896641e-01,&
8872  & .2702014e-01,.2511575e-01,.2293374e-01,.2042776e-01,.1783904e-01,&
8873  & .1542709e-01,.1359860e-01,.1333064e-01,.2876765e-01,.2697723e-01,&
8874  & .2521010e-01,.2314222e-01,.2079486e-01,.1840512e-01,.1626966e-01,&
8875  & .1476028e-01,.1484637e-01,.2856294e-01,.2693274e-01,.2532642e-01,&
8876  & .2339329e-01,.2123982e-01,.1907661e-01,.1724154e-01,.1606921e-01,&
8877  & .1652405e-01,.2834370e-01,.2687419e-01,.2545751e-01,.2371200e-01,&
8878  & .2178226e-01,.1987947e-01,.1836893e-01,.1756873e-01,.1840173e-01,&
8879  & .3011114e-01,.2792230e-01,.2568609e-01,.2319257e-01,.2034293e-01,&
8880  & .1726900e-01,.1415286e-01,.1138485e-01,.1005692e-01,.2992968e-01,&
8881  & .2790487e-01,.2581306e-01,.2340902e-01,.2064353e-01,.1772380e-01,&
8882  & .1480077e-01,.1231510e-01,.1132697e-01,.2974561e-01,.2787980e-01,&
8883  & .2592483e-01,.2361776e-01,.2099074e-01,.1823014e-01,.1552253e-01,&
8884  & .1333086e-01,.1268422e-01,.2955745e-01,.2785343e-01,.2604522e-01,&
8885  & .2385432e-01,.2139366e-01,.1881776e-01,.1636294e-01,.1447960e-01,&
8886  & .1418800e-01,.2935104e-01,.2781242e-01,.2617843e-01,.2414962e-01,&
8887  & .2187815e-01,.1952002e-01,.1734737e-01,.1580301e-01,.1587593e-01/
8888 
8889  data absa(316:450, 7) / &
8890  & .3090210e-01,.2863464e-01,.2623745e-01,.2353758e-01,.2049216e-01,&
8891  & .1719200e-01,.1374636e-01,.1041842e-01,.8306976e-02,.3074160e-01,&
8892  & .2864184e-01,.2639435e-01,.2377357e-01,.2080408e-01,.1762587e-01,&
8893  & .1431865e-01,.1122298e-01,.9441247e-02,.3058186e-01,.2864960e-01,&
8894  & .2652689e-01,.2399238e-01,.2114556e-01,.1809030e-01,.1494024e-01,&
8895  & .1210474e-01,.1065458e-01,.3041236e-01,.2865545e-01,.2666041e-01,&
8896  & .2422874e-01,.2152521e-01,.1861362e-01,.1566308e-01,.1310960e-01,&
8897  & .1200349e-01,.3023431e-01,.2863951e-01,.2679661e-01,.2451409e-01,&
8898  & .2196729e-01,.1923952e-01,.1651206e-01,.1426729e-01,.1351982e-01,&
8899  & .3150955e-01,.2917466e-01,.2663128e-01,.2375509e-01,.2054034e-01,&
8900  & .1706533e-01,.1339031e-01,.9619698e-02,.6589618e-02,.3137548e-01,&
8901  & .2921391e-01,.2682829e-01,.2401415e-01,.2086776e-01,.1749458e-01,&
8902  & .1391017e-01,.1031015e-01,.7573865e-02,.3124577e-01,.2926104e-01,&
8903  & .2699356e-01,.2424726e-01,.2121023e-01,.1794016e-01,.1446463e-01,&
8904  & .1107269e-01,.8630532e-02,.3111437e-01,.2930266e-01,.2714520e-01,&
8905  & .2449152e-01,.2158301e-01,.1842118e-01,.1509518e-01,.1193837e-01,&
8906  & .9801078e-02,.3097127e-01,.2932558e-01,.2729444e-01,.2477809e-01,&
8907  & .2199750e-01,.1898438e-01,.1582945e-01,.1293776e-01,.1111997e-01,&
8908  & .3182644e-01,.2948280e-01,.2685783e-01,.2385751e-01,.2050472e-01,&
8909  & .1690419e-01,.1307973e-01,.9016818e-02,.5889262e-02,.3174219e-01,&
8910  & .2957180e-01,.2709658e-01,.2415027e-01,.2085202e-01,.1733699e-01,&
8911  & .1357172e-01,.9617188e-02,.6575397e-02,.3166606e-01,.2967426e-01,&
8912  & .2730658e-01,.2441152e-01,.2120507e-01,.1777789e-01,.1408374e-01,&
8913  & .1027324e-01,.7358277e-02,.3158325e-01,.2976719e-01,.2749330e-01,&
8914  & .2467389e-01,.2157919e-01,.1824104e-01,.1464950e-01,.1102019e-01,&
8915  & .8229230e-02,.3148314e-01,.2984161e-01,.2766625e-01,.2497260e-01,&
8916  & .2198691e-01,.1876667e-01,.1530472e-01,.1188221e-01,.9182963e-02/
8917 
8918  data absa(451:585, 7) / &
8919  & .3191734e-01,.2961741e-01,.2697787e-01,.2391284e-01,.2049970e-01,&
8920  & .1685955e-01,.1296507e-01,.8750098e-02,.6274631e-02,.3190439e-01,&
8921  & .2977990e-01,.2725815e-01,.2422984e-01,.2087607e-01,.1730510e-01,&
8922  & .1344617e-01,.9295005e-02,.7007386e-02,.3188423e-01,.2993640e-01,&
8923  & .2750670e-01,.2452542e-01,.2126330e-01,.1774973e-01,.1394711e-01,&
8924  & .9900539e-02,.7782927e-02,.3184397e-01,.3007747e-01,.2772343e-01,&
8925  & .2483444e-01,.2166507e-01,.1822702e-01,.1449986e-01,.1058694e-01,&
8926  & .8671897e-02,.3178483e-01,.3018389e-01,.2793133e-01,.2517191e-01,&
8927  & .2210215e-01,.1876481e-01,.1512017e-01,.1136237e-01,.9662908e-02,&
8928  & .3187853e-01,.2963766e-01,.2698548e-01,.2385689e-01,.2040357e-01,&
8929  & .1672870e-01,.1278988e-01,.8497981e-02,.6174837e-02,.3194590e-01,&
8930  & .2988270e-01,.2731430e-01,.2420369e-01,.2080895e-01,.1718277e-01,&
8931  & .1326475e-01,.9006730e-02,.6900214e-02,.3198870e-01,.3010121e-01,&
8932  & .2760049e-01,.2453900e-01,.2122452e-01,.1764036e-01,.1376646e-01,&
8933  & .9568560e-02,.7665374e-02,.3200932e-01,.3028722e-01,.2785313e-01,&
8934  & .2489082e-01,.2164826e-01,.1813119e-01,.1432073e-01,.1019444e-01,&
8935  & .8520390e-02,.3200022e-01,.3043673e-01,.2810016e-01,.2525761e-01,&
8936  & .2211496e-01,.1867947e-01,.1492276e-01,.1090133e-01,.9520500e-02,&
8937  & .3173815e-01,.2955655e-01,.2688573e-01,.2371393e-01,.2023390e-01,&
8938  & .1654567e-01,.1257985e-01,.8246315e-02,.5647340e-02,.3187913e-01,&
8939  & .2987574e-01,.2727046e-01,.2410527e-01,.2067778e-01,.1701522e-01,&
8940  & .1304871e-01,.8729674e-02,.6295753e-02,.3199367e-01,.3016037e-01,&
8941  & .2760193e-01,.2448927e-01,.2112455e-01,.1748698e-01,.1354982e-01,&
8942  & .9254652e-02,.7027536e-02,.3208158e-01,.3040579e-01,.2790109e-01,&
8943  & .2488587e-01,.2157632e-01,.1798983e-01,.1409732e-01,.9833255e-02,&
8944  & .7857223e-02,.3212706e-01,.3060928e-01,.2819618e-01,.2528322e-01,&
8945  & .2206831e-01,.1854255e-01,.1468812e-01,.1048268e-01,.8776360e-02/
8946 
8947  data absa( 1:180, 8) / &
8948  & .6013431e-01,.5707436e-01,.7233980e-01,.9815382e-01,.1294324e+00,&
8949  & .1617466e+00,.1940373e+00,.2262581e+00,.2513644e+00,.5875631e-01,&
8950  & .5691751e-01,.7437061e-01,.1026345e+00,.1360233e+00,.1699724e+00,&
8951  & .2039042e+00,.2377536e+00,.2641912e+00,.5766566e-01,.5691471e-01,&
8952  & .7651533e-01,.1069690e+00,.1422529e+00,.1777591e+00,.2132449e+00,&
8953  & .2486476e+00,.2761623e+00,.5690082e-01,.5712785e-01,.7881629e-01,&
8954  & .1114369e+00,.1484198e+00,.1854598e+00,.2224755e+00,.2594138e+00,&
8955  & .2880248e+00,.5637766e-01,.5755994e-01,.8139096e-01,.1160220e+00,&
8956  & .1545869e+00,.1931597e+00,.2317210e+00,.2701851e+00,.2998888e+00,&
8957  & .6618075e-01,.6337862e-01,.7888769e-01,.1046010e+00,.1369770e+00,&
8958  & .1711778e+00,.2053496e+00,.2394477e+00,.2688156e+00,.6469675e-01,&
8959  & .6319075e-01,.8109464e-01,.1094837e+00,.1444540e+00,.1805151e+00,&
8960  & .2165594e+00,.2525366e+00,.2834257e+00,.6352136e-01,.6312417e-01,&
8961  & .8332160e-01,.1142143e+00,.1514669e+00,.1892772e+00,.2270740e+00,&
8962  & .2647762e+00,.2971560e+00,.6267746e-01,.6327579e-01,.8565769e-01,&
8963  & .1189657e+00,.1582452e+00,.1977516e+00,.2372313e+00,.2766038e+00,&
8964  & .3104162e+00,.6209896e-01,.6369481e-01,.8824714e-01,.1238764e+00,&
8965  & .1649199e+00,.2060757e+00,.2472064e+00,.2882573e+00,.3234086e+00,&
8966  & .7395912e-01,.7063428e-01,.8565208e-01,.1104255e+00,.1427485e+00,&
8967  & .1783683e+00,.2139880e+00,.2495178e+00,.2828639e+00,.7228712e-01,&
8968  & .7036097e-01,.8793923e-01,.1157395e+00,.1512413e+00,.1890002e+00,&
8969  & .2267276e+00,.2644122e+00,.2997266e+00,.7086841e-01,.7018107e-01,&
8970  & .9023900e-01,.1209004e+00,.1591022e+00,.1988304e+00,.2385408e+00,&
8971  & .2781769e+00,.3153056e+00,.6982927e-01,.7021452e-01,.9257013e-01,&
8972  & .1259826e+00,.1665897e+00,.2081673e+00,.2497368e+00,.2911947e+00,&
8973  & .3300931e+00,.6907982e-01,.7054544e-01,.9512295e-01,.1311315e+00,&
8974  & .1739073e+00,.2173068e+00,.2606881e+00,.3039811e+00,.3445288e+00,&
8975  & .8336981e-01,.7909588e-01,.9293217e-01,.1163289e+00,.1478222e+00,&
8976  & .1841644e+00,.2209570e+00,.2576676e+00,.2934903e+00,.8148502e-01,&
8977  & .7868615e-01,.9524447e-01,.1221028e+00,.1571946e+00,.1961923e+00,&
8978  & .2353851e+00,.2744893e+00,.3126755e+00,.7980558e-01,.7839855e-01,&
8979  & .9757525e-01,.1277440e+00,.1659210e+00,.2072782e+00,.2486777e+00,&
8980  & .2899782e+00,.3303130e+00,.7850723e-01,.7829446e-01,.9994420e-01,&
8981  & .1331287e+00,.1741803e+00,.2176536e+00,.2611345e+00,.3044935e+00,&
8982  & .3468364e+00,.7749949e-01,.7851124e-01,.1025029e+00,.1385272e+00,&
8983  & .1822356e+00,.2277238e+00,.2731983e+00,.3185592e+00,.3628488e+00/
8984 
8985  data absa(181:315, 8) / &
8986  & .9446343e-01,.8887098e-01,.1010405e+00,.1226819e+00,.1528690e+00,&
8987  & .1887604e+00,.2264637e+00,.2640916e+00,.3014227e+00,.9223331e-01,&
8988  & .8827980e-01,.1033453e+00,.1288736e+00,.1629549e+00,.2021939e+00,&
8989  & .2425871e+00,.2829079e+00,.3229151e+00,.9024155e-01,.8783436e-01,&
8990  & .1057387e+00,.1349856e+00,.1724292e+00,.2146241e+00,.2574756e+00,&
8991  & .3002489e+00,.3427212e+00,.8862647e-01,.8754527e-01,.1081502e+00,&
8992  & .1408020e+00,.1814043e+00,.2262377e+00,.2714152e+00,.3165045e+00,&
8993  & .3612330e+00,.8735280e-01,.8760876e-01,.1107602e+00,.1464752e+00,&
8994  & .1900954e+00,.2373504e+00,.2847413e+00,.3320395e+00,.3789626e+00,&
8995  & .1071919e+00,.1001003e+00,.1101040e+00,.1294657e+00,.1574729e+00,&
8996  & .1915463e+00,.2292568e+00,.2673709e+00,.3054402e+00,.1045794e+00,&
8997  & .9926080e-01,.1123922e+00,.1359833e+00,.1683351e+00,.2062283e+00,&
8998  & .2471625e+00,.2882394e+00,.3292971e+00,.1022687e+00,.9862247e-01,&
8999  & .1148716e+00,.1424605e+00,.1785172e+00,.2200001e+00,.2638803e+00,&
9000  & .3077436e+00,.3515504e+00,.1003101e+00,.9811233e-01,.1173419e+00,&
9001  & .1486525e+00,.1881373e+00,.2329575e+00,.2794837e+00,.3259493e+00,&
9002  & .3723585e+00,.9873698e-01,.9795941e-01,.1200135e+00,.1545733e+00,&
9003  & .1973376e+00,.2452232e+00,.2942202e+00,.3431039e+00,.3919463e+00,&
9004  & .1214673e+00,.1126359e+00,.1204125e+00,.1370664e+00,.1621239e+00,&
9005  & .1935142e+00,.2296249e+00,.2677842e+00,.3060416e+00,.1185186e+00,&
9006  & .1115740e+00,.1227071e+00,.1438053e+00,.1736162e+00,.2092232e+00,&
9007  & .2494502e+00,.2909400e+00,.3324970e+00,.1158775e+00,.1107513e+00,&
9008  & .1251835e+00,.1505785e+00,.1844456e+00,.2241943e+00,.2681063e+00,&
9009  & .3126858e+00,.3573659e+00,.1135645e+00,.1100550e+00,.1276724e+00,&
9010  & .1570942e+00,.1947551e+00,.2383233e+00,.2854861e+00,.3329504e+00,&
9011  & .3805180e+00,.1116111e+00,.1096678e+00,.1303082e+00,.1632798e+00,&
9012  & .2045649e+00,.2516490e+00,.3017320e+00,.3519240e+00,.4021839e+00/
9013 
9014  data absa(316:450, 8) / &
9015  & .1374520e+00,.1266748e+00,.1318516e+00,.1456457e+00,.1672523e+00,&
9016  & .1950666e+00,.2283281e+00,.2656918e+00,.3037056e+00,.1341802e+00,&
9017  & .1254071e+00,.1340698e+00,.1526186e+00,.1792338e+00,.2117540e+00,&
9018  & .2498928e+00,.2912047e+00,.3328745e+00,.1311544e+00,.1242569e+00,&
9019  & .1365313e+00,.1596294e+00,.1905813e+00,.2277714e+00,.2703124e+00,&
9020  & .3152132e+00,.3603201e+00,.1284296e+00,.1232723e+00,.1390451e+00,&
9021  & .1663760e+00,.2014538e+00,.2429694e+00,.2894262e+00,.3375633e+00,&
9022  & .3858525e+00,.1260194e+00,.1225869e+00,.1416527e+00,.1727500e+00,&
9023  & .2118169e+00,.2572538e+00,.3073512e+00,.3584426e+00,.4097428e+00,&
9024  & .1553761e+00,.1422412e+00,.1444711e+00,.1550385e+00,.1728286e+00,&
9025  & .1965109e+00,.2258295e+00,.2610663e+00,.2984504e+00,.1516669e+00,&
9026  & .1407304e+00,.1465588e+00,.1622080e+00,.1852388e+00,.2140019e+00,&
9027  & .2488334e+00,.2889075e+00,.3302659e+00,.1481522e+00,.1392528e+00,&
9028  & .1489452e+00,.1694320e+00,.1970843e+00,.2308530e+00,.2707638e+00,&
9029  & .3150768e+00,.3601714e+00,.1448954e+00,.1379226e+00,.1514075e+00,&
9030  & .1763709e+00,.2084024e+00,.2469639e+00,.2914326e+00,.3395756e+00,&
9031  & .3881786e+00,.1419554e+00,.1368141e+00,.1539816e+00,.1829006e+00,&
9032  & .2192687e+00,.2621639e+00,.3109195e+00,.3624990e+00,.4144086e+00,&
9033  & .1748198e+00,.1592727e+00,.1584450e+00,.1657904e+00,.1799080e+00,&
9034  & .1994836e+00,.2245418e+00,.2566689e+00,.2810339e+00,.1705294e+00,&
9035  & .1573886e+00,.1604084e+00,.1730449e+00,.1927005e+00,.2176246e+00,&
9036  & .2486329e+00,.2864375e+00,.3169857e+00,.1664134e+00,.1555110e+00,&
9037  & .1626512e+00,.1803894e+00,.2049406e+00,.2351258e+00,.2717671e+00,&
9038  & .3146346e+00,.3505565e+00,.1625805e+00,.1537499e+00,.1650044e+00,&
9039  & .1874575e+00,.2166562e+00,.2519400e+00,.2937443e+00,.3411186e+00,&
9040  & .3823263e+00,.1590426e+00,.1521966e+00,.1674556e+00,.1940812e+00,&
9041  & .2278853e+00,.2678905e+00,.3145120e+00,.3659844e+00,.4129266e+00/
9042 
9043  data absa(451:585, 8) / &
9044  & .1935762e+00,.1766297e+00,.1744420e+00,.1806968e+00,.1935473e+00,&
9045  & .2114104e+00,.2347348e+00,.2655809e+00,.2757601e+00,.1885866e+00,&
9046  & .1741931e+00,.1762668e+00,.1880588e+00,.2064070e+00,.2298344e+00,&
9047  & .2593418e+00,.2963843e+00,.3112482e+00,.1838929e+00,.1718429e+00,&
9048  & .1783334e+00,.1953918e+00,.2186897e+00,.2477198e+00,.2829811e+00,&
9049  & .3255600e+00,.3451455e+00,.1794971e+00,.1696478e+00,.1805638e+00,&
9050  & .2022902e+00,.2305237e+00,.2647488e+00,.3054649e+00,.3531405e+00,&
9051  & .3769471e+00,.1753728e+00,.1677953e+00,.1828746e+00,.2087886e+00,&
9052  & .2417893e+00,.2809426e+00,.3270047e+00,.3794515e+00,.4073030e+00,&
9053  & .2131992e+00,.1947813e+00,.1912304e+00,.1963678e+00,.2076432e+00,&
9054  & .2236360e+00,.2450570e+00,.2741551e+00,.2789175e+00,.2074072e+00,&
9055  & .1916172e+00,.1927506e+00,.2036992e+00,.2204764e+00,.2423112e+00,&
9056  & .2701300e+00,.3057154e+00,.3147569e+00,.2019948e+00,.1886976e+00,&
9057  & .1945776e+00,.2108178e+00,.2327675e+00,.2604245e+00,.2941651e+00,&
9058  & .3357507e+00,.3491138e+00,.1968339e+00,.1860228e+00,.1965911e+00,&
9059  & .2174692e+00,.2445952e+00,.2776478e+00,.3170335e+00,.3643697e+00,&
9060  & .3816200e+00,.1920176e+00,.1837096e+00,.1986031e+00,.2238583e+00,&
9061  & .2557920e+00,.2940556e+00,.3391509e+00,.3918311e+00,.4121885e+00,&
9062  & .2332827e+00,.2134102e+00,.2085161e+00,.2124079e+00,.2219989e+00,&
9063  & .2359574e+00,.2553647e+00,.2822947e+00,.2887838e+00,.2266775e+00,&
9064  & .2095424e+00,.2096502e+00,.2195248e+00,.2347351e+00,.2548294e+00,&
9065  & .2808212e+00,.3144477e+00,.3259151e+00,.2203906e+00,.2059404e+00,&
9066  & .2111339e+00,.2263053e+00,.2469443e+00,.2730233e+00,.3051566e+00,&
9067  & .3452396e+00,.3610131e+00,.2143742e+00,.2026221e+00,.2127678e+00,&
9068  & .2326886e+00,.2586790e+00,.2903679e+00,.3283839e+00,.3747332e+00,&
9069  & .3941719e+00,.2087774e+00,.1996808e+00,.2143237e+00,.2388436e+00,&
9070  & .2697785e+00,.3069660e+00,.3509603e+00,.4031790e+00,.4260779e+00/
9071 
9072  data absb( 1:120, 1) / &
9073  & .1281000e-03,.1289100e-03,.1289000e-03,.1271300e-03,.1247700e-03,&
9074  & .1065300e-03,.1066700e-03,.1064800e-03,.1047300e-03,.1029300e-03,&
9075  & .9017600e-04,.9007700e-04,.8928600e-04,.8787900e-04,.8598700e-04,&
9076  & .7770400e-04,.7730400e-04,.7587900e-04,.7424600e-04,.7207000e-04,&
9077  & .6718300e-04,.6590600e-04,.6461900e-04,.6300000e-04,.6105600e-04,&
9078  & .5874100e-04,.5764900e-04,.5602800e-04,.5429300e-04,.5250600e-04,&
9079  & .5183900e-04,.5071500e-04,.4905300e-04,.4719500e-04,.4536800e-04,&
9080  & .4432100e-04,.4329700e-04,.4192300e-04,.4029800e-04,.3874400e-04,&
9081  & .3752700e-04,.3651600e-04,.3538000e-04,.3403700e-04,.3295100e-04,&
9082  & .3175200e-04,.3070300e-04,.2958600e-04,.2849900e-04,.2751900e-04,&
9083  & .2663800e-04,.2564300e-04,.2469300e-04,.2383200e-04,.2291300e-04,&
9084  & .2232500e-04,.2148000e-04,.2062100e-04,.1986700e-04,.1906600e-04,&
9085  & .1876400e-04,.1799800e-04,.1726900e-04,.1652700e-04,.1582100e-04,&
9086  & .1565000e-04,.1499200e-04,.1435600e-04,.1371000e-04,.1311900e-04,&
9087  & .1305400e-04,.1247700e-04,.1192900e-04,.1139300e-04,.1094800e-04,&
9088  & .1085200e-04,.1039000e-04,.9919500e-05,.9502000e-05,.9199300e-05,&
9089  & .9099000e-05,.8720900e-05,.8338400e-05,.8002900e-05,.7724500e-05,&
9090  & .7716900e-05,.7366200e-05,.7055200e-05,.6802900e-05,.6574900e-05,&
9091  & .6525000e-05,.6236400e-05,.6017200e-05,.5780400e-05,.5550400e-05,&
9092  & .5516700e-05,.5302100e-05,.5108800e-05,.4911300e-05,.4715000e-05,&
9093  & .4726100e-05,.4553000e-05,.4364100e-05,.4172500e-05,.4007700e-05,&
9094  & .4064600e-05,.3906200e-05,.3747200e-05,.3600900e-05,.3454900e-05,&
9095  & .3547900e-05,.3405700e-05,.3270400e-05,.3142000e-05,.3021900e-05,&
9096  & .3135300e-05,.3027000e-05,.2902400e-05,.2777600e-05,.2660000e-05/
9097 
9098  data absb(121:235, 1) / &
9099  & .2659500e-05,.2562100e-05,.2464600e-05,.2358200e-05,.2256300e-05,&
9100  & .2246800e-05,.2165100e-05,.2081200e-05,.2004300e-05,.1922100e-05,&
9101  & .1900900e-05,.1833500e-05,.1768500e-05,.1703900e-05,.1640600e-05,&
9102  & .1574600e-05,.1518800e-05,.1466900e-05,.1414800e-05,.1366800e-05,&
9103  & .1300100e-05,.1256100e-05,.1212200e-05,.1171800e-05,.1130600e-05,&
9104  & .1071600e-05,.1038000e-05,.1001800e-05,.9674500e-06,.9347500e-06,&
9105  & .8765100e-06,.8517200e-06,.8245300e-06,.7956000e-06,.7701100e-06,&
9106  & .7156500e-06,.6969900e-06,.6769900e-06,.6540300e-06,.6320200e-06,&
9107  & .5839100e-06,.5694600e-06,.5531800e-06,.5357500e-06,.5177400e-06,&
9108  & .4749000e-06,.4653100e-06,.4517500e-06,.4368600e-06,.4226000e-06,&
9109  & .3871800e-06,.3761000e-06,.3665000e-06,.3558000e-06,.3441700e-06,&
9110  & .3146400e-06,.3049400e-06,.2987200e-06,.2909600e-06,.2823000e-06,&
9111  & .2554200e-06,.2488500e-06,.2431400e-06,.2374500e-06,.2309200e-06,&
9112  & .2074100e-06,.2017500e-06,.1969900e-06,.1930500e-06,.1879100e-06,&
9113  & .1676000e-06,.1640600e-06,.1599300e-06,.1563100e-06,.1532700e-06,&
9114  & .1357900e-06,.1328700e-06,.1298500e-06,.1272500e-06,.1247000e-06,&
9115  & .1100600e-06,.1075700e-06,.1056800e-06,.1031400e-06,.1010100e-06,&
9116  & .8871100e-07,.8713100e-07,.8516200e-07,.8340500e-07,.8158500e-07,&
9117  & .7088900e-07,.6991700e-07,.6869200e-07,.6746300e-07,.6604700e-07,&
9118  & .5665900e-07,.5607700e-07,.5551800e-07,.5446200e-07,.5356300e-07,&
9119  & .4538000e-07,.4515900e-07,.4471800e-07,.4406300e-07,.4311600e-07,&
9120  & .3596200e-07,.3617700e-07,.3599700e-07,.3560000e-07,.3434000e-07,&
9121  & .2857800e-07,.2892400e-07,.2890100e-07,.2817600e-07,.2724600e-07/
9122 
9123  data absb( 1:120, 2) / &
9124  & .6321500e-03,.6475600e-03,.6573400e-03,.6651500e-03,.6707700e-03,&
9125  & .5237800e-03,.5363100e-03,.5448500e-03,.5507100e-03,.5560500e-03,&
9126  & .4377700e-03,.4481400e-03,.4552100e-03,.4612400e-03,.4670000e-03,&
9127  & .3702300e-03,.3786900e-03,.3856800e-03,.3907000e-03,.3976000e-03,&
9128  & .3175300e-03,.3263200e-03,.3325400e-03,.3381700e-03,.3431200e-03,&
9129  & .2758000e-03,.2831000e-03,.2891500e-03,.2948800e-03,.2985500e-03,&
9130  & .2412900e-03,.2469700e-03,.2530200e-03,.2578500e-03,.2613700e-03,&
9131  & .2047000e-03,.2104000e-03,.2155200e-03,.2196300e-03,.2226000e-03,&
9132  & .1729000e-03,.1778200e-03,.1818800e-03,.1851300e-03,.1879400e-03,&
9133  & .1459900e-03,.1506300e-03,.1538900e-03,.1568200e-03,.1596500e-03,&
9134  & .1239000e-03,.1279700e-03,.1307100e-03,.1334700e-03,.1357100e-03,&
9135  & .1055300e-03,.1087500e-03,.1113400e-03,.1135100e-03,.1151300e-03,&
9136  & .9026300e-04,.9256000e-04,.9466700e-04,.9622500e-04,.9704100e-04,&
9137  & .7654200e-04,.7822700e-04,.7975500e-04,.8076800e-04,.8141200e-04,&
9138  & .6456200e-04,.6602400e-04,.6712100e-04,.6787800e-04,.6799200e-04,&
9139  & .5458700e-04,.5566800e-04,.5643900e-04,.5677800e-04,.5664900e-04,&
9140  & .4624800e-04,.4688500e-04,.4746900e-04,.4747600e-04,.4746400e-04,&
9141  & .3908400e-04,.3970100e-04,.3983600e-04,.3991900e-04,.3976200e-04,&
9142  & .3329700e-04,.3367000e-04,.3378100e-04,.3357100e-04,.3341800e-04,&
9143  & .2847500e-04,.2847900e-04,.2835200e-04,.2820200e-04,.2810700e-04,&
9144  & .2402300e-04,.2397700e-04,.2387400e-04,.2385800e-04,.2372900e-04,&
9145  & .2027600e-04,.2031400e-04,.2026200e-04,.2020500e-04,.2001300e-04,&
9146  & .1717700e-04,.1717900e-04,.1718100e-04,.1704800e-04,.1691500e-04,&
9147  & .1458600e-04,.1463200e-04,.1456900e-04,.1446500e-04,.1440400e-04/
9148 
9149  data absb(121:235, 2) / &
9150  & .1216500e-04,.1222000e-04,.1216400e-04,.1209900e-04,.1203600e-04,&
9151  & .1017800e-04,.1022400e-04,.1020100e-04,.1013400e-04,.1006000e-04,&
9152  & .8562200e-05,.8582600e-05,.8552000e-05,.8510900e-05,.8437800e-05,&
9153  & .7026300e-05,.7054900e-05,.7033400e-05,.7000000e-05,.6950000e-05,&
9154  & .5751000e-05,.5774900e-05,.5769200e-05,.5738400e-05,.5712100e-05,&
9155  & .4703800e-05,.4726100e-05,.4727800e-05,.4702300e-05,.4686700e-05,&
9156  & .3824900e-05,.3833900e-05,.3849800e-05,.3836400e-05,.3812500e-05,&
9157  & .3097300e-05,.3112000e-05,.3116600e-05,.3120300e-05,.3102200e-05,&
9158  & .2508500e-05,.2526300e-05,.2529300e-05,.2532800e-05,.2524900e-05,&
9159  & .2026100e-05,.2047900e-05,.2056500e-05,.2057500e-05,.2058800e-05,&
9160  & .1631900e-05,.1663900e-05,.1674500e-05,.1674000e-05,.1675900e-05,&
9161  & .1309700e-05,.1344900e-05,.1361100e-05,.1362400e-05,.1358900e-05,&
9162  & .1052100e-05,.1084700e-05,.1105200e-05,.1110200e-05,.1108500e-05,&
9163  & .8466800e-06,.8723500e-06,.8954400e-06,.9060700e-06,.9061600e-06,&
9164  & .6806000e-06,.7018000e-06,.7218700e-06,.7356200e-06,.7380000e-06,&
9165  & .5463400e-06,.5648100e-06,.5825600e-06,.5954300e-06,.6012200e-06,&
9166  & .4386600e-06,.4557700e-06,.4695700e-06,.4817600e-06,.4894000e-06,&
9167  & .3506200e-06,.3664700e-06,.3793500e-06,.3897800e-06,.3969700e-06,&
9168  & .2788300e-06,.2951400e-06,.3039700e-06,.3125100e-06,.3200400e-06,&
9169  & .2209800e-06,.2355000e-06,.2428900e-06,.2501800e-06,.2570800e-06,&
9170  & .1729500e-06,.1862400e-06,.1933200e-06,.1993400e-06,.2058700e-06,&
9171  & .1362300e-06,.1468000e-06,.1540300e-06,.1591200e-06,.1649900e-06,&
9172  & .1086400e-06,.1168000e-06,.1235300e-06,.1284000e-06,.1335200e-06/
9173 
9174  data absb( 1:120, 3) / &
9175  & .2106900e-02,.2157100e-02,.2194300e-02,.2206100e-02,.2212400e-02,&
9176  & .1741100e-02,.1783300e-02,.1809700e-02,.1822500e-02,.1825100e-02,&
9177  & .1444000e-02,.1479000e-02,.1496300e-02,.1506600e-02,.1506600e-02,&
9178  & .1199800e-02,.1226100e-02,.1239800e-02,.1250000e-02,.1248700e-02,&
9179  & .9998000e-03,.1020200e-02,.1033200e-02,.1039900e-02,.1039200e-02,&
9180  & .8380500e-03,.8562900e-03,.8682700e-03,.8730300e-03,.8754000e-03,&
9181  & .7074300e-03,.7238100e-03,.7325100e-03,.7355000e-03,.7393100e-03,&
9182  & .5934800e-03,.6057200e-03,.6113700e-03,.6149600e-03,.6176100e-03,&
9183  & .4955600e-03,.5048800e-03,.5098700e-03,.5142100e-03,.5158100e-03,&
9184  & .4146100e-03,.4214500e-03,.4258400e-03,.4296900e-03,.4305500e-03,&
9185  & .3468300e-03,.3518100e-03,.3566000e-03,.3591100e-03,.3595800e-03,&
9186  & .2900400e-03,.2938300e-03,.2978700e-03,.2996400e-03,.3004200e-03,&
9187  & .2414600e-03,.2456100e-03,.2487900e-03,.2505300e-03,.2513400e-03,&
9188  & .2016000e-03,.2053700e-03,.2077400e-03,.2092800e-03,.2102300e-03,&
9189  & .1691600e-03,.1722600e-03,.1738600e-03,.1752900e-03,.1763400e-03,&
9190  & .1418300e-03,.1441400e-03,.1460400e-03,.1474100e-03,.1484400e-03,&
9191  & .1195400e-03,.1216100e-03,.1228600e-03,.1238600e-03,.1244800e-03,&
9192  & .1006700e-03,.1020500e-03,.1033100e-03,.1040900e-03,.1047600e-03,&
9193  & .8501400e-04,.8624800e-04,.8702400e-04,.8795800e-04,.8857900e-04,&
9194  & .7193000e-04,.7307400e-04,.7398500e-04,.7493400e-04,.7484800e-04,&
9195  & .6120500e-04,.6225900e-04,.6320900e-04,.6338300e-04,.6346600e-04,&
9196  & .5204600e-04,.5289600e-04,.5342000e-04,.5351600e-04,.5375500e-04,&
9197  & .4438000e-04,.4512100e-04,.4527700e-04,.4560400e-04,.4576100e-04,&
9198  & .3805800e-04,.3840900e-04,.3865700e-04,.3881300e-04,.3862800e-04/
9199 
9200  data absb(121:235, 3) / &
9201  & .3173500e-04,.3199000e-04,.3219900e-04,.3228800e-04,.3217900e-04,&
9202  & .2637800e-04,.2666700e-04,.2677800e-04,.2684000e-04,.2676000e-04,&
9203  & .2194900e-04,.2219500e-04,.2234000e-04,.2233000e-04,.2228100e-04,&
9204  & .1800100e-04,.1820900e-04,.1833800e-04,.1837600e-04,.1830900e-04,&
9205  & .1471500e-04,.1490600e-04,.1502500e-04,.1509800e-04,.1502600e-04,&
9206  & .1201900e-04,.1219700e-04,.1231200e-04,.1238000e-04,.1234600e-04,&
9207  & .9756600e-05,.9931800e-05,.1003600e-04,.1009600e-04,.1011800e-04,&
9208  & .7881000e-05,.8071600e-05,.8163700e-05,.8220200e-05,.8260800e-05,&
9209  & .6354100e-05,.6517100e-05,.6633000e-05,.6697700e-05,.6723900e-05,&
9210  & .5107700e-05,.5242800e-05,.5363600e-05,.5436300e-05,.5469300e-05,&
9211  & .4088300e-05,.4219600e-05,.4319900e-05,.4407400e-05,.4446200e-05,&
9212  & .3290900e-05,.3394100e-05,.3474600e-05,.3554600e-05,.3608900e-05,&
9213  & .2640100e-05,.2726900e-05,.2800300e-05,.2861600e-05,.2918800e-05,&
9214  & .2122200e-05,.2203200e-05,.2263800e-05,.2312700e-05,.2360300e-05,&
9215  & .1705600e-05,.1783800e-05,.1838600e-05,.1880400e-05,.1913400e-05,&
9216  & .1366200e-05,.1433300e-05,.1485500e-05,.1523800e-05,.1552100e-05,&
9217  & .1088900e-05,.1144500e-05,.1195500e-05,.1230000e-05,.1256000e-05,&
9218  & .8625100e-06,.9155600e-06,.9599900e-06,.9945400e-06,.1017100e-05,&
9219  & .6864000e-06,.7286800e-06,.7738900e-06,.8062700e-06,.8269600e-06,&
9220  & .5433400e-06,.5833900e-06,.6195300e-06,.6519000e-06,.6728500e-06,&
9221  & .4333600e-06,.4651100e-06,.4956100e-06,.5233700e-06,.5449100e-06,&
9222  & .3442800e-06,.3723600e-06,.3968700e-06,.4201700e-06,.4379000e-06,&
9223  & .2788300e-06,.3023700e-06,.3209600e-06,.3397800e-06,.3548500e-06/
9224 
9225  data absb( 1:120, 4) / &
9226  & .5280600e-02,.5355100e-02,.5383600e-02,.5381000e-02,.5341300e-02,&
9227  & .4359400e-02,.4411400e-02,.4426800e-02,.4418300e-02,.4387700e-02,&
9228  & .3608000e-02,.3642100e-02,.3660300e-02,.3654000e-02,.3630700e-02,&
9229  & .3000700e-02,.3032400e-02,.3047900e-02,.3037700e-02,.3017500e-02,&
9230  & .2511300e-02,.2541500e-02,.2548900e-02,.2542800e-02,.2528100e-02,&
9231  & .2111900e-02,.2134000e-02,.2139600e-02,.2138100e-02,.2123200e-02,&
9232  & .1770500e-02,.1788400e-02,.1794200e-02,.1793100e-02,.1781900e-02,&
9233  & .1471400e-02,.1485400e-02,.1492100e-02,.1492000e-02,.1487400e-02,&
9234  & .1222400e-02,.1234900e-02,.1243200e-02,.1241100e-02,.1239500e-02,&
9235  & .1017000e-02,.1028100e-02,.1031900e-02,.1031000e-02,.1028600e-02,&
9236  & .8468100e-03,.8548400e-03,.8551700e-03,.8554500e-03,.8557100e-03,&
9237  & .7033000e-03,.7087500e-03,.7107800e-03,.7126100e-03,.7111200e-03,&
9238  & .5848100e-03,.5887000e-03,.5915700e-03,.5930500e-03,.5923400e-03,&
9239  & .4864000e-03,.4904400e-03,.4939500e-03,.4946800e-03,.4946600e-03,&
9240  & .4047200e-03,.4091500e-03,.4123500e-03,.4127800e-03,.4134500e-03,&
9241  & .3382600e-03,.3420500e-03,.3436400e-03,.3448000e-03,.3452800e-03,&
9242  & .2830800e-03,.2862700e-03,.2879200e-03,.2891000e-03,.2895800e-03,&
9243  & .2375900e-03,.2399400e-03,.2419600e-03,.2429500e-03,.2427000e-03,&
9244  & .1999300e-03,.2020200e-03,.2039000e-03,.2045600e-03,.2041100e-03,&
9245  & .1685100e-03,.1706000e-03,.1715100e-03,.1716900e-03,.1713300e-03,&
9246  & .1427500e-03,.1439200e-03,.1444500e-03,.1445200e-03,.1439900e-03,&
9247  & .1206000e-03,.1214200e-03,.1218100e-03,.1216500e-03,.1210500e-03,&
9248  & .1016800e-03,.1024000e-03,.1027600e-03,.1026100e-03,.1020200e-03,&
9249  & .8578000e-04,.8663600e-04,.8681500e-04,.8678000e-04,.8672200e-04/
9250 
9251  data absb(121:235, 4) / &
9252  & .7154000e-04,.7220100e-04,.7242200e-04,.7250100e-04,.7239800e-04,&
9253  & .5960900e-04,.6015200e-04,.6044300e-04,.6054000e-04,.6053400e-04,&
9254  & .4968100e-04,.5019400e-04,.5048100e-04,.5064900e-04,.5064300e-04,&
9255  & .4081500e-04,.4133500e-04,.4156500e-04,.4172900e-04,.4177600e-04,&
9256  & .3347600e-04,.3393200e-04,.3417100e-04,.3430100e-04,.3439700e-04,&
9257  & .2741900e-04,.2782400e-04,.2808300e-04,.2822100e-04,.2829600e-04,&
9258  & .2234900e-04,.2275300e-04,.2297500e-04,.2310000e-04,.2316400e-04,&
9259  & .1819700e-04,.1848800e-04,.1874700e-04,.1887800e-04,.1894300e-04,&
9260  & .1481500e-04,.1508100e-04,.1528400e-04,.1540800e-04,.1549300e-04,&
9261  & .1204600e-04,.1230400e-04,.1247600e-04,.1259000e-04,.1265400e-04,&
9262  & .9783400e-05,.1001800e-04,.1018700e-04,.1029500e-04,.1036500e-04,&
9263  & .7905800e-05,.8158300e-05,.8315800e-05,.8425900e-05,.8479100e-05,&
9264  & .6384700e-05,.6621200e-05,.6773500e-05,.6881800e-05,.6938200e-05,&
9265  & .5161900e-05,.5369800e-05,.5523900e-05,.5623000e-05,.5693100e-05,&
9266  & .4176400e-05,.4354600e-05,.4501800e-05,.4592700e-05,.4660900e-05,&
9267  & .3369600e-05,.3530200e-05,.3658500e-05,.3754800e-05,.3809100e-05,&
9268  & .2714200e-05,.2858500e-05,.2970000e-05,.3063200e-05,.3116300e-05,&
9269  & .2197400e-05,.2317600e-05,.2416900e-05,.2498000e-05,.2555500e-05,&
9270  & .1782000e-05,.1882700e-05,.1964700e-05,.2034700e-05,.2089500e-05,&
9271  & .1444500e-05,.1527400e-05,.1599900e-05,.1655800e-05,.1700400e-05,&
9272  & .1161200e-05,.1239000e-05,.1302000e-05,.1350800e-05,.1388100e-05,&
9273  & .9360600e-06,.1001700e-05,.1059800e-05,.1101600e-05,.1136700e-05,&
9274  & .7668200e-06,.8231800e-06,.8728100e-06,.9120800e-06,.9403700e-06/
9275 
9276  data absb( 1:120, 5) / &
9277  & .2162906e-01,.2201877e-01,.2224013e-01,.2232097e-01,.2226088e-01,&
9278  & .1828684e-01,.1857354e-01,.1872091e-01,.1873615e-01,.1863965e-01,&
9279  & .1535086e-01,.1556848e-01,.1564923e-01,.1561925e-01,.1551236e-01,&
9280  & .1285052e-01,.1299486e-01,.1303075e-01,.1299836e-01,.1289615e-01,&
9281  & .1075316e-01,.1084397e-01,.1086973e-01,.1082689e-01,.1072798e-01,&
9282  & .9002505e-02,.9072913e-02,.9081241e-02,.9034900e-02,.8955849e-02,&
9283  & .7562305e-02,.7609626e-02,.7609405e-02,.7571232e-02,.7507851e-02,&
9284  & .6329221e-02,.6362683e-02,.6359991e-02,.6325694e-02,.6271378e-02,&
9285  & .5284028e-02,.5311691e-02,.5305973e-02,.5285178e-02,.5242950e-02,&
9286  & .4403121e-02,.4424122e-02,.4421960e-02,.4403212e-02,.4371719e-02,&
9287  & .3670406e-02,.3685830e-02,.3685814e-02,.3671437e-02,.3647935e-02,&
9288  & .3056358e-02,.3068927e-02,.3067363e-02,.3057520e-02,.3043098e-02,&
9289  & .2542912e-02,.2553558e-02,.2555470e-02,.2549363e-02,.2539078e-02,&
9290  & .2116477e-02,.2124848e-02,.2126732e-02,.2124859e-02,.2121688e-02,&
9291  & .1763370e-02,.1771671e-02,.1775722e-02,.1777888e-02,.1775372e-02,&
9292  & .1472312e-02,.1480631e-02,.1485906e-02,.1489295e-02,.1490270e-02,&
9293  & .1235246e-02,.1243142e-02,.1250718e-02,.1254010e-02,.1256275e-02,&
9294  & .1040850e-02,.1049997e-02,.1055542e-02,.1060339e-02,.1065075e-02,&
9295  & .8811911e-03,.8895566e-03,.8956959e-03,.9025351e-03,.9097381e-03,&
9296  & .7497834e-03,.7578993e-03,.7659613e-03,.7738154e-03,.7827692e-03,&
9297  & .6406593e-03,.6501363e-03,.6581906e-03,.6679566e-03,.6771392e-03,&
9298  & .5512107e-03,.5601135e-03,.5694184e-03,.5792748e-03,.5886259e-03,&
9299  & .4749345e-03,.4844659e-03,.4947239e-03,.5042924e-03,.5143445e-03,&
9300  & .4104977e-03,.4207339e-03,.4309147e-03,.4409904e-03,.4509584e-03/
9301 
9302  data absb(121:235, 5) / &
9303  & .3490867e-03,.3588313e-03,.3687089e-03,.3789368e-03,.3886881e-03,&
9304  & .2966250e-03,.3063019e-03,.3155889e-03,.3255266e-03,.3349869e-03,&
9305  & .2526321e-03,.2616358e-03,.2706359e-03,.2802750e-03,.2890766e-03,&
9306  & .2118746e-03,.2200243e-03,.2284269e-03,.2373129e-03,.2453378e-03,&
9307  & .1772518e-03,.1845848e-03,.1923345e-03,.2004084e-03,.2080501e-03,&
9308  & .1480145e-03,.1547136e-03,.1617671e-03,.1689561e-03,.1761243e-03,&
9309  & .1228565e-03,.1288933e-03,.1351904e-03,.1417161e-03,.1481713e-03,&
9310  & .1015563e-03,.1069125e-03,.1124515e-03,.1181336e-03,.1240966e-03,&
9311  & .8391796e-04,.8846774e-04,.9331366e-04,.9841094e-04,.1037701e-03,&
9312  & .6907800e-04,.7301768e-04,.7725329e-04,.8170854e-04,.8659904e-04,&
9313  & .5663202e-04,.6003002e-04,.6370177e-04,.6762785e-04,.7189491e-04,&
9314  & .4624238e-04,.4927219e-04,.5239730e-04,.5580819e-04,.5956741e-04,&
9315  & .3765713e-04,.4030391e-04,.4301446e-04,.4597554e-04,.4926441e-04,&
9316  & .3073045e-04,.3306204e-04,.3540699e-04,.3792633e-04,.4077919e-04,&
9317  & .2508246e-04,.2707468e-04,.2909111e-04,.3125371e-04,.3371262e-04,&
9318  & .2044678e-04,.2211599e-04,.2384933e-04,.2568808e-04,.2780633e-04,&
9319  & .1657839e-04,.1800707e-04,.1948311e-04,.2105650e-04,.2284205e-04,&
9320  & .1347071e-04,.1469642e-04,.1596158e-04,.1729776e-04,.1878962e-04,&
9321  & .1095998e-04,.1197888e-04,.1307499e-04,.1421130e-04,.1546214e-04,&
9322  & .8897744e-05,.9746282e-05,.1066740e-04,.1163972e-04,.1268761e-04,&
9323  & .7209215e-05,.7906994e-05,.8676190e-05,.9504972e-05,.1037954e-04,&
9324  & .5835869e-05,.6420526e-05,.7058145e-05,.7757162e-05,.8507066e-05,&
9325  & .4829548e-05,.5320639e-05,.5859975e-05,.6447762e-05,.7091888e-05/
9326 
9327  data absb( 1:120, 6) / &
9328  & .1413456e+00,.1451118e+00,.1482471e+00,.1506848e+00,.1524351e+00,&
9329  & .1284824e+00,.1323235e+00,.1353715e+00,.1377662e+00,.1396511e+00,&
9330  & .1165087e+00,.1201098e+00,.1230983e+00,.1255529e+00,.1275427e+00,&
9331  & .1056253e+00,.1090989e+00,.1120377e+00,.1145066e+00,.1165271e+00,&
9332  & .9552257e-01,.9900700e-01,.1020287e+00,.1046013e+00,.1068915e+00,&
9333  & .8651031e-01,.9000117e-01,.9310752e-01,.9595637e-01,.9839325e-01,&
9334  & .7836450e-01,.8201222e-01,.8531971e-01,.8822345e-01,.9085876e-01,&
9335  & .7092238e-01,.7459607e-01,.7796568e-01,.8111548e-01,.8403243e-01,&
9336  & .6424556e-01,.6792949e-01,.7138543e-01,.7475690e-01,.7782387e-01,&
9337  & .5852648e-01,.6226349e-01,.6593117e-01,.6939257e-01,.7271605e-01,&
9338  & .5365315e-01,.5746839e-01,.6121888e-01,.6482400e-01,.6833360e-01,&
9339  & .4952470e-01,.5342082e-01,.5723031e-01,.6098038e-01,.6470372e-01,&
9340  & .4609148e-01,.5006244e-01,.5398056e-01,.5794359e-01,.6187053e-01,&
9341  & .4334627e-01,.4739302e-01,.5147575e-01,.5560970e-01,.5968009e-01,&
9342  & .4118624e-01,.4532777e-01,.4955345e-01,.5391898e-01,.5813420e-01,&
9343  & .3952662e-01,.4385566e-01,.4826024e-01,.5268550e-01,.5705181e-01,&
9344  & .3841724e-01,.4291105e-01,.4755308e-01,.5207099e-01,.5646855e-01,&
9345  & .3779958e-01,.4252491e-01,.4729707e-01,.5191028e-01,.5641217e-01,&
9346  & .3769831e-01,.4260967e-01,.4736941e-01,.5212121e-01,.5677123e-01,&
9347  & .3802439e-01,.4300132e-01,.4793508e-01,.5274887e-01,.5740482e-01,&
9348  & .3864580e-01,.4371453e-01,.4869077e-01,.5366066e-01,.5849903e-01,&
9349  & .3933702e-01,.4447547e-01,.4962428e-01,.5473829e-01,.5982359e-01,&
9350  & .3971900e-01,.4497057e-01,.5034745e-01,.5572486e-01,.6081806e-01,&
9351  & .3964192e-01,.4514283e-01,.5071851e-01,.5624884e-01,.6141856e-01/
9352 
9353  data absb(121:235, 6) / &
9354  & .3866583e-01,.4430320e-01,.4992214e-01,.5555938e-01,.6080523e-01,&
9355  & .3776931e-01,.4345093e-01,.4914913e-01,.5483878e-01,.6021309e-01,&
9356  & .3697431e-01,.4267835e-01,.4846432e-01,.5419260e-01,.5971603e-01,&
9357  & .3540090e-01,.4109817e-01,.4690264e-01,.5270132e-01,.5824775e-01,&
9358  & .3376861e-01,.3944516e-01,.4521743e-01,.5105174e-01,.5670807e-01,&
9359  & .3217884e-01,.3777623e-01,.4359346e-01,.4943539e-01,.5515047e-01,&
9360  & .3023451e-01,.3578942e-01,.4155720e-01,.4739287e-01,.5322236e-01,&
9361  & .2814056e-01,.3368562e-01,.3938021e-01,.4520123e-01,.5100155e-01,&
9362  & .2613012e-01,.3159507e-01,.3723484e-01,.4301429e-01,.4881413e-01,&
9363  & .2404068e-01,.2939351e-01,.3504512e-01,.4079501e-01,.4656480e-01,&
9364  & .2179194e-01,.2706163e-01,.3260199e-01,.3830559e-01,.4403615e-01,&
9365  & .1964345e-01,.2472402e-01,.3015571e-01,.3586422e-01,.4157514e-01,&
9366  & .1761158e-01,.2244787e-01,.2779047e-01,.3341890e-01,.3908741e-01,&
9367  & .1578946e-01,.2041434e-01,.2560918e-01,.3115439e-01,.3682998e-01,&
9368  & .1410355e-01,.1854242e-01,.2353769e-01,.2895272e-01,.3464369e-01,&
9369  & .1247313e-01,.1674870e-01,.2151305e-01,.2681285e-01,.3241759e-01,&
9370  & .1093422e-01,.1501782e-01,.1957117e-01,.2466990e-01,.3022010e-01,&
9371  & .9611967e-02,.1347400e-01,.1786246e-01,.2277546e-01,.2821315e-01,&
9372  & .8428789e-02,.1205812e-01,.1629395e-01,.2103849e-01,.2627794e-01,&
9373  & .7314617e-02,.1072816e-01,.1475277e-01,.1935069e-01,.2443117e-01,&
9374  & .6277076e-02,.9462864e-02,.1326850e-01,.1769409e-01,.2260642e-01,&
9375  & .5370648e-02,.8332516e-02,.1192724e-01,.1617813e-01,.2094606e-01,&
9376  & .5000457e-02,.7850552e-02,.1134835e-01,.1553696e-01,.2024820e-01/
9377 
9378  data absb( 1:120, 7) / &
9379  & .1233797e+01,.1240309e+01,.1245906e+01,.1249038e+01,.1250667e+01,&
9380  & .1227509e+01,.1237527e+01,.1245130e+01,.1250890e+01,.1254582e+01,&
9381  & .1220370e+01,.1233242e+01,.1243916e+01,.1252002e+01,.1257208e+01,&
9382  & .1209755e+01,.1226066e+01,.1239648e+01,.1251101e+01,.1262465e+01,&
9383  & .1198271e+01,.1218221e+01,.1236549e+01,.1253105e+01,.1264757e+01,&
9384  & .1187954e+01,.1214287e+01,.1237014e+01,.1254616e+01,.1268426e+01,&
9385  & .1184097e+01,.1214093e+01,.1238496e+01,.1259993e+01,.1276453e+01,&
9386  & .1180879e+01,.1213827e+01,.1241956e+01,.1265044e+01,.1281987e+01,&
9387  & .1178298e+01,.1215263e+01,.1245209e+01,.1269051e+01,.1287376e+01,&
9388  & .1182695e+01,.1219813e+01,.1250266e+01,.1274554e+01,.1293058e+01,&
9389  & .1187264e+01,.1225491e+01,.1256328e+01,.1280895e+01,.1299927e+01,&
9390  & .1193354e+01,.1231549e+01,.1262983e+01,.1287976e+01,.1307592e+01,&
9391  & .1201358e+01,.1239017e+01,.1270766e+01,.1295922e+01,.1315914e+01,&
9392  & .1210113e+01,.1248264e+01,.1279581e+01,.1304944e+01,.1322887e+01,&
9393  & .1220261e+01,.1258227e+01,.1289322e+01,.1313044e+01,.1333034e+01,&
9394  & .1231439e+01,.1268725e+01,.1298471e+01,.1322363e+01,.1344202e+01,&
9395  & .1243861e+01,.1279684e+01,.1309193e+01,.1334435e+01,.1354444e+01,&
9396  & .1256537e+01,.1292561e+01,.1320904e+01,.1346216e+01,.1368544e+01,&
9397  & .1270814e+01,.1305822e+01,.1336261e+01,.1360944e+01,.1384844e+01,&
9398  & .1288177e+01,.1321480e+01,.1350393e+01,.1377826e+01,.1400827e+01,&
9399  & .1302859e+01,.1337128e+01,.1367775e+01,.1395784e+01,.1419468e+01,&
9400  & .1319163e+01,.1354279e+01,.1387311e+01,.1414162e+01,.1436650e+01,&
9401  & .1332975e+01,.1371023e+01,.1402616e+01,.1431177e+01,.1453004e+01,&
9402  & .1345134e+01,.1383758e+01,.1415866e+01,.1445650e+01,.1471428e+01/
9403 
9404  data absb(121:235, 7) / &
9405  & .1345082e+01,.1383743e+01,.1417311e+01,.1448976e+01,.1475650e+01,&
9406  & .1344235e+01,.1383125e+01,.1418137e+01,.1452392e+01,.1479460e+01,&
9407  & .1345148e+01,.1385709e+01,.1420152e+01,.1456438e+01,.1484592e+01,&
9408  & .1336140e+01,.1378290e+01,.1414883e+01,.1450315e+01,.1479273e+01,&
9409  & .1326907e+01,.1369209e+01,.1406929e+01,.1443061e+01,.1473182e+01,&
9410  & .1317970e+01,.1361334e+01,.1398756e+01,.1434897e+01,.1468648e+01,&
9411  & .1307925e+01,.1351090e+01,.1391766e+01,.1425847e+01,.1460105e+01,&
9412  & .1292135e+01,.1338462e+01,.1379193e+01,.1415171e+01,.1450080e+01,&
9413  & .1275926e+01,.1325616e+01,.1367315e+01,.1406267e+01,.1439728e+01,&
9414  & .1262168e+01,.1313046e+01,.1356870e+01,.1395704e+01,.1429802e+01,&
9415  & .1243844e+01,.1297984e+01,.1345253e+01,.1384776e+01,.1423560e+01,&
9416  & .1221932e+01,.1280865e+01,.1330001e+01,.1373395e+01,.1410813e+01,&
9417  & .1200347e+01,.1260855e+01,.1314395e+01,.1359376e+01,.1397674e+01,&
9418  & .1181546e+01,.1245642e+01,.1304804e+01,.1351665e+01,.1391744e+01,&
9419  & .1161296e+01,.1229915e+01,.1291786e+01,.1343999e+01,.1385754e+01,&
9420  & .1137476e+01,.1211401e+01,.1274402e+01,.1331651e+01,.1376935e+01,&
9421  & .1111820e+01,.1188448e+01,.1255900e+01,.1313802e+01,.1364916e+01,&
9422  & .1087055e+01,.1170159e+01,.1237638e+01,.1301159e+01,.1353229e+01,&
9423  & .1062808e+01,.1149118e+01,.1221983e+01,.1285669e+01,.1342137e+01,&
9424  & .1033591e+01,.1125023e+01,.1202761e+01,.1269609e+01,.1328922e+01,&
9425  & .1001992e+01,.1099491e+01,.1180679e+01,.1251796e+01,.1314844e+01,&
9426  & .9714260e+00,.1073483e+01,.1159480e+01,.1233092e+01,.1298532e+01,&
9427  & .9605430e+00,.1062574e+01,.1153238e+01,.1229435e+01,.1295998e+01/
9428 
9429  data absb( 1:120, 8) / &
9430  & .8974716e+01,.8691653e+01,.8415802e+01,.8168444e+01,.7938743e+01,&
9431  & .9715620e+01,.9387697e+01,.9091159e+01,.8812007e+01,.8550103e+01,&
9432  & .1040539e+02,.1005124e+02,.9716540e+01,.9405217e+01,.9117647e+01,&
9433  & .1107237e+02,.1067879e+02,.1030786e+02,.9949266e+01,.9577784e+01,&
9434  & .1169578e+02,.1125483e+02,.1081775e+02,.1038726e+02,.9999236e+01,&
9435  & .1224439e+02,.1171912e+02,.1121989e+02,.1076358e+02,.1033881e+02,&
9436  & .1266035e+02,.1208097e+02,.1155062e+02,.1103907e+02,.1056995e+02,&
9437  & .1303081e+02,.1240926e+02,.1182594e+02,.1128091e+02,.1079129e+02,&
9438  & .1335386e+02,.1267661e+02,.1206291e+02,.1149646e+02,.1098015e+02,&
9439  & .1353946e+02,.1285236e+02,.1221793e+02,.1163647e+02,.1110309e+02,&
9440  & .1368295e+02,.1297221e+02,.1232355e+02,.1172711e+02,.1117398e+02,&
9441  & .1377130e+02,.1305174e+02,.1238638e+02,.1177241e+02,.1119857e+02,&
9442  & .1380231e+02,.1307928e+02,.1239887e+02,.1176960e+02,.1117753e+02,&
9443  & .1379128e+02,.1305118e+02,.1236306e+02,.1171797e+02,.1114040e+02,&
9444  & .1373516e+02,.1298613e+02,.1228873e+02,.1164833e+02,.1103314e+02,&
9445  & .1364257e+02,.1288771e+02,.1219339e+02,.1154194e+02,.1089134e+02,&
9446  & .1350900e+02,.1275874e+02,.1205091e+02,.1137192e+02,.1073702e+02,&
9447  & .1335003e+02,.1258061e+02,.1187564e+02,.1118588e+02,.1051162e+02,&
9448  & .1314747e+02,.1237631e+02,.1163728e+02,.1094357e+02,.1023812e+02,&
9449  & .1288648e+02,.1212623e+02,.1139312e+02,.1065542e+02,.9954987e+01,&
9450  & .1264609e+02,.1186159e+02,.1109721e+02,.1034029e+02,.9619395e+01,&
9451  & .1238368e+02,.1157958e+02,.1077263e+02,.1001950e+02,.9300261e+01,&
9452  & .1217819e+02,.1132895e+02,.1052829e+02,.9741813e+01,.9027899e+01,&
9453  & .1202662e+02,.1116103e+02,.1034657e+02,.9538267e+01,.8771268e+01/
9454 
9455  data absb(121:235, 8) / &
9456  & .1208641e+02,.1121978e+02,.1038937e+02,.9556683e+01,.8777908e+01,&
9457  & .1215415e+02,.1128733e+02,.1043945e+02,.9575262e+01,.8790855e+01,&
9458  & .1219484e+02,.1131019e+02,.1047069e+02,.9582740e+01,.8782235e+01,&
9459  & .1240319e+02,.1150569e+02,.1064514e+02,.9772131e+01,.8965666e+01,&
9460  & .1261524e+02,.1172536e+02,.1085921e+02,.9982767e+01,.9163514e+01,&
9461  & .1282029e+02,.1192789e+02,.1107155e+02,.1020133e+02,.9340664e+01,&
9462  & .1305607e+02,.1217814e+02,.1129130e+02,.1045671e+02,.9593408e+01,&
9463  & .1336869e+02,.1246260e+02,.1158864e+02,.1074016e+02,.9877648e+01,&
9464  & .1367966e+02,.1274532e+02,.1187204e+02,.1099717e+02,.1016259e+02,&
9465  & .1395988e+02,.1302676e+02,.1213900e+02,.1127751e+02,.1044562e+02,&
9466  & .1430124e+02,.1334454e+02,.1243000e+02,.1157468e+02,.1069646e+02,&
9467  & .1467926e+02,.1368264e+02,.1276261e+02,.1187105e+02,.1102298e+02,&
9468  & .1504278e+02,.1404941e+02,.1309066e+02,.1219578e+02,.1135077e+02,&
9469  & .1535675e+02,.1433897e+02,.1332735e+02,.1242447e+02,.1156923e+02,&
9470  & .1567971e+02,.1462376e+02,.1359863e+02,.1264514e+02,.1177949e+02,&
9471  & .1604096e+02,.1493692e+02,.1391760e+02,.1291724e+02,.1202255e+02,&
9472  & .1641711e+02,.1529760e+02,.1424404e+02,.1325595e+02,.1230184e+02,&
9473  & .1677154e+02,.1558947e+02,.1455293e+02,.1351142e+02,.1256144e+02,&
9474  & .1711050e+02,.1590689e+02,.1481896e+02,.1379270e+02,.1280515e+02,&
9475  & .1750874e+02,.1625687e+02,.1512545e+02,.1407639e+02,.1306970e+02,&
9476  & .1793109e+02,.1661941e+02,.1546240e+02,.1437682e+02,.1334037e+02,&
9477  & .1833366e+02,.1698072e+02,.1578011e+02,.1467905e+02,.1362875e+02,&
9478  & .1847759e+02,.1713162e+02,.1587877e+02,.1475220e+02,.1369335e+02/
9479 
9480 ! ---
9481  data forref(1:3,1: 8) / &
9482  & .8605600e-06,.1304390e-05,.3823780e-05,.8179260e-06,.1585990e-05,&
9483  & .6587710e-04,.1293690e-05,.8244060e-05,.9527780e-04,.4389180e-05,&
9484  & .3753560e-04,.1191110e-03,.5773510e-04,.7309656e-04,.8352278e-04,&
9485  & .2517591e-03,.2051344e-03,.5589648e-04,.3341543e-03,.2978433e-03,&
9486  & .5905554e-04,.4375873e-03,.4018119e-03,.2342177e-03/
9487 
9488 
9489  data selfref(1:10,1: 8) / &
9490  & .7503700e-03,.6449380e-03,.5543210e-03,.4764360e-03,.4094940e-03,&
9491  & .3519570e-03,.3025050e-03,.2600020e-03,.2234700e-03,.1920710e-03,&
9492  & .1361350e-02,.1131870e-02,.9410760e-03,.7824400e-03,.6505460e-03,&
9493  & .5408850e-03,.4497090e-03,.3739020e-03,.3108740e-03,.2584710e-03,&
9494  & .3339500e-02,.2563910e-02,.1968450e-02,.1511290e-02,.1160300e-02,&
9495  & .8908240e-03,.6839340e-03,.5250930e-03,.4031430e-03,.3095150e-03,&
9496  & .7933920e-02,.5898650e-02,.4385480e-02,.3260480e-02,.2424080e-02,&
9497  & .1802230e-02,.1339910e-02,.9961860e-03,.7406360e-03,.5506420e-03,&
9498  & .8309571e-02,.7388342e-02,.6584621e-02,.5882080e-02,.5266743e-02,&
9499  & .4726659e-02,.4251616e-02,.3832861e-02,.3462890e-02,.3135269e-02,&
9500  & .1297838e-01,.1251031e-01,.1206401e-01,.1163845e-01,.1123247e-01,&
9501  & .1084516e-01,.1047551e-01,.1012259e-01,.9785517e-02,.9463545e-02,&
9502  & .1916794e-01,.1802151e-01,.1694407e-01,.1593151e-01,.1497992e-01,&
9503  & .1408552e-01,.1324501e-01,.1245490e-01,.1171229e-01,.1101426e-01,&
9504  & .2508831e-01,.2343262e-01,.2189176e-01,.2045740e-01,.1912177e-01,&
9505  & .1787778e-01,.1671886e-01,.1563887e-01,.1463222e-01,.1369363e-01/
9506 
9507 !........................................!
9508  end module module_radsw_kgb18 !
9509 !========================================!
9510 
9513 !========================================!
9515 !........................................!
9516 !
9517 ! ********* the original program descriptions ********* !
9518 ! !
9519 ! originally by j.delamere, atmospheric & environmental research. !
9520 ! revision: 2.4 !
9521 ! band 19: 4650-5150 cm-1 (low - h2o,co2; high - co2) !
9522 ! reformatted for f90 by jjmorcrette, ecmwf !
9523 ! !
9524 ! this table has been re-generated for reduced number of g-point !
9525 ! by y.t.hou, ncep !
9526 ! !
9527 ! ********* ********* end description ********* ********* !
9528 !
9529  use physparam, only : kind_phys
9530  use module_radsw_parameters, only : ng19
9531 
9532 !
9533  implicit none
9534 !
9535  private
9536 !
9538  integer, public :: msa19
9540  integer, public :: msb19
9542  integer, public :: msf19
9544  integer, public :: mfr19
9545  parameter(msa19=585, msb19=235, msf19=10, mfr19=3)
9546 
9552  real (kind=kind_phys), public :: selfref(msf19,ng19)
9553 
9569  real (kind=kind_phys), public :: absa(msa19,ng19)
9570 
9582  real (kind=kind_phys), public :: absb(msb19,ng19)
9583 
9584  real (kind=kind_phys), public :: forref(mfr19,ng19)
9585 
9587  real (kind=kind_phys), parameter, public :: rayl = 2.29e-09
9588 
9589  data absa( 1:180, 1) / &
9590  & .1498100e-05,.2665900e-05,.3187400e-05,.3550900e-05,.3759300e-05,&
9591  & .3851400e-05,.3736900e-05,.3501100e-05,.2389400e-05,.1510300e-05,&
9592  & .2734800e-05,.3269200e-05,.3655800e-05,.3892600e-05,.3973700e-05,&
9593  & .3879800e-05,.3656500e-05,.2407200e-05,.1523300e-05,.2809000e-05,&
9594  & .3374400e-05,.3772900e-05,.4025800e-05,.4110700e-05,.4038900e-05,&
9595  & .3822600e-05,.2470400e-05,.1521900e-05,.2897800e-05,.3501500e-05,&
9596  & .3898400e-05,.4156900e-05,.4277100e-05,.4211000e-05,.3996300e-05,&
9597  & .2550400e-05,.1525400e-05,.2963300e-05,.3622400e-05,.4043500e-05,&
9598  & .4297500e-05,.4441000e-05,.4384900e-05,.4184700e-05,.2642000e-05,&
9599  & .1302400e-05,.2369900e-05,.2837000e-05,.3144300e-05,.3332600e-05,&
9600  & .3379800e-05,.3279700e-05,.3007800e-05,.1881900e-05,.1324900e-05,&
9601  & .2429900e-05,.2910300e-05,.3233600e-05,.3430800e-05,.3501900e-05,&
9602  & .3404600e-05,.3132300e-05,.1951100e-05,.1324100e-05,.2505900e-05,&
9603  & .3001900e-05,.3331700e-05,.3551600e-05,.3633300e-05,.3537200e-05,&
9604  & .3261500e-05,.2025400e-05,.1332500e-05,.2584000e-05,.3100900e-05,&
9605  & .3439900e-05,.3669900e-05,.3772700e-05,.3681100e-05,.3401600e-05,&
9606  & .2061100e-05,.1332100e-05,.2660100e-05,.3218900e-05,.3564000e-05,&
9607  & .3801200e-05,.3911300e-05,.3827100e-05,.3549900e-05,.2136800e-05,&
9608  & .1107900e-05,.2075700e-05,.2484600e-05,.2751100e-05,.2888300e-05,&
9609  & .2914200e-05,.2820300e-05,.2570600e-05,.1512400e-05,.1129800e-05,&
9610  & .2127800e-05,.2555100e-05,.2830600e-05,.2981400e-05,.3012600e-05,&
9611  & .2932800e-05,.2672100e-05,.1578400e-05,.1140500e-05,.2181200e-05,&
9612  & .2623700e-05,.2913000e-05,.3081600e-05,.3126500e-05,.3048000e-05,&
9613  & .2778400e-05,.1646800e-05,.1134700e-05,.2247200e-05,.2709400e-05,&
9614  & .3005700e-05,.3182100e-05,.3253600e-05,.3171400e-05,.2883700e-05,&
9615  & .1718900e-05,.1138300e-05,.2315200e-05,.2801600e-05,.3112600e-05,&
9616  & .3305100e-05,.3375900e-05,.3296100e-05,.2999300e-05,.1791900e-05,&
9617  & .9310400e-06,.1800500e-05,.2169300e-05,.2381900e-05,.2482900e-05,&
9618  & .2486000e-05,.2386000e-05,.2158600e-05,.1219800e-05,.9459100e-06,&
9619  & .1830900e-05,.2215300e-05,.2448700e-05,.2557400e-05,.2572100e-05,&
9620  & .2480200e-05,.2245800e-05,.1310500e-05,.9563800e-06,.1875300e-05,&
9621  & .2278800e-05,.2514900e-05,.2649900e-05,.2667100e-05,.2579700e-05,&
9622  & .2333500e-05,.1401700e-05,.9576300e-06,.1937900e-05,.2327100e-05,&
9623  & .2585800e-05,.2743700e-05,.2779200e-05,.2679000e-05,.2426800e-05,&
9624  & .1487200e-05,.9566800e-06,.1987700e-05,.2399700e-05,.2672100e-05,&
9625  & .2838200e-05,.2880600e-05,.2785700e-05,.2522500e-05,.1569800e-05/
9626 
9627  data absa(181:315, 1) / &
9628  & .7732900e-06,.1535400e-05,.1872300e-05,.2041100e-05,.2109500e-05,&
9629  & .2101700e-05,.1999800e-05,.1801700e-05,.9762900e-06,.7824100e-06,&
9630  & .1566000e-05,.1909100e-05,.2097000e-05,.2178600e-05,.2173000e-05,&
9631  & .2079400e-05,.1873100e-05,.1064500e-05,.7946300e-06,.1594800e-05,&
9632  & .1945800e-05,.2152900e-05,.2255700e-05,.2257600e-05,.2163100e-05,&
9633  & .1946200e-05,.1150700e-05,.7977900e-06,.1638900e-05,.1987700e-05,&
9634  & .2208700e-05,.2327400e-05,.2346200e-05,.2250100e-05,.2020400e-05,&
9635  & .1236600e-05,.7987500e-06,.1686500e-05,.2041000e-05,.2278900e-05,&
9636  & .2404900e-05,.2428300e-05,.2338800e-05,.2100600e-05,.1315500e-05,&
9637  & .6379900e-06,.1307900e-05,.1587300e-05,.1718700e-05,.1768900e-05,&
9638  & .1750900e-05,.1662500e-05,.1495000e-05,.7762400e-06,.6442300e-06,&
9639  & .1318000e-05,.1617300e-05,.1764800e-05,.1825300e-05,.1815200e-05,&
9640  & .1729900e-05,.1548200e-05,.8545700e-06,.6521400e-06,.1348100e-05,&
9641  & .1647600e-05,.1815800e-05,.1886700e-05,.1885900e-05,.1799900e-05,&
9642  & .1608000e-05,.9396800e-06,.6594900e-06,.1372800e-05,.1679500e-05,&
9643  & .1861800e-05,.1950700e-05,.1956800e-05,.1869300e-05,.1671000e-05,&
9644  & .1025600e-05,.6601200e-06,.1405100e-05,.1717400e-05,.1915400e-05,&
9645  & .2011100e-05,.2023000e-05,.1942100e-05,.1736100e-05,.1107200e-05,&
9646  & .5265200e-06,.1099500e-05,.1322100e-05,.1428200e-05,.1462700e-05,&
9647  & .1449400e-05,.1375400e-05,.1235900e-05,.6239900e-06,.5263100e-06,&
9648  & .1104700e-05,.1349800e-05,.1464600e-05,.1509400e-05,.1496100e-05,&
9649  & .1427200e-05,.1279100e-05,.6969200e-06,.5326300e-06,.1123100e-05,&
9650  & .1376300e-05,.1505900e-05,.1560200e-05,.1553300e-05,.1482700e-05,&
9651  & .1325700e-05,.7695900e-06,.5378800e-06,.1144800e-05,.1402600e-05,&
9652  & .1547800e-05,.1612200e-05,.1613700e-05,.1539800e-05,.1374800e-05,&
9653  & .8448800e-06,.5424300e-06,.1166000e-05,.1428800e-05,.1589100e-05,&
9654  & .1661900e-05,.1667200e-05,.1597800e-05,.1426500e-05,.9243900e-06/
9655 
9656  data absa(316:450, 1) / &
9657  & .4286000e-06,.9120800e-06,.1088700e-05,.1173200e-05,.1200000e-05,&
9658  & .1190100e-05,.1130000e-05,.1018100e-05,.5136000e-06,.4260500e-06,&
9659  & .9135500e-06,.1110500e-05,.1200400e-05,.1235900e-05,.1223800e-05,&
9660  & .1167400e-05,.1049600e-05,.5859300e-06,.4291000e-06,.9245800e-06,&
9661  & .1134100e-05,.1235500e-05,.1275400e-05,.1266700e-05,.1210000e-05,&
9662  & .1087700e-05,.6520900e-06,.4334500e-06,.9402400e-06,.1154000e-05,&
9663  & .1266900e-05,.1318600e-05,.1316300e-05,.1256700e-05,.1128000e-05,&
9664  & .7205100e-06,.4374400e-06,.9584500e-06,.1176400e-05,.1302200e-05,&
9665  & .1359500e-05,.1361800e-05,.1303400e-05,.1167100e-05,.7937300e-06,&
9666  & .3445800e-06,.7484400e-06,.8921700e-06,.9587500e-06,.9824300e-06,&
9667  & .9756600e-06,.9293600e-06,.8361100e-06,.4418100e-06,.3479700e-06,&
9668  & .7530400e-06,.9081600e-06,.9826400e-06,.1008000e-05,.9988900e-06,&
9669  & .9531800e-06,.8604100e-06,.5101300e-06,.3459300e-06,.7602000e-06,&
9670  & .9270700e-06,.1006200e-05,.1039100e-05,.1029600e-05,.9853000e-06,&
9671  & .8901100e-06,.5807000e-06,.3497100e-06,.7708800e-06,.9462300e-06,&
9672  & .1034200e-05,.1072600e-05,.1068900e-05,.1021000e-05,.9202000e-06,&
9673  & .6569700e-06,.3528200e-06,.7851700e-06,.9624500e-06,.1060900e-05,&
9674  & .1107100e-05,.1107300e-05,.1058300e-05,.9505400e-06,.7295600e-06,&
9675  & .2784000e-06,.6103500e-06,.7293000e-06,.7841500e-06,.8045100e-06,&
9676  & .7992400e-06,.7623100e-06,.6872700e-06,.4020800e-06,.2817100e-06,&
9677  & .6179800e-06,.7419700e-06,.8011500e-06,.8218300e-06,.8162100e-06,&
9678  & .7803000e-06,.7042500e-06,.4670000e-06,.2802300e-06,.6226900e-06,&
9679  & .7568500e-06,.8210100e-06,.8453800e-06,.8382100e-06,.8030100e-06,&
9680  & .7266300e-06,.5378100e-06,.2816300e-06,.6315600e-06,.7721400e-06,&
9681  & .8424400e-06,.8718400e-06,.8675200e-06,.8302400e-06,.7500000e-06,&
9682  & .6047800e-06,.2851800e-06,.6407000e-06,.7862800e-06,.8643900e-06,&
9683  & .8996900e-06,.8991000e-06,.8593300e-06,.7737600e-06,.6701600e-06/
9684 
9685  data absa(451:585, 1) / &
9686  & .2255500e-06,.5004200e-06,.5996000e-06,.6453700e-06,.6632400e-06,&
9687  & .6592400e-06,.6300300e-06,.5689000e-06,.3446600e-06,.2285800e-06,&
9688  & .5070500e-06,.6099700e-06,.6594800e-06,.6768800e-06,.6731100e-06,&
9689  & .6446200e-06,.5833300e-06,.4030000e-06,.2267700e-06,.5117800e-06,&
9690  & .6229900e-06,.6757200e-06,.6962400e-06,.6912600e-06,.6628500e-06,&
9691  & .6009000e-06,.4606600e-06,.2282500e-06,.5190700e-06,.6350000e-06,&
9692  & .6931100e-06,.7179600e-06,.7148400e-06,.6841600e-06,.6185900e-06,&
9693  & .5196600e-06,.2312200e-06,.5259800e-06,.6457400e-06,.7111600e-06,&
9694  & .7404600e-06,.7397900e-06,.7067200e-06,.6370800e-06,.5819600e-06,&
9695  & .1814900e-06,.4082900e-06,.4902200e-06,.5291000e-06,.5440800e-06,&
9696  & .5416300e-06,.5186700e-06,.4693300e-06,.2849600e-06,.1843300e-06,&
9697  & .4137800e-06,.4990800e-06,.5402700e-06,.5552200e-06,.5528600e-06,&
9698  & .5303800e-06,.4810300e-06,.3333600e-06,.1824600e-06,.4179900e-06,&
9699  & .5096500e-06,.5534700e-06,.5713400e-06,.5678700e-06,.5447700e-06,&
9700  & .4946200e-06,.3802300e-06,.1840900e-06,.4234700e-06,.5193600e-06,&
9701  & .5674900e-06,.5887700e-06,.5864800e-06,.5614900e-06,.5082500e-06,&
9702  & .4308100e-06,.1858200e-06,.4288800e-06,.5283000e-06,.5824000e-06,&
9703  & .6064700e-06,.6059800e-06,.5793300e-06,.5227700e-06,.4856500e-06,&
9704  & .1434500e-06,.3292700e-06,.3975000e-06,.4300000e-06,.4431800e-06,&
9705  & .4420100e-06,.4246900e-06,.3853800e-06,.2337700e-06,.1457100e-06,&
9706  & .3335500e-06,.4043000e-06,.4395400e-06,.4525600e-06,.4515900e-06,&
9707  & .4339900e-06,.3946700e-06,.2733800e-06,.1444200e-06,.3371900e-06,&
9708  & .4131600e-06,.4499600e-06,.4657500e-06,.4636400e-06,.4452800e-06,&
9709  & .4051000e-06,.3115400e-06,.1460000e-06,.3414100e-06,.4213600e-06,&
9710  & .4609600e-06,.4793700e-06,.4781700e-06,.4585000e-06,.4159800e-06,&
9711  & .3528900e-06,.1466700e-06,.3460800e-06,.4285300e-06,.4729600e-06,&
9712  & .4930000e-06,.4935200e-06,.4728000e-06,.4275700e-06,.3975200e-06/
9713 
9714  data absa( 1:180, 2) / &
9715  & .1628800e-04,.2581700e-04,.2959700e-04,.3131900e-04,.3122000e-04,&
9716  & .2953900e-04,.2562700e-04,.1975800e-04,.7294400e-05,.1812300e-04,&
9717  & .2856500e-04,.3263300e-04,.3442700e-04,.3421900e-04,.3222300e-04,&
9718  & .2798700e-04,.2148500e-04,.7955400e-05,.1995700e-04,.3160700e-04,&
9719  & .3603300e-04,.3788700e-04,.3769400e-04,.3539900e-04,.3071800e-04,&
9720  & .2341200e-04,.8529300e-05,.2200500e-04,.3506400e-04,.3976300e-04,&
9721  & .4169400e-04,.4149000e-04,.3889100e-04,.3371500e-04,.2551200e-04,&
9722  & .9123200e-05,.2424000e-04,.3890600e-04,.4389900e-04,.4587000e-04,&
9723  & .4558000e-04,.4261600e-04,.3691200e-04,.2772800e-04,.9779200e-05,&
9724  & .1494400e-04,.2322300e-04,.2579200e-04,.2701900e-04,.2696300e-04,&
9725  & .2543100e-04,.2206900e-04,.1693300e-04,.5907100e-05,.1661500e-04,&
9726  & .2545200e-04,.2832200e-04,.2980000e-04,.2959300e-04,.2777600e-04,&
9727  & .2412300e-04,.1844400e-04,.6314200e-05,.1835500e-04,.2799600e-04,&
9728  & .3133800e-04,.3289200e-04,.3257500e-04,.3047800e-04,.2650400e-04,&
9729  & .2013200e-04,.6789800e-05,.2009200e-04,.3093800e-04,.3468000e-04,&
9730  & .3625500e-04,.3583600e-04,.3350000e-04,.2910600e-04,.2195000e-04,&
9731  & .7334300e-05,.2189700e-04,.3415000e-04,.3827400e-04,.3993100e-04,&
9732  & .3933700e-04,.3675200e-04,.3183100e-04,.2388200e-04,.7870500e-05,&
9733  & .1313000e-04,.2036300e-04,.2237700e-04,.2300300e-04,.2268300e-04,&
9734  & .2142900e-04,.1862100e-04,.1417700e-04,.4789200e-05,.1461000e-04,&
9735  & .2229900e-04,.2448600e-04,.2514000e-04,.2484200e-04,.2341300e-04,&
9736  & .2036100e-04,.1546900e-04,.5225000e-05,.1613300e-04,.2448200e-04,&
9737  & .2687600e-04,.2765300e-04,.2735700e-04,.2566900e-04,.2234100e-04,&
9738  & .1689700e-04,.5664700e-05,.1770800e-04,.2688700e-04,.2952200e-04,&
9739  & .3057700e-04,.3015100e-04,.2822100e-04,.2454500e-04,.1845500e-04,&
9740  & .6073500e-05,.1930500e-04,.2936400e-04,.3252000e-04,.3374100e-04,&
9741  & .3316200e-04,.3097600e-04,.2680000e-04,.2010300e-04,.6486400e-05,&
9742  & .1116300e-04,.1749800e-04,.1906900e-04,.1956100e-04,.1915400e-04,&
9743  & .1790600e-04,.1552200e-04,.1177800e-04,.4046100e-05,.1250500e-04,&
9744  & .1923800e-04,.2091700e-04,.2136500e-04,.2091300e-04,.1947100e-04,&
9745  & .1698600e-04,.1285600e-04,.4393500e-05,.1384800e-04,.2113200e-04,&
9746  & .2297500e-04,.2343300e-04,.2289300e-04,.2132700e-04,.1866200e-04,&
9747  & .1405600e-04,.4701500e-05,.1521900e-04,.2315900e-04,.2525000e-04,&
9748  & .2575300e-04,.2508800e-04,.2343700e-04,.2045500e-04,.1536600e-04,&
9749  & .5023900e-05,.1663100e-04,.2531100e-04,.2765100e-04,.2824300e-04,&
9750  & .2756600e-04,.2577500e-04,.2234400e-04,.1675800e-04,.5359400e-05/
9751 
9752  data absa(181:315, 2) / &
9753  & .9268800e-05,.1482900e-04,.1603600e-04,.1638800e-04,.1608700e-04,&
9754  & .1504900e-04,.1293900e-04,.9724300e-05,.3506400e-05,.1042800e-04,&
9755  & .1628900e-04,.1759600e-04,.1792800e-04,.1754700e-04,.1634700e-04,&
9756  & .1410800e-04,.1062100e-04,.3789300e-05,.1160000e-04,.1792200e-04,&
9757  & .1940300e-04,.1970100e-04,.1922700e-04,.1783500e-04,.1543900e-04,&
9758  & .1162700e-04,.4042600e-05,.1279500e-04,.1967200e-04,.2136000e-04,&
9759  & .2167700e-04,.2107800e-04,.1953500e-04,.1691900e-04,.1274600e-04,&
9760  & .4301500e-05,.1402900e-04,.2155100e-04,.2341000e-04,.2374600e-04,&
9761  & .2310600e-04,.2139700e-04,.1850000e-04,.1391800e-04,.4566300e-05,&
9762  & .7535800e-05,.1228400e-04,.1332100e-04,.1358000e-04,.1332200e-04,&
9763  & .1245900e-04,.1075700e-04,.8001200e-05,.2859500e-05,.8480100e-05,&
9764  & .1354100e-04,.1460000e-04,.1485700e-04,.1451900e-04,.1352800e-04,&
9765  & .1174700e-04,.8719900e-05,.3125000e-05,.9479700e-05,.1489800e-04,&
9766  & .1608800e-04,.1632900e-04,.1592200e-04,.1478600e-04,.1283900e-04,&
9767  & .9540600e-05,.3392500e-05,.1051000e-04,.1638700e-04,.1770900e-04,&
9768  & .1796800e-04,.1746500e-04,.1620500e-04,.1399900e-04,.1046500e-04,&
9769  & .3678600e-05,.1155400e-04,.1797300e-04,.1944200e-04,.1973600e-04,&
9770  & .1917000e-04,.1775100e-04,.1528800e-04,.1144100e-04,.3961800e-05,&
9771  & .5999400e-05,.1006800e-04,.1090300e-04,.1110000e-04,.1091000e-04,&
9772  & .1020700e-04,.8830100e-05,.6575500e-05,.2353700e-05,.6791100e-05,&
9773  & .1109800e-04,.1196400e-04,.1216100e-04,.1191000e-04,.1111300e-04,&
9774  & .9647500e-05,.7173300e-05,.2602100e-05,.7601200e-05,.1220500e-04,&
9775  & .1316700e-04,.1336800e-04,.1305800e-04,.1213600e-04,.1057100e-04,&
9776  & .7845200e-05,.2841600e-05,.8458200e-05,.1341200e-04,.1451800e-04,&
9777  & .1472100e-04,.1432800e-04,.1332300e-04,.1152700e-04,.8599500e-05,&
9778  & .3092500e-05,.9334600e-05,.1474900e-04,.1597300e-04,.1618000e-04,&
9779  & .1573000e-04,.1459700e-04,.1260100e-04,.9397300e-05,.3328500e-05/
9780 
9781  data absa(316:450, 2) / &
9782  & .4717400e-05,.8136700e-05,.8818400e-05,.9000700e-05,.8836300e-05,&
9783  & .8305900e-05,.7210100e-05,.5349600e-05,.1886200e-05,.5354300e-05,&
9784  & .8985200e-05,.9690400e-05,.9866600e-05,.9650900e-05,.9036800e-05,&
9785  & .7870000e-05,.5834100e-05,.2114700e-05,.6008800e-05,.9885500e-05,&
9786  & .1066600e-04,.1084900e-04,.1059700e-04,.9882600e-05,.8624300e-05,&
9787  & .6394900e-05,.2367200e-05,.6695800e-05,.1087300e-04,.1175100e-04,&
9788  & .1194500e-04,.1163600e-04,.1085200e-04,.9410100e-05,.7026200e-05,&
9789  & .2632900e-05,.7419100e-05,.1196000e-04,.1294300e-04,.1315200e-04,&
9790  & .1278800e-04,.1188900e-04,.1029700e-04,.7697700e-05,.2901900e-05,&
9791  & .3688600e-05,.6514000e-05,.7068400e-05,.7237700e-05,.7108000e-05,&
9792  & .6707600e-05,.5835300e-05,.4329700e-05,.1641900e-05,.4177200e-05,&
9793  & .7210400e-05,.7779300e-05,.7933500e-05,.7768200e-05,.7290300e-05,&
9794  & .6364000e-05,.4721000e-05,.1872100e-05,.4712300e-05,.7947100e-05,&
9795  & .8566200e-05,.8739600e-05,.8531900e-05,.7976900e-05,.6969400e-05,&
9796  & .5179300e-05,.2101500e-05,.5261200e-05,.8731900e-05,.9436500e-05,&
9797  & .9619100e-05,.9378300e-05,.8758100e-05,.7627700e-05,.5697400e-05,&
9798  & .2350500e-05,.5840100e-05,.9610600e-05,.1040400e-04,.1059400e-04,&
9799  & .1030800e-04,.9603000e-05,.8340200e-05,.6262700e-05,.2617000e-05,&
9800  & .2902300e-05,.5223000e-05,.5666900e-05,.5815800e-05,.5713700e-05,&
9801  & .5424100e-05,.4741600e-05,.3509800e-05,.1422300e-05,.3275200e-05,&
9802  & .5790300e-05,.6254800e-05,.6385900e-05,.6252800e-05,.5888100e-05,&
9803  & .5154200e-05,.3825700e-05,.1655900e-05,.3704700e-05,.6389200e-05,&
9804  & .6892800e-05,.7031200e-05,.6873400e-05,.6435700e-05,.5636100e-05,&
9805  & .4200300e-05,.1924800e-05,.4147100e-05,.7017900e-05,.7592000e-05,&
9806  & .7749600e-05,.7550800e-05,.7062400e-05,.6177800e-05,.4627100e-05,&
9807  & .2207400e-05,.4606100e-05,.7721500e-05,.8369900e-05,.8530000e-05,&
9808  & .8312100e-05,.7749300e-05,.6755100e-05,.5093100e-05,.2504300e-05/
9809 
9810  data absa(451:585, 2) / &
9811  & .2406000e-05,.4375200e-05,.4737200e-05,.4859800e-05,.4768900e-05,&
9812  & .4529000e-05,.3965300e-05,.2944400e-05,.1225500e-05,.2712300e-05,&
9813  & .4847900e-05,.5233900e-05,.5348200e-05,.5234200e-05,.4927500e-05,&
9814  & .4323900e-05,.3219600e-05,.1428200e-05,.3063200e-05,.5340200e-05,&
9815  & .5766000e-05,.5893600e-05,.5751500e-05,.5387300e-05,.4734400e-05,&
9816  & .3541000e-05,.1663600e-05,.3424500e-05,.5865300e-05,.6355400e-05,&
9817  & .6487800e-05,.6324400e-05,.5914700e-05,.5185500e-05,.3906800e-05,&
9818  & .1885800e-05,.3798400e-05,.6455700e-05,.7003200e-05,.7143200e-05,&
9819  & .6959100e-05,.6493600e-05,.5674800e-05,.4288900e-05,.2152900e-05,&
9820  & .1982200e-05,.3643800e-05,.3943900e-05,.4042800e-05,.3965600e-05,&
9821  & .3762700e-05,.3304800e-05,.2462000e-05,.1034900e-05,.2234700e-05,&
9822  & .4032900e-05,.4355900e-05,.4453500e-05,.4355600e-05,.4101800e-05,&
9823  & .3615600e-05,.2697600e-05,.1207800e-05,.2519600e-05,.4440500e-05,&
9824  & .4796500e-05,.4902500e-05,.4785000e-05,.4485400e-05,.3954200e-05,&
9825  & .2973400e-05,.1390800e-05,.2814200e-05,.4879200e-05,.5288200e-05,&
9826  & .5396200e-05,.5264600e-05,.4920200e-05,.4322900e-05,.3281700e-05,&
9827  & .1589500e-05,.3118200e-05,.5368400e-05,.5825600e-05,.5941300e-05,&
9828  & .5785500e-05,.5404300e-05,.4729800e-05,.3592500e-05,.1805000e-05,&
9829  & .1620600e-05,.3012200e-05,.3261200e-05,.3345100e-05,.3279400e-05,&
9830  & .3114400e-05,.2743000e-05,.2048800e-05,.8526700e-06,.1826700e-05,&
9831  & .3333100e-05,.3600200e-05,.3681600e-05,.3605400e-05,.3395000e-05,&
9832  & .3002100e-05,.2248700e-05,.9949000e-06,.2058700e-05,.3668100e-05,&
9833  & .3965100e-05,.4053100e-05,.3956400e-05,.3712700e-05,.3281500e-05,&
9834  & .2479500e-05,.1142200e-05,.2297300e-05,.4032500e-05,.4372800e-05,&
9835  & .4460000e-05,.4354000e-05,.4071800e-05,.3584800e-05,.2736600e-05,&
9836  & .1305100e-05,.2545200e-05,.4437900e-05,.4816400e-05,.4910000e-05,&
9837  & .4783300e-05,.4467400e-05,.3919400e-05,.2990400e-05,.1481700e-05/
9838 
9839  data absa( 1:180, 3) / &
9840  & .6664100e-04,.9299000e-04,.9627700e-04,.9518200e-04,.9142400e-04,&
9841  & .8544500e-04,.7701400e-04,.6209100e-04,.1828400e-04,.7535000e-04,&
9842  & .1039100e-03,.1075100e-03,.1060600e-03,.1017400e-03,.9475600e-04,&
9843  & .8448700e-04,.6726700e-04,.2003700e-04,.8528600e-04,.1156300e-03,&
9844  & .1196600e-03,.1177700e-03,.1125900e-03,.1043500e-03,.9207600e-04,&
9845  & .7249200e-04,.2222900e-04,.9613700e-04,.1283600e-03,.1326500e-03,&
9846  & .1303100e-03,.1240400e-03,.1140900e-03,.9975600e-04,.7789700e-04,&
9847  & .2465600e-04,.1073900e-03,.1420900e-03,.1465200e-03,.1436300e-03,&
9848  & .1357900e-03,.1240800e-03,.1074900e-03,.8327300e-04,.2699800e-04,&
9849  & .5700500e-04,.8068800e-04,.8419900e-04,.8306700e-04,.7948000e-04,&
9850  & .7409600e-04,.6632800e-04,.5353200e-04,.1453400e-04,.6451800e-04,&
9851  & .9027400e-04,.9414900e-04,.9249600e-04,.8837400e-04,.8204800e-04,&
9852  & .7269800e-04,.5787100e-04,.1620200e-04,.7301400e-04,.1006500e-03,&
9853  & .1046600e-03,.1027100e-03,.9788000e-04,.9037200e-04,.7936100e-04,&
9854  & .6235700e-04,.1805600e-04,.8229700e-04,.1119500e-03,.1158600e-03,&
9855  & .1136500e-03,.1079900e-03,.9882900e-04,.8592300e-04,.6689100e-04,&
9856  & .1989000e-04,.9217500e-04,.1239900e-03,.1279400e-03,.1253100e-03,&
9857  & .1182500e-03,.1076400e-03,.9274400e-04,.7160800e-04,.2196800e-04,&
9858  & .4732400e-04,.6816700e-04,.7106900e-04,.7029300e-04,.6731300e-04,&
9859  & .6245600e-04,.5564600e-04,.4493300e-04,.1137400e-04,.5365800e-04,&
9860  & .7634200e-04,.7956000e-04,.7854700e-04,.7499700e-04,.6926400e-04,&
9861  & .6111900e-04,.4858700e-04,.1263900e-04,.6090500e-04,.8524700e-04,&
9862  & .8873800e-04,.8738700e-04,.8309800e-04,.7643200e-04,.6673300e-04,&
9863  & .5227500e-04,.1387100e-04,.6883100e-04,.9496000e-04,.9863800e-04,&
9864  & .9677800e-04,.9181600e-04,.8374700e-04,.7240300e-04,.5616500e-04,&
9865  & .1542300e-04,.7725900e-04,.1054900e-03,.1090900e-03,.1067200e-03,&
9866  & .1006500e-03,.9132000e-04,.7840600e-04,.6015700e-04,.1714100e-04,&
9867  & .4010200e-04,.5699000e-04,.5944400e-04,.5873200e-04,.5609100e-04,&
9868  & .5190200e-04,.4624700e-04,.3744200e-04,.9402200e-05,.4493000e-04,&
9869  & .6389300e-04,.6662900e-04,.6569400e-04,.6262700e-04,.5782200e-04,&
9870  & .5081900e-04,.4042100e-04,.1047500e-04,.5053200e-04,.7142400e-04,&
9871  & .7435200e-04,.7322100e-04,.6965100e-04,.6403400e-04,.5543000e-04,&
9872  & .4352900e-04,.1172800e-04,.5695300e-04,.7974000e-04,.8276900e-04,&
9873  & .8131400e-04,.7727800e-04,.7032400e-04,.6039600e-04,.4674700e-04,&
9874  & .1306300e-04,.6401900e-04,.8864700e-04,.9176800e-04,.8992600e-04,&
9875  & .8495800e-04,.7674000e-04,.6556100e-04,.5006600e-04,.1443500e-04/
9876 
9877  data absa(181:315, 3) / &
9878  & .3380600e-04,.4782600e-04,.4944300e-04,.4877500e-04,.4647700e-04,&
9879  & .4279100e-04,.3815500e-04,.3117500e-04,.7788600e-05,.3797300e-04,&
9880  & .5339200e-04,.5552600e-04,.5471900e-04,.5206200e-04,.4776300e-04,&
9881  & .4202100e-04,.3351000e-04,.8740400e-05,.4275800e-04,.5966600e-04,&
9882  & .6205800e-04,.6112700e-04,.5801200e-04,.5307100e-04,.4597100e-04,&
9883  & .3611400e-04,.9849900e-05,.4800600e-04,.6667900e-04,.6923000e-04,&
9884  & .6798900e-04,.6440000e-04,.5852100e-04,.5019600e-04,.3871000e-04,&
9885  & .1102200e-04,.5365700e-04,.7424400e-04,.7681300e-04,.7530300e-04,&
9886  & .7101100e-04,.6409200e-04,.5459900e-04,.4148100e-04,.1222500e-04,&
9887  & .2795300e-04,.4022300e-04,.4133100e-04,.4033200e-04,.3811400e-04,&
9888  & .3496700e-04,.3115800e-04,.2570100e-04,.6760400e-05,.3159500e-04,&
9889  & .4497500e-04,.4637400e-04,.4522900e-04,.4277500e-04,.3916200e-04,&
9890  & .3437300e-04,.2761600e-04,.7555800e-05,.3564900e-04,.5026300e-04,&
9891  & .5171300e-04,.5051600e-04,.4785500e-04,.4360500e-04,.3770500e-04,&
9892  & .2980000e-04,.8406300e-05,.4008600e-04,.5590500e-04,.5758400e-04,&
9893  & .5634800e-04,.5320000e-04,.4828300e-04,.4133100e-04,.3193600e-04,&
9894  & .9268600e-05,.4493100e-04,.6202500e-04,.6394200e-04,.6249800e-04,&
9895  & .5878800e-04,.5303200e-04,.4508500e-04,.3422900e-04,.1017500e-04,&
9896  & .2282900e-04,.3327800e-04,.3419600e-04,.3338100e-04,.3144400e-04,&
9897  & .2861500e-04,.2533100e-04,.2109600e-04,.6073200e-05,.2591700e-04,&
9898  & .3742400e-04,.3852700e-04,.3758000e-04,.3530200e-04,.3202000e-04,&
9899  & .2795700e-04,.2266000e-04,.6818000e-05,.2938600e-04,.4193300e-04,&
9900  & .4321300e-04,.4203900e-04,.3944500e-04,.3565900e-04,.3078000e-04,&
9901  & .2443200e-04,.7629600e-05,.3318600e-04,.4681100e-04,.4821800e-04,&
9902  & .4684900e-04,.4384800e-04,.3956700e-04,.3385800e-04,.2625700e-04,&
9903  & .8263400e-05,.3722700e-04,.5206000e-04,.5359200e-04,.5194800e-04,&
9904  & .4847100e-04,.4359500e-04,.3702200e-04,.2813000e-04,.9005300e-05/
9905 
9906  data absa(316:450, 3) / &
9907  & .1833300e-04,.2725900e-04,.2792900e-04,.2723000e-04,.2567200e-04,&
9908  & .2337400e-04,.2057100e-04,.1733300e-04,.5415700e-05,.2094800e-04,&
9909  & .3077400e-04,.3160400e-04,.3082300e-04,.2900200e-04,.2629200e-04,&
9910  & .2273400e-04,.1859300e-04,.6166900e-05,.2388300e-04,.3464200e-04,&
9911  & .3565600e-04,.3467000e-04,.3250700e-04,.2930300e-04,.2511100e-04,&
9912  & .1998500e-04,.6904800e-05,.2709800e-04,.3880200e-04,.4001300e-04,&
9913  & .3877700e-04,.3621400e-04,.3254200e-04,.2767400e-04,.2152600e-04,&
9914  & .7659100e-05,.3046200e-04,.4330700e-04,.4459600e-04,.4312700e-04,&
9915  & .4014200e-04,.3589000e-04,.3027600e-04,.2306500e-04,.8448000e-05,&
9916  & .1451000e-04,.2204900e-04,.2259600e-04,.2202100e-04,.2075000e-04,&
9917  & .1889500e-04,.1668500e-04,.1415800e-04,.5028400e-05,.1671000e-04,&
9918  & .2501200e-04,.2568600e-04,.2501700e-04,.2353700e-04,.2135000e-04,&
9919  & .1851700e-04,.1517000e-04,.5901600e-05,.1913800e-04,.2827100e-04,&
9920  & .2910400e-04,.2827200e-04,.2649300e-04,.2391600e-04,.2053000e-04,&
9921  & .1629700e-04,.6841300e-05,.2179800e-04,.3185900e-04,.3280200e-04,&
9922  & .3176200e-04,.2960300e-04,.2664300e-04,.2265000e-04,.1755900e-04,&
9923  & .7809300e-05,.2459900e-04,.3561800e-04,.3673600e-04,.3545600e-04,&
9924  & .3298100e-04,.2945900e-04,.2487700e-04,.1882100e-04,.8814900e-05,&
9925  & .1145500e-04,.1779600e-04,.1828200e-04,.1783300e-04,.1681400e-04,&
9926  & .1530500e-04,.1352600e-04,.1162800e-04,.4763700e-05,.1329500e-04,&
9927  & .2029000e-04,.2086200e-04,.2031600e-04,.1912500e-04,.1734800e-04,&
9928  & .1504200e-04,.1245500e-04,.5649500e-05,.1529700e-04,.2299400e-04,&
9929  & .2374000e-04,.2307600e-04,.2162600e-04,.1952900e-04,.1676600e-04,&
9930  & .1339900e-04,.6598800e-05,.1748800e-04,.2598600e-04,.2688200e-04,&
9931  & .2602100e-04,.2424600e-04,.2182000e-04,.1855400e-04,.1442700e-04,&
9932  & .7464400e-05,.1980000e-04,.2916000e-04,.3020800e-04,.2916100e-04,&
9933  & .2708600e-04,.2418900e-04,.2046200e-04,.1547400e-04,.8439500e-05/
9934 
9935  data absa(451:585, 3) / &
9936  & .9636600e-05,.1516800e-04,.1561100e-04,.1523000e-04,.1438100e-04,&
9937  & .1305800e-04,.1145700e-04,.9819500e-05,.4321000e-05,.1122100e-04,&
9938  & .1730400e-04,.1785900e-04,.1739000e-04,.1638300e-04,.1483700e-04,&
9939  & .1282000e-04,.1054100e-04,.5091500e-05,.1292200e-04,.1961100e-04,&
9940  & .2037600e-04,.1976900e-04,.1851000e-04,.1673300e-04,.1429700e-04,&
9941  & .1137500e-04,.5934900e-05,.1475900e-04,.2222600e-04,.2308700e-04,&
9942  & .2231900e-04,.2078900e-04,.1867700e-04,.1585400e-04,.1223300e-04,&
9943  & .6864600e-05,.1668700e-04,.2490100e-04,.2589400e-04,.2502000e-04,&
9944  & .2323400e-04,.2074600e-04,.1745000e-04,.1314300e-04,.7794500e-05,&
9945  & .8072800e-05,.1283300e-04,.1324100e-04,.1293000e-04,.1220900e-04,&
9946  & .1107700e-04,.9687400e-05,.8251800e-05,.3698700e-05,.9409600e-05,&
9947  & .1464700e-04,.1517900e-04,.1478900e-04,.1392900e-04,.1261400e-04,&
9948  & .1086300e-04,.8883900e-05,.4364200e-05,.1082700e-04,.1662500e-04,&
9949  & .1733600e-04,.1682500e-04,.1575700e-04,.1421500e-04,.1213500e-04,&
9950  & .9570200e-05,.5127600e-05,.1234600e-04,.1882300e-04,.1962600e-04,&
9951  & .1901100e-04,.1771500e-04,.1589100e-04,.1347200e-04,.1029700e-04,&
9952  & .5881800e-05,.1395400e-04,.2107100e-04,.2198500e-04,.2127800e-04,&
9953  & .1977300e-04,.1764200e-04,.1481300e-04,.1110900e-04,.6648500e-05,&
9954  & .6719800e-05,.1077700e-04,.1115300e-04,.1090000e-04,.1030100e-04,&
9955  & .9334500e-05,.8143300e-05,.6915600e-05,.3049800e-05,.7828300e-05,&
9956  & .1228300e-04,.1280500e-04,.1249200e-04,.1175700e-04,.1064900e-04,&
9957  & .9151900e-05,.7449500e-05,.3602800e-05,.8996600e-05,.1398300e-04,&
9958  & .1462900e-04,.1421800e-04,.1331500e-04,.1199000e-04,.1023000e-04,&
9959  & .8023700e-05,.4238200e-05,.1025000e-04,.1579400e-04,.1653600e-04,&
9960  & .1605500e-04,.1497900e-04,.1342100e-04,.1135500e-04,.8637100e-05,&
9961  & .4851100e-05,.1157500e-04,.1768900e-04,.1850200e-04,.1795000e-04,&
9962  & .1668900e-04,.1488300e-04,.1247600e-04,.9353700e-05,.5479900e-05/
9963 
9964  data absa( 1:180, 4) / &
9965  & .2031300e-03,.2641000e-03,.2705400e-03,.2584200e-03,.2379400e-03,&
9966  & .2103300e-03,.1773000e-03,.1383100e-03,.5299500e-04,.2272200e-03,&
9967  & .2905800e-03,.2957200e-03,.2820000e-03,.2589800e-03,.2281400e-03,&
9968  & .1920900e-03,.1495700e-03,.5909600e-04,.2505400e-03,.3158000e-03,&
9969  & .3199100e-03,.3048600e-03,.2795500e-03,.2463400e-03,.2078700e-03,&
9970  & .1617900e-03,.6511800e-04,.2719700e-03,.3397100e-03,.3431000e-03,&
9971  & .3267700e-03,.3000200e-03,.2657400e-03,.2250200e-03,.1752000e-03,&
9972  & .7171100e-04,.2917800e-03,.3621300e-03,.3650300e-03,.3481500e-03,&
9973  & .3211400e-03,.2859900e-03,.2432800e-03,.1895800e-03,.7852300e-04,&
9974  & .1754700e-03,.2301200e-03,.2363900e-03,.2260600e-03,.2079900e-03,&
9975  & .1832600e-03,.1538500e-03,.1188800e-03,.4363300e-04,.1960100e-03,&
9976  & .2526900e-03,.2575100e-03,.2462900e-03,.2262300e-03,.1992600e-03,&
9977  & .1671200e-03,.1287700e-03,.4838200e-04,.2159800e-03,.2742300e-03,&
9978  & .2781200e-03,.2657600e-03,.2440300e-03,.2155200e-03,.1814100e-03,&
9979  & .1398200e-03,.5356000e-04,.2344900e-03,.2948200e-03,.2982000e-03,&
9980  & .2845400e-03,.2617100e-03,.2325400e-03,.1968100e-03,.1519200e-03,&
9981  & .5905400e-04,.2519800e-03,.3140800e-03,.3172300e-03,.3034100e-03,&
9982  & .2804000e-03,.2502200e-03,.2133300e-03,.1648700e-03,.6477900e-04,&
9983  & .1473600e-03,.1948300e-03,.2006500e-03,.1924200e-03,.1772800e-03,&
9984  & .1562700e-03,.1307800e-03,.1003700e-03,.3421700e-04,.1649200e-03,&
9985  & .2144100e-03,.2189200e-03,.2098000e-03,.1928900e-03,.1700000e-03,&
9986  & .1424900e-03,.1090200e-03,.3835200e-04,.1820000e-03,.2329400e-03,&
9987  & .2365800e-03,.2265800e-03,.2082200e-03,.1839100e-03,.1548400e-03,&
9988  & .1188800e-03,.4270000e-04,.1981100e-03,.2509400e-03,.2538500e-03,&
9989  & .2427600e-03,.2233800e-03,.1984100e-03,.1682200e-03,.1294300e-03,&
9990  & .4725700e-04,.2135200e-03,.2678400e-03,.2702700e-03,.2591700e-03,&
9991  & .2396600e-03,.2139900e-03,.1823900e-03,.1405800e-03,.5199700e-04,&
9992  & .1207000e-03,.1628200e-03,.1687000e-03,.1621500e-03,.1496600e-03,&
9993  & .1319500e-03,.1100300e-03,.8374300e-04,.2684100e-04,.1361600e-03,&
9994  & .1797900e-03,.1842000e-03,.1769200e-03,.1628800e-03,.1435100e-03,&
9995  & .1200000e-03,.9132400e-04,.2995600e-04,.1514200e-03,.1960600e-03,&
9996  & .1993300e-03,.1913200e-03,.1758200e-03,.1550600e-03,.1306100e-03,&
9997  & .9988100e-04,.3317500e-04,.1659100e-03,.2117000e-03,.2142100e-03,&
9998  & .2052500e-03,.1888800e-03,.1674700e-03,.1419200e-03,.1090700e-03,&
9999  & .3662500e-04,.1795600e-03,.2265500e-03,.2283300e-03,.2194900e-03,&
10000  & .2028300e-03,.1808600e-03,.1539300e-03,.1186500e-03,.4051300e-04/
10001 
10002  data absa(181:315, 4) / &
10003  & .9862500e-04,.1348000e-03,.1409900e-03,.1365300e-03,.1260000e-03,&
10004  & .1110700e-03,.9210200e-04,.6941400e-04,.2259700e-04,.1116500e-03,&
10005  & .1497500e-03,.1542900e-03,.1488600e-03,.1371000e-03,.1207600e-03,&
10006  & .1005100e-03,.7604600e-04,.2526500e-04,.1246100e-03,.1639100e-03,&
10007  & .1672500e-03,.1609100e-03,.1479600e-03,.1304700e-03,.1094100e-03,&
10008  & .8319300e-04,.2796200e-04,.1373800e-03,.1776100e-03,.1798200e-03,&
10009  & .1728100e-03,.1591600e-03,.1408700e-03,.1189200e-03,.9097200e-04,&
10010  & .3085500e-04,.1496700e-03,.1906600e-03,.1923100e-03,.1850900e-03,&
10011  & .1710900e-03,.1522700e-03,.1290600e-03,.9913600e-04,.3401700e-04,&
10012  & .7986300e-04,.1103400e-03,.1162200e-03,.1140000e-03,.1053200e-03,&
10013  & .9297800e-04,.7666100e-04,.5728700e-04,.1866400e-04,.9075300e-04,&
10014  & .1231800e-03,.1276600e-03,.1244000e-03,.1148200e-03,.1011000e-03,&
10015  & .8369700e-04,.6266300e-04,.2092800e-04,.1018300e-03,.1353200e-03,&
10016  & .1390700e-03,.1346400e-03,.1239600e-03,.1092500e-03,.9098400e-04,&
10017  & .6851300e-04,.2326400e-04,.1129300e-03,.1474200e-03,.1499500e-03,&
10018  & .1448100e-03,.1335400e-03,.1179700e-03,.9884500e-04,.7496500e-04,&
10019  & .2585000e-04,.1236000e-03,.1591400e-03,.1609000e-03,.1552100e-03,&
10020  & .1436100e-03,.1275500e-03,.1073900e-03,.8191500e-04,.2863500e-04,&
10021  & .6567900e-04,.9008400e-04,.9568100e-04,.9456700e-04,.8733800e-04,&
10022  & .7727500e-04,.6364200e-04,.4709700e-04,.1550800e-04,.7455100e-04,&
10023  & .1008900e-03,.1053100e-03,.1032700e-03,.9536400e-04,.8415400e-04,&
10024  & .6956900e-04,.5142600e-04,.1723400e-04,.8358400e-04,.1113700e-03,&
10025  & .1146900e-03,.1119300e-03,.1032500e-03,.9107500e-04,.7547900e-04,&
10026  & .5622800e-04,.1912700e-04,.9276200e-04,.1217100e-03,.1242000e-03,&
10027  & .1206000e-03,.1114700e-03,.9846500e-04,.8196900e-04,.6152900e-04,&
10028  & .2145200e-04,.1018900e-03,.1318200e-03,.1336400e-03,.1296000e-03,&
10029  & .1200800e-03,.1065200e-03,.8904500e-04,.6733400e-04,.2371100e-04/
10030 
10031  data absa(316:450, 4) / &
10032  & .5365600e-04,.7410900e-04,.7862900e-04,.7824500e-04,.7232200e-04,&
10033  & .6391500e-04,.5262500e-04,.3859100e-04,.1441600e-04,.6116300e-04,&
10034  & .8310400e-04,.8683200e-04,.8556200e-04,.7899200e-04,.6966600e-04,&
10035  & .5757400e-04,.4209800e-04,.1592100e-04,.6891400e-04,.9190900e-04,&
10036  & .9459400e-04,.9281600e-04,.8559000e-04,.7549100e-04,.6244500e-04,&
10037  & .4610900e-04,.1720900e-04,.7684700e-04,.1005900e-03,.1025600e-03,&
10038  & .1001900e-03,.9249600e-04,.8172900e-04,.6776300e-04,.5044500e-04,&
10039  & .1858900e-04,.8484700e-04,.1090200e-03,.1107100e-03,.1078400e-03,&
10040  & .9981200e-04,.8851600e-04,.7371800e-04,.5525000e-04,.2019400e-04,&
10041  & .4334600e-04,.6060800e-04,.6481800e-04,.6468100e-04,.5965500e-04,&
10042  & .5261700e-04,.4320600e-04,.3157300e-04,.1469600e-04,.4966900e-04,&
10043  & .6838000e-04,.7180000e-04,.7086000e-04,.6526000e-04,.5749600e-04,&
10044  & .4731300e-04,.3440500e-04,.1616400e-04,.5627400e-04,.7604000e-04,&
10045  & .7845400e-04,.7694400e-04,.7066500e-04,.6234700e-04,.5138300e-04,&
10046  & .3766500e-04,.1784100e-04,.6312700e-04,.8345100e-04,.8517800e-04,&
10047  & .8308200e-04,.7643700e-04,.6753800e-04,.5579700e-04,.4126400e-04,&
10048  & .1950400e-04,.7012400e-04,.9080700e-04,.9196000e-04,.8943200e-04,&
10049  & .8252700e-04,.7317600e-04,.6066800e-04,.4517900e-04,.2099200e-04,&
10050  & .3505900e-04,.4953100e-04,.5337600e-04,.5366500e-04,.4964400e-04,&
10051  & .4359200e-04,.3560900e-04,.2584500e-04,.1323100e-04,.4037600e-04,&
10052  & .5617400e-04,.5950200e-04,.5904000e-04,.5439900e-04,.4768700e-04,&
10053  & .3900700e-04,.2818900e-04,.1522300e-04,.4600600e-04,.6289900e-04,&
10054  & .6521400e-04,.6417800e-04,.5897600e-04,.5172600e-04,.4238600e-04,&
10055  & .3084300e-04,.1724100e-04,.5190500e-04,.6939500e-04,.7098800e-04,&
10056  & .6946100e-04,.6380100e-04,.5604000e-04,.4605900e-04,.3383100e-04,&
10057  & .1971400e-04,.5799000e-04,.7573700e-04,.7682600e-04,.7471800e-04,&
10058  & .6883900e-04,.6066400e-04,.5010500e-04,.3704900e-04,.2230800e-04/
10059 
10060  data absa(451:585, 4) / &
10061  & .3015000e-04,.4273800e-04,.4601100e-04,.4633000e-04,.4290700e-04,&
10062  & .3760500e-04,.3070200e-04,.2196200e-04,.1179100e-04,.3471400e-04,&
10063  & .4851600e-04,.5112000e-04,.5072600e-04,.4691200e-04,.4103300e-04,&
10064  & .3350500e-04,.2395200e-04,.1324200e-04,.3964900e-04,.5432500e-04,&
10065  & .5614600e-04,.5527000e-04,.5090200e-04,.4455900e-04,.3635100e-04,&
10066  & .2626600e-04,.1507500e-04,.4477900e-04,.5989300e-04,.6116600e-04,&
10067  & .5976600e-04,.5507000e-04,.4830300e-04,.3949100e-04,.2884700e-04,&
10068  & .1716400e-04,.4994600e-04,.6541100e-04,.6625600e-04,.6434500e-04,&
10069  & .5947400e-04,.5228700e-04,.4300300e-04,.3161200e-04,.1954200e-04,&
10070  & .2568100e-04,.3662200e-04,.3942800e-04,.3958200e-04,.3678600e-04,&
10071  & .3221000e-04,.2627000e-04,.1862900e-04,.1003500e-04,.2963600e-04,&
10072  & .4162000e-04,.4370100e-04,.4342500e-04,.4015000e-04,.3510500e-04,&
10073  & .2863700e-04,.2036500e-04,.1141600e-04,.3392100e-04,.4662800e-04,&
10074  & .4806200e-04,.4730100e-04,.4363300e-04,.3818900e-04,.3113300e-04,&
10075  & .2240500e-04,.1294600e-04,.3834100e-04,.5140100e-04,.5245700e-04,&
10076  & .5112900e-04,.4723800e-04,.4142900e-04,.3390500e-04,.2454600e-04,&
10077  & .1477000e-04,.4257600e-04,.5615300e-04,.5686300e-04,.5518200e-04,&
10078  & .5111300e-04,.4494000e-04,.3698700e-04,.2689800e-04,.1686500e-04,&
10079  & .2170700e-04,.3114200e-04,.3348700e-04,.3365000e-04,.3130100e-04,&
10080  & .2739600e-04,.2235200e-04,.1574400e-04,.8300500e-05,.2511200e-04,&
10081  & .3547400e-04,.3715800e-04,.3697000e-04,.3417000e-04,.2987100e-04,&
10082  & .2436100e-04,.1731200e-04,.9355900e-05,.2876200e-04,.3971200e-04,&
10083  & .4092400e-04,.4019900e-04,.3716900e-04,.3256500e-04,.2656600e-04,&
10084  & .1907400e-04,.1067000e-04,.3244800e-04,.4380800e-04,.4473400e-04,&
10085  & .4353400e-04,.4032300e-04,.3536700e-04,.2901100e-04,.2089700e-04,&
10086  & .1224000e-04,.3590500e-04,.4777100e-04,.4848200e-04,.4709400e-04,&
10087  & .4370300e-04,.3847400e-04,.3171500e-04,.2289900e-04,.1395800e-04/
10088 
10089  data absa( 1:180, 5) / &
10090  & .7617673e-03,.8971104e-03,.9278378e-03,.9076002e-03,.8545237e-03,&
10091  & .7758218e-03,.6640038e-03,.5009860e-03,.2100718e-03,.7925828e-03,&
10092  & .9442955e-03,.9755110e-03,.9542425e-03,.9014791e-03,.8188875e-03,&
10093  & .7022179e-03,.5337239e-03,.2374824e-03,.8249630e-03,.9924062e-03,&
10094  & .1024145e-02,.1003594e-02,.9497958e-03,.8633171e-03,.7423153e-03,&
10095  & .5703062e-03,.2679147e-03,.8583524e-03,.1040661e-02,.1074578e-02,&
10096  & .1055443e-02,.9993194e-03,.9103749e-03,.7856031e-03,.6103198e-03,&
10097  & .3005890e-03,.8914210e-03,.1089831e-02,.1127450e-02,.1108978e-02,&
10098  & .1051150e-02,.9598170e-03,.8317411e-03,.6540146e-03,.3372384e-03,&
10099  & .6627779e-03,.7779969e-03,.8008718e-03,.7838334e-03,.7398886e-03,&
10100  & .6733388e-03,.5758040e-03,.4394197e-03,.1791672e-03,.6931434e-03,&
10101  & .8216003e-03,.8453718e-03,.8264838e-03,.7819403e-03,.7110987e-03,&
10102  & .6107270e-03,.4698192e-03,.2021868e-03,.7240368e-03,.8657540e-03,&
10103  & .8908257e-03,.8720081e-03,.8257095e-03,.7512371e-03,.6480081e-03,&
10104  & .5029834e-03,.2276890e-03,.7549662e-03,.9109098e-03,.9378553e-03,&
10105  & .9196391e-03,.8709512e-03,.7935808e-03,.6875784e-03,.5392493e-03,&
10106  & .2558951e-03,.7854858e-03,.9570998e-03,.9870226e-03,.9682145e-03,&
10107  & .9174446e-03,.8393444e-03,.7305754e-03,.5787675e-03,.2867225e-03,&
10108  & .5698218e-03,.6646945e-03,.6811412e-03,.6675254e-03,.6306449e-03,&
10109  & .5735521e-03,.4911267e-03,.3756753e-03,.1468372e-03,.5979398e-03,&
10110  & .7039422e-03,.7219077e-03,.7061823e-03,.6682445e-03,.6070832e-03,&
10111  & .5222789e-03,.4034172e-03,.1660478e-03,.6260630e-03,.7441821e-03,&
10112  & .7640366e-03,.7472492e-03,.7070503e-03,.6422790e-03,.5549202e-03,&
10113  & .4333711e-03,.1875462e-03,.6541096e-03,.7851727e-03,.8072018e-03,&
10114  & .7903360e-03,.7475103e-03,.6804148e-03,.5905641e-03,.4657632e-03,&
10115  & .2111058e-03,.6816820e-03,.8277472e-03,.8519631e-03,.8340047e-03,&
10116  & .7892681e-03,.7212366e-03,.6290190e-03,.5008742e-03,.2367354e-03,&
10117  & .4861342e-03,.5638913e-03,.5756770e-03,.5644357e-03,.5327681e-03,&
10118  & .4835474e-03,.4138863e-03,.3179456e-03,.1189626e-03,.5113753e-03,&
10119  & .5987845e-03,.6124007e-03,.5992699e-03,.5662793e-03,.5134428e-03,&
10120  & .4408138e-03,.3421165e-03,.1351360e-03,.5363872e-03,.6346295e-03,&
10121  & .6504470e-03,.6359055e-03,.6008677e-03,.5448237e-03,.4696582e-03,&
10122  & .3682585e-03,.1527590e-03,.5608616e-03,.6715761e-03,.6895903e-03,&
10123  & .6743859e-03,.6365185e-03,.5786033e-03,.5010073e-03,.3967389e-03,&
10124  & .1724827e-03,.5849723e-03,.7098200e-03,.7303204e-03,.7137716e-03,&
10125  & .6742570e-03,.6146787e-03,.5348228e-03,.4271745e-03,.1936713e-03/
10126 
10127  data absa(181:315, 5) / &
10128  & .4124715e-03,.4761738e-03,.4853020e-03,.4745565e-03,.4479021e-03,&
10129  & .4057915e-03,.3474465e-03,.2667416e-03,.9516165e-04,.4344911e-03,&
10130  & .5069050e-03,.5177953e-03,.5062569e-03,.4775319e-03,.4319312e-03,&
10131  & .3702139e-03,.2876629e-03,.1085617e-03,.4559645e-03,.5386154e-03,&
10132  & .5518018e-03,.5389479e-03,.5081875e-03,.4599769e-03,.3953892e-03,&
10133  & .3104428e-03,.1229340e-03,.4769668e-03,.5709955e-03,.5869421e-03,&
10134  & .5732638e-03,.5400999e-03,.4895927e-03,.4226193e-03,.3347530e-03,&
10135  & .1391112e-03,.4977864e-03,.6042702e-03,.6230627e-03,.6084073e-03,&
10136  & .5737828e-03,.5212317e-03,.4520350e-03,.3599815e-03,.1565328e-03,&
10137  & .3481462e-03,.3997927e-03,.4064302e-03,.3958879e-03,.3740189e-03,&
10138  & .3386598e-03,.2894388e-03,.2220176e-03,.7721520e-04,.3667478e-03,&
10139  & .4264134e-03,.4347817e-03,.4238152e-03,.3999290e-03,.3615359e-03,&
10140  & .3088615e-03,.2396985e-03,.8791758e-04,.3848509e-03,.4536800e-03,&
10141  & .4643234e-03,.4533341e-03,.4271237e-03,.3859069e-03,.3305190e-03,&
10142  & .2589672e-03,.9917704e-04,.4025904e-03,.4814459e-03,.4948753e-03,&
10143  & .4836881e-03,.4553829e-03,.4119222e-03,.3539441e-03,.2788595e-03,&
10144  & .1117935e-03,.4204129e-03,.5099243e-03,.5262683e-03,.5145801e-03,&
10145  & .4847600e-03,.4394867e-03,.3794179e-03,.3009917e-03,.1256044e-03,&
10146  & .2923436e-03,.3350198e-03,.3390235e-03,.3289566e-03,.3102593e-03,&
10147  & .2807257e-03,.2400716e-03,.1841474e-03,.6514967e-04,.3079436e-03,&
10148  & .3575834e-03,.3635135e-03,.3531948e-03,.3332576e-03,.3010207e-03,&
10149  & .2570614e-03,.1988560e-03,.7422428e-04,.3232435e-03,.3805545e-03,&
10150  & .3886434e-03,.3787663e-03,.3570394e-03,.3221858e-03,.2755102e-03,&
10151  & .2150719e-03,.8445731e-04,.3383325e-03,.4040182e-03,.4144616e-03,&
10152  & .4051543e-03,.3816543e-03,.3448001e-03,.2956857e-03,.2316464e-03,&
10153  & .9529395e-04,.3535369e-03,.4281879e-03,.4413816e-03,.4318028e-03,&
10154  & .4070455e-03,.3690091e-03,.3175244e-03,.2504699e-03,.1070304e-03/
10155 
10156  data absa(316:450, 5) / &
10157  & .2453512e-03,.2800882e-03,.2825252e-03,.2730919e-03,.2566169e-03,&
10158  & .2318802e-03,.1983126e-03,.1522973e-03,.5516642e-04,.2581699e-03,&
10159  & .2989905e-03,.3031376e-03,.2937127e-03,.2763027e-03,.2495537e-03,&
10160  & .2126952e-03,.1646454e-03,.6300898e-04,.2707693e-03,.3182237e-03,&
10161  & .3242581e-03,.3153146e-03,.2972863e-03,.2680977e-03,.2289101e-03,&
10162  & .1781625e-03,.7205544e-04,.2834359e-03,.3379200e-03,.3459773e-03,&
10163  & .3376659e-03,.3181431e-03,.2874562e-03,.2463233e-03,.1919211e-03,&
10164  & .8179890e-04,.2961968e-03,.3584988e-03,.3687767e-03,.3605384e-03,&
10165  & .3397168e-03,.3080263e-03,.2651369e-03,.2080999e-03,.9227521e-04,&
10166  & .2054310e-03,.2336020e-03,.2346874e-03,.2262676e-03,.2118556e-03,&
10167  & .1911126e-03,.1628566e-03,.1251317e-03,.5265615e-04,.2158983e-03,&
10168  & .2491904e-03,.2518957e-03,.2435142e-03,.2286421e-03,.2061588e-03,&
10169  & .1755758e-03,.1356394e-03,.5986972e-04,.2262897e-03,.2650278e-03,&
10170  & .2694531e-03,.2615131e-03,.2463445e-03,.2220951e-03,.1892217e-03,&
10171  & .1469564e-03,.6762150e-04,.2368500e-03,.2815163e-03,.2876091e-03,&
10172  & .2802849e-03,.2643048e-03,.2385402e-03,.2043353e-03,.1585617e-03,&
10173  & .7608500e-04,.2475469e-03,.2987922e-03,.3069398e-03,.2998091e-03,&
10174  & .2825176e-03,.2560367e-03,.2200683e-03,.1724086e-03,.8542444e-04,&
10175  & .1724065e-03,.1956039e-03,.1956892e-03,.1881402e-03,.1756197e-03,&
10176  & .1579428e-03,.1342625e-03,.1031020e-03,.6401734e-04,.1809875e-03,&
10177  & .2084355e-03,.2098304e-03,.2024866e-03,.1896267e-03,.1710181e-03,&
10178  & .1452408e-03,.1119637e-03,.7219467e-04,.1895575e-03,.2214531e-03,&
10179  & .2244155e-03,.2174338e-03,.2045039e-03,.1844632e-03,.1570651e-03,&
10180  & .1214344e-03,.8097348e-04,.1983280e-03,.2351430e-03,.2396300e-03,&
10181  & .2331386e-03,.2197000e-03,.1984522e-03,.1696161e-03,.1313673e-03,&
10182  & .9012464e-04,.2073235e-03,.2496450e-03,.2559261e-03,.2497870e-03,&
10183  & .2354805e-03,.2133323e-03,.1830084e-03,.1431258e-03,.9946132e-04/
10184 
10185  data absa(451:585, 5) / &
10186  & .1474531e-03,.1682762e-03,.1683793e-03,.1616613e-03,.1506254e-03,&
10187  & .1352532e-03,.1147895e-03,.8797863e-04,.6244135e-04,.1544785e-03,&
10188  & .1789686e-03,.1802145e-03,.1739110e-03,.1625411e-03,.1464475e-03,&
10189  & .1243412e-03,.9584180e-04,.7111930e-04,.1616375e-03,.1899537e-03,&
10190  & .1924972e-03,.1864886e-03,.1751900e-03,.1580145e-03,.1346723e-03,&
10191  & .1036729e-03,.7851804e-04,.1690889e-03,.2016073e-03,.2056052e-03,&
10192  & .2000516e-03,.1882465e-03,.1701850e-03,.1455146e-03,.1127735e-03,&
10193  & .8728573e-04,.1768424e-03,.2142601e-03,.2196970e-03,.2143761e-03,&
10194  & .2020742e-03,.1832716e-03,.1571724e-03,.1229344e-03,.9627397e-04,&
10195  & .1259909e-03,.1440828e-03,.1441655e-03,.1384718e-03,.1288147e-03,&
10196  & .1155429e-03,.9784118e-04,.7511447e-04,.5542102e-04,.1317506e-03,&
10197  & .1530088e-03,.1541902e-03,.1487423e-03,.1390011e-03,.1250725e-03,&
10198  & .1060741e-03,.8202844e-04,.6380787e-04,.1377366e-03,.1623281e-03,&
10199  & .1647109e-03,.1596366e-03,.1497584e-03,.1350689e-03,.1149756e-03,&
10200  & .8862399e-04,.7101181e-04,.1440326e-03,.1724497e-03,.1760537e-03,&
10201  & .1714078e-03,.1610900e-03,.1456787e-03,.1244204e-03,.9651500e-04,&
10202  & .7800418e-04,.1507641e-03,.1835052e-03,.1883108e-03,.1838011e-03,&
10203  & .1732376e-03,.1570042e-03,.1346136e-03,.1051140e-03,.8602649e-04,&
10204  & .1072501e-03,.1233653e-03,.1231303e-03,.1180489e-03,.1097712e-03,&
10205  & .9835244e-04,.8317681e-04,.6399482e-04,.4621221e-04,.1121185e-03,&
10206  & .1307584e-03,.1315510e-03,.1267530e-03,.1184196e-03,.1064469e-03,&
10207  & .9028401e-04,.6947188e-04,.5321306e-04,.1172881e-03,.1387038e-03,&
10208  & .1405630e-03,.1362742e-03,.1276910e-03,.1151082e-03,.9795080e-04,&
10209  & .7537889e-04,.5873871e-04,.1228106e-03,.1473997e-03,.1504434e-03,&
10210  & .1464443e-03,.1375481e-03,.1243899e-03,.1061458e-03,.8236870e-04,&
10211  & .6477734e-04,.1289014e-03,.1570159e-03,.1610714e-03,.1572623e-03,&
10212  & .1482077e-03,.1342864e-03,.1150946e-03,.8978401e-04,.7158089e-04/
10213 
10214  data absa( 1:180, 6) / &
10215  & .3618426e-02,.3641770e-02,.3630477e-02,.3560259e-02,.3416323e-02,&
10216  & .3176047e-02,.2830864e-02,.2373983e-02,.1742217e-02,.3598081e-02,&
10217  & .3703258e-02,.3743793e-02,.3712218e-02,.3589778e-02,.3370737e-02,&
10218  & .3037900e-02,.2596162e-02,.1991398e-02,.3584083e-02,.3774324e-02,&
10219  & .3866788e-02,.3867624e-02,.3769761e-02,.3570448e-02,.3255037e-02,&
10220  & .2830185e-02,.2261505e-02,.3577298e-02,.3852926e-02,.3993744e-02,&
10221  & .4026505e-02,.3954894e-02,.3775808e-02,.3481871e-02,.3078695e-02,&
10222  & .2554303e-02,.3579835e-02,.3939097e-02,.4125092e-02,.4189431e-02,&
10223  & .4145315e-02,.3990234e-02,.3720434e-02,.3340287e-02,.2865995e-02,&
10224  & .3248394e-02,.3297351e-02,.3295356e-02,.3225177e-02,.3084542e-02,&
10225  & .2861202e-02,.2553948e-02,.2123300e-02,.1461572e-02,.3235583e-02,&
10226  & .3361291e-02,.3404532e-02,.3369041e-02,.3247031e-02,.3043618e-02,&
10227  & .2745319e-02,.2323230e-02,.1677107e-02,.3231488e-02,.3436144e-02,&
10228  & .3523056e-02,.3516391e-02,.3416868e-02,.3231131e-02,.2944369e-02,&
10229  & .2533343e-02,.1912294e-02,.3237872e-02,.3517820e-02,.3646256e-02,&
10230  & .3668618e-02,.3593949e-02,.3426895e-02,.3151603e-02,.2756947e-02,&
10231  & .2166557e-02,.3253132e-02,.3606661e-02,.3773434e-02,.3826500e-02,&
10232  & .3776601e-02,.3630583e-02,.3369967e-02,.2994163e-02,.2437904e-02,&
10233  & .2886205e-02,.2942447e-02,.2941032e-02,.2863367e-02,.2725094e-02,&
10234  & .2518760e-02,.2241939e-02,.1855734e-02,.1188420e-02,.2880736e-02,&
10235  & .3006642e-02,.3042538e-02,.2997000e-02,.2874870e-02,.2685370e-02,&
10236  & .2415558e-02,.2030078e-02,.1369150e-02,.2886508e-02,.3082007e-02,&
10237  & .3154756e-02,.3134344e-02,.3033232e-02,.2858755e-02,.2598268e-02,&
10238  & .2216396e-02,.1566621e-02,.2902943e-02,.3166339e-02,.3272849e-02,&
10239  & .3277933e-02,.3197754e-02,.3039090e-02,.2789791e-02,.2414716e-02,&
10240  & .1779400e-02,.2928623e-02,.3256730e-02,.3396972e-02,.3427808e-02,&
10241  & .3370428e-02,.3228051e-02,.2990498e-02,.2624579e-02,.2010439e-02,&
10242  & .2540902e-02,.2597254e-02,.2589360e-02,.2508382e-02,.2375438e-02,&
10243  & .2188928e-02,.1938803e-02,.1600312e-02,.9604968e-03,.2542011e-02,&
10244  & .2659586e-02,.2684388e-02,.2628952e-02,.2511349e-02,.2338234e-02,&
10245  & .2094432e-02,.1754453e-02,.1111332e-02,.2555832e-02,.2734832e-02,&
10246  & .2789039e-02,.2755882e-02,.2656417e-02,.2495319e-02,.2258255e-02,&
10247  & .1919151e-02,.1276371e-02,.2581259e-02,.2819185e-02,.2901637e-02,&
10248  & .2889786e-02,.2808889e-02,.2659442e-02,.2431576e-02,.2093659e-02,&
10249  & .1455003e-02,.2614546e-02,.2911442e-02,.3020621e-02,.3031206e-02,&
10250  & .2967469e-02,.2832291e-02,.2614781e-02,.2279966e-02,.1647719e-02/
10251 
10252  data absa(181:315, 6) / &
10253  & .2219972e-02,.2275081e-02,.2258189e-02,.2178017e-02,.2052724e-02,&
10254  & .1883431e-02,.1661334e-02,.1366404e-02,.7744816e-03,.2227260e-02,&
10255  & .2335504e-02,.2345620e-02,.2284987e-02,.2174042e-02,.2016070e-02,&
10256  & .1799386e-02,.1503145e-02,.9005459e-03,.2248029e-02,.2409026e-02,&
10257  & .2443618e-02,.2400559e-02,.2304822e-02,.2156227e-02,.1945494e-02,&
10258  & .1648525e-02,.1039558e-02,.2279277e-02,.2492598e-02,.2549202e-02,&
10259  & .2524778e-02,.2443050e-02,.2304879e-02,.2101498e-02,.1803888e-02,&
10260  & .1189595e-02,.2314653e-02,.2584274e-02,.2663118e-02,.2656729e-02,&
10261  & .2589557e-02,.2462949e-02,.2266082e-02,.1970673e-02,.1351586e-02,&
10262  & .1926874e-02,.1977274e-02,.1952607e-02,.1874742e-02,.1757624e-02,&
10263  & .1604309e-02,.1409103e-02,.1152190e-02,.6162171e-03,.1939310e-02,&
10264  & .2034841e-02,.2032252e-02,.1970439e-02,.1864280e-02,.1719652e-02,&
10265  & .1530483e-02,.1272154e-02,.7211166e-03,.1964743e-02,.2105464e-02,&
10266  & .2122862e-02,.2074082e-02,.1979741e-02,.1844073e-02,.1659546e-02,&
10267  & .1399922e-02,.8374058e-03,.1996506e-02,.2186938e-02,.2222376e-02,&
10268  & .2187288e-02,.2103966e-02,.1977177e-02,.1797677e-02,.1537669e-02,&
10269  & .9633722e-03,.2032972e-02,.2273283e-02,.2330136e-02,.2309382e-02,&
10270  & .2237782e-02,.2120007e-02,.1943914e-02,.1683301e-02,.1099973e-02,&
10271  & .1663865e-02,.1707960e-02,.1678656e-02,.1605070e-02,.1496908e-02,&
10272  & .1359728e-02,.1186597e-02,.9637506e-03,.4837199e-03,.1679462e-02,&
10273  & .1762213e-02,.1749710e-02,.1688780e-02,.1589709e-02,.1459287e-02,&
10274  & .1291495e-02,.1067463e-02,.5692182e-03,.1705626e-02,.1829062e-02,&
10275  & .1833331e-02,.1782521e-02,.1691254e-02,.1568704e-02,.1405411e-02,&
10276  & .1178417e-02,.6634981e-03,.1737149e-02,.1904246e-02,.1926414e-02,&
10277  & .1885283e-02,.1802747e-02,.1686750e-02,.1526571e-02,.1298759e-02,&
10278  & .7673774e-03,.1774180e-02,.1984243e-02,.2025542e-02,.1997561e-02,&
10279  & .1924977e-02,.1813742e-02,.1655518e-02,.1426328e-02,.8813749e-03/
10280 
10281  data absa(316:450, 6) / &
10282  & .1431715e-02,.1468745e-02,.1437010e-02,.1368212e-02,.1270165e-02,&
10283  & .1147038e-02,.9947349e-03,.8008574e-03,.3951453e-03,.1448558e-02,&
10284  & .1518890e-02,.1500478e-02,.1441411e-02,.1351002e-02,.1233436e-02,&
10285  & .1085630e-02,.8898114e-03,.4614759e-03,.1473293e-02,.1580156e-02,&
10286  & .1576676e-02,.1525332e-02,.1440556e-02,.1328775e-02,.1183815e-02,&
10287  & .9858304e-03,.5346545e-03,.1503819e-02,.1648007e-02,.1660678e-02,&
10288  & .1618866e-02,.1540977e-02,.1433665e-02,.1289444e-02,.1090469e-02,&
10289  & .6144704e-03,.1540870e-02,.1721704e-02,.1750156e-02,.1719303e-02,&
10290  & .1651341e-02,.1546906e-02,.1402428e-02,.1200202e-02,.7022918e-03,&
10291  & .1229566e-02,.1259757e-02,.1226783e-02,.1162063e-02,.1073623e-02,&
10292  & .9638267e-03,.8304962e-03,.6619654e-03,.3708964e-03,.1245677e-02,&
10293  & .1304848e-02,.1282510e-02,.1226105e-02,.1143293e-02,.1038470e-02,&
10294  & .9077754e-03,.7376031e-03,.4310410e-03,.1268666e-02,.1359022e-02,&
10295  & .1349687e-02,.1300919e-02,.1222896e-02,.1121551e-02,.9925926e-03,&
10296  & .8196689e-03,.4969197e-03,.1297981e-02,.1419642e-02,.1423650e-02,&
10297  & .1383567e-02,.1312384e-02,.1213886e-02,.1083936e-02,.9092041e-03,&
10298  & .5687180e-03,.1333382e-02,.1486555e-02,.1503607e-02,.1472905e-02,&
10299  & .1409828e-02,.1314124e-02,.1183141e-02,.1003566e-02,.6475735e-03,&
10300  & .1053427e-02,.1080875e-02,.1049457e-02,.9889791e-03,.9098076e-03,&
10301  & .8127675e-03,.6957123e-03,.5493509e-03,.3851070e-03,.1068299e-02,&
10302  & .1121177e-02,.1098614e-02,.1045290e-02,.9707095e-03,.8766135e-03,&
10303  & .7618622e-03,.6136871e-03,.4400535e-03,.1090018e-02,.1169156e-02,&
10304  & .1157141e-02,.1111356e-02,.1041184e-02,.9497327e-03,.8348360e-03,&
10305  & .6839361e-03,.4994168e-03,.1118137e-02,.1223841e-02,.1222357e-02,&
10306  & .1184095e-02,.1119621e-02,.1031067e-02,.9147253e-03,.7606201e-03,&
10307  & .5637416e-03,.1150470e-02,.1284547e-02,.1293867e-02,.1263779e-02,&
10308  & .1204832e-02,.1118950e-02,.1001368e-02,.8420516e-03,.6348671e-03/
10309 
10310  data absa(451:585, 6) / &
10311  & .9046486e-03,.9397347e-03,.9133460e-03,.8617363e-03,.7934190e-03,&
10312  & .7090706e-03,.6066044e-03,.4794255e-03,.3743553e-03,.9212914e-03,&
10313  & .9782734e-03,.9602049e-03,.9151820e-03,.8507753e-03,.7678173e-03,&
10314  & .6660920e-03,.5356152e-03,.4226059e-03,.9442639e-03,.1023620e-02,&
10315  & .1014658e-02,.9758938e-03,.9151114e-03,.8345845e-03,.7318442e-03,&
10316  & .5984128e-03,.4774443e-03,.9713828e-03,.1075284e-02,.1075663e-02,&
10317  & .1042999e-02,.9862816e-03,.9076184e-03,.8041084e-03,.6658818e-03,&
10318  & .5353482e-03,.1002245e-02,.1131170e-02,.1142136e-02,.1116667e-02,&
10319  & .1063668e-02,.9860813e-03,.8820903e-03,.7392501e-03,.5986885e-03,&
10320  & .7757001e-03,.8156004e-03,.7935608e-03,.7501868e-03,.6919875e-03,&
10321  & .6187418e-03,.5293689e-03,.4171913e-03,.3400983e-03,.7936331e-03,&
10322  & .8519754e-03,.8374063e-03,.7995658e-03,.7443953e-03,.6725458e-03,&
10323  & .5825365e-03,.4667964e-03,.3809920e-03,.8158134e-03,.8946178e-03,&
10324  & .8881924e-03,.8553581e-03,.8027948e-03,.7321369e-03,.6414490e-03,&
10325  & .5225120e-03,.4287453e-03,.8413662e-03,.9418592e-03,.9443588e-03,&
10326  & .9171257e-03,.8676347e-03,.7974095e-03,.7054434e-03,.5826005e-03,&
10327  & .4804212e-03,.8686293e-03,.9928428e-03,.1005484e-02,.9842193e-03,&
10328  & .9373691e-03,.8680623e-03,.7750971e-03,.6486142e-03,.5361541e-03,&
10329  & .6656671e-03,.7063220e-03,.6882893e-03,.6520290e-03,.6021008e-03,&
10330  & .5393669e-03,.4616943e-03,.3624013e-03,.2876110e-03,.6827709e-03,&
10331  & .7403802e-03,.7293362e-03,.6972791e-03,.6496824e-03,.5872587e-03,&
10332  & .5091135e-03,.4069669e-03,.3235500e-03,.7030563e-03,.7795754e-03,&
10333  & .7759040e-03,.7481102e-03,.7027456e-03,.6406035e-03,.5612231e-03,&
10334  & .4560596e-03,.3644783e-03,.7249585e-03,.8222986e-03,.8269765e-03,&
10335  & .8039916e-03,.7610904e-03,.6992438e-03,.6179241e-03,.5093407e-03,&
10336  & .4084015e-03,.7487037e-03,.8678454e-03,.8821100e-03,.8646953e-03,&
10337  & .8237630e-03,.7629048e-03,.6800190e-03,.5680363e-03,.4564484e-03/
10338 
10339  data absa( 1:180, 7) / &
10340  & .1944086e-01,.1794384e-01,.1665104e-01,.1551773e-01,.1445828e-01,&
10341  & .1338923e-01,.1239141e-01,.1193783e-01,.1267749e-01,.1929939e-01,&
10342  & .1802401e-01,.1696529e-01,.1609074e-01,.1524109e-01,.1436017e-01,&
10343  & .1365895e-01,.1355010e-01,.1460849e-01,.1914240e-01,.1812275e-01,&
10344  & .1733603e-01,.1672488e-01,.1609343e-01,.1543656e-01,.1506976e-01,&
10345  & .1532896e-01,.1671755e-01,.1896990e-01,.1824026e-01,.1775719e-01,&
10346  & .1740823e-01,.1702225e-01,.1660281e-01,.1659697e-01,.1723872e-01,&
10347  & .1897711e-01,.1878230e-01,.1836854e-01,.1822350e-01,.1813959e-01,&
10348  & .1798727e-01,.1786818e-01,.1824983e-01,.1930509e-01,.2141343e-01,&
10349  & .2002304e-01,.1846205e-01,.1712703e-01,.1593023e-01,.1477768e-01,&
10350  & .1360259e-01,.1233974e-01,.1147779e-01,.1184062e-01,.1987095e-01,&
10351  & .1854946e-01,.1743597e-01,.1649501e-01,.1555867e-01,.1455749e-01,&
10352  & .1351955e-01,.1298854e-01,.1367056e-01,.1970539e-01,.1864562e-01,&
10353  & .1779988e-01,.1712573e-01,.1640112e-01,.1560634e-01,.1483953e-01,&
10354  & .1466071e-01,.1566922e-01,.1952211e-01,.1876024e-01,.1821996e-01,&
10355  & .1780079e-01,.1732241e-01,.1670897e-01,.1627296e-01,.1646775e-01,&
10356  & .1781807e-01,.1932576e-01,.1888733e-01,.1868624e-01,.1852437e-01,&
10357  & .1828787e-01,.1789646e-01,.1782466e-01,.1840912e-01,.2012300e-01,&
10358  & .2046316e-01,.1881445e-01,.1742883e-01,.1614035e-01,.1486365e-01,&
10359  & .1356768e-01,.1209778e-01,.1077331e-01,.1065343e-01,.2030717e-01,&
10360  & .1890498e-01,.1772206e-01,.1668034e-01,.1562712e-01,.1448379e-01,&
10361  & .1318643e-01,.1216891e-01,.1235738e-01,.2013274e-01,.1900626e-01,&
10362  & .1806511e-01,.1729725e-01,.1644190e-01,.1549571e-01,.1438909e-01,&
10363  & .1370013e-01,.1420354e-01,.1994378e-01,.1911368e-01,.1847290e-01,&
10364  & .1795539e-01,.1733637e-01,.1657610e-01,.1569548e-01,.1535991e-01,&
10365  & .1619433e-01,.1974273e-01,.1923315e-01,.1892487e-01,.1866106e-01,&
10366  & .1828690e-01,.1769725e-01,.1711524e-01,.1715953e-01,.1834492e-01,&
10367  & .2071926e-01,.1899869e-01,.1758640e-01,.1621993e-01,.1481733e-01,&
10368  & .1340442e-01,.1178457e-01,.1005441e-01,.9415201e-02,.2056070e-01,&
10369  & .1908468e-01,.1786585e-01,.1672760e-01,.1555529e-01,.1427366e-01,&
10370  & .1280976e-01,.1132568e-01,.1098244e-01,.2038159e-01,.1918328e-01,&
10371  & .1818981e-01,.1732353e-01,.1633951e-01,.1523974e-01,.1393712e-01,&
10372  & .1273530e-01,.1270208e-01,.2019166e-01,.1930154e-01,.1857522e-01,&
10373  & .1795884e-01,.1719737e-01,.1628902e-01,.1513446e-01,.1425698e-01,&
10374  & .1454259e-01,.1999244e-01,.1941900e-01,.1900880e-01,.1863941e-01,&
10375  & .1812618e-01,.1738164e-01,.1642114e-01,.1589227e-01,.1651351e-01/
10376 
10377  data absa(181:315, 7) / &
10378  & .2078596e-01,.1902221e-01,.1759185e-01,.1618479e-01,.1468286e-01,&
10379  & .1316356e-01,.1141915e-01,.9423027e-02,.8269424e-02,.2061989e-01,&
10380  & .1909317e-01,.1787631e-01,.1666093e-01,.1538845e-01,.1399494e-01,&
10381  & .1238597e-01,.1057539e-01,.9705846e-02,.2044247e-01,.1918749e-01,&
10382  & .1817839e-01,.1723098e-01,.1614137e-01,.1490895e-01,.1346159e-01,&
10383  & .1185395e-01,.1127991e-01,.2025356e-01,.1930375e-01,.1854460e-01,&
10384  & .1784554e-01,.1696147e-01,.1591307e-01,.1460469e-01,.1324520e-01,&
10385  & .1297427e-01,.2007410e-01,.1943195e-01,.1896380e-01,.1849843e-01,&
10386  & .1785367e-01,.1697392e-01,.1579435e-01,.1474526e-01,.1480343e-01,&
10387  & .2067653e-01,.1889520e-01,.1744869e-01,.1600835e-01,.1443542e-01,&
10388  & .1280811e-01,.1096768e-01,.8811489e-02,.7161785e-02,.2051191e-01,&
10389  & .1895371e-01,.1772735e-01,.1645848e-01,.1509553e-01,.1360134e-01,&
10390  & .1187179e-01,.9849619e-02,.8463973e-02,.2033498e-01,.1904213e-01,&
10391  & .1803233e-01,.1698898e-01,.1581982e-01,.1446262e-01,.1288709e-01,&
10392  & .1101445e-01,.9901719e-02,.2016531e-01,.1915657e-01,.1837300e-01,&
10393  & .1758375e-01,.1659315e-01,.1541743e-01,.1398290e-01,.1227676e-01,&
10394  & .1145224e-01,.2000011e-01,.1929718e-01,.1877422e-01,.1820930e-01,&
10395  & .1743917e-01,.1643489e-01,.1512599e-01,.1364249e-01,.1312614e-01,&
10396  & .2038344e-01,.1861656e-01,.1717360e-01,.1569740e-01,.1410542e-01,&
10397  & .1238154e-01,.1046720e-01,.8234826e-02,.6157987e-02,.2021852e-01,&
10398  & .1866243e-01,.1743952e-01,.1614631e-01,.1471423e-01,.1312828e-01,&
10399  & .1131255e-01,.9181663e-02,.7325752e-02,.2004782e-01,.1874347e-01,&
10400  & .1774105e-01,.1664594e-01,.1539580e-01,.1393665e-01,.1225989e-01,&
10401  & .1024134e-01,.8627463e-02,.1988902e-01,.1886277e-01,.1808084e-01,&
10402  & .1721183e-01,.1612179e-01,.1483288e-01,.1330233e-01,.1139021e-01,&
10403  & .1003993e-01,.1973638e-01,.1901550e-01,.1847625e-01,.1780825e-01,&
10404  & .1691910e-01,.1580549e-01,.1439570e-01,.1263517e-01,.1157007e-01/
10405 
10406  data absa(316:450, 7) / &
10407  & .1987279e-01,.1815516e-01,.1673357e-01,.1526588e-01,.1367570e-01,&
10408  & .1190873e-01,.9931491e-02,.7668521e-02,.5208898e-02,.1970849e-01,&
10409  & .1819142e-01,.1699015e-01,.1570273e-01,.1425525e-01,.1259893e-01,&
10410  & .1071895e-01,.8538062e-02,.6255037e-02,.1954825e-01,.1826821e-01,&
10411  & .1728456e-01,.1619427e-01,.1489632e-01,.1335233e-01,.1159816e-01,&
10412  & .9521153e-02,.7436933e-02,.1939994e-01,.1839394e-01,.1763047e-01,&
10413  & .1674380e-01,.1557766e-01,.1418956e-01,.1258113e-01,.1057697e-01,&
10414  & .8728022e-02,.1926214e-01,.1855724e-01,.1803115e-01,.1732234e-01,&
10415  & .1632534e-01,.1511381e-01,.1362321e-01,.1171409e-01,.1013851e-01,&
10416  & .1916880e-01,.1752174e-01,.1613409e-01,.1469612e-01,.1312851e-01,&
10417  & .1136007e-01,.9364186e-02,.7102147e-02,.4213687e-02,.1900554e-01,&
10418  & .1754861e-01,.1637886e-01,.1511063e-01,.1368165e-01,.1201315e-01,&
10419  & .1009580e-01,.7893303e-02,.5110717e-02,.1885316e-01,.1762136e-01,&
10420  & .1666679e-01,.1558750e-01,.1430162e-01,.1272233e-01,.1090848e-01,&
10421  & .8800048e-02,.6141449e-02,.1871378e-01,.1775166e-01,.1701481e-01,&
10422  & .1613266e-01,.1495234e-01,.1350195e-01,.1182791e-01,.9791825e-02,&
10423  & .7281500e-02,.1858911e-01,.1792329e-01,.1741640e-01,.1670595e-01,&
10424  & .1566347e-01,.1437003e-01,.1281383e-01,.1084750e-01,.8535050e-02,&
10425  & .1826944e-01,.1672464e-01,.1541276e-01,.1403848e-01,.1252666e-01,&
10426  & .1078514e-01,.8823245e-02,.6591625e-02,.4177613e-02,.1810805e-01,&
10427  & .1674909e-01,.1564423e-01,.1443382e-01,.1304370e-01,.1140669e-01,&
10428  & .9515283e-02,.7318294e-02,.4841751e-02,.1796423e-01,.1682298e-01,&
10429  & .1593052e-01,.1489393e-01,.1363432e-01,.1209430e-01,.1027133e-01,&
10430  & .8153051e-02,.5674979e-02,.1783274e-01,.1695370e-01,.1627489e-01,&
10431  & .1542379e-01,.1427771e-01,.1283692e-01,.1112848e-01,.9081882e-02,&
10432  & .6511275e-02,.1772600e-01,.1713577e-01,.1668031e-01,.1599272e-01,&
10433  & .1497596e-01,.1366160e-01,.1205854e-01,.1007221e-01,.7398941e-02/
10434 
10435  data absa(451:585, 7) / &
10436  & .1712738e-01,.1578625e-01,.1465104e-01,.1343124e-01,.1204735e-01,&
10437  & .1040471e-01,.8547650e-02,.6380408e-02,.4682263e-02,.1697749e-01,&
10438  & .1582950e-01,.1490046e-01,.1383672e-01,.1256494e-01,.1102596e-01,&
10439  & .9230857e-02,.7091836e-02,.5424321e-02,.1684963e-01,.1592973e-01,&
10440  & .1520871e-01,.1431627e-01,.1316095e-01,.1170953e-01,.9981803e-02,&
10441  & .7904548e-02,.6291977e-02,.1674859e-01,.1609441e-01,.1557937e-01,&
10442  & .1485696e-01,.1380508e-01,.1246505e-01,.1081864e-01,.8796469e-02,&
10443  & .7234547e-02,.1667150e-01,.1630711e-01,.1601588e-01,.1543527e-01,&
10444  & .1451902e-01,.1330051e-01,.1171274e-01,.9750545e-02,.8163171e-02,&
10445  & .1585812e-01,.1473647e-01,.1378249e-01,.1272207e-01,.1146005e-01,&
10446  & .9946309e-02,.8216259e-02,.6139489e-02,.4795601e-02,.1573042e-01,&
10447  & .1480849e-01,.1405564e-01,.1313767e-01,.1198402e-01,.1056976e-01,&
10448  & .8883654e-02,.6832310e-02,.5569244e-02,.1562948e-01,.1493848e-01,&
10449  & .1438406e-01,.1362526e-01,.1258929e-01,.1125212e-01,.9629528e-02,&
10450  & .7616188e-02,.6452525e-02,.1556093e-01,.1513902e-01,.1478476e-01,&
10451  & .1418150e-01,.1324034e-01,.1201861e-01,.1045886e-01,.8467010e-02,&
10452  & .7448495e-02,.1552707e-01,.1538861e-01,.1525660e-01,.1477573e-01,&
10453  & .1397485e-01,.1285192e-01,.1132600e-01,.9383049e-02,.8380165e-02,&
10454  & .1451815e-01,.1362323e-01,.1284326e-01,.1193288e-01,.1079141e-01,&
10455  & .9422285e-02,.7828749e-02,.5876279e-02,.4564233e-02,.1441454e-01,&
10456  & .1372037e-01,.1313620e-01,.1235490e-01,.1132640e-01,.1004968e-01,&
10457  & .8482915e-02,.6542489e-02,.5277165e-02,.1434814e-01,.1388758e-01,&
10458  & .1349254e-01,.1286003e-01,.1193607e-01,.1073461e-01,.9223888e-02,&
10459  & .7293736e-02,.6181241e-02,.1432181e-01,.1412637e-01,.1392568e-01,&
10460  & .1342872e-01,.1260305e-01,.1150145e-01,.1004198e-01,.8104002e-02,&
10461  & .7114973e-02,.1432961e-01,.1441453e-01,.1442859e-01,.1404464e-01,&
10462  & .1335348e-01,.1232881e-01,.1089297e-01,.8984991e-02,.8052181e-02/
10463 
10464  data absa( 1:180, 8) / &
10465  & .7758517e-01,.6971744e-01,.6856234e-01,.7085104e-01,.7686968e-01,&
10466  & .8798079e-01,.1038826e+00,.1198350e+00,.1359548e+00,.7760111e-01,&
10467  & .7121281e-01,.7343034e-01,.7934822e-01,.9017738e-01,.1066736e+00,&
10468  & .1269235e+00,.1465907e+00,.1664556e+00,.7752743e-01,.7302330e-01,&
10469  & .7902576e-01,.8954413e-01,.1059545e+00,.1282979e+00,.1531287e+00,&
10470  & .1770168e+00,.2010905e+00,.7732969e-01,.7518701e-01,.8549302e-01,&
10471  & .1015046e+00,.1240275e+00,.1528286e+00,.1826322e+00,.2112286e+00,&
10472  & .2400654e+00,.7704248e-01,.7773694e-01,.9279924e-01,.1151544e+00,&
10473  & .1447190e+00,.1798906e+00,.2150779e+00,.2488116e+00,.2828065e+00,&
10474  & .8996337e-01,.8019925e-01,.7649483e-01,.7619075e-01,.7950947e-01,&
10475  & .8744378e-01,.1013048e+00,.1167488e+00,.1333495e+00,.9002593e-01,&
10476  & .8150228e-01,.8115314e-01,.8427387e-01,.9208357e-01,.1052256e+00,&
10477  & .1239442e+00,.1430385e+00,.1634839e+00,.8993043e-01,.8319207e-01,&
10478  & .8655274e-01,.9399363e-01,.1071792e+00,.1260258e+00,.1498926e+00,&
10479  & .1732190e+00,.1980122e+00,.8971818e-01,.8524906e-01,.9277644e-01,&
10480  & .1055693e+00,.1245408e+00,.1502414e+00,.1793335e+00,.2072943e+00,&
10481  & .2370216e+00,.8937589e-01,.8770760e-01,.9989309e-01,.1188472e+00,&
10482  & .1444723e+00,.1773019e+00,.2118836e+00,.2451113e+00,.2803148e+00,&
10483  & .1035251e+00,.9170912e-01,.8469424e-01,.8124545e-01,.8127330e-01,&
10484  & .8520134e-01,.9536063e-01,.1094892e+00,.1259212e+00,.1036314e+00,&
10485  & .9276163e-01,.8901665e-01,.8866608e-01,.9260241e-01,.1015125e+00,&
10486  & .1166863e+00,.1344219e+00,.1546172e+00,.1035650e+00,.9415806e-01,&
10487  & .9411336e-01,.9760915e-01,.1066039e+00,.1208833e+00,.1416737e+00,&
10488  & .1635528e+00,.1881599e+00,.1033569e+00,.9604690e-01,.9993466e-01,&
10489  & .1084464e+00,.1229492e+00,.1435592e+00,.1703234e+00,.1968385e+00,&
10490  & .2265370e+00,.1029798e+00,.9835979e-01,.1066697e+00,.1210700e+00,&
10491  & .1417416e+00,.1696560e+00,.2023878e+00,.2340132e+00,.2693038e+00,&
10492  & .1182256e+00,.1042918e+00,.9385612e-01,.8708706e-01,.8392123e-01,&
10493  & .8386827e-01,.8993733e-01,.1021139e+00,.1178700e+00,.1183624e+00,&
10494  & .1051802e+00,.9770525e-01,.9387938e-01,.9397963e-01,.9866810e-01,&
10495  & .1093764e+00,.1253639e+00,.1447078e+00,.1183448e+00,.1063559e+00,&
10496  & .1024326e+00,.1020095e+00,.1067911e+00,.1165316e+00,.1326917e+00,&
10497  & .1528199e+00,.1764343e+00,.1181015e+00,.1078331e+00,.1078798e+00,&
10498  & .1120521e+00,.1219908e+00,.1374912e+00,.1601454e+00,.1848559e+00,&
10499  & .2134132e+00,.1177256e+00,.1098961e+00,.1142273e+00,.1239094e+00,&
10500  & .1395842e+00,.1620158e+00,.1913771e+00,.2212322e+00,.2554318e+00/
10501 
10502  data absa(181:315, 8) / &
10503  & .1337645e+00,.1176975e+00,.1042174e+00,.9408829e-01,.8780506e-01,&
10504  & .8428291e-01,.8648117e-01,.9578625e-01,.1107310e+00,.1340095e+00,&
10505  & .1185612e+00,.1073992e+00,.1002667e+00,.9676787e-01,.9754447e-01,&
10506  & .1041226e+00,.1173533e+00,.1356505e+00,.1339933e+00,.1195717e+00,&
10507  & .1117737e+00,.1076768e+00,.1084293e+00,.1139755e+00,.1254459e+00,&
10508  & .1433024e+00,.1656569e+00,.1337898e+00,.1208507e+00,.1168604e+00,&
10509  & .1168941e+00,.1225882e+00,.1334602e+00,.1509971e+00,.1738575e+00,&
10510  & .2010332e+00,.1333402e+00,.1225783e+00,.1227702e+00,.1280534e+00,&
10511  & .1390939e+00,.1563754e+00,.1810270e+00,.2089873e+00,.2415778e+00,&
10512  & .1499294e+00,.1316511e+00,.1153149e+00,.1019770e+00,.9253012e-01,&
10513  & .8589064e-01,.8430058e-01,.8998453e-01,.1039889e+00,.1502123e+00,&
10514  & .1324781e+00,.1179942e+00,.1074361e+00,.1005474e+00,.9758469e-01,&
10515  & .1000820e+00,.1097714e+00,.1269049e+00,.1502509e+00,.1333737e+00,&
10516  & .1216948e+00,.1142169e+00,.1109667e+00,.1125131e+00,.1194607e+00,&
10517  & .1338501e+00,.1548471e+00,.1500164e+00,.1344800e+00,.1264420e+00,&
10518  & .1225692e+00,.1240810e+00,.1304661e+00,.1429117e+00,.1627629e+00,&
10519  & .1883115e+00,.1495747e+00,.1359816e+00,.1319394e+00,.1329504e+00,&
10520  & .1395630e+00,.1517775e+00,.1709091e+00,.1964203e+00,.2271878e+00,&
10521  & .1667524e+00,.1461966e+00,.1270922e+00,.1109576e+00,.9817555e-01,&
10522  & .8876777e-01,.8374701e-01,.8543513e-01,.9818294e-01,.1671368e+00,&
10523  & .1470313e+00,.1293919e+00,.1154650e+00,.1053506e+00,.9907389e-01,&
10524  & .9777459e-01,.1033433e+00,.1192365e+00,.1672667e+00,.1478601e+00,&
10525  & .1325480e+00,.1215247e+00,.1147604e+00,.1125732e+00,.1153357e+00,&
10526  & .1255724e+00,.1452073e+00,.1670804e+00,.1488123e+00,.1366626e+00,&
10527  & .1291483e+00,.1268401e+00,.1291153e+00,.1368015e+00,.1526760e+00,&
10528  & .1766400e+00,.1666531e+00,.1500830e+00,.1416654e+00,.1387987e+00,&
10529  & .1413161e+00,.1488921e+00,.1627763e+00,.1846442e+00,.2135966e+00/
10530 
10531  data absa(316:450, 8) / &
10532  & .1846850e+00,.1617527e+00,.1399797e+00,.1208986e+00,.1049700e+00,&
10533  & .9268890e-01,.8468015e-01,.8250239e-01,.9346009e-01,.1852004e+00,&
10534  & .1626022e+00,.1419177e+00,.1246679e+00,.1111616e+00,.1018673e+00,&
10535  & .9711144e-01,.9858998e-01,.1128165e+00,.1854002e+00,.1633815e+00,&
10536  & .1446073e+00,.1298548e+00,.1195851e+00,.1140911e+00,.1130781e+00,&
10537  & .1187616e+00,.1368729e+00,.1852584e+00,.1641980e+00,.1481385e+00,&
10538  & .1365970e+00,.1306723e+00,.1293064e+00,.1327425e+00,.1439504e+00,&
10539  & .1663864e+00,.1848096e+00,.1652487e+00,.1525559e+00,.1454722e+00,&
10540  & .1442002e+00,.1476584e+00,.1567932e+00,.1741988e+00,.2014170e+00,&
10541  & .2035660e+00,.1782138e+00,.1538641e+00,.1319292e+00,.1129603e+00,&
10542  & .9769919e-01,.8663861e-01,.8077073e-01,.8932903e-01,.2042261e+00,&
10543  & .1790867e+00,.1555132e+00,.1351430e+00,.1182459e+00,.1056510e+00,&
10544  & .9764716e-01,.9524493e-01,.1071831e+00,.2045296e+00,.1798786e+00,&
10545  & .1578247e+00,.1395652e+00,.1254969e+00,.1165399e+00,.1121007e+00,&
10546  & .1135498e+00,.1294885e+00,.2044541e+00,.1805616e+00,.1608548e+00,&
10547  & .1453947e+00,.1354455e+00,.1305073e+00,.1300663e+00,.1365302e+00,&
10548  & .1570562e+00,.2040215e+00,.1814068e+00,.1647421e+00,.1533244e+00,&
10549  & .1479662e+00,.1475364e+00,.1523061e+00,.1647332e+00,.1901427e+00,&
10550  & .2235492e+00,.1956768e+00,.1686716e+00,.1440048e+00,.1221516e+00,&
10551  & .1041925e+00,.9012153e-01,.8095605e-01,.7543929e-01,.2243439e+00,&
10552  & .1965703e+00,.1701921e+00,.1468360e+00,.1269493e+00,.1112681e+00,&
10553  & .9999583e-01,.9424336e-01,.9351393e-01,.2246860e+00,.1973265e+00,&
10554  & .1722057e+00,.1507546e+00,.1334737e+00,.1209496e+00,.1133134e+00,&
10555  & .1112100e+00,.1153114e+00,.2246584e+00,.1979469e+00,.1749030e+00,&
10556  & .1560431e+00,.1423719e+00,.1337802e+00,.1300644e+00,.1325688e+00,&
10557  & .1435519e+00,.2242020e+00,.1986013e+00,.1783455e+00,.1632177e+00,&
10558  & .1538706e+00,.1497467e+00,.1509387e+00,.1590812e+00,.1779531e+00/
10559 
10560  data absa(451:585, 8) / &
10561  & .2450204e+00,.2144676e+00,.1850038e+00,.1579688e+00,.1339651e+00,&
10562  & .1141008e+00,.9793249e-01,.8695958e-01,.6939988e-01,.2456964e+00,&
10563  & .2153041e+00,.1865121e+00,.1608968e+00,.1389868e+00,.1214503e+00,&
10564  & .1082108e+00,.1007628e+00,.8668012e-01,.2459004e+00,.2159604e+00,&
10565  & .1885239e+00,.1648976e+00,.1457743e+00,.1314989e+00,.1219175e+00,&
10566  & .1183238e+00,.1082310e+00,.2456185e+00,.2163907e+00,.1911660e+00,&
10567  & .1703594e+00,.1550454e+00,.1445551e+00,.1392768e+00,.1404833e+00,&
10568  & .1353141e+00,.2449307e+00,.2169326e+00,.1945158e+00,.1777645e+00,&
10569  & .1667152e+00,.1608041e+00,.1609850e+00,.1678148e+00,.1694632e+00,&
10570  & .2671603e+00,.2338498e+00,.2019245e+00,.1725008e+00,.1464684e+00,&
10571  & .1244209e+00,.1059693e+00,.9304783e-01,.6959000e-01,.2676057e+00,&
10572  & .2345222e+00,.2033654e+00,.1755662e+00,.1517012e+00,.1320205e+00,&
10573  & .1167556e+00,.1073595e+00,.8673211e-01,.2675630e+00,.2350038e+00,&
10574  & .2053552e+00,.1797362e+00,.1586943e+00,.1424342e+00,.1308446e+00,&
10575  & .1256134e+00,.1083518e+00,.2670071e+00,.2352413e+00,.2078987e+00,&
10576  & .1853108e+00,.1681964e+00,.1557131e+00,.1486669e+00,.1486318e+00,&
10577  & .1350793e+00,.2659779e+00,.2356017e+00,.2111172e+00,.1928578e+00,&
10578  & .1799895e+00,.1723719e+00,.1711124e+00,.1767808e+00,.1695167e+00,&
10579  & .2893519e+00,.2532903e+00,.2190193e+00,.1873805e+00,.1594254e+00,&
10580  & .1350214e+00,.1142355e+00,.9903594e-01,.7490192e-01,.2895758e+00,&
10581  & .2538124e+00,.2204052e+00,.1906072e+00,.1647749e+00,.1428610e+00,&
10582  & .1254558e+00,.1139403e+00,.9307717e-01,.2892263e+00,.2540433e+00,&
10583  & .2223015e+00,.1948310e+00,.1719923e+00,.1535461e+00,.1399201e+00,&
10584  & .1328863e+00,.1147608e+00,.2883124e+00,.2540521e+00,.2247025e+00,&
10585  & .2005493e+00,.1816141e+00,.1671436e+00,.1582248e+00,.1567001e+00,&
10586  & .1426012e+00,.2869377e+00,.2542235e+00,.2278499e+00,.2081519e+00,&
10587  & .1935477e+00,.1842067e+00,.1812086e+00,.1856280e+00,.1773106e+00/
10588 
10589 
10590  data absb( 1:120, 1) / &
10591  & .8084900e-06,.8136200e-06,.8139100e-06,.8183200e-06,.8100000e-06,&
10592  & .6259300e-06,.6309000e-06,.6315800e-06,.6282100e-06,.6250200e-06,&
10593  & .4782500e-06,.4785200e-06,.4771300e-06,.4768800e-06,.4798900e-06,&
10594  & .3603900e-06,.3590500e-06,.3606400e-06,.3629800e-06,.3686000e-06,&
10595  & .2767900e-06,.2760800e-06,.2774200e-06,.2811200e-06,.2875900e-06,&
10596  & .2177100e-06,.2182600e-06,.2201900e-06,.2242900e-06,.2299600e-06,&
10597  & .1733400e-06,.1744100e-06,.1768100e-06,.1805500e-06,.1853700e-06,&
10598  & .1397400e-06,.1407600e-06,.1432600e-06,.1469400e-06,.1507000e-06,&
10599  & .1128900e-06,.1139400e-06,.1163100e-06,.1196300e-06,.1228400e-06,&
10600  & .9057400e-07,.9191400e-07,.9404600e-07,.9699800e-07,.9984100e-07,&
10601  & .7248300e-07,.7406900e-07,.7618600e-07,.7848200e-07,.8096400e-07,&
10602  & .5746300e-07,.5913000e-07,.6080200e-07,.6290300e-07,.6521800e-07,&
10603  & .4576700e-07,.4718400e-07,.4869600e-07,.5049400e-07,.5252700e-07,&
10604  & .3663600e-07,.3779400e-07,.3921700e-07,.4076800e-07,.4246500e-07,&
10605  & .2917300e-07,.3018300e-07,.3146900e-07,.3283400e-07,.3421300e-07,&
10606  & .2322500e-07,.2413700e-07,.2516700e-07,.2637800e-07,.2753400e-07,&
10607  & .1867500e-07,.1947200e-07,.2034000e-07,.2134000e-07,.2228600e-07,&
10608  & .1502000e-07,.1569000e-07,.1646800e-07,.1725800e-07,.1806000e-07,&
10609  & .1214900e-07,.1272800e-07,.1337500e-07,.1403500e-07,.1471100e-07,&
10610  & .9859600e-08,.1034400e-07,.1087900e-07,.1142700e-07,.1200300e-07,&
10611  & .8012700e-08,.8419900e-08,.8861000e-08,.9318800e-08,.9810200e-08,&
10612  & .6547300e-08,.6885000e-08,.7247000e-08,.7637900e-08,.8032900e-08,&
10613  & .5310700e-08,.5593000e-08,.5898400e-08,.6216100e-08,.6551100e-08,&
10614  & .4274900e-08,.4507200e-08,.4759200e-08,.5024400e-08,.5303400e-08/
10615 
10616  data absb(121:235, 1) / &
10617  & .3459300e-08,.3647900e-08,.3855700e-08,.4071400e-08,.4303100e-08,&
10618  & .2798100e-08,.2952500e-08,.3121200e-08,.3298400e-08,.3489000e-08,&
10619  & .2261600e-08,.2387900e-08,.2526600e-08,.2671600e-08,.2829500e-08,&
10620  & .1823200e-08,.1924500e-08,.2036200e-08,.2155400e-08,.2283100e-08,&
10621  & .1467900e-08,.1551100e-08,.1640200e-08,.1737600e-08,.1841300e-08,&
10622  & .1182800e-08,.1248800e-08,.1320000e-08,.1400800e-08,.1484100e-08,&
10623  & .9497000e-09,.1002800e-08,.1061000e-08,.1125400e-08,.1193300e-08,&
10624  & .7621000e-09,.8040100e-09,.8509800e-09,.9020300e-09,.9579400e-09,&
10625  & .6124200e-09,.6447100e-09,.6820500e-09,.7233600e-09,.7684600e-09,&
10626  & .4921400e-09,.5164200e-09,.5463300e-09,.5791600e-09,.6150600e-09,&
10627  & .3955200e-09,.4134300e-09,.4365800e-09,.4626600e-09,.4912100e-09,&
10628  & .3177300e-09,.3316100e-09,.3487800e-09,.3697000e-09,.3923100e-09,&
10629  & .2552600e-09,.2661300e-09,.2790600e-09,.2951000e-09,.3134600e-09,&
10630  & .2057100e-09,.2141900e-09,.2237900e-09,.2362200e-09,.2507600e-09,&
10631  & .1657300e-09,.1725100e-09,.1800200e-09,.1892500e-09,.2007400e-09,&
10632  & .1331200e-09,.1388800e-09,.1448000e-09,.1517000e-09,.1606700e-09,&
10633  & .1071700e-09,.1120000e-09,.1165300e-09,.1218700e-09,.1286400e-09,&
10634  & .8539500e-10,.9019000e-10,.9397800e-10,.9811500e-10,.1032400e-09,&
10635  & .6793300e-10,.7268200e-10,.7585700e-10,.7907900e-10,.8294200e-10,&
10636  & .5357200e-10,.5809500e-10,.6123100e-10,.6373800e-10,.6673800e-10,&
10637  & .4172900e-10,.4638000e-10,.4935700e-10,.5140900e-10,.5374300e-10,&
10638  & .3231900e-10,.3673700e-10,.3957200e-10,.4148700e-10,.4332700e-10,&
10639  & .2582000e-10,.2954100e-10,.3210700e-10,.3376200e-10,.3525000e-10/
10640 
10641  data absb( 1:120, 2) / &
10642  & .9380900e-05,.1053600e-04,.1177700e-04,.1309800e-04,.1448600e-04,&
10643  & .7705000e-05,.8652000e-05,.9674500e-05,.1075900e-04,.1189100e-04,&
10644  & .6311200e-05,.7091400e-05,.7932000e-05,.8817900e-05,.9734400e-05,&
10645  & .5167200e-05,.5817200e-05,.6496100e-05,.7213300e-05,.7959500e-05,&
10646  & .4247000e-05,.4781700e-05,.5339600e-05,.5922900e-05,.6538500e-05,&
10647  & .3510500e-05,.3951300e-05,.4404200e-05,.4886500e-05,.5398300e-05,&
10648  & .2905700e-05,.3268000e-05,.3640900e-05,.4041900e-05,.4464600e-05,&
10649  & .2413200e-05,.2711100e-05,.3019200e-05,.3349800e-05,.3698500e-05,&
10650  & .2004100e-05,.2248400e-05,.2505200e-05,.2777000e-05,.3066100e-05,&
10651  & .1676200e-05,.1877500e-05,.2090000e-05,.2315800e-05,.2554300e-05,&
10652  & .1401300e-05,.1566500e-05,.1743300e-05,.1930800e-05,.2129000e-05,&
10653  & .1168000e-05,.1303900e-05,.1451500e-05,.1608500e-05,.1773300e-05,&
10654  & .9749100e-06,.1088600e-05,.1211400e-05,.1342800e-05,.1480600e-05,&
10655  & .8160800e-06,.9119800e-06,.1014800e-05,.1124400e-05,.1239200e-05,&
10656  & .6840700e-06,.7643200e-06,.8504800e-06,.9421000e-06,.1039300e-05,&
10657  & .5734000e-06,.6407100e-06,.7131100e-06,.7898800e-06,.8730400e-06,&
10658  & .4823400e-06,.5388600e-06,.5999200e-06,.6655700e-06,.7356500e-06,&
10659  & .4062800e-06,.4538400e-06,.5063800e-06,.5617500e-06,.6208600e-06,&
10660  & .3427600e-06,.3840900e-06,.4281700e-06,.4755100e-06,.5250800e-06,&
10661  & .2902400e-06,.3254800e-06,.3629100e-06,.4026300e-06,.4442300e-06,&
10662  & .2462300e-06,.2759600e-06,.3074800e-06,.3410400e-06,.3757100e-06,&
10663  & .2081400e-06,.2331800e-06,.2597500e-06,.2874600e-06,.3167400e-06,&
10664  & .1739900e-06,.1947600e-06,.2169800e-06,.2402100e-06,.2646300e-06,&
10665  & .1435200e-06,.1607900e-06,.1792000e-06,.1983800e-06,.2185200e-06/
10666 
10667  data absb(121:235, 2) / &
10668  & .1164400e-06,.1306100e-06,.1456900e-06,.1614800e-06,.1779400e-06,&
10669  & .9432700e-07,.1059700e-06,.1182700e-06,.1312100e-06,.1447100e-06,&
10670  & .7638600e-07,.8593200e-07,.9600400e-07,.1067500e-06,.1178500e-06,&
10671  & .6109300e-07,.6885600e-07,.7708800e-07,.8583100e-07,.9487800e-07,&
10672  & .4878100e-07,.5505800e-07,.6172500e-07,.6885200e-07,.7623400e-07,&
10673  & .3890900e-07,.4398700e-07,.4939100e-07,.5516100e-07,.6119700e-07,&
10674  & .3077900e-07,.3486600e-07,.3922200e-07,.4387000e-07,.4878500e-07,&
10675  & .2424900e-07,.2751400e-07,.3101400e-07,.3477400e-07,.3877200e-07,&
10676  & .1907600e-07,.2169300e-07,.2451400e-07,.2752200e-07,.3075600e-07,&
10677  & .1494900e-07,.1704600e-07,.1930300e-07,.2172100e-07,.2432000e-07,&
10678  & .1162700e-07,.1329400e-07,.1510200e-07,.1704000e-07,.1911500e-07,&
10679  & .9020800e-08,.1035900e-07,.1180300e-07,.1334900e-07,.1500300e-07,&
10680  & .6997900e-08,.8062500e-08,.9207500e-08,.1044500e-07,.1176800e-07,&
10681  & .5450700e-08,.6277700e-08,.7200400e-08,.8189900e-08,.9248800e-08,&
10682  & .4254100e-08,.4893300e-08,.5630400e-08,.6421400e-08,.7272500e-08,&
10683  & .3316100e-08,.3812100e-08,.4397600e-08,.5030100e-08,.5714000e-08,&
10684  & .2581700e-08,.2969100e-08,.3429100e-08,.3936800e-08,.4483600e-08,&
10685  & .2020300e-08,.2322800e-08,.2682300e-08,.3090000e-08,.3528500e-08,&
10686  & .1583300e-08,.1819600e-08,.2102300e-08,.2427600e-08,.2778700e-08,&
10687  & .1240300e-08,.1425000e-08,.1646100e-08,.1904500e-08,.2185500e-08,&
10688  & .9724900e-09,.1116400e-08,.1288100e-08,.1492300e-08,.1717500e-08,&
10689  & .7643100e-09,.8769900e-09,.1010800e-08,.1170900e-08,.1351600e-08,&
10690  & .6155300e-09,.7064900e-09,.8146300e-09,.9431500e-09,.1090700e-08/
10691 
10692  data absb( 1:120, 3) / &
10693  & .3770800e-04,.4394200e-04,.5058600e-04,.5765600e-04,.6513900e-04,&
10694  & .3169400e-04,.3686200e-04,.4235000e-04,.4819700e-04,.5434100e-04,&
10695  & .2656400e-04,.3082400e-04,.3537200e-04,.4018000e-04,.4523100e-04,&
10696  & .2223200e-04,.2574000e-04,.2951200e-04,.3344700e-04,.3758800e-04,&
10697  & .1857800e-04,.2146700e-04,.2458200e-04,.2783200e-04,.3122100e-04,&
10698  & .1553000e-04,.1792200e-04,.2049800e-04,.2317000e-04,.2597300e-04,&
10699  & .1297200e-04,.1495200e-04,.1705900e-04,.1927000e-04,.2158000e-04,&
10700  & .1085800e-04,.1249800e-04,.1422800e-04,.1606100e-04,.1795800e-04,&
10701  & .9081900e-05,.1044600e-04,.1188000e-04,.1339400e-04,.1495100e-04,&
10702  & .7664800e-05,.8797900e-05,.9993100e-05,.1125500e-04,.1254200e-04,&
10703  & .6463400e-05,.7414000e-05,.8408600e-05,.9454600e-05,.1052700e-04,&
10704  & .5452300e-05,.6246400e-05,.7080900e-05,.7950800e-05,.8844600e-05,&
10705  & .4611000e-05,.5271600e-05,.5969300e-05,.6690400e-05,.7432200e-05,&
10706  & .3913400e-05,.4462000e-05,.5042500e-05,.5643900e-05,.6257700e-05,&
10707  & .3320800e-05,.3777700e-05,.4262900e-05,.4760700e-05,.5271400e-05,&
10708  & .2817700e-05,.3200800e-05,.3603100e-05,.4018700e-05,.4435800e-05,&
10709  & .2393200e-05,.2715800e-05,.3051600e-05,.3394500e-05,.3741600e-05,&
10710  & .2034000e-05,.2303500e-05,.2582700e-05,.2867200e-05,.3155900e-05,&
10711  & .1730800e-05,.1954700e-05,.2186900e-05,.2424300e-05,.2664900e-05,&
10712  & .1473400e-05,.1659300e-05,.1853600e-05,.2051800e-05,.2251400e-05,&
10713  & .1253800e-05,.1409700e-05,.1571800e-05,.1736900e-05,.1901300e-05,&
10714  & .1062600e-05,.1193200e-05,.1329000e-05,.1466200e-05,.1602500e-05,&
10715  & .8899000e-06,.9987800e-06,.1112200e-05,.1226600e-05,.1339500e-05,&
10716  & .7353500e-06,.8269000e-06,.9209900e-06,.1015900e-05,.1109900e-05/
10717 
10718  data absb(121:235, 3) / &
10719  & .5972800e-06,.6730100e-06,.7512700e-06,.8302100e-06,.9084500e-06,&
10720  & .4848400e-06,.5473700e-06,.6122900e-06,.6776200e-06,.7425800e-06,&
10721  & .3934700e-06,.4448500e-06,.4988600e-06,.5529000e-06,.6067400e-06,&
10722  & .3148800e-06,.3570300e-06,.4014800e-06,.4464000e-06,.4909100e-06,&
10723  & .2513000e-06,.2856100e-06,.3222400e-06,.3595300e-06,.3961800e-06,&
10724  & .2003000e-06,.2284000e-06,.2583400e-06,.2893000e-06,.3196500e-06,&
10725  & .1580700e-06,.1810900e-06,.2054200e-06,.2309400e-06,.2563500e-06,&
10726  & .1241800e-06,.1428200e-06,.1626100e-06,.1836400e-06,.2046500e-06,&
10727  & .9738300e-07,.1124500e-06,.1285500e-06,.1457200e-06,.1630700e-06,&
10728  & .7601500e-07,.8806700e-07,.1012000e-06,.1151000e-06,.1293500e-06,&
10729  & .5881300e-07,.6849300e-07,.7910200e-07,.9027300e-07,.1020000e-06,&
10730  & .4544000e-07,.5314400e-07,.6159700e-07,.7063900e-07,.8025500e-07,&
10731  & .3501500e-07,.4113600e-07,.4786900e-07,.5521600e-07,.6299400e-07,&
10732  & .2705600e-07,.3191000e-07,.3726700e-07,.4321000e-07,.4952200e-07,&
10733  & .2090800e-07,.2475600e-07,.2904400e-07,.3379100e-07,.3890400e-07,&
10734  & .1613100e-07,.1918100e-07,.2258900e-07,.2637800e-07,.3050400e-07,&
10735  & .1241800e-07,.1483500e-07,.1753700e-07,.2054700e-07,.2386000e-07,&
10736  & .9599400e-08,.1151400e-07,.1366200e-07,.1606500e-07,.1871700e-07,&
10737  & .7423900e-08,.8945300e-08,.1065600e-07,.1256900e-07,.1469300e-07,&
10738  & .5730000e-08,.6944100e-08,.8303000e-08,.9819300e-08,.1152300e-07,&
10739  & .4415200e-08,.5381100e-08,.6458100e-08,.7661000e-08,.9020100e-08,&
10740  & .3407200e-08,.4170800e-08,.5029700e-08,.5987600e-08,.7068400e-08,&
10741  & .2730200e-08,.3349200e-08,.4048100e-08,.4826600e-08,.5704600e-08/
10742 
10743  data absb( 1:120, 4) / &
10744  & .1201500e-03,.1392000e-03,.1593700e-03,.1800100e-03,.1992900e-03,&
10745  & .1025600e-03,.1188300e-03,.1358700e-03,.1525900e-03,.1681200e-03,&
10746  & .8720300e-04,.1009900e-03,.1149800e-03,.1284700e-03,.1411400e-03,&
10747  & .7385900e-04,.8530400e-04,.9681600e-04,.1077400e-03,.1180500e-03,&
10748  & .6233400e-04,.7178600e-04,.8122500e-04,.9009100e-04,.9845400e-04,&
10749  & .5258100e-04,.6034400e-04,.6801800e-04,.7523700e-04,.8190300e-04,&
10750  & .4419700e-04,.5057300e-04,.5684000e-04,.6265600e-04,.6796800e-04,&
10751  & .3715100e-04,.4238400e-04,.4749400e-04,.5219300e-04,.5646700e-04,&
10752  & .3119300e-04,.3548000e-04,.3960000e-04,.4342700e-04,.4687000e-04,&
10753  & .2637400e-04,.2992500e-04,.3322400e-04,.3626100e-04,.3904000e-04,&
10754  & .2231500e-04,.2519800e-04,.2783300e-04,.3029000e-04,.3250900e-04,&
10755  & .1888300e-04,.2118400e-04,.2329100e-04,.2526800e-04,.2704600e-04,&
10756  & .1597700e-04,.1780800e-04,.1952900e-04,.2110600e-04,.2253300e-04,&
10757  & .1352400e-04,.1499600e-04,.1639100e-04,.1765800e-04,.1879600e-04,&
10758  & .1143300e-04,.1263100e-04,.1375700e-04,.1476900e-04,.1567700e-04,&
10759  & .9655800e-05,.1064000e-04,.1153700e-04,.1235700e-04,.1308600e-04,&
10760  & .8163200e-05,.8956000e-05,.9680100e-05,.1033900e-04,.1091900e-04,&
10761  & .6897200e-05,.7532100e-05,.8118900e-05,.8641800e-05,.9112000e-05,&
10762  & .5825500e-05,.6342700e-05,.6811500e-05,.7229100e-05,.7608800e-05,&
10763  & .4923500e-05,.5340400e-05,.5712800e-05,.6045000e-05,.6354000e-05,&
10764  & .4160200e-05,.4490400e-05,.4787300e-05,.5056700e-05,.5308500e-05,&
10765  & .3499300e-05,.3764000e-05,.4003300e-05,.4221700e-05,.4432100e-05,&
10766  & .2916800e-05,.3133100e-05,.3326400e-05,.3507200e-05,.3680800e-05,&
10767  & .2410500e-05,.2586300e-05,.2745900e-05,.2896900e-05,.3043300e-05/
10768 
10769  data absb(121:235, 4) / &
10770  & .1969900e-05,.2116700e-05,.2249900e-05,.2375100e-05,.2498400e-05,&
10771  & .1608500e-05,.1731600e-05,.1843100e-05,.1948200e-05,.2052000e-05,&
10772  & .1314000e-05,.1417200e-05,.1510200e-05,.1598900e-05,.1686200e-05,&
10773  & .1064300e-05,.1151800e-05,.1230000e-05,.1305200e-05,.1378900e-05,&
10774  & .8610300e-06,.9349400e-06,.1001300e-05,.1064800e-05,.1127500e-05,&
10775  & .6956600e-06,.7580300e-06,.8146800e-06,.8681700e-06,.9211300e-06,&
10776  & .5585600e-06,.6113500e-06,.6599200e-06,.7050100e-06,.7491500e-06,&
10777  & .4464400e-06,.4911300e-06,.5328400e-06,.5706600e-06,.6077600e-06,&
10778  & .3563800e-06,.3938600e-06,.4294700e-06,.4619200e-06,.4929500e-06,&
10779  & .2831700e-06,.3149000e-06,.3450300e-06,.3727600e-06,.3989400e-06,&
10780  & .2234100e-06,.2500200e-06,.2756000e-06,.2995700e-06,.3214400e-06,&
10781  & .1755400e-06,.1979800e-06,.2196200e-06,.2401000e-06,.2587600e-06,&
10782  & .1373700e-06,.1564200e-06,.1745100e-06,.1919200e-06,.2079500e-06,&
10783  & .1075400e-06,.1235700e-06,.1387900e-06,.1534300e-06,.1671200e-06,&
10784  & .8412100e-07,.9744100e-07,.1101800e-06,.1225600e-06,.1341900e-06,&
10785  & .6560400e-07,.7656400e-07,.8735600e-07,.9770300e-07,.1074500e-06,&
10786  & .5094300e-07,.5998800e-07,.6904800e-07,.7762900e-07,.8593300e-07,&
10787  & .3967900e-07,.4712100e-07,.5461400e-07,.6176600e-07,.6878300e-07,&
10788  & .3093400e-07,.3698000e-07,.4311300e-07,.4914200e-07,.5500500e-07,&
10789  & .2405000e-07,.2892300e-07,.3399300e-07,.3904700e-07,.4392800e-07,&
10790  & .1866000e-07,.2255700e-07,.2674800e-07,.3095100e-07,.3500000e-07,&
10791  & .1448800e-07,.1762500e-07,.2104300e-07,.2451100e-07,.2788400e-07,&
10792  & .1167400e-07,.1423400e-07,.1704400e-07,.1990200e-07,.2270200e-07/
10793 
10794  data absb( 1:120, 5) / &
10795  & .5907500e-03,.6176547e-03,.6462139e-03,.6766147e-03,.7105858e-03,&
10796  & .5021733e-03,.5254919e-03,.5505928e-03,.5781750e-03,.6090718e-03,&
10797  & .4251753e-03,.4458740e-03,.4682385e-03,.4935183e-03,.5206768e-03,&
10798  & .3591813e-03,.3774559e-03,.3977574e-03,.4201300e-03,.4431469e-03,&
10799  & .3027495e-03,.3191476e-03,.3371282e-03,.3563107e-03,.3755935e-03,&
10800  & .2550227e-03,.2694860e-03,.2850784e-03,.3010196e-03,.3174204e-03,&
10801  & .2145715e-03,.2270374e-03,.2400302e-03,.2534708e-03,.2670980e-03,&
10802  & .1804017e-03,.1910788e-03,.2019239e-03,.2130155e-03,.2241997e-03,&
10803  & .1515116e-03,.1603628e-03,.1693253e-03,.1785842e-03,.1878199e-03,&
10804  & .1274750e-03,.1347358e-03,.1422851e-03,.1500079e-03,.1574823e-03,&
10805  & .1070376e-03,.1130951e-03,.1194785e-03,.1258411e-03,.1318753e-03,&
10806  & .8978466e-04,.9494123e-04,.1002546e-03,.1054132e-03,.1102246e-03,&
10807  & .7533356e-04,.7966324e-04,.8405144e-04,.8817180e-04,.9207527e-04,&
10808  & .6331538e-04,.6693246e-04,.7046596e-04,.7375138e-04,.7692004e-04,&
10809  & .5321123e-04,.5620271e-04,.5902917e-04,.6164644e-04,.6430450e-04,&
10810  & .4466516e-04,.4710753e-04,.4935907e-04,.5155918e-04,.5379983e-04,&
10811  & .3751313e-04,.3945958e-04,.4130911e-04,.4316167e-04,.4502731e-04,&
10812  & .3148456e-04,.3306301e-04,.3457534e-04,.3614273e-04,.3767792e-04,&
10813  & .2643306e-04,.2770164e-04,.2898435e-04,.3028820e-04,.3158349e-04,&
10814  & .2217901e-04,.2324093e-04,.2432947e-04,.2540558e-04,.2651303e-04,&
10815  & .1860493e-04,.1950781e-04,.2040165e-04,.2133522e-04,.2227687e-04,&
10816  & .1560186e-04,.1635369e-04,.1712128e-04,.1791364e-04,.1869262e-04,&
10817  & .1303087e-04,.1366605e-04,.1431103e-04,.1497004e-04,.1563111e-04,&
10818  & .1082591e-04,.1136497e-04,.1190838e-04,.1246591e-04,.1301791e-04/
10819 
10820  data absb(121:235, 5) / &
10821  & .8949161e-05,.9402237e-05,.9857226e-05,.1033892e-04,.1080399e-04,&
10822  & .7398494e-05,.7779511e-05,.8166568e-05,.8566423e-05,.8964480e-05,&
10823  & .6113971e-05,.6437029e-05,.6769198e-05,.7108135e-05,.7445280e-05,&
10824  & .5026369e-05,.5297079e-05,.5578033e-05,.5865750e-05,.6156368e-05,&
10825  & .4126175e-05,.4355500e-05,.4592219e-05,.4836238e-05,.5085641e-05,&
10826  & .3390696e-05,.3580871e-05,.3780710e-05,.3987163e-05,.4198069e-05,&
10827  & .2776281e-05,.2936183e-05,.3106181e-05,.3277157e-05,.3458786e-05,&
10828  & .2266975e-05,.2401731e-05,.2543341e-05,.2688159e-05,.2843911e-05,&
10829  & .1851175e-05,.1964040e-05,.2082434e-05,.2205585e-05,.2334866e-05,&
10830  & .1508390e-05,.1603576e-05,.1702375e-05,.1806116e-05,.1913393e-05,&
10831  & .1224515e-05,.1304492e-05,.1387169e-05,.1474342e-05,.1565346e-05,&
10832  & .9927416e-06,.1060100e-05,.1128545e-05,.1203015e-05,.1278997e-05,&
10833  & .8040118e-06,.8600684e-06,.9178680e-06,.9793761e-06,.1043884e-05,&
10834  & .6511957e-06,.6983405e-06,.7470839e-06,.7982212e-06,.8522692e-06,&
10835  & .5274519e-06,.5672397e-06,.6079811e-06,.6509056e-06,.6959894e-06,&
10836  & .4266819e-06,.4601105e-06,.4940630e-06,.5297410e-06,.5677419e-06,&
10837  & .3444399e-06,.3727641e-06,.4009432e-06,.4307494e-06,.4625489e-06,&
10838  & .2784617e-06,.3023078e-06,.3258711e-06,.3507791e-06,.3773299e-06,&
10839  & .2249763e-06,.2450479e-06,.2650681e-06,.2856452e-06,.3078613e-06,&
10840  & .1813509e-06,.1984089e-06,.2151828e-06,.2323405e-06,.2508149e-06,&
10841  & .1459558e-06,.1603926e-06,.1745826e-06,.1886604e-06,.2039625e-06,&
10842  & .1175460e-06,.1296812e-06,.1415814e-06,.1532665e-06,.1658461e-06,&
10843  & .9640155e-07,.1066253e-06,.1166034e-06,.1263881e-06,.1369759e-06/
10844 
10845  data absb( 1:120, 6) / &
10846  & .3651810e-02,.3746595e-02,.3858789e-02,.3979164e-02,.4109370e-02,&
10847  & .3141811e-02,.3230210e-02,.3325595e-02,.3429577e-02,.3547976e-02,&
10848  & .2701370e-02,.2775610e-02,.2858077e-02,.2953528e-02,.3061412e-02,&
10849  & .2315393e-02,.2378831e-02,.2454205e-02,.2541014e-02,.2642100e-02,&
10850  & .1977791e-02,.2036050e-02,.2104700e-02,.2186085e-02,.2283190e-02,&
10851  & .1685324e-02,.1740054e-02,.1805015e-02,.1884094e-02,.1978199e-02,&
10852  & .1437021e-02,.1487251e-02,.1550029e-02,.1626786e-02,.1715576e-02,&
10853  & .1225237e-02,.1273610e-02,.1334615e-02,.1407663e-02,.1492701e-02,&
10854  & .1044735e-02,.1092958e-02,.1152692e-02,.1223437e-02,.1303990e-02,&
10855  & .8942887e-03,.9428463e-03,.1001793e-02,.1070477e-02,.1149176e-02,&
10856  & .7694049e-03,.8171499e-03,.8745104e-03,.9407106e-03,.1016851e-02,&
10857  & .6645252e-03,.7113905e-03,.7673264e-03,.8320640e-03,.9036498e-03,&
10858  & .5770389e-03,.6234065e-03,.6779963e-03,.7399304e-03,.8071342e-03,&
10859  & .5049575e-03,.5502834e-03,.6030293e-03,.6613349e-03,.7246181e-03,&
10860  & .4447202e-03,.4886958e-03,.5389704e-03,.5940660e-03,.6530676e-03,&
10861  & .3944259e-03,.4369189e-03,.4843540e-03,.5362101e-03,.5917015e-03,&
10862  & .3520821e-03,.3928555e-03,.4377636e-03,.4866798e-03,.5390983e-03,&
10863  & .3162045e-03,.3551094e-03,.3978195e-03,.4440662e-03,.4940346e-03,&
10864  & .2859841e-03,.3231854e-03,.3639308e-03,.4079919e-03,.4558740e-03,&
10865  & .2600638e-03,.2959725e-03,.3350934e-03,.3776361e-03,.4237286e-03,&
10866  & .2380660e-03,.2725920e-03,.3104257e-03,.3517378e-03,.3964521e-03,&
10867  & .2181478e-03,.2514965e-03,.2881695e-03,.3284820e-03,.3717262e-03,&
10868  & .1983067e-03,.2303075e-03,.2658491e-03,.3047978e-03,.3465710e-03,&
10869  & .1780704e-03,.2085530e-03,.2427653e-03,.2802542e-03,.3204639e-03/
10870 
10871  data absb(121:235, 6) / &
10872  & .1565144e-03,.1849367e-03,.2172813e-03,.2529291e-03,.2913913e-03,&
10873  & .1374906e-03,.1639820e-03,.1944800e-03,.2286994e-03,.2656361e-03,&
10874  & .1209235e-03,.1455643e-03,.1744351e-03,.2072121e-03,.2429831e-03,&
10875  & .1042521e-03,.1269284e-03,.1536021e-03,.1846991e-03,.2190618e-03,&
10876  & .8956332e-04,.1101797e-03,.1349815e-03,.1642251e-03,.1972149e-03,&
10877  & .7682060e-04,.9563184e-04,.1183845e-03,.1457632e-03,.1774806e-03,&
10878  & .6483539e-04,.8163448e-04,.1023214e-03,.1276117e-03,.1579098e-03,&
10879  & .5421096e-04,.6906822e-04,.8771080e-04,.1108467e-03,.1392070e-03,&
10880  & .4516018e-04,.5817822e-04,.7490186e-04,.9595379e-04,.1222179e-03,&
10881  & .3720506e-04,.4849290e-04,.6322139e-04,.8217544e-04,.1061847e-03,&
10882  & .3014760e-04,.3978783e-04,.5256468e-04,.6924860e-04,.9085729e-04,&
10883  & .2427491e-04,.3242037e-04,.4333198e-04,.5801079e-04,.7732452e-04,&
10884  & .1942608e-04,.2622750e-04,.3554119e-04,.4824771e-04,.6532610e-04,&
10885  & .1560503e-04,.2127119e-04,.2922144e-04,.4016492e-04,.5526442e-04,&
10886  & .1246448e-04,.1717739e-04,.2388696e-04,.3336674e-04,.4667005e-04,&
10887  & .9928517e-05,.1381768e-04,.1943442e-04,.2753949e-04,.3915061e-04,&
10888  & .7845842e-05,.1104661e-04,.1568945e-04,.2259744e-04,.3259294e-04,&
10889  & .6241865e-05,.8874763e-05,.1274389e-04,.1859414e-04,.2728085e-04,&
10890  & .4962728e-05,.7110134e-05,.1034291e-04,.1527272e-04,.2280240e-04,&
10891  & .3921680e-05,.5664841e-05,.8348994e-05,.1247617e-04,.1894519e-04,&
10892  & .3092625e-05,.4493204e-05,.6711569e-05,.1013101e-04,.1563245e-04,&
10893  & .2446444e-05,.3564130e-05,.5373137e-05,.8228205e-05,.1289787e-04,&
10894  & .2061392e-05,.3034672e-05,.4641777e-05,.7229029e-05,.1154580e-04/
10895 
10896  data absb( 1:120, 7) / &
10897  & .7974511e-01,.7917223e-01,.7880571e-01,.7865688e-01,.7869742e-01,&
10898  & .7216761e-01,.7180196e-01,.7168710e-01,.7178858e-01,.7210934e-01,&
10899  & .6471287e-01,.6460046e-01,.6473991e-01,.6511587e-01,.6570290e-01,&
10900  & .5758865e-01,.5773359e-01,.5813143e-01,.5877105e-01,.5965013e-01,&
10901  & .5098748e-01,.5136835e-01,.5201772e-01,.5291936e-01,.5405095e-01,&
10902  & .4498346e-01,.4559189e-01,.4647453e-01,.4761481e-01,.4899661e-01,&
10903  & .3962956e-01,.4044591e-01,.4154636e-01,.4290895e-01,.4451971e-01,&
10904  & .3494623e-01,.3595631e-01,.3725553e-01,.3882539e-01,.4065371e-01,&
10905  & .3090317e-01,.3209598e-01,.3356918e-01,.3532088e-01,.3734086e-01,&
10906  & .2753735e-01,.2889680e-01,.3055328e-01,.3249469e-01,.3469930e-01,&
10907  & .2472194e-01,.2624583e-01,.2807624e-01,.3018719e-01,.3256894e-01,&
10908  & .2241246e-01,.2409593e-01,.2607770e-01,.2835897e-01,.3091024e-01,&
10909  & .2056186e-01,.2238553e-01,.2452455e-01,.2695966e-01,.2967202e-01,&
10910  & .1912250e-01,.2109409e-01,.2338231e-01,.2597361e-01,.2884315e-01,&
10911  & .1803069e-01,.2014547e-01,.2257560e-01,.2531768e-01,.2833188e-01,&
10912  & .1723757e-01,.1948465e-01,.2205955e-01,.2494239e-01,.2808185e-01,&
10913  & .1671584e-01,.1909967e-01,.2181124e-01,.2481820e-01,.2807426e-01,&
10914  & .1642188e-01,.1893762e-01,.2177522e-01,.2489493e-01,.2825602e-01,&
10915  & .1633447e-01,.1897666e-01,.2192891e-01,.2515422e-01,.2861454e-01,&
10916  & .1642117e-01,.1918126e-01,.2224051e-01,.2556670e-01,.2911713e-01,&
10917  & .1665212e-01,.1952573e-01,.2268617e-01,.2610433e-01,.2973637e-01,&
10918  & .1690445e-01,.1987409e-01,.2312114e-01,.2661658e-01,.3031656e-01,&
10919  & .1697413e-01,.2000260e-01,.2330589e-01,.2685241e-01,.3059806e-01,&
10920  & .1679058e-01,.1984390e-01,.2316985e-01,.2673928e-01,.3050650e-01/
10921 
10922  data absb(121:235, 7) / &
10923  & .1621314e-01,.1924283e-01,.2254989e-01,.2610500e-01,.2986511e-01,&
10924  & .1565005e-01,.1865129e-01,.2193291e-01,.2546985e-01,.2921685e-01,&
10925  & .1512354e-01,.1809306e-01,.2134739e-01,.2486405e-01,.2859408e-01,&
10926  & .1434388e-01,.1724600e-01,.2044363e-01,.2391201e-01,.2760136e-01,&
10927  & .1356639e-01,.1639374e-01,.1952578e-01,.2293718e-01,.2658026e-01,&
10928  & .1282426e-01,.1557142e-01,.1863464e-01,.2198740e-01,.2557922e-01,&
10929  & .1197741e-01,.1462053e-01,.1760067e-01,.2086625e-01,.2439863e-01,&
10930  & .1111477e-01,.1364234e-01,.1651789e-01,.1969313e-01,.2315038e-01,&
10931  & .1030179e-01,.1271031e-01,.1547643e-01,.1856508e-01,.2193139e-01,&
10932  & .9491085e-02,.1177021e-01,.1441481e-01,.1739504e-01,.2066837e-01,&
10933  & .8639429e-02,.1078206e-01,.1328441e-01,.1613831e-01,.1930011e-01,&
10934  & .7839892e-02,.9857468e-02,.1221482e-01,.1493348e-01,.1797877e-01,&
10935  & .7092072e-02,.8991607e-02,.1120568e-01,.1378380e-01,.1670474e-01,&
10936  & .6432463e-02,.8224187e-02,.1031515e-01,.1275809e-01,.1555586e-01,&
10937  & .5832717e-02,.7522561e-02,.9503860e-02,.1181296e-01,.1448506e-01,&
10938  & .5280145e-02,.6862909e-02,.8736900e-02,.1091927e-01,.1346213e-01,&
10939  & .4760950e-02,.6239258e-02,.8009269e-02,.1007450e-01,.1248495e-01,&
10940  & .4319927e-02,.5706660e-02,.7378235e-02,.9343778e-02,.1163217e-01,&
10941  & .3927425e-02,.5223469e-02,.6805075e-02,.8675949e-02,.1085346e-01,&
10942  & .3566312e-02,.4771326e-02,.6260588e-02,.8040438e-02,.1011504e-01,&
10943  & .3235298e-02,.4349610e-02,.5751274e-02,.7436457e-02,.9414970e-02,&
10944  & .2948268e-02,.3977194e-02,.5291955e-02,.6891886e-02,.8780537e-02,&
10945  & .2838304e-02,.3833360e-02,.5113920e-02,.6679829e-02,.8533277e-02/
10946 
10947  data absb( 1:120, 8) / &
10948  & .1589380e+01,.1590617e+01,.1588657e+01,.1583627e+01,.1576103e+01,&
10949  & .1709558e+01,.1708607e+01,.1704305e+01,.1697075e+01,.1686632e+01,&
10950  & .1824948e+01,.1821482e+01,.1814617e+01,.1804445e+01,.1791378e+01,&
10951  & .1933407e+01,.1927272e+01,.1917585e+01,.1904625e+01,.1888292e+01,&
10952  & .2032788e+01,.2024036e+01,.2011680e+01,.1995779e+01,.1976689e+01,&
10953  & .2122514e+01,.2111187e+01,.2096103e+01,.2077495e+01,.2055661e+01,&
10954  & .2201894e+01,.2188149e+01,.2170688e+01,.2149637e+01,.2125223e+01,&
10955  & .2271095e+01,.2255113e+01,.2235383e+01,.2211893e+01,.2185029e+01,&
10956  & .2330637e+01,.2312532e+01,.2290760e+01,.2265233e+01,.2236248e+01,&
10957  & .2380235e+01,.2360023e+01,.2336137e+01,.2308453e+01,.2277303e+01,&
10958  & .2421520e+01,.2399497e+01,.2373596e+01,.2343962e+01,.2310850e+01,&
10959  & .2455548e+01,.2431616e+01,.2403985e+01,.2372410e+01,.2337341e+01,&
10960  & .2483000e+01,.2457533e+01,.2427896e+01,.2394579e+01,.2357794e+01,&
10961  & .2504497e+01,.2477271e+01,.2446062e+01,.2410900e+01,.2372279e+01,&
10962  & .2521140e+01,.2492125e+01,.2459283e+01,.2422484e+01,.2382142e+01,&
10963  & .2533448e+01,.2502926e+01,.2468416e+01,.2429941e+01,.2388304e+01,&
10964  & .2541996e+01,.2509801e+01,.2473737e+01,.2433957e+01,.2391015e+01,&
10965  & .2547277e+01,.2513671e+01,.2476134e+01,.2434937e+01,.2390872e+01,&
10966  & .2549698e+01,.2514609e+01,.2475824e+01,.2433436e+01,.2388147e+01,&
10967  & .2549776e+01,.2513277e+01,.2473300e+01,.2429667e+01,.2383220e+01,&
10968  & .2547817e+01,.2510019e+01,.2468803e+01,.2424113e+01,.2376687e+01,&
10969  & .2545438e+01,.2506563e+01,.2464177e+01,.2418709e+01,.2370529e+01,&
10970  & .2545437e+01,.2505887e+01,.2462992e+01,.2416876e+01,.2368167e+01,&
10971  & .2548620e+01,.2508763e+01,.2465654e+01,.2419269e+01,.2370306e+01/
10972 
10973  data absb(121:235, 8) / &
10974  & .2556882e+01,.2517384e+01,.2474533e+01,.2428347e+01,.2379571e+01,&
10975  & .2564751e+01,.2525708e+01,.2483281e+01,.2437321e+01,.2388806e+01,&
10976  & .2572195e+01,.2533600e+01,.2491357e+01,.2445820e+01,.2397529e+01,&
10977  & .2582733e+01,.2544997e+01,.2503670e+01,.2458754e+01,.2411027e+01,&
10978  & .2593208e+01,.2556450e+01,.2515941e+01,.2471723e+01,.2424698e+01,&
10979  & .2603291e+01,.2567534e+01,.2527827e+01,.2484500e+01,.2438025e+01,&
10980  & .2614485e+01,.2580122e+01,.2541480e+01,.2499317e+01,.2453682e+01,&
10981  & .2626088e+01,.2593101e+01,.2555788e+01,.2514770e+01,.2470119e+01,&
10982  & .2636975e+01,.2605452e+01,.2569448e+01,.2529581e+01,.2486026e+01,&
10983  & .2647757e+01,.2617959e+01,.2583514e+01,.2544917e+01,.2502605e+01,&
10984  & .2659180e+01,.2630964e+01,.2598269e+01,.2561345e+01,.2520508e+01,&
10985  & .2669920e+01,.2643199e+01,.2612358e+01,.2577040e+01,.2537623e+01,&
10986  & .2680036e+01,.2654848e+01,.2625604e+01,.2592088e+01,.2554283e+01,&
10987  & .2688888e+01,.2664859e+01,.2637463e+01,.2605558e+01,.2569275e+01,&
10988  & .2696948e+01,.2674379e+01,.2648210e+01,.2617842e+01,.2583127e+01,&
10989  & .2704362e+01,.2683131e+01,.2658263e+01,.2629633e+01,.2596479e+01,&
10990  & .2711382e+01,.2691630e+01,.2667973e+01,.2640779e+01,.2609393e+01,&
10991  & .2717487e+01,.2698684e+01,.2676350e+01,.2650456e+01,.2620490e+01,&
10992  & .2722676e+01,.2705192e+01,.2684099e+01,.2659244e+01,.2630640e+01,&
10993  & .2727533e+01,.2711288e+01,.2691406e+01,.2667688e+01,.2640330e+01,&
10994  & .2731955e+01,.2717083e+01,.2698177e+01,.2675744e+01,.2649670e+01,&
10995  & .2735798e+01,.2722099e+01,.2704431e+01,.2682979e+01,.2657966e+01,&
10996  & .2737188e+01,.2723903e+01,.2706774e+01,.2685895e+01,.2661240e+01/
10997 
10998 ! ---
10999 
11000  data forref(1:3,1: 8) / &
11001  & .1062750e-05,.1041850e-05,.4201540e-05,.1543430e-05,.6531930e-05,&
11002  & .1745960e-04,.3489170e-05,.1084200e-04,.5408490e-04,.1458220e-04,&
11003  & .1560270e-04,.8812630e-04,.3256123e-04,.1001071e-03,.8710486e-04,&
11004  & .1958190e-03,.1469074e-03,.7616317e-04,.2991387e-03,.1425125e-03,&
11005  & .6636773e-04,.4406950e-03,.1586718e-03,.3817266e-04/
11006 
11007 
11008  data selfref(1:10,1: 8) / &
11009  & .3317280e-03,.2874800e-03,.2491350e-03,.2159040e-03,.1871060e-03,&
11010  & .1621490e-03,.1405200e-03,.1217770e-03,.1055340e-03,.9145730e-04,&
11011  & .8826280e-03,.6989140e-03,.5534390e-03,.4382440e-03,.3470260e-03,&
11012  & .2747950e-03,.2175980e-03,.1723060e-03,.1364420e-03,.1080420e-03,&
11013  & .1154610e-02,.9372030e-03,.7607300e-03,.6174860e-03,.5012150e-03,&
11014  & .4068370e-03,.3302310e-03,.2680490e-03,.2175760e-03,.1766070e-03,&
11015  & .1034500e-02,.9602680e-03,.8913600e-03,.8273970e-03,.7680240e-03,&
11016  & .7129110e-03,.6617540e-03,.6142670e-03,.5701880e-03,.5292720e-03,&
11017  & .3227190e-02,.2709139e-02,.2274479e-02,.1909745e-02,.1603665e-02,&
11018  & .1346766e-02,.1131137e-02,.9501252e-03,.7981584e-03,.6705633e-03,&
11019  & .3142835e-02,.3104435e-02,.3068990e-02,.3036443e-02,.3006728e-02,&
11020  & .2979763e-02,.2955519e-02,.2933917e-02,.2914907e-02,.2898444e-02,&
11021  & .2729233e-02,.2892026e-02,.3065501e-02,.3250452e-02,.3447726e-02,&
11022  & .3658264e-02,.3883086e-02,.4123283e-02,.4380054e-02,.4654719e-02,&
11023  & .2594476e-02,.2804964e-02,.3065165e-02,.3386332e-02,.3782724e-02,&
11024  & .4272483e-02,.4878732e-02,.5631073e-02,.6567477e-02,.7736768e-02/
11025 
11026 !........................................!
11027  end module module_radsw_kgb19 !
11028 !========================================!
11029 
11030 
11033 !========================================!
11035 !........................................!
11036 !
11037 ! ********* the original program descriptions ********* !
11038 ! !
11039 ! originally by j.delamere, atmospheric & environmental research. !
11040 ! revision: 2.4 !
11041 ! band 20: 5150-6150 cm-1 (low - h2o; high - h2o) !
11042 ! reformatted for f90 by jjmorcrette, ecmwf !
11043 ! !
11044 ! this table has been re-generated for reduced number of g-point !
11045 ! by y.t.hou, ncep !
11046 ! !
11047 ! ********* ********* end description ********* ********* !
11048 !
11049  use physparam, only : kind_phys
11050  use module_radsw_parameters, only : ng20
11051 
11052 !
11053  implicit none
11054 !
11055  private
11056 !
11058  integer, public :: msa20
11060  integer, public :: msb20
11062  integer, public :: msf20
11064  integer, public :: mfr20
11065  parameter(msa20=65, msb20=235, msf20=10, mfr20=4)
11066 
11067  real (kind=kind_phys), public :: forref(mfr20,ng20)
11068 
11070  real (kind=kind_phys), public :: absch4(ng20)
11071 
11087  real (kind=kind_phys), public :: absa(msa20,ng20)
11088 
11100  real (kind=kind_phys), public :: absb(msb20,ng20)
11101 
11107  real (kind=kind_phys), public :: selfref(msf20,ng20)
11108 
11110  real (kind=kind_phys), parameter, public :: rayl = 4.12e-09
11111 
11112  data absa( 1: 65, 1) / &
11113  & .7838300e-06,.8622000e-06,.9535900e-06,.1059000e-05,.1178200e-05,&
11114  & .6504000e-06,.7251000e-06,.8131800e-06,.9005900e-06,.9978600e-06,&
11115  & .5807200e-06,.6588800e-06,.7426500e-06,.8185400e-06,.9064500e-06,&
11116  & .5360100e-06,.6076500e-06,.6808800e-06,.7574100e-06,.8380100e-06,&
11117  & .5014200e-06,.5695100e-06,.6402800e-06,.7194400e-06,.7981300e-06,&
11118  & .4716400e-06,.5400800e-06,.6104000e-06,.6800600e-06,.7503400e-06,&
11119  & .4933700e-06,.5617800e-06,.6221500e-06,.6912700e-06,.7606000e-06,&
11120  & .6158100e-06,.7011700e-06,.7894200e-06,.8714500e-06,.9464700e-06,&
11121  & .1415400e-05,.1575400e-05,.1726100e-05,.1873900e-05,.1977400e-05,&
11122  & .3418600e-05,.3701200e-05,.3960200e-05,.4223500e-05,.4425600e-05,&
11123  & .3857400e-05,.4208000e-05,.4470100e-05,.4745400e-05,.5000200e-05,&
11124  & .3579400e-05,.3868600e-05,.4144300e-05,.4393900e-05,.4650000e-05,&
11125  & .2958600e-05,.3193800e-05,.3416700e-05,.3625300e-05,.3825000e-05/
11126 
11127  data absa( 1: 65, 2) / &
11128  & .5709800e-05,.6463000e-05,.7311700e-05,.8243600e-05,.9194700e-05,&
11129  & .4638400e-05,.5312500e-05,.6030100e-05,.6802800e-05,.7582400e-05,&
11130  & .4065700e-05,.4648600e-05,.5245900e-05,.5895500e-05,.6554600e-05,&
11131  & .3889500e-05,.4425800e-05,.4975900e-05,.5566300e-05,.6170200e-05,&
11132  & .3897100e-05,.4435900e-05,.4993300e-05,.5552300e-05,.6123400e-05,&
11133  & .3953200e-05,.4464400e-05,.4973400e-05,.5487500e-05,.6010200e-05,&
11134  & .4106800e-05,.4583200e-05,.5069800e-05,.5552100e-05,.6017500e-05,&
11135  & .4792200e-05,.5215600e-05,.5681700e-05,.6157600e-05,.6631300e-05,&
11136  & .8319900e-05,.8831700e-05,.9368800e-05,.9975400e-05,.1062000e-04,&
11137  & .1683600e-04,.1852600e-04,.1988700e-04,.2116800e-04,.2210400e-04,&
11138  & .1888200e-04,.2100500e-04,.2289600e-04,.2477700e-04,.2611500e-04,&
11139  & .1774400e-04,.1978000e-04,.2160000e-04,.2352300e-04,.2512800e-04,&
11140  & .1473600e-04,.1635600e-04,.1795500e-04,.1953300e-04,.2086100e-04/
11141 
11142  data absa( 1: 65, 3) / &
11143  & .4177600e-04,.4815000e-04,.5509700e-04,.6266100e-04,.7092000e-04,&
11144  & .3390900e-04,.3917600e-04,.4462200e-04,.5075400e-04,.5733600e-04,&
11145  & .2743800e-04,.3147300e-04,.3612200e-04,.4113400e-04,.4645600e-04,&
11146  & .2322200e-04,.2653500e-04,.3014100e-04,.3409900e-04,.3841600e-04,&
11147  & .2111400e-04,.2388800e-04,.2688300e-04,.3034000e-04,.3378500e-04,&
11148  & .2075000e-04,.2292600e-04,.2553600e-04,.2849200e-04,.3167600e-04,&
11149  & .2158400e-04,.2411200e-04,.2687200e-04,.2979400e-04,.3294000e-04,&
11150  & .2419400e-04,.2698100e-04,.3013700e-04,.3354600e-04,.3718200e-04,&
11151  & .3746100e-04,.4215800e-04,.4671800e-04,.5104800e-04,.5515400e-04,&
11152  & .7239100e-04,.7716400e-04,.8401600e-04,.8965800e-04,.9551100e-04,&
11153  & .9173600e-04,.9910700e-04,.1046300e-03,.1095200e-03,.1154900e-03,&
11154  & .9120000e-04,.9881200e-04,.1043200e-03,.1089300e-03,.1134900e-03,&
11155  & .7621700e-04,.8270200e-04,.8750000e-04,.9134900e-04,.9534900e-04/
11156 
11157  data absa( 1: 65, 4) / &
11158  & .7170500e-03,.8274300e-03,.9470000e-03,.1067000e-02,.1190200e-02,&
11159  & .5790900e-03,.6709600e-03,.7672400e-03,.8658200e-03,.9716700e-03,&
11160  & .4477100e-03,.5199700e-03,.5986100e-03,.6796700e-03,.7667600e-03,&
11161  & .3408500e-03,.3983300e-03,.4622600e-03,.5288900e-03,.6000800e-03,&
11162  & .2667800e-03,.3123400e-03,.3634100e-03,.4166300e-03,.4741800e-03,&
11163  & .2090300e-03,.2471800e-03,.2892200e-03,.3335300e-03,.3817600e-03,&
11164  & .1717300e-03,.2033000e-03,.2371100e-03,.2740100e-03,.3144500e-03,&
11165  & .1672200e-03,.1939600e-03,.2230700e-03,.2534700e-03,.2856100e-03,&
11166  & .2504300e-03,.2882400e-03,.3254700e-03,.3619300e-03,.3980600e-03,&
11167  & .4332300e-03,.4866700e-03,.5346200e-03,.5787900e-03,.6204000e-03,&
11168  & .4771900e-03,.5227100e-03,.5640200e-03,.6038800e-03,.6352000e-03,&
11169  & .4506100e-03,.4901400e-03,.5239100e-03,.5527600e-03,.5776000e-03,&
11170  & .3766400e-03,.4095200e-03,.4369000e-03,.4605500e-03,.4801800e-03/
11171 
11172  data absa( 1: 65, 5) / &
11173  & .6646600e-02,.6868600e-02,.7089700e-02,.7301900e-02,.7491400e-02,&
11174  & .5402300e-02,.5601000e-02,.5800800e-02,.5998700e-02,.6168500e-02,&
11175  & .4321800e-02,.4512700e-02,.4684800e-02,.4864700e-02,.5026700e-02,&
11176  & .3463900e-02,.3647300e-02,.3795100e-02,.3957000e-02,.4104900e-02,&
11177  & .2774500e-02,.2937000e-02,.3075400e-02,.3214800e-02,.3349200e-02,&
11178  & .2202000e-02,.2352000e-02,.2483600e-02,.2596500e-02,.2711900e-02,&
11179  & .1762400e-02,.1896300e-02,.2016100e-02,.2115300e-02,.2211600e-02,&
11180  & .1416900e-02,.1533200e-02,.1635000e-02,.1723100e-02,.1812100e-02,&
11181  & .1303000e-02,.1390400e-02,.1469000e-02,.1550000e-02,.1627500e-02,&
11182  & .1715500e-02,.1816900e-02,.1894300e-02,.1962000e-02,.2021500e-02,&
11183  & .1715600e-02,.1780800e-02,.1841900e-02,.1892500e-02,.1931300e-02,&
11184  & .1526900e-02,.1581100e-02,.1628300e-02,.1668600e-02,.1706100e-02,&
11185  & .1276800e-02,.1320700e-02,.1355500e-02,.1392400e-02,.1423400e-02/
11186 
11187  data absa( 1: 65, 6) / &
11188  & .1919100e-01,.1946300e-01,.1969200e-01,.1990000e-01,.2011200e-01,&
11189  & .1596700e-01,.1621900e-01,.1642600e-01,.1661300e-01,.1680500e-01,&
11190  & .1318600e-01,.1341100e-01,.1361400e-01,.1378500e-01,.1394400e-01,&
11191  & .1093500e-01,.1113100e-01,.1131800e-01,.1147500e-01,.1162000e-01,&
11192  & .9054100e-02,.9234400e-02,.9403500e-02,.9553700e-02,.9686200e-02,&
11193  & .7472400e-02,.7632000e-02,.7779400e-02,.7929400e-02,.8052800e-02,&
11194  & .6118300e-02,.6264400e-02,.6396100e-02,.6530300e-02,.6647800e-02,&
11195  & .5063800e-02,.5198400e-02,.5322200e-02,.5441200e-02,.5546500e-02,&
11196  & .4287000e-02,.4400900e-02,.4510900e-02,.4597600e-02,.4679600e-02,&
11197  & .4523900e-02,.4607300e-02,.4696800e-02,.4797900e-02,.4895600e-02,&
11198  & .4408900e-02,.4500600e-02,.4588100e-02,.4672100e-02,.4801500e-02,&
11199  & .3959800e-02,.4029000e-02,.4110800e-02,.4189900e-02,.4267200e-02,&
11200  & .3342500e-02,.3414800e-02,.3480800e-02,.3540500e-02,.3598300e-02/
11201 
11202  data absa( 1: 65, 7) / &
11203  & .5016500e-01,.5034300e-01,.5045200e-01,.5042400e-01,.5032900e-01,&
11204  & .4272300e-01,.4288000e-01,.4293900e-01,.4291000e-01,.4286100e-01,&
11205  & .3611700e-01,.3625500e-01,.3630100e-01,.3629400e-01,.3628800e-01,&
11206  & .3058500e-01,.3072000e-01,.3078700e-01,.3081600e-01,.3084200e-01,&
11207  & .2587900e-01,.2602900e-01,.2611600e-01,.2617900e-01,.2622500e-01,&
11208  & .2182200e-01,.2197800e-01,.2209400e-01,.2217800e-01,.2224400e-01,&
11209  & .1830400e-01,.1847600e-01,.1860600e-01,.1870500e-01,.1878000e-01,&
11210  & .1522400e-01,.1539400e-01,.1551900e-01,.1561900e-01,.1569000e-01,&
11211  & .1283500e-01,.1302900e-01,.1316900e-01,.1328100e-01,.1336900e-01,&
11212  & .1163200e-01,.1171400e-01,.1176000e-01,.1177600e-01,.1180600e-01,&
11213  & .1117000e-01,.1125200e-01,.1128800e-01,.1135700e-01,.1139700e-01,&
11214  & .1040400e-01,.1053300e-01,.1070500e-01,.1083300e-01,.1094700e-01,&
11215  & .9104100e-02,.9267400e-02,.9406800e-02,.9541200e-02,.9676900e-02/
11216 
11217  data absa( 1: 65, 8) / &
11218  & .1452700e+00,.1448300e+00,.1443200e+00,.1438900e+00,.1434900e+00,&
11219  & .1273900e+00,.1270200e+00,.1266100e+00,.1262400e+00,.1258400e+00,&
11220  & .1109100e+00,.1105800e+00,.1102400e+00,.1099000e+00,.1095300e+00,&
11221  & .9659000e-01,.9633500e-01,.9610500e-01,.9581800e-01,.9553000e-01,&
11222  & .8379900e-01,.8370800e-01,.8357200e-01,.8334700e-01,.8312600e-01,&
11223  & .7236900e-01,.7238800e-01,.7228900e-01,.7214300e-01,.7198100e-01,&
11224  & .6215800e-01,.6224700e-01,.6218500e-01,.6211100e-01,.6200700e-01,&
11225  & .5299800e-01,.5314200e-01,.5316200e-01,.5315400e-01,.5310100e-01,&
11226  & .4477600e-01,.4487300e-01,.4492000e-01,.4494600e-01,.4488500e-01,&
11227  & .3823700e-01,.3851400e-01,.3871600e-01,.3887700e-01,.3896600e-01,&
11228  & .3351100e-01,.3372100e-01,.3384300e-01,.3384000e-01,.3383900e-01,&
11229  & .2970400e-01,.2982500e-01,.2980800e-01,.2978700e-01,.2979400e-01,&
11230  & .2597300e-01,.2600400e-01,.2603200e-01,.2602300e-01,.2610700e-01/
11231 
11232  data absa( 1: 65, 9) / &
11233  & .6574795e+00,.6554552e+00,.6533155e+00,.6509209e+00,.6484065e+00,&
11234  & .6255494e+00,.6246438e+00,.6232566e+00,.6216554e+00,.6197426e+00,&
11235  & .5862362e+00,.5862909e+00,.5857885e+00,.5847743e+00,.5835312e+00,&
11236  & .5431781e+00,.5440621e+00,.5441314e+00,.5437951e+00,.5431448e+00,&
11237  & .4982859e+00,.4996650e+00,.5003975e+00,.5006596e+00,.5007368e+00,&
11238  & .4522079e+00,.4542740e+00,.4556478e+00,.4567195e+00,.4575025e+00,&
11239  & .4066660e+00,.4093121e+00,.4113888e+00,.4131704e+00,.4142502e+00,&
11240  & .3626680e+00,.3658157e+00,.3685601e+00,.3707145e+00,.3720343e+00,&
11241  & .3201627e+00,.3237696e+00,.3268366e+00,.3290751e+00,.3306950e+00,&
11242  & .2769076e+00,.2802971e+00,.2831727e+00,.2851341e+00,.2866169e+00,&
11243  & .2450947e+00,.2482141e+00,.2507025e+00,.2525044e+00,.2537402e+00,&
11244  & .2182159e+00,.2209177e+00,.2229032e+00,.2242398e+00,.2253965e+00,&
11245  & .1913957e+00,.1940531e+00,.1961425e+00,.1981273e+00,.1993420e+00/
11246 
11247  data absa( 1: 65,10) / &
11248  & .3268900e+01,.3251984e+01,.3235834e+01,.3221079e+01,.3207393e+01,&
11249  & .3622351e+01,.3601154e+01,.3582181e+01,.3564354e+01,.3547975e+01,&
11250  & .3989098e+01,.3964764e+01,.3942540e+01,.3922453e+01,.3903201e+01,&
11251  & .4343054e+01,.4315865e+01,.4291453e+01,.4268631e+01,.4246808e+01,&
11252  & .4682358e+01,.4653365e+01,.4626500e+01,.4601251e+01,.4576531e+01,&
11253  & .5008731e+01,.4977636e+01,.4948849e+01,.4920625e+01,.4892993e+01,&
11254  & .5317015e+01,.5284091e+01,.5253355e+01,.5222597e+01,.5194092e+01,&
11255  & .5603209e+01,.5569632e+01,.5536865e+01,.5505362e+01,.5476476e+01,&
11256  & .5865108e+01,.5831464e+01,.5798284e+01,.5767336e+01,.5737919e+01,&
11257  & .6093085e+01,.6061308e+01,.6030013e+01,.6000723e+01,.5972079e+01,&
11258  & .6260183e+01,.6230003e+01,.6201202e+01,.6173485e+01,.6146273e+01,&
11259  & .6409424e+01,.6381513e+01,.6354613e+01,.6328684e+01,.6301983e+01,&
11260  & .6564707e+01,.6537322e+01,.6510214e+01,.6481775e+01,.6454592e+01/
11261 
11262  data absb( 1:120, 1) / &
11263  & .2959700e-05,.3192900e-05,.3415900e-05,.3625600e-05,.3826400e-05,&
11264  & .2423300e-05,.2615100e-05,.2786600e-05,.2950200e-05,.3117000e-05,&
11265  & .1920600e-05,.2078900e-05,.2209900e-05,.2338300e-05,.2450500e-05,&
11266  & .1493300e-05,.1607100e-05,.1703900e-05,.1799400e-05,.1881600e-05,&
11267  & .1142900e-05,.1214400e-05,.1289500e-05,.1350300e-05,.1417400e-05,&
11268  & .8413400e-06,.8926400e-06,.9426000e-06,.9900300e-06,.1039100e-05,&
11269  & .6068300e-06,.6414200e-06,.6801800e-06,.7204200e-06,.7547900e-06,&
11270  & .4580900e-06,.4881300e-06,.5193400e-06,.5482300e-06,.5726100e-06,&
11271  & .3521900e-06,.3783500e-06,.4032200e-06,.4277200e-06,.4473600e-06,&
11272  & .2741900e-06,.2954200e-06,.3161700e-06,.3339800e-06,.3493200e-06,&
11273  & .2138500e-06,.2312700e-06,.2467000e-06,.2595100e-06,.2695200e-06,&
11274  & .1676700e-06,.1817900e-06,.1928200e-06,.2013600e-06,.2111300e-06,&
11275  & .1336100e-06,.1430100e-06,.1498000e-06,.1577800e-06,.1661500e-06,&
11276  & .1061500e-06,.1121800e-06,.1188900e-06,.1257400e-06,.1311100e-06,&
11277  & .8366000e-07,.8929600e-07,.9501900e-07,.1000700e-06,.1039700e-06,&
11278  & .6666700e-07,.7121700e-07,.7561500e-07,.7923700e-07,.8223900e-07,&
11279  & .5277600e-07,.5608600e-07,.5982800e-07,.6251300e-07,.6421800e-07,&
11280  & .4142900e-07,.4437000e-07,.4673100e-07,.4855300e-07,.5014300e-07,&
11281  & .3243700e-07,.3452300e-07,.3620800e-07,.3750000e-07,.3857100e-07,&
11282  & .2523700e-07,.2673000e-07,.2786800e-07,.2882900e-07,.2994300e-07,&
11283  & .1954500e-07,.2061400e-07,.2146700e-07,.2228000e-07,.2314100e-07,&
11284  & .1514600e-07,.1586900e-07,.1650900e-07,.1717900e-07,.1798000e-07,&
11285  & .1148200e-07,.1203900e-07,.1254700e-07,.1325500e-07,.1387400e-07,&
11286  & .8617200e-08,.9002300e-08,.9560700e-08,.1010600e-07,.1059500e-07/
11287 
11288  data absb(121:235, 1) / &
11289  & .6741100e-08,.7078100e-08,.7555300e-08,.7973900e-08,.8401100e-08,&
11290  & .5260400e-08,.5574300e-08,.5941000e-08,.6303100e-08,.6651600e-08,&
11291  & .4112900e-08,.4385400e-08,.4685100e-08,.4977100e-08,.5246300e-08,&
11292  & .3308900e-08,.3528900e-08,.3770200e-08,.4012500e-08,.4241500e-08,&
11293  & .2679400e-08,.2848800e-08,.3042800e-08,.3243700e-08,.3442000e-08,&
11294  & .2167000e-08,.2303000e-08,.2458900e-08,.2625200e-08,.2786700e-08,&
11295  & .1769900e-08,.1885300e-08,.2000100e-08,.2133000e-08,.2265700e-08,&
11296  & .1444600e-08,.1547100e-08,.1639700e-08,.1742300e-08,.1852600e-08,&
11297  & .1173400e-08,.1275400e-08,.1354200e-08,.1424200e-08,.1519300e-08,&
11298  & .9574300e-09,.1047000e-08,.1118300e-08,.1172600e-08,.1238900e-08,&
11299  & .7734500e-09,.8519700e-09,.9218400e-09,.9736800e-09,.1014900e-08,&
11300  & .6250000e-09,.6928800e-09,.7554800e-09,.8044600e-09,.8442800e-09,&
11301  & .5009500e-09,.5596700e-09,.6190400e-09,.6644100e-09,.7033900e-09,&
11302  & .4080600e-09,.4571200e-09,.5053000e-09,.5497400e-09,.5824600e-09,&
11303  & .3310200e-09,.3713000e-09,.4112100e-09,.4502400e-09,.4843600e-09,&
11304  & .2690600e-09,.3073900e-09,.3384500e-09,.3688400e-09,.4002400e-09,&
11305  & .2220200e-09,.2510800e-09,.2793700e-09,.3059200e-09,.3301200e-09,&
11306  & .1866200e-09,.2076100e-09,.2307200e-09,.2534200e-09,.2744500e-09,&
11307  & .1574100e-09,.1714700e-09,.1914600e-09,.2102900e-09,.2285700e-09,&
11308  & .1315100e-09,.1463700e-09,.1597700e-09,.1754700e-09,.1897400e-09,&
11309  & .1087400e-09,.1244700e-09,.1363400e-09,.1475200e-09,.1602200e-09,&
11310  & .9020600e-10,.1048400e-09,.1161700e-09,.1254500e-09,.1347400e-09,&
11311  & .7675900e-10,.8886600e-10,.9934000e-10,.1070600e-09,.1144400e-09/
11312 
11313  data absb( 1:120, 2) / &
11314  & .1472700e-04,.1635700e-04,.1796100e-04,.1953000e-04,.2085200e-04,&
11315  & .1214800e-04,.1347800e-04,.1481800e-04,.1604900e-04,.1710000e-04,&
11316  & .9690200e-05,.1078700e-04,.1183500e-04,.1277000e-04,.1351500e-04,&
11317  & .7623500e-05,.8457500e-05,.9221700e-05,.9852600e-05,.1044900e-04,&
11318  & .5804900e-05,.6423900e-05,.6973300e-05,.7413100e-05,.7808200e-05,&
11319  & .4320400e-05,.4751000e-05,.5116500e-05,.5457900e-05,.5743400e-05,&
11320  & .3221100e-05,.3532700e-05,.3817500e-05,.4053500e-05,.4224500e-05,&
11321  & .2526500e-05,.2765200e-05,.2964400e-05,.3133100e-05,.3273000e-05,&
11322  & .1992100e-05,.2174900e-05,.2334300e-05,.2437700e-05,.2545800e-05,&
11323  & .1585900e-05,.1725900e-05,.1823600e-05,.1912400e-05,.1994200e-05,&
11324  & .1259100e-05,.1356500e-05,.1430900e-05,.1503200e-05,.1564200e-05,&
11325  & .1001200e-05,.1070100e-05,.1124600e-05,.1181900e-05,.1227900e-05,&
11326  & .7898500e-06,.8407400e-06,.8902900e-06,.9314500e-06,.9708500e-06,&
11327  & .6299600e-06,.6684700e-06,.7063700e-06,.7351300e-06,.7713500e-06,&
11328  & .5028300e-06,.5311100e-06,.5565300e-06,.5830600e-06,.6179900e-06,&
11329  & .3996200e-06,.4232000e-06,.4426500e-06,.4671500e-06,.4951600e-06,&
11330  & .3181000e-06,.3359700e-06,.3519100e-06,.3744800e-06,.3976800e-06,&
11331  & .2524200e-06,.2644700e-06,.2810900e-06,.3008900e-06,.3154300e-06,&
11332  & .1983700e-06,.2095400e-06,.2244200e-06,.2376200e-06,.2518300e-06,&
11333  & .1559900e-06,.1670100e-06,.1778900e-06,.1888000e-06,.2003000e-06,&
11334  & .1230700e-06,.1321100e-06,.1404600e-06,.1511100e-06,.1598800e-06,&
11335  & .9842900e-07,.1049800e-06,.1132600e-06,.1207400e-06,.1277900e-06,&
11336  & .7774300e-07,.8395100e-07,.9047300e-07,.9627700e-07,.1020400e-06,&
11337  & .6122000e-07,.6639900e-07,.7110200e-07,.7594600e-07,.8080300e-07/
11338 
11339  data absb(121:235, 2) / &
11340  & .4881900e-07,.5296200e-07,.5666900e-07,.6081700e-07,.6470900e-07,&
11341  & .3887100e-07,.4222600e-07,.4537600e-07,.4864100e-07,.5185500e-07,&
11342  & .3086900e-07,.3348500e-07,.3623300e-07,.3886800e-07,.4152300e-07,&
11343  & .2479800e-07,.2698300e-07,.2918000e-07,.3143700e-07,.3360000e-07,&
11344  & .1995100e-07,.2178400e-07,.2351800e-07,.2546000e-07,.2721900e-07,&
11345  & .1609800e-07,.1754200e-07,.1897900e-07,.2054700e-07,.2201600e-07,&
11346  & .1302000e-07,.1414400e-07,.1541400e-07,.1661000e-07,.1787000e-07,&
11347  & .1054800e-07,.1150000e-07,.1249200e-07,.1352000e-07,.1452400e-07,&
11348  & .8560200e-08,.9324500e-08,.1009600e-07,.1097800e-07,.1181900e-07,&
11349  & .6914900e-08,.7565300e-08,.8215400e-08,.8882200e-08,.9600200e-08,&
11350  & .5570800e-08,.6116400e-08,.6667800e-08,.7192200e-08,.7763300e-08,&
11351  & .4480400e-08,.4931200e-08,.5396700e-08,.5866200e-08,.6278000e-08,&
11352  & .3646700e-08,.3986600e-08,.4362800e-08,.4758900e-08,.5120800e-08,&
11353  & .2952400e-08,.3254000e-08,.3547100e-08,.3863800e-08,.4188700e-08,&
11354  & .2388700e-08,.2652600e-08,.2895900e-08,.3150400e-08,.3411200e-08,&
11355  & .1932100e-08,.2164800e-08,.2362500e-08,.2583900e-08,.2817300e-08,&
11356  & .1568400e-08,.1772500e-08,.1947600e-08,.2124000e-08,.2311800e-08,&
11357  & .1279900e-08,.1446700e-08,.1607300e-08,.1749400e-08,.1916000e-08,&
11358  & .1044200e-08,.1191100e-08,.1321600e-08,.1453700e-08,.1577100e-08,&
11359  & .8574100e-09,.9793700e-09,.1093600e-08,.1205600e-08,.1316700e-08,&
11360  & .7035800e-09,.8033400e-09,.9082400e-09,.1005600e-08,.1101000e-08,&
11361  & .5742800e-09,.6644100e-09,.7542000e-09,.8362700e-09,.9248500e-09,&
11362  & .4792200e-09,.5559200e-09,.6349900e-09,.7073100e-09,.7867800e-09/
11363 
11364  data absb( 1:120, 3) / &
11365  & .7620100e-04,.8269900e-04,.8749900e-04,.9135200e-04,.9534800e-04,&
11366  & .6282100e-04,.6786100e-04,.7186800e-04,.7510800e-04,.7855700e-04,&
11367  & .4977500e-04,.5336700e-04,.5663900e-04,.5900100e-04,.6230300e-04,&
11368  & .3800500e-04,.4088300e-04,.4326900e-04,.4540300e-04,.4813900e-04,&
11369  & .2855000e-04,.3075000e-04,.3233100e-04,.3448900e-04,.3668700e-04,&
11370  & .2097600e-04,.2232200e-04,.2374300e-04,.2555400e-04,.2722300e-04,&
11371  & .1538900e-04,.1642200e-04,.1779200e-04,.1912700e-04,.2029500e-04,&
11372  & .1188300e-04,.1281600e-04,.1396200e-04,.1487200e-04,.1572500e-04,&
11373  & .9294800e-05,.1018700e-04,.1098600e-04,.1171300e-04,.1242600e-04,&
11374  & .7396900e-05,.8084000e-05,.8726300e-05,.9385600e-05,.9953300e-05,&
11375  & .5896100e-05,.6459100e-05,.6964800e-05,.7449400e-05,.7938500e-05,&
11376  & .4744500e-05,.5174200e-05,.5603600e-05,.5975800e-05,.6372400e-05,&
11377  & .3844200e-05,.4179100e-05,.4483700e-05,.4807800e-05,.5129400e-05,&
11378  & .3133500e-05,.3392300e-05,.3640000e-05,.3896100e-05,.4148700e-05,&
11379  & .2549900e-05,.2743200e-05,.2956000e-05,.3154500e-05,.3343300e-05,&
11380  & .2063500e-05,.2223100e-05,.2389700e-05,.2551600e-05,.2693800e-05,&
11381  & .1663500e-05,.1802400e-05,.1927900e-05,.2049800e-05,.2162700e-05,&
11382  & .1335900e-05,.1447400e-05,.1547000e-05,.1634600e-05,.1745700e-05,&
11383  & .1069700e-05,.1147700e-05,.1225400e-05,.1309700e-05,.1391400e-05,&
11384  & .8495800e-06,.9146400e-06,.9818900e-06,.1048900e-05,.1115000e-05,&
11385  & .6817800e-06,.7335600e-06,.7890500e-06,.8422600e-06,.8947600e-06,&
11386  & .5473700e-06,.5899500e-06,.6337400e-06,.6773200e-06,.7218200e-06,&
11387  & .4368000e-06,.4708600e-06,.5077100e-06,.5420900e-06,.5768700e-06,&
11388  & .3461200e-06,.3746600e-06,.4037000e-06,.4307300e-06,.4597900e-06/
11389 
11390  data absb(121:235, 3) / &
11391  & .2772500e-06,.3004800e-06,.3245100e-06,.3463800e-06,.3710500e-06,&
11392  & .2222800e-06,.2411400e-06,.2604900e-06,.2787100e-06,.2993500e-06,&
11393  & .1779700e-06,.1931700e-06,.2087800e-06,.2241100e-06,.2410200e-06,&
11394  & .1434600e-06,.1560100e-06,.1691300e-06,.1819700e-06,.1956600e-06,&
11395  & .1155900e-06,.1261500e-06,.1369700e-06,.1478500e-06,.1587400e-06,&
11396  & .9335800e-07,.1021400e-06,.1108900e-06,.1199800e-06,.1290400e-06,&
11397  & .7559900e-07,.8269000e-07,.8980800e-07,.9752400e-07,.1051100e-06,&
11398  & .6128500e-07,.6678600e-07,.7293700e-07,.7908700e-07,.8552500e-07,&
11399  & .4972500e-07,.5429400e-07,.5926300e-07,.6421300e-07,.6958300e-07,&
11400  & .4033600e-07,.4418600e-07,.4803400e-07,.5218400e-07,.5653400e-07,&
11401  & .3290400e-07,.3563300e-07,.3895900e-07,.4240200e-07,.4588300e-07,&
11402  & .2672500e-07,.2910400e-07,.3169300e-07,.3431200e-07,.3730400e-07,&
11403  & .2175100e-07,.2384900e-07,.2580300e-07,.2802400e-07,.3035600e-07,&
11404  & .1758700e-07,.1960900e-07,.2121600e-07,.2302200e-07,.2494200e-07,&
11405  & .1437600e-07,.1599000e-07,.1749300e-07,.1887200e-07,.2046300e-07,&
11406  & .1181100e-07,.1310600e-07,.1448900e-07,.1561500e-07,.1683200e-07,&
11407  & .9600100e-08,.1078800e-07,.1192100e-07,.1298500e-07,.1390400e-07,&
11408  & .7824300e-08,.8917800e-08,.9843000e-08,.1084000e-07,.1161900e-07,&
11409  & .6363800e-08,.7367800e-08,.8221400e-08,.8999700e-08,.9756500e-08,&
11410  & .5175300e-08,.6049700e-08,.6841900e-08,.7456000e-08,.8236200e-08,&
11411  & .4216400e-08,.4991600e-08,.5706600e-08,.6330800e-08,.6895000e-08,&
11412  & .3461800e-08,.4142400e-08,.4805400e-08,.5375700e-08,.5809500e-08,&
11413  & .2908300e-08,.3529100e-08,.4093200e-08,.4628500e-08,.4986500e-08/
11414 
11415  data absb( 1:120, 4) / &
11416  & .3767400e-03,.4095300e-03,.4369000e-03,.4605900e-03,.4800700e-03,&
11417  & .3120200e-03,.3390600e-03,.3606600e-03,.3800300e-03,.3962700e-03,&
11418  & .2513500e-03,.2727100e-03,.2906900e-03,.3066100e-03,.3200500e-03,&
11419  & .1979700e-03,.2152700e-03,.2295500e-03,.2432800e-03,.2545600e-03,&
11420  & .1535400e-03,.1667900e-03,.1793300e-03,.1910100e-03,.2004100e-03,&
11421  & .1174200e-03,.1279700e-03,.1392300e-03,.1483600e-03,.1565400e-03,&
11422  & .9051900e-04,.9938600e-04,.1081900e-03,.1160100e-03,.1231900e-03,&
11423  & .7257900e-04,.7991000e-04,.8707500e-04,.9372800e-04,.9965600e-04,&
11424  & .5886600e-04,.6480500e-04,.7070500e-04,.7615300e-04,.8099600e-04,&
11425  & .4815700e-04,.5288300e-04,.5774000e-04,.6213000e-04,.6610000e-04,&
11426  & .3933700e-04,.4328900e-04,.4727500e-04,.5090600e-04,.5416100e-04,&
11427  & .3228900e-04,.3557700e-04,.3880800e-04,.4181400e-04,.4443300e-04,&
11428  & .2661500e-04,.2930100e-04,.3198400e-04,.3439600e-04,.3650900e-04,&
11429  & .2206000e-04,.2427000e-04,.2646000e-04,.2845000e-04,.3020300e-04,&
11430  & .1834400e-04,.2017700e-04,.2194800e-04,.2359500e-04,.2500100e-04,&
11431  & .1525600e-04,.1678700e-04,.1824200e-04,.1956100e-04,.2069600e-04,&
11432  & .1267900e-04,.1395200e-04,.1517000e-04,.1621100e-04,.1716300e-04,&
11433  & .1055000e-04,.1160500e-04,.1257900e-04,.1345100e-04,.1421000e-04,&
11434  & .8751200e-05,.9632200e-05,.1043300e-04,.1113300e-04,.1176200e-04,&
11435  & .7300100e-05,.8020300e-05,.8674500e-05,.9229200e-05,.9729500e-05,&
11436  & .6095800e-05,.6686200e-05,.7200600e-05,.7635900e-05,.8057600e-05,&
11437  & .5085500e-05,.5567100e-05,.5967000e-05,.6339200e-05,.6686900e-05,&
11438  & .4203300e-05,.4590500e-05,.4925000e-05,.5238400e-05,.5536900e-05,&
11439  & .3438400e-05,.3761800e-05,.4043000e-05,.4306000e-05,.4557700e-05/
11440 
11441  data absb(121:235, 4) / &
11442  & .2803900e-05,.3074900e-05,.3313500e-05,.3534400e-05,.3745800e-05,&
11443  & .2284200e-05,.2510400e-05,.2712600e-05,.2896600e-05,.3076800e-05,&
11444  & .1858500e-05,.2051000e-05,.2219400e-05,.2373100e-05,.2524900e-05,&
11445  & .1504100e-05,.1667600e-05,.1809700e-05,.1940200e-05,.2068100e-05,&
11446  & .1215400e-05,.1354100e-05,.1474900e-05,.1585200e-05,.1693400e-05,&
11447  & .9803300e-06,.1097500e-05,.1201100e-05,.1294500e-05,.1385900e-05,&
11448  & .7872400e-06,.8862500e-06,.9748600e-06,.1055400e-05,.1130700e-05,&
11449  & .6305900e-06,.7138200e-06,.7894800e-06,.8575500e-06,.9204400e-06,&
11450  & .5042600e-06,.5739100e-06,.6380800e-06,.6971800e-06,.7497200e-06,&
11451  & .4013300e-06,.4585800e-06,.5141400e-06,.5640000e-06,.6096400e-06,&
11452  & .3158000e-06,.3644000e-06,.4112000e-06,.4543300e-06,.4934800e-06,&
11453  & .2484700e-06,.2890700e-06,.3287900e-06,.3653700e-06,.3990300e-06,&
11454  & .1953000e-06,.2285800e-06,.2624700e-06,.2933100e-06,.3221700e-06,&
11455  & .1536400e-06,.1811300e-06,.2091100e-06,.2358900e-06,.2599400e-06,&
11456  & .1207200e-06,.1441300e-06,.1665600e-06,.1895200e-06,.2098300e-06,&
11457  & .9492500e-07,.1139700e-06,.1325500e-06,.1519300e-06,.1696000e-06,&
11458  & .7447300e-07,.9019700e-07,.1057400e-06,.1215300e-06,.1366100e-06,&
11459  & .5900900e-07,.7159400e-07,.8478100e-07,.9775800e-07,.1101800e-06,&
11460  & .4700800e-07,.5699700e-07,.6783800e-07,.7875300e-07,.8911600e-07,&
11461  & .3741500e-07,.4564200e-07,.5442000e-07,.6346600e-07,.7191000e-07,&
11462  & .2989600e-07,.3663500e-07,.4369700e-07,.5103600e-07,.5826700e-07,&
11463  & .2394600e-07,.2952300e-07,.3531600e-07,.4118300e-07,.4739100e-07,&
11464  & .1988100e-07,.2464200e-07,.2939000e-07,.3409900e-07,.3923400e-07/
11465 
11466  data absb( 1:120, 5) / &
11467  & .1277100e-02,.1320200e-02,.1355700e-02,.1392700e-02,.1423300e-02,&
11468  & .1060800e-02,.1095100e-02,.1124900e-02,.1154900e-02,.1178800e-02,&
11469  & .8675000e-03,.8967900e-03,.9198600e-03,.9439900e-03,.9640500e-03,&
11470  & .7007300e-03,.7250400e-03,.7463000e-03,.7649500e-03,.7816500e-03,&
11471  & .5628000e-03,.5832100e-03,.6015300e-03,.6154400e-03,.6288500e-03,&
11472  & .4494000e-03,.4659800e-03,.4788700e-03,.4905800e-03,.5022300e-03,&
11473  & .3575300e-03,.3706400e-03,.3829000e-03,.3939000e-03,.4038700e-03,&
11474  & .2901300e-03,.3009900e-03,.3117900e-03,.3211700e-03,.3301100e-03,&
11475  & .2365700e-03,.2460200e-03,.2550400e-03,.2634000e-03,.2714500e-03,&
11476  & .1942300e-03,.2022400e-03,.2098700e-03,.2171100e-03,.2243900e-03,&
11477  & .1596300e-03,.1664300e-03,.1730800e-03,.1794900e-03,.1858000e-03,&
11478  & .1316600e-03,.1374500e-03,.1433200e-03,.1487100e-03,.1542800e-03,&
11479  & .1088500e-03,.1139400e-03,.1189600e-03,.1237100e-03,.1284600e-03,&
11480  & .9040300e-04,.9491400e-04,.9915700e-04,.1031000e-03,.1072900e-03,&
11481  & .7526500e-04,.7916600e-04,.8264800e-04,.8620900e-04,.8988200e-04,&
11482  & .6287000e-04,.6605000e-04,.6911100e-04,.7228900e-04,.7545100e-04,&
11483  & .5246500e-04,.5519200e-04,.5788700e-04,.6066000e-04,.6336700e-04,&
11484  & .4388700e-04,.4619100e-04,.4858800e-04,.5091000e-04,.5327800e-04,&
11485  & .3676000e-04,.3876600e-04,.4078300e-04,.4278300e-04,.4478000e-04,&
11486  & .3083100e-04,.3256100e-04,.3426700e-04,.3600000e-04,.3759400e-04,&
11487  & .2590800e-04,.2738900e-04,.2883200e-04,.3029000e-04,.3158100e-04,&
11488  & .2177600e-04,.2302600e-04,.2426600e-04,.2544400e-04,.2651000e-04,&
11489  & .1823300e-04,.1928000e-04,.2032400e-04,.2126600e-04,.2214100e-04,&
11490  & .1516000e-04,.1604200e-04,.1691800e-04,.1768600e-04,.1840600e-04/
11491 
11492  data absb(121:235, 5) / &
11493  & .1253800e-04,.1328500e-04,.1401500e-04,.1465700e-04,.1526900e-04,&
11494  & .1035700e-04,.1099000e-04,.1159500e-04,.1214800e-04,.1265100e-04,&
11495  & .8556600e-05,.9085600e-05,.9598600e-05,.1005700e-04,.1047800e-04,&
11496  & .7039000e-05,.7482600e-05,.7920000e-05,.8306100e-05,.8663400e-05,&
11497  & .5782700e-05,.6157200e-05,.6526900e-05,.6852800e-05,.7159500e-05,&
11498  & .4747700e-05,.5065600e-05,.5370500e-05,.5648600e-05,.5910000e-05,&
11499  & .3880200e-05,.4153300e-05,.4408900e-05,.4651500e-05,.4871900e-05,&
11500  & .3165800e-05,.3397100e-05,.3617700e-05,.3820500e-05,.4008900e-05,&
11501  & .2579600e-05,.2774000e-05,.2963500e-05,.3133600e-05,.3298600e-05,&
11502  & .2094500e-05,.2263600e-05,.2421400e-05,.2569800e-05,.2707700e-05,&
11503  & .1693100e-05,.1838300e-05,.1972900e-05,.2099600e-05,.2217200e-05,&
11504  & .1365000e-05,.1488900e-05,.1604300e-05,.1713900e-05,.1813600e-05,&
11505  & .1098100e-05,.1204200e-05,.1302800e-05,.1396300e-05,.1482400e-05,&
11506  & .8840700e-06,.9737000e-06,.1058900e-05,.1138300e-05,.1212400e-05,&
11507  & .7115000e-06,.7868200e-06,.8604800e-06,.9271100e-06,.9912800e-06,&
11508  & .5714000e-06,.6351300e-06,.6979000e-06,.7546600e-06,.8094600e-06,&
11509  & .4587100e-06,.5118300e-06,.5649400e-06,.6137600e-06,.6602200e-06,&
11510  & .3688900e-06,.4131900e-06,.4575900e-06,.4997300e-06,.5393300e-06,&
11511  & .2968300e-06,.3339600e-06,.3711000e-06,.4067100e-06,.4402600e-06,&
11512  & .2382800e-06,.2697300e-06,.3004800e-06,.3309900e-06,.3594900e-06,&
11513  & .1908300e-06,.2178200e-06,.2435000e-06,.2688300e-06,.2930900e-06,&
11514  & .1533400e-06,.1759200e-06,.1975300e-06,.2186900e-06,.2390300e-06,&
11515  & .1263500e-06,.1450400e-06,.1632100e-06,.1807400e-06,.1975900e-06/
11516 
11517  data absb( 1:120, 6) / &
11518  & .3343300e-02,.3415900e-02,.3479800e-02,.3539700e-02,.3599500e-02,&
11519  & .2803900e-02,.2858900e-02,.2909000e-02,.2959500e-02,.3010800e-02,&
11520  & .2313500e-02,.2357900e-02,.2401200e-02,.2447000e-02,.2490000e-02,&
11521  & .1892500e-02,.1928100e-02,.1967100e-02,.2009000e-02,.2044500e-02,&
11522  & .1536500e-02,.1570300e-02,.1603900e-02,.1642400e-02,.1676000e-02,&
11523  & .1242400e-02,.1274600e-02,.1306700e-02,.1339700e-02,.1368700e-02,&
11524  & .1011300e-02,.1041700e-02,.1066400e-02,.1095800e-02,.1123100e-02,&
11525  & .8337500e-03,.8586300e-03,.8809800e-03,.9068000e-03,.9309300e-03,&
11526  & .6884900e-03,.7105600e-03,.7316100e-03,.7540200e-03,.7743200e-03,&
11527  & .5707600e-03,.5900100e-03,.6092500e-03,.6281600e-03,.6453100e-03,&
11528  & .4746200e-03,.4913800e-03,.5081800e-03,.5242100e-03,.5393000e-03,&
11529  & .3955200e-03,.4101100e-03,.4246000e-03,.4386500e-03,.4520600e-03,&
11530  & .3304100e-03,.3431700e-03,.3557300e-03,.3680000e-03,.3800500e-03,&
11531  & .2769900e-03,.2880600e-03,.2989200e-03,.3098300e-03,.3203800e-03,&
11532  & .2325300e-03,.2422900e-03,.2520800e-03,.2614400e-03,.2703900e-03,&
11533  & .1957300e-03,.2044200e-03,.2127600e-03,.2208700e-03,.2286900e-03,&
11534  & .1652800e-03,.1727100e-03,.1797400e-03,.1868100e-03,.1937300e-03,&
11535  & .1394900e-03,.1459900e-03,.1521400e-03,.1583400e-03,.1644800e-03,&
11536  & .1179300e-03,.1234500e-03,.1289100e-03,.1343200e-03,.1397500e-03,&
11537  & .9984500e-04,.1046400e-03,.1094100e-03,.1142500e-03,.1189600e-03,&
11538  & .8472300e-04,.8880800e-04,.9305400e-04,.9725700e-04,.1014400e-03,&
11539  & .7185700e-04,.7547800e-04,.7924500e-04,.8287800e-04,.8652700e-04,&
11540  & .6074100e-04,.6398700e-04,.6719000e-04,.7044500e-04,.7363400e-04,&
11541  & .5109400e-04,.5395300e-04,.5678700e-04,.5964400e-04,.6242100e-04/
11542 
11543  data absb(121:235, 6) / &
11544  & .4280900e-04,.4532400e-04,.4780500e-04,.5031400e-04,.5279700e-04,&
11545  & .3586200e-04,.3808200e-04,.4024900e-04,.4245900e-04,.4469100e-04,&
11546  & .3004700e-04,.3197000e-04,.3387700e-04,.3584100e-04,.3779200e-04,&
11547  & .2505100e-04,.2673400e-04,.2842900e-04,.3017700e-04,.3185900e-04,&
11548  & .2085800e-04,.2233700e-04,.2383700e-04,.2534800e-04,.2684500e-04,&
11549  & .1735800e-04,.1865300e-04,.1994700e-04,.2127900e-04,.2261400e-04,&
11550  & .1438200e-04,.1550700e-04,.1663700e-04,.1780800e-04,.1897500e-04,&
11551  & .1187500e-04,.1285100e-04,.1384700e-04,.1486500e-04,.1588600e-04,&
11552  & .9782400e-05,.1064100e-04,.1149700e-04,.1238600e-04,.1328800e-04,&
11553  & .8030500e-05,.8771200e-05,.9517000e-05,.1028200e-04,.1107300e-04,&
11554  & .6555400e-05,.7188100e-05,.7833100e-05,.8502200e-05,.9179900e-05,&
11555  & .5339900e-05,.5881800e-05,.6436400e-05,.7009300e-05,.7599200e-05,&
11556  & .4339600e-05,.4799000e-05,.5272700e-05,.5763300e-05,.6278500e-05,&
11557  & .3527200e-05,.3913900e-05,.4323000e-05,.4742300e-05,.5181900e-05,&
11558  & .2862400e-05,.3191300e-05,.3537900e-05,.3897900e-05,.4274400e-05,&
11559  & .2318900e-05,.2596100e-05,.2890700e-05,.3197600e-05,.3520000e-05,&
11560  & .1873600e-05,.2107200e-05,.2357600e-05,.2617900e-05,.2894300e-05,&
11561  & .1515500e-05,.1713500e-05,.1924500e-05,.2145100e-05,.2380800e-05,&
11562  & .1225000e-05,.1392300e-05,.1571400e-05,.1757800e-05,.1959700e-05,&
11563  & .9901200e-06,.1129600e-05,.1280100e-05,.1439500e-05,.1610700e-05,&
11564  & .7987500e-06,.9141800e-06,.1040800e-05,.1177700e-05,.1321200e-05,&
11565  & .6447400e-06,.7410900e-06,.8466400e-06,.9632800e-06,.1084900e-05,&
11566  & .5329600e-06,.6142700e-06,.7038500e-06,.8037500e-06,.9086300e-06/
11567 
11568  data absb( 1:120, 7) / &
11569  & .9106300e-02,.9268100e-02,.9404500e-02,.9538800e-02,.9673500e-02,&
11570  & .7848300e-02,.7980600e-02,.8123800e-02,.8252800e-02,.8360300e-02,&
11571  & .6626900e-02,.6744500e-02,.6884500e-02,.6991100e-02,.7085400e-02,&
11572  & .5518300e-02,.5641400e-02,.5757400e-02,.5848700e-02,.5940700e-02,&
11573  & .4569300e-02,.4678000e-02,.4774300e-02,.4862500e-02,.4946700e-02,&
11574  & .3761100e-02,.3853500e-02,.3940800e-02,.4023400e-02,.4100700e-02,&
11575  & .3099100e-02,.3180900e-02,.3264700e-02,.3338800e-02,.3404200e-02,&
11576  & .2585800e-02,.2658500e-02,.2734700e-02,.2799000e-02,.2857900e-02,&
11577  & .2167200e-02,.2232600e-02,.2297300e-02,.2354700e-02,.2405800e-02,&
11578  & .1821100e-02,.1880900e-02,.1936400e-02,.1985900e-02,.2035200e-02,&
11579  & .1531400e-02,.1584400e-02,.1633200e-02,.1676000e-02,.1724300e-02,&
11580  & .1292400e-02,.1338500e-02,.1379300e-02,.1420900e-02,.1465900e-02,&
11581  & .1092600e-02,.1132200e-02,.1168900e-02,.1208100e-02,.1249300e-02,&
11582  & .9275600e-03,.9613600e-03,.9960100e-03,.1032400e-02,.1069500e-02,&
11583  & .7883200e-03,.8189300e-03,.8513700e-03,.8846500e-03,.9188500e-03,&
11584  & .6709700e-03,.6997900e-03,.7298500e-03,.7603800e-03,.7921300e-03,&
11585  & .5723100e-03,.5993400e-03,.6272700e-03,.6547100e-03,.6838900e-03,&
11586  & .4899600e-03,.5144100e-03,.5394500e-03,.5656400e-03,.5916400e-03,&
11587  & .4199800e-03,.4423700e-03,.4655100e-03,.4892400e-03,.5132200e-03,&
11588  & .3613300e-03,.3816800e-03,.4029700e-03,.4244100e-03,.4472200e-03,&
11589  & .3115300e-03,.3305500e-03,.3498000e-03,.3697200e-03,.3908600e-03,&
11590  & .2694100e-03,.2865700e-03,.3043600e-03,.3229500e-03,.3425600e-03,&
11591  & .2321000e-03,.2478200e-03,.2641100e-03,.2812100e-03,.2993000e-03,&
11592  & .1990400e-03,.2131100e-03,.2279700e-03,.2438000e-03,.2603000e-03/
11593 
11594  data absb(121:235, 7) / &
11595  & .1700000e-03,.1830000e-03,.1966600e-03,.2112800e-03,.2264100e-03,&
11596  & .1452800e-03,.1570400e-03,.1697500e-03,.1832000e-03,.1973500e-03,&
11597  & .1241400e-03,.1349600e-03,.1465400e-03,.1589900e-03,.1721100e-03,&
11598  & .1056700e-03,.1154700e-03,.1261800e-03,.1376500e-03,.1499400e-03,&
11599  & .8977400e-04,.9875100e-04,.1085200e-03,.1191800e-03,.1305700e-03,&
11600  & .7623200e-04,.8438300e-04,.9333600e-04,.1031400e-03,.1138100e-03,&
11601  & .6437000e-04,.7168400e-04,.7979700e-04,.8885000e-04,.9873300e-04,&
11602  & .5412500e-04,.6068000e-04,.6804200e-04,.7631300e-04,.8543200e-04,&
11603  & .4537400e-04,.5128000e-04,.5793200e-04,.6542900e-04,.7385200e-04,&
11604  & .3786100e-04,.4307800e-04,.4901600e-04,.5584400e-04,.6353800e-04,&
11605  & .3134200e-04,.3587900e-04,.4117500e-04,.4725200e-04,.5428600e-04,&
11606  & .2582100e-04,.2977700e-04,.3445800e-04,.3988000e-04,.4621800e-04,&
11607  & .2118000e-04,.2461700e-04,.2871900e-04,.3350700e-04,.3918400e-04,&
11608  & .1737700e-04,.2034500e-04,.2391600e-04,.2817700e-04,.3323700e-04,&
11609  & .1422300e-04,.1679000e-04,.1986800e-04,.2365600e-04,.2816300e-04,&
11610  & .1159300e-04,.1378800e-04,.1647900e-04,.1977300e-04,.2376500e-04,&
11611  & .9414100e-05,.1127900e-04,.1359100e-04,.1644700e-04,.1996900e-04,&
11612  & .7662200e-05,.9241700e-05,.1123300e-04,.1370900e-04,.1681900e-04,&
11613  & .6231500e-05,.7567100e-05,.9269900e-05,.1142900e-04,.1418600e-04,&
11614  & .5047300e-05,.6176600e-05,.7631600e-05,.9497900e-05,.1189000e-04,&
11615  & .4077300e-05,.5024200e-05,.6254000e-05,.7859400e-05,.9937800e-05,&
11616  & .3293700e-05,.4086200e-05,.5122800e-05,.6499200e-05,.8311200e-05,&
11617  & .2759300e-05,.3450500e-05,.4371600e-05,.5603500e-05,.7260900e-05/
11618 
11619  data absb( 1:120, 8) / &
11620  & .2599000e-01,.2599700e-01,.2602400e-01,.2603800e-01,.2613200e-01,&
11621  & .2264800e-01,.2273100e-01,.2280300e-01,.2286100e-01,.2302000e-01,&
11622  & .1964100e-01,.1981200e-01,.1988000e-01,.1999800e-01,.2014100e-01,&
11623  & .1690900e-01,.1703000e-01,.1714800e-01,.1729600e-01,.1750200e-01,&
11624  & .1436500e-01,.1450400e-01,.1464300e-01,.1480800e-01,.1499600e-01,&
11625  & .1207200e-01,.1220700e-01,.1234600e-01,.1251300e-01,.1274200e-01,&
11626  & .1013500e-01,.1026300e-01,.1040200e-01,.1060200e-01,.1079400e-01,&
11627  & .8650800e-02,.8795100e-02,.8976500e-02,.9153000e-02,.9344700e-02,&
11628  & .7422800e-02,.7596400e-02,.7780500e-02,.7944100e-02,.8126600e-02,&
11629  & .6394900e-02,.6592000e-02,.6758400e-02,.6929800e-02,.7096800e-02,&
11630  & .5538900e-02,.5716500e-02,.5883400e-02,.6049000e-02,.6216300e-02,&
11631  & .4798000e-02,.4969600e-02,.5133300e-02,.5305500e-02,.5469500e-02,&
11632  & .4167600e-02,.4335700e-02,.4499900e-02,.4674900e-02,.4817900e-02,&
11633  & .3639100e-02,.3807900e-02,.3983400e-02,.4137400e-02,.4275400e-02,&
11634  & .3191700e-02,.3358000e-02,.3523700e-02,.3673700e-02,.3798200e-02,&
11635  & .2809600e-02,.2970900e-02,.3124200e-02,.3261300e-02,.3382900e-02,&
11636  & .2478600e-02,.2627200e-02,.2770600e-02,.2898600e-02,.3013000e-02,&
11637  & .2190700e-02,.2328200e-02,.2457400e-02,.2577800e-02,.2680600e-02,&
11638  & .1934600e-02,.2056900e-02,.2175700e-02,.2280500e-02,.2374200e-02,&
11639  & .1710100e-02,.1824700e-02,.1930800e-02,.2025600e-02,.2117600e-02,&
11640  & .1517100e-02,.1616800e-02,.1712100e-02,.1803500e-02,.1891100e-02,&
11641  & .1346600e-02,.1439000e-02,.1524600e-02,.1608300e-02,.1692100e-02,&
11642  & .1187100e-02,.1269800e-02,.1353400e-02,.1432000e-02,.1507100e-02,&
11643  & .1038800e-02,.1117900e-02,.1193400e-02,.1264700e-02,.1339100e-02/
11644 
11645  data absb(121:235, 8) / &
11646  & .9223300e-03,.9985400e-03,.1072200e-02,.1142600e-02,.1211800e-02,&
11647  & .8184300e-03,.8923600e-03,.9660500e-03,.1034000e-02,.1100300e-02,&
11648  & .7273800e-03,.7977700e-03,.8699700e-03,.9349600e-03,.9985200e-03,&
11649  & .6514900e-03,.7209800e-03,.7923500e-03,.8611600e-03,.9247400e-03,&
11650  & .5831800e-03,.6515400e-03,.7216000e-03,.7940000e-03,.8597300e-03,&
11651  & .5212700e-03,.5877000e-03,.6578100e-03,.7311000e-03,.8016500e-03,&
11652  & .4640400e-03,.5296000e-03,.5988600e-03,.6736600e-03,.7472700e-03,&
11653  & .4122900e-03,.4760900e-03,.5442400e-03,.6191800e-03,.6936600e-03,&
11654  & .3653400e-03,.4262400e-03,.4937400e-03,.5666800e-03,.6436400e-03,&
11655  & .3213400e-03,.3798700e-03,.4459700e-03,.5166900e-03,.5946900e-03,&
11656  & .2785500e-03,.3353100e-03,.3985500e-03,.4683200e-03,.5456200e-03,&
11657  & .2409400e-03,.2944000e-03,.3547700e-03,.4228400e-03,.4976700e-03,&
11658  & .2071000e-03,.2571200e-03,.3142500e-03,.3809800e-03,.4546500e-03,&
11659  & .1775700e-03,.2242200e-03,.2790600e-03,.3423100e-03,.4141900e-03,&
11660  & .1519800e-03,.1953800e-03,.2475800e-03,.3079600e-03,.3776500e-03,&
11661  & .1294300e-03,.1690700e-03,.2181200e-03,.2758500e-03,.3428400e-03,&
11662  & .1094600e-03,.1456000e-03,.1910300e-03,.2463300e-03,.3104900e-03,&
11663  & .9295000e-04,.1259900e-03,.1684800e-03,.2210900e-03,.2826600e-03,&
11664  & .7872200e-04,.1088300e-03,.1483100e-03,.1979000e-03,.2577000e-03,&
11665  & .6632300e-04,.9365100e-04,.1298300e-03,.1763800e-03,.2339300e-03,&
11666  & .5564400e-04,.8008500e-04,.1134900e-03,.1574100e-03,.2127400e-03,&
11667  & .4653700e-04,.6844200e-04,.9919000e-04,.1404500e-03,.1932700e-03,&
11668  & .4155800e-04,.6250300e-04,.9237700e-04,.1325800e-03,.1852800e-03/
11669 
11670  data absb( 1:120, 9) / &
11671  & .1913712e+00,.1940307e+00,.1961583e+00,.1981395e+00,.1992614e+00,&
11672  & .1688802e+00,.1712855e+00,.1734248e+00,.1752061e+00,.1762731e+00,&
11673  & .1486065e+00,.1508840e+00,.1528820e+00,.1544423e+00,.1558272e+00,&
11674  & .1299204e+00,.1323469e+00,.1341015e+00,.1357898e+00,.1371436e+00,&
11675  & .1134080e+00,.1156327e+00,.1174880e+00,.1190475e+00,.1205541e+00,&
11676  & .9849405e-01,.1005410e+00,.1023631e+00,.1040376e+00,.1053612e+00,&
11677  & .8553764e-01,.8752614e-01,.8929406e-01,.9077432e-01,.9251699e-01,&
11678  & .7472428e-01,.7670302e-01,.7818691e-01,.7985497e-01,.8155359e-01,&
11679  & .6533778e-01,.6717463e-01,.6889333e-01,.7050656e-01,.7229544e-01,&
11680  & .5740823e-01,.5919933e-01,.6095743e-01,.6261078e-01,.6444982e-01,&
11681  & .5056393e-01,.5229127e-01,.5411951e-01,.5593955e-01,.5779249e-01,&
11682  & .4478827e-01,.4654763e-01,.4835743e-01,.5018840e-01,.5221163e-01,&
11683  & .3995582e-01,.4170732e-01,.4352502e-01,.4537017e-01,.4745831e-01,&
11684  & .3584681e-01,.3763708e-01,.3940778e-01,.4140061e-01,.4366003e-01,&
11685  & .3241328e-01,.3414397e-01,.3597457e-01,.3798590e-01,.4030971e-01,&
11686  & .2947190e-01,.3126308e-01,.3314326e-01,.3529197e-01,.3770177e-01,&
11687  & .2705105e-01,.2882380e-01,.3077801e-01,.3304753e-01,.3559583e-01,&
11688  & .2495554e-01,.2671043e-01,.2883204e-01,.3115120e-01,.3377072e-01,&
11689  & .2314399e-01,.2503929e-01,.2721446e-01,.2967647e-01,.3240495e-01,&
11690  & .2168424e-01,.2363375e-01,.2593698e-01,.2846534e-01,.3128868e-01,&
11691  & .2052923e-01,.2253442e-01,.2489053e-01,.2751815e-01,.3055501e-01,&
11692  & .1954963e-01,.2161307e-01,.2412847e-01,.2681518e-01,.3006419e-01,&
11693  & .1858710e-01,.2078212e-01,.2330820e-01,.2617072e-01,.2946078e-01,&
11694  & .1751615e-01,.1979783e-01,.2246608e-01,.2526516e-01,.2885677e-01/
11695 
11696  data absb(121:235, 9) / &
11697  & .1645401e-01,.1873164e-01,.2142687e-01,.2424787e-01,.2779912e-01,&
11698  & .1549653e-01,.1781459e-01,.2042772e-01,.2337789e-01,.2680098e-01,&
11699  & .1464498e-01,.1698778e-01,.1958951e-01,.2255141e-01,.2592896e-01,&
11700  & .1374930e-01,.1598681e-01,.1858564e-01,.2145636e-01,.2483064e-01,&
11701  & .1297376e-01,.1509265e-01,.1767753e-01,.2043917e-01,.2378184e-01,&
11702  & .1225680e-01,.1431909e-01,.1681124e-01,.1957355e-01,.2273600e-01,&
11703  & .1154426e-01,.1346806e-01,.1585020e-01,.1858172e-01,.2161718e-01,&
11704  & .1073729e-01,.1273625e-01,.1500546e-01,.1763766e-01,.2052634e-01,&
11705  & .1003661e-01,.1202377e-01,.1415118e-01,.1671879e-01,.1956038e-01,&
11706  & .9280320e-02,.1124463e-01,.1334817e-01,.1580509e-01,.1857998e-01,&
11707  & .8562651e-02,.1045470e-01,.1255035e-01,.1487256e-01,.1749111e-01,&
11708  & .7862421e-02,.9650932e-02,.1175305e-01,.1399227e-01,.1656834e-01,&
11709  & .7176180e-02,.8968905e-02,.1094204e-01,.1318820e-01,.1566044e-01,&
11710  & .6553611e-02,.8323164e-02,.1026176e-01,.1243120e-01,.1484228e-01,&
11711  & .6016277e-02,.7685907e-02,.9617875e-02,.1169791e-01,.1410813e-01,&
11712  & .5488131e-02,.7123060e-02,.9006212e-02,.1103169e-01,.1339416e-01,&
11713  & .5039153e-02,.6572314e-02,.8368057e-02,.1042322e-01,.1261228e-01,&
11714  & .4678553e-02,.6104245e-02,.7858028e-02,.9862751e-02,.1203004e-01,&
11715  & .4397629e-02,.5698528e-02,.7389611e-02,.9348370e-02,.1154387e-01,&
11716  & .4125069e-02,.5371631e-02,.6928103e-02,.8831411e-02,.1098275e-01,&
11717  & .3904687e-02,.5099382e-02,.6546356e-02,.8396888e-02,.1047269e-01,&
11718  & .3677700e-02,.4862089e-02,.6220196e-02,.7951650e-02,.1006273e-01,&
11719  & .3646869e-02,.4855547e-02,.6218200e-02,.7940987e-02,.1000532e-01/
11720 
11721  data absb( 1:120,10) / &
11722  & .6563434e+01,.6536173e+01,.6509225e+01,.6480775e+01,.6453855e+01,&
11723  & .6694993e+01,.6668788e+01,.6641684e+01,.6613791e+01,.6586857e+01,&
11724  & .6814067e+01,.6788196e+01,.6761389e+01,.6734157e+01,.6706224e+01,&
11725  & .6922709e+01,.6896320e+01,.6870266e+01,.6842505e+01,.6814432e+01,&
11726  & .7018842e+01,.6992813e+01,.6966297e+01,.6939182e+01,.6910339e+01,&
11727  & .7104680e+01,.7079554e+01,.7053120e+01,.7025060e+01,.6997053e+01,&
11728  & .7178134e+01,.7153173e+01,.7126816e+01,.7099394e+01,.7069733e+01,&
11729  & .7237652e+01,.7212460e+01,.7187023e+01,.7158873e+01,.7129293e+01,&
11730  & .7288276e+01,.7263276e+01,.7236743e+01,.7208943e+01,.7178798e+01,&
11731  & .7329577e+01,.7304627e+01,.7277602e+01,.7249474e+01,.7218919e+01,&
11732  & .7364634e+01,.7339549e+01,.7311831e+01,.7282930e+01,.7252217e+01,&
11733  & .7393382e+01,.7367435e+01,.7340013e+01,.7310737e+01,.7279210e+01,&
11734  & .7416720e+01,.7390784e+01,.7362566e+01,.7332879e+01,.7300963e+01,&
11735  & .7435429e+01,.7408936e+01,.7380806e+01,.7350034e+01,.7317321e+01,&
11736  & .7450559e+01,.7423883e+01,.7395076e+01,.7363982e+01,.7330904e+01,&
11737  & .7462543e+01,.7435279e+01,.7405991e+01,.7374365e+01,.7340536e+01,&
11738  & .7471315e+01,.7443887e+01,.7414078e+01,.7381879e+01,.7347478e+01,&
11739  & .7478800e+01,.7450609e+01,.7419846e+01,.7387182e+01,.7352811e+01,&
11740  & .7483666e+01,.7454950e+01,.7423611e+01,.7390401e+01,.7355051e+01,&
11741  & .7487253e+01,.7457765e+01,.7425717e+01,.7391895e+01,.7356050e+01,&
11742  & .7488506e+01,.7458765e+01,.7426508e+01,.7392054e+01,.7355156e+01,&
11743  & .7489850e+01,.7459250e+01,.7426035e+01,.7391305e+01,.7353645e+01,&
11744  & .7492443e+01,.7461624e+01,.7428244e+01,.7392628e+01,.7354878e+01,&
11745  & .7497726e+01,.7466429e+01,.7432747e+01,.7397279e+01,.7358181e+01/
11746 
11747  data absb(121:235,10) / &
11748  & .7505737e+01,.7474800e+01,.7440929e+01,.7405596e+01,.7366801e+01,&
11749  & .7513970e+01,.7482707e+01,.7449119e+01,.7413672e+01,.7375439e+01,&
11750  & .7520741e+01,.7489941e+01,.7456502e+01,.7420983e+01,.7383218e+01,&
11751  & .7530440e+01,.7499850e+01,.7466874e+01,.7431912e+01,.7393870e+01,&
11752  & .7538723e+01,.7509468e+01,.7476827e+01,.7442592e+01,.7405041e+01,&
11753  & .7547204e+01,.7518633e+01,.7486628e+01,.7452286e+01,.7415815e+01,&
11754  & .7556213e+01,.7528691e+01,.7497855e+01,.7463955e+01,.7428134e+01,&
11755  & .7565953e+01,.7538872e+01,.7508898e+01,.7475761e+01,.7440938e+01,&
11756  & .7575062e+01,.7548586e+01,.7519907e+01,.7487622e+01,.7453098e+01,&
11757  & .7584131e+01,.7558667e+01,.7530653e+01,.7499618e+01,.7465741e+01,&
11758  & .7593779e+01,.7569486e+01,.7542361e+01,.7512145e+01,.7479280e+01,&
11759  & .7602657e+01,.7580065e+01,.7553432e+01,.7524179e+01,.7492239e+01,&
11760  & .7610916e+01,.7589199e+01,.7564289e+01,.7535843e+01,.7505070e+01,&
11761  & .7618668e+01,.7597891e+01,.7574135e+01,.7546664e+01,.7516426e+01,&
11762  & .7625181e+01,.7605859e+01,.7582588e+01,.7556608e+01,.7527157e+01,&
11763  & .7630829e+01,.7612911e+01,.7590839e+01,.7566252e+01,.7537672e+01,&
11764  & .7636310e+01,.7619845e+01,.7598957e+01,.7575011e+01,.7547925e+01,&
11765  & .7640632e+01,.7625839e+01,.7606042e+01,.7583011e+01,.7556788e+01,&
11766  & .7644312e+01,.7630300e+01,.7612179e+01,.7589767e+01,.7564669e+01,&
11767  & .7647263e+01,.7634539e+01,.7617801e+01,.7596900e+01,.7572581e+01,&
11768  & .7650044e+01,.7638295e+01,.7623237e+01,.7603393e+01,.7580008e+01,&
11769  & .7651936e+01,.7641531e+01,.7627671e+01,.7609561e+01,.7586309e+01,&
11770  & .7652501e+01,.7642169e+01,.7629030e+01,.7611100e+01,.7588572e+01/
11771 
11772 ! ---
11773  data forref(1:4,1:10) / &
11774  & .2145040e-06,.4604180e-06,.3576080e-05,.1920370e-05,.1425760e-05,&
11775  & .3644630e-05,.1170330e-04,.1120850e-04,.1015360e-04,.1240960e-04,&
11776  & .5091900e-04,.5652820e-04,.1433940e-03,.1547000e-03,.4664980e-03,&
11777  & .9188290e-03,.2516310e-02,.2417290e-02,.2400570e-02,.3504080e-02,&
11778  & .4103090e-02,.4168510e-02,.3909250e-02,.3836940e-02,.4453870e-02,&
11779  & .4486570e-02,.4323100e-02,.3707390e-02,.4581500e-02,.4600140e-02,&
11780  & .4502450e-02,.3367180e-02,.4682248e-02,.4680093e-02,.4684726e-02,&
11781  & .3680135e-02,.5243173e-02,.5159096e-02,.5132896e-02,.3931064e-02/
11782 
11783 
11784  data selfref(1:10,1:10) / &
11785  & .2170580e-03,.1763910e-03,.1433420e-03,.1164860e-03,.9466140e-04,&
11786  & .7692570e-04,.6251310e-04,.5080070e-04,.4128280e-04,.3354810e-04,&
11787  & .5980550e-03,.4848050e-03,.3930000e-03,.3185800e-03,.2582520e-03,&
11788  & .2093480e-03,.1697050e-03,.1375690e-03,.1115180e-03,.9040080e-04,&
11789  & .1026910e-02,.9302810e-03,.8427400e-03,.7634370e-03,.6915960e-03,&
11790  & .6265160e-03,.5675600e-03,.5141520e-03,.4657690e-03,.4219400e-03,&
11791  & .3885690e-02,.3650980e-02,.3430450e-02,.3223240e-02,.3028540e-02,&
11792  & .2845610e-02,.2673720e-02,.2512220e-02,.2360470e-02,.2217890e-02,&
11793  & .3498450e-01,.3266780e-01,.3050450e-01,.2848450e-01,.2659820e-01,&
11794  & .2483690e-01,.2319210e-01,.2165630e-01,.2022220e-01,.1888310e-01,&
11795  & .6137050e-01,.5626760e-01,.5158900e-01,.4729940e-01,.4336650e-01,&
11796  & .3976060e-01,.3645450e-01,.3342330e-01,.3064420e-01,.2809610e-01,&
11797  & .6569810e-01,.6026600e-01,.5528300e-01,.5071200e-01,.4651900e-01,&
11798  & .4267260e-01,.3914430e-01,.3590770e-01,.3293870e-01,.3021530e-01,&
11799  & .6717820e-01,.6164610e-01,.5656950e-01,.5191100e-01,.4763610e-01,&
11800  & .4371320e-01,.4011340e-01,.3681000e-01,.3377870e-01,.3099700e-01,&
11801  & .6790842e-01,.6238861e-01,.5731740e-01,.5265845e-01,.4837825e-01,&
11802  & .4444589e-01,.4083320e-01,.3751416e-01,.3446487e-01,.3166347e-01,&
11803  & .7454175e-01,.6857684e-01,.6309064e-01,.5804463e-01,.5340338e-01,&
11804  & .4913438e-01,.4520762e-01,.4159562e-01,.3827306e-01,.3521673e-01/
11805 
11806 ! --- ch4
11807  data absch4(1:10) / &
11808  & .1013810e-02,.6336920e-02,.1941850e-01,.4832100e-01,.2365740e-02,&
11809  & .6619730e-03,.5645520e-03,.2831830e-03,.6714756e-04,.2647642e-06/
11810 
11811 !........................................!
11812  end module module_radsw_kgb20 !
11813 !========================================!
11814 
11815 
11818 !========================================!
11820 !........................................!
11821 !
11822 ! ********* the original program descriptions ********* !
11823 ! !
11824 ! originally by j.delamere, atmospheric & environmental research. !
11825 ! revision: 2.4 !
11826 ! band 21: 6150-7700 cm-1 (low - j2o,co2; high - h2o,co2) !
11827 ! reformatted for f90 by jjmorcrette, ecmwf !
11828 ! !
11829 ! this table has been re-generated for reduced number of g-point !
11830 ! by y.t.hou, ncep !
11831 ! !
11832 ! ********* ********* end description ********* ********* !
11833 !
11834  use physparam, only : kind_phys
11835  use module_radsw_parameters, only : ng21
11836 
11837 !
11838  implicit none
11839 !
11840  private
11841 !
11843  integer, public :: msa21
11845  integer, public :: msb21
11847  integer, public :: msf21
11849  integer, public :: mfr21
11850  parameter(msa21=585, msb21=1175, msf21=10, mfr21=4)
11851 
11852  real (kind=kind_phys), public :: forref(mfr21,ng21)
11853 
11869  real (kind=kind_phys), public :: absa(msa21,ng21)
11870 
11882  real (kind=kind_phys), public :: absb(msb21,ng21)
11883 
11889  real (kind=kind_phys), public :: selfref(msf21,ng21)
11890 
11892  real (kind=kind_phys), parameter, public :: rayl = 9.41e-09
11893 
11894 
11895  data absa( 1:180, 1) / &
11896  & .3148200e-07,.6401000e-05,.9501700e-05,.1173500e-04,.1356100e-04,&
11897  & .1507700e-04,.1612100e-04,.1613800e-04,.4168700e-06,.2979100e-07,&
11898  & .6820600e-05,.1026000e-04,.1276400e-04,.1488000e-04,.1666500e-04,&
11899  & .1794400e-04,.1817000e-04,.4424600e-06,.2827200e-07,.7244800e-05,&
11900  & .1108300e-04,.1386600e-04,.1625600e-04,.1832300e-04,.1988600e-04,&
11901  & .2022900e-04,.4747200e-06,.2690000e-07,.7693500e-05,.1193400e-04,&
11902  & .1501500e-04,.1765700e-04,.2003800e-04,.2190200e-04,.2236100e-04,&
11903  & .5077000e-06,.2565600e-07,.8166100e-05,.1276900e-04,.1618100e-04,&
11904  & .1912700e-04,.2175500e-04,.2396300e-04,.2442100e-04,.5420500e-06,&
11905  & .2639600e-07,.5222500e-05,.7722100e-05,.9515000e-05,.1100400e-04,&
11906  & .1219500e-04,.1303700e-04,.1298500e-04,.3209700e-06,.2494500e-07,&
11907  & .5573700e-05,.8361200e-05,.1037500e-04,.1211600e-04,.1356900e-04,&
11908  & .1456100e-04,.1471100e-04,.3457900e-06,.2364600e-07,.5933300e-05,&
11909  & .9053100e-05,.1130100e-04,.1324700e-04,.1495600e-04,.1619300e-04,&
11910  & .1639600e-04,.3720000e-06,.2247600e-07,.6314400e-05,.9773200e-05,&
11911  & .1227400e-04,.1443600e-04,.1637700e-04,.1787900e-04,.1822300e-04,&
11912  & .4005100e-06,.2141500e-07,.6713300e-05,.1047100e-04,.1326400e-04,&
11913  & .1568100e-04,.1784300e-04,.1962700e-04,.1995400e-04,.4292900e-06,&
11914  & .2239700e-07,.4193000e-05,.6155900e-05,.7554400e-05,.8690200e-05,&
11915  & .9589600e-05,.1026900e-04,.1011400e-04,.2414800e-06,.2112400e-07,&
11916  & .4483700e-05,.6678600e-05,.8247500e-05,.9635300e-05,.1074200e-04,&
11917  & .1146900e-04,.1155600e-04,.2630400e-06,.1998800e-07,.4783900e-05,&
11918  & .7249900e-05,.9022900e-05,.1056000e-04,.1190000e-04,.1285900e-04,&
11919  & .1293500e-04,.2861800e-06,.1896800e-07,.5104000e-05,.7858600e-05,&
11920  & .9830800e-05,.1155100e-04,.1309400e-04,.1424000e-04,.1445500e-04,&
11921  & .3098300e-06,.1804700e-07,.5436600e-05,.8446200e-05,.1067000e-04,&
11922  & .1258500e-04,.1431300e-04,.1569500e-04,.1593400e-04,.3325500e-06,&
11923  & .1908000e-07,.3340900e-05,.4873800e-05,.5935400e-05,.6787700e-05,&
11924  & .7490000e-05,.7914200e-05,.7720000e-05,.1846600e-06,.1795400e-07,&
11925  & .3591000e-05,.5296000e-05,.6503700e-05,.7574400e-05,.8408200e-05,&
11926  & .8942200e-05,.8930200e-05,.2029200e-06,.1695400e-07,.3831700e-05,&
11927  & .5753600e-05,.7132200e-05,.8342400e-05,.9378800e-05,.1006300e-04,&
11928  & .1009800e-04,.2217300e-06,.1605900e-07,.4093200e-05,.6258600e-05,&
11929  & .7796100e-05,.9147500e-05,.1034700e-04,.1122200e-04,.1131200e-04,&
11930  & .2400500e-06,.1525400e-07,.4367800e-05,.6752500e-05,.8487300e-05,&
11931  & .9999500e-05,.1135300e-04,.1241600e-04,.1258600e-04,.2593900e-06/
11932 
11933  data absa(181:315, 1) / &
11934  & .1626100e-07,.2654000e-05,.3854100e-05,.4644300e-05,.5296100e-05,&
11935  & .5805400e-05,.6071800e-05,.5854000e-05,.1427400e-06,.1526500e-07,&
11936  & .2859800e-05,.4183100e-05,.5122100e-05,.5911000e-05,.6520700e-05,&
11937  & .6976100e-05,.6868500e-05,.1572500e-06,.1438400e-07,.3062300e-05,&
11938  & .4552800e-05,.5612400e-05,.6565000e-05,.7343600e-05,.7820800e-05,&
11939  & .7852300e-05,.1727100e-06,.1359900e-07,.3272000e-05,.4962200e-05,&
11940  & .6160500e-05,.7224400e-05,.8158200e-05,.8797100e-05,.8809600e-05,&
11941  & .1876600e-06,.1289500e-07,.3498500e-05,.5383300e-05,.6724000e-05,&
11942  & .7909100e-05,.8968800e-05,.9769800e-05,.9863900e-05,.2037500e-06,&
11943  & .1389800e-07,.2098100e-05,.3038400e-05,.3604100e-05,.4104000e-05,&
11944  & .4433400e-05,.4576100e-05,.4395000e-05,.1102500e-06,.1301100e-07,&
11945  & .2264500e-05,.3289000e-05,.4004200e-05,.4585100e-05,.5047300e-05,&
11946  & .5325000e-05,.5185400e-05,.1222700e-06,.1223100e-07,.2432200e-05,&
11947  & .3584200e-05,.4391500e-05,.5125900e-05,.5690300e-05,.6034300e-05,&
11948  & .6016600e-05,.1350600e-06,.1153900e-07,.2603200e-05,.3910700e-05,&
11949  & .4832100e-05,.5652500e-05,.6362500e-05,.6807800e-05,.6802400e-05,&
11950  & .1471900e-06,.1092100e-07,.2786600e-05,.4257800e-05,.5291900e-05,&
11951  & .6218100e-05,.7036200e-05,.7614000e-05,.7651900e-05,.1605200e-06,&
11952  & .1188600e-07,.1656300e-05,.2386000e-05,.2827600e-05,.3144900e-05,&
11953  & .3377100e-05,.3430500e-05,.3282400e-05,.8494300e-07,.1109600e-07,&
11954  & .1787400e-05,.2586100e-05,.3110000e-05,.3542500e-05,.3873700e-05,&
11955  & .4046800e-05,.3893300e-05,.9473400e-07,.1040500e-07,.1928600e-05,&
11956  & .2816600e-05,.3441700e-05,.3978600e-05,.4380400e-05,.4675900e-05,&
11957  & .4583500e-05,.1053100e-06,.9794800e-08,.2068000e-05,.3074100e-05,&
11958  & .3780300e-05,.4416300e-05,.4942000e-05,.5247700e-05,.5250900e-05,&
11959  & .1151700e-06,.9252200e-08,.2214000e-05,.3355800e-05,.4154400e-05,&
11960  & .4871900e-05,.5496800e-05,.5922500e-05,.5902700e-05,.1261800e-06/
11961 
11962  data absa(316:450, 1) / &
11963  & .1016400e-07,.1305600e-05,.1869000e-05,.2194000e-05,.2421000e-05,&
11964  & .2550400e-05,.2567600e-05,.2444400e-05,.6602100e-07,.9461200e-08,&
11965  & .1410600e-05,.2039800e-05,.2413600e-05,.2742400e-05,.2957800e-05,&
11966  & .3044600e-05,.2918200e-05,.7398500e-07,.8848900e-08,.1525600e-05,&
11967  & .2212300e-05,.2689400e-05,.3070400e-05,.3380800e-05,.3552100e-05,&
11968  & .3452600e-05,.8266600e-07,.8311100e-08,.1639600e-05,.2415900e-05,&
11969  & .2956300e-05,.3450400e-05,.3819600e-05,.4042500e-05,.4009300e-05,&
11970  & .9094000e-07,.7834900e-08,.1757000e-05,.2639800e-05,.3254700e-05,&
11971  & .3806000e-05,.4281300e-05,.4573200e-05,.4546500e-05,.1002200e-06,&
11972  & .8698300e-08,.1028400e-05,.1473400e-05,.1697300e-05,.1855100e-05,&
11973  & .1922300e-05,.1922200e-05,.1828900e-05,.5346000e-07,.8071200e-08,&
11974  & .1114100e-05,.1601600e-05,.1890200e-05,.2102700e-05,.2250400e-05,&
11975  & .2280000e-05,.2174900e-05,.6018000e-07,.7528400e-08,.1203300e-05,&
11976  & .1737600e-05,.2084900e-05,.2371900e-05,.2590600e-05,.2697700e-05,&
11977  & .2591000e-05,.6688600e-07,.7054100e-08,.1297900e-05,.1895900e-05,&
11978  & .2309000e-05,.2669500e-05,.2936700e-05,.3123900e-05,.3057400e-05,&
11979  & .7397800e-07,.6635900e-08,.1393700e-05,.2072000e-05,.2544800e-05,&
11980  & .2968000e-05,.3320800e-05,.3519100e-05,.3509700e-05,.8172400e-07,&
11981  & .7400600e-08,.8170500e-06,.1161000e-05,.1332500e-05,.1430500e-05,&
11982  & .1466800e-05,.1464200e-05,.1376500e-05,.4472400e-07,.6847700e-08,&
11983  & .8830600e-06,.1264000e-05,.1476800e-05,.1632900e-05,.1720900e-05,&
11984  & .1730600e-05,.1644100e-05,.5068800e-07,.6371700e-08,.9552200e-06,&
11985  & .1378300e-05,.1630300e-05,.1854600e-05,.1996300e-05,.2057000e-05,&
11986  & .1967800e-05,.5605200e-07,.5957600e-08,.1033100e-05,.1497500e-05,&
11987  & .1818000e-05,.2077000e-05,.2281300e-05,.2402100e-05,.2335000e-05,&
11988  & .6241200e-07,.5594000e-08,.1110200e-05,.1637000e-05,.1999900e-05,&
11989  & .2334900e-05,.2590000e-05,.2732800e-05,.2705700e-05,.6946600e-07/
11990 
11991  data absa(451:585, 1) / &
11992  & .6061700e-08,.6716700e-06,.9559400e-06,.1093900e-05,.1176700e-05,&
11993  & .1205900e-05,.1203200e-05,.1131400e-05,.3709300e-07,.5608700e-08,&
11994  & .7270400e-06,.1040600e-05,.1213700e-05,.1343400e-05,.1417100e-05,&
11995  & .1424600e-05,.1352100e-05,.4191800e-07,.5218700e-08,.7868100e-06,&
11996  & .1133800e-05,.1341900e-05,.1525400e-05,.1642600e-05,.1695000e-05,&
11997  & .1620300e-05,.4633900e-07,.4879300e-08,.8501300e-06,.1232700e-05,&
11998  & .1497100e-05,.1710900e-05,.1877600e-05,.1978400e-05,.1924000e-05,&
11999  & .5172500e-07,.4581500e-08,.9142000e-06,.1342700e-05,.1645800e-05,&
12000  & .1922100e-05,.2132300e-05,.2249000e-05,.2226300e-05,.5755500e-07,&
12001  & .4962900e-08,.5522300e-06,.7867700e-06,.8978900e-06,.9677800e-06,&
12002  & .9914800e-06,.9888300e-06,.9302800e-06,.3061000e-07,.4592000e-08,&
12003  & .5983200e-06,.8563200e-06,.9973000e-06,.1105200e-05,.1166500e-05,&
12004  & .1172900e-05,.1112500e-05,.3455300e-07,.4272700e-08,.6476000e-06,&
12005  & .9331500e-06,.1104100e-05,.1255200e-05,.1352100e-05,.1395600e-05,&
12006  & .1333300e-05,.3817600e-07,.3994900e-08,.6992600e-06,.1011000e-05,&
12007  & .1230400e-05,.1408300e-05,.1544200e-05,.1628300e-05,.1583700e-05,&
12008  & .4264800e-07,.3751000e-08,.7523900e-06,.1100600e-05,.1353500e-05,&
12009  & .1578500e-05,.1754700e-05,.1850100e-05,.1829800e-05,.4745200e-07,&
12010  & .4063300e-08,.4537800e-06,.6471900e-06,.7363700e-06,.7957100e-06,&
12011  & .8150300e-06,.8126400e-06,.7648800e-06,.2508000e-07,.3759600e-08,&
12012  & .4920800e-06,.7043000e-06,.8189400e-06,.9085600e-06,.9591900e-06,&
12013  & .9643500e-06,.9141100e-06,.2829300e-07,.3498200e-08,.5325900e-06,&
12014  & .7637000e-06,.9076100e-06,.1031600e-05,.1111600e-05,.1147200e-05,&
12015  & .1095600e-05,.3126700e-07,.3270700e-08,.5748800e-06,.8283300e-06,&
12016  & .1009600e-05,.1157700e-05,.1268800e-05,.1338800e-05,.1301500e-05,&
12017  & .3493000e-07,.3071000e-08,.6183200e-06,.9025000e-06,.1112000e-05,&
12018  & .1296200e-05,.1442400e-05,.1520600e-05,.1503200e-05,.3886100e-07/
12019 
12020  data absa( 1:180, 2) / &
12021  & .1421500e-06,.6572600e-04,.1132700e-03,.1532400e-03,.1847300e-03,&
12022  & .2065800e-03,.2160300e-03,.2061700e-03,.1325200e-04,.1345200e-06,&
12023  & .6952100e-04,.1205900e-03,.1634200e-03,.1961300e-03,.2198700e-03,&
12024  & .2294600e-03,.2187900e-03,.1481600e-04,.1276600e-06,.7331300e-04,&
12025  & .1278600e-03,.1730300e-03,.2075400e-03,.2332600e-03,.2432400e-03,&
12026  & .2295600e-03,.1653600e-04,.1214700e-06,.7708700e-04,.1352100e-03,&
12027  & .1826300e-03,.2190400e-03,.2461400e-03,.2563700e-03,.2406000e-03,&
12028  & .1809200e-04,.1158400e-06,.8094600e-04,.1423300e-03,.1923000e-03,&
12029  & .2304700e-03,.2586900e-03,.2690400e-03,.2513900e-03,.1976800e-04,&
12030  & .1191800e-06,.5516700e-04,.9455700e-04,.1276000e-03,.1532200e-03,&
12031  & .1714800e-03,.1789400e-03,.1704900e-03,.1071000e-04,.1126400e-06,&
12032  & .5858100e-04,.1011300e-03,.1364800e-03,.1633500e-03,.1828800e-03,&
12033  & .1905900e-03,.1813100e-03,.1206700e-04,.1067800e-06,.6193500e-04,&
12034  & .1075600e-03,.1449700e-03,.1733500e-03,.1943700e-03,.2024500e-03,&
12035  & .1907000e-03,.1355300e-04,.1014900e-06,.6526100e-04,.1140400e-03,&
12036  & .1533100e-03,.1832300e-03,.2055900e-03,.2138500e-03,.2002400e-03,&
12037  & .1480100e-04,.9669900e-07,.6869800e-04,.1203800e-03,.1616700e-03,&
12038  & .1930800e-03,.2163500e-03,.2247900e-03,.2096400e-03,.1624500e-04,&
12039  & .1011200e-06,.4539900e-04,.7722600e-04,.1039700e-03,.1246200e-03,&
12040  & .1395600e-03,.1453100e-03,.1381600e-03,.8363500e-05,.9538100e-07,&
12041  & .4835700e-04,.8298600e-04,.1117300e-03,.1333800e-03,.1489800e-03,&
12042  & .1553400e-03,.1478600e-03,.9491500e-05,.9025700e-07,.5135500e-04,&
12043  & .8872700e-04,.1192000e-03,.1421500e-03,.1585900e-03,.1654100e-03,&
12044  & .1562200e-03,.1068300e-04,.8565300e-07,.5432200e-04,.9436900e-04,&
12045  & .1264600e-03,.1507200e-03,.1683800e-03,.1753600e-03,.1643300e-03,&
12046  & .1176400e-04,.8149200e-07,.5730000e-04,.9994000e-04,.1335500e-03,&
12047  & .1592900e-03,.1780000e-03,.1849600e-03,.1723400e-03,.1297900e-04,&
12048  & .8613200e-07,.3691000e-04,.6234600e-04,.8362800e-04,.1002500e-03,&
12049  & .1122400e-03,.1170600e-03,.1110900e-03,.6471500e-05,.8106200e-07,&
12050  & .3949000e-04,.6727400e-04,.9038400e-04,.1078500e-03,.1202600e-03,&
12051  & .1254300e-03,.1194400e-03,.7399100e-05,.7655300e-07,.4205500e-04,&
12052  & .7226900e-04,.9695600e-04,.1152800e-03,.1283300e-03,.1339600e-03,&
12053  & .1269700e-03,.8389900e-05,.7251600e-07,.4469600e-04,.7723500e-04,&
12054  & .1032100e-03,.1227600e-03,.1367400e-03,.1426000e-03,.1338400e-03,&
12055  & .9305200e-05,.6888100e-07,.4727300e-04,.8211800e-04,.1093500e-03,&
12056  & .1301600e-03,.1450600e-03,.1508000e-03,.1406200e-03,.1031400e-04/
12057 
12058  data absa(181:315, 2) / &
12059  & .7340100e-07,.2977200e-04,.4995700e-04,.6672000e-04,.8010400e-04,&
12060  & .8976100e-04,.9385300e-04,.8895300e-04,.5017100e-05,.6891600e-07,&
12061  & .3197600e-04,.5421700e-04,.7257000e-04,.8667100e-04,.9665300e-04,&
12062  & .1007300e-03,.9587500e-04,.5774600e-05,.6494500e-07,.3421900e-04,&
12063  & .5841700e-04,.7832700e-04,.9295000e-04,.1035800e-03,.1080300e-03,&
12064  & .1027400e-03,.6619700e-05,.6140500e-07,.3645700e-04,.6269400e-04,&
12065  & .8375600e-04,.9935600e-04,.1105800e-03,.1154200e-03,.1085800e-03,&
12066  & .7372900e-05,.5822900e-07,.3871300e-04,.6705900e-04,.8903300e-04,&
12067  & .1057300e-03,.1176400e-03,.1224300e-03,.1144000e-03,.8214900e-05,&
12068  & .6272300e-07,.2375000e-04,.3964300e-04,.5279600e-04,.6347800e-04,&
12069  & .7115100e-04,.7464000e-04,.7019300e-04,.3889900e-05,.5873500e-07,&
12070  & .2565700e-04,.4327400e-04,.5771900e-04,.6912400e-04,.7737500e-04,&
12071  & .8049800e-04,.7654300e-04,.4483300e-05,.5522200e-07,.2756300e-04,&
12072  & .4686600e-04,.6269900e-04,.7449400e-04,.8294600e-04,.8665300e-04,&
12073  & .8250900e-04,.5163500e-05,.5210300e-07,.2952800e-04,.5047000e-04,&
12074  & .6747300e-04,.7989900e-04,.8900400e-04,.9278600e-04,.8762800e-04,&
12075  & .5810400e-05,.4931700e-07,.3144400e-04,.5417500e-04,.7200000e-04,&
12076  & .8532200e-04,.9488500e-04,.9882600e-04,.9264800e-04,.6499700e-05,&
12077  & .5363400e-07,.1886200e-04,.3132500e-04,.4157500e-04,.5014100e-04,&
12078  & .5619000e-04,.5888200e-04,.5502600e-04,.2979500e-05,.5008400e-07,&
12079  & .2047400e-04,.3434200e-04,.4573200e-04,.5488400e-04,.6149400e-04,&
12080  & .6418700e-04,.6085700e-04,.3458900e-05,.4697300e-07,.2206300e-04,&
12081  & .3741100e-04,.4989300e-04,.5947500e-04,.6627900e-04,.6912900e-04,&
12082  & .6575800e-04,.3998300e-05,.4422400e-07,.2376400e-04,.4048100e-04,&
12083  & .5410700e-04,.6402600e-04,.7135000e-04,.7432800e-04,.7051300e-04,&
12084  & .4552600e-05,.4177700e-07,.2543400e-04,.4355500e-04,.5795800e-04,&
12085  & .6859900e-04,.7630400e-04,.7945600e-04,.7464900e-04,.5104600e-05/
12086 
12087  data absa(316:450, 2) / &
12088  & .4585700e-07,.1494500e-04,.2459400e-04,.3269600e-04,.3957100e-04,&
12089  & .4434800e-04,.4609000e-04,.4303400e-04,.2283300e-05,.4269700e-07,&
12090  & .1626500e-04,.2719800e-04,.3610800e-04,.4338100e-04,.4864200e-04,&
12091  & .5094300e-04,.4784800e-04,.2666900e-05,.3994400e-07,.1761600e-04,&
12092  & .2977500e-04,.3957700e-04,.4736600e-04,.5279100e-04,.5499200e-04,&
12093  & .5223600e-04,.3093200e-05,.3752200e-07,.1904200e-04,.3235100e-04,&
12094  & .4312600e-04,.5115300e-04,.5698700e-04,.5931600e-04,.5643800e-04,&
12095  & .3566600e-05,.3537600e-07,.2047600e-04,.3494600e-04,.4652100e-04,&
12096  & .5500900e-04,.6122100e-04,.6371400e-04,.6003500e-04,.4003700e-05,&
12097  & .3923300e-07,.1181700e-04,.1925400e-04,.2559600e-04,.3084300e-04,&
12098  & .3457400e-04,.3603500e-04,.3342500e-04,.1767300e-05,.3641800e-07,&
12099  & .1291400e-04,.2140400e-04,.2837200e-04,.3416100e-04,.3832100e-04,&
12100  & .4005300e-04,.3743500e-04,.2075100e-05,.3397900e-07,.1402600e-04,&
12101  & .2357400e-04,.3131600e-04,.3751400e-04,.4197700e-04,.4374700e-04,&
12102  & .4134600e-04,.2415100e-05,.3184400e-07,.1520500e-04,.2577000e-04,&
12103  & .3423100e-04,.4072300e-04,.4531500e-04,.4720200e-04,.4486900e-04,&
12104  & .2815100e-05,.2996100e-07,.1642000e-04,.2795500e-04,.3718700e-04,&
12105  & .4394100e-04,.4887300e-04,.5085600e-04,.4817000e-04,.3173300e-05,&
12106  & .3337300e-07,.9350500e-05,.1521600e-04,.2019800e-04,.2424400e-04,&
12107  & .2707700e-04,.2818600e-04,.2599600e-04,.1394100e-05,.3089300e-07,&
12108  & .1028400e-04,.1690200e-04,.2246800e-04,.2707200e-04,.3038200e-04,&
12109  & .3160300e-04,.2945600e-04,.1635200e-05,.2875400e-07,.1120700e-04,&
12110  & .1871500e-04,.2484900e-04,.2981500e-04,.3337900e-04,.3490100e-04,&
12111  & .3283600e-04,.1918800e-05,.2689200e-07,.1217200e-04,.2057800e-04,&
12112  & .2726900e-04,.3253600e-04,.3618200e-04,.3770300e-04,.3575000e-04,&
12113  & .2246700e-05,.2525500e-07,.1319500e-04,.2242200e-04,.2978100e-04,&
12114  & .3522000e-04,.3915700e-04,.4071900e-04,.3872900e-04,.2553500e-05/
12115 
12116  data absa(451:585, 2) / &
12117  & .2733500e-07,.7749100e-05,.1260700e-04,.1669500e-04,.2009300e-04,&
12118  & .2243100e-04,.2334500e-04,.2152200e-04,.1156900e-05,.2530300e-07,&
12119  & .8532200e-05,.1402200e-04,.1859300e-04,.2237800e-04,.2513300e-04,&
12120  & .2616100e-04,.2437900e-04,.1370900e-05,.2355100e-07,.9291200e-05,&
12121  & .1553600e-04,.2061800e-04,.2472200e-04,.2764700e-04,.2887400e-04,&
12122  & .2719600e-04,.1609900e-05,.2202500e-07,.1011700e-04,.1711500e-04,&
12123  & .2264500e-04,.2697400e-04,.2994700e-04,.3121000e-04,.2958100e-04,&
12124  & .1884500e-05,.2068400e-07,.1097700e-04,.1864500e-04,.2473400e-04,&
12125  & .2920300e-04,.3245300e-04,.3373300e-04,.3205600e-04,.2132600e-05,&
12126  & .2238000e-07,.6414400e-05,.1043600e-04,.1380200e-04,.1662200e-04,&
12127  & .1855700e-04,.1931400e-04,.1779300e-04,.9590600e-06,.2071600e-07,&
12128  & .7060300e-05,.1162500e-04,.1538500e-04,.1850300e-04,.2077600e-04,&
12129  & .2163000e-04,.2015200e-04,.1136300e-05,.1928200e-07,.7696000e-05,&
12130  & .1288600e-04,.1708700e-04,.2047500e-04,.2286700e-04,.2385600e-04,&
12131  & .2250600e-04,.1340000e-05,.1803200e-07,.8398300e-05,.1420600e-04,&
12132  & .1878300e-04,.2233400e-04,.2476400e-04,.2581500e-04,.2446100e-04,&
12133  & .1563700e-05,.1693400e-07,.9118600e-05,.1549100e-04,.2051300e-04,&
12134  & .2420100e-04,.2686400e-04,.2791700e-04,.2649100e-04,.1770700e-05,&
12135  & .1832300e-07,.5302200e-05,.8627300e-05,.1138500e-04,.1372900e-04,&
12136  & .1531800e-04,.1595200e-04,.1469300e-04,.7892700e-06,.1696100e-07,&
12137  & .5831600e-05,.9620400e-05,.1271700e-04,.1527500e-04,.1714100e-04,&
12138  & .1786300e-04,.1663900e-04,.9365900e-06,.1578700e-07,.6371000e-05,&
12139  & .1067500e-04,.1414000e-04,.1692500e-04,.1888100e-04,.1967500e-04,&
12140  & .1856400e-04,.1105000e-05,.1476400e-07,.6960700e-05,.1177900e-04,&
12141  & .1555400e-04,.1847500e-04,.2046100e-04,.2132000e-04,.2020700e-04,&
12142  & .1286800e-05,.1386500e-07,.7561100e-05,.1284300e-04,.1699100e-04,&
12143  & .2002900e-04,.2220800e-04,.2307900e-04,.2183800e-04,.1456500e-05/
12144 
12145  data absa( 1:180, 3) / &
12146  & .5594800e-06,.4347200e-03,.6568900e-03,.8023700e-03,.9032600e-03,&
12147  & .9599500e-03,.9424200e-03,.8180100e-03,.1838000e-03,.5317500e-06,&
12148  & .4539500e-03,.6877900e-03,.8404000e-03,.9459800e-03,.1001100e-02,&
12149  & .9848100e-03,.8574800e-03,.1956700e-03,.5064800e-06,.4683500e-03,&
12150  & .7140300e-03,.8768400e-03,.9852000e-03,.1039300e-02,.1023300e-02,&
12151  & .8972900e-03,.2072500e-03,.4833000e-06,.4814300e-03,.7397900e-03,&
12152  & .9106300e-03,.1021200e-02,.1076200e-02,.1060000e-02,.9350700e-03,&
12153  & .2181400e-03,.4619500e-06,.4941300e-03,.7647000e-03,.9420800e-03,&
12154  & .1054700e-02,.1109900e-02,.1096000e-02,.9716400e-03,.2305600e-03,&
12155  & .4681300e-06,.3671100e-03,.5574300e-03,.6807000e-03,.7661400e-03,&
12156  & .8144200e-03,.7994000e-03,.6969100e-03,.1498800e-03,.4445000e-06,&
12157  & .3841300e-03,.5850200e-03,.7150600e-03,.8040900e-03,.8519100e-03,&
12158  & .8372200e-03,.7323100e-03,.1598500e-03,.4230100e-06,.3974400e-03,&
12159  & .6085200e-03,.7474100e-03,.8392000e-03,.8858800e-03,.8720600e-03,&
12160  & .7667700e-03,.1696800e-03,.4033500e-06,.4092700e-03,.6320000e-03,&
12161  & .7783500e-03,.8719000e-03,.9184300e-03,.9046700e-03,.7985900e-03,&
12162  & .1794800e-03,.3852900e-06,.4203400e-03,.6535300e-03,.8075800e-03,&
12163  & .9024800e-03,.9492900e-03,.9371500e-03,.8313600e-03,.1901800e-03,&
12164  & .3959100e-06,.3045900e-03,.4636400e-03,.5659000e-03,.6368000e-03,&
12165  & .6768100e-03,.6651700e-03,.5810600e-03,.1193600e-03,.3753800e-06,&
12166  & .3203600e-03,.4887400e-03,.5964900e-03,.6717000e-03,.7116100e-03,&
12167  & .6994300e-03,.6115900e-03,.1280400e-03,.3567500e-06,.3332100e-03,&
12168  & .5099900e-03,.6259100e-03,.7031900e-03,.7433300e-03,.7301500e-03,&
12169  & .6407000e-03,.1364200e-03,.3397800e-06,.3438200e-03,.5310200e-03,&
12170  & .6539100e-03,.7327800e-03,.7730300e-03,.7599000e-03,.6697900e-03,&
12171  & .1447700e-03,.3242200e-06,.3541600e-03,.5507100e-03,.6804200e-03,&
12172  & .7604100e-03,.8011800e-03,.7891400e-03,.6992300e-03,.1536500e-03,&
12173  & .3359800e-06,.2497000e-03,.3805300e-03,.4646400e-03,.5223400e-03,&
12174  & .5548800e-03,.5467500e-03,.4779400e-03,.9527500e-04,.3180000e-06,&
12175  & .2641500e-03,.4031300e-03,.4921000e-03,.5535900e-03,.5866100e-03,&
12176  & .5769400e-03,.5039300e-03,.1029200e-03,.3017700e-06,.2763800e-03,&
12177  & .4226800e-03,.5182300e-03,.5834800e-03,.6159100e-03,.6049700e-03,&
12178  & .5294700e-03,.1101600e-03,.2870300e-06,.2861200e-03,.4416500e-03,&
12179  & .5432600e-03,.6101000e-03,.6429900e-03,.6315100e-03,.5555800e-03,&
12180  & .1170800e-03,.2735600e-06,.2955000e-03,.4590300e-03,.5670300e-03,&
12181  & .6352200e-03,.6683900e-03,.6581200e-03,.5814200e-03,.1244400e-03/
12182 
12183  data absa(181:315, 3) / &
12184  & .2851700e-06,.2030500e-03,.3094000e-03,.3785400e-03,.4251600e-03,&
12185  & .4516700e-03,.4461700e-03,.3900600e-03,.7639400e-04,.2694300e-06,&
12186  & .2163100e-03,.3294200e-03,.4027900e-03,.4528100e-03,.4795900e-03,&
12187  & .4727400e-03,.4121900e-03,.8309300e-04,.2552600e-06,.2276000e-03,&
12188  & .3473600e-03,.4260300e-03,.4792800e-03,.5057300e-03,.4975300e-03,&
12189  & .4342300e-03,.8913700e-04,.2424500e-06,.2366100e-03,.3642300e-03,&
12190  & .4483200e-03,.5037300e-03,.5302100e-03,.5209200e-03,.4571500e-03,&
12191  & .9502600e-04,.2307900e-06,.2449000e-03,.3797900e-03,.4695800e-03,&
12192  & .5267100e-03,.5536000e-03,.5442200e-03,.4798200e-03,.1010000e-03,&
12193  & .2425800e-06,.1637400e-03,.2488900e-03,.3052600e-03,.3425600e-03,&
12194  & .3643700e-03,.3605400e-03,.3164300e-03,.6098300e-04,.2287300e-06,&
12195  & .1755700e-03,.2667400e-03,.3266200e-03,.3669800e-03,.3886200e-03,&
12196  & .3839500e-03,.3348100e-03,.6671700e-04,.2163200e-06,.1859600e-03,&
12197  & .2831500e-03,.3471000e-03,.3903200e-03,.4118600e-03,.4059700e-03,&
12198  & .3534700e-03,.7180500e-04,.2051500e-06,.1941200e-03,.2982500e-03,&
12199  & .3667200e-03,.4122300e-03,.4337000e-03,.4265400e-03,.3730800e-03,&
12200  & .7695000e-04,.1950000e-06,.2016300e-03,.3117700e-03,.3857300e-03,&
12201  & .4329800e-03,.4547400e-03,.4465900e-03,.3927300e-03,.8185400e-04,&
12202  & .2064400e-06,.1308800e-03,.1988300e-03,.2445300e-03,.2737900e-03,&
12203  & .2913300e-03,.2897200e-03,.2552700e-03,.4848300e-04,.1942200e-06,&
12204  & .1412300e-03,.2146400e-03,.2630700e-03,.2952000e-03,.3126200e-03,&
12205  & .3097600e-03,.2705700e-03,.5318900e-04,.1833400e-06,.1505600e-03,&
12206  & .2294500e-03,.2810200e-03,.3157000e-03,.3333600e-03,.3292100e-03,&
12207  & .2865700e-03,.5766400e-04,.1735900e-06,.1584500e-03,.2425400e-03,&
12208  & .2981200e-03,.3353300e-03,.3527300e-03,.3473700e-03,.3029000e-03,&
12209  & .6208000e-04,.1647600e-06,.1651500e-03,.2547200e-03,.3149200e-03,&
12210  & .3536800e-03,.3713400e-03,.3646600e-03,.3197100e-03,.6628300e-04/
12211 
12212  data absa(316:450, 3) / &
12213  & .1756400e-06,.1037700e-03,.1579900e-03,.1944300e-03,.2177500e-03,&
12214  & .2322100e-03,.2317800e-03,.2051800e-03,.3861300e-04,.1648600e-06,&
12215  & .1129100e-03,.1717700e-03,.2106000e-03,.2360500e-03,.2502300e-03,&
12216  & .2486000e-03,.2184000e-03,.4257400e-04,.1553200e-06,.1216000e-03,&
12217  & .1847200e-03,.2261300e-03,.2538300e-03,.2681300e-03,.2656900e-03,&
12218  & .2314900e-03,.4643800e-04,.1467900e-06,.1287100e-03,.1962900e-03,&
12219  & .2411700e-03,.2710100e-03,.2854600e-03,.2814800e-03,.2451100e-03,&
12220  & .5013200e-04,.1391300e-06,.1347000e-03,.2071100e-03,.2558300e-03,&
12221  & .2873500e-03,.3017100e-03,.2965300e-03,.2593100e-03,.5389200e-04,&
12222  & .1495000e-06,.8194100e-04,.1247300e-03,.1536300e-03,.1725700e-03,&
12223  & .1840900e-03,.1842400e-03,.1643900e-03,.3077200e-04,.1399800e-06,&
12224  & .8970200e-04,.1365500e-03,.1676300e-03,.1877900e-03,.1991900e-03,&
12225  & .1987700e-03,.1758100e-03,.3402200e-04,.1316000e-06,.9726300e-04,&
12226  & .1477600e-03,.1808900e-03,.2029200e-03,.2145100e-03,.2131700e-03,&
12227  & .1864000e-03,.3738100e-04,.1241500e-06,.1038900e-03,.1581700e-03,&
12228  & .1940400e-03,.2179400e-03,.2298000e-03,.2271500e-03,.1978400e-03,&
12229  & .4045700e-04,.1174900e-06,.1093400e-03,.1676800e-03,.2068000e-03,&
12230  & .2323400e-03,.2441400e-03,.2402600e-03,.2095900e-03,.4358600e-04,&
12231  & .1265800e-06,.6476300e-04,.9869000e-04,.1217000e-03,.1370900e-03,&
12232  & .1464400e-03,.1470900e-03,.1321500e-03,.2473700e-04,.1182600e-06,&
12233  & .7140500e-04,.1087500e-03,.1336800e-03,.1497800e-03,.1590100e-03,&
12234  & .1593700e-03,.1415300e-03,.2748700e-04,.1109700e-06,.7785700e-04,&
12235  & .1184200e-03,.1451000e-03,.1626100e-03,.1720400e-03,.1712900e-03,&
12236  & .1504100e-03,.3025000e-04,.1045100e-06,.8376400e-04,.1276200e-03,&
12237  & .1562500e-03,.1754400e-03,.1851600e-03,.1834500e-03,.1601000e-03,&
12238  & .3289100e-04,.9876700e-07,.8883300e-04,.1359500e-03,.1672300e-03,&
12239  & .1879800e-03,.1976600e-03,.1947700e-03,.1697900e-03,.3554700e-04/
12240 
12241  data absa(451:585, 3) / &
12242  & .1036800e-06,.5371400e-04,.8174800e-04,.1008500e-03,.1134900e-03,&
12243  & .1212600e-03,.1218000e-03,.1095000e-03,.2078700e-04,.9685400e-07,&
12244  & .5917500e-04,.9013100e-04,.1108500e-03,.1242500e-03,.1316600e-03,&
12245  & .1320700e-03,.1173300e-03,.2302800e-04,.9088200e-07,.6459300e-04,&
12246  & .9827500e-04,.1204100e-03,.1349700e-03,.1427300e-03,.1421500e-03,&
12247  & .1247900e-03,.2536200e-04,.8560200e-07,.6954500e-04,.1059200e-03,&
12248  & .1298200e-03,.1458300e-03,.1538800e-03,.1522800e-03,.1329700e-03,&
12249  & .2758500e-04,.8088900e-07,.7373100e-04,.1129000e-03,.1391400e-03,&
12250  & .1563700e-03,.1643100e-03,.1618900e-03,.1411600e-03,.2982800e-04,&
12251  & .8488600e-07,.4441800e-04,.6764100e-04,.8349000e-04,.9390600e-04,&
12252  & .1003400e-03,.1007500e-03,.9061400e-04,.1735000e-04,.7929700e-07,&
12253  & .4898100e-04,.7465600e-04,.9182100e-04,.1029900e-03,.1089100e-03,&
12254  & .1093300e-03,.9722100e-04,.1923700e-04,.7440800e-07,.5355300e-04,&
12255  & .8150300e-04,.9987200e-04,.1119600e-03,.1183200e-03,.1178200e-03,&
12256  & .1034100e-03,.2118900e-04,.7008500e-07,.5769800e-04,.8788700e-04,&
12257  & .1078100e-03,.1210700e-03,.1277500e-03,.1262400e-03,.1103400e-03,&
12258  & .2303800e-04,.6622600e-07,.6117700e-04,.9369400e-04,.1156700e-03,&
12259  & .1299500e-03,.1364500e-03,.1343600e-03,.1172600e-03,.2491300e-04,&
12260  & .6949900e-07,.3671600e-04,.5590200e-04,.6906700e-04,.7763500e-04,&
12261  & .8293400e-04,.8330200e-04,.7490500e-04,.1441900e-04,.6492300e-07,&
12262  & .4051100e-04,.6177900e-04,.7598400e-04,.8523900e-04,.9009000e-04,&
12263  & .9045600e-04,.8026400e-04,.1599600e-04,.6092000e-07,.4435600e-04,&
12264  & .6753300e-04,.8274600e-04,.9281600e-04,.9801700e-04,.9759000e-04,&
12265  & .8562100e-04,.1762300e-04,.5738100e-07,.4782600e-04,.7287400e-04,&
12266  & .8944300e-04,.1004000e-03,.1058800e-03,.1045600e-03,.9142900e-04,&
12267  & .1914400e-04,.5422100e-07,.5075000e-04,.7769800e-04,.9600500e-04,&
12268  & .1078400e-03,.1131800e-03,.1113900e-03,.9725800e-04,.2067100e-04/
12269 
12270  data absa( 1:180, 4) / &
12271  & .3665400e-05,.1368900e-02,.2110800e-02,.2631400e-02,.2945800e-02,&
12272  & .3083100e-02,.3020700e-02,.2600300e-02,.9368900e-03,.3530400e-05,&
12273  & .1402500e-02,.2171600e-02,.2707800e-02,.3055100e-02,.3194800e-02,&
12274  & .3164900e-02,.2725800e-02,.9798300e-03,.3405900e-05,.1434000e-02,&
12275  & .2221400e-02,.2777300e-02,.3134800e-02,.3304900e-02,.3283500e-02,&
12276  & .2846100e-02,.1025100e-02,.3289500e-05,.1461000e-02,.2259600e-02,&
12277  & .2831400e-02,.3211300e-02,.3413100e-02,.3392100e-02,.2950800e-02,&
12278  & .1073000e-02,.3181400e-05,.1481400e-02,.2290500e-02,.2878900e-02,&
12279  & .3278500e-02,.3499600e-02,.3495200e-02,.3052800e-02,.1120500e-02,&
12280  & .3029300e-05,.1160000e-02,.1794600e-02,.2237000e-02,.2520500e-02,&
12281  & .2643200e-02,.2617200e-02,.2269100e-02,.7846600e-03,.2917300e-05,&
12282  & .1191600e-02,.1846800e-02,.2307200e-02,.2609400e-02,.2747700e-02,&
12283  & .2738800e-02,.2380900e-02,.8235600e-03,.2815200e-05,.1220300e-02,&
12284  & .1893900e-02,.2369100e-02,.2681400e-02,.2850600e-02,.2841400e-02,&
12285  & .2482500e-02,.8616100e-03,.2720700e-05,.1245400e-02,.1929100e-02,&
12286  & .2418000e-02,.2748900e-02,.2938000e-02,.2934500e-02,.2580800e-02,&
12287  & .9032800e-03,.2631600e-05,.1264400e-02,.1958600e-02,.2462400e-02,&
12288  & .2814600e-02,.3012500e-02,.3023700e-02,.2669500e-02,.9467800e-03,&
12289  & .2528800e-05,.9734800e-03,.1507000e-02,.1879500e-02,.2120600e-02,&
12290  & .2236200e-02,.2221000e-02,.1936900e-02,.6430800e-03,.2435300e-05,&
12291  & .1003100e-02,.1555200e-02,.1944100e-02,.2201300e-02,.2325700e-02,&
12292  & .2328600e-02,.2036200e-02,.6752900e-03,.2349500e-05,.1029500e-02,&
12293  & .1598600e-02,.2001900e-02,.2266300e-02,.2416000e-02,.2420400e-02,&
12294  & .2127600e-02,.7099100e-03,.2269900e-05,.1053300e-02,.1633700e-02,&
12295  & .2048900e-02,.2328800e-02,.2491100e-02,.2501600e-02,.2214800e-02,&
12296  & .7463500e-03,.2195100e-05,.1072400e-02,.1662500e-02,.2089100e-02,&
12297  & .2389600e-02,.2558200e-02,.2581200e-02,.2292500e-02,.7843200e-03,&
12298  & .2116900e-05,.8105300e-03,.1256800e-02,.1564700e-02,.1765400e-02,&
12299  & .1866200e-02,.1856800e-02,.1626900e-02,.5260800e-03,.2040700e-05,&
12300  & .8387500e-03,.1301900e-02,.1625200e-02,.1838300e-02,.1944100e-02,&
12301  & .1953800e-02,.1713900e-02,.5532500e-03,.1967400e-05,.8632900e-03,&
12302  & .1341700e-02,.1678800e-02,.1898500e-02,.2024600e-02,.2031500e-02,&
12303  & .1797800e-02,.5825300e-03,.1899400e-05,.8855100e-03,.1375300e-02,&
12304  & .1723800e-02,.1956600e-02,.2092300e-02,.2103500e-02,.1872400e-02,&
12305  & .6143800e-03,.1835800e-05,.9044200e-03,.1404200e-02,.1761900e-02,&
12306  & .2011900e-02,.2154200e-02,.2174900e-02,.1942500e-02,.6476200e-03/
12307 
12308  data absa(181:315, 4) / &
12309  & .1772500e-05,.6714600e-03,.1039600e-02,.1293500e-02,.1457600e-02,&
12310  & .1543700e-02,.1534100e-02,.1353200e-02,.4298100e-03,.1709500e-05,&
12311  & .6977400e-03,.1082300e-02,.1347700e-02,.1522700e-02,.1611700e-02,&
12312  & .1622200e-02,.1430200e-02,.4528600e-03,.1647800e-05,.7204400e-03,&
12313  & .1119000e-02,.1396700e-02,.1578300e-02,.1681700e-02,.1689700e-02,&
12314  & .1504000e-02,.4778200e-03,.1589600e-05,.7413600e-03,.1151200e-02,&
12315  & .1439400e-02,.1630700e-02,.1743500e-02,.1753600e-02,.1568700e-02,&
12316  & .5046800e-03,.1535300e-05,.7597700e-03,.1179000e-02,.1475500e-02,&
12317  & .1681100e-02,.1799000e-02,.1817500e-02,.1627900e-02,.5335300e-03,&
12318  & .1485600e-05,.5516300e-03,.8518200e-03,.1058300e-02,.1193300e-02,&
12319  & .1263300e-02,.1251900e-02,.1112600e-02,.3496900e-03,.1432300e-05,&
12320  & .5753400e-03,.8921100e-03,.1108400e-02,.1251000e-02,.1324800e-02,&
12321  & .1330200e-02,.1181500e-02,.3689300e-03,.1381800e-05,.5970500e-03,&
12322  & .9255200e-03,.1153000e-02,.1301800e-02,.1386000e-02,.1394200e-02,&
12323  & .1243700e-02,.3899100e-03,.1331700e-05,.6167100e-03,.9556800e-03,&
12324  & .1192200e-02,.1348100e-02,.1442600e-02,.1450800e-02,.1300100e-02,&
12325  & .4124800e-03,.1285100e-05,.6341400e-03,.9822700e-03,.1226500e-02,&
12326  & .1393600e-02,.1491300e-02,.1506400e-02,.1351200e-02,.4369600e-03,&
12327  & .1245300e-05,.4498200e-03,.6928600e-03,.8585700e-03,.9711500e-03,&
12328  & .1026800e-02,.1013200e-02,.9066100e-03,.2833300e-03,.1199700e-05,&
12329  & .4716300e-03,.7298400e-03,.9052500e-03,.1020900e-02,.1083000e-02,&
12330  & .1081500e-02,.9682000e-03,.2999100e-03,.1157100e-05,.4917000e-03,&
12331  & .7606400e-03,.9459700e-03,.1068300e-02,.1133700e-02,.1141800e-02,&
12332  & .1021000e-02,.3173800e-03,.1115700e-05,.5096400e-03,.7885900e-03,&
12333  & .9823600e-03,.1108800e-02,.1185900e-02,.1192000e-02,.1069000e-02,&
12334  & .3360000e-03,.1075700e-05,.5257800e-03,.8133000e-03,.1014100e-02,&
12335  & .1149300e-02,.1228500e-02,.1239900e-02,.1115100e-02,.3563100e-03/
12336 
12337  data absa(316:450, 4) / &
12338  & .1043600e-05,.3647500e-03,.5594800e-03,.6939900e-03,.7869900e-03,&
12339  & .8273300e-03,.8154600e-03,.7344300e-03,.2287400e-03,.1004300e-05,&
12340  & .3846100e-03,.5936500e-03,.7363100e-03,.8290200e-03,.8799600e-03,&
12341  & .8758900e-03,.7874500e-03,.2428100e-03,.9678500e-06,.4022700e-03,&
12342  & .6219100e-03,.7718300e-03,.8706700e-03,.9233800e-03,.9311600e-03,&
12343  & .8333400e-03,.2573500e-03,.9336700e-06,.4188100e-03,.6469700e-03,&
12344  & .8047400e-03,.9075400e-03,.9680600e-03,.9743400e-03,.8743900e-03,&
12345  & .2728600e-03,.9001700e-06,.4337700e-03,.6702600e-03,.8339800e-03,&
12346  & .9426900e-03,.1008000e-02,.1015400e-02,.9147900e-03,.2894800e-03,&
12347  & .8746900e-06,.2934500e-03,.4485700e-03,.5565300e-03,.6337100e-03,&
12348  & .6625300e-03,.6522900e-03,.5900900e-03,.1847500e-03,.8406200e-06,&
12349  & .3115200e-03,.4797500e-03,.5942200e-03,.6707700e-03,.7116800e-03,&
12350  & .7055000e-03,.6367400e-03,.1966900e-03,.8094700e-06,.3277900e-03,&
12351  & .5058200e-03,.6270700e-03,.7070500e-03,.7493600e-03,.7525200e-03,&
12352  & .6768200e-03,.2089600e-03,.7805200e-06,.3426200e-03,.5282000e-03,&
12353  & .6563100e-03,.7400200e-03,.7873100e-03,.7925700e-03,.7115500e-03,&
12354  & .2219700e-03,.7530000e-06,.3561800e-03,.5494000e-03,.6823600e-03,&
12355  & .7697800e-03,.8227100e-03,.8280600e-03,.7465800e-03,.2358800e-03,&
12356  & .7308000e-06,.2361900e-03,.3600200e-03,.4476900e-03,.5100100e-03,&
12357  & .5329400e-03,.5231900e-03,.4749200e-03,.1500500e-03,.7014200e-06,&
12358  & .2522500e-03,.3874200e-03,.4803900e-03,.5428500e-03,.5740700e-03,&
12359  & .5676500e-03,.5144400e-03,.1600000e-03,.6748400e-06,.2668700e-03,&
12360  & .4111900e-03,.5092400e-03,.5737200e-03,.6091200e-03,.6081300e-03,&
12361  & .5494500e-03,.1703600e-03,.6503200e-06,.2800200e-03,.4310400e-03,&
12362  & .5351300e-03,.6029400e-03,.6399800e-03,.6448500e-03,.5788800e-03,&
12363  & .1812000e-03,.6275200e-06,.2918200e-03,.4495000e-03,.5583600e-03,&
12364  & .6284900e-03,.6714800e-03,.6757000e-03,.6091800e-03,.1927100e-03/
12365 
12366  data absa(451:585, 4) / &
12367  & .5984600e-06,.1960300e-03,.2990200e-03,.3715900e-03,.4236700e-03,&
12368  & .4424100e-03,.4355000e-03,.3961800e-03,.1249800e-03,.5744700e-06,&
12369  & .2095300e-03,.3218700e-03,.3988200e-03,.4502100e-03,.4771700e-03,&
12370  & .4724000e-03,.4289400e-03,.1336200e-03,.5526500e-06,.2218500e-03,&
12371  & .3413300e-03,.4228300e-03,.4761600e-03,.5048100e-03,.5055300e-03,&
12372  & .4565400e-03,.1424600e-03,.5325900e-06,.2330100e-03,.3581600e-03,&
12373  & .4444800e-03,.5004800e-03,.5314700e-03,.5357400e-03,.4816900e-03,&
12374  & .1516800e-03,.5137900e-06,.2430200e-03,.3738300e-03,.4635200e-03,&
12375  & .5220300e-03,.5578300e-03,.5617500e-03,.5073700e-03,.1615300e-03,&
12376  & .4900600e-06,.1625900e-03,.2480200e-03,.3080400e-03,.3511100e-03,&
12377  & .3667200e-03,.3616600e-03,.3296800e-03,.1040100e-03,.4703300e-06,&
12378  & .1737900e-03,.2669700e-03,.3306900e-03,.3729200e-03,.3958700e-03,&
12379  & .3923900e-03,.3567200e-03,.1113800e-03,.4524700e-06,.1841700e-03,&
12380  & .2829500e-03,.3504500e-03,.3946500e-03,.4182500e-03,.4198400e-03,&
12381  & .3786700e-03,.1188200e-03,.4360500e-06,.1935100e-03,.2971600e-03,&
12382  & .3685000e-03,.4148900e-03,.4407400e-03,.4446000e-03,.4003100e-03,&
12383  & .1266700e-03,.4206600e-06,.2020600e-03,.3103800e-03,.3846400e-03,&
12384  & .4333700e-03,.4629700e-03,.4666700e-03,.4220200e-03,.1349800e-03,&
12385  & .4012200e-06,.1346500e-03,.2054100e-03,.2548800e-03,.2900600e-03,&
12386  & .3035800e-03,.2998400e-03,.2737500e-03,.8640600e-04,.3850200e-06,&
12387  & .1439800e-03,.2208600e-03,.2737600e-03,.3083200e-03,.3279400e-03,&
12388  & .3251700e-03,.2956200e-03,.9261400e-04,.3704500e-06,.1526600e-03,&
12389  & .2341600e-03,.2901300e-03,.3267500e-03,.3462200e-03,.3481600e-03,&
12390  & .3140100e-03,.9888000e-04,.3570200e-06,.1605000e-03,.2460800e-03,&
12391  & .3052100e-03,.3433600e-03,.3652200e-03,.3685700e-03,.3324600e-03,&
12392  & .1055900e-03,.3444000e-06,.1677100e-03,.2574200e-03,.3190400e-03,&
12393  & .3594300e-03,.3840500e-03,.3871500e-03,.3508700e-03,.1126200e-03/
12394 
12395  data absa( 1:180, 5) / &
12396  & .1558300e-03,.3754600e-02,.5353600e-02,.6416100e-02,.7122300e-02,&
12397  & .7498200e-02,.7359600e-02,.6513500e-02,.3517500e-02,.1614800e-03,&
12398  & .3856900e-02,.5525600e-02,.6646100e-02,.7375700e-02,.7753000e-02,&
12399  & .7566500e-02,.6649600e-02,.3684000e-02,.1648400e-03,.3935300e-02,&
12400  & .5674500e-02,.6836400e-02,.7616600e-02,.7971100e-02,.7771700e-02,&
12401  & .6784600e-02,.3848500e-02,.1662100e-03,.3994600e-02,.5794700e-02,&
12402  & .7007100e-02,.7819300e-02,.8158100e-02,.7959200e-02,.6913200e-02,&
12403  & .3976900e-02,.1651800e-03,.4038600e-02,.5892500e-02,.7153000e-02,&
12404  & .7994600e-02,.8325800e-02,.8110700e-02,.7022600e-02,.4113400e-02,&
12405  & .1248200e-03,.3220400e-02,.4610200e-02,.5547500e-02,.6173000e-02,&
12406  & .6500000e-02,.6394200e-02,.5639400e-02,.3000200e-02,.1302700e-03,&
12407  & .3309900e-02,.4761700e-02,.5749700e-02,.6403100e-02,.6718400e-02,&
12408  & .6582900e-02,.5772100e-02,.3144200e-02,.1337000e-03,.3380800e-02,&
12409  & .4884500e-02,.5923500e-02,.6607400e-02,.6904800e-02,.6766000e-02,&
12410  & .5901800e-02,.3278800e-02,.1354900e-03,.3434000e-02,.4988500e-02,&
12411  & .6074500e-02,.6787700e-02,.7078000e-02,.6920200e-02,.6013100e-02,&
12412  & .3394600e-02,.1354300e-03,.3477800e-02,.5074500e-02,.6198100e-02,&
12413  & .6928200e-02,.7222900e-02,.7052100e-02,.6121800e-02,.3509700e-02,&
12414  & .9843700e-04,.2720900e-02,.3903500e-02,.4718500e-02,.5270600e-02,&
12415  & .5557900e-02,.5484600e-02,.4846900e-02,.2507700e-02,.1039600e-03,&
12416  & .2803100e-02,.4038400e-02,.4899300e-02,.5475300e-02,.5757500e-02,&
12417  & .5652500e-02,.4968400e-02,.2636600e-02,.1077000e-03,.2870200e-02,&
12418  & .4151300e-02,.5050400e-02,.5664000e-02,.5924500e-02,.5812500e-02,&
12419  & .5092200e-02,.2747800e-02,.1099600e-03,.2923200e-02,.4245100e-02,&
12420  & .5183800e-02,.5825700e-02,.6079300e-02,.5949800e-02,.5194900e-02,&
12421  & .2849000e-02,.1108800e-03,.2964500e-02,.4325100e-02,.5299200e-02,&
12422  & .5946800e-02,.6209600e-02,.6064800e-02,.5290400e-02,.2949500e-02,&
12423  & .7658700e-04,.2279200e-02,.3273100e-02,.3972400e-02,.4456100e-02,&
12424  & .4710900e-02,.4670600e-02,.4144400e-02,.2081000e-02,.8222500e-04,&
12425  & .2354800e-02,.3394300e-02,.4132500e-02,.4641500e-02,.4893900e-02,&
12426  & .4820000e-02,.4259100e-02,.2192500e-02,.8620300e-04,.2418000e-02,&
12427  & .3499100e-02,.4268400e-02,.4807400e-02,.5041600e-02,.4965100e-02,&
12428  & .4364300e-02,.2293800e-02,.8876600e-04,.2469400e-02,.3587400e-02,&
12429  & .4387500e-02,.4946900e-02,.5181000e-02,.5085000e-02,.4460600e-02,&
12430  & .2379100e-02,.9021800e-04,.2511000e-02,.3661300e-02,.4493700e-02,&
12431  & .5054800e-02,.5298200e-02,.5188300e-02,.4549800e-02,.2465800e-02/
12432 
12433  data absa(181:315, 5) / &
12434  & .5908000e-04,.1897200e-02,.2729400e-02,.3319500e-02,.3739500e-02,&
12435  & .3968300e-02,.3952300e-02,.3516100e-02,.1719500e-02,.6450800e-04,&
12436  & .1967300e-02,.2837600e-02,.3463200e-02,.3903300e-02,.4134300e-02,&
12437  & .4082600e-02,.3619500e-02,.1817300e-02,.6853800e-04,.2026400e-02,&
12438  & .2934200e-02,.3585600e-02,.4048800e-02,.4266400e-02,.4214100e-02,&
12439  & .3714400e-02,.1908100e-02,.7132800e-04,.2075000e-02,.3016500e-02,&
12440  & .3693300e-02,.4171900e-02,.4388000e-02,.4322100e-02,.3800600e-02,&
12441  & .1981800e-02,.7307300e-04,.2115500e-02,.3086100e-02,.3789200e-02,&
12442  & .4269000e-02,.4490100e-02,.4416100e-02,.3886400e-02,.2058300e-02,&
12443  & .4506900e-04,.1567300e-02,.2259600e-02,.2756600e-02,.3111700e-02,&
12444  & .3316200e-02,.3313500e-02,.2957400e-02,.1408900e-02,.4995900e-04,&
12445  & .1634200e-02,.2357700e-02,.2882800e-02,.3257200e-02,.3462600e-02,&
12446  & .3430200e-02,.3047600e-02,.1495500e-02,.5401300e-04,.1689100e-02,&
12447  & .2445700e-02,.2992600e-02,.3386500e-02,.3580900e-02,.3542700e-02,&
12448  & .3135800e-02,.1576300e-02,.5691000e-04,.1735600e-02,.2522000e-02,&
12449  & .3090300e-02,.3496800e-02,.3685300e-02,.3644300e-02,.3214000e-02,&
12450  & .1642800e-02,.5885200e-04,.1774300e-02,.2586800e-02,.3177100e-02,&
12451  & .3585700e-02,.3778200e-02,.3728400e-02,.3290500e-02,.1707900e-02,&
12452  & .3413100e-04,.1287300e-02,.1861900e-02,.2274500e-02,.2568800e-02,&
12453  & .2749400e-02,.2757400e-02,.2465800e-02,.1144400e-02,.3837900e-04,&
12454  & .1350300e-02,.1949000e-02,.2386900e-02,.2698500e-02,.2876100e-02,&
12455  & .2860700e-02,.2544300e-02,.1224200e-02,.4214600e-04,.1401800e-02,&
12456  & .2028700e-02,.2484300e-02,.2811900e-02,.2984800e-02,.2956900e-02,&
12457  & .2625800e-02,.1295600e-02,.4511600e-04,.1445400e-02,.2098900e-02,&
12458  & .2571800e-02,.2911500e-02,.3074000e-02,.3048200e-02,.2696700e-02,&
12459  & .1353700e-02,.4717800e-04,.1481800e-02,.2159100e-02,.2650900e-02,&
12460  & .2994500e-02,.3159000e-02,.3123500e-02,.2764100e-02,.1410000e-02/
12461 
12462  data absa(316:450, 5) / &
12463  & .2565600e-04,.1052500e-02,.1526600e-02,.1864800e-02,.2106000e-02,&
12464  & .2266000e-02,.2280700e-02,.2041500e-02,.9248200e-03,.2931300e-04,&
12465  & .1109600e-02,.1602700e-02,.1962800e-02,.2222400e-02,.2373000e-02,&
12466  & .2368300e-02,.2111100e-02,.9936600e-03,.3264300e-04,.1157900e-02,&
12467  & .1673200e-02,.2050300e-02,.2323100e-02,.2472100e-02,.2451200e-02,&
12468  & .2184200e-02,.1057000e-02,.3550900e-04,.1198500e-02,.1737900e-02,&
12469  & .2128400e-02,.2411000e-02,.2551900e-02,.2533900e-02,.2249600e-02,&
12470  & .1111600e-02,.3761600e-04,.1232700e-02,.1793300e-02,.2199600e-02,&
12471  & .2488000e-02,.2625800e-02,.2602900e-02,.2308800e-02,.1159500e-02,&
12472  & .1916600e-04,.8555900e-03,.1244600e-02,.1521300e-02,.1716000e-02,&
12473  & .1852700e-02,.1872300e-02,.1679400e-02,.7431600e-03,.2225100e-04,&
12474  & .9070100e-03,.1310700e-02,.1606100e-02,.1817700e-02,.1945200e-02,&
12475  & .1949600e-02,.1742000e-02,.8016800e-03,.2512300e-04,.9510600e-03,&
12476  & .1372400e-02,.1682600e-02,.1906400e-02,.2035200e-02,.2024100e-02,&
12477  & .1806400e-02,.8565900e-03,.2771300e-04,.9890300e-03,.1430100e-02,&
12478  & .1752300e-02,.1986200e-02,.2107900e-02,.2094400e-02,.1865600e-02,&
12479  & .9065500e-03,.2982100e-04,.1020700e-02,.1481300e-02,.1816300e-02,&
12480  & .2057000e-02,.2173700e-02,.2157400e-02,.1915300e-02,.9488200e-03,&
12481  & .1445500e-04,.6950800e-03,.1014300e-02,.1238200e-02,.1397700e-02,&
12482  & .1510100e-02,.1533900e-02,.1379400e-02,.6006400e-03,.1697500e-04,&
12483  & .7405500e-03,.1071500e-02,.1311700e-02,.1485100e-02,.1593800e-02,&
12484  & .1602600e-02,.1435400e-02,.6503400e-03,.1942100e-04,.7799600e-03,&
12485  & .1124300e-02,.1379100e-02,.1563600e-02,.1670700e-02,.1667800e-02,&
12486  & .1490800e-02,.6987500e-03,.2165900e-04,.8136900e-03,.1174600e-02,&
12487  & .1440800e-02,.1634000e-02,.1737600e-02,.1726700e-02,.1541800e-02,&
12488  & .7433600e-03,.2361600e-04,.8431600e-03,.1221500e-02,.1497200e-02,&
12489  & .1697100e-02,.1794500e-02,.1783400e-02,.1584400e-02,.7804500e-03/
12490 
12491  data absa(451:585, 5) / &
12492  & .1181200e-04,.5806700e-03,.8465800e-03,.1034900e-02,.1168100e-02,&
12493  & .1262200e-02,.1280600e-02,.1151800e-02,.5019700e-03,.1387000e-04,&
12494  & .6187000e-03,.8936400e-03,.1095700e-02,.1241100e-02,.1330700e-02,&
12495  & .1336600e-02,.1199000e-02,.5441900e-03,.1587200e-04,.6513100e-03,&
12496  & .9384300e-03,.1152000e-02,.1306800e-02,.1396600e-02,.1392700e-02,&
12497  & .1245900e-02,.5841200e-03,.1770600e-04,.6795700e-03,.9812800e-03,&
12498  & .1203700e-02,.1365300e-02,.1451000e-02,.1442300e-02,.1287300e-02,&
12499  & .6208600e-03,.1930700e-04,.7047700e-03,.1020800e-02,.1252200e-02,&
12500  & .1418700e-02,.1500000e-02,.1488200e-02,.1322300e-02,.6527300e-03,&
12501  & .9663300e-05,.4838400e-03,.7046400e-03,.8621400e-03,.9732500e-03,&
12502  & .1052500e-02,.1066100e-02,.9581800e-03,.4183800e-03,.1134600e-04,&
12503  & .5154400e-03,.7437500e-03,.9125500e-03,.1034600e-02,.1108800e-02,&
12504  & .1112400e-02,.9978700e-03,.4543600e-03,.1298300e-04,.5425800e-03,&
12505  & .7819100e-03,.9599400e-03,.1089300e-02,.1163600e-02,.1159500e-02,&
12506  & .1037900e-02,.4876700e-03,.1448300e-04,.5666200e-03,.8179500e-03,&
12507  & .1003600e-02,.1138500e-02,.1209100e-02,.1201200e-02,.1070700e-02,&
12508  & .5181000e-03,.1579000e-04,.5880500e-03,.8516500e-03,.1044700e-02,&
12509  & .1183000e-02,.1250000e-02,.1238900e-02,.1101200e-02,.5450800e-03,&
12510  & .7905700e-05,.4021500e-03,.5851600e-03,.7166600e-03,.8096900e-03,&
12511  & .8751800e-03,.8858100e-03,.7956900e-03,.3482500e-03,.9280800e-05,&
12512  & .4285300e-03,.6181800e-03,.7584700e-03,.8608200e-03,.9216000e-03,&
12513  & .9243600e-03,.8289400e-03,.3787100e-03,.1062100e-04,.4513400e-03,&
12514  & .6502800e-03,.7981500e-03,.9062200e-03,.9675200e-03,.9629100e-03,&
12515  & .8617700e-03,.4064200e-03,.1184900e-04,.4716100e-03,.6809000e-03,&
12516  & .8353000e-03,.9477000e-03,.1005400e-02,.9981500e-03,.8890800e-03,&
12517  & .4314900e-03,.1289700e-04,.4900000e-03,.7094400e-03,.8698200e-03,&
12518  & .9843000e-03,.1039800e-02,.1029700e-02,.9148300e-03,.4545900e-03/
12519 
12520  data absa( 1:180, 6) / &
12521  & .2357500e-02,.9645700e-02,.1312800e-01,.1536100e-01,.1666200e-01,&
12522  & .1699900e-01,.1630300e-01,.1436800e-01,.1018500e-01,.2450800e-02,&
12523  & .9976800e-02,.1356200e-01,.1578600e-01,.1704600e-01,.1731600e-01,&
12524  & .1653900e-01,.1462700e-01,.1044700e-01,.2517600e-02,.1026200e-01,&
12525  & .1394700e-01,.1618200e-01,.1739000e-01,.1758800e-01,.1675200e-01,&
12526  & .1485700e-01,.1069900e-01,.2562700e-02,.1051000e-01,.1427100e-01,&
12527  & .1651700e-01,.1767800e-01,.1781500e-01,.1694100e-01,.1507300e-01,&
12528  & .1097000e-01,.2590400e-02,.1071200e-01,.1452800e-01,.1678800e-01,&
12529  & .1791200e-01,.1801300e-01,.1712600e-01,.1528200e-01,.1121500e-01,&
12530  & .1942200e-02,.8517900e-02,.1160300e-01,.1356100e-01,.1469400e-01,&
12531  & .1495200e-01,.1427400e-01,.1261600e-01,.8691000e-02,.2023100e-02,&
12532  & .8820800e-02,.1199200e-01,.1394200e-01,.1504300e-01,.1524100e-01,&
12533  & .1450300e-01,.1284900e-01,.8920300e-02,.2082400e-02,.9089200e-02,&
12534  & .1233300e-01,.1428300e-01,.1534300e-01,.1549300e-01,.1470400e-01,&
12535  & .1306500e-01,.9141200e-02,.2123500e-02,.9319300e-02,.1261300e-01,&
12536  & .1457300e-01,.1558600e-01,.1569600e-01,.1490000e-01,.1326900e-01,&
12537  & .9373100e-02,.2150100e-02,.9506400e-02,.1284400e-01,.1480200e-01,&
12538  & .1578900e-01,.1587200e-01,.1507900e-01,.1345900e-01,.9592200e-02,&
12539  & .1571000e-02,.7373900e-02,.1008400e-01,.1179500e-01,.1279100e-01,&
12540  & .1300200e-01,.1240800e-01,.1094800e-01,.7325600e-02,.1644500e-02,&
12541  & .7660300e-02,.1044100e-01,.1213600e-01,.1309800e-01,.1327200e-01,&
12542  & .1262900e-01,.1116900e-01,.7527700e-02,.1701600e-02,.7912000e-02,&
12543  & .1073800e-01,.1244400e-01,.1336500e-01,.1350200e-01,.1282700e-01,&
12544  & .1136500e-01,.7727500e-02,.1741900e-02,.8120400e-02,.1099200e-01,&
12545  & .1270400e-01,.1357900e-01,.1368700e-01,.1302200e-01,.1156500e-01,&
12546  & .7932700e-02,.1769300e-02,.8289600e-02,.1120100e-01,.1290300e-01,&
12547  & .1376100e-01,.1385400e-01,.1319300e-01,.1176000e-01,.8132400e-02,&
12548  & .1256800e-02,.6292500e-02,.8657000e-02,.1015600e-01,.1102000e-01,&
12549  & .1122000e-01,.1071000e-01,.9432900e-02,.6181200e-02,.1324200e-02,&
12550  & .6553200e-02,.8975600e-02,.1046000e-01,.1129200e-01,.1146300e-01,&
12551  & .1092400e-01,.9644900e-02,.6362000e-02,.1378200e-02,.6780700e-02,&
12552  & .9244700e-02,.1073900e-01,.1153100e-01,.1167600e-01,.1111500e-01,&
12553  & .9838400e-02,.6541700e-02,.1418500e-02,.6972800e-02,.9472400e-02,&
12554  & .1096700e-01,.1173200e-01,.1185300e-01,.1129900e-01,.1002900e-01,&
12555  & .6731400e-02,.1446600e-02,.7129400e-02,.9655100e-02,.1115000e-01,&
12556  & .1189700e-01,.1200300e-01,.1145700e-01,.1021200e-01,.6913400e-02/
12557 
12558  data absa(181:315, 6) / &
12559  & .9981500e-03,.5318400e-02,.7366800e-02,.8666100e-02,.9418900e-02,&
12560  & .9608800e-02,.9186000e-02,.8085400e-02,.5214700e-02,.1059400e-02,&
12561  & .5550200e-02,.7648000e-02,.8938200e-02,.9667500e-02,.9828100e-02,&
12562  & .9390800e-02,.8290400e-02,.5380500e-02,.1109300e-02,.5753400e-02,&
12563  & .7882000e-02,.9187300e-02,.9886000e-02,.1002700e-01,.9573900e-02,&
12564  & .8477400e-02,.5539800e-02,.1148700e-02,.5926400e-02,.8074600e-02,&
12565  & .9395200e-02,.1007000e-01,.1019600e-01,.9746000e-02,.8658600e-02,&
12566  & .5711800e-02,.1177000e-02,.6071500e-02,.8232200e-02,.9559000e-02,&
12567  & .1022500e-01,.1033700e-01,.9889100e-02,.8828200e-02,.5875600e-02,&
12568  & .7848400e-03,.4455700e-02,.6208800e-02,.7323800e-02,.7975800e-02,&
12569  & .8156500e-02,.7823400e-02,.6894900e-02,.4372100e-02,.8410400e-03,&
12570  & .4658400e-02,.6454800e-02,.7572000e-02,.8204900e-02,.8360300e-02,&
12571  & .8013900e-02,.7091200e-02,.4520800e-02,.8870300e-03,.4838600e-02,&
12572  & .6658500e-02,.7793900e-02,.8407700e-02,.8549400e-02,.8187800e-02,&
12573  & .7267300e-02,.4666400e-02,.9242900e-03,.4993900e-02,.6825500e-02,&
12574  & .7979300e-02,.8581100e-02,.8712300e-02,.8342300e-02,.7432400e-02,&
12575  & .4819300e-02,.9528700e-03,.5126900e-02,.6966400e-02,.8121600e-02,&
12576  & .8725600e-02,.8840400e-02,.8479300e-02,.7588500e-02,.4968400e-02,&
12577  & .6117600e-03,.3710500e-02,.5192100e-02,.6149500e-02,.6708600e-02,&
12578  & .6873700e-02,.6619600e-02,.5849900e-02,.3639800e-02,.6635500e-03,&
12579  & .3884500e-02,.5409200e-02,.6368400e-02,.6919100e-02,.7063800e-02,&
12580  & .6796700e-02,.6032900e-02,.3772500e-02,.7058400e-03,.4042900e-02,&
12581  & .5589100e-02,.6566500e-02,.7106100e-02,.7239200e-02,.6956600e-02,&
12582  & .6195800e-02,.3904000e-02,.7401600e-03,.4180400e-02,.5736200e-02,&
12583  & .6730600e-02,.7265600e-02,.7393900e-02,.7100200e-02,.6345800e-02,&
12584  & .4042200e-02,.7679300e-03,.4301300e-02,.5863400e-02,.6860500e-02,&
12585  & .7391700e-02,.7516000e-02,.7229200e-02,.6486700e-02,.4175300e-02/
12586 
12587  data absa(316:450, 6) / &
12588  & .4738300e-03,.3071900e-02,.4315700e-02,.5129900e-02,.5611300e-02,&
12589  & .5760400e-02,.5558400e-02,.4926300e-02,.3009900e-02,.5203000e-03,&
12590  & .3222400e-02,.4508800e-02,.5325600e-02,.5804900e-02,.5936900e-02,&
12591  & .5724900e-02,.5095000e-02,.3133500e-02,.5589700e-03,.3360100e-02,&
12592  & .4669000e-02,.5500800e-02,.5973300e-02,.6098200e-02,.5870300e-02,&
12593  & .5241600e-02,.3250500e-02,.5905100e-03,.3482300e-02,.4800300e-02,&
12594  & .5649200e-02,.6114700e-02,.6240700e-02,.6001100e-02,.5377600e-02,&
12595  & .3369100e-02,.6163800e-03,.3590800e-02,.4915100e-02,.5768200e-02,&
12596  & .6226900e-02,.6350500e-02,.6122600e-02,.5506100e-02,.3489300e-02,&
12597  & .3645200e-03,.2530100e-02,.3565500e-02,.4255800e-02,.4666800e-02,&
12598  & .4799500e-02,.4639100e-02,.4117600e-02,.2472300e-02,.4052100e-03,&
12599  & .2660900e-02,.3736800e-02,.4431300e-02,.4842200e-02,.4960500e-02,&
12600  & .4787600e-02,.4268200e-02,.2585400e-02,.4404200e-03,.2781100e-02,&
12601  & .3882200e-02,.4587100e-02,.4995100e-02,.5104800e-02,.4918900e-02,&
12602  & .4398800e-02,.2692200e-02,.4693400e-03,.2889000e-02,.4001500e-02,&
12603  & .4720400e-02,.5119500e-02,.5232900e-02,.5039800e-02,.4521100e-02,&
12604  & .2794700e-02,.4929600e-03,.2986300e-02,.4105200e-02,.4829600e-02,&
12605  & .5221200e-02,.5332000e-02,.5151600e-02,.4641000e-02,.2901400e-02,&
12606  & .2814100e-03,.2083900e-02,.2943400e-02,.3525000e-02,.3870500e-02,&
12607  & .3990700e-02,.3857400e-02,.3428000e-02,.2027600e-02,.3164200e-03,&
12608  & .2196200e-02,.3094700e-02,.3679800e-02,.4027900e-02,.4131700e-02,&
12609  & .3990500e-02,.3559100e-02,.2130400e-02,.3474300e-03,.2300200e-02,&
12610  & .3225100e-02,.3816700e-02,.4163200e-02,.4258800e-02,.4107700e-02,&
12611  & .3673700e-02,.2224600e-02,.3733700e-03,.2395800e-02,.3332600e-02,&
12612  & .3935100e-02,.4272700e-02,.4369900e-02,.4216700e-02,.3785000e-02,&
12613  & .2317100e-02,.3946400e-03,.2481800e-02,.3424500e-02,.4034100e-02,&
12614  & .4363500e-02,.4459200e-02,.4313300e-02,.3893100e-02,.2412300e-02/
12615 
12616  data absa(451:585, 6) / &
12617  & .2304600e-03,.1756100e-02,.2482100e-02,.2969700e-02,.3260300e-02,&
12618  & .3359000e-02,.3246500e-02,.2891100e-02,.1700000e-02,.2590000e-03,&
12619  & .1849900e-02,.2607900e-02,.3098300e-02,.3391400e-02,.3479000e-02,&
12620  & .3359800e-02,.3000000e-02,.1787900e-02,.2843100e-03,.1937100e-02,&
12621  & .2715400e-02,.3212300e-02,.3500900e-02,.3581000e-02,.3458200e-02,&
12622  & .3098900e-02,.1870900e-02,.3055400e-03,.2017500e-02,.2804700e-02,&
12623  & .3309400e-02,.3589700e-02,.3670800e-02,.3550000e-02,.3196400e-02,&
12624  & .1952400e-02,.3229000e-03,.2090600e-02,.2882700e-02,.3390700e-02,&
12625  & .3663800e-02,.3744800e-02,.3632200e-02,.3292100e-02,.2034200e-02,&
12626  & .1887300e-03,.1475300e-02,.2085900e-02,.2493200e-02,.2736200e-02,&
12627  & .2816300e-02,.2723100e-02,.2428700e-02,.1422600e-02,.2120600e-03,&
12628  & .1554200e-02,.2190500e-02,.2599700e-02,.2843600e-02,.2914600e-02,&
12629  & .2818200e-02,.2519600e-02,.1496400e-02,.2327100e-03,.1628200e-02,&
12630  & .2278900e-02,.2693700e-02,.2932000e-02,.2999500e-02,.2900400e-02,&
12631  & .2606300e-02,.1568400e-02,.2500500e-03,.1695900e-02,.2353900e-02,&
12632  & .2773900e-02,.3005200e-02,.3073800e-02,.2978100e-02,.2692400e-02,&
12633  & .1638800e-02,.2642400e-03,.1757900e-02,.2419800e-02,.2841800e-02,&
12634  & .3068800e-02,.3137000e-02,.3047800e-02,.2773400e-02,.1709000e-02,&
12635  & .1545100e-03,.1236200e-02,.1747100e-02,.2085600e-02,.2287000e-02,&
12636  & .2353000e-02,.2275800e-02,.2031800e-02,.1186800e-02,.1735700e-03,&
12637  & .1302700e-02,.1833700e-02,.2173600e-02,.2375200e-02,.2433900e-02,&
12638  & .2354900e-02,.2110400e-02,.1249200e-02,.1904500e-03,.1365100e-02,&
12639  & .1907100e-02,.2252000e-02,.2447900e-02,.2505200e-02,.2425500e-02,&
12640  & .2186200e-02,.1311400e-02,.2045900e-03,.1422500e-02,.1970200e-02,&
12641  & .2319500e-02,.2510900e-02,.2568000e-02,.2490600e-02,.2259200e-02,&
12642  & .1371700e-02,.2162100e-03,.1475100e-02,.2026700e-02,.2377500e-02,&
12643  & .2565400e-02,.2622100e-02,.2551300e-02,.2328300e-02,.1432100e-02/
12644 
12645  data absa( 1:180, 7) / &
12646  & .1455100e-01,.2628200e-01,.3205300e-01,.3518900e-01,.3660000e-01,&
12647  & .3664600e-01,.3555200e-01,.3321500e-01,.2730900e-01,.1536000e-01,&
12648  & .2684700e-01,.3241100e-01,.3542600e-01,.3680300e-01,.3699400e-01,&
12649  & .3603700e-01,.3367400e-01,.2788100e-01,.1605200e-01,.2735800e-01,&
12650  & .3271100e-01,.3560200e-01,.3700200e-01,.3732200e-01,.3649500e-01,&
12651  & .3409200e-01,.2836500e-01,.1663400e-01,.2776500e-01,.3297500e-01,&
12652  & .3575700e-01,.3719800e-01,.3762900e-01,.3687100e-01,.3448900e-01,&
12653  & .2881700e-01,.1709200e-01,.2808800e-01,.3317300e-01,.3589900e-01,&
12654  & .3736900e-01,.3789400e-01,.3720600e-01,.3485600e-01,.2923600e-01,&
12655  & .1267500e-01,.2375700e-01,.2882700e-01,.3147500e-01,.3264700e-01,&
12656  & .3277900e-01,.3187400e-01,.2965900e-01,.2373500e-01,.1336300e-01,&
12657  & .2426100e-01,.2916500e-01,.3173400e-01,.3290500e-01,.3313700e-01,&
12658  & .3235700e-01,.3011400e-01,.2424100e-01,.1395200e-01,.2467300e-01,&
12659  & .2945800e-01,.3194000e-01,.3316700e-01,.3348600e-01,.3279400e-01,&
12660  & .3054000e-01,.2470400e-01,.1444000e-01,.2501000e-01,.2969200e-01,&
12661  & .3213100e-01,.3340200e-01,.3381600e-01,.3318500e-01,.3094400e-01,&
12662  & .2512300e-01,.1481000e-01,.2524600e-01,.2986500e-01,.3232300e-01,&
12663  & .3362400e-01,.3412500e-01,.3353000e-01,.3129900e-01,.2550100e-01,&
12664  & .1076400e-01,.2118000e-01,.2564500e-01,.2793400e-01,.2889100e-01,&
12665  & .2897800e-01,.2821500e-01,.2625000e-01,.2034000e-01,.1137100e-01,&
12666  & .2161100e-01,.2597600e-01,.2822100e-01,.2920400e-01,.2934700e-01,&
12667  & .2868900e-01,.2668700e-01,.2080300e-01,.1188200e-01,.2197700e-01,&
12668  & .2625800e-01,.2846700e-01,.2949800e-01,.2973000e-01,.2911300e-01,&
12669  & .2711500e-01,.2124100e-01,.1230200e-01,.2227300e-01,.2647700e-01,&
12670  & .2869600e-01,.2976600e-01,.3009900e-01,.2950700e-01,.2750300e-01,&
12671  & .2162000e-01,.1262400e-01,.2248100e-01,.2663100e-01,.2890000e-01,&
12672  & .3003200e-01,.3042500e-01,.2985900e-01,.2784200e-01,.2196600e-01,&
12673  & .8986000e-02,.1865900e-01,.2260500e-01,.2458000e-01,.2538300e-01,&
12674  & .2543500e-01,.2476100e-01,.2303700e-01,.1741400e-01,.9520700e-02,&
12675  & .1904800e-01,.2292400e-01,.2488800e-01,.2573900e-01,.2582300e-01,&
12676  & .2520000e-01,.2345000e-01,.1784700e-01,.9972300e-02,.1938000e-01,&
12677  & .2318200e-01,.2515500e-01,.2606100e-01,.2620900e-01,.2561100e-01,&
12678  & .2386200e-01,.1825100e-01,.1035400e-01,.1964400e-01,.2339700e-01,&
12679  & .2540100e-01,.2634500e-01,.2658000e-01,.2600000e-01,.2423300e-01,&
12680  & .1860000e-01,.1063700e-01,.1982200e-01,.2355600e-01,.2560500e-01,&
12681  & .2661900e-01,.2691300e-01,.2635900e-01,.2456200e-01,.1892500e-01/
12682 
12683  data absa(181:315, 7) / &
12684  & .7410400e-02,.1626400e-01,.1971700e-01,.2145200e-01,.2217200e-01,&
12685  & .2220700e-01,.2159800e-01,.2007500e-01,.1488000e-01,.7877800e-02,&
12686  & .1662400e-01,.2002200e-01,.2176500e-01,.2253100e-01,.2259600e-01,&
12687  & .2199900e-01,.2045800e-01,.1527900e-01,.8269400e-02,.1692800e-01,&
12688  & .2027700e-01,.2203600e-01,.2285900e-01,.2297800e-01,.2238400e-01,&
12689  & .2083400e-01,.1565000e-01,.8591900e-02,.1716800e-01,.2049800e-01,&
12690  & .2227400e-01,.2314300e-01,.2332600e-01,.2275400e-01,.2118900e-01,&
12691  & .1598000e-01,.8833700e-02,.1733200e-01,.2066400e-01,.2247700e-01,&
12692  & .2340700e-01,.2364800e-01,.2311100e-01,.2150900e-01,.1628300e-01,&
12693  & .6030500e-02,.1400800e-01,.1702800e-01,.1857400e-01,.1923600e-01,&
12694  & .1926900e-01,.1872000e-01,.1734700e-01,.1265600e-01,.6435600e-02,&
12695  & .1433900e-01,.1731800e-01,.1887200e-01,.1958000e-01,.1964500e-01,&
12696  & .1909500e-01,.1770500e-01,.1302500e-01,.6770800e-02,.1462600e-01,&
12697  & .1757500e-01,.1913500e-01,.1988300e-01,.2000400e-01,.1945400e-01,&
12698  & .1805500e-01,.1336600e-01,.7044900e-02,.1485300e-01,.1779500e-01,&
12699  & .1936300e-01,.2015600e-01,.2032400e-01,.1981100e-01,.1839200e-01,&
12700  & .1367900e-01,.7258600e-02,.1501400e-01,.1795400e-01,.1956900e-01,&
12701  & .2040100e-01,.2062200e-01,.2015500e-01,.1870600e-01,.1396300e-01,&
12702  & .4861500e-02,.1193600e-01,.1457400e-01,.1596300e-01,.1657800e-01,&
12703  & .1661500e-01,.1612500e-01,.1490400e-01,.1071800e-01,.5209300e-02,&
12704  & .1224700e-01,.1484500e-01,.1623900e-01,.1689000e-01,.1696500e-01,&
12705  & .1647700e-01,.1523800e-01,.1105000e-01,.5498100e-02,.1252000e-01,&
12706  & .1508900e-01,.1648500e-01,.1716300e-01,.1729600e-01,.1682300e-01,&
12707  & .1556100e-01,.1136700e-01,.5734100e-02,.1273200e-01,.1530200e-01,&
12708  & .1670900e-01,.1741200e-01,.1758700e-01,.1715600e-01,.1588200e-01,&
12709  & .1165700e-01,.5924500e-02,.1287900e-01,.1546000e-01,.1690000e-01,&
12710  & .1764600e-01,.1786200e-01,.1747500e-01,.1618900e-01,.1192400e-01/
12711 
12712  data absa(316:450, 7) / &
12713  & .3890300e-02,.1008600e-01,.1239300e-01,.1361700e-01,.1417900e-01,&
12714  & .1423000e-01,.1381000e-01,.1274100e-01,.9040200e-02,.4188300e-02,&
12715  & .1037900e-01,.1264200e-01,.1386600e-01,.1445400e-01,.1454900e-01,&
12716  & .1414000e-01,.1305000e-01,.9340700e-02,.4437400e-02,.1062800e-01,&
12717  & .1286600e-01,.1409300e-01,.1470200e-01,.1484700e-01,.1446600e-01,&
12718  & .1335400e-01,.9628900e-02,.4641700e-02,.1082300e-01,.1306700e-01,&
12719  & .1429700e-01,.1493600e-01,.1511300e-01,.1477700e-01,.1365900e-01,&
12720  & .9894600e-02,.4810600e-02,.1095800e-01,.1321200e-01,.1447700e-01,&
12721  & .1515500e-01,.1536900e-01,.1506500e-01,.1395400e-01,.1013700e-01,&
12722  & .3090600e-02,.8471600e-02,.1047500e-01,.1153300e-01,.1203700e-01,&
12723  & .1210200e-01,.1175700e-01,.1084000e-01,.7579000e-02,.3345600e-02,&
12724  & .8738000e-02,.1069800e-01,.1175900e-01,.1228100e-01,.1238400e-01,&
12725  & .1206300e-01,.1112400e-01,.7852400e-02,.3562400e-02,.8963600e-02,&
12726  & .1090800e-01,.1196400e-01,.1250300e-01,.1265100e-01,.1236600e-01,&
12727  & .1141300e-01,.8111600e-02,.3740900e-02,.9139400e-02,.1108500e-01,&
12728  & .1215600e-01,.1271700e-01,.1289500e-01,.1264600e-01,.1170300e-01,&
12729  & .8354300e-02,.3889900e-02,.9266300e-02,.1121000e-01,.1232300e-01,&
12730  & .1292300e-01,.1313500e-01,.1290900e-01,.1197900e-01,.8574800e-02,&
12731  & .2458800e-02,.7099700e-02,.8815600e-02,.9728000e-02,.1017500e-01,&
12732  & .1024600e-01,.9971200e-02,.9195100e-02,.6332400e-02,.2674300e-02,&
12733  & .7339300e-02,.9018300e-02,.9928900e-02,.1038700e-01,.1049600e-01,&
12734  & .1024900e-01,.9456600e-02,.6577000e-02,.2861000e-02,.7535200e-02,&
12735  & .9202800e-02,.1011700e-01,.1058600e-01,.1073000e-01,.1052400e-01,&
12736  & .9730700e-02,.6807700e-02,.3014700e-02,.7689900e-02,.9355000e-02,&
12737  & .1029100e-01,.1078100e-01,.1095400e-01,.1077800e-01,.1000100e-01,&
12738  & .7020100e-02,.3144400e-02,.7805000e-02,.9466800e-02,.1043300e-01,&
12739  & .1097400e-01,.1117300e-01,.1101900e-01,.1025300e-01,.7218900e-02/
12740 
12741  data absa(451:585, 7) / &
12742  & .2034500e-02,.6024900e-02,.7471600e-02,.8249600e-02,.8645800e-02,&
12743  & .8734000e-02,.8522200e-02,.7865700e-02,.5371400e-02,.2207100e-02,&
12744  & .6217600e-02,.7644000e-02,.8425100e-02,.8827300e-02,.8946100e-02,&
12745  & .8768900e-02,.8112500e-02,.5583500e-02,.2355400e-02,.6372900e-02,&
12746  & .7793200e-02,.8586800e-02,.9005800e-02,.9154800e-02,.9007500e-02,&
12747  & .8366000e-02,.5782700e-02,.2478000e-02,.6494400e-02,.7910600e-02,&
12748  & .8729100e-02,.9185700e-02,.9356500e-02,.9230200e-02,.8603600e-02,&
12749  & .5969500e-02,.2582000e-02,.6580200e-02,.7997400e-02,.8842700e-02,&
12750  & .9348200e-02,.9553900e-02,.9444300e-02,.8818000e-02,.6151200e-02,&
12751  & .1678900e-02,.5090600e-02,.6307800e-02,.6975000e-02,.7317200e-02,&
12752  & .7407800e-02,.7250400e-02,.6701500e-02,.4539400e-02,.1817000e-02,&
12753  & .5243700e-02,.6451200e-02,.7125500e-02,.7479000e-02,.7595900e-02,&
12754  & .7465500e-02,.6930700e-02,.4723700e-02,.1935600e-02,.5368900e-02,&
12755  & .6570100e-02,.7261000e-02,.7641500e-02,.7781100e-02,.7670300e-02,&
12756  & .7150800e-02,.4895300e-02,.2034200e-02,.5464400e-02,.6664000e-02,&
12757  & .7379200e-02,.7792900e-02,.7963500e-02,.7866000e-02,.7353200e-02,&
12758  & .5060700e-02,.2118200e-02,.5532800e-02,.6735200e-02,.7473600e-02,&
12759  & .7928200e-02,.8130700e-02,.8054200e-02,.7540700e-02,.5223400e-02,&
12760  & .1381900e-02,.4282300e-02,.5309600e-02,.5877100e-02,.6174500e-02,&
12761  & .6260100e-02,.6141100e-02,.5689300e-02,.3820100e-02,.1492700e-02,&
12762  & .4407800e-02,.5426100e-02,.6005500e-02,.6316700e-02,.6427800e-02,&
12763  & .6326800e-02,.5889100e-02,.3978900e-02,.1588400e-02,.4509000e-02,&
12764  & .5524600e-02,.6121700e-02,.6457700e-02,.6590300e-02,.6504400e-02,&
12765  & .6075800e-02,.4128800e-02,.1668300e-02,.4585800e-02,.5602900e-02,&
12766  & .6219300e-02,.6585900e-02,.6745400e-02,.6676800e-02,.6250600e-02,&
12767  & .4276500e-02,.1736400e-02,.4641900e-02,.5664400e-02,.6299600e-02,&
12768  & .6699800e-02,.6888800e-02,.6840400e-02,.6418800e-02,.4419800e-02/
12769 
12770  data absa( 1:180, 8) / &
12771  & .5776000e-01,.6943200e-01,.7640200e-01,.8151700e-01,.8512500e-01,&
12772  & .8728900e-01,.8740800e-01,.8331700e-01,.7472000e-01,.5825600e-01,&
12773  & .6966700e-01,.7672300e-01,.8191100e-01,.8536200e-01,.8728900e-01,&
12774  & .8730600e-01,.8335700e-01,.7517700e-01,.5871000e-01,.6985900e-01,&
12775  & .7697300e-01,.8232800e-01,.8569000e-01,.8742000e-01,.8726400e-01,&
12776  & .8343500e-01,.7570100e-01,.5905200e-01,.7005000e-01,.7717600e-01,&
12777  & .8264200e-01,.8607100e-01,.8766000e-01,.8734100e-01,.8354400e-01,&
12778  & .7623000e-01,.5929800e-01,.7019800e-01,.7737400e-01,.8288300e-01,&
12779  & .8646900e-01,.8797700e-01,.8747300e-01,.8369100e-01,.7676900e-01,&
12780  & .5090800e-01,.6284800e-01,.7000300e-01,.7526300e-01,.7867000e-01,&
12781  & .8059400e-01,.8069400e-01,.7704800e-01,.6704800e-01,.5146900e-01,&
12782  & .6317800e-01,.7039500e-01,.7576300e-01,.7903300e-01,.8077500e-01,&
12783  & .8068600e-01,.7719900e-01,.6760500e-01,.5195600e-01,.6351900e-01,&
12784  & .7074800e-01,.7622100e-01,.7951200e-01,.8106700e-01,.8079700e-01,&
12785  & .7737000e-01,.6818200e-01,.5232900e-01,.6383100e-01,.7111500e-01,&
12786  & .7659100e-01,.8003200e-01,.8144500e-01,.8100100e-01,.7756800e-01,&
12787  & .6876800e-01,.5264800e-01,.6410800e-01,.7144100e-01,.7694100e-01,&
12788  & .8046400e-01,.8186600e-01,.8128200e-01,.7779600e-01,.6937700e-01,&
12789  & .4463600e-01,.5657500e-01,.6366700e-01,.6880400e-01,.7214600e-01,&
12790  & .7394000e-01,.7375600e-01,.7035900e-01,.5944600e-01,.4521600e-01,&
12791  & .5700500e-01,.6411100e-01,.6932800e-01,.7262000e-01,.7422800e-01,&
12792  & .7385400e-01,.7060000e-01,.6008600e-01,.4571600e-01,.5744800e-01,&
12793  & .6459100e-01,.6981600e-01,.7317800e-01,.7461600e-01,.7409300e-01,&
12794  & .7084300e-01,.6073800e-01,.4613700e-01,.5786200e-01,.6506000e-01,&
12795  & .7028300e-01,.7372400e-01,.7506700e-01,.7440800e-01,.7113000e-01,&
12796  & .6138500e-01,.4649000e-01,.5824000e-01,.6553700e-01,.7075200e-01,&
12797  & .7418700e-01,.7554500e-01,.7481700e-01,.7147900e-01,.6199800e-01,&
12798  & .3891000e-01,.5082300e-01,.5750500e-01,.6236400e-01,.6555900e-01,&
12799  & .6715400e-01,.6679800e-01,.6353100e-01,.5240100e-01,.3948800e-01,&
12800  & .5130700e-01,.5802200e-01,.6291200e-01,.6607400e-01,.6751800e-01,&
12801  & .6702500e-01,.6384000e-01,.5309300e-01,.3999100e-01,.5181200e-01,&
12802  & .5856600e-01,.6345100e-01,.6663200e-01,.6801000e-01,.6734800e-01,&
12803  & .6416900e-01,.5378200e-01,.4038700e-01,.5229100e-01,.5911700e-01,&
12804  & .6400100e-01,.6719600e-01,.6851400e-01,.6778900e-01,.6455500e-01,&
12805  & .5447000e-01,.4071900e-01,.5273900e-01,.5969100e-01,.6457200e-01,&
12806  & .6772500e-01,.6903100e-01,.6830700e-01,.6498500e-01,.5509100e-01/
12807 
12808  data absa(181:315, 8) / &
12809  & .3369200e-01,.4545900e-01,.5170500e-01,.5611100e-01,.5898400e-01,&
12810  & .6038400e-01,.5995100e-01,.5677000e-01,.4593900e-01,.3425400e-01,&
12811  & .4597900e-01,.5225200e-01,.5666400e-01,.5951500e-01,.6081600e-01,&
12812  & .6027300e-01,.5714600e-01,.4664700e-01,.3473800e-01,.4653200e-01,&
12813  & .5284600e-01,.5723800e-01,.6007700e-01,.6135200e-01,.6071400e-01,&
12814  & .5756600e-01,.4735900e-01,.3511700e-01,.4704700e-01,.5345900e-01,&
12815  & .5784900e-01,.6066800e-01,.6190200e-01,.6125900e-01,.5803000e-01,&
12816  & .4803600e-01,.3542800e-01,.4750800e-01,.5408300e-01,.5849300e-01,&
12817  & .6125300e-01,.6248100e-01,.6185100e-01,.5852300e-01,.4864800e-01,&
12818  & .2891000e-01,.4042900e-01,.4617600e-01,.5010800e-01,.5260900e-01,&
12819  & .5375000e-01,.5328900e-01,.5028600e-01,.4006100e-01,.2943300e-01,&
12820  & .4096700e-01,.4673100e-01,.5065300e-01,.5314900e-01,.5423200e-01,&
12821  & .5368700e-01,.5071400e-01,.4075600e-01,.2988300e-01,.4152000e-01,&
12822  & .4734900e-01,.5125100e-01,.5373100e-01,.5479600e-01,.5420700e-01,&
12823  & .5118800e-01,.4144300e-01,.3025200e-01,.4202400e-01,.4799800e-01,&
12824  & .5191800e-01,.5433900e-01,.5538700e-01,.5482000e-01,.5171100e-01,&
12825  & .4208500e-01,.3054200e-01,.4244700e-01,.4863500e-01,.5259800e-01,&
12826  & .5498600e-01,.5603800e-01,.5543000e-01,.5223600e-01,.4267500e-01,&
12827  & .2460000e-01,.3572500e-01,.4095200e-01,.4439800e-01,.4655800e-01,&
12828  & .4746200e-01,.4695000e-01,.4422700e-01,.3475100e-01,.2506000e-01,&
12829  & .3625000e-01,.4149800e-01,.4495000e-01,.4709700e-01,.4797700e-01,&
12830  & .4739900e-01,.4469000e-01,.3541000e-01,.2546600e-01,.3676900e-01,&
12831  & .4211900e-01,.4557200e-01,.4769600e-01,.4854800e-01,.4796500e-01,&
12832  & .4519800e-01,.3605000e-01,.2580400e-01,.3723200e-01,.4276400e-01,&
12833  & .4624900e-01,.4834900e-01,.4917300e-01,.4860300e-01,.4573700e-01,&
12834  & .3664900e-01,.2607500e-01,.3764500e-01,.4337100e-01,.4695000e-01,&
12835  & .4904500e-01,.4985600e-01,.4922300e-01,.4627900e-01,.3719800e-01/
12836 
12837  data absa(316:450, 8) / &
12838  & .2074700e-01,.3132500e-01,.3601600e-01,.3904700e-01,.4092100e-01,&
12839  & .4165600e-01,.4109700e-01,.3868200e-01,.2995500e-01,.2114500e-01,&
12840  & .3181100e-01,.3654100e-01,.3959700e-01,.4145500e-01,.4216900e-01,&
12841  & .4157500e-01,.3914500e-01,.3057700e-01,.2149700e-01,.3229000e-01,&
12842  & .3715500e-01,.4023800e-01,.4206700e-01,.4274400e-01,.4215400e-01,&
12843  & .3964800e-01,.3117800e-01,.2179600e-01,.3271700e-01,.3776600e-01,&
12844  & .4092300e-01,.4273800e-01,.4339400e-01,.4276800e-01,.4018500e-01,&
12845  & .3173300e-01,.2204400e-01,.3311200e-01,.3833800e-01,.4159700e-01,&
12846  & .4346200e-01,.4408700e-01,.4338500e-01,.4074000e-01,.3225400e-01,&
12847  & .1736000e-01,.2721800e-01,.3140100e-01,.3408400e-01,.3574100e-01,&
12848  & .3637300e-01,.3579800e-01,.3359400e-01,.2566400e-01,.1769300e-01,&
12849  & .2766200e-01,.3190800e-01,.3462200e-01,.3626400e-01,.3687700e-01,&
12850  & .3628500e-01,.3404900e-01,.2625100e-01,.1799200e-01,.2808900e-01,&
12851  & .3247700e-01,.3525500e-01,.3687400e-01,.3744400e-01,.3683100e-01,&
12852  & .3454400e-01,.2681400e-01,.1825800e-01,.2848100e-01,.3305000e-01,&
12853  & .3590900e-01,.3755200e-01,.3807800e-01,.3742100e-01,.3507300e-01,&
12854  & .2733500e-01,.1848400e-01,.2884900e-01,.3360100e-01,.3653600e-01,&
12855  & .3825400e-01,.3875600e-01,.3802600e-01,.3561600e-01,.2782900e-01,&
12856  & .1446200e-01,.2346300e-01,.2718600e-01,.2958800e-01,.3107900e-01,&
12857  & .3162500e-01,.3105300e-01,.2901200e-01,.2191600e-01,.1473700e-01,&
12858  & .2385300e-01,.2766200e-01,.3010900e-01,.3158100e-01,.3211600e-01,&
12859  & .3152700e-01,.2946100e-01,.2246000e-01,.1498300e-01,.2423800e-01,&
12860  & .2818700e-01,.3071000e-01,.3217600e-01,.3266400e-01,.3204400e-01,&
12861  & .2994800e-01,.2298700e-01,.1522800e-01,.2459300e-01,.2871800e-01,&
12862  & .3131200e-01,.3282600e-01,.3328200e-01,.3261500e-01,.3046700e-01,&
12863  & .2347800e-01,.1541100e-01,.2493200e-01,.2922800e-01,.3190300e-01,&
12864  & .3345500e-01,.3394300e-01,.3320700e-01,.3099400e-01,.2393900e-01/
12865 
12866  data absa(451:585, 8) / &
12867  & .1209700e-01,.2023000e-01,.2355400e-01,.2573700e-01,.2707000e-01,&
12868  & .2752600e-01,.2698700e-01,.2512500e-01,.1884300e-01,.1231600e-01,&
12869  & .2056400e-01,.2401400e-01,.2626500e-01,.2758900e-01,.2802100e-01,&
12870  & .2746200e-01,.2558000e-01,.1934100e-01,.1252500e-01,.2089300e-01,&
12871  & .2449400e-01,.2681700e-01,.2817200e-01,.2857800e-01,.2798500e-01,&
12872  & .2607300e-01,.1981100e-01,.1269800e-01,.2121200e-01,.2497100e-01,&
12873  & .2735800e-01,.2875200e-01,.2919600e-01,.2855400e-01,.2657500e-01,&
12874  & .2025400e-01,.1281300e-01,.2152700e-01,.2542800e-01,.2788600e-01,&
12875  & .2931600e-01,.2979400e-01,.2914400e-01,.2709500e-01,.2066900e-01,&
12876  & .1007900e-01,.1733200e-01,.2032600e-01,.2228300e-01,.2345200e-01,&
12877  & .2384000e-01,.2335100e-01,.2170100e-01,.1615000e-01,.1025300e-01,&
12878  & .1762400e-01,.2073800e-01,.2277200e-01,.2396300e-01,.2434300e-01,&
12879  & .2383000e-01,.2215900e-01,.1660500e-01,.1041200e-01,.1791400e-01,&
12880  & .2116500e-01,.2325700e-01,.2449100e-01,.2490700e-01,.2436400e-01,&
12881  & .2263300e-01,.1703100e-01,.1052800e-01,.1820300e-01,.2158500e-01,&
12882  & .2373200e-01,.2501900e-01,.2546600e-01,.2492500e-01,.2312300e-01,&
12883  & .1744000e-01,.1059500e-01,.1849100e-01,.2198700e-01,.2420500e-01,&
12884  & .2552600e-01,.2601300e-01,.2549700e-01,.2363300e-01,.1782500e-01,&
12885  & .8367500e-02,.1477800e-01,.1745500e-01,.1920100e-01,.2021400e-01,&
12886  & .2054500e-01,.2013300e-01,.1870300e-01,.1381000e-01,.8503700e-02,&
12887  & .1503300e-01,.1782400e-01,.1962100e-01,.2068400e-01,.2105200e-01,&
12888  & .2061600e-01,.1914500e-01,.1421800e-01,.8612900e-02,.1530300e-01,&
12889  & .1819700e-01,.2004300e-01,.2116300e-01,.2157700e-01,.2114300e-01,&
12890  & .1960000e-01,.1461700e-01,.8691200e-02,.1556800e-01,.1856500e-01,&
12891  & .2047200e-01,.2163600e-01,.2209100e-01,.2167400e-01,.2009000e-01,&
12892  & .1499100e-01,.8730200e-02,.1580000e-01,.1891700e-01,.2088700e-01,&
12893  & .2210300e-01,.2259400e-01,.2219800e-01,.2058600e-01,.1535100e-01/
12894 
12895  data absa( 1:180, 9) / &
12896  & .2875600e+00,.2846608e+00,.3007336e+00,.3116711e+00,.3128429e+00,&
12897  & .3061657e+00,.2955131e+00,.2798330e+00,.2885174e+00,.2846791e+00,&
12898  & .2818630e+00,.2979418e+00,.3088891e+00,.3105850e+00,.3045729e+00,&
12899  & .2947321e+00,.2798508e+00,.2884665e+00,.2823420e+00,.2795426e+00,&
12900  & .2956237e+00,.3062904e+00,.3083329e+00,.3027922e+00,.2937895e+00,&
12901  & .2797232e+00,.2884416e+00,.2804602e+00,.2775936e+00,.2936396e+00,&
12902  & .3040736e+00,.3061042e+00,.3009290e+00,.2927341e+00,.2793614e+00,&
12903  & .2882076e+00,.2789708e+00,.2760060e+00,.2919045e+00,.3021032e+00,&
12904  & .3039633e+00,.2991521e+00,.2914947e+00,.2788660e+00,.2878374e+00,&
12905  & .2691839e+00,.2738289e+00,.2925806e+00,.3047303e+00,.3076965e+00,&
12906  & .3021735e+00,.2903704e+00,.2740484e+00,.2753391e+00,.2667388e+00,&
12907  & .2713965e+00,.2901694e+00,.3021752e+00,.3055593e+00,.3006242e+00,&
12908  & .2897230e+00,.2740378e+00,.2755566e+00,.2649469e+00,.2695060e+00,&
12909  & .2881919e+00,.2999513e+00,.3034581e+00,.2989484e+00,.2889087e+00,&
12910  & .2738977e+00,.2755970e+00,.2636807e+00,.2680315e+00,.2865238e+00,&
12911  & .2980684e+00,.3014061e+00,.2973517e+00,.2879069e+00,.2735423e+00,&
12912  & .2754315e+00,.2627764e+00,.2669319e+00,.2851547e+00,.2963620e+00,&
12913  & .2995768e+00,.2957673e+00,.2866862e+00,.2730982e+00,.2752015e+00,&
12914  & .2490195e+00,.2608954e+00,.2819694e+00,.2948392e+00,.2994181e+00,&
12915  & .2960253e+00,.2839092e+00,.2667913e+00,.2610712e+00,.2470483e+00,&
12916  & .2588078e+00,.2799097e+00,.2926407e+00,.2974527e+00,.2945959e+00,&
12917  & .2834853e+00,.2668456e+00,.2614061e+00,.2457732e+00,.2572386e+00,&
12918  & .2782150e+00,.2907979e+00,.2955550e+00,.2931132e+00,.2827947e+00,&
12919  & .2667547e+00,.2614625e+00,.2450220e+00,.2561881e+00,.2768616e+00,&
12920  & .2892386e+00,.2937867e+00,.2916947e+00,.2819208e+00,.2664583e+00,&
12921  & .2614477e+00,.2447576e+00,.2555647e+00,.2758063e+00,.2878616e+00,&
12922  & .2922788e+00,.2903473e+00,.2808432e+00,.2661024e+00,.2614835e+00,&
12923  & .2278433e+00,.2459460e+00,.2687748e+00,.2823420e+00,.2883606e+00,&
12924  & .2867773e+00,.2761135e+00,.2583114e+00,.2469847e+00,.2262821e+00,&
12925  & .2442492e+00,.2669664e+00,.2804797e+00,.2866383e+00,.2856021e+00,&
12926  & .2758521e+00,.2584755e+00,.2474068e+00,.2254367e+00,.2430836e+00,&
12927  & .2656062e+00,.2789372e+00,.2850299e+00,.2843218e+00,.2753572e+00,&
12928  & .2584303e+00,.2476169e+00,.2252826e+00,.2424728e+00,.2646308e+00,&
12929  & .2777122e+00,.2836401e+00,.2831157e+00,.2746060e+00,.2582669e+00,&
12930  & .2478333e+00,.2256551e+00,.2423529e+00,.2639731e+00,.2766779e+00,&
12931  & .2825116e+00,.2820352e+00,.2736912e+00,.2580734e+00,.2481106e+00/
12932 
12933  data absa(181:315, 9) / &
12934  & .2062751e+00,.2298044e+00,.2532990e+00,.2676292e+00,.2748784e+00,&
12935  & .2747996e+00,.2666545e+00,.2487411e+00,.2325541e+00,.2051043e+00,&
12936  & .2284554e+00,.2518239e+00,.2660870e+00,.2734853e+00,.2738569e+00,&
12937  & .2665350e+00,.2490789e+00,.2332102e+00,.2047919e+00,.2277211e+00,&
12938  & .2507972e+00,.2649403e+00,.2721940e+00,.2728699e+00,.2661103e+00,&
12939  & .2492251e+00,.2337220e+00,.2051961e+00,.2275744e+00,.2501902e+00,&
12940  & .2640418e+00,.2711870e+00,.2720181e+00,.2654582e+00,.2492504e+00,&
12941  & .2342238e+00,.2061900e+00,.2279645e+00,.2499630e+00,.2633833e+00,&
12942  & .2704230e+00,.2712077e+00,.2647461e+00,.2492510e+00,.2347478e+00,&
12943  & .1853388e+00,.2130833e+00,.2365145e+00,.2513589e+00,.2593134e+00,&
12944  & .2609466e+00,.2549939e+00,.2376988e+00,.2170867e+00,.1845601e+00,&
12945  & .2121024e+00,.2353552e+00,.2502019e+00,.2582784e+00,.2602288e+00,&
12946  & .2550486e+00,.2382771e+00,.2180680e+00,.1846602e+00,.2117219e+00,&
12947  & .2346887e+00,.2493886e+00,.2574166e+00,.2595177e+00,.2547983e+00,&
12948  & .2386926e+00,.2189256e+00,.1855458e+00,.2119966e+00,.2344799e+00,&
12949  & .2488166e+00,.2567948e+00,.2589356e+00,.2543373e+00,.2389459e+00,&
12950  & .2197901e+00,.1870772e+00,.2128598e+00,.2346986e+00,.2485625e+00,&
12951  & .2564000e+00,.2584353e+00,.2538996e+00,.2391912e+00,.2205482e+00,&
12952  & .1654511e+00,.1961135e+00,.2190853e+00,.2338982e+00,.2425818e+00,&
12953  & .2456184e+00,.2412218e+00,.2252744e+00,.2008814e+00,.1650292e+00,&
12954  & .1954131e+00,.2182427e+00,.2330965e+00,.2418982e+00,.2451802e+00,&
12955  & .2414790e+00,.2260855e+00,.2021875e+00,.1654771e+00,.1953910e+00,&
12956  & .2179136e+00,.2326080e+00,.2414414e+00,.2447571e+00,.2414612e+00,&
12957  & .2267328e+00,.2033987e+00,.1667613e+00,.1960735e+00,.2180521e+00,&
12958  & .2324354e+00,.2411480e+00,.2444710e+00,.2413228e+00,.2272824e+00,&
12959  & .2045050e+00,.1686834e+00,.1973572e+00,.2187006e+00,.2325944e+00,&
12960  & .2410697e+00,.2443064e+00,.2412853e+00,.2277903e+00,.2054612e+00/
12961 
12962  data absa(316:450, 9) / &
12963  & .1466987e+00,.1792921e+00,.2014461e+00,.2160765e+00,.2251959e+00,&
12964  & .2288858e+00,.2256137e+00,.2115906e+00,.1843005e+00,.1465091e+00,&
12965  & .1788078e+00,.2009639e+00,.2155790e+00,.2248838e+00,.2288389e+00,&
12966  & .2260797e+00,.2126564e+00,.1858920e+00,.1472457e+00,.1790577e+00,&
12967  & .2009403e+00,.2154072e+00,.2247365e+00,.2287839e+00,.2263437e+00,&
12968  & .2135828e+00,.1874072e+00,.1487936e+00,.1800885e+00,.2014536e+00,&
12969  & .2156062e+00,.2248091e+00,.2288471e+00,.2265932e+00,.2144085e+00,&
12970  & .1887703e+00,.1510004e+00,.1817540e+00,.2025068e+00,.2162005e+00,&
12971  & .2250829e+00,.2290843e+00,.2269522e+00,.2151187e+00,.1899588e+00,&
12972  & .1290166e+00,.1628134e+00,.1841393e+00,.1984523e+00,.2074091e+00,&
12973  & .2111610e+00,.2086918e+00,.1966022e+00,.1675581e+00,.1290151e+00,&
12974  & .1624988e+00,.1838874e+00,.1982834e+00,.2074512e+00,.2114622e+00,&
12975  & .2094660e+00,.1978766e+00,.1694333e+00,.1299542e+00,.1629858e+00,&
12976  & .1841354e+00,.1984427e+00,.2076315e+00,.2117841e+00,.2100747e+00,&
12977  & .1990529e+00,.1712079e+00,.1317221e+00,.1642880e+00,.1849872e+00,&
12978  & .1989586e+00,.2080569e+00,.2122421e+00,.2107272e+00,.2001600e+00,&
12979  & .1728028e+00,.1340336e+00,.1662556e+00,.1864180e+00,.1999647e+00,&
12980  & .2087569e+00,.2128849e+00,.2114836e+00,.2011527e+00,.1742183e+00,&
12981  & .1126804e+00,.1466556e+00,.1672889e+00,.1811021e+00,.1894716e+00,&
12982  & .1930711e+00,.1911967e+00,.1807203e+00,.1511468e+00,.1128902e+00,&
12983  & .1466324e+00,.1672756e+00,.1812574e+00,.1898492e+00,.1936951e+00,&
12984  & .1922455e+00,.1822647e+00,.1532592e+00,.1140256e+00,.1474289e+00,&
12985  & .1678506e+00,.1817516e+00,.1903705e+00,.1944050e+00,.1932330e+00,&
12986  & .1836902e+00,.1552103e+00,.1159334e+00,.1490190e+00,.1690437e+00,&
12987  & .1826551e+00,.1911836e+00,.1952461e+00,.1942671e+00,.1850452e+00,&
12988  & .1569828e+00,.1181595e+00,.1512541e+00,.1708193e+00,.1840599e+00,&
12989  & .1923574e+00,.1963008e+00,.1954232e+00,.1863167e+00,.1585924e+00/
12990 
12991  data absa(451:585, 9) / &
12992  & .9798189e-01,.1313265e+00,.1510348e+00,.1641642e+00,.1721410e+00,&
12993  & .1755759e+00,.1741644e+00,.1652309e+00,.1361983e+00,.9876591e-01,&
12994  & .1319241e+00,.1515858e+00,.1647606e+00,.1728744e+00,.1765573e+00,&
12995  & .1754929e+00,.1669557e+00,.1384236e+00,.1003841e+00,.1333210e+00,&
12996  & .1527464e+00,.1657657e+00,.1738505e+00,.1776840e+00,.1768404e+00,&
12997  & .1686021e+00,.1404407e+00,.1023815e+00,.1354349e+00,.1545144e+00,&
12998  & .1673004e+00,.1752277e+00,.1790049e+00,.1782869e+00,.1701818e+00,&
12999  & .1423084e+00,.1045182e+00,.1378387e+00,.1568227e+00,.1693189e+00,&
13000  & .1770176e+00,.1806205e+00,.1797803e+00,.1716817e+00,.1441206e+00,&
13001  & .8513105e-01,.1174272e+00,.1357845e+00,.1479723e+00,.1555369e+00,&
13002  & .1588474e+00,.1576920e+00,.1498764e+00,.1219425e+00,.8639013e-01,&
13003  & .1185546e+00,.1369085e+00,.1490184e+00,.1566903e+00,.1601862e+00,&
13004  & .1592810e+00,.1518099e+00,.1242064e+00,.8811019e-01,.1204518e+00,&
13005  & .1385898e+00,.1506015e+00,.1581843e+00,.1617403e+00,.1609764e+00,&
13006  & .1536670e+00,.1263021e+00,.9004252e-01,.1227432e+00,.1408853e+00,&
13007  & .1527101e+00,.1601143e+00,.1635634e+00,.1627369e+00,.1554561e+00,&
13008  & .1283211e+00,.9212719e-01,.1251177e+00,.1434973e+00,.1553078e+00,&
13009  & .1624820e+00,.1656416e+00,.1645751e+00,.1572251e+00,.1303753e+00,&
13010  & .7386256e-01,.1049065e+00,.1217281e+00,.1327938e+00,.1397977e+00,&
13011  & .1430454e+00,.1419673e+00,.1350204e+00,.1084738e+00,.7529440e-01,&
13012  & .1065145e+00,.1232849e+00,.1343471e+00,.1414069e+00,.1447364e+00,&
13013  & .1438645e+00,.1371204e+00,.1108041e+00,.7697705e-01,.1086621e+00,&
13014  & .1254864e+00,.1364483e+00,.1434325e+00,.1467317e+00,.1458386e+00,&
13015  & .1392068e+00,.1129989e+00,.7887272e-01,.1109542e+00,.1281014e+00,&
13016  & .1390876e+00,.1459050e+00,.1489849e+00,.1479204e+00,.1412350e+00,&
13017  & .1152445e+00,.8092106e-01,.1133621e+00,.1308019e+00,.1420681e+00,&
13018  & .1487342e+00,.1514606e+00,.1501482e+00,.1433560e+00,.1175338e+00/
13019 
13020  data absa( 1:180,10) / &
13021  & .1892134e+01,.1658490e+01,.1482317e+01,.1379089e+01,.1354260e+01,&
13022  & .1396373e+01,.1493971e+01,.1670802e+01,.1862417e+01,.1891097e+01,&
13023  & .1657654e+01,.1481328e+01,.1378847e+01,.1353670e+01,.1394913e+01,&
13024  & .1490545e+01,.1665288e+01,.1856307e+01,.1886928e+01,.1654075e+01,&
13025  & .1478255e+01,.1377182e+01,.1351932e+01,.1393126e+01,.1486947e+01,&
13026  & .1659721e+01,.1849481e+01,.1880181e+01,.1648189e+01,.1473312e+01,&
13027  & .1373916e+01,.1349297e+01,.1390619e+01,.1483307e+01,.1654665e+01,&
13028  & .1843360e+01,.1870673e+01,.1639925e+01,.1466606e+01,.1369235e+01,&
13029  & .1345693e+01,.1387158e+01,.1479894e+01,.1649791e+01,.1837634e+01,&
13030  & .2033645e+01,.1786076e+01,.1609696e+01,.1508649e+01,.1481540e+01,&
13031  & .1520376e+01,.1619882e+01,.1790721e+01,.2011948e+01,.2032041e+01,&
13032  & .1784578e+01,.1608196e+01,.1508007e+01,.1480683e+01,.1518803e+01,&
13033  & .1616344e+01,.1785487e+01,.2005460e+01,.2027050e+01,.1780171e+01,&
13034  & .1604546e+01,.1505776e+01,.1478425e+01,.1516595e+01,.1612478e+01,&
13035  & .1780218e+01,.1999063e+01,.2019259e+01,.1773344e+01,.1599018e+01,&
13036  & .1501972e+01,.1475347e+01,.1513286e+01,.1608726e+01,.1775367e+01,&
13037  & .1993239e+01,.2008510e+01,.1763923e+01,.1591459e+01,.1496491e+01,&
13038  & .1471124e+01,.1509095e+01,.1605098e+01,.1770446e+01,.1987403e+01,&
13039  & .2178944e+01,.1920080e+01,.1745231e+01,.1648443e+01,.1618386e+01,&
13040  & .1649487e+01,.1748723e+01,.1914679e+01,.2160515e+01,.2176816e+01,&
13041  & .1918278e+01,.1743380e+01,.1647385e+01,.1617218e+01,.1647942e+01,&
13042  & .1744763e+01,.1909779e+01,.2154360e+01,.2171431e+01,.1913602e+01,&
13043  & .1739533e+01,.1644632e+01,.1614855e+01,.1645433e+01,.1740900e+01,&
13044  & .1904856e+01,.2148715e+01,.2162892e+01,.1906049e+01,.1733600e+01,&
13045  & .1640053e+01,.1611602e+01,.1641860e+01,.1736869e+01,.1900085e+01,&
13046  & .2142847e+01,.2151134e+01,.1895842e+01,.1725453e+01,.1633876e+01,&
13047  & .1606822e+01,.1637313e+01,.1732726e+01,.1894852e+01,.2136670e+01,&
13048  & .2323030e+01,.2056823e+01,.1886477e+01,.1793946e+01,.1761503e+01,&
13049  & .1786099e+01,.1877376e+01,.2039031e+01,.2297025e+01,.2320669e+01,&
13050  & .2054539e+01,.1884669e+01,.1792680e+01,.1760212e+01,.1784371e+01,&
13051  & .1873523e+01,.2034631e+01,.2291545e+01,.2314935e+01,.2049383e+01,&
13052  & .1880494e+01,.1789605e+01,.1757829e+01,.1781704e+01,.1869518e+01,&
13053  & .2030102e+01,.2286263e+01,.2305612e+01,.2041188e+01,.1873956e+01,&
13054  & .1784458e+01,.1754036e+01,.1777972e+01,.1865353e+01,.2025199e+01,&
13055  & .2280190e+01,.2293056e+01,.2030193e+01,.1865150e+01,.1777683e+01,&
13056  & .1748548e+01,.1773179e+01,.1860971e+01,.2019743e+01,.2273813e+01/
13057 
13058  data absa(181:315,10) / &
13059  & .2463042e+01,.2192642e+01,.2030621e+01,.1942197e+01,.1908343e+01,&
13060  & .1927535e+01,.2006081e+01,.2161944e+01,.2425159e+01,.2460420e+01,&
13061  & .2190039e+01,.2028628e+01,.1940843e+01,.1906973e+01,.1925788e+01,&
13062  & .2002593e+01,.2157807e+01,.2420144e+01,.2453905e+01,.2184091e+01,&
13063  & .2024115e+01,.1937152e+01,.1904425e+01,.1922817e+01,.1998960e+01,&
13064  & .2153199e+01,.2414552e+01,.2443881e+01,.2175206e+01,.2017059e+01,&
13065  & .1931637e+01,.1900107e+01,.1918693e+01,.1994945e+01,.2148178e+01,&
13066  & .2408426e+01,.2430382e+01,.2163388e+01,.2007456e+01,.1924180e+01,&
13067  & .1893992e+01,.1913520e+01,.1990266e+01,.2142434e+01,.2401933e+01,&
13068  & .2595361e+01,.2325394e+01,.2174062e+01,.2090012e+01,.2056871e+01,&
13069  & .2069942e+01,.2136930e+01,.2284007e+01,.2549107e+01,.2592280e+01,&
13070  & .2322210e+01,.2171892e+01,.2088399e+01,.2055272e+01,.2068312e+01,&
13071  & .2133783e+01,.2280033e+01,.2544255e+01,.2585394e+01,.2315981e+01,&
13072  & .2166893e+01,.2084474e+01,.2052146e+01,.2065367e+01,.2130298e+01,&
13073  & .2275321e+01,.2538577e+01,.2574759e+01,.2306564e+01,.2159165e+01,&
13074  & .2078513e+01,.2047302e+01,.2061084e+01,.2126258e+01,.2270085e+01,&
13075  & .2532268e+01,.2560534e+01,.2294295e+01,.2148978e+01,.2070421e+01,&
13076  & .2040584e+01,.2055565e+01,.2121352e+01,.2264122e+01,.2525794e+01,&
13077  & .2717730e+01,.2453250e+01,.2313374e+01,.2235402e+01,.2202356e+01,&
13078  & .2210413e+01,.2268848e+01,.2403823e+01,.2668217e+01,.2714408e+01,&
13079  & .2449934e+01,.2311069e+01,.2233513e+01,.2200700e+01,.2208877e+01,&
13080  & .2266063e+01,.2400211e+01,.2663785e+01,.2707312e+01,.2443349e+01,&
13081  & .2305816e+01,.2229419e+01,.2197247e+01,.2206137e+01,.2262718e+01,&
13082  & .2395786e+01,.2658274e+01,.2696315e+01,.2433710e+01,.2297781e+01,&
13083  & .2222901e+01,.2191947e+01,.2201655e+01,.2258338e+01,.2390352e+01,&
13084  & .2652236e+01,.2681738e+01,.2420849e+01,.2287046e+01,.2214166e+01,&
13085  & .2184829e+01,.2195666e+01,.2252886e+01,.2384216e+01,.2646214e+01/
13086 
13087  data absa(316:450,10) / &
13088  & .2830476e+01,.2574810e+01,.2446984e+01,.2374964e+01,.2342639e+01,&
13089  & .2348427e+01,.2400182e+01,.2520854e+01,.2781859e+01,.2827137e+01,&
13090  & .2571641e+01,.2444361e+01,.2373065e+01,.2340938e+01,.2346711e+01,&
13091  & .2397962e+01,.2517827e+01,.2778017e+01,.2819904e+01,.2565126e+01,&
13092  & .2438846e+01,.2368655e+01,.2337305e+01,.2343718e+01,.2394597e+01,&
13093  & .2513695e+01,.2772893e+01,.2808916e+01,.2555136e+01,.2430441e+01,&
13094  & .2361733e+01,.2331640e+01,.2338952e+01,.2389996e+01,.2508304e+01,&
13095  & .2767177e+01,.2794379e+01,.2541925e+01,.2419332e+01,.2352428e+01,&
13096  & .2324012e+01,.2332369e+01,.2384042e+01,.2502259e+01,.2761425e+01,&
13097  & .2933800e+01,.2689436e+01,.2572674e+01,.2506396e+01,.2476838e+01,&
13098  & .2482312e+01,.2528761e+01,.2636078e+01,.2889382e+01,.2930816e+01,&
13099  & .2686703e+01,.2570265e+01,.2504494e+01,.2475090e+01,.2480774e+01,&
13100  & .2526766e+01,.2633891e+01,.2886327e+01,.2923537e+01,.2680192e+01,&
13101  & .2564715e+01,.2499735e+01,.2471291e+01,.2477512e+01,.2523484e+01,&
13102  & .2630022e+01,.2881726e+01,.2912511e+01,.2670142e+01,.2556117e+01,&
13103  & .2492614e+01,.2465215e+01,.2472392e+01,.2518562e+01,.2624696e+01,&
13104  & .2876581e+01,.2898553e+01,.2656790e+01,.2544582e+01,.2482931e+01,&
13105  & .2457049e+01,.2465309e+01,.2512229e+01,.2618696e+01,.2871034e+01,&
13106  & .3027058e+01,.2797212e+01,.2690074e+01,.2629551e+01,.2604067e+01,&
13107  & .2610197e+01,.2652331e+01,.2748363e+01,.2990031e+01,.3023852e+01,&
13108  & .2794164e+01,.2687619e+01,.2627303e+01,.2602246e+01,.2608704e+01,&
13109  & .2650569e+01,.2746538e+01,.2987720e+01,.3016507e+01,.2787386e+01,&
13110  & .2681752e+01,.2622344e+01,.2598218e+01,.2605186e+01,.2647180e+01,&
13111  & .2742958e+01,.2983973e+01,.3005577e+01,.2777090e+01,.2672822e+01,&
13112  & .2614852e+01,.2591693e+01,.2599702e+01,.2642041e+01,.2737917e+01,&
13113  & .2979411e+01,.2992905e+01,.2763507e+01,.2660993e+01,.2604652e+01,&
13114  & .2582864e+01,.2591914e+01,.2635114e+01,.2731878e+01,.2974194e+01/
13115 
13116  data absa(451:585,10) / &
13117  & .3108634e+01,.2895420e+01,.2798425e+01,.2744368e+01,.2722653e+01,&
13118  & .2730122e+01,.2769336e+01,.2855617e+01,.3083249e+01,.3103552e+01,&
13119  & .2890636e+01,.2794237e+01,.2740840e+01,.2719834e+01,.2727815e+01,&
13120  & .2767022e+01,.2853516e+01,.3081043e+01,.3094635e+01,.2882058e+01,&
13121  & .2786673e+01,.2734481e+01,.2714488e+01,.2723042e+01,.2762618e+01,&
13122  & .2849365e+01,.3077793e+01,.3083887e+01,.2870120e+01,.2776133e+01,&
13123  & .2725197e+01,.2706459e+01,.2715971e+01,.2756337e+01,.2843995e+01,&
13124  & .3073502e+01,.3072208e+01,.2856377e+01,.2762710e+01,.2713207e+01,&
13125  & .2695854e+01,.2706674e+01,.2748406e+01,.2837477e+01,.3067985e+01,&
13126  & .3179487e+01,.2983632e+01,.2897614e+01,.2850758e+01,.2832739e+01,&
13127  & .2841435e+01,.2878587e+01,.2957109e+01,.3169588e+01,.3172853e+01,&
13128  & .2977291e+01,.2891777e+01,.2845999e+01,.2828739e+01,.2838054e+01,&
13129  & .2875642e+01,.2954402e+01,.3167982e+01,.3164067e+01,.2967272e+01,&
13130  & .2882837e+01,.2838175e+01,.2822030e+01,.2832002e+01,.2870360e+01,&
13131  & .2950082e+01,.3164988e+01,.3154001e+01,.2955025e+01,.2870648e+01,&
13132  & .2827230e+01,.2812357e+01,.2823496e+01,.2863128e+01,.2944286e+01,&
13133  & .3160501e+01,.3142799e+01,.2941633e+01,.2856439e+01,.2813383e+01,&
13134  & .2800017e+01,.2812937e+01,.2854322e+01,.2937121e+01,.3154451e+01,&
13135  & .3241097e+01,.3062217e+01,.2987360e+01,.2948157e+01,.2934292e+01,&
13136  & .2943847e+01,.2979640e+01,.3051660e+01,.3249168e+01,.3234006e+01,&
13137  & .3054284e+01,.2980255e+01,.2942054e+01,.2929013e+01,.2939386e+01,&
13138  & .2975962e+01,.3048876e+01,.3247803e+01,.3225888e+01,.3043668e+01,&
13139  & .2969796e+01,.2932743e+01,.2920751e+01,.2932040e+01,.2969899e+01,&
13140  & .3044051e+01,.3244864e+01,.3216320e+01,.3031794e+01,.2956859e+01,&
13141  & .2920139e+01,.2909436e+01,.2922425e+01,.2961874e+01,.3037648e+01,&
13142  & .3239868e+01,.3205483e+01,.3018784e+01,.2942726e+01,.2905212e+01,&
13143  & .2895638e+01,.2910719e+01,.2952008e+01,.3029378e+01,.3233244e+01/
13144 
13145 
13146  data absb( 1:175, 1) / &
13147  & .4063300e-08,.6471800e-06,.7956700e-06,.8126400e-06,.2508000e-07,&
13148  & .3759600e-08,.7042900e-06,.9085500e-06,.9643200e-06,.2829200e-07,&
13149  & .3498200e-08,.7637000e-06,.1031600e-05,.1147200e-05,.3126500e-07,&
13150  & .3270700e-08,.8283400e-06,.1157700e-05,.1338700e-05,.3492800e-07,&
13151  & .3071000e-08,.9025200e-06,.1296200e-05,.1520600e-05,.3885900e-07,&
13152  & .3302600e-08,.5359200e-06,.6617100e-06,.6763300e-06,.2076700e-07,&
13153  & .3057400e-08,.5795900e-06,.7538600e-06,.8039500e-06,.2333400e-07,&
13154  & .2846100e-08,.6289700e-06,.8548600e-06,.9574500e-06,.2584100e-07,&
13155  & .2662100e-08,.6835200e-06,.9613200e-06,.1114800e-05,.2886200e-07,&
13156  & .2500500e-08,.7451700e-06,.1073900e-05,.1263200e-05,.3209300e-07,&
13157  & .2682100e-08,.4408100e-06,.5509300e-06,.5646500e-06,.1718600e-07,&
13158  & .2484500e-08,.4777300e-06,.6263600e-06,.6718000e-06,.1923400e-07,&
13159  & .2314000e-08,.5181100e-06,.7079100e-06,.7965800e-06,.2134800e-07,&
13160  & .2165400e-08,.5641600e-06,.7989300e-06,.9287300e-06,.2383200e-07,&
13161  & .2034700e-08,.6153500e-06,.8898500e-06,.1049900e-05,.2648500e-07,&
13162  & .2177500e-08,.3625400e-06,.4587000e-06,.4712500e-06,.1421100e-07,&
13163  & .2018300e-08,.3937600e-06,.5205300e-06,.5616300e-06,.1586900e-07,&
13164  & .1880800e-08,.4268700e-06,.5869900e-06,.6638600e-06,.1762700e-07,&
13165  & .1760800e-08,.4655900e-06,.6638800e-06,.7706300e-06,.1966400e-07,&
13166  & .1655200e-08,.5074700e-06,.7369900e-06,.8724900e-06,.2184400e-07,&
13167  & .1768200e-08,.2983600e-06,.3810400e-06,.3931400e-06,.1173500e-07,&
13168  & .1639900e-08,.3249300e-06,.4321500e-06,.4689700e-06,.1307700e-07,&
13169  & .1529000e-08,.3520300e-06,.4866500e-06,.5532800e-06,.1453500e-07,&
13170  & .1432100e-08,.3838300e-06,.5503300e-06,.6384400e-06,.1620800e-07,&
13171  & .1346800e-08,.4182200e-06,.6095000e-06,.7237600e-06,.1799500e-07,&
13172  & .1436200e-08,.2456000e-06,.3166700e-06,.3279700e-06,.9683100e-08,&
13173  & .1332700e-08,.2678400e-06,.3587200e-06,.3913400e-06,.1077300e-07,&
13174  & .1243200e-08,.2900800e-06,.4033400e-06,.4602600e-06,.1198000e-07,&
13175  & .1165000e-08,.3163700e-06,.4558300e-06,.5288000e-06,.1335000e-07,&
13176  & .1096000e-08,.3450300e-06,.5036300e-06,.5996700e-06,.1481500e-07,&
13177  & .1166700e-08,.2023100e-06,.2631300e-06,.2735900e-06,.7993400e-08,&
13178  & .1083300e-08,.2208500e-06,.2976000e-06,.3262000e-06,.8880700e-08,&
13179  & .1011000e-08,.2391200e-06,.3342300e-06,.3827100e-06,.9877100e-08,&
13180  & .9477800e-09,.2607300e-06,.3768500e-06,.4379100e-06,.1100200e-07,&
13181  & .8919800e-09,.2842500e-06,.4158900e-06,.4968200e-06,.1220400e-07/
13182 
13183  data absb(176:350, 1) / &
13184  & .9466800e-09,.1673500e-06,.2182200e-06,.2291400e-06,.6623700e-08,&
13185  & .8795600e-09,.1825500e-06,.2477000e-06,.2729000e-06,.7347000e-08,&
13186  & .8213200e-09,.1977600e-06,.2778600e-06,.3191300e-06,.8173200e-08,&
13187  & .7703200e-09,.2155700e-06,.3119700e-06,.3638000e-06,.9101900e-08,&
13188  & .7252800e-09,.2345800e-06,.3444900e-06,.4125700e-06,.1008400e-07,&
13189  & .7680900e-09,.1385800e-06,.1813800e-06,.1918800e-06,.5492900e-08,&
13190  & .7140800e-09,.1508800e-06,.2061400e-06,.2283500e-06,.6082500e-08,&
13191  & .6671700e-09,.1636600e-06,.2311100e-06,.2662200e-06,.6768000e-08,&
13192  & .6260500e-09,.1781600e-06,.2583400e-06,.3024200e-06,.7534400e-08,&
13193  & .5897000e-09,.1937400e-06,.2854200e-06,.3422200e-06,.8339400e-08,&
13194  & .6201300e-09,.1154700e-06,.1521200e-06,.1622700e-06,.4592600e-08,&
13195  & .5770900e-09,.1255200e-06,.1721100e-06,.1926500e-06,.5072800e-08,&
13196  & .5396400e-09,.1361900e-06,.1936300e-06,.2240200e-06,.5645400e-08,&
13197  & .5067500e-09,.1480500e-06,.2155700e-06,.2532000e-06,.6280500e-08,&
13198  & .4776400e-09,.1609700e-06,.2379900e-06,.2857400e-06,.6941400e-08,&
13199  & .5005500e-09,.9616500e-07,.1277600e-06,.1375200e-06,.3793300e-08,&
13200  & .4662700e-09,.1042100e-06,.1438700e-06,.1622600e-06,.4215400e-08,&
13201  & .4363800e-09,.1132000e-06,.1624000e-06,.1880600e-06,.4676100e-08,&
13202  & .4100900e-09,.1231200e-06,.1800200e-06,.2121400e-06,.5172400e-08,&
13203  & .3867900e-09,.1338000e-06,.1983500e-06,.2383600e-06,.5686300e-08,&
13204  & .4038400e-09,.8017400e-07,.1074200e-06,.1166500e-06,.3143500e-08,&
13205  & .3765600e-09,.8661100e-07,.1206200e-06,.1369400e-06,.3474600e-08,&
13206  & .3527300e-09,.9420300e-07,.1361000e-06,.1572900e-06,.3858600e-08,&
13207  & .3317400e-09,.1024600e-06,.1503500e-06,.1777500e-06,.4270700e-08,&
13208  & .3131000e-09,.1112200e-06,.1654300e-06,.1991700e-06,.4702000e-08,&
13209  & .3256200e-09,.6678500e-07,.9044700e-07,.9905900e-07,.2613400e-08,&
13210  & .3039300e-09,.7213300e-07,.1013900e-06,.1157100e-06,.2887200e-08,&
13211  & .2849500e-09,.7844800e-07,.1138500e-06,.1317800e-06,.3206100e-08,&
13212  & .2682100e-09,.8533900e-07,.1256300e-06,.1491400e-06,.3548900e-08,&
13213  & .2533200e-09,.9244500e-07,.1381400e-06,.1667400e-06,.3906000e-08,&
13214  & .2622400e-09,.5568000e-07,.7636900e-07,.8440000e-07,.2175900e-08,&
13215  & .2450400e-09,.6020400e-07,.8542300e-07,.9788500e-07,.2411800e-08,&
13216  & .2299600e-09,.6547700e-07,.9532100e-07,.1109300e-06,.2677400e-08,&
13217  & .2166300e-09,.7118800e-07,.1052900e-06,.1254400e-06,.2961500e-08,&
13218  & .2047500e-09,.7694000e-07,.1155600e-06,.1397700e-06,.3256900e-08/
13219 
13220  data absb(351:525, 1) / &
13221  & .2112000e-09,.4638200e-07,.6389400e-07,.7137900e-07,.1817800e-08,&
13222  & .1975600e-09,.5027800e-07,.7203300e-07,.8290900e-07,.2018100e-08,&
13223  & .1855700e-09,.5467000e-07,.7995300e-07,.9350500e-07,.2239600e-08,&
13224  & .1749600e-09,.5940800e-07,.8817900e-07,.1055300e-06,.2473700e-08,&
13225  & .1654900e-09,.6402500e-07,.9669600e-07,.1170400e-06,.2709200e-08,&
13226  & .1701000e-09,.3863100e-07,.5377300e-07,.6057900e-07,.1522000e-08,&
13227  & .1592800e-09,.4200100e-07,.6066000e-07,.6972700e-07,.1690100e-08,&
13228  & .1497600e-09,.4566100e-07,.6706500e-07,.7884500e-07,.1869600e-08,&
13229  & .1413100e-09,.4957100e-07,.7380900e-07,.8848100e-07,.2061100e-08,&
13230  & .1337600e-09,.5330400e-07,.8091000e-07,.9801700e-07,.2256500e-08,&
13231  & .1369600e-09,.3227000e-07,.4539200e-07,.5143800e-07,.1272100e-08,&
13232  & .1283900e-09,.3507900e-07,.5094600e-07,.5872600e-07,.1411800e-08,&
13233  & .1208200e-09,.3815000e-07,.5625800e-07,.6649300e-07,.1562800e-08,&
13234  & .1141000e-09,.4132400e-07,.6184300e-07,.7438700e-07,.1720500e-08,&
13235  & .1080800e-09,.4438700e-07,.6773900e-07,.8221600e-07,.1874500e-08,&
13236  & .1102900e-09,.2697000e-07,.3833000e-07,.4369800e-07,.1065500e-08,&
13237  & .1034900e-09,.2931900e-07,.4273900e-07,.4955200e-07,.1182300e-08,&
13238  & .9748300e-10,.3186900e-07,.4721000e-07,.5605700e-07,.1303800e-08,&
13239  & .9213300e-10,.3443600e-07,.5181200e-07,.6248500e-07,.1428500e-08,&
13240  & .8734000e-10,.3695300e-07,.5670900e-07,.6892100e-07,.1556300e-08,&
13241  & .8880600e-10,.2255500e-07,.3238600e-07,.3712900e-07,.8902900e-09,&
13242  & .8341700e-10,.2451900e-07,.3592100e-07,.4187000e-07,.9854800e-09,&
13243  & .7864400e-10,.2663800e-07,.3960900e-07,.4727300e-07,.1085400e-08,&
13244  & .7438800e-10,.2869400e-07,.4342300e-07,.5243500e-07,.1188000e-08,&
13245  & .7056800e-10,.3077600e-07,.4741100e-07,.5775000e-07,.1293100e-08,&
13246  & .7150700e-10,.1887000e-07,.2733200e-07,.3130900e-07,.7443600e-09,&
13247  & .6723500e-10,.2051200e-07,.3018900e-07,.3540700e-07,.8229400e-09,&
13248  & .6344400e-10,.2225900e-07,.3321800e-07,.3973000e-07,.9048300e-09,&
13249  & .6005800e-10,.2392300e-07,.3640500e-07,.4397600e-07,.9890800e-09,&
13250  & .5701500e-10,.2563400e-07,.3954800e-07,.4834600e-07,.1075000e-08,&
13251  & .5758600e-10,.1577900e-07,.2295000e-07,.2641500e-07,.6225600e-09,&
13252  & .5419900e-10,.1715300e-07,.2535400e-07,.2990400e-07,.6873400e-09,&
13253  & .5118800e-10,.1856900e-07,.2786900e-07,.3340400e-07,.7546700e-09,&
13254  & .4849300e-10,.1993500e-07,.3043700e-07,.3685600e-07,.8236900e-09,&
13255  & .4606900e-10,.2134500e-07,.3298800e-07,.4047800e-07,.8940200e-09/
13256 
13257  data absb(526:700, 1) / &
13258  & .4648700e-10,.1316100e-07,.1921600e-07,.2221200e-07,.5191000e-09,&
13259  & .4378900e-10,.1430100e-07,.2118200e-07,.2509000e-07,.5724700e-09,&
13260  & .4138600e-10,.1544700e-07,.2320800e-07,.2793800e-07,.6276700e-09,&
13261  & .3923400e-10,.1657100e-07,.2534700e-07,.3079500e-07,.6842600e-09,&
13262  & .3729400e-10,.1772500e-07,.2739200e-07,.3378100e-07,.7417900e-09,&
13263  & .3775600e-10,.1089000e-07,.1588200e-07,.1844100e-07,.4287100e-09,&
13264  & .3558100e-10,.1183000e-07,.1751400e-07,.2081000e-07,.4725100e-09,&
13265  & .3364300e-10,.1275700e-07,.1918400e-07,.2314800e-07,.5176900e-09,&
13266  & .3190500e-10,.1368200e-07,.2094100e-07,.2547700e-07,.5639400e-09,&
13267  & .3033800e-10,.1462800e-07,.2261300e-07,.2794800e-07,.6110000e-09,&
13268  & .3087200e-10,.8929000e-08,.1300700e-07,.1510800e-07,.3503400e-09,&
13269  & .2909600e-10,.9699500e-08,.1434300e-07,.1705100e-07,.3860900e-09,&
13270  & .2751300e-10,.1045600e-07,.1571300e-07,.1896800e-07,.4229600e-09,&
13271  & .2609300e-10,.1121300e-07,.1715300e-07,.2087500e-07,.4607300e-09,&
13272  & .2481200e-10,.1198700e-07,.1852200e-07,.2289900e-07,.4991600e-09,&
13273  & .2547900e-10,.7233800e-08,.1050800e-07,.1216500e-07,.2826800e-09,&
13274  & .2400200e-10,.7859300e-08,.1159400e-07,.1374700e-07,.3117300e-09,&
13275  & .2268700e-10,.8484500e-08,.1271200e-07,.1531500e-07,.3417800e-09,&
13276  & .2150800e-10,.9099700e-08,.1389200e-07,.1688600e-07,.3726000e-09,&
13277  & .2044600e-10,.9732200e-08,.1501200e-07,.1852600e-07,.4039800e-09,&
13278  & .2104100e-10,.5856500e-08,.8483100e-08,.9789200e-08,.2279100e-09,&
13279  & .1981100e-10,.6363600e-08,.9361900e-08,.1107200e-07,.2514800e-09,&
13280  & .1871700e-10,.6878400e-08,.1027600e-07,.1236000e-07,.2759500e-09,&
13281  & .1773800e-10,.7379200e-08,.1123400e-07,.1363800e-07,.3010900e-09,&
13282  & .1685600e-10,.7897100e-08,.1216600e-07,.1497700e-07,.3267100e-09,&
13283  & .1737700e-10,.4741800e-08,.6856100e-08,.7879500e-08,.1837300e-09,&
13284  & .1635300e-10,.5153200e-08,.7562000e-08,.8912800e-08,.2028400e-09,&
13285  & .1544300e-10,.5575200e-08,.8306900e-08,.9966600e-08,.2227900e-09,&
13286  & .1462900e-10,.5985700e-08,.9087200e-08,.1101100e-07,.2432700e-09,&
13287  & .1389600e-10,.6408600e-08,.9861600e-08,.1210400e-07,.2642000e-09,&
13288  & .1444500e-10,.3809100e-08,.5479900e-08,.6275400e-08,.1467900e-09,&
13289  & .1358100e-10,.4139100e-08,.6053000e-08,.7090900e-08,.1622000e-09,&
13290  & .1281500e-10,.4488800e-08,.6655500e-08,.7953200e-08,.1784200e-09,&
13291  & .1213100e-10,.4820700e-08,.7285500e-08,.8807100e-08,.1950900e-09,&
13292  & .1151600e-10,.5164600e-08,.7926800e-08,.9693200e-08,.2121400e-09/
13293 
13294  data absb(701:875, 1) / &
13295  & .1202100e-10,.3056600e-08,.4360600e-08,.4992100e-08,.1171300e-09,&
13296  & .1129100e-10,.3320500e-08,.4834000e-08,.5625600e-08,.1295400e-09,&
13297  & .1064500e-10,.3605300e-08,.5326100e-08,.6347300e-08,.1426900e-09,&
13298  & .1006900e-10,.3878200e-08,.5834700e-08,.7038600e-08,.1562400e-09,&
13299  & .9552000e-11,.4158000e-08,.6364700e-08,.7751500e-08,.1701300e-09,&
13300  & .1000700e-10,.2451600e-08,.3465300e-08,.3939800e-08,.9347500e-10,&
13301  & .9390200e-11,.2663100e-08,.3858800e-08,.4463500e-08,.1034200e-09,&
13302  & .8844900e-11,.2892600e-08,.4260000e-08,.5046600e-08,.1140600e-09,&
13303  & .8359400e-11,.3119800e-08,.4671900e-08,.5621800e-08,.1250700e-09,&
13304  & .7924400e-11,.3346500e-08,.5106500e-08,.6199900e-08,.1364000e-09,&
13305  & .8364700e-11,.1957800e-08,.2734100e-08,.3082700e-08,.7427700e-10,&
13306  & .7838900e-11,.2126300e-08,.3069000e-08,.3521200e-08,.8211800e-10,&
13307  & .7375200e-11,.2310300e-08,.3386500e-08,.3983600e-08,.9067200e-10,&
13308  & .6963300e-11,.2498400e-08,.3719800e-08,.4456900e-08,.9962800e-10,&
13309  & .6595000e-11,.2683300e-08,.4070900e-08,.4926500e-08,.1088300e-09,&
13310  & .7007000e-11,.1562800e-08,.2152100e-08,.2401700e-08,.5911600e-10,&
13311  & .6557000e-11,.1695400e-08,.2425400e-08,.2777200e-08,.6502700e-10,&
13312  & .6161200e-11,.1841300e-08,.2684500e-08,.3131000e-08,.7189200e-10,&
13313  & .5810600e-11,.1997700e-08,.2954200e-08,.3521100e-08,.7914400e-10,&
13314  & .5497600e-11,.2146400e-08,.3236000e-08,.3904500e-08,.8662900e-10,&
13315  & .5872800e-11,.1250000e-08,.1707900e-08,.1874300e-08,.4664600e-10,&
13316  & .5487300e-11,.1350500e-08,.1910500e-08,.2171900e-08,.5149900e-10,&
13317  & .5149200e-11,.1467000e-08,.2125000e-08,.2459000e-08,.5698200e-10,&
13318  & .4850400e-11,.1593100e-08,.2346400e-08,.2780200e-08,.6283900e-10,&
13319  & .4584400e-11,.1716700e-08,.2573100e-08,.3095400e-08,.6890800e-10,&
13320  & .4932800e-11,.9981100e-09,.1339700e-08,.1445700e-08,.3669400e-10,&
13321  & .4601200e-11,.1074200e-08,.1498600e-08,.1687500e-08,.4074200e-10,&
13322  & .4311300e-11,.1166500e-08,.1681300e-08,.1928100e-08,.4504900e-10,&
13323  & .4055800e-11,.1267300e-08,.1856700e-08,.2181700e-08,.4975100e-10,&
13324  & .3828800e-11,.1370200e-08,.2039900e-08,.2441900e-08,.5467900e-10,&
13325  & .4159200e-11,.7920500e-09,.1043800e-08,.1105500e-08,.2870900e-10,&
13326  & .3871700e-11,.8535700e-09,.1171000e-08,.1301500e-08,.3219800e-10,&
13327  & .3621500e-11,.9251500e-09,.1319600e-08,.1510300e-08,.3544800e-10,&
13328  & .3401600e-11,.1004600e-08,.1461900e-08,.1701000e-08,.3920300e-10,&
13329  & .3206900e-11,.1090400e-08,.1610000e-08,.1916800e-08,.4318700e-10/
13330 
13331  data absb(876:1050, 1) / &
13332  & .3510000e-11,.6284900e-09,.8131900e-09,.8456700e-09,.2245600e-10,&
13333  & .3260500e-11,.6802100e-09,.9216900e-09,.1004000e-08,.2522900e-10,&
13334  & .3044100e-11,.7329400e-09,.1031400e-08,.1166500e-08,.2790300e-10,&
13335  & .2854700e-11,.7961500e-09,.1149500e-08,.1325100e-08,.3087900e-10,&
13336  & .2687400e-11,.8646300e-09,.1270300e-08,.1499400e-08,.3408200e-10,&
13337  & .2964900e-11,.4986700e-09,.6357200e-09,.6455700e-09,.1755400e-10,&
13338  & .2748000e-11,.5412400e-09,.7187100e-09,.7684000e-09,.1974900e-10,&
13339  & .2560600e-11,.5814000e-09,.8041300e-09,.9005400e-09,.2201200e-10,&
13340  & .2397200e-11,.6309700e-09,.9063700e-09,.1034900e-08,.2430800e-10,&
13341  & .2253400e-11,.6854500e-09,.1000600e-08,.1170400e-08,.2687200e-10,&
13342  & .2501900e-11,.3985300e-09,.4937400e-09,.4961500e-09,.1376200e-10,&
13343  & .2313600e-11,.4295200e-09,.5614100e-09,.5898000e-09,.1550000e-10,&
13344  & .2151700e-11,.4633400e-09,.6328400e-09,.6978800e-09,.1739000e-10,&
13345  & .2011000e-11,.5013000e-09,.7112400e-09,.8090300e-09,.1918400e-10,&
13346  & .1887500e-11,.5444600e-09,.7890800e-09,.9143500e-09,.2123000e-10,&
13347  & .2111100e-11,.3153400e-09,.3855200e-09,.3832400e-09,.1085100e-10,&
13348  & .1947800e-11,.3417900e-09,.4398600e-09,.4535500e-09,.1217600e-10,&
13349  & .1807900e-11,.3701600e-09,.4983500e-09,.5391900e-09,.1368300e-10,&
13350  & .1686800e-11,.3984600e-09,.5574600e-09,.6280500e-09,.1516400e-10,&
13351  & .1580900e-11,.4327200e-09,.6231000e-09,.7158700e-09,.1678500e-10,&
13352  & .1783000e-11,.2493900e-09,.3003300e-09,.2970800e-09,.8548000e-11,&
13353  & .1641000e-11,.2724400e-09,.3446700e-09,.3487000e-09,.9564200e-11,&
13354  & .1520000e-11,.2950700e-09,.3902000e-09,.4150500e-09,.1076400e-10,&
13355  & .1415600e-11,.3173600e-09,.4369300e-09,.4875800e-09,.1201600e-10,&
13356  & .1324600e-11,.3440900e-09,.4924300e-09,.5618100e-09,.1326700e-10,&
13357  & .1507400e-11,.1974600e-09,.2344200e-09,.2302700e-09,.6694200e-11,&
13358  & .1383800e-11,.2175400e-09,.2681200e-09,.2686500e-09,.7509500e-11,&
13359  & .1278900e-11,.2344500e-09,.3051000e-09,.3191600e-09,.8462600e-11,&
13360  & .1188800e-11,.2530500e-09,.3449600e-09,.3790600e-09,.9496300e-11,&
13361  & .1110600e-11,.2735500e-09,.3868000e-09,.4388200e-09,.1048600e-10,&
13362  & .1272200e-11,.1567600e-09,.1843600e-09,.1818800e-09,.5260100e-11,&
13363  & .1164900e-11,.1725600e-09,.2103000e-09,.2087600e-09,.5946500e-11,&
13364  & .1074300e-11,.1870600e-09,.2402200e-09,.2465700e-09,.6675000e-11,&
13365  & .9968300e-12,.2026300e-09,.2720600e-09,.2933700e-09,.7501600e-11,&
13366  & .9297500e-12,.2179800e-09,.3042000e-09,.3420300e-09,.8318200e-11/
13367 
13368  data absb(1051:1175, 1) / &
13369  & .1073300e-11,.1255200e-09,.1466800e-09,.1447700e-09,.4144000e-11,&
13370  & .9802700e-12,.1370500e-09,.1648000e-09,.1629800e-09,.4713700e-11,&
13371  & .9020900e-12,.1496600e-09,.1891100e-09,.1911700e-09,.5273000e-11,&
13372  & .8354600e-12,.1621000e-09,.2141000e-09,.2275800e-09,.5934900e-11,&
13373  & .7780000e-12,.1742300e-09,.2397200e-09,.2672500e-09,.6616300e-11,&
13374  & .9062400e-12,.9978600e-10,.1167400e-09,.1128600e-09,.3277600e-11,&
13375  & .8254700e-12,.1089700e-09,.1293800e-09,.1270500e-09,.3716100e-11,&
13376  & .7579100e-12,.1200900e-09,.1480400e-09,.1482700e-09,.4164600e-11,&
13377  & .7005800e-12,.1292500e-09,.1683700e-09,.1763000e-09,.4695700e-11,&
13378  & .6513100e-12,.1393700e-09,.1899900e-09,.2089900e-09,.5274200e-11,&
13379  & .7659500e-12,.7882200e-10,.9386300e-10,.8752900e-10,.2603300e-11,&
13380  & .6956800e-12,.8655500e-10,.1019000e-09,.1002200e-09,.2928800e-11,&
13381  & .6372100e-12,.9538500e-10,.1164000e-09,.1153300e-09,.3299400e-11,&
13382  & .5878200e-12,.1032500e-09,.1326400e-09,.1366300e-09,.3718600e-11,&
13383  & .5455200e-12,.1117300e-09,.1504200e-09,.1625300e-09,.4181900e-11,&
13384  & .6469300e-12,.6242100e-10,.7617400e-10,.6832400e-10,.2083300e-11,&
13385  & .5858800e-12,.6927800e-10,.8119700e-10,.7969100e-10,.2313000e-11,&
13386  & .5353500e-12,.7587300e-10,.9141400e-10,.9039800e-10,.2635000e-11,&
13387  & .4928500e-12,.8265300e-10,.1049300e-09,.1061700e-09,.2947300e-11,&
13388  & .4566000e-12,.8964300e-10,.1186100e-09,.1264700e-09,.3323100e-11,&
13389  & .5364500e-12,.5055700e-10,.6224000e-10,.5485400e-10,.1693000e-11,&
13390  & .4852300e-12,.5646800e-10,.6560400e-10,.6482700e-10,.1870200e-11,&
13391  & .4429400e-12,.6144200e-10,.7366700e-10,.7268800e-10,.2129200e-11,&
13392  & .4074400e-12,.6718400e-10,.8449000e-10,.8521700e-10,.2383200e-11,&
13393  & .3772000e-12,.7265700e-10,.9569200e-10,.1014400e-09,.2685200e-11/
13394 
13395  data absb( 1:175, 2) / &
13396  & .1832300e-07,.8626600e-05,.1372800e-04,.1595200e-04,.7892700e-06,&
13397  & .1696100e-07,.9620300e-05,.1527500e-04,.1786300e-04,.9365900e-06,&
13398  & .1578700e-07,.1067500e-04,.1692400e-04,.1967500e-04,.1105000e-05,&
13399  & .1476400e-07,.1177900e-04,.1847400e-04,.2132000e-04,.1286800e-05,&
13400  & .1386500e-07,.1284300e-04,.2002900e-04,.2308000e-04,.1456500e-05,&
13401  & .1489300e-07,.7188200e-05,.1144300e-04,.1327100e-04,.6583500e-06,&
13402  & .1379300e-07,.8027600e-05,.1273200e-04,.1489000e-04,.7813200e-06,&
13403  & .1284400e-07,.8918900e-05,.1410100e-04,.1633900e-04,.9223300e-06,&
13404  & .1201700e-07,.9830900e-05,.1538400e-04,.1772100e-04,.1067600e-05,&
13405  & .1128900e-07,.1070400e-04,.1667900e-04,.1919400e-04,.1209100e-05,&
13406  & .1209600e-07,.5993400e-05,.9544900e-05,.1105800e-04,.5496900e-06,&
13407  & .1120900e-07,.6693200e-05,.1062300e-04,.1240700e-04,.6519700e-06,&
13408  & .1044300e-07,.7444900e-05,.1174600e-04,.1357100e-04,.7694000e-06,&
13409  & .9774700e-08,.8194800e-05,.1281400e-04,.1473200e-04,.8849600e-06,&
13410  & .9186400e-08,.8918800e-05,.1388300e-04,.1594600e-04,.1002300e-05,&
13411  & .9820500e-08,.5002700e-05,.7964400e-05,.9224800e-05,.4587600e-06,&
13412  & .9106100e-08,.5584600e-05,.8859300e-05,.1033100e-04,.5433400e-06,&
13413  & .8488200e-08,.6218300e-05,.9775700e-05,.1127900e-04,.6405000e-06,&
13414  & .7948600e-08,.6827600e-05,.1066400e-04,.1224400e-04,.7334400e-06,&
13415  & .7473200e-08,.7426800e-05,.1154500e-04,.1322400e-04,.8295500e-06,&
13416  & .7975300e-08,.4171300e-05,.6615300e-05,.7689200e-05,.3824700e-06,&
13417  & .7399400e-08,.4656200e-05,.7375300e-05,.8592200e-05,.4518800e-06,&
13418  & .6900800e-08,.5182900e-05,.8128000e-05,.9363800e-05,.5321100e-06,&
13419  & .6465000e-08,.5676500e-05,.8856000e-05,.1016800e-04,.6064700e-06,&
13420  & .6080700e-08,.6175800e-05,.9589400e-05,.1094900e-04,.6854900e-06,&
13421  & .6477900e-08,.3472700e-05,.5487500e-05,.6400000e-05,.3185100e-06,&
13422  & .6013500e-08,.3875100e-05,.6130800e-05,.7137200e-05,.3755200e-06,&
13423  & .5611100e-08,.4313200e-05,.6747800e-05,.7769800e-05,.4414100e-06,&
13424  & .5259000e-08,.4715000e-05,.7344400e-05,.8437000e-05,.5007500e-06,&
13425  & .4948300e-08,.5134500e-05,.7949500e-05,.9063700e-05,.5660100e-06,&
13426  & .5262700e-08,.2890800e-05,.4558600e-05,.5326000e-05,.2651600e-06,&
13427  & .4888200e-08,.3226000e-05,.5094000e-05,.5920000e-05,.3119000e-06,&
13428  & .4563200e-08,.3584300e-05,.5599200e-05,.6439700e-05,.3660800e-06,&
13429  & .4278600e-08,.3916700e-05,.6092300e-05,.6997200e-05,.4136100e-06,&
13430  & .4027300e-08,.4266700e-05,.6590400e-05,.7502100e-05,.4674100e-06/
13431 
13432  data absb(176:350, 2) / &
13433  & .4270400e-08,.2407400e-05,.3799000e-05,.4445800e-05,.2210300e-06,&
13434  & .3969000e-08,.2694200e-05,.4239300e-05,.4912000e-05,.2601400e-06,&
13435  & .3707100e-08,.2982700e-05,.4657400e-05,.5348700e-05,.3041600e-06,&
13436  & .3477600e-08,.3260100e-05,.5063500e-05,.5807600e-05,.3430400e-06,&
13437  & .3274700e-08,.3551800e-05,.5470000e-05,.6219700e-05,.3875200e-06,&
13438  & .3464900e-08,.2009600e-05,.3168900e-05,.3707000e-05,.1842400e-06,&
13439  & .3222400e-08,.2250300e-05,.3527100e-05,.4078400e-05,.2170500e-06,&
13440  & .3011400e-08,.2483400e-05,.3873700e-05,.4443600e-05,.2522900e-06,&
13441  & .2826300e-08,.2714900e-05,.4208300e-05,.4806100e-05,.2846400e-06,&
13442  & .2662600e-08,.2955600e-05,.4539400e-05,.5156500e-05,.3214800e-06,&
13443  & .2797600e-08,.1691300e-05,.2663200e-05,.3110800e-05,.1553700e-06,&
13444  & .2604300e-08,.1890800e-05,.2955300e-05,.3406700e-05,.1831100e-06,&
13445  & .2435900e-08,.2081100e-05,.3239000e-05,.3711000e-05,.2109400e-06,&
13446  & .2287800e-08,.2274600e-05,.3514400e-05,.4000900e-05,.2381600e-06,&
13447  & .2156700e-08,.2471400e-05,.3783900e-05,.4291000e-05,.2688600e-06,&
13448  & .2258300e-08,.1423400e-05,.2238800e-05,.2608800e-05,.1314300e-06,&
13449  & .2104300e-08,.1586400e-05,.2477600e-05,.2849300e-05,.1546000e-06,&
13450  & .1969900e-08,.1743600e-05,.2707200e-05,.3100900e-05,.1766900e-06,&
13451  & .1851500e-08,.1905700e-05,.2935500e-05,.3330800e-05,.1995300e-06,&
13452  & .1746500e-08,.2065300e-05,.3154200e-05,.3566300e-05,.2250100e-06,&
13453  & .1822100e-08,.1200100e-05,.1880800e-05,.2186800e-05,.1113800e-06,&
13454  & .1699500e-08,.1331500e-05,.2077900e-05,.2382500e-05,.1306800e-06,&
13455  & .1592300e-08,.1462500e-05,.2264700e-05,.2588400e-05,.1482000e-06,&
13456  & .1497800e-08,.1597200e-05,.2451200e-05,.2777100e-05,.1673400e-06,&
13457  & .1413800e-08,.1725400e-05,.2629600e-05,.2964900e-05,.1884800e-06,&
13458  & .1469300e-08,.1011100e-05,.1580900e-05,.1828600e-05,.9436600e-07,&
13459  & .1371800e-08,.1119900e-05,.1743000e-05,.1995200e-05,.1104500e-06,&
13460  & .1286400e-08,.1227300e-05,.1895700e-05,.2157200e-05,.1244500e-06,&
13461  & .1211000e-08,.1337300e-05,.2046200e-05,.2316200e-05,.1404200e-06,&
13462  & .1143800e-08,.1441000e-05,.2191600e-05,.2464800e-05,.1576700e-06,&
13463  & .1183400e-08,.8533100e-06,.1331600e-05,.1532900e-05,.8021200e-07,&
13464  & .1106100e-08,.9419200e-06,.1462600e-05,.1672900e-05,.9277500e-07,&
13465  & .1038200e-08,.1031700e-05,.1589000e-05,.1800600e-05,.1046200e-06,&
13466  & .9781000e-09,.1120500e-05,.1709900e-05,.1931400e-05,.1180000e-06,&
13467  & .9245700e-09,.1203400e-05,.1827600e-05,.2050400e-05,.1320900e-06/
13468 
13469  data absb(351:525, 2) / &
13470  & .9531100e-09,.7189000e-06,.1121800e-05,.1286700e-05,.6808400e-07,&
13471  & .8917700e-09,.7925800e-06,.1227500e-05,.1401900e-05,.7799900e-07,&
13472  & .8378100e-09,.8660500e-06,.1330800e-05,.1504000e-05,.8802700e-07,&
13473  & .7899800e-09,.9381500e-06,.1428500e-05,.1609100e-05,.9905700e-07,&
13474  & .7472900e-09,.1004600e-05,.1523600e-05,.1705900e-05,.1107400e-06,&
13475  & .7677100e-09,.6062300e-06,.9442700e-06,.1079600e-05,.5784400e-07,&
13476  & .7190400e-09,.6665300e-06,.1029800e-05,.1169900e-05,.6572600e-07,&
13477  & .6761400e-09,.7268900e-06,.1113100e-05,.1256800e-05,.7400900e-07,&
13478  & .6380600e-09,.7848200e-06,.1192700e-05,.1340600e-05,.8320000e-07,&
13479  & .6040100e-09,.8380600e-06,.1269500e-05,.1418600e-05,.9230600e-07,&
13480  & .6181700e-09,.5105300e-06,.7945000e-06,.9068700e-06,.4907800e-07,&
13481  & .5795800e-09,.5607100e-06,.8640300e-06,.9769000e-06,.5525700e-07,&
13482  & .5455100e-09,.6100900e-06,.9307700e-06,.1049500e-05,.6228600e-07,&
13483  & .5152000e-09,.6563100e-06,.9956700e-06,.1115900e-05,.6995400e-07,&
13484  & .4880600e-09,.6983000e-06,.1057600e-05,.1179000e-05,.7722800e-07,&
13485  & .4978300e-09,.4301400e-06,.6673200e-06,.7605800e-06,.4130600e-07,&
13486  & .4672300e-09,.4714800e-06,.7243400e-06,.8168200e-06,.4653700e-07,&
13487  & .4401500e-09,.5114600e-06,.7780900e-06,.8753700e-06,.5245100e-07,&
13488  & .4160300e-09,.5487700e-06,.8307300e-06,.9288400e-06,.5879300e-07,&
13489  & .3944000e-09,.5815900e-06,.8805400e-06,.9803000e-06,.6463000e-07,&
13490  & .4008700e-09,.3625600e-06,.5606200e-06,.6354900e-06,.3477800e-07,&
13491  & .3766000e-09,.3962000e-06,.6067400e-06,.6831300e-06,.3921300e-07,&
13492  & .3551000e-09,.4285500e-06,.6503700e-06,.7299900e-06,.4417600e-07,&
13493  & .3359000e-09,.4585200e-06,.6930800e-06,.7733800e-06,.4942400e-07,&
13494  & .3186600e-09,.4845900e-06,.7329700e-06,.8148400e-06,.5413700e-07,&
13495  & .3228000e-09,.3054700e-06,.4708300e-06,.5314700e-06,.2935300e-07,&
13496  & .3035600e-09,.3327100e-06,.5077000e-06,.5711200e-06,.3307800e-07,&
13497  & .2864700e-09,.3587600e-06,.5433900e-06,.6085200e-06,.3721100e-07,&
13498  & .2712000e-09,.3821400e-06,.5778100e-06,.6435400e-06,.4129500e-07,&
13499  & .2574600e-09,.4037400e-06,.6099000e-06,.6771100e-06,.4536200e-07,&
13500  & .2599700e-09,.2572300e-06,.3950500e-06,.4446700e-06,.2475400e-07,&
13501  & .2447100e-09,.2792600e-06,.4246900e-06,.4770200e-06,.2790700e-07,&
13502  & .2311300e-09,.3002400e-06,.4538400e-06,.5067200e-06,.3134400e-07,&
13503  & .2189800e-09,.3186200e-06,.4814200e-06,.5351500e-06,.3459000e-07,&
13504  & .2080300e-09,.3362400e-06,.5072100e-06,.5624200e-06,.3795700e-07/
13505 
13506  data absb(526:700, 2) / &
13507  & .2098700e-09,.2156100e-06,.3303500e-06,.3709300e-06,.2080100e-07,&
13508  & .1977100e-09,.2335600e-06,.3543300e-06,.3972300e-06,.2344300e-07,&
13509  & .1868800e-09,.2504200e-06,.3780400e-06,.4212700e-06,.2627100e-07,&
13510  & .1771600e-09,.2651400e-06,.4002900e-06,.4443300e-06,.2886700e-07,&
13511  & .1684000e-09,.2794900e-06,.4210200e-06,.4661200e-06,.3162000e-07,&
13512  & .1704600e-09,.1790900e-06,.2739700e-06,.3073000e-06,.1728300e-07,&
13513  & .1606600e-09,.1937800e-06,.2936700e-06,.3286900e-06,.1945600e-07,&
13514  & .1519100e-09,.2071600e-06,.3128700e-06,.3482000e-06,.2175900e-07,&
13515  & .1440700e-09,.2193800e-06,.3309000e-06,.3670300e-06,.2385400e-07,&
13516  & .1369900e-09,.2311500e-06,.3477900e-06,.3845900e-06,.2612800e-07,&
13517  & .1393800e-09,.1474200e-06,.2253500e-06,.2526100e-06,.1414500e-07,&
13518  & .1313700e-09,.1594900e-06,.2415500e-06,.2701100e-06,.1591700e-07,&
13519  & .1242300e-09,.1703700e-06,.2572100e-06,.2860600e-06,.1780900e-07,&
13520  & .1178200e-09,.1804400e-06,.2720000e-06,.3014900e-06,.1953000e-07,&
13521  & .1120400e-09,.1901100e-06,.2858200e-06,.3158100e-06,.2139100e-07,&
13522  & .1150300e-09,.1199100e-06,.1833900e-06,.2054000e-06,.1139800e-07,&
13523  & .1083700e-09,.1298500e-06,.1967000e-06,.2199100e-06,.1282900e-07,&
13524  & .1024400e-09,.1389500e-06,.2096400e-06,.2331000e-06,.1437000e-07,&
13525  & .9712200e-10,.1472500e-06,.2218300e-06,.2458200e-06,.1579000e-07,&
13526  & .9232500e-10,.1552600e-06,.2332700e-06,.2576700e-06,.1730800e-07,&
13527  & .9499000e-10,.9743400e-07,.1491200e-06,.1669900e-06,.9174500e-08,&
13528  & .8944900e-10,.1056300e-06,.1600700e-06,.1789000e-06,.1033000e-07,&
13529  & .8451600e-10,.1132200e-06,.1707100e-06,.1898200e-06,.1158500e-07,&
13530  & .8009600e-10,.1200900e-06,.1808400e-06,.2003000e-06,.1275900e-07,&
13531  & .7611300e-10,.1267200e-06,.1902800e-06,.2101200e-06,.1399200e-07,&
13532  & .7844400e-10,.7914700e-07,.1212200e-06,.1357300e-06,.7384600e-08,&
13533  & .7383200e-10,.8590100e-07,.1302200e-06,.1455200e-06,.8318000e-08,&
13534  & .6972900e-10,.9223000e-07,.1389900e-06,.1545900e-06,.9337400e-08,&
13535  & .6605600e-10,.9791900e-07,.1473700e-06,.1632500e-06,.1030700e-07,&
13536  & .6274900e-10,.1034100e-06,.1551800e-06,.1713300e-06,.1131200e-07,&
13537  & .6520700e-10,.6371500e-07,.9775500e-07,.1094500e-06,.5883100e-08,&
13538  & .6131900e-10,.6928900e-07,.1052400e-06,.1175700e-06,.6623700e-08,&
13539  & .5786600e-10,.7469400e-07,.1124500e-06,.1251500e-06,.7445500e-08,&
13540  & .5477900e-10,.7935900e-07,.1194100e-06,.1322900e-06,.8259500e-08,&
13541  & .5200300e-10,.8395700e-07,.1259300e-06,.1390900e-06,.9069800e-08/
13542 
13543  data absb(701:875, 2) / &
13544  & .5426300e-10,.5117200e-07,.7871400e-07,.8818300e-07,.4674000e-08,&
13545  & .5097800e-10,.5583800e-07,.8493900e-07,.9482800e-07,.5265500e-08,&
13546  & .4806600e-10,.6032800e-07,.9085900e-07,.1011800e-06,.5927300e-08,&
13547  & .4546700e-10,.6426000e-07,.9666700e-07,.1071000e-06,.6627900e-08,&
13548  & .4313400e-10,.6808900e-07,.1020800e-06,.1127900e-06,.7256000e-08,&
13549  & .4517000e-10,.4107300e-07,.6333300e-07,.7106700e-07,.3718500e-08,&
13550  & .4239300e-10,.4496400e-07,.6850700e-07,.7645500e-07,.4186400e-08,&
13551  & .3993600e-10,.4866700e-07,.7338200e-07,.8177200e-07,.4715700e-08,&
13552  & .3774700e-10,.5199600e-07,.7822000e-07,.8668900e-07,.5283400e-08,&
13553  & .3578400e-10,.5517800e-07,.8273900e-07,.9143400e-07,.5804000e-08,&
13554  & .3775400e-10,.3277000e-07,.5066200e-07,.5697900e-07,.2940500e-08,&
13555  & .3538700e-10,.3599700e-07,.5499300e-07,.6135700e-07,.3306600e-08,&
13556  & .3329900e-10,.3907300e-07,.5903600e-07,.6579300e-07,.3726500e-08,&
13557  & .3144200e-10,.4190300e-07,.6301400e-07,.6992000e-07,.4184800e-08,&
13558  & .2978100e-10,.4454600e-07,.6682200e-07,.7384900e-07,.4620400e-08,&
13559  & .3162300e-10,.2605400e-07,.4040500e-07,.4569200e-07,.2291800e-08,&
13560  & .2959900e-10,.2871300e-07,.4401000e-07,.4912200e-07,.2605300e-08,&
13561  & .2781700e-10,.3129600e-07,.4739100e-07,.5281500e-07,.2935300e-08,&
13562  & .2623600e-10,.3367700e-07,.5065500e-07,.5626400e-07,.3302300e-08,&
13563  & .2482500e-10,.3589600e-07,.5386300e-07,.5953800e-07,.3673000e-08,&
13564  & .2650200e-10,.2070500e-07,.3215200e-07,.3644800e-07,.1784100e-08,&
13565  & .2476800e-10,.2286800e-07,.3518500e-07,.3932900e-07,.2051500e-08,&
13566  & .2324700e-10,.2502700e-07,.3799900e-07,.4233800e-07,.2311800e-08,&
13567  & .2190000e-10,.2706300e-07,.4069400e-07,.4525800e-07,.2604800e-08,&
13568  & .2070100e-10,.2890100e-07,.4336100e-07,.4796900e-07,.2917400e-08,&
13569  & .2225800e-10,.1642200e-07,.2548000e-07,.2899100e-07,.1383000e-08,&
13570  & .2076700e-10,.1815800e-07,.2803300e-07,.3144200e-07,.1614400e-08,&
13571  & .1946200e-10,.1995300e-07,.3040200e-07,.3385000e-07,.1816200e-08,&
13572  & .1831200e-10,.2165800e-07,.3263900e-07,.3630800e-07,.2047500e-08,&
13573  & .1728900e-10,.2321100e-07,.3483900e-07,.3858300e-07,.2299400e-08,&
13574  & .1876400e-10,.1295100e-07,.2007200e-07,.2298200e-07,.1064500e-08,&
13575  & .1747300e-10,.1433500e-07,.2221400e-07,.2508500e-07,.1247900e-08,&
13576  & .1634700e-10,.1581300e-07,.2420500e-07,.2697100e-07,.1420700e-08,&
13577  & .1535700e-10,.1725500e-07,.2607500e-07,.2901500e-07,.1600800e-08,&
13578  & .1448000e-10,.1855800e-07,.2788500e-07,.3092200e-07,.1801800e-08/
13579 
13580  data absb(876:1050, 2) / &
13581  & .1583300e-10,.1018600e-07,.1578200e-07,.1817400e-07,.8171800e-09,&
13582  & .1471300e-10,.1131200e-07,.1755500e-07,.1989100e-07,.9609800e-09,&
13583  & .1374000e-10,.1250900e-07,.1924800e-07,.2148200e-07,.1111200e-08,&
13584  & .1288700e-10,.1371900e-07,.2081100e-07,.2314000e-07,.1251500e-08,&
13585  & .1213400e-10,.1484000e-07,.2231300e-07,.2476900e-07,.1410500e-08,&
13586  & .1337200e-10,.8005000e-08,.1240300e-07,.1428300e-07,.6311700e-09,&
13587  & .1239800e-10,.8939300e-08,.1384000e-07,.1575100e-07,.7390700e-09,&
13588  & .1155600e-10,.9882100e-08,.1526100e-07,.1710400e-07,.8664500e-09,&
13589  & .1082100e-10,.1088400e-07,.1658200e-07,.1844100e-07,.9782900e-09,&
13590  & .1017400e-10,.1184100e-07,.1782800e-07,.1980400e-07,.1103400e-08,&
13591  & .1128200e-10,.6272600e-08,.9747800e-08,.1122600e-07,.4839800e-09,&
13592  & .1043700e-10,.7054600e-08,.1093200e-07,.1251800e-07,.5705100e-09,&
13593  & .9710100e-11,.7819300e-08,.1211400e-07,.1367100e-07,.6699700e-09,&
13594  & .9077200e-11,.8637900e-08,.1321800e-07,.1471200e-07,.7662500e-09,&
13595  & .8521600e-11,.9440500e-08,.1425800e-07,.1584400e-07,.8648800e-09,&
13596  & .9517900e-11,.4925100e-08,.7635600e-08,.8776100e-08,.3721300e-09,&
13597  & .8785600e-11,.5568100e-08,.8622000e-08,.9915900e-08,.4407400e-09,&
13598  & .8157600e-11,.6193000e-08,.9598900e-08,.1086500e-07,.5184300e-09,&
13599  & .7613100e-11,.6851800e-08,.1053900e-07,.1174600e-07,.6021000e-09,&
13600  & .7136600e-11,.7520600e-08,.1140300e-07,.1265900e-07,.6784100e-09,&
13601  & .8036800e-11,.3860800e-08,.6001000e-08,.6844100e-08,.2884800e-09,&
13602  & .7400700e-11,.4390300e-08,.6797400e-08,.7812700e-08,.3424500e-09,&
13603  & .6857700e-11,.4908600e-08,.7595900e-08,.8627900e-08,.4010600e-09,&
13604  & .6388600e-11,.5429700e-08,.8380100e-08,.9377800e-08,.4705800e-09,&
13605  & .5979500e-11,.5982900e-08,.9110300e-08,.1011100e-07,.5321800e-09,&
13606  & .6793200e-11,.3010200e-08,.4726900e-08,.5339500e-08,.2243200e-09,&
13607  & .6239700e-11,.3445000e-08,.5345800e-08,.6144900e-08,.2628200e-09,&
13608  & .5769300e-11,.3876800e-08,.6000600e-08,.6861300e-08,.3102000e-09,&
13609  & .5364700e-11,.4300200e-08,.6653300e-08,.7499000e-08,.3644600e-09,&
13610  & .5012900e-11,.4752700e-08,.7263800e-08,.8071700e-08,.4175900e-09,&
13611  & .5732000e-11,.2358200e-08,.3683700e-08,.4131700e-08,.1747700e-09,&
13612  & .5251800e-11,.2716300e-08,.4204800e-08,.4820800e-08,.2032100e-09,&
13613  & .4845700e-11,.3067800e-08,.4747200e-08,.5447200e-08,.2408100e-09,&
13614  & .4497800e-11,.3414800e-08,.5285100e-08,.5973500e-08,.2834500e-09,&
13615  & .4196300e-11,.3780400e-08,.5800100e-08,.6457000e-08,.3292300e-09/
13616 
13617  data absb(1051:1175, 2) / &
13618  & .4834700e-11,.1853400e-08,.2853900e-08,.3182800e-08,.1349200e-09,&
13619  & .4418600e-11,.2139200e-08,.3319000e-08,.3781700e-08,.1584800e-09,&
13620  & .4068300e-11,.2432000e-08,.3759200e-08,.4315600e-08,.1883500e-09,&
13621  & .3769300e-11,.2715000e-08,.4199900e-08,.4762500e-08,.2207600e-09,&
13622  & .3511100e-11,.3008200e-08,.4634500e-08,.5173600e-08,.2591600e-09,&
13623  & .4081300e-11,.1454300e-08,.2203800e-08,.2448800e-08,.1032800e-09,&
13624  & .3720100e-11,.1681300e-08,.2637100e-08,.2964000e-08,.1244600e-09,&
13625  & .3417500e-11,.1919100e-08,.2974700e-08,.3411500e-08,.1460400e-09,&
13626  & .3160400e-11,.2157500e-08,.3334800e-08,.3801800e-08,.1720200e-09,&
13627  & .2939100e-11,.2393200e-08,.3693000e-08,.4147200e-08,.2023500e-09,&
13628  & .3448600e-11,.1148000e-08,.1703200e-08,.1877100e-08,.7878700e-10,&
13629  & .3134500e-11,.1318900e-08,.2061500e-08,.2312100e-08,.9683200e-10,&
13630  & .2872800e-11,.1514400e-08,.2344000e-08,.2686300e-08,.1131700e-09,&
13631  & .2651300e-11,.1710200e-08,.2643600e-08,.3024600e-08,.1339300e-09,&
13632  & .2461500e-11,.1902200e-08,.2939400e-08,.3313500e-08,.1577200e-09,&
13633  & .2911900e-11,.8950000e-09,.1302000e-08,.1438300e-08,.6025300e-10,&
13634  & .2639200e-11,.1036900e-08,.1603600e-08,.1789100e-08,.7576500e-10,&
13635  & .2413200e-11,.1197500e-08,.1852300e-08,.2111400e-08,.8826000e-10,&
13636  & .2222700e-11,.1357000e-08,.2095900e-08,.2404500e-08,.1047800e-09,&
13637  & .2060100e-11,.1513900e-08,.2340600e-08,.2645600e-08,.1233100e-09,&
13638  & .2414300e-11,.7185100e-09,.1036200e-08,.1151600e-08,.4808600e-10,&
13639  & .2185700e-11,.8373200e-09,.1289200e-08,.1433500e-08,.6063000e-10,&
13640  & .1996500e-11,.9681500e-09,.1499000e-08,.1703900e-08,.7120800e-10,&
13641  & .1837400e-11,.1098200e-08,.1697300e-08,.1945500e-08,.8451400e-10,&
13642  & .1701700e-11,.1227700e-08,.1898100e-08,.2147200e-08,.9928900e-10/
13643 
13644  data absb( 1:175, 3) / &
13645  & .6949700e-07,.5590000e-04,.7763400e-04,.8330000e-04,.1441900e-04,&
13646  & .6492300e-07,.6177900e-04,.8523800e-04,.9045800e-04,.1599600e-04,&
13647  & .6092000e-07,.6753200e-04,.9281100e-04,.9758800e-04,.1762200e-04,&
13648  & .5737900e-07,.7287600e-04,.1004000e-03,.1045500e-03,.1914400e-04,&
13649  & .5422000e-07,.7769900e-04,.1078400e-03,.1113900e-03,.2067100e-04,&
13650  & .5653800e-07,.4662700e-04,.6467800e-04,.6939900e-04,.1208600e-04,&
13651  & .5283900e-07,.5153600e-04,.7108000e-04,.7529200e-04,.1341400e-04,&
13652  & .4960000e-07,.5633400e-04,.7738400e-04,.8127700e-04,.1473200e-04,&
13653  & .4673100e-07,.6075100e-04,.8375300e-04,.8706700e-04,.1597300e-04,&
13654  & .4417100e-07,.6479200e-04,.8996300e-04,.9261700e-04,.1721400e-04,&
13655  & .4596300e-07,.3892000e-04,.5392100e-04,.5782400e-04,.1008900e-04,&
13656  & .4297600e-07,.4298700e-04,.5928600e-04,.6261500e-04,.1123800e-04,&
13657  & .4035800e-07,.4701400e-04,.6455700e-04,.6765800e-04,.1229300e-04,&
13658  & .3803700e-07,.5064100e-04,.6987900e-04,.7248700e-04,.1331700e-04,&
13659  & .3596400e-07,.5400300e-04,.7506400e-04,.7708300e-04,.1432100e-04,&
13660  & .3735400e-07,.3247900e-04,.4495300e-04,.4814600e-04,.8407900e-05,&
13661  & .3494400e-07,.3587300e-04,.4945400e-04,.5212000e-04,.9340500e-05,&
13662  & .3282900e-07,.3922000e-04,.5386100e-04,.5629300e-04,.1020900e-04,&
13663  & .3095200e-07,.4215500e-04,.5830900e-04,.6026800e-04,.1108000e-04,&
13664  & .2927400e-07,.4501400e-04,.6261000e-04,.6418400e-04,.1188700e-04,&
13665  & .3036400e-07,.2708600e-04,.3745100e-04,.3999500e-04,.7004900e-05,&
13666  & .2842000e-07,.2991900e-04,.4119400e-04,.4336700e-04,.7773600e-05,&
13667  & .2671000e-07,.3265000e-04,.4490200e-04,.4681700e-04,.8483800e-05,&
13668  & .2519200e-07,.3509800e-04,.4860500e-04,.5010300e-04,.9203800e-05,&
13669  & .2383300e-07,.3750700e-04,.5218800e-04,.5341300e-04,.9860700e-05,&
13670  & .2468700e-07,.2258100e-04,.3121100e-04,.3322000e-04,.5836100e-05,&
13671  & .2311600e-07,.2494000e-04,.3430800e-04,.3607800e-04,.6464000e-05,&
13672  & .2173400e-07,.2718100e-04,.3741400e-04,.3893300e-04,.7034400e-05,&
13673  & .2050600e-07,.2921600e-04,.4051700e-04,.4165300e-04,.7627600e-05,&
13674  & .1940600e-07,.3123700e-04,.4349000e-04,.4439700e-04,.8175300e-05,&
13675  & .2007400e-07,.1881800e-04,.2599900e-04,.2759700e-04,.4866200e-05,&
13676  & .1880500e-07,.2078400e-04,.2856200e-04,.2999300e-04,.5372300e-05,&
13677  & .1768800e-07,.2262600e-04,.3115100e-04,.3236300e-04,.5837700e-05,&
13678  & .1669300e-07,.2430000e-04,.3376000e-04,.3462900e-04,.6317700e-05,&
13679  & .1580200e-07,.2598500e-04,.3622600e-04,.3690300e-04,.6774200e-05/
13680 
13681  data absb(176:350, 3) / &
13682  & .1630600e-07,.1571700e-04,.2168600e-04,.2295900e-04,.4068000e-05,&
13683  & .1528300e-07,.1735500e-04,.2382600e-04,.2496900e-04,.4470600e-05,&
13684  & .1438100e-07,.1885600e-04,.2599200e-04,.2691200e-04,.4855000e-05,&
13685  & .1357800e-07,.2026500e-04,.2816200e-04,.2881700e-04,.5235500e-05,&
13686  & .1285700e-07,.2163800e-04,.3021500e-04,.3070700e-04,.5622400e-05,&
13687  & .1324500e-07,.1312800e-04,.1809100e-04,.1910700e-04,.3388000e-05,&
13688  & .1242000e-07,.1449500e-04,.1988700e-04,.2079400e-04,.3714400e-05,&
13689  & .1169200e-07,.1570400e-04,.2170300e-04,.2239700e-04,.4041500e-05,&
13690  & .1104300e-07,.1690400e-04,.2348900e-04,.2398400e-04,.4345500e-05,&
13691  & .1046000e-07,.1803700e-04,.2519700e-04,.2555800e-04,.4666200e-05,&
13692  & .1071100e-07,.1104400e-04,.1519900e-04,.1600800e-04,.2840900e-05,&
13693  & .1005200e-07,.1216500e-04,.1669900e-04,.1741900e-04,.3104100e-05,&
13694  & .9469000e-08,.1315800e-04,.1822400e-04,.1873300e-04,.3376800e-05,&
13695  & .8948400e-08,.1416600e-04,.1969100e-04,.2005000e-04,.3623700e-05,&
13696  & .8480400e-08,.1508500e-04,.2110500e-04,.2135600e-04,.3887600e-05,&
13697  & .8660600e-08,.9300200e-05,.1277500e-04,.1342000e-04,.2381500e-05,&
13698  & .8134000e-08,.1021000e-04,.1403400e-04,.1455200e-04,.2595500e-05,&
13699  & .7667100e-08,.1103500e-04,.1530200e-04,.1565700e-04,.2815000e-05,&
13700  & .7249700e-08,.1186300e-04,.1651300e-04,.1677000e-04,.3019800e-05,&
13701  & .6873900e-08,.1261600e-04,.1766400e-04,.1784800e-04,.3238700e-05,&
13702  & .6999500e-08,.7839200e-05,.1075400e-04,.1125000e-04,.1998600e-05,&
13703  & .6579000e-08,.8567400e-05,.1180600e-04,.1218600e-04,.2173800e-05,&
13704  & .6205500e-08,.9266400e-05,.1285000e-04,.1310300e-04,.2346900e-05,&
13705  & .5871000e-08,.9937600e-05,.1385400e-04,.1402700e-04,.2519500e-05,&
13706  & .5569600e-08,.1052700e-04,.1479500e-04,.1491700e-04,.2698800e-05,&
13707  & .5653800e-08,.6611800e-05,.9061000e-05,.9442200e-05,.1675300e-05,&
13708  & .5318400e-08,.7198600e-05,.9938900e-05,.1020900e-04,.1822300e-05,&
13709  & .5019900e-08,.7786300e-05,.1080000e-04,.1098100e-04,.1959000e-05,&
13710  & .4752200e-08,.8341500e-05,.1162600e-04,.1173700e-04,.2102000e-05,&
13711  & .4510500e-08,.8801700e-05,.1237300e-04,.1246800e-04,.2249800e-05,&
13712  & .4562000e-08,.5574900e-05,.7646300e-05,.7928500e-05,.1403200e-05,&
13713  & .4295000e-08,.6059000e-05,.8382200e-05,.8565200e-05,.1525500e-05,&
13714  & .4056900e-08,.6551000e-05,.9088800e-05,.9211600e-05,.1637300e-05,&
13715  & .3842900e-08,.6991800e-05,.9760400e-05,.9832900e-05,.1756100e-05,&
13716  & .3649500e-08,.7356600e-05,.1036700e-04,.1042900e-04,.1876900e-05/
13717 
13718  data absb(351:525, 3) / &
13719  & .3680900e-08,.4696700e-05,.6458000e-05,.6664900e-05,.1178600e-05,&
13720  & .3468300e-08,.5107200e-05,.7066100e-05,.7190200e-05,.1275900e-05,&
13721  & .3278400e-08,.5505300e-05,.7647000e-05,.7725000e-05,.1369100e-05,&
13722  & .3107400e-08,.5847400e-05,.8189800e-05,.8234000e-05,.1466600e-05,&
13723  & .2952600e-08,.6149300e-05,.8681500e-05,.8719900e-05,.1565000e-05,&
13724  & .2970100e-08,.3958200e-05,.5457300e-05,.5595900e-05,.9903700e-06,&
13725  & .2800800e-08,.4304800e-05,.5954600e-05,.6040600e-05,.1065900e-05,&
13726  & .2649300e-08,.4627700e-05,.6428600e-05,.6474500e-05,.1144200e-05,&
13727  & .2512700e-08,.4894000e-05,.6861200e-05,.6891800e-05,.1225000e-05,&
13728  & .2388800e-08,.5142800e-05,.7265400e-05,.7286500e-05,.1304600e-05,&
13729  & .2395800e-08,.3340900e-05,.4611500e-05,.4705400e-05,.8302100e-06,&
13730  & .2261100e-08,.3626700e-05,.5019200e-05,.5075400e-05,.8915700e-06,&
13731  & .2140200e-08,.3880500e-05,.5405300e-05,.5429100e-05,.9566300e-06,&
13732  & .2031100e-08,.4092900e-05,.5752900e-05,.5768500e-05,.1023200e-05,&
13733  & .1932000e-08,.4301400e-05,.6068400e-05,.6086800e-05,.1087400e-05,&
13734  & .1932800e-08,.2821700e-05,.3895500e-05,.3956200e-05,.6946400e-06,&
13735  & .1825500e-08,.3051500e-05,.4229300e-05,.4260500e-05,.7458800e-06,&
13736  & .1729100e-08,.3249600e-05,.4539000e-05,.4550100e-05,.7995700e-06,&
13737  & .1641900e-08,.3423500e-05,.4819100e-05,.4824900e-05,.8537300e-06,&
13738  & .1562600e-08,.3599200e-05,.5063200e-05,.5080500e-05,.9058200e-06,&
13739  & .1559000e-08,.2384100e-05,.3289000e-05,.3328200e-05,.5810800e-06,&
13740  & .1473600e-08,.2568300e-05,.3560500e-05,.3575600e-05,.6240100e-06,&
13741  & .1396700e-08,.2722300e-05,.3805500e-05,.3811000e-05,.6686200e-06,&
13742  & .1327100e-08,.2865200e-05,.4029500e-05,.4033100e-05,.7121600e-06,&
13743  & .1263700e-08,.3006900e-05,.4225700e-05,.4239300e-05,.7552700e-06,&
13744  & .1257500e-08,.2009900e-05,.2776400e-05,.2798800e-05,.4861400e-06,&
13745  & .1189500e-08,.2155100e-05,.2996100e-05,.2999600e-05,.5219900e-06,&
13746  & .1128200e-08,.2277100e-05,.3190100e-05,.3189700e-05,.5586700e-06,&
13747  & .1072600e-08,.2396900e-05,.3365700e-05,.3369600e-05,.5941000e-06,&
13748  & .1021800e-08,.2507600e-05,.3523200e-05,.3536600e-05,.6296500e-06,&
13749  & .1014400e-08,.1694000e-05,.2342100e-05,.2351900e-05,.4070100e-06,&
13750  & .9602400e-09,.1806600e-05,.2514600e-05,.2514800e-05,.4365700e-06,&
13751  & .9113400e-09,.1905300e-05,.2673800e-05,.2669000e-05,.4665600e-06,&
13752  & .8668900e-09,.2003800e-05,.2810400e-05,.2813900e-05,.4951600e-06,&
13753  & .8263000e-09,.2086000e-05,.2929400e-05,.2948500e-05,.5246200e-06/
13754 
13755  data absb(526:700, 3) / &
13756  & .8200000e-09,.1423100e-05,.1966100e-05,.1970000e-05,.3399600e-06,&
13757  & .7767200e-09,.1510500e-05,.2104700e-05,.2101800e-05,.3643500e-06,&
13758  & .7375700e-09,.1590800e-05,.2230700e-05,.2227200e-05,.3885100e-06,&
13759  & .7019300e-09,.1670600e-05,.2342100e-05,.2344800e-05,.4121900e-06,&
13760  & .6693600e-09,.1733000e-05,.2434200e-05,.2453800e-05,.4360700e-06,&
13761  & .6665200e-09,.1184200e-05,.1638300e-05,.1638200e-05,.2818300e-06,&
13762  & .6315600e-09,.1254100e-05,.1749900e-05,.1745700e-05,.3019500e-06,&
13763  & .5999000e-09,.1320900e-05,.1850400e-05,.1848400e-05,.3217400e-06,&
13764  & .5710700e-09,.1385000e-05,.1941800e-05,.1943800e-05,.3412400e-06,&
13765  & .5447000e-09,.1434800e-05,.2013500e-05,.2033500e-05,.3605000e-06,&
13766  & .5450600e-09,.9787000e-06,.1354100e-05,.1352000e-05,.2319000e-06,&
13767  & .5165000e-09,.1035400e-05,.1445500e-05,.1440400e-05,.2484500e-06,&
13768  & .4906300e-09,.1091000e-05,.1527000e-05,.1524700e-05,.2646400e-06,&
13769  & .4670700e-09,.1142700e-05,.1601200e-05,.1603300e-05,.2807200e-06,&
13770  & .4455300e-09,.1183300e-05,.1660400e-05,.1677400e-05,.2964300e-06,&
13771  & .4494900e-09,.8010400e-06,.1106600e-05,.1104500e-05,.1888800e-06,&
13772  & .4257900e-09,.8481000e-06,.1182600e-05,.1177700e-05,.2024200e-06,&
13773  & .4043500e-09,.8940400e-06,.1250400e-05,.1247700e-05,.2157800e-06,&
13774  & .3848300e-09,.9373700e-06,.1312400e-05,.1312900e-05,.2289200e-06,&
13775  & .3669900e-09,.9711800e-06,.1361700e-05,.1374400e-05,.2419000e-06,&
13776  & .3708800e-09,.6546800e-06,.9034700e-06,.9014000e-06,.1537100e-06,&
13777  & .3512000e-09,.6942100e-06,.9667600e-06,.9622200e-06,.1648400e-06,&
13778  & .3334000e-09,.7321100e-06,.1023300e-05,.1020300e-05,.1757800e-06,&
13779  & .3172100e-09,.7683800e-06,.1075000e-05,.1074500e-05,.1865600e-06,&
13780  & .3024200e-09,.7967600e-06,.1116400e-05,.1125600e-05,.1973000e-06,&
13781  & .3060300e-09,.5351800e-06,.7375500e-06,.7356000e-06,.1250900e-06,&
13782  & .2896700e-09,.5682700e-06,.7901700e-06,.7860700e-06,.1342000e-06,&
13783  & .2749000e-09,.5994600e-06,.8372900e-06,.8341800e-06,.1432000e-06,&
13784  & .2614800e-09,.6296800e-06,.8804500e-06,.8791900e-06,.1520600e-06,&
13785  & .2492200e-09,.6535800e-06,.9151100e-06,.9218700e-06,.1609200e-06,&
13786  & .2540100e-09,.4349100e-06,.5970600e-06,.5958300e-06,.1010300e-06,&
13787  & .2402700e-09,.4624300e-06,.6412700e-06,.6378000e-06,.1085400e-06,&
13788  & .2278800e-09,.4878900e-06,.6811100e-06,.6778500e-06,.1159600e-06,&
13789  & .2166400e-09,.5137000e-06,.7177600e-06,.7155700e-06,.1231800e-06,&
13790  & .2063900e-09,.5341300e-06,.7473800e-06,.7511600e-06,.1305500e-06/
13791 
13792  data absb(701:875, 3) / &
13793  & .2110300e-09,.3516200e-06,.4824500e-06,.4818100e-06,.8155100e-07,&
13794  & .1994700e-09,.3757700e-06,.5197500e-06,.5168300e-06,.8762400e-07,&
13795  & .1890600e-09,.3968100e-06,.5537200e-06,.5501600e-06,.9377500e-07,&
13796  & .1796300e-09,.4185600e-06,.5840500e-06,.5817700e-06,.9967700e-07,&
13797  & .1710500e-09,.4361000e-06,.6095700e-06,.6115000e-06,.1057800e-06,&
13798  & .1753600e-09,.2841200e-06,.3894800e-06,.3893300e-06,.6579100e-07,&
13799  & .1656300e-09,.3050400e-06,.4209700e-06,.4185400e-06,.7075200e-07,&
13800  & .1568800e-09,.3226500e-06,.4495700e-06,.4462400e-06,.7579000e-07,&
13801  & .1489700e-09,.3408000e-06,.4750200e-06,.4726800e-06,.8064800e-07,&
13802  & .1417800e-09,.3558400e-06,.4969600e-06,.4974700e-06,.8568500e-07,&
13803  & .1462500e-09,.2282800e-06,.3126900e-06,.3130100e-06,.5285800e-07,&
13804  & .1380000e-09,.2466000e-06,.3394500e-06,.3373600e-06,.5687200e-07,&
13805  & .1306000e-09,.2615000e-06,.3638200e-06,.3605200e-06,.6100500e-07,&
13806  & .1239200e-09,.2763700e-06,.3849600e-06,.3826200e-06,.6506400e-07,&
13807  & .1178600e-09,.2896000e-06,.4043200e-06,.4034600e-06,.6913400e-07,&
13808  & .1222000e-09,.1829900e-06,.2500300e-06,.2507500e-06,.4242600e-07,&
13809  & .1151800e-09,.1985800e-06,.2727100e-06,.2712400e-06,.4560500e-07,&
13810  & .1089000e-09,.2114900e-06,.2930600e-06,.2905900e-06,.4898900e-07,&
13811  & .1032400e-09,.2236100e-06,.3112800e-06,.3090900e-06,.5235700e-07,&
13812  & .9811900e-10,.2354000e-06,.3278200e-06,.3265700e-06,.5565000e-07,&
13813  & .1021500e-09,.1460400e-06,.1995700e-06,.2007900e-06,.3400900e-07,&
13814  & .9616800e-10,.1597600e-06,.2185900e-06,.2178200e-06,.3656500e-07,&
13815  & .9083200e-10,.1709200e-06,.2359400e-06,.2340300e-06,.3933600e-07,&
13816  & .8603900e-10,.1807600e-06,.2514800e-06,.2494000e-06,.4212000e-07,&
13817  & .8170500e-10,.1909100e-06,.2657900e-06,.2641700e-06,.4480600e-07,&
13818  & .8554800e-10,.1160600e-06,.1585800e-06,.1602500e-06,.2713800e-07,&
13819  & .8043000e-10,.1277700e-06,.1746500e-06,.1743900e-06,.2926000e-07,&
13820  & .7588200e-10,.1377100e-06,.1895600e-06,.1880100e-06,.3151900e-07,&
13821  & .7180700e-10,.1459700e-06,.2028200e-06,.2008500e-06,.3379000e-07,&
13822  & .6813100e-10,.1545400e-06,.2148500e-06,.2132100e-06,.3601600e-07,&
13823  & .7188000e-10,.9167700e-07,.1251800e-06,.1271700e-06,.2154800e-07,&
13824  & .6747400e-10,.1018200e-06,.1388500e-06,.1388700e-06,.2336600e-07,&
13825  & .6357300e-10,.1103700e-06,.1515500e-06,.1503700e-06,.2514000e-07,&
13826  & .6008900e-10,.1175700e-06,.1629200e-06,.1611500e-06,.2702300e-07,&
13827  & .5695500e-10,.1246000e-06,.1730300e-06,.1715000e-06,.2888600e-07/
13828 
13829  data absb(876:1050, 3) / &
13830  & .6043800e-10,.7237800e-07,.9858600e-07,.1007500e-06,.1706800e-07,&
13831  & .5663900e-10,.8066200e-07,.1100300e-06,.1105200e-06,.1864300e-07,&
13832  & .5328800e-10,.8839100e-07,.1206900e-06,.1200700e-06,.2005000e-07,&
13833  & .5030600e-10,.9462400e-07,.1304500e-06,.1291600e-06,.2158700e-07,&
13834  & .4763200e-10,.1002600e-06,.1391400e-06,.1377800e-06,.2313600e-07,&
13835  & .5085600e-10,.5704600e-07,.7756500e-07,.7974100e-07,.1351000e-07,&
13836  & .4757400e-10,.6373000e-07,.8693900e-07,.8782600e-07,.1481100e-07,&
13837  & .4469200e-10,.7036700e-07,.9597400e-07,.9570700e-07,.1599200e-07,&
13838  & .4213600e-10,.7595900e-07,.1044100e-06,.1033600e-06,.1723500e-07,&
13839  & .3985100e-10,.8066200e-07,.1117900e-06,.1106100e-06,.1850100e-07,&
13840  & .4275200e-10,.4499400e-07,.6093300e-07,.6317000e-07,.1073300e-07,&
13841  & .3992000e-10,.5041700e-07,.6869500e-07,.6977600e-07,.1177800e-07,&
13842  & .3744500e-10,.5612900e-07,.7638100e-07,.7629200e-07,.1279600e-07,&
13843  & .3525800e-10,.6091600e-07,.8353300e-07,.8274600e-07,.1377000e-07,&
13844  & .3330900e-10,.6501000e-07,.8993300e-07,.8882800e-07,.1480900e-07,&
13845  & .3593500e-10,.3527800e-07,.4790100e-07,.5005600e-07,.8523900e-08,&
13846  & .3349400e-10,.3989700e-07,.5424500e-07,.5543900e-07,.9356200e-08,&
13847  & .3136800e-10,.4457700e-07,.6068700e-07,.6085400e-07,.1022900e-07,&
13848  & .2949700e-10,.4890600e-07,.6666800e-07,.6621700e-07,.1100900e-07,&
13849  & .2783400e-10,.5234800e-07,.7215400e-07,.7132200e-07,.1185600e-07,&
13850  & .3022700e-10,.2757200e-07,.3752400e-07,.3975400e-07,.6719800e-08,&
13851  & .2811800e-10,.3156000e-07,.4281000e-07,.4403100e-07,.7426700e-08,&
13852  & .2629000e-10,.3531900e-07,.4807900e-07,.4848600e-07,.8151100e-08,&
13853  & .2468700e-10,.3904100e-07,.5314100e-07,.5289800e-07,.8804400e-08,&
13854  & .2326700e-10,.4212300e-07,.5783500e-07,.5717700e-07,.9493400e-08,&
13855  & .2544800e-10,.2145600e-07,.2932400e-07,.3145000e-07,.5303500e-08,&
13856  & .2362300e-10,.2492200e-07,.3370600e-07,.3490300e-07,.5902500e-08,&
13857  & .2204800e-10,.2793100e-07,.3800900e-07,.3854800e-07,.6484200e-08,&
13858  & .2067300e-10,.3111700e-07,.4229300e-07,.4218000e-07,.7045400e-08,&
13859  & .1945900e-10,.3380000e-07,.4631600e-07,.4577600e-07,.7588600e-08,&
13860  & .2139000e-10,.1674300e-07,.2303100e-07,.2487700e-07,.4177700e-08,&
13861  & .1981500e-10,.1961900e-07,.2655600e-07,.2772200e-07,.4703100e-08,&
13862  & .1846300e-10,.2216700e-07,.3010100e-07,.3070800e-07,.5164600e-08,&
13863  & .1728600e-10,.2480400e-07,.3370400e-07,.3371600e-07,.5644800e-08,&
13864  & .1625100e-10,.2718300e-07,.3704900e-07,.3669600e-07,.6078800e-08/
13865 
13866  data absb(1051:1175, 3) / &
13867  & .1797300e-10,.1303700e-07,.1811500e-07,.1972700e-07,.3291200e-08,&
13868  & .1661500e-10,.1540200e-07,.2094200e-07,.2204300e-07,.3730100e-08,&
13869  & .1545400e-10,.1759200e-07,.2384800e-07,.2448500e-07,.4112900e-08,&
13870  & .1444800e-10,.1973300e-07,.2681500e-07,.2695400e-07,.4514600e-08,&
13871  & .1356500e-10,.2178500e-07,.2963300e-07,.2941400e-07,.4876200e-08,&
13872  & .1511200e-10,.1012700e-07,.1426200e-07,.1563700e-07,.2598600e-08,&
13873  & .1393900e-10,.1208200e-07,.1645800e-07,.1756700e-07,.2951000e-08,&
13874  & .1294200e-10,.1398000e-07,.1887600e-07,.1949900e-07,.3280300e-08,&
13875  & .1208000e-10,.1567700e-07,.2129800e-07,.2151600e-07,.3607800e-08,&
13876  & .1132800e-10,.1742100e-07,.2367400e-07,.2355200e-07,.3914200e-08,&
13877  & .1271600e-10,.7842300e-08,.1121800e-07,.1236800e-07,.2057200e-08,&
13878  & .1170300e-10,.9446800e-08,.1294400e-07,.1393900e-07,.2344900e-08,&
13879  & .1084400e-10,.1105400e-07,.1493300e-07,.1550400e-07,.2616100e-08,&
13880  & .1010500e-10,.1244500e-07,.1689500e-07,.1716700e-07,.2878900e-08,&
13881  & .9462900e-11,.1392900e-07,.1888400e-07,.1883700e-07,.3139100e-08,&
13882  & .1069400e-10,.6108400e-08,.8827800e-08,.9780100e-08,.1619200e-08,&
13883  & .9818000e-11,.7385900e-08,.1020600e-07,.1106400e-07,.1848600e-08,&
13884  & .9079700e-11,.8711300e-08,.1180100e-07,.1234800e-07,.2087200e-08,&
13885  & .8447800e-11,.9900300e-08,.1340900e-07,.1370700e-07,.2296700e-08,&
13886  & .7899800e-11,.1110800e-07,.1506900e-07,.1508200e-07,.2518200e-08,&
13887  & .8851300e-11,.4923900e-08,.7138600e-08,.7917000e-08,.1308900e-08,&
13888  & .8118700e-11,.5954100e-08,.8253900e-08,.8975800e-08,.1495200e-08,&
13889  & .7502100e-11,.7045000e-08,.9556700e-08,.1002400e-07,.1691900e-08,&
13890  & .6975300e-11,.8039100e-08,.1087400e-07,.1114300e-07,.1864600e-08,&
13891  & .6519100e-11,.9026500e-08,.1224000e-07,.1226800e-07,.2047100e-08/
13892 
13893  data absb( 1:175, 4) / &
13894  & .4011500e-06,.2054200e-03,.2900600e-03,.2998300e-03,.8640400e-04,&
13895  & .3850300e-06,.2208600e-03,.3083300e-03,.3251800e-03,.9261100e-04,&
13896  & .3704200e-06,.2341500e-03,.3267400e-03,.3481400e-03,.9887800e-04,&
13897  & .3569900e-06,.2460700e-03,.3433500e-03,.3685800e-03,.1055900e-03,&
13898  & .3443900e-06,.2574100e-03,.3594300e-03,.3871600e-03,.1126200e-03,&
13899  & .3271700e-06,.1708600e-03,.2412100e-03,.2500100e-03,.7212000e-04,&
13900  & .3141100e-06,.1835800e-03,.2559900e-03,.2708900e-03,.7735100e-04,&
13901  & .3022500e-06,.1945600e-03,.2714900e-03,.2900200e-03,.8267600e-04,&
13902  & .2913200e-06,.2046000e-03,.2854400e-03,.3067800e-03,.8833100e-04,&
13903  & .2810500e-06,.2141000e-03,.2991900e-03,.3227100e-03,.9445100e-04,&
13904  & .2667300e-06,.1422100e-03,.2004800e-03,.2084300e-03,.6021300e-04,&
13905  & .2561500e-06,.1526800e-03,.2126400e-03,.2253100e-03,.6453100e-04,&
13906  & .2465200e-06,.1617000e-03,.2256700e-03,.2415700e-03,.6910200e-04,&
13907  & .2376400e-06,.1702300e-03,.2375000e-03,.2554300e-03,.7389100e-04,&
13908  & .2292600e-06,.1781500e-03,.2491200e-03,.2689200e-03,.7916700e-04,&
13909  & .2174000e-06,.1182400e-03,.1664400e-03,.1738100e-03,.5022700e-04,&
13910  & .2088400e-06,.1269600e-03,.1768300e-03,.1878000e-03,.5390300e-04,&
13911  & .2010400e-06,.1343400e-03,.1876400e-03,.2009400e-03,.5777700e-04,&
13912  & .1938100e-06,.1417700e-03,.1975700e-03,.2125900e-03,.6182100e-04,&
13913  & .1869800e-06,.1482800e-03,.2074700e-03,.2241600e-03,.6632600e-04,&
13914  & .1772400e-06,.9828700e-04,.1381300e-03,.1449600e-03,.4185100e-04,&
13915  & .1702900e-06,.1054800e-03,.1470100e-03,.1563600e-03,.4494300e-04,&
13916  & .1639600e-06,.1116900e-03,.1560500e-03,.1672700e-03,.4817600e-04,&
13917  & .1580900e-06,.1179500e-03,.1643500e-03,.1768400e-03,.5171600e-04,&
13918  & .1525100e-06,.1233200e-03,.1726500e-03,.1868300e-03,.5548000e-04,&
13919  & .1445000e-06,.8170300e-04,.1146400e-03,.1207900e-03,.3484900e-04,&
13920  & .1388700e-06,.8758000e-04,.1222400e-03,.1302800e-03,.3746500e-04,&
13921  & .1337300e-06,.9286900e-04,.1296600e-03,.1390600e-03,.4022500e-04,&
13922  & .1289600e-06,.9803400e-04,.1366800e-03,.1471200e-03,.4322700e-04,&
13923  & .1243900e-06,.1025000e-03,.1436700e-03,.1555700e-03,.4638300e-04,&
13924  & .1178200e-06,.6792200e-04,.9512100e-04,.1005900e-03,.2901400e-04,&
13925  & .1132500e-06,.7275900e-04,.1016600e-03,.1084300e-03,.3123900e-04,&
13926  & .1090900e-06,.7721300e-04,.1076900e-03,.1156300e-03,.3359400e-04,&
13927  & .1052100e-06,.8150700e-04,.1136700e-03,.1224400e-03,.3608700e-04,&
13928  & .1014600e-06,.8522900e-04,.1195100e-03,.1295500e-03,.3876000e-04/
13929 
13930  data absb(176:350, 4) / &
13931  & .9600500e-07,.5653900e-04,.7904800e-04,.8363800e-04,.2418200e-04,&
13932  & .9231100e-07,.6052200e-04,.8450600e-04,.9030800e-04,.2605200e-04,&
13933  & .8892700e-07,.6430500e-04,.8960800e-04,.9622900e-04,.2807100e-04,&
13934  & .8577500e-07,.6781100e-04,.9465900e-04,.1020300e-03,.3018500e-04,&
13935  & .8270900e-07,.7096700e-04,.9955100e-04,.1079600e-03,.3243800e-04,&
13936  & .7822500e-07,.4709400e-04,.6573600e-04,.6970600e-04,.2016800e-04,&
13937  & .7523500e-07,.5038300e-04,.7030900e-04,.7521000e-04,.2174800e-04,&
13938  & .7249100e-07,.5358100e-04,.7457900e-04,.8010600e-04,.2344200e-04,&
13939  & .6992900e-07,.5644800e-04,.7886400e-04,.8510800e-04,.2524800e-04,&
13940  & .6741900e-07,.5909000e-04,.8293200e-04,.8987000e-04,.2709800e-04,&
13941  & .6357200e-07,.3942600e-04,.5497900e-04,.5844300e-04,.1691300e-04,&
13942  & .6116600e-07,.4209700e-04,.5877900e-04,.6293300e-04,.1825900e-04,&
13943  & .5895100e-07,.4479400e-04,.6233000e-04,.6695200e-04,.1967000e-04,&
13944  & .5687200e-07,.4714700e-04,.6596100e-04,.7123000e-04,.2122100e-04,&
13945  & .5482200e-07,.4937700e-04,.6923400e-04,.7503800e-04,.2274300e-04,&
13946  & .5165600e-07,.3295000e-04,.4605200e-04,.4908400e-04,.1418100e-04,&
13947  & .4972100e-07,.3525000e-04,.4910600e-04,.5267500e-04,.1533000e-04,&
13948  & .4793000e-07,.3743800e-04,.5215200e-04,.5609700e-04,.1653200e-04,&
13949  & .4624200e-07,.3941800e-04,.5516000e-04,.5967400e-04,.1781100e-04,&
13950  & .4457000e-07,.4128000e-04,.5789900e-04,.6265400e-04,.1910000e-04,&
13951  & .4196200e-07,.2760800e-04,.3852700e-04,.4116700e-04,.1190800e-04,&
13952  & .4040500e-07,.2954700e-04,.4109900e-04,.4408100e-04,.1288000e-04,&
13953  & .3895900e-07,.3132100e-04,.4368700e-04,.4705100e-04,.1391200e-04,&
13954  & .3758300e-07,.3299400e-04,.4619000e-04,.4989000e-04,.1496100e-04,&
13955  & .3622700e-07,.3456000e-04,.4847300e-04,.5235800e-04,.1603900e-04,&
13956  & .3407500e-07,.2315300e-04,.3230500e-04,.3456600e-04,.1001400e-04,&
13957  & .3282200e-07,.2476900e-04,.3443500e-04,.3696800e-04,.1082200e-04,&
13958  & .3165500e-07,.2624200e-04,.3663500e-04,.3948400e-04,.1169900e-04,&
13959  & .3052800e-07,.2762400e-04,.3864800e-04,.4177000e-04,.1258800e-04,&
13960  & .2943400e-07,.2895100e-04,.4063200e-04,.4377400e-04,.1347900e-04,&
13961  & .2765200e-07,.1946000e-04,.2711400e-04,.2905200e-04,.8437200e-05,&
13962  & .2664500e-07,.2078500e-04,.2893300e-04,.3109100e-04,.9130500e-05,&
13963  & .2570300e-07,.2201800e-04,.3074900e-04,.3317300e-04,.9856000e-05,&
13964  & .2478000e-07,.2316600e-04,.3240500e-04,.3497100e-04,.1059300e-04,&
13965  & .2390000e-07,.2428600e-04,.3404800e-04,.3666300e-04,.1134600e-04/
13966 
13967  data absb(351:525, 4) / &
13968  & .2243900e-07,.1637000e-04,.2276300e-04,.2439700e-04,.7108400e-05,&
13969  & .2162800e-07,.1746100e-04,.2431800e-04,.2614000e-04,.7696100e-05,&
13970  & .2086500e-07,.1849300e-04,.2582600e-04,.2782400e-04,.8308000e-05,&
13971  & .2011300e-07,.1945200e-04,.2721500e-04,.2928700e-04,.8920700e-05,&
13972  & .1940500e-07,.2037600e-04,.2854300e-04,.3071000e-04,.9547700e-05,&
13973  & .1820800e-07,.1377700e-04,.1913800e-04,.2052400e-04,.5995200e-05,&
13974  & .1755500e-07,.1467900e-04,.2044800e-04,.2199600e-04,.6490700e-05,&
13975  & .1693600e-07,.1552200e-04,.2166100e-04,.2335700e-04,.6996600e-05,&
13976  & .1632500e-07,.1633400e-04,.2284600e-04,.2453700e-04,.7512400e-05,&
13977  & .1575500e-07,.1708800e-04,.2393100e-04,.2572200e-04,.8030500e-05,&
13978  & .1477200e-07,.1159800e-04,.1611700e-04,.1729400e-04,.5060200e-05,&
13979  & .1424600e-07,.1234600e-04,.1719800e-04,.1852100e-04,.5479900e-05,&
13980  & .1373900e-07,.1304700e-04,.1820500e-04,.1956600e-04,.5899200e-05,&
13981  & .1324700e-07,.1372900e-04,.1917300e-04,.2057400e-04,.6325100e-05,&
13982  & .1278900e-07,.1434100e-04,.2006800e-04,.2153600e-04,.6749600e-05,&
13983  & .1198400e-07,.9767900e-05,.1356800e-04,.1456500e-04,.4272100e-05,&
13984  & .1156000e-07,.1038900e-04,.1446100e-04,.1556000e-04,.4618200e-05,&
13985  & .1114400e-07,.1097300e-04,.1530200e-04,.1641000e-04,.4971500e-05,&
13986  & .1075000e-07,.1153200e-04,.1609100e-04,.1724400e-04,.5321200e-05,&
13987  & .1038100e-07,.1203400e-04,.1682100e-04,.1802300e-04,.5671200e-05,&
13988  & .9720500e-08,.8229600e-05,.1144000e-04,.1228800e-04,.3607900e-05,&
13989  & .9377700e-08,.8743100e-05,.1215800e-04,.1306700e-04,.3897400e-05,&
13990  & .9039100e-08,.9230000e-05,.1286200e-04,.1376900e-04,.4188500e-05,&
13991  & .8721900e-08,.9685400e-05,.1350800e-04,.1445400e-04,.4475600e-05,&
13992  & .8425100e-08,.1010100e-04,.1409000e-04,.1506400e-04,.4764300e-05,&
13993  & .7884200e-08,.6937900e-05,.9637800e-05,.1035000e-04,.3046200e-05,&
13994  & .7605800e-08,.7360500e-05,.1023000e-04,.1096400e-04,.3287900e-05,&
13995  & .7331200e-08,.7768500e-05,.1080600e-04,.1155200e-04,.3525800e-05,&
13996  & .7076100e-08,.8139300e-05,.1132900e-04,.1210900e-04,.3764200e-05,&
13997  & .6837500e-08,.8472300e-05,.1180600e-04,.1258200e-04,.4002700e-05,&
13998  & .6394600e-08,.5848400e-05,.8113200e-05,.8713800e-05,.2572200e-05,&
13999  & .6166800e-08,.6198500e-05,.8615200e-05,.9204300e-05,.2771600e-05,&
14000  & .5946000e-08,.6532900e-05,.9076100e-05,.9691400e-05,.2967200e-05,&
14001  & .5741000e-08,.6834900e-05,.9499100e-05,.1012800e-04,.3164900e-05,&
14002  & .5549000e-08,.7109800e-05,.9897200e-05,.1049400e-04,.3361300e-05/
14003 
14004  data absb(526:700, 4) / &
14005  & .5193100e-08,.4915500e-05,.6812200e-05,.7300300e-05,.2164800e-05,&
14006  & .5006600e-08,.5210800e-05,.7229900e-05,.7712800e-05,.2328000e-05,&
14007  & .4828900e-08,.5483800e-05,.7607600e-05,.8107700e-05,.2490600e-05,&
14008  & .4663600e-08,.5727100e-05,.7946000e-05,.8449400e-05,.2653400e-05,&
14009  & .4508900e-08,.5954300e-05,.8275100e-05,.8742200e-05,.2815900e-05,&
14010  & .4217700e-08,.4110400e-05,.5691400e-05,.6085200e-05,.1807800e-05,&
14011  & .4079500e-08,.4358000e-05,.6033400e-05,.6427400e-05,.1942100e-05,&
14012  & .3935300e-08,.4581400e-05,.6340700e-05,.6744300e-05,.2076700e-05,&
14013  & .3801200e-08,.4780300e-05,.6619600e-05,.7014400e-05,.2211400e-05,&
14014  & .3675600e-08,.4968200e-05,.6888400e-05,.7253900e-05,.2345800e-05,&
14015  & .3416200e-08,.3414100e-05,.4722400e-05,.5041200e-05,.1496500e-05,&
14016  & .3319600e-08,.3621500e-05,.5003700e-05,.5324100e-05,.1607800e-05,&
14017  & .3219500e-08,.3806400e-05,.5258300e-05,.5581700e-05,.1718800e-05,&
14018  & .3109900e-08,.3971500e-05,.5488100e-05,.5800600e-05,.1830700e-05,&
14019  & .3007200e-08,.4127000e-05,.5706500e-05,.5997400e-05,.1941900e-05,&
14020  & .2800800e-08,.2809400e-05,.3880100e-05,.4139300e-05,.1224800e-05,&
14021  & .2712100e-08,.2983600e-05,.4115500e-05,.4374800e-05,.1316800e-05,&
14022  & .2648200e-08,.3139700e-05,.4328200e-05,.4588500e-05,.1408700e-05,&
14023  & .2557600e-08,.3277900e-05,.4520000e-05,.4770600e-05,.1501300e-05,&
14024  & .2472700e-08,.3408200e-05,.4702300e-05,.4935400e-05,.1593500e-05,&
14025  & .2298400e-08,.2310600e-05,.3185600e-05,.3396100e-05,.1001600e-05,&
14026  & .2222000e-08,.2456300e-05,.3382600e-05,.3591500e-05,.1077600e-05,&
14027  & .2158800e-08,.2588200e-05,.3560000e-05,.3769600e-05,.1153800e-05,&
14028  & .2104000e-08,.2703300e-05,.3719900e-05,.3921300e-05,.1230400e-05,&
14029  & .2033900e-08,.2812200e-05,.3872800e-05,.4059700e-05,.1306700e-05,&
14030  & .1886700e-08,.1899000e-05,.2614700e-05,.2785500e-05,.8189500e-06,&
14031  & .1821900e-08,.2021100e-05,.2778900e-05,.2948200e-05,.8816800e-06,&
14032  & .1767100e-08,.2132400e-05,.2927200e-05,.3096200e-05,.9447500e-06,&
14033  & .1720100e-08,.2228700e-05,.3060700e-05,.3223100e-05,.1008000e-05,&
14034  & .1672900e-08,.2319700e-05,.3188500e-05,.3338900e-05,.1071300e-05,&
14035  & .1556700e-08,.1548600e-05,.2129900e-05,.2269700e-05,.6641800e-06,&
14036  & .1503000e-08,.1652500e-05,.2268600e-05,.2406300e-05,.7159100e-06,&
14037  & .1455900e-08,.1746800e-05,.2393800e-05,.2530400e-05,.7680400e-06,&
14038  & .1414700e-08,.1828400e-05,.2506200e-05,.2637700e-05,.8205300e-06,&
14039  & .1380800e-08,.1905100e-05,.2614200e-05,.2736200e-05,.8728200e-06/
14040 
14041  data absb(701:875, 4) / &
14042  & .1285500e-08,.1262200e-05,.1732600e-05,.1847200e-05,.5377800e-06,&
14043  & .1241400e-08,.1348600e-05,.1849400e-05,.1961200e-05,.5806200e-06,&
14044  & .1200600e-08,.1429000e-05,.1955100e-05,.2066500e-05,.6236500e-06,&
14045  & .1165500e-08,.1498400e-05,.2050600e-05,.2157000e-05,.6670700e-06,&
14046  & .1136600e-08,.1563000e-05,.2141600e-05,.2240400e-05,.7103500e-06,&
14047  & .1061600e-08,.1027300e-05,.1408500e-05,.1503400e-05,.4351400e-06,&
14048  & .1025000e-08,.1099700e-05,.1507000e-05,.1597300e-05,.4706100e-06,&
14049  & .9903000e-09,.1167900e-05,.1595300e-05,.1686100e-05,.5061300e-06,&
14050  & .9606200e-09,.1227200e-05,.1676600e-05,.1764200e-05,.5421600e-06,&
14051  & .9344300e-09,.1281700e-05,.1752900e-05,.1833300e-05,.5778400e-06,&
14052  & .8788300e-09,.8319900e-06,.1140200e-05,.1216800e-05,.3502500e-06,&
14053  & .8482900e-09,.8925400e-06,.1222500e-05,.1295800e-05,.3796000e-06,&
14054  & .8190300e-09,.9507200e-06,.1296600e-05,.1370800e-05,.4089300e-06,&
14055  & .7936900e-09,.1002000e-05,.1366500e-05,.1437900e-05,.4386200e-06,&
14056  & .7710800e-09,.1047800e-05,.1430200e-05,.1496200e-05,.4681700e-06,&
14057  & .7283800e-09,.6708000e-06,.9196200e-06,.9810200e-06,.2810700e-06,&
14058  & .7027900e-09,.7227100e-06,.9885300e-06,.1049100e-05,.3054000e-06,&
14059  & .6785800e-09,.7720300e-06,.1052200e-05,.1112200e-05,.3295800e-06,&
14060  & .6565100e-09,.8162500e-06,.1111500e-05,.1169700e-05,.3540700e-06,&
14061  & .6372700e-09,.8549500e-06,.1165100e-05,.1219200e-05,.3785000e-06,&
14062  & .6037900e-09,.5404700e-06,.7412800e-06,.7910000e-06,.2253500e-06,&
14063  & .5822800e-09,.5842900e-06,.7985400e-06,.8484100e-06,.2454800e-06,&
14064  & .5622000e-09,.6260600e-06,.8528300e-06,.9015700e-06,.2654100e-06,&
14065  & .5432000e-09,.6642300e-06,.9029600e-06,.9501500e-06,.2855800e-06,&
14066  & .5268600e-09,.6971900e-06,.9483000e-06,.9925400e-06,.3058000e-06,&
14067  & .5010800e-09,.4336100e-06,.5955400e-06,.6343200e-06,.1802300e-06,&
14068  & .4829100e-09,.4712700e-06,.6434900e-06,.6851000e-06,.1967700e-06,&
14069  & .4661200e-09,.5062100e-06,.6894200e-06,.7292900e-06,.2132500e-06,&
14070  & .4500400e-09,.5390300e-06,.7316900e-06,.7709500e-06,.2298600e-06,&
14071  & .4360000e-09,.5674000e-06,.7708100e-06,.8071400e-06,.2465400e-06,&
14072  & .4166500e-09,.3461400e-06,.4756500e-06,.5059800e-06,.1434500e-06,&
14073  & .4011900e-09,.3777900e-06,.5164200e-06,.5501500e-06,.1569700e-06,&
14074  & .3870200e-09,.4075200e-06,.5552500e-06,.5875900e-06,.1706400e-06,&
14075  & .3737200e-09,.4356300e-06,.5907600e-06,.6231800e-06,.1843000e-06,&
14076  & .3613900e-09,.4604100e-06,.6247400e-06,.6551500e-06,.1980000e-06/
14077 
14078  data absb(876:1050, 4) / &
14079  & .3465800e-09,.2749400e-06,.3792400e-06,.4034900e-06,.1140700e-06,&
14080  & .3334000e-09,.3024300e-06,.4134000e-06,.4406600e-06,.1250800e-06,&
14081  & .3214300e-09,.3275600e-06,.4463500e-06,.4730800e-06,.1363600e-06,&
14082  & .3103200e-09,.3514900e-06,.4766900e-06,.5030900e-06,.1476300e-06,&
14083  & .2996900e-09,.3732300e-06,.5054200e-06,.5306200e-06,.1589200e-06,&
14084  & .2884600e-09,.2177800e-06,.3016800e-06,.3215800e-06,.9060700e-07,&
14085  & .2771600e-09,.2413900e-06,.3307100e-06,.3521400e-06,.9957700e-07,&
14086  & .2670000e-09,.2630400e-06,.3580400e-06,.3804900e-06,.1088100e-06,&
14087  & .2576700e-09,.2831300e-06,.3839400e-06,.4056600e-06,.1181400e-06,&
14088  & .2487500e-09,.3018300e-06,.4083200e-06,.4290600e-06,.1274200e-06,&
14089  & .2399400e-09,.1727600e-06,.2403900e-06,.2564400e-06,.7212400e-07,&
14090  & .2302800e-09,.1927500e-06,.2642900e-06,.2811700e-06,.7938800e-07,&
14091  & .2216200e-09,.2110600e-06,.2875800e-06,.3060600e-06,.8692200e-07,&
14092  & .2137700e-09,.2280700e-06,.3094700e-06,.3271400e-06,.9462800e-07,&
14093  & .2064100e-09,.2440000e-06,.3296200e-06,.3471500e-06,.1022800e-06,&
14094  & .1996000e-09,.1370900e-06,.1910100e-06,.2040700e-06,.5756600e-07,&
14095  & .1913200e-09,.1535200e-06,.2112000e-06,.2245500e-06,.6330800e-07,&
14096  & .1839500e-09,.1692400e-06,.2306800e-06,.2456300e-06,.6942100e-07,&
14097  & .1773200e-09,.1835200e-06,.2492600e-06,.2638300e-06,.7577300e-07,&
14098  & .1711700e-09,.1971500e-06,.2663000e-06,.2806800e-06,.8209700e-07,&
14099  & .1661600e-09,.1085200e-06,.1519100e-06,.1613700e-06,.4597500e-07,&
14100  & .1590100e-09,.1218800e-06,.1685500e-06,.1794300e-06,.5045400e-07,&
14101  & .1527200e-09,.1353500e-06,.1850200e-06,.1970500e-06,.5542400e-07,&
14102  & .1471100e-09,.1476500e-06,.2004200e-06,.2125200e-06,.6061600e-07,&
14103  & .1419400e-09,.1590700e-06,.2148400e-06,.2267300e-06,.6582600e-07,&
14104  & .1383900e-09,.8570400e-07,.1202300e-06,.1274400e-06,.3652300e-07,&
14105  & .1322300e-09,.9660000e-07,.1343800e-06,.1431200e-06,.4015200e-07,&
14106  & .1268400e-09,.1080400e-06,.1478400e-06,.1573500e-06,.4420700e-07,&
14107  & .1220800e-09,.1185100e-06,.1609300e-06,.1710800e-06,.4843500e-07,&
14108  & .1177200e-09,.1281100e-06,.1731300e-06,.1829300e-06,.5273300e-07,&
14109  & .1151600e-09,.6780200e-07,.9540000e-07,.1006500e-06,.2904000e-07,&
14110  & .1098600e-09,.7692700e-07,.1071200e-06,.1142800e-06,.3204400e-07,&
14111  & .1052600e-09,.8629500e-07,.1183300e-06,.1258000e-06,.3533500e-07,&
14112  & .1012200e-09,.9519000e-07,.1293600e-06,.1376300e-06,.3876400e-07,&
14113  & .9754500e-10,.1032400e-06,.1396900e-06,.1476800e-06,.4231200e-07/
14114 
14115  data absb(1051:1175, 4) / &
14116  & .9583200e-10,.5361000e-07,.7598100e-07,.7966700e-07,.2311700e-07,&
14117  & .9128100e-10,.6113000e-07,.8532900e-07,.9100500e-07,.2565700e-07,&
14118  & .8733500e-10,.6882500e-07,.9473600e-07,.1007500e-06,.2826400e-07,&
14119  & .8389700e-10,.7643500e-07,.1039600e-06,.1107000e-06,.3105700e-07,&
14120  & .8081000e-10,.8327800e-07,.1126900e-06,.1192800e-06,.3397200e-07,&
14121  & .7981000e-10,.4232200e-07,.6037400e-07,.6292600e-07,.1840400e-07,&
14122  & .7586400e-10,.4855900e-07,.6803900e-07,.7224100e-07,.2054800e-07,&
14123  & .7248500e-10,.5477300e-07,.7579900e-07,.8075700e-07,.2258100e-07,&
14124  & .6956000e-10,.6122400e-07,.8355400e-07,.8896700e-07,.2485900e-07,&
14125  & .6695100e-10,.6708400e-07,.9079700e-07,.9624600e-07,.2724500e-07,&
14126  & .6652400e-10,.3332000e-07,.4751600e-07,.4954100e-07,.1462000e-07,&
14127  & .6308100e-10,.3844300e-07,.5402700e-07,.5714200e-07,.1637000e-07,&
14128  & .6018700e-10,.4358700e-07,.6061100e-07,.6460800e-07,.1803600e-07,&
14129  & .5768900e-10,.4897000e-07,.6691500e-07,.7123300e-07,.1989500e-07,&
14130  & .5547800e-10,.5392500e-07,.7304500e-07,.7761800e-07,.2183100e-07,&
14131  & .5544700e-10,.2624000e-07,.3743500e-07,.3898900e-07,.1160600e-07,&
14132  & .5244200e-10,.3046000e-07,.4295500e-07,.4523300e-07,.1304700e-07,&
14133  & .4996200e-10,.3476100e-07,.4841800e-07,.5168000e-07,.1443100e-07,&
14134  & .4782600e-10,.3915200e-07,.5362600e-07,.5704700e-07,.1593400e-07,&
14135  & .4595400e-10,.4338000e-07,.5878600e-07,.6253800e-07,.1751100e-07,&
14136  & .4574000e-10,.2124800e-07,.3026100e-07,.3157700e-07,.9422100e-08,&
14137  & .4321000e-10,.2473000e-07,.3494800e-07,.3672200e-07,.1060800e-07,&
14138  & .4114100e-10,.2828800e-07,.3941000e-07,.4205200e-07,.1175400e-07,&
14139  & .3936100e-10,.3190400e-07,.4374000e-07,.4652700e-07,.1298600e-07,&
14140  & .3780500e-10,.3544200e-07,.4802000e-07,.5108300e-07,.1427800e-07/
14141 
14142  data absb( 1:175, 5) / &
14143  & .7904500e-05,.5851200e-03,.8096700e-03,.8857800e-03,.3482400e-03,&
14144  & .9280700e-05,.6181800e-03,.8608300e-03,.9243700e-03,.3787000e-03,&
14145  & .1062000e-04,.6502500e-03,.9061700e-03,.9629000e-03,.4063900e-03,&
14146  & .1184700e-04,.6808600e-03,.9476700e-03,.9981500e-03,.4314900e-03,&
14147  & .1289700e-04,.7094100e-03,.9842600e-03,.1029600e-02,.4545900e-03,&
14148  & .6568300e-05,.4879800e-03,.6757000e-03,.7375500e-03,.2917200e-03,&
14149  & .7695700e-05,.5155500e-03,.7185600e-03,.7697800e-03,.3170900e-03,&
14150  & .8785200e-05,.5424300e-03,.7560400e-03,.8014200e-03,.3406400e-03,&
14151  & .9762200e-05,.5681700e-03,.7903800e-03,.8309100e-03,.3609500e-03,&
14152  & .1061400e-04,.5920800e-03,.8201800e-03,.8569100e-03,.3809500e-03,&
14153  & .5464300e-05,.4066000e-03,.5637100e-03,.6128600e-03,.2443500e-03,&
14154  & .6388300e-05,.4297300e-03,.5991400e-03,.6409300e-03,.2647500e-03,&
14155  & .7259300e-05,.4521800e-03,.6300400e-03,.6665900e-03,.2848600e-03,&
14156  & .8052600e-05,.4737300e-03,.6584700e-03,.6912800e-03,.3020000e-03,&
14157  & .8736400e-05,.4939300e-03,.6831800e-03,.7132100e-03,.3193000e-03,&
14158  & .4548200e-05,.3387200e-03,.4700300e-03,.5092000e-03,.2047300e-03,&
14159  & .5289300e-05,.3578500e-03,.4989800e-03,.5330600e-03,.2217100e-03,&
14160  & .5998900e-05,.3767300e-03,.5246700e-03,.5546100e-03,.2380300e-03,&
14161  & .6642600e-05,.3947000e-03,.5482700e-03,.5751500e-03,.2524400e-03,&
14162  & .7175900e-05,.4119300e-03,.5690900e-03,.5936100e-03,.2677300e-03,&
14163  & .3769000e-05,.2817700e-03,.3915300e-03,.4226500e-03,.1715500e-03,&
14164  & .4379000e-05,.2977800e-03,.4153500e-03,.4428800e-03,.1856300e-03,&
14165  & .4954500e-05,.3137100e-03,.4366400e-03,.4609000e-03,.1990800e-03,&
14166  & .5456300e-05,.3288600e-03,.4563700e-03,.4785400e-03,.2109700e-03,&
14167  & .5887900e-05,.3435900e-03,.4741600e-03,.4938700e-03,.2244000e-03,&
14168  & .3126000e-05,.2343200e-03,.3259600e-03,.3508200e-03,.1434800e-03,&
14169  & .3618500e-05,.2478600e-03,.3456100e-03,.3676500e-03,.1554600e-03,&
14170  & .4073200e-05,.2612000e-03,.3634300e-03,.3832500e-03,.1662300e-03,&
14171  & .4483900e-05,.2740300e-03,.3799700e-03,.3981100e-03,.1765900e-03,&
14172  & .4830400e-05,.2867400e-03,.3951300e-03,.4111400e-03,.1881300e-03,&
14173  & .2585300e-05,.1948300e-03,.2712800e-03,.2912600e-03,.1196900e-03,&
14174  & .2983400e-05,.2062300e-03,.2874900e-03,.3054100e-03,.1297800e-03,&
14175  & .3354600e-05,.2175000e-03,.3026700e-03,.3187100e-03,.1387400e-03,&
14176  & .3686300e-05,.2284200e-03,.3165600e-03,.3311500e-03,.1478900e-03,&
14177  & .3963400e-05,.2394200e-03,.3294400e-03,.3422000e-03,.1574200e-03/
14178 
14179  data absb(176:350, 5) / &
14180  & .2148600e-05,.1622100e-03,.2260900e-03,.2423600e-03,.1001400e-03,&
14181  & .2473500e-05,.1717800e-03,.2394900e-03,.2539900e-03,.1085700e-03,&
14182  & .2774400e-05,.1813600e-03,.2522600e-03,.2653500e-03,.1160400e-03,&
14183  & .3041400e-05,.1907600e-03,.2639700e-03,.2756600e-03,.1239800e-03,&
14184  & .3261000e-05,.2001900e-03,.2748800e-03,.2851000e-03,.1319900e-03,&
14185  & .1787700e-05,.1350700e-03,.1884500e-03,.2016300e-03,.8387900e-04,&
14186  & .2051800e-05,.1431900e-03,.1996800e-03,.2113400e-03,.9085800e-04,&
14187  & .2295300e-05,.1513700e-03,.2103800e-03,.2209400e-03,.9709800e-04,&
14188  & .2509800e-05,.1594700e-03,.2201900e-03,.2294800e-03,.1040200e-03,&
14189  & .2683000e-05,.1674900e-03,.2295000e-03,.2376100e-03,.1106900e-03,&
14190  & .1502200e-05,.1129700e-03,.1577300e-03,.1681900e-03,.7080800e-04,&
14191  & .1715700e-05,.1199800e-03,.1671400e-03,.1764400e-03,.7634500e-04,&
14192  & .1911100e-05,.1269000e-03,.1761100e-03,.1845400e-03,.8180400e-04,&
14193  & .2081200e-05,.1338500e-03,.1842500e-03,.1916400e-03,.8759100e-04,&
14194  & .2214400e-05,.1406600e-03,.1923500e-03,.1986700e-03,.9322800e-04,&
14195  & .1262100e-05,.9468100e-04,.1321000e-03,.1403200e-03,.5963000e-04,&
14196  & .1434600e-05,.1006100e-03,.1400900e-03,.1475100e-03,.6414200e-04,&
14197  & .1590800e-05,.1065500e-03,.1474900e-03,.1541300e-03,.6898800e-04,&
14198  & .1725300e-05,.1124600e-03,.1543700e-03,.1601300e-03,.7389300e-04,&
14199  & .1827200e-05,.1182500e-03,.1613000e-03,.1662700e-03,.7864900e-04,&
14200  & .1061100e-05,.7941900e-04,.1107900e-03,.1173600e-03,.5024400e-04,&
14201  & .1199600e-05,.8448600e-04,.1174900e-03,.1234500e-03,.5405400e-04,&
14202  & .1324100e-05,.8956500e-04,.1236400e-03,.1288300e-03,.5825900e-04,&
14203  & .1430000e-05,.9459200e-04,.1294900e-03,.1340600e-03,.6230000e-04,&
14204  & .1507000e-05,.9954500e-04,.1353800e-03,.1392800e-03,.6648500e-04,&
14205  & .8924800e-06,.6675700e-04,.9304300e-04,.9826900e-04,.4239600e-04,&
14206  & .1003400e-05,.7108200e-04,.9865200e-04,.1033200e-03,.4571900e-04,&
14207  & .1102400e-05,.7540400e-04,.1037500e-03,.1078200e-03,.4922800e-04,&
14208  & .1183500e-05,.7969400e-04,.1088200e-03,.1123400e-03,.5264900e-04,&
14209  & .1240600e-05,.8391500e-04,.1137600e-03,.1167700e-03,.5626400e-04,&
14210  & .7514700e-06,.5624800e-04,.7829100e-04,.8244100e-04,.3578100e-04,&
14211  & .8402500e-06,.5992900e-04,.8291700e-04,.8656200e-04,.3871500e-04,&
14212  & .9172800e-06,.6361800e-04,.8723100e-04,.9044200e-04,.4168200e-04,&
14213  & .9794700e-06,.6728500e-04,.9160600e-04,.9431100e-04,.4461000e-04,&
14214  & .1022200e-05,.7087900e-04,.9575900e-04,.9795400e-04,.4767800e-04/
14215 
14216  data absb(351:525, 5) / &
14217  & .6322800e-06,.4744800e-04,.6592600e-04,.6921100e-04,.3031200e-04,&
14218  & .7018700e-06,.5058300e-04,.6975200e-04,.7262200e-04,.3284400e-04,&
14219  & .7626300e-06,.5372300e-04,.7343100e-04,.7594300e-04,.3528300e-04,&
14220  & .8097500e-06,.5688400e-04,.7713900e-04,.7923500e-04,.3783700e-04,&
14221  & .8409900e-06,.5993700e-04,.8067000e-04,.8219800e-04,.4039800e-04,&
14222  & .5306200e-06,.4005400e-04,.5553600e-04,.5810500e-04,.2568300e-04,&
14223  & .5858100e-06,.4274800e-04,.5871900e-04,.6098800e-04,.2782900e-04,&
14224  & .6328300e-06,.4544500e-04,.6192700e-04,.6380800e-04,.2991400e-04,&
14225  & .6684100e-06,.4814100e-04,.6503300e-04,.6656700e-04,.3210100e-04,&
14226  & .6913200e-06,.5074400e-04,.6800200e-04,.6902400e-04,.3419600e-04,&
14227  & .4448200e-06,.3387600e-04,.4681300e-04,.4882000e-04,.2182200e-04,&
14228  & .4883000e-06,.3617300e-04,.4953400e-04,.5126700e-04,.2359800e-04,&
14229  & .5252000e-06,.3850700e-04,.5226400e-04,.5370000e-04,.2540700e-04,&
14230  & .5514200e-06,.4079000e-04,.5487900e-04,.5593400e-04,.2723300e-04,&
14231  & .5682100e-06,.4300500e-04,.5737400e-04,.5799500e-04,.2893900e-04,&
14232  & .3724000e-06,.2868800e-04,.3949800e-04,.4108200e-04,.1854200e-04,&
14233  & .4069700e-06,.3066200e-04,.4183200e-04,.4313900e-04,.2003700e-04,&
14234  & .4351800e-06,.3265700e-04,.4413700e-04,.4519800e-04,.2159200e-04,&
14235  & .4545900e-06,.3460000e-04,.4634200e-04,.4703000e-04,.2309900e-04,&
14236  & .4667400e-06,.3646800e-04,.4842700e-04,.4875200e-04,.2452400e-04,&
14237  & .3116700e-06,.2432800e-04,.3336500e-04,.3457700e-04,.1577500e-04,&
14238  & .3388000e-06,.2603300e-04,.3537600e-04,.3634300e-04,.1703700e-04,&
14239  & .3602200e-06,.2772800e-04,.3730600e-04,.3802500e-04,.1833400e-04,&
14240  & .3744300e-06,.2938100e-04,.3915300e-04,.3955100e-04,.1955900e-04,&
14241  & .3830400e-06,.3094000e-04,.4088800e-04,.4101200e-04,.2073500e-04,&
14242  & .2606500e-06,.2066600e-04,.2822600e-04,.2912800e-04,.1340300e-04,&
14243  & .2817900e-06,.2213000e-04,.2993400e-04,.3064200e-04,.1449500e-04,&
14244  & .2979100e-06,.2357200e-04,.3155400e-04,.3200500e-04,.1557600e-04,&
14245  & .3081300e-06,.2496300e-04,.3310100e-04,.3327800e-04,.1658200e-04,&
14246  & .3141200e-06,.2626100e-04,.3451000e-04,.3449700e-04,.1753300e-04,&
14247  & .2176800e-06,.1758100e-04,.2390300e-04,.2455800e-04,.1140500e-04,&
14248  & .2340900e-06,.1882700e-04,.2533300e-04,.2581200e-04,.1233100e-04,&
14249  & .2459600e-06,.2005300e-04,.2669600e-04,.2694200e-04,.1320000e-04,&
14250  & .2533800e-06,.2121100e-04,.2797800e-04,.2801200e-04,.1403700e-04,&
14251  & .2573500e-06,.2229200e-04,.2911300e-04,.2901900e-04,.1478900e-04/
14252 
14253  data absb(526:700, 5) / &
14254  & .1811100e-06,.1493300e-04,.2022100e-04,.2069100e-04,.9685300e-05,&
14255  & .1937300e-06,.1599300e-04,.2141300e-04,.2170800e-04,.1045900e-04,&
14256  & .2026200e-06,.1702500e-04,.2255100e-04,.2265100e-04,.1117000e-04,&
14257  & .2080200e-06,.1799200e-04,.2360300e-04,.2354000e-04,.1184700e-04,&
14258  & .2106800e-06,.1889200e-04,.2452200e-04,.2437000e-04,.1244400e-04,&
14259  & .1494000e-06,.1260400e-04,.1700100e-04,.1733900e-04,.8163000e-05,&
14260  & .1593400e-06,.1350500e-04,.1800800e-04,.1818300e-04,.8789000e-05,&
14261  & .1662600e-06,.1437400e-04,.1896300e-04,.1897600e-04,.9383800e-05,&
14262  & .1704000e-06,.1518700e-04,.1982400e-04,.1972000e-04,.9922900e-05,&
14263  & .1722900e-06,.1593900e-04,.2058200e-04,.2039400e-04,.1041200e-04,&
14264  & .1222400e-06,.1056000e-04,.1420300e-04,.1444700e-04,.6819600e-05,&
14265  & .1303000e-06,.1132600e-04,.1505500e-04,.1515600e-04,.7332100e-05,&
14266  & .1359000e-06,.1206200e-04,.1585600e-04,.1582300e-04,.7823000e-05,&
14267  & .1392900e-06,.1275000e-04,.1657300e-04,.1644900e-04,.8263200e-05,&
14268  & .1408100e-06,.1338400e-04,.1720800e-04,.1700600e-04,.8665600e-05,&
14269  & .9897900e-07,.8750000e-05,.1175500e-04,.1194300e-04,.5626900e-05,&
14270  & .1058300e-06,.9403500e-05,.1248000e-04,.1254400e-04,.6052800e-05,&
14271  & .1106800e-06,.1003100e-04,.1316100e-04,.1311000e-04,.6460400e-05,&
14272  & .1136500e-06,.1061900e-04,.1376700e-04,.1364200e-04,.6825300e-05,&
14273  & .1151000e-06,.1116200e-04,.1430600e-04,.1410800e-04,.7161500e-05,&
14274  & .8005000e-07,.7243600e-05,.9722500e-05,.9865700e-05,.4637500e-05,&
14275  & .8588600e-07,.7800600e-05,.1033800e-04,.1037800e-04,.4991900e-05,&
14276  & .9010800e-07,.8335500e-05,.1091600e-04,.1085600e-04,.5330300e-05,&
14277  & .9269000e-07,.8838000e-05,.1142900e-04,.1130600e-04,.5634900e-05,&
14278  & .9404600e-07,.9301900e-05,.1188500e-04,.1169600e-04,.5915200e-05,&
14279  & .6472000e-07,.5995500e-05,.8038900e-05,.8148800e-05,.3819200e-05,&
14280  & .6966300e-07,.6469900e-05,.8561300e-05,.8581800e-05,.4115900e-05,&
14281  & .7330500e-07,.6924600e-05,.9050600e-05,.8986100e-05,.4396800e-05,&
14282  & .7558800e-07,.7353000e-05,.9485700e-05,.9363700e-05,.4650500e-05,&
14283  & .7682500e-07,.7749200e-05,.9870800e-05,.9689800e-05,.4884100e-05,&
14284  & .5187100e-07,.4919100e-05,.6599400e-05,.6689000e-05,.3118600e-05,&
14285  & .5612700e-07,.5322700e-05,.7043500e-05,.7057800e-05,.3367800e-05,&
14286  & .5939500e-07,.5712400e-05,.7460900e-05,.7401800e-05,.3602500e-05,&
14287  & .6150100e-07,.6079000e-05,.7833300e-05,.7721000e-05,.3816400e-05,&
14288  & .6271000e-07,.6419400e-05,.8161300e-05,.7998000e-05,.4012200e-05/
14289 
14290  data absb(701:875, 5) / &
14291  & .4147100e-07,.4027600e-05,.5407600e-05,.5481500e-05,.2540200e-05,&
14292  & .4512700e-07,.4371100e-05,.5784700e-05,.5797100e-05,.2750700e-05,&
14293  & .4801800e-07,.4704000e-05,.6140700e-05,.6088300e-05,.2947900e-05,&
14294  & .4998300e-07,.5017700e-05,.6459500e-05,.6358700e-05,.3128600e-05,&
14295  & .5115300e-07,.5309800e-05,.6738900e-05,.6595000e-05,.3292800e-05,&
14296  & .3310800e-07,.3294500e-05,.4426100e-05,.4487100e-05,.2067400e-05,&
14297  & .3622800e-07,.3586100e-05,.4746200e-05,.4757100e-05,.2245200e-05,&
14298  & .3877600e-07,.3870100e-05,.5050500e-05,.5004600e-05,.2410600e-05,&
14299  & .4058000e-07,.4137800e-05,.5321900e-05,.5232300e-05,.2562200e-05,&
14300  & .4168900e-07,.4388100e-05,.5560700e-05,.5435600e-05,.2701500e-05,&
14301  & .2624300e-07,.2678000e-05,.3602100e-05,.3657800e-05,.1672200e-05,&
14302  & .2890300e-07,.2925400e-05,.3875400e-05,.3888600e-05,.1823500e-05,&
14303  & .3115800e-07,.3167400e-05,.4136300e-05,.4099800e-05,.1962800e-05,&
14304  & .3282800e-07,.3396600e-05,.4368700e-05,.4293500e-05,.2090600e-05,&
14305  & .3389600e-07,.3611200e-05,.4574500e-05,.4468000e-05,.2208800e-05,&
14306  & .2069200e-07,.2168800e-05,.2922600e-05,.2973800e-05,.1348600e-05,&
14307  & .2296100e-07,.2377600e-05,.3155600e-05,.3169900e-05,.1475900e-05,&
14308  & .2493400e-07,.2583400e-05,.3377900e-05,.3350700e-05,.1592600e-05,&
14309  & .2647200e-07,.2780000e-05,.3577900e-05,.3516200e-05,.1701700e-05,&
14310  & .2750400e-07,.2963700e-05,.3755800e-05,.3666600e-05,.1801700e-05,&
14311  & .1626900e-07,.1753700e-05,.2367200e-05,.2413300e-05,.1085600e-05,&
14312  & .1819400e-07,.1929100e-05,.2566300e-05,.2580900e-05,.1192700e-05,&
14313  & .1990300e-07,.2103900e-05,.2755200e-05,.2736000e-05,.1290900e-05,&
14314  & .2129300e-07,.2272100e-05,.2927000e-05,.2877500e-05,.1383900e-05,&
14315  & .2228300e-07,.2429200e-05,.3080200e-05,.3006700e-05,.1468600e-05,&
14316  & .1271200e-07,.1412800e-05,.1911300e-05,.1954800e-05,.8711400e-06,&
14317  & .1435100e-07,.1559600e-05,.2080200e-05,.2094900e-05,.9611800e-06,&
14318  & .1581500e-07,.1707600e-05,.2240400e-05,.2228900e-05,.1043600e-05,&
14319  & .1706200e-07,.1851100e-05,.2388900e-05,.2349200e-05,.1122500e-05,&
14320  & .1799300e-07,.1985500e-05,.2520600e-05,.2460900e-05,.1194800e-05,&
14321  & .9836400e-08,.1130600e-05,.1535300e-05,.1574600e-05,.6955400e-06,&
14322  & .1122600e-07,.1253400e-05,.1676500e-05,.1694400e-05,.7692500e-06,&
14323  & .1248300e-07,.1378400e-05,.1813000e-05,.1808700e-05,.8403600e-06,&
14324  & .1358700e-07,.1500700e-05,.1941800e-05,.1912200e-05,.9071200e-06,&
14325  & .1445700e-07,.1615800e-05,.2055700e-05,.2007300e-05,.9684700e-06/
14326 
14327  data absb(876:1050, 5) / &
14328  & .7582400e-08,.9032900e-06,.1230700e-05,.1265300e-05,.5534600e-06,&
14329  & .8745300e-08,.1005000e-05,.1349000e-05,.1367600e-05,.6147000e-06,&
14330  & .9819400e-08,.1110100e-05,.1465000e-05,.1465100e-05,.6749200e-06,&
14331  & .1077900e-07,.1214100e-05,.1575600e-05,.1554400e-05,.7316300e-06,&
14332  & .1157900e-07,.1312500e-05,.1674300e-05,.1635900e-05,.7840500e-06,&
14333  & .5821900e-08,.7201500e-06,.9837900e-06,.1014300e-05,.4393300e-06,&
14334  & .6781700e-08,.8042300e-06,.1083200e-05,.1102300e-05,.4901800e-06,&
14335  & .7696600e-08,.8920500e-06,.1181900e-05,.1184600e-05,.5413100e-06,&
14336  & .8522400e-08,.9800500e-06,.1276000e-05,.1261700e-05,.5885800e-06,&
14337  & .9235000e-08,.1064400e-05,.1361500e-05,.1331900e-05,.6335800e-06,&
14338  & .4479000e-08,.5741800e-06,.7863500e-06,.8129600e-06,.3488100e-06,&
14339  & .5257900e-08,.6438800e-06,.8705600e-06,.8889600e-06,.3913500e-06,&
14340  & .6027900e-08,.7172200e-06,.9534800e-06,.9580900e-06,.4344400e-06,&
14341  & .6732400e-08,.7913400e-06,.1033100e-05,.1024300e-05,.4739100e-06,&
14342  & .7355100e-08,.8633000e-06,.1107300e-05,.1084200e-05,.5123400e-06,&
14343  & .3445000e-08,.4575300e-06,.6281400e-06,.6515800e-06,.2762500e-06,&
14344  & .4069000e-08,.5153000e-06,.6989200e-06,.7155500e-06,.3126000e-06,&
14345  & .4708700e-08,.5762400e-06,.7684000e-06,.7747700e-06,.3480400e-06,&
14346  & .5308600e-08,.6384300e-06,.8358000e-06,.8309200e-06,.3818100e-06,&
14347  & .5843900e-08,.6995600e-06,.8996200e-06,.8822500e-06,.4141200e-06,&
14348  & .2645400e-08,.3638700e-06,.5000700e-06,.5217900e-06,.2189400e-06,&
14349  & .3140300e-08,.4117300e-06,.5599700e-06,.5747900e-06,.2487000e-06,&
14350  & .3665500e-08,.4621100e-06,.6181900e-06,.6251100e-06,.2784000e-06,&
14351  & .4173000e-08,.5141500e-06,.6754600e-06,.6730700e-06,.3069500e-06,&
14352  & .4631100e-08,.5658200e-06,.7297300e-06,.7169700e-06,.3340700e-06,&
14353  & .2027500e-08,.2887300e-06,.3974900e-06,.4164700e-06,.1735500e-06,&
14354  & .2419000e-08,.3282100e-06,.4473000e-06,.4606300e-06,.1977400e-06,&
14355  & .2844000e-08,.3698100e-06,.4967700e-06,.5041100e-06,.2221800e-06,&
14356  & .3269000e-08,.4131500e-06,.5448800e-06,.5440800e-06,.2464700e-06,&
14357  & .3659200e-08,.4568000e-06,.5909000e-06,.5818900e-06,.2690200e-06,&
14358  & .1561100e-08,.2296200e-06,.3161300e-06,.3330000e-06,.1373000e-06,&
14359  & .1869600e-08,.2618700e-06,.3580200e-06,.3695400e-06,.1570100e-06,&
14360  & .2210000e-08,.2964100e-06,.3997000e-06,.4068300e-06,.1776400e-06,&
14361  & .2561900e-08,.3325500e-06,.4400900e-06,.4406300e-06,.1980800e-06,&
14362  & .2892800e-08,.3690800e-06,.4789200e-06,.4727000e-06,.2169600e-06/
14363 
14364  data absb(1051:1175, 5) / &
14365  & .1204100e-08,.1825900e-06,.2510800e-06,.2660800e-06,.1084200e-06,&
14366  & .1446600e-08,.2091800e-06,.2863300e-06,.2967700e-06,.1246800e-06,&
14367  & .1717600e-08,.2376500e-06,.3213900e-06,.3279900e-06,.1421300e-06,&
14368  & .2005800e-08,.2676600e-06,.3552300e-06,.3566400e-06,.1590700e-06,&
14369  & .2285200e-08,.2981800e-06,.3880600e-06,.3838100e-06,.1751200e-06,&
14370  & .9293400e-09,.1449600e-06,.1988700e-06,.2121500e-06,.8518500e-07,&
14371  & .1118000e-08,.1666800e-06,.2284100e-06,.2379900e-06,.9917200e-07,&
14372  & .1333300e-08,.1902400e-06,.2579000e-06,.2638500e-06,.1133100e-06,&
14373  & .1566800e-08,.2151200e-06,.2862600e-06,.2882000e-06,.1275800e-06,&
14374  & .1800000e-08,.2405500e-06,.3140500e-06,.3113400e-06,.1410600e-06,&
14375  & .7174700e-09,.1149100e-06,.1576000e-06,.1690700e-06,.6676200e-07,&
14376  & .8631800e-09,.1326600e-06,.1819800e-06,.1905100e-06,.7884400e-07,&
14377  & .1033200e-08,.1519900e-06,.2064600e-06,.2118500e-06,.9031700e-07,&
14378  & .1220500e-08,.1725500e-06,.2304900e-06,.2328000e-06,.1021100e-06,&
14379  & .1413700e-08,.1937400e-06,.2537700e-06,.2520900e-06,.1134700e-06,&
14380  & .5553400e-09,.9116100e-07,.1249500e-06,.1348100e-06,.5252400e-07,&
14381  & .6679600e-09,.1056400e-06,.1449000e-06,.1524600e-06,.6249100e-07,&
14382  & .8020800e-09,.1214200e-06,.1654000e-06,.1701300e-06,.7192300e-07,&
14383  & .9515500e-09,.1384600e-06,.1856200e-06,.1880300e-06,.8176000e-07,&
14384  & .1110000e-08,.1560800e-06,.2051300e-06,.2042500e-06,.9140500e-07,&
14385  & .4448300e-09,.7420100e-07,.1017500e-06,.1098600e-06,.4262600e-07,&
14386  & .5347800e-09,.8625700e-07,.1181800e-06,.1245300e-06,.5081600e-07,&
14387  & .6426500e-09,.9939000e-07,.1353500e-06,.1392800e-06,.5865800e-07,&
14388  & .7636900e-09,.1136000e-06,.1522400e-06,.1541700e-06,.6684500e-07,&
14389  & .8931600e-09,.1282600e-06,.1685000e-06,.1677500e-06,.7484100e-07/
14390 
14391  data absb( 1:175, 6) / &
14392  & .1545200e-03,.1747100e-02,.2287000e-02,.2275700e-02,.1186800e-02,&
14393  & .1735800e-03,.1833700e-02,.2375200e-02,.2354900e-02,.1249200e-02,&
14394  & .1904300e-03,.1907000e-02,.2447900e-02,.2425500e-02,.1311400e-02,&
14395  & .2045900e-03,.1970200e-02,.2510900e-02,.2490500e-02,.1371700e-02,&
14396  & .2162100e-03,.2026600e-02,.2565300e-02,.2551200e-02,.1432000e-02,&
14397  & .1279300e-03,.1466200e-02,.1914100e-02,.1903200e-02,.9940400e-03,&
14398  & .1433500e-03,.1536700e-02,.1985200e-02,.1969100e-02,.1046200e-02,&
14399  & .1569800e-03,.1597400e-02,.2045400e-02,.2028500e-02,.1098600e-02,&
14400  & .1683700e-03,.1650500e-02,.2098200e-02,.2082800e-02,.1150900e-02,&
14401  & .1776500e-03,.1699000e-02,.2145200e-02,.2135700e-02,.1202000e-02,&
14402  & .1060000e-03,.1228000e-02,.1598700e-02,.1589900e-02,.8316000e-03,&
14403  & .1184600e-03,.1285800e-02,.1657000e-02,.1643800e-02,.8764100e-03,&
14404  & .1294700e-03,.1336200e-02,.1707300e-02,.1693700e-02,.9203700e-03,&
14405  & .1386000e-03,.1381800e-02,.1751900e-02,.1740100e-02,.9651400e-03,&
14406  & .1460500e-03,.1423100e-02,.1792200e-02,.1784900e-02,.1008800e-02,&
14407  & .8784400e-04,.1026800e-02,.1333700e-02,.1325800e-02,.6947100e-03,&
14408  & .9792100e-04,.1074700e-02,.1381600e-02,.1370400e-02,.7330900e-03,&
14409  & .1067800e-03,.1117300e-02,.1424000e-02,.1412200e-02,.7712600e-03,&
14410  & .1141000e-03,.1156100e-02,.1461900e-02,.1452500e-02,.8098300e-03,&
14411  & .1200800e-03,.1191300e-02,.1495700e-02,.1490400e-02,.8468500e-03,&
14412  & .7273600e-04,.8577000e-03,.1111000e-02,.1104300e-02,.5798800e-03,&
14413  & .8087000e-04,.8973700e-03,.1150800e-02,.1141200e-02,.6131000e-03,&
14414  & .8798400e-04,.9333400e-03,.1186500e-02,.1176900e-02,.6456300e-03,&
14415  & .9390000e-04,.9663700e-03,.1218800e-02,.1211500e-02,.6794600e-03,&
14416  & .9866900e-04,.9968200e-03,.1247700e-02,.1244400e-02,.7112900e-03,&
14417  & .6019600e-04,.7158500e-03,.9248400e-03,.9188500e-03,.4842800e-03,&
14418  & .6675900e-04,.7490200e-03,.9580600e-03,.9500700e-03,.5125400e-03,&
14419  & .7248600e-04,.7793600e-03,.9882800e-03,.9803600e-03,.5411800e-03,&
14420  & .7721000e-04,.8075700e-03,.1015700e-02,.1010100e-02,.5699500e-03,&
14421  & .8104600e-04,.8334400e-03,.1040500e-02,.1039000e-02,.5976200e-03,&
14422  & .4979700e-04,.5971400e-03,.7695100e-03,.7640800e-03,.4048700e-03,&
14423  & .5509800e-04,.6250500e-03,.7972800e-03,.7907100e-03,.4290400e-03,&
14424  & .5969000e-04,.6507100e-03,.8229400e-03,.8167100e-03,.4537500e-03,&
14425  & .6345700e-04,.6749000e-03,.8463500e-03,.8424500e-03,.4783300e-03,&
14426  & .6653800e-04,.6968300e-03,.8680500e-03,.8681200e-03,.5023800e-03/
14427 
14428  data absb(176:350, 6) / &
14429  & .4127700e-04,.4985400e-03,.6404300e-03,.6358200e-03,.3388500e-03,&
14430  & .4555700e-04,.5219700e-03,.6640800e-03,.6585900e-03,.3596000e-03,&
14431  & .4922600e-04,.5438000e-03,.6858200e-03,.6811100e-03,.3810800e-03,&
14432  & .5223800e-04,.5644200e-03,.7059800e-03,.7036400e-03,.4019900e-03,&
14433  & .5469400e-04,.5832000e-03,.7250400e-03,.7264500e-03,.4228200e-03,&
14434  & .3421800e-04,.4162400e-03,.5331200e-03,.5291200e-03,.2837600e-03,&
14435  & .3767000e-04,.4359700e-03,.5531600e-03,.5489300e-03,.3016100e-03,&
14436  & .4060200e-04,.4546700e-03,.5717800e-03,.5686100e-03,.3202300e-03,&
14437  & .4300900e-04,.4722000e-03,.5893100e-03,.5885000e-03,.3380500e-03,&
14438  & .4496800e-04,.4885000e-03,.6062400e-03,.6086700e-03,.3563300e-03,&
14439  & .2855400e-04,.3487200e-03,.4451900e-03,.4420300e-03,.2386500e-03,&
14440  & .3131200e-04,.3654300e-03,.4621500e-03,.4589600e-03,.2542900e-03,&
14441  & .3362300e-04,.3813600e-03,.4780800e-03,.4762500e-03,.2702000e-03,&
14442  & .3551800e-04,.3963800e-03,.4935200e-03,.4939300e-03,.2856700e-03,&
14443  & .3706000e-04,.4104600e-03,.5083300e-03,.5115200e-03,.3016900e-03,&
14444  & .2382500e-04,.2924100e-03,.3720200e-03,.3695700e-03,.2012000e-03,&
14445  & .2601900e-04,.3066400e-03,.3865000e-03,.3843300e-03,.2148400e-03,&
14446  & .2784000e-04,.3202700e-03,.4003800e-03,.3995700e-03,.2282900e-03,&
14447  & .2932900e-04,.3331700e-03,.4139600e-03,.4149800e-03,.2416900e-03,&
14448  & .3054200e-04,.3454700e-03,.4268100e-03,.4304800e-03,.2556800e-03,&
14449  & .1987900e-04,.2455200e-03,.3113500e-03,.3093600e-03,.1698600e-03,&
14450  & .2161700e-04,.2576700e-03,.3237600e-03,.3222800e-03,.1817300e-03,&
14451  & .2305000e-04,.2693700e-03,.3359000e-03,.3357900e-03,.1932000e-03,&
14452  & .2421700e-04,.2805400e-03,.3477200e-03,.3492200e-03,.2050100e-03,&
14453  & .2516400e-04,.2912100e-03,.3588300e-03,.3628600e-03,.2170800e-03,&
14454  & .1658900e-04,.2064500e-03,.2608700e-03,.2594400e-03,.1436900e-03,&
14455  & .1796100e-04,.2168800e-03,.2716200e-03,.2708300e-03,.1538600e-03,&
14456  & .1908300e-04,.2269700e-03,.2822900e-03,.2825800e-03,.1638300e-03,&
14457  & .1999800e-04,.2366800e-03,.2924500e-03,.2943800e-03,.1741800e-03,&
14458  & .2073700e-04,.2458900e-03,.3021600e-03,.3064700e-03,.1846500e-03,&
14459  & .1385800e-04,.1740200e-03,.2190600e-03,.2180400e-03,.1220500e-03,&
14460  & .1493000e-04,.1830000e-03,.2284300e-03,.2281300e-03,.1306500e-03,&
14461  & .1580700e-04,.1917400e-03,.2377000e-03,.2383000e-03,.1393300e-03,&
14462  & .1652200e-04,.2001000e-03,.2464000e-03,.2487600e-03,.1483700e-03,&
14463  & .1709000e-04,.2079800e-03,.2550000e-03,.2594300e-03,.1574800e-03/
14464 
14465  data absb(351:525, 6) / &
14466  & .1156500e-04,.1468900e-03,.1842300e-03,.1835800e-03,.1037200e-03,&
14467  & .1240400e-04,.1546600e-03,.1924200e-03,.1924200e-03,.1110400e-03,&
14468  & .1308800e-04,.1622500e-03,.2003500e-03,.2013600e-03,.1187700e-03,&
14469  & .1364400e-04,.1693800e-03,.2079300e-03,.2105400e-03,.1265800e-03,&
14470  & .1407900e-04,.1761400e-03,.2155300e-03,.2200400e-03,.1345500e-03,&
14471  & .9642900e-05,.1242200e-03,.1551800e-03,.1548600e-03,.8824000e-04,&
14472  & .1029700e-04,.1309300e-03,.1622900e-03,.1625500e-03,.9466400e-04,&
14473  & .1082900e-04,.1374400e-03,.1691100e-03,.1704300e-03,.1013700e-03,&
14474  & .1126300e-04,.1435500e-03,.1757700e-03,.1786100e-03,.1081800e-03,&
14475  & .1159300e-04,.1493600e-03,.1824500e-03,.1869800e-03,.1151700e-03,&
14476  & .8035700e-05,.1052500e-03,.1309800e-03,.1308700e-03,.7519900e-04,&
14477  & .8545700e-05,.1110600e-03,.1370900e-03,.1375600e-03,.8087700e-04,&
14478  & .8958500e-05,.1165900e-03,.1429800e-03,.1445800e-03,.8670300e-04,&
14479  & .9293600e-05,.1218500e-03,.1488700e-03,.1518400e-03,.9267900e-04,&
14480  & .9541300e-05,.1268500e-03,.1547600e-03,.1592600e-03,.9877000e-04,&
14481  & .6689100e-05,.8932600e-04,.1107000e-03,.1107500e-03,.6425400e-04,&
14482  & .7085500e-05,.9428000e-04,.1159500e-03,.1166800e-03,.6921500e-04,&
14483  & .7406800e-05,.9902900e-04,.1211200e-03,.1229000e-03,.7427800e-04,&
14484  & .7663400e-05,.1035600e-03,.1263100e-03,.1293300e-03,.7948900e-04,&
14485  & .7849900e-05,.1078500e-03,.1315200e-03,.1358800e-03,.8476200e-04,&
14486  & .5564700e-05,.7594300e-04,.9369500e-04,.9390600e-04,.5500200e-04,&
14487  & .5871900e-05,.8016700e-04,.9822900e-04,.9920400e-04,.5932900e-04,&
14488  & .6121200e-05,.8424900e-04,.1028100e-03,.1047100e-03,.6377800e-04,&
14489  & .6316200e-05,.8812200e-04,.1073800e-03,.1104100e-03,.6831800e-04,&
14490  & .6455300e-05,.9183500e-04,.1120400e-03,.1161400e-03,.7290700e-04,&
14491  & .4624600e-05,.6463300e-04,.7939800e-04,.7983100e-04,.4719000e-04,&
14492  & .4862800e-05,.6825800e-04,.8338300e-04,.8452100e-04,.5095300e-04,&
14493  & .5055700e-05,.7175800e-04,.8741800e-04,.8941700e-04,.5482300e-04,&
14494  & .5203500e-05,.7509900e-04,.9148100e-04,.9442300e-04,.5878500e-04,&
14495  & .5306800e-05,.7831700e-04,.9564600e-04,.9945200e-04,.6276600e-04,&
14496  & .3840300e-05,.5507700e-04,.6741000e-04,.6802400e-04,.4053800e-04,&
14497  & .4024400e-05,.5819900e-04,.7092400e-04,.7218000e-04,.4383900e-04,&
14498  & .4173000e-05,.6120600e-04,.7447500e-04,.7650200e-04,.4722200e-04,&
14499  & .4283500e-05,.6409100e-04,.7811400e-04,.8088300e-04,.5065200e-04,&
14500  & .4360400e-05,.6689800e-04,.8179800e-04,.8529300e-04,.5410200e-04/
14501 
14502  data absb(526:700, 6) / &
14503  & .3180100e-05,.4688800e-04,.5723300e-04,.5794500e-04,.3478100e-04,&
14504  & .3324400e-05,.4958600e-04,.6031900e-04,.6162500e-04,.3764600e-04,&
14505  & .3438900e-05,.5218300e-04,.6346500e-04,.6542200e-04,.4060600e-04,&
14506  & .3522800e-05,.5469600e-04,.6669700e-04,.6926600e-04,.4357100e-04,&
14507  & .3580400e-05,.5716200e-04,.6996400e-04,.7312000e-04,.4656200e-04,&
14508  & .2620000e-05,.3974200e-04,.4841000e-04,.4914100e-04,.2963900e-04,&
14509  & .2735100e-05,.4207500e-04,.5112200e-04,.5238200e-04,.3214600e-04,&
14510  & .2825300e-05,.4432500e-04,.5391600e-04,.5569800e-04,.3470100e-04,&
14511  & .2890700e-05,.4653000e-04,.5676900e-04,.5906800e-04,.3728000e-04,&
14512  & .2935400e-05,.4870700e-04,.5964900e-04,.6246100e-04,.3986400e-04,&
14513  & .2146900e-05,.3349800e-04,.4074400e-04,.4142700e-04,.2504500e-04,&
14514  & .2240700e-05,.3551300e-04,.4312400e-04,.4426200e-04,.2722700e-04,&
14515  & .2314000e-05,.3748100e-04,.4558800e-04,.4715700e-04,.2943300e-04,&
14516  & .2367300e-05,.3941900e-04,.4810900e-04,.5010700e-04,.3167200e-04,&
14517  & .2403500e-05,.4134500e-04,.5064000e-04,.5308900e-04,.3391100e-04,&
14518  & .1746400e-05,.2798400e-04,.3400700e-04,.3458400e-04,.2089900e-04,&
14519  & .1825200e-05,.2973700e-04,.3608800e-04,.3705100e-04,.2278500e-04,&
14520  & .1887700e-05,.3146000e-04,.3824700e-04,.3957300e-04,.2468700e-04,&
14521  & .1933300e-05,.3316500e-04,.4046000e-04,.4214600e-04,.2662600e-04,&
14522  & .1964700e-05,.3486900e-04,.4269100e-04,.4476500e-04,.2856100e-04,&
14523  & .1419800e-05,.2336400e-04,.2836700e-04,.2885400e-04,.1742200e-04,&
14524  & .1486200e-05,.2489200e-04,.3018600e-04,.3099400e-04,.1904700e-04,&
14525  & .1539400e-05,.2639900e-04,.3207600e-04,.3319200e-04,.2068800e-04,&
14526  & .1578600e-05,.2789800e-04,.3402000e-04,.3544100e-04,.2236000e-04,&
14527  & .1605800e-05,.2940100e-04,.3598300e-04,.3773500e-04,.2403300e-04,&
14528  & .1154100e-05,.1950900e-04,.2366300e-04,.2407200e-04,.1452100e-04,&
14529  & .1210000e-05,.2083700e-04,.2525200e-04,.2592900e-04,.1591500e-04,&
14530  & .1255100e-05,.2215500e-04,.2690200e-04,.2784200e-04,.1733100e-04,&
14531  & .1288800e-05,.2347000e-04,.2860300e-04,.2980600e-04,.1877300e-04,&
14532  & .1312300e-05,.2479400e-04,.3033100e-04,.3181500e-04,.2021600e-04,&
14533  & .9324400e-06,.1617100e-04,.1959900e-04,.1991800e-04,.1197700e-04,&
14534  & .9805900e-06,.1732400e-04,.2097600e-04,.2151900e-04,.1316900e-04,&
14535  & .1019600e-05,.1847500e-04,.2241100e-04,.2317800e-04,.1438700e-04,&
14536  & .1049600e-05,.1962600e-04,.2389700e-04,.2488700e-04,.1562500e-04,&
14537  & .1070600e-05,.2079200e-04,.2541100e-04,.2664100e-04,.1687100e-04/
14538 
14539  data absb(701:875, 6) / &
14540  & .7520600e-06,.1338100e-04,.1620400e-04,.1644800e-04,.9858200e-05,&
14541  & .7936800e-06,.1438000e-04,.1739500e-04,.1782400e-04,.1087300e-04,&
14542  & .8274200e-06,.1538200e-04,.1864000e-04,.1925900e-04,.1191600e-04,&
14543  & .8539000e-06,.1638800e-04,.1993500e-04,.2074500e-04,.1297900e-04,&
14544  & .8728100e-06,.1741200e-04,.2126100e-04,.2227100e-04,.1405300e-04,&
14545  & .6059100e-06,.1106100e-04,.1338500e-04,.1356800e-04,.8104500e-05,&
14546  & .6418200e-06,.1192600e-04,.1441200e-04,.1475100e-04,.8966100e-05,&
14547  & .6710100e-06,.1279700e-04,.1548900e-04,.1598700e-04,.9857800e-05,&
14548  & .6942700e-06,.1367500e-04,.1661600e-04,.1727400e-04,.1077000e-04,&
14549  & .7112200e-06,.1457300e-04,.1777400e-04,.1860100e-04,.1169000e-04,&
14550  & .4856500e-06,.9092900e-05,.1099800e-04,.1112700e-04,.6613600e-05,&
14551  & .5170300e-06,.9840100e-05,.1187800e-04,.1213600e-04,.7343100e-05,&
14552  & .5424600e-06,.1059400e-04,.1280700e-04,.1319700e-04,.8101900e-05,&
14553  & .5630900e-06,.1135900e-04,.1378200e-04,.1430600e-04,.8881200e-05,&
14554  & .5785400e-06,.1214400e-04,.1479100e-04,.1545600e-04,.9668500e-05,&
14555  & .3877700e-06,.7447800e-05,.9006200e-05,.9092100e-05,.5370900e-05,&
14556  & .4152200e-06,.8091900e-05,.9757000e-05,.9947800e-05,.5988900e-05,&
14557  & .4376100e-06,.8743300e-05,.1055500e-04,.1085600e-04,.6633200e-05,&
14558  & .4558400e-06,.9406300e-05,.1139500e-04,.1180800e-04,.7295500e-05,&
14559  & .4699000e-06,.1009100e-04,.1226900e-04,.1279900e-04,.7969600e-05,&
14560  & .3088800e-06,.6089800e-05,.7363200e-05,.7418100e-05,.4353500e-05,&
14561  & .3329100e-06,.6644000e-05,.8002300e-05,.8141600e-05,.4874100e-05,&
14562  & .3525500e-06,.7205200e-05,.8685500e-05,.8915400e-05,.5420700e-05,&
14563  & .3685400e-06,.7778700e-05,.9406800e-05,.9730800e-05,.5983300e-05,&
14564  & .3812500e-06,.8374500e-05,.1016300e-04,.1058300e-04,.6557800e-05,&
14565  & .2449400e-06,.4959800e-05,.5998700e-05,.6028900e-05,.3512300e-05,&
14566  & .2659500e-06,.5435500e-05,.6541100e-05,.6638300e-05,.3949400e-05,&
14567  & .2832800e-06,.5917300e-05,.7123300e-05,.7294300e-05,.4411300e-05,&
14568  & .2973500e-06,.6412300e-05,.7740600e-05,.7990400e-05,.4888300e-05,&
14569  & .3087600e-06,.6928300e-05,.8391300e-05,.8721100e-05,.5376600e-05,&
14570  & .1928700e-06,.4013400e-05,.4858600e-05,.4871800e-05,.2811400e-05,&
14571  & .2112300e-06,.4420800e-05,.5317800e-05,.5379400e-05,.3178100e-05,&
14572  & .2265800e-06,.4833200e-05,.5810400e-05,.5933500e-05,.3564600e-05,&
14573  & .2391200e-06,.5258200e-05,.6335400e-05,.6523000e-05,.3967600e-05,&
14574  & .2493100e-06,.5702500e-05,.6892000e-05,.7145800e-05,.4382600e-05/
14575 
14576  data absb(876:1050, 6) / &
14577  & .1513200e-06,.3239500e-05,.3926900e-05,.3928900e-05,.2245800e-05,&
14578  & .1671600e-06,.3586600e-05,.4314400e-05,.4351100e-05,.2551200e-05,&
14579  & .1807600e-06,.3939100e-05,.4729400e-05,.4816100e-05,.2874600e-05,&
14580  & .1919400e-06,.4303000e-05,.5174800e-05,.5314200e-05,.3213500e-05,&
14581  & .2009900e-06,.4684200e-05,.5648800e-05,.5843000e-05,.3564400e-05,&
14582  & .1182800e-06,.2607800e-05,.3167200e-05,.3161700e-05,.1789400e-05,&
14583  & .1318500e-06,.2902900e-05,.3492900e-05,.3512500e-05,.2042300e-05,&
14584  & .1437800e-06,.3203000e-05,.3840900e-05,.3900000e-05,.2312100e-05,&
14585  & .1536900e-06,.3513900e-05,.4217900e-05,.4319800e-05,.2597100e-05,&
14586  & .1617600e-06,.3839100e-05,.4619800e-05,.4766700e-05,.2892900e-05,&
14587  & .9236200e-07,.2099700e-05,.2555600e-05,.2547100e-05,.1426700e-05,&
14588  & .1039000e-06,.2349600e-05,.2828600e-05,.2836800e-05,.1635600e-05,&
14589  & .1142100e-06,.2604900e-05,.3121300e-05,.3160600e-05,.1860900e-05,&
14590  & .1229700e-06,.2869400e-05,.3439200e-05,.3512500e-05,.2099600e-05,&
14591  & .1301200e-06,.3147100e-05,.3779400e-05,.3890000e-05,.2348600e-05,&
14592  & .7202900e-07,.1687900e-05,.2060600e-05,.2050600e-05,.1136500e-05,&
14593  & .8171700e-07,.1899400e-05,.2288600e-05,.2290200e-05,.1308100e-05,&
14594  & .9054700e-07,.2116200e-05,.2534700e-05,.2558800e-05,.1496400e-05,&
14595  & .9823100e-07,.2340700e-05,.2801700e-05,.2853700e-05,.1695800e-05,&
14596  & .1045400e-06,.2577000e-05,.3089100e-05,.3171900e-05,.1905300e-05,&
14597  & .5599400e-07,.1353500e-05,.1658300e-05,.1648300e-05,.9021500e-06,&
14598  & .6406500e-07,.1531800e-05,.1848300e-05,.1845200e-05,.1044700e-05,&
14599  & .7160100e-07,.1715600e-05,.2054100e-05,.2067900e-05,.1200500e-05,&
14600  & .7826500e-07,.1905500e-05,.2278600e-05,.2315100e-05,.1367300e-05,&
14601  & .8382700e-07,.2106200e-05,.2520100e-05,.2581200e-05,.1542600e-05,&
14602  & .4337600e-07,.1082300e-05,.1331600e-05,.1322900e-05,.7138700e-06,&
14603  & .5007800e-07,.1232000e-05,.1489800e-05,.1484300e-05,.8319600e-06,&
14604  & .5644000e-07,.1387300e-05,.1661200e-05,.1667800e-05,.9608500e-06,&
14605  & .6218800e-07,.1548100e-05,.1848900e-05,.1873600e-05,.1099500e-05,&
14606  & .6707200e-07,.1717900e-05,.2052000e-05,.2096400e-05,.1246500e-05,&
14607  & .3366200e-07,.8668500e-06,.1071200e-05,.1063800e-05,.5667500e-06,&
14608  & .3918800e-07,.9923700e-06,.1202400e-05,.1196500e-05,.6640700e-06,&
14609  & .4451700e-07,.1123400e-05,.1345300e-05,.1347700e-05,.7701500e-06,&
14610  & .4941000e-07,.1259100e-05,.1502200e-05,.1518600e-05,.8856800e-06,&
14611  & .5366200e-07,.1402800e-05,.1673200e-05,.1705400e-05,.1008800e-05/
14612 
14613  data absb(1051:1175, 6) / &
14614  & .2610700e-07,.6940900e-06,.8614800e-06,.8553500e-06,.4499300e-06,&
14615  & .3064800e-07,.7987400e-06,.9705000e-06,.9643200e-06,.5298700e-06,&
14616  & .3507000e-07,.9091900e-06,.1089300e-05,.1088900e-05,.6172700e-06,&
14617  & .3922300e-07,.1023700e-05,.1220600e-05,.1230800e-05,.7134500e-06,&
14618  & .4289700e-07,.1145000e-05,.1364100e-05,.1387800e-05,.8161400e-06,&
14619  & .2018300e-07,.5546100e-06,.6918700e-06,.6868600e-06,.3563400e-06,&
14620  & .2390600e-07,.6414300e-06,.7819300e-06,.7761500e-06,.4213300e-06,&
14621  & .2757300e-07,.7342200e-06,.8805900e-06,.8784800e-06,.4938700e-06,&
14622  & .3106600e-07,.8308300e-06,.9900100e-06,.9960400e-06,.5736200e-06,&
14623  & .3421300e-07,.9330200e-06,.1110300e-05,.1127100e-05,.6590600e-06,&
14624  & .1555300e-07,.4422100e-06,.5547500e-06,.5505100e-06,.2815800e-06,&
14625  & .1859700e-07,.5138700e-06,.6288300e-06,.6238100e-06,.3343200e-06,&
14626  & .2162700e-07,.5916500e-06,.7107900e-06,.7076800e-06,.3942300e-06,&
14627  & .2454800e-07,.6728600e-06,.8015900e-06,.8045100e-06,.4600900e-06,&
14628  & .2722300e-07,.7587000e-06,.9019600e-06,.9137200e-06,.5312600e-06,&
14629  & .1198900e-07,.3527100e-06,.4450400e-06,.4416400e-06,.2224700e-06,&
14630  & .1447300e-07,.4116700e-06,.5059300e-06,.5017900e-06,.2655700e-06,&
14631  & .1695900e-07,.4768100e-06,.5738900e-06,.5705500e-06,.3148800e-06,&
14632  & .1938600e-07,.5450300e-06,.6493300e-06,.6504300e-06,.3692700e-06,&
14633  & .2165500e-07,.6170500e-06,.7328500e-06,.7409200e-06,.4282300e-06,&
14634  & .9574500e-08,.2890900e-06,.3650400e-06,.3622100e-06,.1814300e-06,&
14635  & .1160200e-07,.3386900e-06,.4162500e-06,.4126700e-06,.2175400e-06,&
14636  & .1363900e-07,.3936300e-06,.4734500e-06,.4705300e-06,.2587300e-06,&
14637  & .1563500e-07,.4513200e-06,.5372200e-06,.5377900e-06,.3043600e-06,&
14638  & .1751500e-07,.5125500e-06,.6080400e-06,.6144500e-06,.3539500e-06/
14639 
14640  data absb( 1:175, 7) / &
14641  & .1381800e-02,.5309500e-02,.6174400e-02,.6140900e-02,.3820100e-02,&
14642  & .1492700e-02,.5426200e-02,.6316900e-02,.6326800e-02,.3978700e-02,&
14643  & .1588200e-02,.5524500e-02,.6457500e-02,.6504200e-02,.4128500e-02,&
14644  & .1668300e-02,.5602800e-02,.6585900e-02,.6676400e-02,.4276600e-02,&
14645  & .1736400e-02,.5664200e-02,.6699600e-02,.6840000e-02,.4419600e-02,&
14646  & .1143900e-02,.4464200e-02,.5205200e-02,.5195400e-02,.3218500e-02,&
14647  & .1232200e-02,.4561200e-02,.5329500e-02,.5355400e-02,.3354400e-02,&
14648  & .1308200e-02,.4642500e-02,.5447400e-02,.5511100e-02,.3486900e-02,&
14649  & .1372300e-02,.4707800e-02,.5556800e-02,.5660500e-02,.3617800e-02,&
14650  & .1427300e-02,.4761400e-02,.5653600e-02,.5800400e-02,.3744500e-02,&
14651  & .9460000e-03,.3745200e-02,.4378600e-02,.4383900e-02,.2706400e-02,&
14652  & .1016600e-02,.3827200e-02,.4484500e-02,.4523800e-02,.2825900e-02,&
14653  & .1077200e-02,.3895100e-02,.4585200e-02,.4656900e-02,.2942400e-02,&
14654  & .1128700e-02,.3950800e-02,.4677600e-02,.4785600e-02,.3057300e-02,&
14655  & .1172700e-02,.3998400e-02,.4763900e-02,.4909400e-02,.3170700e-02,&
14656  & .7817000e-03,.3138600e-02,.3675300e-02,.3692500e-02,.2274900e-02,&
14657  & .8382800e-03,.3206700e-02,.3765500e-02,.3810800e-02,.2379100e-02,&
14658  & .8867700e-03,.3263600e-02,.3852400e-02,.3926700e-02,.2480900e-02,&
14659  & .9281400e-03,.3312700e-02,.3933200e-02,.4038900e-02,.2581900e-02,&
14660  & .9634200e-03,.3356100e-02,.4012300e-02,.4149300e-02,.2682500e-02,&
14661  & .6451300e-03,.2625800e-02,.3079200e-02,.3102700e-02,.1910900e-02,&
14662  & .6906500e-03,.2683000e-02,.3157300e-02,.3205600e-02,.2001300e-02,&
14663  & .7295100e-03,.2732100e-02,.3232600e-02,.3306100e-02,.2090500e-02,&
14664  & .7627900e-03,.2775900e-02,.3305700e-02,.3404900e-02,.2179100e-02,&
14665  & .7912700e-03,.2816400e-02,.3377600e-02,.3503700e-02,.2268000e-02,&
14666  & .5321600e-03,.2194500e-02,.2576800e-02,.2604100e-02,.1604700e-02,&
14667  & .5687800e-03,.2243100e-02,.2645300e-02,.2693400e-02,.1682900e-02,&
14668  & .6000200e-03,.2286400e-02,.2712100e-02,.2781200e-02,.1760500e-02,&
14669  & .6266600e-03,.2326500e-02,.2777800e-02,.2868900e-02,.1838900e-02,&
14670  & .6495600e-03,.2364500e-02,.2843600e-02,.2958700e-02,.1917500e-02,&
14671  & .4387800e-03,.1832800e-02,.2155500e-02,.2184400e-02,.1347000e-02,&
14672  & .4683200e-03,.1874900e-02,.2216000e-02,.2261900e-02,.1414700e-02,&
14673  & .4933700e-03,.1913600e-02,.2275200e-02,.2339500e-02,.1483400e-02,&
14674  & .5148300e-03,.1950900e-02,.2334400e-02,.2417700e-02,.1552600e-02,&
14675  & .5332100e-03,.1986300e-02,.2395000e-02,.2498300e-02,.1622800e-02/
14676 
14677  data absb(176:350, 7) / &
14678  & .3621800e-03,.1531000e-02,.1804400e-02,.1833300e-02,.1132000e-02,&
14679  & .3858700e-03,.1568100e-02,.1857300e-02,.1901000e-02,.1191100e-02,&
14680  & .4059900e-03,.1603400e-02,.1910500e-02,.1969300e-02,.1251600e-02,&
14681  & .4232700e-03,.1637200e-02,.1964200e-02,.2040000e-02,.1313300e-02,&
14682  & .4380000e-03,.1670200e-02,.2019600e-02,.2112000e-02,.1376000e-02,&
14683  & .2989400e-03,.1279400e-02,.1510900e-02,.1539200e-02,.9519600e-03,&
14684  & .3179500e-03,.1312600e-02,.1557800e-02,.1598500e-02,.1004100e-02,&
14685  & .3340900e-03,.1344400e-02,.1605400e-02,.1659000e-02,.1057500e-02,&
14686  & .3479800e-03,.1375200e-02,.1654200e-02,.1722800e-02,.1112400e-02,&
14687  & .3598200e-03,.1406200e-02,.1704600e-02,.1787200e-02,.1168800e-02,&
14688  & .2477900e-03,.1072000e-02,.1268700e-02,.1295900e-02,.8042800e-03,&
14689  & .2628700e-03,.1101200e-02,.1310400e-02,.1348300e-02,.8504600e-03,&
14690  & .2757000e-03,.1130000e-02,.1353200e-02,.1403200e-02,.8979600e-03,&
14691  & .2867600e-03,.1158300e-02,.1397800e-02,.1460200e-02,.9472200e-03,&
14692  & .2961200e-03,.1187300e-02,.1443900e-02,.1518500e-02,.9981200e-03,&
14693  & .2053600e-03,.8990100e-03,.1066600e-02,.1092500e-02,.6807700e-03,&
14694  & .2173200e-03,.9251400e-03,.1103700e-02,.1139400e-02,.7218900e-03,&
14695  & .2275200e-03,.9510900e-03,.1142600e-02,.1188800e-02,.7643700e-03,&
14696  & .2363200e-03,.9772800e-03,.1183200e-02,.1240300e-02,.8087700e-03,&
14697  & .2436900e-03,.1004000e-02,.1226000e-02,.1293400e-02,.8548900e-03,&
14698  & .1702100e-03,.7550600e-03,.8980000e-03,.9226500e-03,.5778800e-03,&
14699  & .1796900e-03,.7785300e-03,.9314900e-03,.9649700e-03,.6144300e-03,&
14700  & .1877800e-03,.8020700e-03,.9668000e-03,.1009700e-02,.6527800e-03,&
14701  & .1947700e-03,.8262200e-03,.1004100e-02,.1056400e-02,.6929300e-03,&
14702  & .2005500e-03,.8510400e-03,.1043900e-02,.1105300e-02,.7342400e-03,&
14703  & .1411000e-03,.6353100e-03,.7574600e-03,.7810900e-03,.4919500e-03,&
14704  & .1486000e-03,.6562900e-03,.7880100e-03,.8195100e-03,.5247200e-03,&
14705  & .1550200e-03,.6780200e-03,.8201800e-03,.8600500e-03,.5592900e-03,&
14706  & .1605400e-03,.7002300e-03,.8548700e-03,.9027000e-03,.5954600e-03,&
14707  & .1650600e-03,.7233300e-03,.8921300e-03,.9479400e-03,.6329600e-03,&
14708  & .1170400e-03,.5356300e-03,.6408900e-03,.6634800e-03,.4203600e-03,&
14709  & .1229600e-03,.5548200e-03,.6685900e-03,.6984200e-03,.4498600e-03,&
14710  & .1280400e-03,.5746000e-03,.6983800e-03,.7353200e-03,.4811500e-03,&
14711  & .1323700e-03,.5952800e-03,.7308100e-03,.7747200e-03,.5137100e-03,&
14712  & .1358700e-03,.6170800e-03,.7656200e-03,.8164900e-03,.5480000e-03/
14713 
14714  data absb(351:525, 7) / &
14715  & .9703700e-04,.4526300e-03,.5435300e-03,.5652800e-03,.3603100e-03,&
14716  & .1017100e-03,.4701800e-03,.5689900e-03,.5971000e-03,.3869800e-03,&
14717  & .1057200e-03,.4883300e-03,.5967500e-03,.6309600e-03,.4150500e-03,&
14718  & .1091100e-03,.5076700e-03,.6271300e-03,.6673600e-03,.4446600e-03,&
14719  & .1118200e-03,.5283000e-03,.6594900e-03,.7060000e-03,.4762500e-03,&
14720  & .8041900e-04,.3834900e-03,.4622400e-03,.4830800e-03,.3098200e-03,&
14721  & .8411000e-04,.3994300e-03,.4858400e-03,.5121400e-03,.3338600e-03,&
14722  & .8728300e-04,.4163600e-03,.5118900e-03,.5435300e-03,.3592400e-03,&
14723  & .8991400e-04,.4345600e-03,.5402000e-03,.5769800e-03,.3863500e-03,&
14724  & .9200300e-04,.4540600e-03,.5703000e-03,.6128600e-03,.4155300e-03,&
14725  & .6663700e-04,.3258000e-03,.3945300e-03,.4143900e-03,.2673800e-03,&
14726  & .6955200e-04,.3405200e-03,.4166000e-03,.4411600e-03,.2890400e-03,&
14727  & .7204200e-04,.3563300e-03,.4410200e-03,.4700500e-03,.3121800e-03,&
14728  & .7408200e-04,.3735100e-03,.4673100e-03,.5010800e-03,.3371400e-03,&
14729  & .7569200e-04,.3919000e-03,.4952900e-03,.5344700e-03,.3642100e-03,&
14730  & .5519400e-04,.2775700e-03,.3380400e-03,.3567000e-03,.2314800e-03,&
14731  & .5748900e-04,.2913000e-03,.3587600e-03,.3814300e-03,.2511500e-03,&
14732  & .5944500e-04,.3061900e-03,.3814800e-03,.4081000e-03,.2724200e-03,&
14733  & .6102400e-04,.3223300e-03,.4057800e-03,.4369800e-03,.2955200e-03,&
14734  & .6225100e-04,.3396900e-03,.4318500e-03,.4683000e-03,.3205200e-03,&
14735  & .4570100e-04,.2373600e-03,.2908600e-03,.3083400e-03,.2011400e-03,&
14736  & .4751600e-04,.2502000e-03,.3103200e-03,.3311300e-03,.2191600e-03,&
14737  & .4903400e-04,.2642400e-03,.3313100e-03,.3559300e-03,.2387400e-03,&
14738  & .5024700e-04,.2794300e-03,.3539500e-03,.3829900e-03,.2602400e-03,&
14739  & .5118600e-04,.2957800e-03,.3782900e-03,.4125000e-03,.2834100e-03,&
14740  & .3782900e-04,.2037900e-03,.2514500e-03,.2676100e-03,.1754900e-03,&
14741  & .3925600e-04,.2158500e-03,.2695100e-03,.2887100e-03,.1920700e-03,&
14742  & .4043400e-04,.2290400e-03,.2890300e-03,.3119200e-03,.2103400e-03,&
14743  & .4136700e-04,.2433200e-03,.3102000e-03,.3374400e-03,.2302400e-03,&
14744  & .4207200e-04,.2587300e-03,.3330900e-03,.3652700e-03,.2517900e-03,&
14745  & .3130200e-04,.1757200e-03,.2183000e-03,.2332100e-03,.1537500e-03,&
14746  & .3241900e-04,.1870600e-03,.2350400e-03,.2529100e-03,.1691500e-03,&
14747  & .3332700e-04,.1994000e-03,.2532800e-03,.2747900e-03,.1861700e-03,&
14748  & .3403900e-04,.2128300e-03,.2731500e-03,.2988700e-03,.2046500e-03,&
14749  & .3456800e-04,.2273100e-03,.2947400e-03,.3251900e-03,.2248500e-03/
14750 
14751  data absb(526:700, 7) / &
14752  & .2585100e-04,.1518200e-03,.1897600e-03,.2035300e-03,.1348300e-03,&
14753  & .2673100e-04,.1624100e-03,.2053100e-03,.2219900e-03,.1491800e-03,&
14754  & .2743700e-04,.1739500e-03,.2223700e-03,.2425800e-03,.1649100e-03,&
14755  & .2798800e-04,.1865600e-03,.2411300e-03,.2652900e-03,.1821700e-03,&
14756  & .2838400e-04,.2001700e-03,.2614400e-03,.2902000e-03,.2011600e-03,&
14757  & .2127100e-04,.1307800e-03,.1642600e-03,.1768500e-03,.1175600e-03,&
14758  & .2197500e-04,.1405800e-03,.1786500e-03,.1940300e-03,.1307200e-03,&
14759  & .2253300e-04,.1513200e-03,.1945600e-03,.2132300e-03,.1452300e-03,&
14760  & .2296600e-04,.1630700e-03,.2120600e-03,.2345400e-03,.1613300e-03,&
14761  & .2327400e-04,.1757900e-03,.2311200e-03,.2580000e-03,.1791100e-03,&
14762  & .1743100e-04,.1120500e-03,.1412800e-03,.1526000e-03,.1016100e-03,&
14763  & .1800400e-04,.1210300e-03,.1544800e-03,.1684000e-03,.1135600e-03,&
14764  & .1845800e-04,.1309500e-03,.1691800e-03,.1861600e-03,.1268700e-03,&
14765  & .1881000e-04,.1418200e-03,.1853900e-03,.2059600e-03,.1417900e-03,&
14766  & .1905900e-04,.1536300e-03,.2031700e-03,.2278800e-03,.1583100e-03,&
14767  & .1420400e-04,.9501000e-04,.1200800e-03,.1299600e-03,.8648200e-04,&
14768  & .1468500e-04,.1031300e-03,.1320000e-03,.1442600e-03,.9717900e-04,&
14769  & .1506900e-04,.1121400e-03,.1453600e-03,.1604200e-03,.1092200e-03,&
14770  & .1536900e-04,.1221100e-03,.1602000e-03,.1785500e-03,.1228200e-03,&
14771  & .1558600e-04,.1329600e-03,.1766100e-03,.1987600e-03,.1379700e-03,&
14772  & .1157100e-04,.8054500e-04,.1020600e-03,.1106300e-03,.7356300e-04,&
14773  & .1197600e-04,.8787500e-04,.1128100e-03,.1235700e-03,.8314900e-04,&
14774  & .1230100e-04,.9606300e-04,.1249500e-03,.1382900e-03,.9402600e-04,&
14775  & .1255700e-04,.1051800e-03,.1385100e-03,.1548700e-03,.1064200e-03,&
14776  & .1274400e-04,.1151500e-03,.1536400e-03,.1735200e-03,.1202900e-03,&
14777  & .9425400e-05,.6833300e-04,.8679800e-04,.9424700e-04,.6260400e-04,&
14778  & .9765700e-05,.7494500e-04,.9649500e-04,.1059500e-03,.7118500e-04,&
14779  & .1004100e-04,.8237600e-04,.1075200e-03,.1193400e-03,.8102200e-04,&
14780  & .1025800e-04,.9068700e-04,.1199200e-03,.1345300e-03,.9231500e-04,&
14781  & .1041900e-04,.9985200e-04,.1338700e-03,.1517700e-03,.1050400e-03,&
14782  & .7645200e-05,.5742800e-04,.7302100e-04,.7933300e-04,.5256800e-04,&
14783  & .7935400e-05,.6331500e-04,.8165000e-04,.8975200e-04,.6014400e-04,&
14784  & .8173900e-05,.6996100e-04,.9154200e-04,.1017600e-03,.6890500e-04,&
14785  & .8362600e-05,.7745600e-04,.1027500e-03,.1155200e-03,.7905900e-04,&
14786  & .8506400e-05,.8579500e-04,.1154200e-03,.1312800e-03,.9057800e-04/
14787 
14788  data absb(701:875, 7) / &
14789  & .6195300e-05,.4816300e-04,.6128700e-04,.6661600e-04,.4401100e-04,&
14790  & .6441800e-05,.5338300e-04,.6893400e-04,.7584200e-04,.5067000e-04,&
14791  & .6648400e-05,.5931200e-04,.7778500e-04,.8658000e-04,.5844800e-04,&
14792  & .6813400e-05,.6605400e-04,.8787600e-04,.9899500e-04,.6754300e-04,&
14793  & .6940200e-05,.7361400e-04,.9937800e-04,.1133700e-03,.7794200e-04,&
14794  & .5017000e-05,.4035800e-04,.5137800e-04,.5587500e-04,.3679400e-04,&
14795  & .5226600e-05,.4497100e-04,.5814100e-04,.6402400e-04,.4263900e-04,&
14796  & .5404600e-05,.5025000e-04,.6603400e-04,.7360100e-04,.4952700e-04,&
14797  & .5548400e-05,.5630200e-04,.7511100e-04,.8478800e-04,.5765400e-04,&
14798  & .5660000e-05,.6315300e-04,.8555100e-04,.9789800e-04,.6704000e-04,&
14799  & .4049800e-05,.3356300e-04,.4271600e-04,.4643300e-04,.3044700e-04,&
14800  & .4229100e-05,.3760300e-04,.4861900e-04,.5355100e-04,.3551600e-04,&
14801  & .4383300e-05,.4226000e-04,.5558500e-04,.6199900e-04,.4154900e-04,&
14802  & .4509900e-05,.4765000e-04,.6366800e-04,.7196400e-04,.4872800e-04,&
14803  & .4609600e-05,.5379000e-04,.7305300e-04,.8377900e-04,.5710500e-04,&
14804  & .3261600e-05,.2778100e-04,.3533500e-04,.3836600e-04,.2503200e-04,&
14805  & .3416400e-05,.3129600e-04,.4044400e-04,.4453100e-04,.2939900e-04,&
14806  & .3549100e-05,.3537500e-04,.4654000e-04,.5192500e-04,.3463300e-04,&
14807  & .3661000e-05,.4014600e-04,.5368700e-04,.6073800e-04,.4093500e-04,&
14808  & .3750000e-05,.4561800e-04,.6206100e-04,.7129800e-04,.4835600e-04,&
14809  & .2623800e-05,.2295200e-04,.2916200e-04,.3163000e-04,.2052200e-04,&
14810  & .2757100e-05,.2599200e-04,.3356700e-04,.3693800e-04,.2426800e-04,&
14811  & .2871300e-05,.2954900e-04,.3888100e-04,.4338300e-04,.2879200e-04,&
14812  & .2969300e-05,.3376000e-04,.4517700e-04,.5114900e-04,.3430300e-04,&
14813  & .3048200e-05,.3862700e-04,.5262400e-04,.6055100e-04,.4085700e-04,&
14814  & .2105100e-05,.1886700e-04,.2393500e-04,.2591700e-04,.1671000e-04,&
14815  & .2220600e-05,.2148000e-04,.2770500e-04,.3044900e-04,.1989300e-04,&
14816  & .2319100e-05,.2455700e-04,.3229800e-04,.3601900e-04,.2376900e-04,&
14817  & .2404600e-05,.2823900e-04,.3779800e-04,.4280700e-04,.2854500e-04,&
14818  & .2474600e-05,.3254300e-04,.4437400e-04,.5110900e-04,.3429900e-04,&
14819  & .1681700e-05,.1538600e-04,.1946400e-04,.2102400e-04,.1345500e-04,&
14820  & .1782200e-05,.1760500e-04,.2265200e-04,.2484000e-04,.1612400e-04,&
14821  & .1868000e-05,.2023600e-04,.2656700e-04,.2958500e-04,.1940100e-04,&
14822  & .1942300e-05,.2341300e-04,.3131700e-04,.3543300e-04,.2347600e-04,&
14823  & .2004900e-05,.2718100e-04,.3705400e-04,.4266800e-04,.2846600e-04/
14824 
14825  data absb(876:1050, 7) / &
14826  & .1340500e-05,.1251400e-04,.1577900e-04,.1699300e-04,.1079100e-04,&
14827  & .1428000e-05,.1438500e-04,.1846000e-04,.2018700e-04,.1301700e-04,&
14828  & .1502600e-05,.1662300e-04,.2177300e-04,.2420500e-04,.1576800e-04,&
14829  & .1567100e-05,.1935400e-04,.2585400e-04,.2921800e-04,.1922700e-04,&
14830  & .1622400e-05,.2262900e-04,.3083300e-04,.3547900e-04,.2352500e-04,&
14831  & .1066400e-05,.1014900e-04,.1275100e-04,.1368400e-04,.8618800e-05,&
14832  & .1141800e-05,.1172000e-04,.1499900e-04,.1635200e-04,.1046700e-04,&
14833  & .1206900e-05,.1361200e-04,.1778000e-04,.1971600e-04,.1275900e-04,&
14834  & .1263000e-05,.1594500e-04,.2126200e-04,.2399000e-04,.1567600e-04,&
14835  & .1311300e-05,.1877500e-04,.2556000e-04,.2938200e-04,.1935200e-04,&
14836  & .8480800e-06,.8240100e-05,.1031800e-04,.1103600e-04,.6893900e-05,&
14837  & .9126900e-06,.9551300e-05,.1218900e-04,.1324700e-04,.8420900e-05,&
14838  & .9692800e-06,.1116000e-04,.1453900e-04,.1608400e-04,.1033600e-04,&
14839  & .1017700e-05,.1314600e-04,.1749800e-04,.1971100e-04,.1279000e-04,&
14840  & .1059500e-05,.1559200e-04,.2120700e-04,.2435600e-04,.1592900e-04,&
14841  & .6737800e-06,.6682600e-05,.8338100e-05,.8882800e-05,.5505200e-05,&
14842  & .7287300e-06,.7775300e-05,.9890500e-05,.1071400e-04,.6763600e-05,&
14843  & .7776300e-06,.9136800e-05,.1186600e-04,.1309100e-04,.8355900e-05,&
14844  & .8195300e-06,.1082400e-04,.1437800e-04,.1616800e-04,.1041700e-04,&
14845  & .8556100e-06,.1293300e-04,.1757100e-04,.2015900e-04,.1308700e-04,&
14846  & .5344400e-06,.5406600e-05,.6719700e-05,.7129700e-05,.4381400e-05,&
14847  & .5809500e-06,.6312400e-05,.7998900e-05,.8634600e-05,.5412200e-05,&
14848  & .6228200e-06,.7456100e-05,.9648900e-05,.1061400e-04,.6728900e-05,&
14849  & .6591300e-06,.8891700e-05,.1178000e-04,.1322000e-04,.8449700e-05,&
14850  & .6903200e-06,.1069100e-04,.1450400e-04,.1661500e-04,.1070600e-04,&
14851  & .4230900e-06,.4363500e-05,.5401700e-05,.5704700e-05,.3473300e-05,&
14852  & .4622300e-06,.5109700e-05,.6446500e-05,.6932200e-05,.4312000e-05,&
14853  & .4979100e-06,.6064300e-05,.7816600e-05,.8569000e-05,.5394800e-05,&
14854  & .5294200e-06,.7272600e-05,.9604200e-05,.1074800e-04,.6821100e-05,&
14855  & .5563500e-06,.8807400e-05,.1192400e-04,.1363200e-04,.8717600e-05,&
14856  & .3352500e-06,.3529100e-05,.4353300e-05,.4578300e-05,.2761800e-05,&
14857  & .3680100e-06,.4146400e-05,.5209800e-05,.5582100e-05,.3446800e-05,&
14858  & .3983000e-06,.4944200e-05,.6349500e-05,.6939300e-05,.4339000e-05,&
14859  & .4253000e-06,.5963800e-05,.7852000e-05,.8765200e-05,.5523800e-05,&
14860  & .4485000e-06,.7271100e-05,.9825600e-05,.1121300e-04,.7118000e-05/
14861 
14862  data absb(1051:1175, 7) / &
14863  & .2656100e-06,.2853500e-05,.3509100e-05,.3674700e-05,.2195300e-05,&
14864  & .2929900e-06,.3363000e-05,.4209300e-05,.4493500e-05,.2754300e-05,&
14865  & .3185500e-06,.4028600e-05,.5155500e-05,.5616000e-05,.3488500e-05,&
14866  & .3414900e-06,.4888400e-05,.6416600e-05,.7143200e-05,.4471200e-05,&
14867  & .3614900e-06,.6008200e-05,.8105300e-05,.9233800e-05,.5811400e-05,&
14868  & .2101700e-06,.2301900e-05,.2821700e-05,.2942000e-05,.1740300e-05,&
14869  & .2329400e-06,.2721500e-05,.3392200e-05,.3607000e-05,.2194300e-05,&
14870  & .2543600e-06,.3273200e-05,.4172000e-05,.4529100e-05,.2795000e-05,&
14871  & .2738300e-06,.3995100e-05,.5225200e-05,.5799000e-05,.3605400e-05,&
14872  & .2910600e-06,.4942900e-05,.6651800e-05,.7561300e-05,.4724600e-05,&
14873  & .1660800e-06,.1853100e-05,.2263900e-05,.2350400e-05,.1376000e-05,&
14874  & .1848800e-06,.2197100e-05,.2727100e-05,.2887000e-05,.1742100e-05,&
14875  & .2027900e-06,.2652000e-05,.3365900e-05,.3639200e-05,.2231600e-05,&
14876  & .2193100e-06,.3254300e-05,.4239100e-05,.4689100e-05,.2894900e-05,&
14877  & .2340400e-06,.4052700e-05,.5438000e-05,.6164900e-05,.3823400e-05,&
14878  & .1313100e-06,.1492700e-05,.1817900e-05,.1878700e-05,.1089300e-05,&
14879  & .1467700e-06,.1774800e-05,.2194600e-05,.2312200e-05,.1383900e-05,&
14880  & .1617100e-06,.2149400e-05,.2717100e-05,.2925600e-05,.1782700e-05,&
14881  & .1756700e-06,.2651400e-05,.3440700e-05,.3792300e-05,.2326900e-05,&
14882  & .1881600e-06,.3323700e-05,.4446600e-05,.5028000e-05,.3095800e-05,&
14883  & .1059900e-06,.1237400e-05,.1506000e-05,.1554300e-05,.8975000e-06,&
14884  & .1186800e-06,.1479500e-05,.1828500e-05,.1925100e-05,.1147900e-05,&
14885  & .1309800e-06,.1804200e-05,.2280700e-05,.2455200e-05,.1489700e-05,&
14886  & .1425200e-06,.2243900e-05,.2915200e-05,.3216300e-05,.1962200e-05,&
14887  & .1529100e-06,.2839600e-05,.3808700e-05,.4313800e-05,.2638700e-05/
14888 
14889  data absb( 1:175, 8) / &
14890  & .8367300e-02,.1745400e-01,.2021300e-01,.2013200e-01,.1381000e-01,&
14891  & .8503900e-02,.1782400e-01,.2068400e-01,.2061600e-01,.1421900e-01,&
14892  & .8612900e-02,.1819600e-01,.2116300e-01,.2114300e-01,.1461600e-01,&
14893  & .8691300e-02,.1856300e-01,.2163500e-01,.2167400e-01,.1499100e-01,&
14894  & .8730100e-02,.1891600e-01,.2210300e-01,.2219800e-01,.1535100e-01,&
14895  & .6934600e-02,.1495200e-01,.1738000e-01,.1734200e-01,.1180300e-01,&
14896  & .7032800e-02,.1527600e-01,.1780800e-01,.1783000e-01,.1218100e-01,&
14897  & .7111300e-02,.1560400e-01,.1824000e-01,.1832100e-01,.1254400e-01,&
14898  & .7158000e-02,.1593700e-01,.1866700e-01,.1881400e-01,.1288400e-01,&
14899  & .7178500e-02,.1622800e-01,.1909300e-01,.1929900e-01,.1323000e-01,&
14900  & .5730700e-02,.1276300e-01,.1489000e-01,.1491200e-01,.1007300e-01,&
14901  & .5801700e-02,.1305200e-01,.1527800e-01,.1537000e-01,.1041700e-01,&
14902  & .5853300e-02,.1334700e-01,.1566600e-01,.1582800e-01,.1074200e-01,&
14903  & .5882600e-02,.1362800e-01,.1605700e-01,.1628900e-01,.1106600e-01,&
14904  & .5893300e-02,.1387300e-01,.1644400e-01,.1673900e-01,.1138800e-01,&
14905  & .4724700e-02,.1086300e-01,.1272300e-01,.1278800e-01,.8582200e-02,&
14906  & .4775500e-02,.1112400e-01,.1307600e-01,.1321100e-01,.8890700e-02,&
14907  & .4809500e-02,.1138500e-01,.1343100e-01,.1364100e-01,.9190300e-02,&
14908  & .4828300e-02,.1162200e-01,.1379000e-01,.1406600e-01,.9491200e-02,&
14909  & .4833300e-02,.1184100e-01,.1413500e-01,.1448700e-01,.9793800e-02,&
14910  & .3888100e-02,.9231300e-02,.1084800e-01,.1094200e-01,.7300600e-02,&
14911  & .3923800e-02,.9460100e-02,.1117100e-01,.1133300e-01,.7579200e-02,&
14912  & .3946800e-02,.9687400e-02,.1150000e-01,.1173200e-01,.7856000e-02,&
14913  & .3959000e-02,.9896200e-02,.1182600e-01,.1212900e-01,.8137600e-02,&
14914  & .3961200e-02,.1009400e-01,.1214400e-01,.1252100e-01,.8429300e-02,&
14915  & .3195300e-02,.7830900e-02,.9236100e-02,.9352300e-02,.6204800e-02,&
14916  & .3220800e-02,.8037200e-02,.9535000e-02,.9714800e-02,.6459000e-02,&
14917  & .3236500e-02,.8234200e-02,.9838200e-02,.1008200e-01,.6715400e-02,&
14918  & .3244700e-02,.8422900e-02,.1013800e-01,.1045000e-01,.6983800e-02,&
14919  & .3245000e-02,.8606100e-02,.1042700e-01,.1081400e-01,.7262600e-02,&
14920  & .2623500e-02,.6639900e-02,.7859900e-02,.7987500e-02,.5272800e-02,&
14921  & .2641400e-02,.6823100e-02,.8135100e-02,.8323000e-02,.5507000e-02,&
14922  & .2653000e-02,.7000400e-02,.8413800e-02,.8662900e-02,.5746800e-02,&
14923  & .2658300e-02,.7175600e-02,.8688700e-02,.9002900e-02,.6000600e-02,&
14924  & .2657300e-02,.7345700e-02,.8954900e-02,.9342200e-02,.6265800e-02/
14925 
14926  data absb(176:350, 8) / &
14927  & .2152800e-02,.5630000e-02,.6692800e-02,.6827500e-02,.4488700e-02,&
14928  & .2165900e-02,.5796500e-02,.6948300e-02,.7137400e-02,.4704400e-02,&
14929  & .2174200e-02,.5961700e-02,.7203600e-02,.7450300e-02,.4931400e-02,&
14930  & .2177700e-02,.6125100e-02,.7456200e-02,.7765700e-02,.5170000e-02,&
14931  & .2175700e-02,.6285000e-02,.7706500e-02,.8089100e-02,.5422500e-02,&
14932  & .1765900e-02,.4777800e-02,.5705400e-02,.5841700e-02,.3827100e-02,&
14933  & .1775400e-02,.4929900e-02,.5939300e-02,.6125700e-02,.4026400e-02,&
14934  & .1781700e-02,.5083600e-02,.6175000e-02,.6414800e-02,.4239700e-02,&
14935  & .1783600e-02,.5237000e-02,.6408300e-02,.6712500e-02,.4464700e-02,&
14936  & .1781100e-02,.5387600e-02,.6648000e-02,.7020100e-02,.4707600e-02,&
14937  & .1448600e-02,.4067900e-02,.4882600e-02,.5020500e-02,.3280500e-02,&
14938  & .1455400e-02,.4208500e-02,.5098000e-02,.5282700e-02,.3466900e-02,&
14939  & .1459700e-02,.4351500e-02,.5315300e-02,.5553500e-02,.3667400e-02,&
14940  & .1460600e-02,.4495700e-02,.5535300e-02,.5837600e-02,.3881600e-02,&
14941  & .1457700e-02,.4638300e-02,.5767200e-02,.6130200e-02,.4115600e-02,&
14942  & .1188000e-02,.3469800e-02,.4186100e-02,.4324800e-02,.2819900e-02,&
14943  & .1192900e-02,.3601000e-02,.4386200e-02,.4568900e-02,.2995600e-02,&
14944  & .1195800e-02,.3734400e-02,.4587700e-02,.4827300e-02,.3184300e-02,&
14945  & .1195900e-02,.3869700e-02,.4800700e-02,.5096500e-02,.3390300e-02,&
14946  & .1192900e-02,.4006800e-02,.5023200e-02,.5379100e-02,.3613600e-02,&
14947  & .9740600e-03,.2967500e-02,.3600600e-02,.3737900e-02,.2434400e-02,&
14948  & .9775600e-03,.3089600e-02,.3785000e-02,.3968600e-02,.2599400e-02,&
14949  & .9794600e-03,.3215000e-02,.3977500e-02,.4213500e-02,.2777600e-02,&
14950  & .9789900e-03,.3343000e-02,.4182500e-02,.4470800e-02,.2975300e-02,&
14951  & .9761500e-03,.3476100e-02,.4396600e-02,.4745700e-02,.3190000e-02,&
14952  & .7985600e-03,.2545900e-02,.3107700e-02,.3244700e-02,.2111400e-02,&
14953  & .8011000e-03,.2660500e-02,.3280500e-02,.3464000e-02,.2266400e-02,&
14954  & .8022200e-03,.2777800e-02,.3466600e-02,.3695800e-02,.2437600e-02,&
14955  & .8012900e-03,.2901400e-02,.3662300e-02,.3944400e-02,.2626900e-02,&
14956  & .7985700e-03,.3030200e-02,.3869800e-02,.4212600e-02,.2833500e-02,&
14957  & .6546000e-03,.2193300e-02,.2694400e-02,.2833400e-02,.1841700e-02,&
14958  & .6563900e-03,.2300300e-02,.2859900e-02,.3040900e-02,.1988600e-02,&
14959  & .6568500e-03,.2413200e-02,.3038400e-02,.3263900e-02,.2154500e-02,&
14960  & .6557700e-03,.2532300e-02,.3227500e-02,.3505500e-02,.2336600e-02,&
14961  & .6532500e-03,.2657200e-02,.3429400e-02,.3768700e-02,.2536500e-02/
14962 
14963  data absb(351:525, 8) / &
14964  & .5365500e-03,.1896600e-02,.2347400e-02,.2487300e-02,.1614200e-02,&
14965  & .5377700e-03,.1997900e-02,.2506900e-02,.2684900e-02,.1757000e-02,&
14966  & .5378300e-03,.2107000e-02,.2677800e-02,.2901000e-02,.1916300e-02,&
14967  & .5366100e-03,.2221800e-02,.2860900e-02,.3137300e-02,.2092500e-02,&
14968  & .5342600e-03,.2343700e-02,.3059100e-02,.3395300e-02,.2287100e-02,&
14969  & .4397300e-03,.1646700e-02,.2056400e-02,.2195000e-02,.1424300e-02,&
14970  & .4404600e-03,.1744500e-02,.2209400e-02,.2385400e-02,.1562200e-02,&
14971  & .4402700e-03,.1849500e-02,.2373700e-02,.2595400e-02,.1716000e-02,&
14972  & .4390200e-03,.1960700e-02,.2552700e-02,.2828000e-02,.1887500e-02,&
14973  & .4369000e-03,.2079700e-02,.2748300e-02,.3080900e-02,.2078300e-02,&
14974  & .3603500e-03,.1437700e-02,.1812900e-02,.1950200e-02,.1266500e-02,&
14975  & .3607800e-03,.1532200e-02,.1959300e-02,.2134600e-02,.1399300e-02,&
14976  & .3603500e-03,.1633300e-02,.2119400e-02,.2340700e-02,.1548900e-02,&
14977  & .3591700e-03,.1741600e-02,.2295800e-02,.2569300e-02,.1716900e-02,&
14978  & .3572200e-03,.1858300e-02,.2489300e-02,.2819900e-02,.1905800e-02,&
14979  & .2952200e-03,.1262500e-02,.1607300e-02,.1744400e-02,.1133700e-02,&
14980  & .2954400e-03,.1353400e-02,.1749300e-02,.1924800e-02,.1262900e-02,&
14981  & .2948900e-03,.1451300e-02,.1906400e-02,.2128100e-02,.1409300e-02,&
14982  & .2937700e-03,.1557500e-02,.2081300e-02,.2353600e-02,.1575100e-02,&
14983  & .2920100e-03,.1672500e-02,.2272800e-02,.2603100e-02,.1763300e-02,&
14984  & .2418600e-03,.1115500e-02,.1435300e-02,.1572900e-02,.1023200e-02,&
14985  & .2418900e-03,.1203200e-02,.1573900e-02,.1750800e-02,.1149800e-02,&
14986  & .2413000e-03,.1298800e-02,.1729600e-02,.1951600e-02,.1294200e-02,&
14987  & .2402500e-03,.1403400e-02,.1903000e-02,.2176400e-02,.1459400e-02,&
14988  & .2386600e-03,.1517000e-02,.2094000e-02,.2427000e-02,.1647100e-02,&
14989  & .1981100e-03,.9918800e-03,.1291400e-02,.1431100e-02,.9315700e-03,&
14990  & .1979900e-03,.1077100e-02,.1428200e-02,.1607300e-02,.1056200e-02,&
14991  & .1974100e-03,.1171100e-02,.1582800e-02,.1806800e-02,.1199900e-02,&
14992  & .1964500e-03,.1274600e-02,.1755900e-02,.2032000e-02,.1365400e-02,&
14993  & .1950300e-03,.1387100e-02,.1947300e-02,.2285100e-02,.1553300e-02,&
14994  & .1622500e-03,.8880300e-03,.1171700e-02,.1313800e-02,.8555600e-03,&
14995  & .1620500e-03,.9717400e-03,.1307700e-02,.1489000e-02,.9793000e-03,&
14996  & .1614800e-03,.1064800e-02,.1462100e-02,.1689100e-02,.1123700e-02,&
14997  & .1605900e-03,.1167300e-02,.1635700e-02,.1916500e-02,.1289600e-02,&
14998  & .1593400e-03,.1279500e-02,.1828800e-02,.2173600e-02,.1479100e-02/
14999 
15000  data absb(526:700, 8) / &
15001  & .1328600e-03,.7983500e-03,.1068300e-02,.1211700e-02,.7890800e-03,&
15002  & .1326100e-03,.8806600e-03,.1203600e-02,.1386500e-02,.9125200e-03,&
15003  & .1320900e-03,.9727000e-03,.1358000e-02,.1587100e-02,.1057000e-02,&
15004  & .1313000e-03,.1074800e-02,.1531800e-02,.1817100e-02,.1223600e-02,&
15005  & .1302200e-03,.1186600e-02,.1726400e-02,.2078600e-02,.1414800e-02,&
15006  & .1087900e-03,.7156700e-03,.9707500e-03,.1111800e-02,.7235300e-03,&
15007  & .1085500e-03,.7962500e-03,.1104100e-02,.1284500e-02,.8454000e-03,&
15008  & .1081100e-03,.8868600e-03,.1256900e-02,.1484700e-02,.9883100e-03,&
15009  & .1074300e-03,.9876100e-03,.1430000e-02,.1715700e-02,.1154100e-02,&
15010  & .1065000e-03,.1098700e-02,.1625100e-02,.1979900e-02,.1346000e-02,&
15011  & .8909100e-04,.6377300e-03,.8752500e-03,.1010600e-02,.6564300e-03,&
15012  & .8889200e-04,.7157200e-03,.1005000e-02,.1179400e-02,.7748200e-03,&
15013  & .8851000e-04,.8039000e-03,.1154400e-02,.1376800e-02,.9143700e-03,&
15014  & .8795100e-04,.9025300e-03,.1325500e-02,.1606300e-02,.1077900e-02,&
15015  & .8717500e-04,.1012000e-02,.1518700e-02,.1870300e-02,.1267700e-02,&
15016  & .7296700e-04,.5605100e-03,.7758600e-03,.9013900e-03,.5831900e-03,&
15017  & .7281800e-04,.6345900e-03,.8996200e-03,.1062700e-02,.6954500e-03,&
15018  & .7252300e-04,.7190900e-03,.1043300e-02,.1253300e-02,.8289600e-03,&
15019  & .7208700e-04,.8142700e-03,.1209200e-02,.1476600e-02,.9867100e-03,&
15020  & .7148600e-04,.9209300e-03,.1397700e-02,.1735500e-02,.1170800e-02,&
15021  & .5976500e-04,.4932000e-03,.6884400e-03,.8047800e-03,.5184900e-03,&
15022  & .5966000e-04,.5635400e-03,.8064000e-03,.9587600e-03,.6246600e-03,&
15023  & .5943600e-04,.6444000e-03,.9445400e-03,.1142600e-02,.7523600e-03,&
15024  & .5910200e-04,.7363100e-03,.1105200e-02,.1359900e-02,.9043300e-03,&
15025  & .5863500e-04,.8400900e-03,.1289100e-02,.1613400e-02,.1082900e-02,&
15026  & .4895600e-04,.4349900e-03,.6123100e-03,.7201700e-03,.4618900e-03,&
15027  & .4889000e-04,.5018100e-03,.7247800e-03,.8673000e-03,.5624400e-03,&
15028  & .4871700e-04,.5792300e-03,.8577800e-03,.1044800e-02,.6846400e-03,&
15029  & .4845100e-04,.6679900e-03,.1013200e-02,.1256300e-02,.8311200e-03,&
15030  & .4808500e-04,.7689800e-03,.1192800e-02,.1504700e-02,.1004400e-02,&
15031  & .4010700e-04,.3786000e-03,.5359600e-03,.6330200e-03,.4035000e-03,&
15032  & .4006800e-04,.4409900e-03,.6412600e-03,.7710500e-03,.4969700e-03,&
15033  & .3994500e-04,.5139900e-03,.7669400e-03,.9393400e-03,.6116600e-03,&
15034  & .3975200e-04,.5985100e-03,.9152800e-03,.1141600e-02,.7503700e-03,&
15035  & .3946900e-04,.6954400e-03,.1088000e-02,.1380900e-02,.9159300e-03/
15036 
15037  data absb(701:875, 8) / &
15038  & .3285100e-04,.3287800e-03,.4678600e-03,.5546900e-03,.3512000e-03,&
15039  & .3283900e-04,.3868300e-03,.5660700e-03,.6839400e-03,.4376900e-03,&
15040  & .3274900e-04,.4554200e-03,.6844400e-03,.8425900e-03,.5449000e-03,&
15041  & .3260700e-04,.5356400e-03,.8254700e-03,.1035200e-02,.6758500e-03,&
15042  & .3239500e-04,.6284100e-03,.9913300e-03,.1265200e-02,.8333200e-03,&
15043  & .2690600e-04,.2853400e-03,.4080500e-03,.4853500e-03,.3052600e-03,&
15044  & .2690800e-04,.3392200e-03,.4995000e-03,.6060300e-03,.3850500e-03,&
15045  & .2684600e-04,.4036100e-03,.6107600e-03,.7556400e-03,.4852400e-03,&
15046  & .2673900e-04,.4795300e-03,.7445400e-03,.9388200e-03,.6086100e-03,&
15047  & .2658500e-04,.5681600e-03,.9036300e-03,.1159700e-02,.7582900e-03,&
15048  & .2203400e-04,.2449400e-03,.3512600e-03,.4186200e-03,.2613300e-03,&
15049  & .2204500e-04,.2942800e-03,.4352600e-03,.5296000e-03,.3337900e-03,&
15050  & .2200900e-04,.3539400e-03,.5383800e-03,.6689300e-03,.4259900e-03,&
15051  & .2193300e-04,.4251000e-03,.6639200e-03,.8409000e-03,.5406100e-03,&
15052  & .2182000e-04,.5087800e-03,.8147400e-03,.1050300e-02,.6813900e-03,&
15053  & .1804200e-04,.2087800e-03,.2998800e-03,.3578200e-03,.2216000e-03,&
15054  & .1805800e-04,.2536000e-03,.3762100e-03,.4587500e-03,.2867000e-03,&
15055  & .1804100e-04,.3084500e-03,.4712300e-03,.5872700e-03,.3707000e-03,&
15056  & .1798900e-04,.3745900e-03,.5880400e-03,.7473900e-03,.4765000e-03,&
15057  & .1790600e-04,.4531700e-03,.7300300e-03,.9445400e-03,.6076800e-03,&
15058  & .1477000e-04,.1774300e-03,.2551800e-03,.3046100e-03,.1871800e-03,&
15059  & .1479000e-04,.2179400e-03,.3242400e-03,.3960300e-03,.2453400e-03,&
15060  & .1478500e-04,.2682200e-03,.4113200e-03,.5140600e-03,.3215800e-03,&
15061  & .1475100e-04,.3294800e-03,.5196800e-03,.6628800e-03,.4188900e-03,&
15062  & .1469200e-04,.4030900e-03,.6529800e-03,.8479500e-03,.5407800e-03,&
15063  & .1209100e-04,.1495600e-03,.2150700e-03,.2566400e-03,.1564100e-03,&
15064  & .1211200e-04,.1858500e-03,.2768900e-03,.3385300e-03,.2077800e-03,&
15065  & .1211300e-04,.2315600e-03,.3559700e-03,.4457500e-03,.2761900e-03,&
15066  & .1209400e-04,.2878900e-03,.4557600e-03,.5831300e-03,.3649200e-03,&
15067  & .1205400e-04,.3562800e-03,.5798000e-03,.7552300e-03,.4772100e-03,&
15068  & .9895800e-05,.1243600e-03,.1783800e-03,.2124100e-03,.1284100e-03,&
15069  & .9915700e-05,.1563300e-03,.2327900e-03,.2844300e-03,.1729100e-03,&
15070  & .9922400e-05,.1972400e-03,.3035000e-03,.3801700e-03,.2332300e-03,&
15071  & .9915000e-05,.2483100e-03,.3939600e-03,.5048800e-03,.3127400e-03,&
15072  & .9888100e-05,.3111000e-03,.5078800e-03,.6630400e-03,.4148500e-03/
15073 
15074  data absb(876:1050, 8) / &
15075  & .8098100e-05,.1028400e-03,.1470100e-03,.1745700e-03,.1046400e-03,&
15076  & .8117000e-05,.1308300e-03,.1945200e-03,.2373400e-03,.1429800e-03,&
15077  & .8125400e-05,.1671600e-03,.2572700e-03,.3223000e-03,.1956500e-03,&
15078  & .8125300e-05,.2132800e-03,.3388700e-03,.4347500e-03,.2665200e-03,&
15079  & .8109200e-05,.2706200e-03,.4430100e-03,.5797200e-03,.3588700e-03,&
15080  & .6626200e-05,.8454200e-04,.1203400e-03,.1424500e-03,.8463600e-04,&
15081  & .6643500e-05,.1090300e-03,.1616800e-03,.1968600e-03,.1174000e-03,&
15082  & .6652700e-05,.1409200e-03,.2168500e-03,.2715600e-03,.1630900e-03,&
15083  & .6656700e-05,.1822900e-03,.2898900e-03,.3721400e-03,.2257200e-03,&
15084  & .6648900e-05,.2344300e-03,.3846100e-03,.5041800e-03,.3088300e-03,&
15085  & .5420200e-05,.6960800e-04,.9868000e-04,.1164600e-03,.6851000e-04,&
15086  & .5437400e-05,.9080200e-04,.1343400e-03,.1633000e-03,.9649900e-04,&
15087  & .5447500e-05,.1191600e-03,.1832700e-03,.2293200e-03,.1362000e-03,&
15088  & .5452100e-05,.1560800e-03,.2484500e-03,.3192800e-03,.1915400e-03,&
15089  & .5449800e-05,.2034800e-03,.3346600e-03,.4393700e-03,.2662600e-03,&
15090  & .4435100e-05,.5708800e-04,.8058200e-04,.9479000e-04,.5525000e-04,&
15091  & .4450400e-05,.7543500e-04,.1113100e-03,.1350300e-03,.7902400e-04,&
15092  & .4459900e-05,.1003700e-03,.1542800e-03,.1929100e-03,.1134300e-03,&
15093  & .4465100e-05,.1333600e-03,.2125200e-03,.2733500e-03,.1621800e-03,&
15094  & .4465300e-05,.1764000e-03,.2907500e-03,.3822900e-03,.2292300e-03,&
15095  & .3629000e-05,.4656500e-04,.6536400e-04,.7659800e-04,.4424000e-04,&
15096  & .3642000e-05,.6231400e-04,.9164400e-04,.1109000e-03,.6423400e-04,&
15097  & .3650900e-05,.8410200e-04,.1291000e-03,.1612500e-03,.9383300e-04,&
15098  & .3655500e-05,.1136200e-03,.1811500e-03,.2329700e-03,.1365700e-03,&
15099  & .3657900e-05,.1522600e-03,.2513600e-03,.3309900e-03,.1962100e-03,&
15100  & .2969200e-05,.3774600e-04,.5263200e-04,.6139700e-04,.3516500e-04,&
15101  & .2980800e-05,.5114900e-04,.7487900e-04,.9033500e-04,.5180700e-04,&
15102  & .2988000e-05,.7002800e-04,.1072400e-03,.1337500e-03,.7701000e-04,&
15103  & .2993100e-05,.9610500e-04,.1531400e-03,.1968900e-03,.1141700e-03,&
15104  & .2995900e-05,.1307400e-03,.2161200e-03,.2849200e-03,.1669700e-03,&
15105  & .2429600e-05,.3069800e-04,.4254400e-04,.4940600e-04,.2807200e-04,&
15106  & .2439300e-05,.4212200e-04,.6145400e-04,.7392700e-04,.4196400e-04,&
15107  & .2446000e-05,.5852800e-04,.8950000e-04,.1114600e-03,.6350300e-04,&
15108  & .2450700e-05,.8161100e-04,.1300900e-03,.1672800e-03,.9594700e-04,&
15109  & .2453500e-05,.1127600e-03,.1868200e-03,.2465400e-03,.1428600e-03/
15110 
15111  data absb(1051:1175, 8) / &
15112  & .1988300e-05,.2492100e-04,.3431200e-04,.3966600e-04,.2237500e-04,&
15113  & .1996300e-05,.3464100e-04,.5034400e-04,.6038100e-04,.3394200e-04,&
15114  & .2002000e-05,.4886800e-04,.7461800e-04,.9280900e-04,.5228000e-04,&
15115  & .2006500e-05,.6925500e-04,.1104200e-03,.1420300e-03,.8056600e-04,&
15116  & .2008900e-05,.9752700e-04,.1618200e-03,.2137300e-03,.1222800e-03,&
15117  & .1626800e-05,.2012200e-04,.2750600e-04,.3162900e-04,.1771800e-04,&
15118  & .1633700e-05,.2832100e-04,.4096600e-04,.4896000e-04,.2727100e-04,&
15119  & .1638500e-05,.4057900e-04,.6182800e-04,.7674700e-04,.4273900e-04,&
15120  & .1642400e-05,.5849000e-04,.9322000e-04,.1199100e-03,.6723200e-04,&
15121  & .1645000e-05,.8377600e-04,.1391700e-03,.1840100e-03,.1040600e-03,&
15122  & .1331100e-05,.1615100e-04,.2190100e-04,.2504400e-04,.1393400e-04,&
15123  & .1336900e-05,.2300500e-04,.3308300e-04,.3937700e-04,.2175100e-04,&
15124  & .1341100e-05,.3350100e-04,.5088800e-04,.6301400e-04,.3469600e-04,&
15125  & .1344300e-05,.4911100e-04,.7819100e-04,.1005100e-03,.5571100e-04,&
15126  & .1346700e-05,.7158600e-04,.1190200e-03,.1574400e-03,.8802500e-04,&
15127  & .1089200e-05,.1296200e-04,.1744300e-04,.1982500e-04,.1095500e-04,&
15128  & .1094200e-05,.1868800e-04,.2671600e-04,.3166400e-04,.1734800e-04,&
15129  & .1097600e-05,.2765000e-04,.4186400e-04,.5171600e-04,.2815900e-04,&
15130  & .1100400e-05,.4125100e-04,.6563000e-04,.8429900e-04,.4615600e-04,&
15131  & .1102500e-05,.6126100e-04,.1019600e-03,.1349600e-03,.7453600e-04,&
15132  & .8919700e-06,.1104700e-04,.1489900e-04,.1696400e-04,.9299900e-05,&
15133  & .8960500e-06,.1621500e-04,.2329100e-04,.2768600e-04,.1501900e-04,&
15134  & .8987500e-06,.2446200e-04,.3726700e-04,.4624300e-04,.2490500e-04,&
15135  & .9011700e-06,.3717500e-04,.5959400e-04,.7696900e-04,.4167200e-04,&
15136  & .9031000e-06,.5611500e-04,.9418700e-04,.1252800e-03,.6849700e-04/
15137 
15138  data absb( 1:175, 9) / &
15139  & .7386370e-01,.1217270e+00,.1397997e+00,.1419673e+00,.1084738e+00,&
15140  & .7529449e-01,.1232830e+00,.1414079e+00,.1438635e+00,.1108050e+00,&
15141  & .7697992e-01,.1254793e+00,.1434365e+00,.1458286e+00,.1129988e+00,&
15142  & .7887100e-01,.1280855e+00,.1459070e+00,.1479085e+00,.1152446e+00,&
15143  & .8092090e-01,.1307909e+00,.1487251e+00,.1501501e+00,.1175320e+00,&
15144  & .6403379e-01,.1090204e+00,.1253282e+00,.1274699e+00,.9632574e-01,&
15145  & .6547459e-01,.1110735e+00,.1274271e+00,.1295924e+00,.9864560e-01,&
15146  & .6715540e-01,.1136407e+00,.1299702e+00,.1318704e+00,.1010107e+00,&
15147  & .6906380e-01,.1163504e+00,.1328994e+00,.1343146e+00,.1034582e+00,&
15148  & .7105787e-01,.1191957e+00,.1361107e+00,.1370057e+00,.1059074e+00,&
15149  & .5530200e-01,.9757076e-01,.1121740e+00,.1140513e+00,.8533242e-01,&
15150  & .5675787e-01,.1000348e+00,.1147292e+00,.1164809e+00,.8776543e-01,&
15151  & .5846659e-01,.1027322e+00,.1176838e+00,.1190849e+00,.9029882e-01,&
15152  & .6032734e-01,.1055957e+00,.1209546e+00,.1219366e+00,.9286960e-01,&
15153  & .6209121e-01,.1085948e+00,.1243416e+00,.1250550e+00,.9547001e-01,&
15154  & .4762395e-01,.8734512e-01,.1003708e+00,.1018642e+00,.7561273e-01,&
15155  & .4911368e-01,.8996446e-01,.1032731e+00,.1045503e+00,.7815395e-01,&
15156  & .5080031e-01,.9279755e-01,.1065652e+00,.1074922e+00,.8078702e-01,&
15157  & .5243449e-01,.9581412e-01,.1100211e+00,.1107497e+00,.8346128e-01,&
15158  & .5394988e-01,.9894050e-01,.1135959e+00,.1142797e+00,.8622867e-01,&
15159  & .4090347e-01,.7810647e-01,.8979429e-01,.9092391e-01,.6709977e-01,&
15160  & .4239633e-01,.8087453e-01,.9303629e-01,.9387987e-01,.6971100e-01,&
15161  & .4389973e-01,.8384796e-01,.9650459e-01,.9716037e-01,.7239385e-01,&
15162  & .4532474e-01,.8698861e-01,.1001236e+00,.1007738e+00,.7517902e-01,&
15163  & .4664725e-01,.9022266e-01,.1038715e+00,.1046269e+00,.7808115e-01,&
15164  & .3507354e-01,.6984031e-01,.8045794e-01,.8126652e-01,.5967808e-01,&
15165  & .3641404e-01,.7272845e-01,.8387260e-01,.8449727e-01,.6232326e-01,&
15166  & .3773547e-01,.7581798e-01,.8747042e-01,.8807986e-01,.6506146e-01,&
15167  & .3899381e-01,.7905992e-01,.9126223e-01,.9196437e-01,.6793314e-01,&
15168  & .4015940e-01,.8236350e-01,.9521155e-01,.9607923e-01,.7090836e-01,&
15169  & .2996758e-01,.6248612e-01,.7222878e-01,.7286184e-01,.5319451e-01,&
15170  & .3114015e-01,.6548203e-01,.7573235e-01,.7633337e-01,.5587473e-01,&
15171  & .3229126e-01,.6867140e-01,.7946891e-01,.8015608e-01,.5867307e-01,&
15172  & .3340366e-01,.7198946e-01,.8342015e-01,.8425577e-01,.6160468e-01,&
15173  & .3444385e-01,.7527768e-01,.8753864e-01,.8855726e-01,.6465244e-01/
15174 
15175  data absb(176:350, 9) / &
15176  & .2552897e-01,.5604549e-01,.6504953e-01,.6568338e-01,.4759673e-01,&
15177  & .2655263e-01,.5914810e-01,.6865615e-01,.6934990e-01,.5031583e-01,&
15178  & .2756945e-01,.6242191e-01,.7252447e-01,.7335652e-01,.5316631e-01,&
15179  & .2855171e-01,.6573444e-01,.7661794e-01,.7759839e-01,.5616029e-01,&
15180  & .2946709e-01,.6902393e-01,.8088256e-01,.8205689e-01,.5928927e-01,&
15181  & .2169323e-01,.5042927e-01,.5880926e-01,.5953518e-01,.4276904e-01,&
15182  & .2259137e-01,.5361379e-01,.6252841e-01,.6336797e-01,.4551161e-01,&
15183  & .2349223e-01,.5691109e-01,.6652380e-01,.6748411e-01,.4841701e-01,&
15184  & .2435866e-01,.6022552e-01,.7072962e-01,.7184630e-01,.5147673e-01,&
15185  & .2516486e-01,.6352693e-01,.7511834e-01,.7646009e-01,.5467556e-01,&
15186  & .1845909e-01,.4576813e-01,.5367465e-01,.5454792e-01,.3878639e-01,&
15187  & .1925599e-01,.4899168e-01,.5752566e-01,.5849933e-01,.4157610e-01,&
15188  & .2005017e-01,.5229447e-01,.6163578e-01,.6272679e-01,.4454755e-01,&
15189  & .2080611e-01,.5562768e-01,.6596785e-01,.6724008e-01,.4767687e-01,&
15190  & .2150826e-01,.5895362e-01,.7048564e-01,.7202217e-01,.5095808e-01,&
15191  & .1570422e-01,.4178498e-01,.4935434e-01,.5034621e-01,.3542605e-01,&
15192  & .1640986e-01,.4501386e-01,.5331082e-01,.5440870e-01,.3827459e-01,&
15193  & .1710795e-01,.4833320e-01,.5753856e-01,.5876524e-01,.4130508e-01,&
15194  & .1776552e-01,.5169642e-01,.6199404e-01,.6343553e-01,.4450482e-01,&
15195  & .1836301e-01,.5505656e-01,.6662521e-01,.6837233e-01,.4786425e-01,&
15196  & .1336950e-01,.3839896e-01,.4576222e-01,.4685100e-01,.3263474e-01,&
15197  & .1399497e-01,.4164334e-01,.4982575e-01,.5104297e-01,.3553968e-01,&
15198  & .1459622e-01,.4499292e-01,.5417389e-01,.5554832e-01,.3863403e-01,&
15199  & .1515950e-01,.4838565e-01,.5872737e-01,.6036693e-01,.4189693e-01,&
15200  & .1567094e-01,.5178762e-01,.6347431e-01,.6547102e-01,.4533998e-01,&
15201  & .1139415e-01,.3556539e-01,.4282652e-01,.4400955e-01,.3034823e-01,&
15202  & .1193609e-01,.3883632e-01,.4700523e-01,.4834132e-01,.3330647e-01,&
15203  & .1245410e-01,.4221330e-01,.5145145e-01,.5300744e-01,.3646560e-01,&
15204  & .1293803e-01,.4565202e-01,.5613109e-01,.5799082e-01,.3980753e-01,&
15205  & .1337501e-01,.4910924e-01,.6099932e-01,.6327343e-01,.4334453e-01,&
15206  & .9722913e-02,.3326032e-01,.4052121e-01,.4180726e-01,.2852809e-01,&
15207  & .1018992e-01,.3656568e-01,.4481036e-01,.4630022e-01,.3155388e-01,&
15208  & .1063595e-01,.3998111e-01,.4937235e-01,.5113650e-01,.3479040e-01,&
15209  & .1105185e-01,.4347100e-01,.5418973e-01,.5629833e-01,.3822398e-01,&
15210  & .1143041e-01,.4699477e-01,.5918778e-01,.6176195e-01,.4186182e-01/
15211 
15212  data absb(351:525, 9) / &
15213  & .8300709e-02,.3138262e-01,.3871373e-01,.4011993e-01,.2708755e-01,&
15214  & .8705608e-02,.3472930e-01,.4312192e-01,.4478609e-01,.3018835e-01,&
15215  & .9091211e-02,.3820073e-01,.4781870e-01,.4980017e-01,.3350792e-01,&
15216  & .9448828e-02,.4175226e-01,.5277360e-01,.5514398e-01,.3704207e-01,&
15217  & .9783765e-02,.4534922e-01,.5791589e-01,.6079477e-01,.4078994e-01,&
15218  & .7094791e-02,.2988609e-01,.3735115e-01,.3890287e-01,.2597883e-01,&
15219  & .7443776e-02,.3328590e-01,.4189354e-01,.4374887e-01,.2916268e-01,&
15220  & .7777473e-02,.3682175e-01,.4673676e-01,.4894363e-01,.3257840e-01,&
15221  & .8091821e-02,.4045146e-01,.5183182e-01,.5446905e-01,.3621756e-01,&
15222  & .8393762e-02,.4412277e-01,.5711772e-01,.6030049e-01,.4008338e-01,&
15223  & .6072721e-02,.2875406e-01,.3642428e-01,.3814167e-01,.2519233e-01,&
15224  & .6375450e-02,.3222477e-01,.4111499e-01,.4316950e-01,.2846448e-01,&
15225  & .6665401e-02,.3583825e-01,.4610908e-01,.4855053e-01,.3198856e-01,&
15226  & .6947813e-02,.3954583e-01,.5134775e-01,.5425463e-01,.3574183e-01,&
15227  & .7224449e-02,.4329363e-01,.5677163e-01,.6025181e-01,.3971948e-01,&
15228  & .5204996e-02,.2793567e-01,.3586995e-01,.3776366e-01,.2467285e-01,&
15229  & .5467917e-02,.3148948e-01,.4071531e-01,.4297096e-01,.2804493e-01,&
15230  & .5726383e-02,.3518386e-01,.4585588e-01,.4852812e-01,.3168056e-01,&
15231  & .5982991e-02,.3897236e-01,.5123260e-01,.5440198e-01,.3555049e-01,&
15232  & .6240892e-02,.4279660e-01,.5678660e-01,.6055093e-01,.3963932e-01,&
15233  & .4469682e-02,.2742048e-01,.3567286e-01,.3774779e-01,.2440899e-01,&
15234  & .4700641e-02,.3106355e-01,.4067206e-01,.4312796e-01,.2789294e-01,&
15235  & .4936385e-02,.3484450e-01,.4595839e-01,.4885735e-01,.3164155e-01,&
15236  & .5173162e-02,.3871026e-01,.5146122e-01,.5488738e-01,.3562372e-01,&
15237  & .5417514e-02,.4260570e-01,.5713175e-01,.6117015e-01,.3982399e-01,&
15238  & .3844994e-02,.2717409e-01,.3578885e-01,.3804312e-01,.2437272e-01,&
15239  & .4053349e-02,.3090840e-01,.4093856e-01,.4359092e-01,.2797192e-01,&
15240  & .4269342e-02,.3477112e-01,.4635566e-01,.4947518e-01,.3183081e-01,&
15241  & .4494036e-02,.3870776e-01,.5197315e-01,.5564894e-01,.3592188e-01,&
15242  & .4730771e-02,.4267219e-01,.5774228e-01,.6204827e-01,.4022778e-01,&
15243  & .3316155e-02,.2716439e-01,.3617214e-01,.3860092e-01,.2453709e-01,&
15244  & .3507741e-02,.3098644e-01,.4145934e-01,.4430670e-01,.2825000e-01,&
15245  & .3708780e-02,.3492455e-01,.4699683e-01,.5032871e-01,.3221778e-01,&
15246  & .3925552e-02,.3892413e-01,.5271553e-01,.5663089e-01,.3641334e-01,&
15247  & .4158892e-02,.4294570e-01,.5857114e-01,.6313194e-01,.4081644e-01/
15248 
15249  data absb(526:700, 9) / &
15250  & .2863791e-02,.2722174e-01,.3659228e-01,.3917713e-01,.2474498e-01,&
15251  & .3040588e-02,.3112320e-01,.4199421e-01,.4501754e-01,.2855786e-01,&
15252  & .3233150e-02,.3512719e-01,.4763348e-01,.5115797e-01,.3261841e-01,&
15253  & .3445381e-02,.3917826e-01,.5343694e-01,.5756145e-01,.3690166e-01,&
15254  & .3677438e-02,.4324272e-01,.5935861e-01,.6414300e-01,.4138900e-01,&
15255  & .2465329e-02,.2707028e-01,.3666695e-01,.3936557e-01,.2472691e-01,&
15256  & .2632781e-02,.3103171e-01,.4215043e-01,.4529694e-01,.2860992e-01,&
15257  & .2818872e-02,.3508603e-01,.4786198e-01,.5151711e-01,.3273833e-01,&
15258  & .3025017e-02,.3917768e-01,.5372478e-01,.5798985e-01,.3708084e-01,&
15259  & .3257127e-02,.4327518e-01,.5969457e-01,.6462649e-01,.4162399e-01,&
15260  & .2114507e-02,.2661661e-01,.3628160e-01,.3903834e-01,.2439799e-01,&
15261  & .2271568e-02,.3061795e-01,.4180884e-01,.4501716e-01,.2831780e-01,&
15262  & .2449593e-02,.3470815e-01,.4756236e-01,.5128126e-01,.3248201e-01,&
15263  & .2650872e-02,.3883456e-01,.5346450e-01,.5779235e-01,.3685837e-01,&
15264  & .2883010e-02,.4296394e-01,.5947166e-01,.6446457e-01,.4143251e-01,&
15265  & .1797225e-02,.2566144e-01,.3516915e-01,.3791294e-01,.2356973e-01,&
15266  & .1942471e-02,.2967546e-01,.4069640e-01,.4388416e-01,.2748224e-01,&
15267  & .2110732e-02,.3378859e-01,.4645705e-01,.5014523e-01,.3164309e-01,&
15268  & .2305322e-02,.3794341e-01,.5237303e-01,.5666115e-01,.3601691e-01,&
15269  & .2533979e-02,.4209991e-01,.5839699e-01,.6333729e-01,.4058728e-01,&
15270  & .1528499e-02,.2474850e-01,.3408418e-01,.3680675e-01,.2276935e-01,&
15271  & .1662648e-02,.2877135e-01,.3960487e-01,.4276395e-01,.2666990e-01,&
15272  & .1822270e-02,.3290004e-01,.4536537e-01,.4901380e-01,.3081993e-01,&
15273  & .2010407e-02,.3707876e-01,.5128684e-01,.5551957e-01,.3518382e-01,&
15274  & .2236121e-02,.4125795e-01,.5732398e-01,.6219988e-01,.3974976e-01,&
15275  & .1301157e-02,.2390332e-01,.3306486e-01,.3576088e-01,.2202215e-01,&
15276  & .1425753e-02,.2792846e-01,.3857359e-01,.4169850e-01,.2590697e-01,&
15277  & .1577002e-02,.3206803e-01,.4432843e-01,.4793360e-01,.3004339e-01,&
15278  & .1759961e-02,.3626411e-01,.5025187e-01,.5442732e-01,.3439556e-01,&
15279  & .1982828e-02,.4046418e-01,.5629663e-01,.6110344e-01,.3895158e-01,&
15280  & .1098183e-02,.2271194e-01,.3154937e-01,.3417342e-01,.2093772e-01,&
15281  & .1211979e-02,.2671363e-01,.3701515e-01,.4005573e-01,.2477551e-01,&
15282  & .1352163e-02,.3085276e-01,.4273410e-01,.4624396e-01,.2887103e-01,&
15283  & .1526376e-02,.3505659e-01,.4864130e-01,.5269139e-01,.3318689e-01,&
15284  & .1741576e-02,.3927458e-01,.5467901e-01,.5935019e-01,.3770824e-01/
15285 
15286  data absb(701:875, 9) / &
15287  & .9256636e-03,.2151927e-01,.3001800e-01,.3256386e-01,.1984971e-01,&
15288  & .1029330e-02,.2548720e-01,.3542880e-01,.3837882e-01,.2363194e-01,&
15289  & .1157935e-02,.2961670e-01,.4110275e-01,.4450903e-01,.2767804e-01,&
15290  & .1322566e-02,.3382477e-01,.4698627e-01,.5090557e-01,.3195340e-01,&
15291  & .1529747e-02,.3805510e-01,.5300873e-01,.5753600e-01,.3643451e-01,&
15292  & .7800682e-03,.2037045e-01,.2853508e-01,.3100101e-01,.1880237e-01,&
15293  & .8728720e-03,.2429814e-01,.3387777e-01,.3673821e-01,.2252410e-01,&
15294  & .9913989e-03,.2840935e-01,.3950510e-01,.4280696e-01,.2651603e-01,&
15295  & .1147051e-02,.3261525e-01,.4535763e-01,.4915180e-01,.3074712e-01,&
15296  & .1345265e-02,.3685628e-01,.5135640e-01,.5573969e-01,.3518635e-01,&
15297  & .6520564e-03,.1905366e-01,.2681157e-01,.2917864e-01,.1759490e-01,&
15298  & .7355199e-03,.2291988e-01,.3206051e-01,.3480883e-01,.2123646e-01,&
15299  & .8430968e-03,.2699435e-01,.3762006e-01,.4079097e-01,.2515653e-01,&
15300  & .9861085e-03,.3118915e-01,.4342129e-01,.4706516e-01,.2932868e-01,&
15301  & .1172376e-02,.3543571e-01,.4939030e-01,.5358864e-01,.3371077e-01,&
15302  & .5429238e-03,.1769119e-01,.2501427e-01,.2727445e-01,.1634645e-01,&
15303  & .6168245e-03,.2147865e-01,.3015275e-01,.3277935e-01,.1989356e-01,&
15304  & .7121998e-03,.2550313e-01,.3563092e-01,.3866373e-01,.2373486e-01,&
15305  & .8424551e-03,.2967789e-01,.4136324e-01,.4485540e-01,.2783187e-01,&
15306  & .1016095e-02,.3392096e-01,.4729347e-01,.5130218e-01,.3215264e-01,&
15307  & .4520417e-03,.1638027e-01,.2327058e-01,.2542894e-01,.1514441e-01,&
15308  & .5155432e-03,.2007947e-01,.2829736e-01,.3080698e-01,.1859499e-01,&
15309  & .6014451e-03,.2404182e-01,.3368120e-01,.3657952e-01,.2235065e-01,&
15310  & .7188950e-03,.2818500e-01,.3934025e-01,.4268031e-01,.2636784e-01,&
15311  & .8790319e-03,.3241918e-01,.4522294e-01,.4905072e-01,.3062540e-01,&
15312  & .3739048e-03,.1504727e-01,.2147687e-01,.2353542e-01,.1391939e-01,&
15313  & .4299766e-03,.1864024e-01,.2638349e-01,.2876868e-01,.1726321e-01,&
15314  & .5043505e-03,.2252541e-01,.3165039e-01,.3441216e-01,.2091919e-01,&
15315  & .6094823e-03,.2662193e-01,.3722724e-01,.4040986e-01,.2485188e-01,&
15316  & .7547889e-03,.3083607e-01,.4304298e-01,.4669398e-01,.2903395e-01,&
15317  & .3059529e-03,.1362998e-01,.1954590e-01,.2150308e-01,.1261761e-01,&
15318  & .3544511e-03,.1709153e-01,.2431072e-01,.2656287e-01,.1583432e-01,&
15319  & .4182967e-03,.2087582e-01,.2943979e-01,.3205269e-01,.1937141e-01,&
15320  & .5101848e-03,.2490407e-01,.3491246e-01,.3792397e-01,.2320561e-01,&
15321  & .6398861e-03,.2908833e-01,.4064101e-01,.4410450e-01,.2729138e-01/
15322 
15323  data absb(876:1050, 9) / &
15324  & .2498082e-03,.1228614e-01,.1769311e-01,.1955495e-01,.1137919e-01,&
15325  & .2913249e-03,.1560283e-01,.2230066e-01,.2443072e-01,.1445974e-01,&
15326  & .3471061e-03,.1927312e-01,.2729375e-01,.2976141e-01,.1787798e-01,&
15327  & .4260536e-03,.2321801e-01,.3264138e-01,.3549044e-01,.2160039e-01,&
15328  & .5402840e-03,.2735520e-01,.3827674e-01,.4155616e-01,.2559086e-01,&
15329  & .2032306e-03,.1100929e-01,.1592358e-01,.1768796e-01,.1020153e-01,&
15330  & .2392377e-03,.1418860e-01,.2036714e-01,.2238632e-01,.1314703e-01,&
15331  & .2862724e-03,.1772046e-01,.2521008e-01,.2753806e-01,.1643822e-01,&
15332  & .3532839e-03,.2156941e-01,.3041971e-01,.3311704e-01,.2004337e-01,&
15333  & .4535630e-03,.2564413e-01,.3595639e-01,.3905830e-01,.2393631e-01,&
15334  & .1658721e-03,.9881414e-02,.1435034e-01,.1601976e-01,.9156258e-02,&
15335  & .1953876e-03,.1291102e-01,.1860859e-01,.2053398e-01,.1196964e-01,&
15336  & .2372144e-03,.1632300e-01,.2331887e-01,.2552322e-01,.1513690e-01,&
15337  & .2956183e-03,.2005853e-01,.2839017e-01,.3094782e-01,.1862793e-01,&
15338  & .3822967e-03,.2406104e-01,.3381785e-01,.3676346e-01,.2242186e-01,&
15339  & .1347727e-03,.8839179e-02,.1288890e-01,.1446932e-01,.8192478e-02,&
15340  & .1593422e-03,.1172817e-01,.1696668e-01,.1880252e-01,.1087547e-01,&
15341  & .1948108e-03,.1500685e-01,.2152813e-01,.2362440e-01,.1391796e-01,&
15342  & .2456981e-03,.1863185e-01,.2647287e-01,.2889888e-01,.1729864e-01,&
15343  & .3210495e-03,.2255415e-01,.3178001e-01,.3458170e-01,.2098803e-01,&
15344  & .1090472e-03,.7861512e-02,.1150652e-01,.1299630e-01,.7284963e-02,&
15345  & .1294974e-03,.1060140e-01,.1539628e-01,.1714133e-01,.9834191e-02,&
15346  & .1592049e-03,.1374264e-01,.1979296e-01,.2179392e-01,.1275057e-01,&
15347  & .2045251e-03,.1726001e-01,.2461884e-01,.2691705e-01,.1601660e-01,&
15348  & .2700821e-03,.2107733e-01,.2978897e-01,.3245179e-01,.1959460e-01,&
15349  & .8802434e-04,.6944882e-02,.1020032e-01,.1159221e-01,.6430862e-02,&
15350  & .1046855e-03,.9527594e-02,.1389317e-01,.1554646e-01,.8842774e-02,&
15351  & .1292946e-03,.1253134e-01,.1811521e-01,.2002416e-01,.1163053e-01,&
15352  & .1677549e-03,.1591776e-01,.2279809e-01,.2497825e-01,.1477209e-01,&
15353  & .2257215e-03,.1963067e-01,.2784013e-01,.3036876e-01,.1824002e-01,&
15354  & .7112381e-04,.6158932e-02,.9074677e-02,.1037208e-01,.5697312e-02,&
15355  & .8497772e-04,.8594221e-02,.1257729e-01,.1414858e-01,.7977017e-02,&
15356  & .1052109e-03,.1146594e-01,.1663179e-01,.1845837e-01,.1064379e-01,&
15357  & .1377962e-03,.1472932e-01,.2117504e-01,.2325811e-01,.1367082e-01,&
15358  & .1885595e-03,.1833924e-01,.2610150e-01,.2850850e-01,.1703634e-01/
15359 
15360  data absb(1051:1175, 9) / &
15361  & .5743054e-04,.5454299e-02,.8062707e-02,.9263120e-02,.5037907e-02,&
15362  & .6891997e-04,.7748836e-02,.1137635e-01,.1286665e-01,.7190454e-02,&
15363  & .8575160e-04,.1048793e-01,.1526380e-01,.1700893e-01,.9738840e-02,&
15364  & .1130459e-03,.1362883e-01,.1965917e-01,.2165939e-01,.1265333e-01,&
15365  & .1594488e-03,.1714474e-01,.2448136e-01,.2677687e-01,.1591770e-01,&
15366  & .4626830e-04,.4800265e-02,.7116803e-02,.8217649e-02,.4424823e-02,&
15367  & .5574968e-04,.6951784e-02,.1023739e-01,.1164073e-01,.6446800e-02,&
15368  & .6940184e-04,.9552514e-02,.1395187e-01,.1561652e-01,.8874544e-02,&
15369  & .9239592e-04,.1257225e-01,.1819349e-01,.2011229e-01,.1167577e-01,&
15370  & .1322365e-03,.1597315e-01,.2289106e-01,.2508204e-01,.1483008e-01,&
15371  & .3713644e-04,.4193801e-02,.6237852e-02,.7236320e-02,.3854523e-02,&
15372  & .4495045e-04,.6202948e-02,.9160942e-02,.1047397e-01,.5746268e-02,&
15373  & .5606539e-04,.8661882e-02,.1269376e-01,.1427915e-01,.8047359e-02,&
15374  & .7499774e-04,.1155560e-01,.1677574e-01,.1861487e-01,.1073338e-01,&
15375  & .1090623e-03,.1483830e-01,.2133895e-01,.2343538e-01,.1377716e-01,&
15376  & .2983624e-04,.3660809e-02,.5463957e-02,.6366210e-02,.3353712e-02,&
15377  & .3622972e-04,.5534921e-02,.8199583e-02,.9421109e-02,.5120953e-02,&
15378  & .4528199e-04,.7860566e-02,.1155366e-01,.1306274e-01,.7301227e-02,&
15379  & .6078597e-04,.1062904e-01,.1547773e-01,.1723998e-01,.9874672e-02,&
15380  & .8960328e-04,.1379622e-01,.1990262e-01,.2191965e-01,.1281258e-01,&
15381  & .2476815e-04,.3454037e-02,.5166124e-02,.6030808e-02,.3159940e-02,&
15382  & .3026086e-04,.5275928e-02,.7826736e-02,.9011759e-02,.4878738e-02,&
15383  & .3827593e-04,.7548106e-02,.1110916e-01,.1258647e-01,.7009912e-02,&
15384  & .5239001e-04,.1026550e-01,.1496950e-01,.1670101e-01,.9539209e-02,&
15385  & .7936022e-04,.1338634e-01,.1933796e-01,.2132326e-01,.1243426e-01/
15386 
15387  data absb( 1:175,10) / &
15388  & .3241099e+01,.2987317e+01,.2934217e+01,.2979591e+01,.3249070e+01,&
15389  & .3234075e+01,.2980277e+01,.2928977e+01,.2975887e+01,.3247797e+01,&
15390  & .3225854e+01,.2969842e+01,.2920752e+01,.2969916e+01,.3244885e+01,&
15391  & .3216237e+01,.2956861e+01,.2909451e+01,.2961989e+01,.3239941e+01,&
15392  & .3205570e+01,.2942860e+01,.2895750e+01,.2952083e+01,.3233269e+01,&
15393  & .3294407e+01,.3067418e+01,.3026193e+01,.3071528e+01,.3320951e+01,&
15394  & .3287555e+01,.3058712e+01,.3019273e+01,.3067009e+01,.3319914e+01,&
15395  & .3279570e+01,.3047161e+01,.3009370e+01,.3060158e+01,.3316506e+01,&
15396  & .3270203e+01,.3034142e+01,.2996595e+01,.3051009e+01,.3310913e+01,&
15397  & .3259714e+01,.3019806e+01,.2981647e+01,.3039634e+01,.3303820e+01,&
15398  & .3341126e+01,.3138576e+01,.3108484e+01,.3154777e+01,.3385204e+01,&
15399  & .3334442e+01,.3128468e+01,.3100116e+01,.3149324e+01,.3383891e+01,&
15400  & .3326558e+01,.3116752e+01,.3088845e+01,.3141443e+01,.3379937e+01,&
15401  & .3317437e+01,.3103447e+01,.3075001e+01,.3130952e+01,.3374048e+01,&
15402  & .3307931e+01,.3088783e+01,.3059530e+01,.3118062e+01,.3366502e+01,&
15403  & .3381819e+01,.3201482e+01,.3181519e+01,.3229413e+01,.3441758e+01,&
15404  & .3375218e+01,.3191080e+01,.3171998e+01,.3223235e+01,.3440199e+01,&
15405  & .3367503e+01,.3178917e+01,.3159508e+01,.3214061e+01,.3435864e+01,&
15406  & .3359300e+01,.3165234e+01,.3145138e+01,.3202140e+01,.3429679e+01,&
15407  & .3350904e+01,.3150191e+01,.3129217e+01,.3187795e+01,.3421572e+01,&
15408  & .3416967e+01,.3257138e+01,.3245938e+01,.3295538e+01,.3491078e+01,&
15409  & .3410526e+01,.3246460e+01,.3235248e+01,.3288412e+01,.3489256e+01,&
15410  & .3403411e+01,.3233801e+01,.3222173e+01,.3278081e+01,.3484896e+01,&
15411  & .3396503e+01,.3220051e+01,.3207563e+01,.3264988e+01,.3478422e+01,&
15412  & .3388687e+01,.3204490e+01,.3190965e+01,.3249372e+01,.3469667e+01,&
15413  & .3447347e+01,.3306390e+01,.3302358e+01,.3353515e+01,.3533939e+01,&
15414  & .3441677e+01,.3295397e+01,.3291151e+01,.3345399e+01,.3532046e+01,&
15415  & .3435433e+01,.3282539e+01,.3277801e+01,.3334036e+01,.3527652e+01,&
15416  & .3428932e+01,.3268231e+01,.3262441e+01,.3319876e+01,.3520689e+01,&
15417  & .3421802e+01,.3252582e+01,.3245243e+01,.3303411e+01,.3511826e+01,&
15418  & .3473639e+01,.3349610e+01,.3351573e+01,.3403647e+01,.3571220e+01,&
15419  & .3468683e+01,.3338245e+01,.3340115e+01,.3394675e+01,.3569195e+01,&
15420  & .3463191e+01,.3325117e+01,.3326306e+01,.3382460e+01,.3564603e+01,&
15421  & .3457226e+01,.3310536e+01,.3310441e+01,.3367641e+01,.3557528e+01,&
15422  & .3450573e+01,.3294967e+01,.3292594e+01,.3350498e+01,.3548320e+01/
15423 
15424  data absb(176:350,10) / &
15425  & .3496427e+01,.3387213e+01,.3394307e+01,.3446696e+01,.3603551e+01,&
15426  & .3492015e+01,.3375447e+01,.3382527e+01,.3437054e+01,.3601524e+01,&
15427  & .3487054e+01,.3362003e+01,.3368240e+01,.3424123e+01,.3596558e+01,&
15428  & .3481600e+01,.3347475e+01,.3351850e+01,.3408660e+01,.3589083e+01,&
15429  & .3475345e+01,.3331832e+01,.3333426e+01,.3390953e+01,.3579691e+01,&
15430  & .3515729e+01,.3419608e+01,.3431233e+01,.3483605e+01,.3631724e+01,&
15431  & .3512042e+01,.3407688e+01,.3419052e+01,.3473258e+01,.3629302e+01,&
15432  & .3507568e+01,.3394146e+01,.3404283e+01,.3459906e+01,.3623996e+01,&
15433  & .3502487e+01,.3379596e+01,.3387427e+01,.3443990e+01,.3616232e+01,&
15434  & .3496406e+01,.3363737e+01,.3368380e+01,.3425639e+01,.3606532e+01,&
15435  & .3532277e+01,.3446949e+01,.3462235e+01,.3514489e+01,.3655808e+01,&
15436  & .3528770e+01,.3434733e+01,.3449373e+01,.3503513e+01,.3652945e+01,&
15437  & .3524634e+01,.3421100e+01,.3434125e+01,.3489643e+01,.3647282e+01,&
15438  & .3519795e+01,.3406260e+01,.3416576e+01,.3472980e+01,.3639037e+01,&
15439  & .3514104e+01,.3390336e+01,.3397008e+01,.3453854e+01,.3628856e+01,&
15440  & .3546078e+01,.3470188e+01,.3488411e+01,.3540723e+01,.3676433e+01,&
15441  & .3542944e+01,.3457842e+01,.3475086e+01,.3529136e+01,.3673056e+01,&
15442  & .3538969e+01,.3443995e+01,.3459112e+01,.3514554e+01,.3666861e+01,&
15443  & .3534492e+01,.3429012e+01,.3441008e+01,.3497202e+01,.3658321e+01,&
15444  & .3528936e+01,.3412721e+01,.3420721e+01,.3477224e+01,.3647530e+01,&
15445  & .3557812e+01,.3489957e+01,.3510431e+01,.3562900e+01,.3693951e+01,&
15446  & .3554915e+01,.3477501e+01,.3496575e+01,.3550650e+01,.3690213e+01,&
15447  & .3551290e+01,.3463442e+01,.3480042e+01,.3535257e+01,.3683497e+01,&
15448  & .3546841e+01,.3448056e+01,.3461256e+01,.3517075e+01,.3674340e+01,&
15449  & .3541285e+01,.3431269e+01,.3440276e+01,.3496294e+01,.3663228e+01,&
15450  & .3567647e+01,.3506550e+01,.3528762e+01,.3581376e+01,.3708814e+01,&
15451  & .3564997e+01,.3493846e+01,.3514220e+01,.3568244e+01,.3704420e+01,&
15452  & .3561496e+01,.3479527e+01,.3497088e+01,.3552055e+01,.3697250e+01,&
15453  & .3557192e+01,.3463748e+01,.3477590e+01,.3533010e+01,.3687653e+01,&
15454  & .3551616e+01,.3446545e+01,.3455968e+01,.3511360e+01,.3675961e+01,&
15455  & .3576050e+01,.3520359e+01,.3543745e+01,.3596477e+01,.3721344e+01,&
15456  & .3573439e+01,.3507280e+01,.3528498e+01,.3582455e+01,.3716375e+01,&
15457  & .3570110e+01,.3492608e+01,.3510656e+01,.3565258e+01,.3708511e+01,&
15458  & .3565744e+01,.3476407e+01,.3490353e+01,.3545222e+01,.3698329e+01,&
15459  & .3559803e+01,.3458419e+01,.3467812e+01,.3522516e+01,.3686100e+01/
15460 
15461  data absb(351:525,10) / &
15462  & .3582887e+01,.3531577e+01,.3555722e+01,.3608504e+01,.3731686e+01,&
15463  & .3580475e+01,.3518245e+01,.3539855e+01,.3593592e+01,.3726109e+01,&
15464  & .3577189e+01,.3503133e+01,.3521212e+01,.3575393e+01,.3717607e+01,&
15465  & .3572639e+01,.3486267e+01,.3500027e+01,.3554276e+01,.3706744e+01,&
15466  & .3566732e+01,.3467823e+01,.3476736e+01,.3530687e+01,.3693895e+01,&
15467  & .3588948e+01,.3540932e+01,.3565482e+01,.3618178e+01,.3740395e+01,&
15468  & .3586372e+01,.3527032e+01,.3548694e+01,.3602144e+01,.3734037e+01,&
15469  & .3582904e+01,.3511279e+01,.3529122e+01,.3582894e+01,.3724850e+01,&
15470  & .3578253e+01,.3493847e+01,.3507118e+01,.3560863e+01,.3713367e+01,&
15471  & .3571896e+01,.3474633e+01,.3482868e+01,.3536238e+01,.3699809e+01,&
15472  & .3593753e+01,.3548111e+01,.3572749e+01,.3625342e+01,.3747338e+01,&
15473  & .3591161e+01,.3533619e+01,.3554981e+01,.3608138e+01,.3740209e+01,&
15474  & .3587644e+01,.3517376e+01,.3534583e+01,.3587946e+01,.3730305e+01,&
15475  & .3582824e+01,.3499345e+01,.3511738e+01,.3564886e+01,.3718106e+01,&
15476  & .3576090e+01,.3479444e+01,.3486584e+01,.3539307e+01,.3703918e+01,&
15477  & .3597761e+01,.3553599e+01,.3577948e+01,.3630395e+01,.3752803e+01,&
15478  & .3595135e+01,.3538555e+01,.3559293e+01,.3612190e+01,.3744937e+01,&
15479  & .3591361e+01,.3521618e+01,.3537925e+01,.3590860e+01,.3734257e+01,&
15480  & .3586342e+01,.3502980e+01,.3514239e+01,.3566848e+01,.3721332e+01,&
15481  & .3579098e+01,.3482302e+01,.3488295e+01,.3540497e+01,.3706615e+01,&
15482  & .3601000e+01,.3557421e+01,.3581302e+01,.3633532e+01,.3756941e+01,&
15483  & .3598425e+01,.3541845e+01,.3561786e+01,.3614297e+01,.3748264e+01,&
15484  & .3594258e+01,.3524164e+01,.3539472e+01,.3591996e+01,.3736861e+01,&
15485  & .3588813e+01,.3504757e+01,.3514868e+01,.3567024e+01,.3723189e+01,&
15486  & .3581159e+01,.3483405e+01,.3488066e+01,.3539801e+01,.3707789e+01,&
15487  & .3603721e+01,.3559860e+01,.3582917e+01,.3634951e+01,.3759790e+01,&
15488  & .3600695e+01,.3543471e+01,.3562334e+01,.3614594e+01,.3750203e+01,&
15489  & .3596558e+01,.3525354e+01,.3539343e+01,.3591476e+01,.3738184e+01,&
15490  & .3590489e+01,.3505086e+01,.3513885e+01,.3565600e+01,.3723853e+01,&
15491  & .3582281e+01,.3482974e+01,.3486236e+01,.3537560e+01,.3707796e+01,&
15492  & .3606012e+01,.3561147e+01,.3583252e+01,.3635062e+01,.3761716e+01,&
15493  & .3602690e+01,.3544023e+01,.3561757e+01,.3613695e+01,.3751349e+01,&
15494  & .3598158e+01,.3525175e+01,.3537873e+01,.3589589e+01,.3738443e+01,&
15495  & .3591521e+01,.3504190e+01,.3511600e+01,.3562948e+01,.3723509e+01,&
15496  & .3582782e+01,.3481406e+01,.3483237e+01,.3534221e+01,.3706854e+01/
15497 
15498  data absb(526:700,10) / &
15499  & .3607593e+01,.3561716e+01,.3582936e+01,.3634631e+01,.3762977e+01,&
15500  & .3604207e+01,.3544117e+01,.3560767e+01,.3612484e+01,.3751904e+01,&
15501  & .3599186e+01,.3524501e+01,.3536083e+01,.3587617e+01,.3738408e+01,&
15502  & .3592335e+01,.3503119e+01,.3509231e+01,.3560224e+01,.3722888e+01,&
15503  & .3583023e+01,.3479645e+01,.3480307e+01,.3530962e+01,.3705868e+01,&
15504  & .3609388e+01,.3563205e+01,.3583835e+01,.3635279e+01,.3764323e+01,&
15505  & .3605668e+01,.3545073e+01,.3561130e+01,.3612628e+01,.3752963e+01,&
15506  & .3600435e+01,.3525079e+01,.3535962e+01,.3587210e+01,.3739092e+01,&
15507  & .3593253e+01,.3503218e+01,.3508581e+01,.3559430e+01,.3723196e+01,&
15508  & .3583674e+01,.3479411e+01,.3479316e+01,.3529774e+01,.3705733e+01,&
15509  & .3610877e+01,.3565753e+01,.3586334e+01,.3637630e+01,.3766564e+01,&
15510  & .3607388e+01,.3547593e+01,.3563510e+01,.3614777e+01,.3754879e+01,&
15511  & .3601974e+01,.3527292e+01,.3538093e+01,.3589236e+01,.3740900e+01,&
15512  & .3594896e+01,.3505409e+01,.3510693e+01,.3561326e+01,.3724918e+01,&
15513  & .3585207e+01,.3481394e+01,.3481186e+01,.3531504e+01,.3707454e+01,&
15514  & .3612619e+01,.3570439e+01,.3591639e+01,.3642767e+01,.3769831e+01,&
15515  & .3609315e+01,.3552400e+01,.3569038e+01,.3620211e+01,.3758468e+01,&
15516  & .3604385e+01,.3532422e+01,.3543881e+01,.3594866e+01,.3744636e+01,&
15517  & .3597500e+01,.3510559e+01,.3516551e+01,.3567108e+01,.3728771e+01,&
15518  & .3588141e+01,.3486709e+01,.3487212e+01,.3537489e+01,.3711452e+01,&
15519  & .3614294e+01,.3574997e+01,.3596711e+01,.3647701e+01,.3772830e+01,&
15520  & .3611060e+01,.3557018e+01,.3574287e+01,.3625347e+01,.3761707e+01,&
15521  & .3606301e+01,.3537069e+01,.3549260e+01,.3600210e+01,.3747990e+01,&
15522  & .3599986e+01,.3515632e+01,.3522343e+01,.3572792e+01,.3732484e+01,&
15523  & .3590746e+01,.3491810e+01,.3493076e+01,.3543289e+01,.3715323e+01,&
15524  & .3615385e+01,.3578875e+01,.3601241e+01,.3652114e+01,.3775522e+01,&
15525  & .3612653e+01,.3561267e+01,.3579150e+01,.3630121e+01,.3764687e+01,&
15526  & .3608225e+01,.3541594e+01,.3554508e+01,.3605343e+01,.3751304e+01,&
15527  & .3601890e+01,.3520037e+01,.3527598e+01,.3578113e+01,.3735943e+01,&
15528  & .3593282e+01,.3496658e+01,.3498659e+01,.3548727e+01,.3718739e+01,&
15529  & .3616729e+01,.3584234e+01,.3607568e+01,.3658316e+01,.3778888e+01,&
15530  & .3614336e+01,.3567065e+01,.3586083e+01,.3636983e+01,.3768550e+01,&
15531  & .3610281e+01,.3547775e+01,.3561945e+01,.3612790e+01,.3755757e+01,&
15532  & .3604549e+01,.3526723e+01,.3535518e+01,.3586033e+01,.3740710e+01,&
15533  & .3596403e+01,.3503693e+01,.3506997e+01,.3557144e+01,.3724043e+01/
15534 
15535  data absb(701:875,10) / &
15536  & .3617849e+01,.3589442e+01,.3613858e+01,.3664479e+01,.3782091e+01,&
15537  & .3615818e+01,.3572805e+01,.3592899e+01,.3643677e+01,.3772222e+01,&
15538  & .3612124e+01,.3553880e+01,.3569311e+01,.3620106e+01,.3759976e+01,&
15539  & .3606887e+01,.3533209e+01,.3543433e+01,.3593996e+01,.3745475e+01,&
15540  & .3599450e+01,.3510687e+01,.3515389e+01,.3565549e+01,.3729132e+01,&
15541  & .3618859e+01,.3594390e+01,.3619692e+01,.3670127e+01,.3784822e+01,&
15542  & .3617031e+01,.3578150e+01,.3599460e+01,.3650217e+01,.3775829e+01,&
15543  & .3613773e+01,.3559780e+01,.3576444e+01,.3627182e+01,.3764034e+01,&
15544  & .3609186e+01,.3539677e+01,.3551204e+01,.3601833e+01,.3750137e+01,&
15545  & .3602259e+01,.3517530e+01,.3523661e+01,.3573794e+01,.3734189e+01,&
15546  & .3619642e+01,.3599861e+01,.3626247e+01,.3676465e+01,.3787596e+01,&
15547  & .3618160e+01,.3584226e+01,.3606851e+01,.3657509e+01,.3779539e+01,&
15548  & .3615477e+01,.3566520e+01,.3584677e+01,.3635460e+01,.3768627e+01,&
15549  & .3611247e+01,.3546802e+01,.3559989e+01,.3610646e+01,.3755225e+01,&
15550  & .3605074e+01,.3525201e+01,.3533059e+01,.3583351e+01,.3739819e+01,&
15551  & .3620312e+01,.3605283e+01,.3632856e+01,.3682831e+01,.3790274e+01,&
15552  & .3619186e+01,.3590447e+01,.3614470e+01,.3665009e+01,.3783275e+01,&
15553  & .3616882e+01,.3573318e+01,.3593065e+01,.3643837e+01,.3773166e+01,&
15554  & .3613451e+01,.3554344e+01,.3569198e+01,.3619779e+01,.3760340e+01,&
15555  & .3607869e+01,.3533334e+01,.3542978e+01,.3593388e+01,.3745727e+01,&
15556  & .3620861e+01,.3610352e+01,.3639014e+01,.3688623e+01,.3792389e+01,&
15557  & .3619907e+01,.3596190e+01,.3621534e+01,.3671961e+01,.3786487e+01,&
15558  & .3618144e+01,.3579813e+01,.3601034e+01,.3651766e+01,.3777268e+01,&
15559  & .3615214e+01,.3561501e+01,.3578086e+01,.3628673e+01,.3765343e+01,&
15560  & .3610346e+01,.3541102e+01,.3552515e+01,.3602980e+01,.3751243e+01,&
15561  & .3621171e+01,.3615299e+01,.3645122e+01,.3694327e+01,.3794232e+01,&
15562  & .3620700e+01,.3602063e+01,.3628647e+01,.3678772e+01,.3789342e+01,&
15563  & .3619172e+01,.3586367e+01,.3609119e+01,.3659731e+01,.3781216e+01,&
15564  & .3616635e+01,.3568642e+01,.3586973e+01,.3637668e+01,.3770251e+01,&
15565  & .3612602e+01,.3549063e+01,.3562386e+01,.3612958e+01,.3756942e+01,&
15566  & .3621585e+01,.3620432e+01,.3651384e+01,.3699855e+01,.3795401e+01,&
15567  & .3621229e+01,.3608077e+01,.3635997e+01,.3685814e+01,.3792009e+01,&
15568  & .3620075e+01,.3593269e+01,.3617681e+01,.3668163e+01,.3785187e+01,&
15569  & .3618192e+01,.3576439e+01,.3596584e+01,.3647184e+01,.3775165e+01,&
15570  & .3614853e+01,.3557603e+01,.3572939e+01,.3623466e+01,.3762716e+01/
15571 
15572  data absb(876:1050,10) / &
15573  & .3621531e+01,.3624874e+01,.3656941e+01,.3704801e+01,.3796091e+01,&
15574  & .3621578e+01,.3613665e+01,.3642948e+01,.3692378e+01,.3794280e+01,&
15575  & .3620925e+01,.3599898e+01,.3625750e+01,.3676030e+01,.3788596e+01,&
15576  & .3619395e+01,.3583738e+01,.3605662e+01,.3656221e+01,.3779663e+01,&
15577  & .3616452e+01,.3565615e+01,.3582989e+01,.3633553e+01,.3768255e+01,&
15578  & .3621699e+01,.3629071e+01,.3661985e+01,.3709070e+01,.3796100e+01,&
15579  & .3621985e+01,.3618898e+01,.3649290e+01,.3698155e+01,.3795661e+01,&
15580  & .3621415e+01,.3605926e+01,.3633265e+01,.3683249e+01,.3791501e+01,&
15581  & .3620359e+01,.3590761e+01,.3614336e+01,.3664785e+01,.3783789e+01,&
15582  & .3618117e+01,.3573457e+01,.3592656e+01,.3643288e+01,.3773301e+01,&
15583  & .3621904e+01,.3632715e+01,.3666350e+01,.3712572e+01,.3795707e+01,&
15584  & .3622024e+01,.3623236e+01,.3654773e+01,.3703040e+01,.3796613e+01,&
15585  & .3621869e+01,.3611272e+01,.3639856e+01,.3689474e+01,.3793663e+01,&
15586  & .3621052e+01,.3597007e+01,.3622051e+01,.3672345e+01,.3787216e+01,&
15587  & .3619289e+01,.3580478e+01,.3601357e+01,.3651927e+01,.3777750e+01,&
15588  & .3621852e+01,.3635792e+01,.3669888e+01,.3715191e+01,.3794554e+01,&
15589  & .3622079e+01,.3627138e+01,.3659507e+01,.3707091e+01,.3796772e+01,&
15590  & .3622144e+01,.3616154e+01,.3645824e+01,.3695017e+01,.3795270e+01,&
15591  & .3621572e+01,.3602644e+01,.3629021e+01,.3679124e+01,.3790058e+01,&
15592  & .3620273e+01,.3586904e+01,.3609375e+01,.3659834e+01,.3781548e+01,&
15593  & .3621524e+01,.3638153e+01,.3672641e+01,.3717019e+01,.3792489e+01,&
15594  & .3622011e+01,.3630710e+01,.3663819e+01,.3710696e+01,.3796596e+01,&
15595  & .3622140e+01,.3620549e+01,.3651350e+01,.3700088e+01,.3796517e+01,&
15596  & .3621964e+01,.3607992e+01,.3635644e+01,.3685439e+01,.3792448e+01,&
15597  & .3620930e+01,.3593051e+01,.3617045e+01,.3667379e+01,.3785155e+01,&
15598  & .3621285e+01,.3640375e+01,.3675144e+01,.3718598e+01,.3790284e+01,&
15599  & .3621997e+01,.3633935e+01,.3667680e+01,.3713679e+01,.3795786e+01,&
15600  & .3622336e+01,.3624705e+01,.3656432e+01,.3704538e+01,.3797068e+01,&
15601  & .3622150e+01,.3612954e+01,.3641755e+01,.3691352e+01,.3794423e+01,&
15602  & .3621542e+01,.3598955e+01,.3624346e+01,.3674512e+01,.3788265e+01,&
15603  & .3620995e+01,.3641953e+01,.3676700e+01,.3719069e+01,.3787249e+01,&
15604  & .3621905e+01,.3636516e+01,.3670740e+01,.3715933e+01,.3794540e+01,&
15605  & .3622165e+01,.3628082e+01,.3660699e+01,.3708147e+01,.3797220e+01,&
15606  & .3622324e+01,.3617255e+01,.3647220e+01,.3696381e+01,.3795917e+01,&
15607  & .3621972e+01,.3604029e+01,.3630657e+01,.3680650e+01,.3790740e+01/
15608 
15609  data absb(1051:1175,10) / &
15610  & .3620526e+01,.3643008e+01,.3677709e+01,.3719079e+01,.3783909e+01,&
15611  & .3621663e+01,.3638625e+01,.3673147e+01,.3717490e+01,.3792683e+01,&
15612  & .3622181e+01,.3631146e+01,.3664388e+01,.3711198e+01,.3796901e+01,&
15613  & .3622567e+01,.3621247e+01,.3652054e+01,.3700619e+01,.3796719e+01,&
15614  & .3622221e+01,.3608539e+01,.3636273e+01,.3686109e+01,.3792815e+01,&
15615  & .3620197e+01,.3643890e+01,.3678333e+01,.3718665e+01,.3780167e+01,&
15616  & .3621325e+01,.3640368e+01,.3675148e+01,.3718577e+01,.3790537e+01,&
15617  & .3622155e+01,.3633956e+01,.3667672e+01,.3713768e+01,.3796050e+01,&
15618  & .3622497e+01,.3624766e+01,.3656479e+01,.3704595e+01,.3797402e+01,&
15619  & .3622419e+01,.3612956e+01,.3641709e+01,.3691233e+01,.3794545e+01,&
15620  & .3619809e+01,.3644465e+01,.3678494e+01,.3717752e+01,.3775862e+01,&
15621  & .3621149e+01,.3642028e+01,.3676823e+01,.3719299e+01,.3787818e+01,&
15622  & .3621940e+01,.3636328e+01,.3670542e+01,.3715827e+01,.3794751e+01,&
15623  & .3622399e+01,.3627949e+01,.3660463e+01,.3707973e+01,.3797438e+01,&
15624  & .3622573e+01,.3617046e+01,.3646813e+01,.3695952e+01,.3795817e+01,&
15625  & .3619235e+01,.3644575e+01,.3678035e+01,.3716081e+01,.3771129e+01,&
15626  & .3620784e+01,.3643128e+01,.3677789e+01,.3719247e+01,.3784648e+01,&
15627  & .3621727e+01,.3638446e+01,.3672940e+01,.3717422e+01,.3793308e+01,&
15628  & .3622318e+01,.3630870e+01,.3663967e+01,.3710850e+01,.3797063e+01,&
15629  & .3622631e+01,.3620709e+01,.3651341e+01,.3700062e+01,.3796727e+01,&
15630  & .3618949e+01,.3644500e+01,.3677804e+01,.3715402e+01,.3769243e+01,&
15631  & .3620600e+01,.3643472e+01,.3678108e+01,.3719204e+01,.3783320e+01,&
15632  & .3621596e+01,.3639124e+01,.3673749e+01,.3717908e+01,.3792537e+01,&
15633  & .3622327e+01,.3631967e+01,.3665327e+01,.3711976e+01,.3796952e+01,&
15634  & .3622725e+01,.3622155e+01,.3653104e+01,.3701619e+01,.3797027e+01/
15635 
15636 ! ---
15637  data forref(1:4,1:10) / &
15638  & .1100080e-06,.6309120e-06,.3631590e-05,.6168920e-05,.4297090e-05,&
15639  & .7891740e-05,.2174160e-04,.6393930e-04,.4362830e-04,.5262470e-04,&
15640  & .1163410e-03,.2056160e-03,.2156270e-03,.2345220e-03,.2804970e-03,&
15641  & .8386680e-03,.5292830e-03,.6208480e-03,.9355610e-03,.1712520e-02,&
15642  & .2122670e-02,.2185640e-02,.2222270e-02,.1996500e-02,.2911200e-02,&
15643  & .2811680e-02,.2595430e-02,.2101590e-02,.3162490e-02,.3106950e-02,&
15644  & .2795010e-02,.2080760e-02,.3591895e-02,.3399762e-02,.3018810e-02,&
15645  & .1801670e-02,.4302254e-02,.4229914e-02,.3954639e-02,.2291698e-02/
15646 
15647 
15648  data selfref(1:10,1:10) / &
15649  & .1158870e-03,.9265370e-04,.7407830e-04,.5922700e-04,.4735300e-04,&
15650  & .3785960e-04,.3026940e-04,.2420100e-04,.1934910e-04,.1547000e-04,&
15651  & .4595570e-03,.3819620e-03,.3174690e-03,.2638660e-03,.2193130e-03,&
15652  & .1822830e-03,.1515050e-03,.1259240e-03,.1046620e-03,.8699040e-04,&
15653  & .1668210e-02,.1511030e-02,.1368660e-02,.1239700e-02,.1122900e-02,&
15654  & .1017100e-02,.9212660e-03,.8344630e-03,.7558390e-03,.6846230e-03,&
15655  & .4601750e-02,.4213720e-02,.3858420e-02,.3533070e-02,.3235160e-02,&
15656  & .2962360e-02,.2712570e-02,.2483850e-02,.2274400e-02,.2082620e-02,&
15657  & .1015890e-01,.9247420e-02,.8417720e-02,.7662470e-02,.6974970e-02,&
15658  & .6349170e-02,.5779510e-02,.5260960e-02,.4788930e-02,.4359260e-02,&
15659  & .3280430e-01,.3008530e-01,.2759170e-01,.2530480e-01,.2320750e-01,&
15660  & .2128390e-01,.1951980e-01,.1790200e-01,.1641820e-01,.1505740e-01,&
15661  & .4059360e-01,.3760320e-01,.3483310e-01,.3226710e-01,.2989010e-01,&
15662  & .2768830e-01,.2564860e-01,.2375910e-01,.2200890e-01,.2038760e-01,&
15663  & .4483620e-01,.4138110e-01,.3819230e-01,.3524920e-01,.3253290e-01,&
15664  & .3002590e-01,.2771210e-01,.2557660e-01,.2360560e-01,.2178660e-01,&
15665  & .4836264e-01,.4491932e-01,.4172126e-01,.3875097e-01,.3599212e-01,&
15666  & .3342979e-01,.3105000e-01,.2883953e-01,.2678655e-01,.2487982e-01,&
15667  & .6056851e-01,.5576215e-01,.5133769e-01,.4726472e-01,.4351530e-01,&
15668  & .4006365e-01,.3688611e-01,.3396089e-01,.3126793e-01,.2878878e-01/
15669 
15670 !........................................!
15671  end module module_radsw_kgb21 !
15672 !========================================!
15673 
15676 !========================================!
15678 !........................................!
15679 !
15680 ! ********* the original program descriptions ********* !
15681 ! !
15682 ! originally by j.delamere, atmospheric & environmental research. !
15683 ! revision: 2.4 !
15684 ! band 22: 7700-8050 cm-1 (low - h2o,o2; high - o2) !
15685 ! reformatted for f90 by jjmorcrette, ecmwf !
15686 ! !
15687 ! this table has been re-generated for reduced number of g-point !
15688 ! by y.t.hou, ncep !
15689 ! !
15690 ! ********* ********* end description ********* ********* !
15691 !
15692  use physparam, only : kind_phys
15693  use module_radsw_parameters, only : ng22
15694 
15695 !
15696  implicit none
15697 !
15698  private
15699 !
15701  integer, public :: msa22
15703  integer, public :: msb22
15705  integer, public :: msf22
15707  integer, public :: mfr22
15708  parameter(msa22=585, msb22=235, msf22=10, mfr22=3)
15709 
15710  real (kind=kind_phys), public :: forref(mfr22,ng22)
15711 
15727  real (kind=kind_phys), public :: absa(msa22,ng22)
15728 
15740  real (kind=kind_phys), public :: absb(msb22,ng22)
15741 
15747  real (kind=kind_phys), public :: selfref(msf22,ng22)
15748 
15750  real (kind=kind_phys), parameter, public :: rayl = 1.54e-08
15751 
15752 
15753  data absa( 1:180, 1) / &
15754  & .4811305e-05,.6129178e-05,.6975295e-05,.7459097e-05,.7681764e-05,&
15755  & .7669132e-05,.7386319e-05,.6757954e-05,.4773633e-05,.4852970e-05,&
15756  & .6482051e-05,.7514931e-05,.8141914e-05,.8481015e-05,.8536849e-05,&
15757  & .8278644e-05,.7661509e-05,.5661537e-05,.4887964e-05,.6857744e-05,&
15758  & .8089331e-05,.8885017e-05,.9332288e-05,.9453783e-05,.9249515e-05,&
15759  & .8659290e-05,.6666955e-05,.4916026e-05,.7226977e-05,.8662139e-05,&
15760  & .9602646e-05,.1014228e-04,.1032751e-04,.1017396e-04,.9601762e-05,&
15761  & .7631048e-05,.4939202e-05,.7613809e-05,.9263194e-05,.1033860e-04,&
15762  & .1098728e-04,.1125104e-04,.1116365e-04,.1062721e-04,.8702900e-05,&
15763  & .4106730e-05,.5324296e-05,.6058728e-05,.6475552e-05,.6675502e-05,&
15764  & .6660409e-05,.6407153e-05,.5864093e-05,.3937516e-05,.4142531e-05,&
15765  & .5645457e-05,.6543640e-05,.7093457e-05,.7392197e-05,.7432767e-05,&
15766  & .7202851e-05,.6679036e-05,.4695930e-05,.4172412e-05,.5983858e-05,&
15767  & .7068059e-05,.7761470e-05,.8155332e-05,.8259215e-05,.8079259e-05,&
15768  & .7583378e-05,.5569182e-05,.4197861e-05,.6325920e-05,.7598301e-05,&
15769  & .8416188e-05,.8900428e-05,.9074421e-05,.8942307e-05,.8472099e-05,&
15770  & .6440222e-05,.4216312e-05,.6670040e-05,.8121375e-05,.9056370e-05,&
15771  & .9638048e-05,.9875647e-05,.9796244e-05,.9352752e-05,.7315977e-05,&
15772  & .3467259e-05,.4530486e-05,.5130556e-05,.5469514e-05,.5627152e-05,&
15773  & .5606389e-05,.5378296e-05,.4903857e-05,.3080725e-05,.3499079e-05,&
15774  & .4815823e-05,.5557660e-05,.6015497e-05,.6256261e-05,.6280454e-05,&
15775  & .6078238e-05,.5616791e-05,.3711088e-05,.3526114e-05,.5110612e-05,&
15776  & .6012398e-05,.6587675e-05,.6901419e-05,.6980572e-05,.6815694e-05,&
15777  & .6375015e-05,.4396734e-05,.3547696e-05,.5422743e-05,.6499204e-05,&
15778  & .7185087e-05,.7588601e-05,.7739029e-05,.7620329e-05,.7212753e-05,&
15779  & .5186395e-05,.3563976e-05,.5729219e-05,.6960032e-05,.7748552e-05,&
15780  & .8240995e-05,.8448645e-05,.8371310e-05,.7991578e-05,.5921336e-05,&
15781  & .2903406e-05,.3807717e-05,.4284968e-05,.4550532e-05,.4671249e-05,&
15782  & .4645256e-05,.4435665e-05,.4014615e-05,.2368786e-05,.2932650e-05,&
15783  & .4056866e-05,.4656270e-05,.5027012e-05,.5216501e-05,.5228575e-05,&
15784  & .5042545e-05,.4630358e-05,.2886709e-05,.2956965e-05,.4316547e-05,&
15785  & .5055602e-05,.5525523e-05,.5778913e-05,.5837818e-05,.5685140e-05,&
15786  & .5291024e-05,.3454518e-05,.2976066e-05,.4585564e-05,.5471875e-05,&
15787  & .6031035e-05,.6358030e-05,.6472254e-05,.6355066e-05,.5985167e-05,&
15788  & .4072052e-05,.2992113e-05,.4870065e-05,.5900799e-05,.6563641e-05,&
15789  & .6978014e-05,.7155318e-05,.7090308e-05,.6756111e-05,.4779983e-05/
15790 
15791  data absa(181:315, 1) / &
15792  & .2416301e-05,.3175817e-05,.3551611e-05,.3757653e-05,.3845981e-05,&
15793  & .3806815e-05,.3615925e-05,.3248989e-05,.1807537e-05,.2442982e-05,&
15794  & .3391649e-05,.3872022e-05,.4168023e-05,.4314273e-05,.4308869e-05,&
15795  & .4135096e-05,.3773612e-05,.2229249e-05,.2464689e-05,.3616511e-05,&
15796  & .4219290e-05,.4597739e-05,.4800153e-05,.4835853e-05,.4687880e-05,&
15797  & .4341846e-05,.2697930e-05,.2482346e-05,.3851272e-05,.4579688e-05,&
15798  & .5036754e-05,.5303465e-05,.5384276e-05,.5269123e-05,.4942816e-05,&
15799  & .3211571e-05,.2496958e-05,.4103453e-05,.4953618e-05,.5507193e-05,&
15800  & .5845841e-05,.5983458e-05,.5915896e-05,.5620275e-05,.3806808e-05,&
15801  & .1999899e-05,.2625031e-05,.2915420e-05,.3071867e-05,.3124395e-05,&
15802  & .3072646e-05,.2900498e-05,.2587050e-05,.1352887e-05,.2024083e-05,&
15803  & .2809833e-05,.3188693e-05,.3420314e-05,.3522509e-05,.3496553e-05,&
15804  & .3339109e-05,.3027660e-05,.1693245e-05,.2044050e-05,.3003017e-05,&
15805  & .3487914e-05,.3787092e-05,.3938052e-05,.3945979e-05,.3809484e-05,&
15806  & .3508701e-05,.2075300e-05,.2060639e-05,.3207415e-05,.3796719e-05,&
15807  & .4165268e-05,.4370415e-05,.4417121e-05,.4305496e-05,.4021839e-05,&
15808  & .2497828e-05,.2073109e-05,.3422126e-05,.4107505e-05,.4555166e-05,&
15809  & .4814366e-05,.4903671e-05,.4826510e-05,.4567702e-05,.2956470e-05,&
15810  & .1648342e-05,.2157145e-05,.2379934e-05,.2491203e-05,.2516412e-05,&
15811  & .2455538e-05,.2301740e-05,.2037661e-05,.1000718e-05,.1669893e-05,&
15812  & .2314044e-05,.2612275e-05,.2784581e-05,.2848144e-05,.2810417e-05,&
15813  & .2667632e-05,.2403320e-05,.1271614e-05,.1688235e-05,.2479334e-05,&
15814  & .2867128e-05,.3096477e-05,.3197978e-05,.3188985e-05,.3063442e-05,&
15815  & .2806027e-05,.1579154e-05,.1703269e-05,.2655822e-05,.3129870e-05,&
15816  & .3418130e-05,.3565529e-05,.3589051e-05,.3483463e-05,.3238464e-05,&
15817  & .1922786e-05,.1714256e-05,.2841908e-05,.3397528e-05,.3751189e-05,&
15818  & .3946139e-05,.4003586e-05,.3926825e-05,.3703912e-05,.2299592e-05/
15819 
15820  data absa(316:450, 1) / &
15821  & .1353974e-05,.1765068e-05,.1932966e-05,.2007855e-05,.2012902e-05,&
15822  & .1948449e-05,.1811997e-05,.1592898e-05,.7335145e-06,.1373071e-05,&
15823  & .1897413e-05,.2129239e-05,.2252513e-05,.2286864e-05,.2242429e-05,&
15824  & .2114952e-05,.1891560e-05,.9471789e-06,.1389649e-05,.2038030e-05,&
15825  & .2344379e-05,.2513362e-05,.2580054e-05,.2558580e-05,.2443905e-05,&
15826  & .2225644e-05,.1192247e-05,.1403159e-05,.2190301e-05,.2568252e-05,&
15827  & .2784775e-05,.2889879e-05,.2895016e-05,.2795830e-05,.2587464e-05,&
15828  & .1469124e-05,.1413141e-05,.2349730e-05,.2797042e-05,.3067316e-05,&
15829  & .3212459e-05,.3245440e-05,.3170497e-05,.2979658e-05,.1775814e-05,&
15830  & .1109176e-05,.1438260e-05,.1560320e-05,.1608170e-05,.1598482e-05,&
15831  & .1534740e-05,.1415276e-05,.1235245e-05,.5310552e-06,.1125890e-05,&
15832  & .1549645e-05,.1724605e-05,.1809358e-05,.1823301e-05,.1775680e-05,&
15833  & .1662906e-05,.1476017e-05,.6978386e-06,.1140697e-05,.1669212e-05,&
15834  & .1904678e-05,.2026271e-05,.2067267e-05,.2037250e-05,.1934040e-05,&
15835  & .1748711e-05,.8911666e-06,.1152696e-05,.1799505e-05,.2093197e-05,&
15836  & .2254146e-05,.2325995e-05,.2316830e-05,.2226050e-05,.2048536e-05,&
15837  & .1112322e-05,.1161759e-05,.1935095e-05,.2286766e-05,.2492651e-05,&
15838  & .2596669e-05,.2611477e-05,.2539447e-05,.2375149e-05,.1359322e-05,&
15839  & .9077717e-06,.1174065e-05,.1263812e-05,.1292739e-05,.1275331e-05,&
15840  & .1215719e-05,.1112922e-05,.9650216e-06,.3899969e-06,.9222425e-06,&
15841  & .1268083e-05,.1400764e-05,.1458340e-05,.1460261e-05,.1413218e-05,&
15842  & .1314688e-05,.1159764e-05,.5200394e-06,.9352421e-06,.1370113e-05,&
15843  & .1550495e-05,.1639021e-05,.1662747e-05,.1629076e-05,.1537446e-05,&
15844  & .1381442e-05,.6733322e-06,.9455894e-06,.1481006e-05,.1708811e-05,&
15845  & .1830099e-05,.1878238e-05,.1861201e-05,.1779442e-05,.1628569e-05,&
15846  & .8501168e-06,.9536626e-06,.1596411e-05,.1872605e-05,.2030381e-05,&
15847  & .2104312e-05,.2107801e-05,.2041174e-05,.1900067e-05,.1049009e-05/
15848 
15849  data absa(451:585, 1) / &
15850  & .7476406e-06,.9904317e-06,.1070509e-05,.1095431e-05,.1080587e-05,&
15851  & .1030695e-05,.9437084e-06,.8190527e-06,.3284667e-06,.7596122e-06,&
15852  & .1072730e-05,.1188660e-05,.1237753e-05,.1239815e-05,.1198979e-05,&
15853  & .1115702e-05,.9855200e-06,.4385665e-06,.7699182e-06,.1162790e-05,&
15854  & .1317244e-05,.1392618e-05,.1412049e-05,.1383498e-05,.1305642e-05,&
15855  & .1175399e-05,.5683962e-06,.7780771e-06,.1258890e-05,.1452488e-05,&
15856  & .1555737e-05,.1595474e-05,.1580904e-05,.1512840e-05,.1387631e-05,&
15857  & .7175693e-06,.7842272e-06,.1356608e-05,.1593107e-05,.1725648e-05,&
15858  & .1788723e-05,.1792615e-05,.1737571e-05,.1621220e-05,.8851099e-06,&
15859  & .6151816e-06,.8344601e-06,.9039065e-06,.9253730e-06,.9133751e-06,&
15860  & .8709904e-06,.7977024e-06,.6919990e-06,.2763894e-06,.6250011e-06,&
15861  & .9064917e-06,.1005419e-05,.1047668e-05,.1048849e-05,.1014123e-05,&
15862  & .9437407e-06,.8343490e-06,.3694765e-06,.6331236e-06,.9841850e-06,&
15863  & .1115823e-05,.1179325e-05,.1194996e-05,.1170425e-05,.1105130e-05,&
15864  & .9965785e-06,.4789252e-06,.6395688e-06,.1066132e-05,.1231039e-05,&
15865  & .1317746e-05,.1350903e-05,.1338577e-05,.1281845e-05,.1177960e-05,&
15866  & .6042803e-06,.6438610e-06,.1149508e-05,.1350173e-05,.1462385e-05,&
15867  & .1516252e-05,.1519539e-05,.1474251e-05,.1378037e-05,.7447887e-06,&
15868  & .5057177e-06,.7019314e-06,.7608992e-06,.7796527e-06,.7694622e-06,&
15869  & .7335795e-06,.6717508e-06,.5829027e-06,.2320809e-06,.5135675e-06,&
15870  & .7639636e-06,.8482237e-06,.8838364e-06,.8842773e-06,.8547719e-06,&
15871  & .7955572e-06,.7038419e-06,.3103090e-06,.5201276e-06,.8305264e-06,&
15872  & .9421352e-06,.9952533e-06,.1007989e-05,.9869406e-06,.9321635e-06,&
15873  & .8418452e-06,.4021416e-06,.5249168e-06,.9003622e-06,.1040066e-05,&
15874  & .1112264e-05,.1140134e-05,.1130238e-05,.1082715e-05,.9969161e-06,&
15875  & .5069884e-06,.5279947e-06,.9718501e-06,.1141014e-05,.1235721e-05,&
15876  & .1280968e-05,.1284659e-05,.1246723e-05,.1167012e-05,.6247983e-06/
15877 
15878  data absa( 1:180, 2) / &
15879  & .3134144e-03,.2768907e-03,.2479948e-03,.2249616e-03,.2061518e-03,&
15880  & .1911399e-03,.1804902e-03,.1753720e-03,.1923166e-03,.3125459e-03,&
15881  & .2772983e-03,.2516939e-03,.2326523e-03,.2182683e-03,.2084544e-03,&
15882  & .2037087e-03,.2047079e-03,.2282142e-03,.3117491e-03,.2781161e-03,&
15883  & .2564198e-03,.2417736e-03,.2327659e-03,.2290275e-03,.2305224e-03,&
15884  & .2382043e-03,.2687208e-03,.3110029e-03,.2794674e-03,.2621069e-03,&
15885  & .2527413e-03,.2498662e-03,.2527146e-03,.2610136e-03,.2760286e-03,&
15886  & .3138217e-03,.3102439e-03,.2812588e-03,.2688570e-03,.2657349e-03,&
15887  & .2695233e-03,.2795220e-03,.2951889e-03,.3180254e-03,.3635083e-03,&
15888  & .3250728e-03,.2877719e-03,.2582845e-03,.2339301e-03,.2130875e-03,&
15889  & .1957091e-03,.1821765e-03,.1732917e-03,.1869083e-03,.3243276e-03,&
15890  & .2884264e-03,.2623057e-03,.2418236e-03,.2253898e-03,.2131266e-03,&
15891  & .2052326e-03,.2020436e-03,.2226017e-03,.3236251e-03,.2895634e-03,&
15892  & .2672790e-03,.2513043e-03,.2401735e-03,.2337268e-03,.2318615e-03,&
15893  & .2350471e-03,.2629556e-03,.3229411e-03,.2911957e-03,.2732898e-03,&
15894  & .2627372e-03,.2575851e-03,.2574466e-03,.2622274e-03,.2724290e-03,&
15895  & .3080495e-03,.3222901e-03,.2933218e-03,.2805641e-03,.2761631e-03,&
15896  & .2774714e-03,.2843448e-03,.2963172e-03,.3141300e-03,.3578779e-03,&
15897  & .3356807e-03,.2975818e-03,.2669711e-03,.2405827e-03,.2171280e-03,&
15898  & .1965563e-03,.1793297e-03,.1660515e-03,.1747079e-03,.3350220e-03,&
15899  & .2984105e-03,.2711015e-03,.2483929e-03,.2291853e-03,.2134785e-03,&
15900  & .2014226e-03,.1935279e-03,.2091221e-03,.3343949e-03,.2997564e-03,&
15901  & .2761602e-03,.2578485e-03,.2437572e-03,.2334625e-03,.2271012e-03,&
15902  & .2251640e-03,.2482498e-03,.3338041e-03,.3015868e-03,.2822818e-03,&
15903  & .2693005e-03,.2608828e-03,.2565529e-03,.2565695e-03,.2612161e-03,&
15904  & .2921963e-03,.3332193e-03,.3039287e-03,.2897558e-03,.2827271e-03,&
15905  & .2804955e-03,.2828580e-03,.2898279e-03,.3016339e-03,.3409420e-03,&
15906  & .3450280e-03,.3062487e-03,.2743678e-03,.2459208e-03,.2198163e-03,&
15907  & .1960751e-03,.1752958e-03,.1579201e-03,.1604421e-03,.3444259e-03,&
15908  & .3072374e-03,.2785358e-03,.2535346e-03,.2314569e-03,.2122613e-03,&
15909  & .1962491e-03,.1838764e-03,.1931422e-03,.3438771e-03,.3087236e-03,&
15910  & .2835940e-03,.2628376e-03,.2455747e-03,.2314574e-03,.2207572e-03,&
15911  & .2139307e-03,.2305496e-03,.3433424e-03,.3107056e-03,.2897639e-03,&
15912  & .2741158e-03,.2622176e-03,.2537611e-03,.2490381e-03,.2483736e-03,&
15913  & .2727973e-03,.3428143e-03,.3132078e-03,.2972996e-03,.2873501e-03,&
15914  & .2814114e-03,.2793015e-03,.2811140e-03,.2872362e-03,.3200560e-03/
15915 
15916  data absa(181:315, 2) / &
15917  & .3531053e-03,.3137584e-03,.2806342e-03,.2502419e-03,.2217600e-03,&
15918  & .1953442e-03,.1713669e-03,.1502203e-03,.1465365e-03,.3525451e-03,&
15919  & .3148795e-03,.2847860e-03,.2576829e-03,.2329973e-03,.2107590e-03,&
15920  & .1912366e-03,.1747357e-03,.1774476e-03,.3520500e-03,.3165091e-03,&
15921  & .2898443e-03,.2668091e-03,.2466298e-03,.2291220e-03,.2146066e-03,&
15922  & .2032519e-03,.2129838e-03,.3515817e-03,.3186337e-03,.2960481e-03,&
15923  & .2778468e-03,.2627291e-03,.2506136e-03,.2416613e-03,.2361063e-03,&
15924  & .2533676e-03,.3511001e-03,.3212433e-03,.3036225e-03,.2908003e-03,&
15925  & .2814464e-03,.2753399e-03,.2725583e-03,.2734290e-03,.2989606e-03,&
15926  & .3599961e-03,.3201297e-03,.2856670e-03,.2533754e-03,.2227636e-03,&
15927  & .1938352e-03,.1668527e-03,.1421432e-03,.1323787e-03,.3595027e-03,&
15928  & .3213444e-03,.2897706e-03,.2605819e-03,.2334763e-03,.2084445e-03,&
15929  & .1855378e-03,.1651107e-03,.1612872e-03,.3590452e-03,.3230619e-03,&
15930  & .2947399e-03,.2694228e-03,.2465064e-03,.2258970e-03,.2076219e-03,&
15931  & .1919813e-03,.1947351e-03,.3586303e-03,.3252517e-03,.3009081e-03,&
15932  & .2801177e-03,.2619774e-03,.2463994e-03,.2333786e-03,.2231210e-03,&
15933  & .2329972e-03,.3581989e-03,.3279250e-03,.3083841e-03,.2926945e-03,&
15934  & .2800511e-03,.2701445e-03,.2629339e-03,.2586312e-03,.2762878e-03,&
15935  & .3658182e-03,.3254390e-03,.2896752e-03,.2557287e-03,.2231665e-03,&
15936  & .1919902e-03,.1623152e-03,.1344214e-03,.1190659e-03,.3653707e-03,&
15937  & .3267289e-03,.2936760e-03,.2626621e-03,.2334132e-03,.2057935e-03,&
15938  & .1798675e-03,.1559010e-03,.1460080e-03,.3649726e-03,.3284984e-03,&
15939  & .2985492e-03,.2711719e-03,.2458593e-03,.2223271e-03,.2006879e-03,&
15940  & .1811555e-03,.1773614e-03,.3645857e-03,.3307244e-03,.3046099e-03,&
15941  & .2814987e-03,.2606681e-03,.2418349e-03,.2250909e-03,.2105867e-03,&
15942  & .2134590e-03,.3642185e-03,.3334525e-03,.3119355e-03,.2937036e-03,&
15943  & .2780069e-03,.2645516e-03,.2532548e-03,.2443282e-03,.2545442e-03/
15944 
15945  data absa(316:450, 2) / &
15946  & .3706916e-03,.3298152e-03,.2928733e-03,.2574333e-03,.2231173e-03,&
15947  & .1899407e-03,.1579051e-03,.1272072e-03,.1069023e-03,.3702964e-03,&
15948  & .3311594e-03,.2967583e-03,.2641125e-03,.2329078e-03,.2029732e-03,&
15949  & .1743745e-03,.1473211e-03,.1319665e-03,.3699285e-03,.3329585e-03,&
15950  & .3015284e-03,.2723221e-03,.2447616e-03,.2186223e-03,.1939959e-03,&
15951  & .1710321e-03,.1612919e-03,.3695766e-03,.3351892e-03,.3074184e-03,&
15952  & .2822618e-03,.2589063e-03,.2371561e-03,.2170927e-03,.1987943e-03,&
15953  & .1952513e-03,.3692655e-03,.3379605e-03,.3145686e-03,.2940369e-03,&
15954  & .2755227e-03,.2588395e-03,.2438914e-03,.2307984e-03,.2341519e-03,&
15955  & .3747630e-03,.3333819e-03,.2953456e-03,.2585076e-03,.2226014e-03,&
15956  & .1875711e-03,.1534395e-03,.1202799e-03,.9562602e-04,.3743949e-03,&
15957  & .3347353e-03,.2991026e-03,.2649281e-03,.2319014e-03,.1998657e-03,&
15958  & .1688739e-03,.1390792e-03,.1188772e-03,.3740704e-03,.3365341e-03,&
15959  & .3037434e-03,.2727874e-03,.2431388e-03,.2146370e-03,.1873092e-03,&
15960  & .1613140e-03,.1462150e-03,.3737686e-03,.3387595e-03,.3094625e-03,&
15961  & .2823102e-03,.2566053e-03,.2321963e-03,.2091128e-03,.1874298e-03,&
15962  & .1780428e-03,.3734709e-03,.3415160e-03,.3163831e-03,.2936218e-03,&
15963  & .2724956e-03,.2528123e-03,.2345043e-03,.2177162e-03,.2147257e-03,&
15964  & .3781153e-03,.3363497e-03,.2974396e-03,.2595086e-03,.2223300e-03,&
15965  & .1858397e-03,.1500339e-03,.1149605e-03,.8681636e-04,.3777843e-03,&
15966  & .3377331e-03,.3011323e-03,.2657468e-03,.2312660e-03,.1975718e-03,&
15967  & .1646999e-03,.1327485e-03,.1086418e-03,.3774794e-03,.3395301e-03,&
15968  & .3057000e-03,.2733530e-03,.2420489e-03,.2116788e-03,.1822379e-03,&
15969  & .1538334e-03,.1343822e-03,.3772048e-03,.3417633e-03,.3112954e-03,&
15970  & .2825617e-03,.2549956e-03,.2284826e-03,.2030187e-03,.1786623e-03,&
15971  & .1644876e-03,.3769456e-03,.3445443e-03,.3180728e-03,.2935143e-03,&
15972  & .2703103e-03,.2482498e-03,.2273178e-03,.2075828e-03,.1993535e-03/
15973 
15974  data absa(451:585, 2) / &
15975  & .3807336e-03,.3393314e-03,.3005620e-03,.2626883e-03,.2254498e-03,&
15976  & .1887780e-03,.1527070e-03,.1172356e-03,.8770656e-04,.3804457e-03,&
15977  & .3409096e-03,.3045588e-03,.2692926e-03,.2347827e-03,.2009743e-03,&
15978  & .1678340e-03,.1354561e-03,.1098393e-03,.3801856e-03,.3428944e-03,&
15979  & .3094604e-03,.2773048e-03,.2460506e-03,.2155751e-03,.1858896e-03,&
15980  & .1570450e-03,.1359353e-03,.3799496e-03,.3453641e-03,.3154279e-03,&
15981  & .2869512e-03,.2594977e-03,.2329282e-03,.2072109e-03,.1824185e-03,&
15982  & .1664584e-03,.3797085e-03,.3484177e-03,.3225651e-03,.2983903e-03,&
15983  & .2753339e-03,.2532382e-03,.2320873e-03,.2119269e-03,.2018178e-03,&
15984  & .3829042e-03,.3418780e-03,.3032789e-03,.2654560e-03,.2281697e-03,&
15985  & .1913858e-03,.1550847e-03,.1193084e-03,.8855999e-04,.3826538e-03,&
15986  & .3436246e-03,.3075479e-03,.2723898e-03,.2378998e-03,.2039790e-03,&
15987  & .1706332e-03,.1379197e-03,.1109681e-03,.3824225e-03,.3458050e-03,&
15988  & .3127369e-03,.2807746e-03,.2495908e-03,.2190408e-03,.1891472e-03,&
15989  & .1599572e-03,.1373987e-03,.3822117e-03,.3485078e-03,.3190368e-03,&
15990  & .2908289e-03,.2634888e-03,.2368723e-03,.2109681e-03,.1858311e-03,&
15991  & .1683087e-03,.3819986e-03,.3517908e-03,.3265146e-03,.3026775e-03,&
15992  & .2797758e-03,.2576864e-03,.2363700e-03,.2158850e-03,.2040952e-03,&
15993  & .3846876e-03,.3440378e-03,.3056059e-03,.2678315e-03,.2305157e-03,&
15994  & .1936247e-03,.1571344e-03,.1210869e-03,.8928501e-04,.3844746e-03,&
15995  & .3459486e-03,.3101125e-03,.2750561e-03,.2405776e-03,.2065779e-03,&
15996  & .1730455e-03,.1400443e-03,.1119334e-03,.3842745e-03,.3483142e-03,&
15997  & .3155650e-03,.2837694e-03,.2526251e-03,.2220255e-03,.1919644e-03,&
15998  & .1624719e-03,.1386492e-03,.3840848e-03,.3512033e-03,.3221367e-03,&
15999  & .2941685e-03,.2669103e-03,.2402530e-03,.2142043e-03,.1887786e-03,&
16000  & .1698933e-03,.3839069e-03,.3546918e-03,.3299208e-03,.3063646e-03,&
16001  & .2835973e-03,.2614972e-03,.2400614e-03,.2193165e-03,.2060528e-03/
16002 
16003 
16004  data absb( 1:120, 1) / &
16005  & .1148431e-07,.1166076e-07,.1181018e-07,.1191914e-07,.1198918e-07,&
16006  & .9447302e-08,.9588853e-08,.9702321e-08,.9781170e-08,.9829657e-08,&
16007  & .7768804e-08,.7881241e-08,.7964406e-08,.8027339e-08,.8064535e-08,&
16008  & .6387323e-08,.6478389e-08,.6541760e-08,.6584671e-08,.6611940e-08,&
16009  & .5258216e-08,.5325260e-08,.5372095e-08,.5406858e-08,.5433075e-08,&
16010  & .4325046e-08,.4376631e-08,.4414720e-08,.4442940e-08,.4468040e-08,&
16011  & .3558904e-08,.3599790e-08,.3631084e-08,.3656572e-08,.3675668e-08,&
16012  & .2928994e-08,.2962935e-08,.2992609e-08,.3011945e-08,.3028560e-08,&
16013  & .2410261e-08,.2440986e-08,.2461561e-08,.2481755e-08,.2502470e-08,&
16014  & .1987605e-08,.2009776e-08,.2031171e-08,.2053325e-08,.2074842e-08,&
16015  & .1638935e-08,.1660456e-08,.1681270e-08,.1702299e-08,.1720110e-08,&
16016  & .1354484e-08,.1373198e-08,.1393541e-08,.1411146e-08,.1425870e-08,&
16017  & .1120107e-08,.1139127e-08,.1154912e-08,.1169427e-08,.1184272e-08,&
16018  & .9286718e-09,.9430320e-09,.9571872e-09,.9708633e-09,.9838995e-09,&
16019  & .7699187e-09,.7826246e-09,.7946201e-09,.8067476e-09,.8192210e-09,&
16020  & .6396450e-09,.6506736e-09,.6618526e-09,.6737570e-09,.6838369e-09,&
16021  & .5326710e-09,.5429777e-09,.5542978e-09,.5638603e-09,.5735975e-09,&
16022  & .4444457e-09,.4553219e-09,.4646430e-09,.4739935e-09,.4848399e-09,&
16023  & .3733850e-09,.3825372e-09,.3906037e-09,.4005917e-09,.4095546e-09,&
16024  & .3137446e-09,.3209559e-09,.3301769e-09,.3382360e-09,.3459685e-09,&
16025  & .2630519e-09,.2710057e-09,.2790274e-09,.2856675e-09,.2926209e-09,&
16026  & .2217405e-09,.2292329e-09,.2353810e-09,.2416136e-09,.2479216e-09,&
16027  & .1867928e-09,.1929235e-09,.1984309e-09,.2043657e-09,.2098748e-09,&
16028  & .1569163e-09,.1620869e-09,.1668054e-09,.1724993e-09,.1773310e-09/
16029 
16030  data absb(121:235, 1) / &
16031  & .1308096e-09,.1354063e-09,.1397323e-09,.1448444e-09,.1490380e-09,&
16032  & .1091276e-09,.1131669e-09,.1173393e-09,.1217436e-09,.1254286e-09,&
16033  & .9109868e-10,.9461754e-10,.9833961e-10,.1018699e-09,.1054553e-09,&
16034  & .7563445e-10,.7868380e-10,.8193156e-10,.8518848e-10,.8844146e-10,&
16035  & .6263641e-10,.6531415e-10,.6821057e-10,.7108715e-10,.7394727e-10,&
16036  & .5187154e-10,.5419548e-10,.5674107e-10,.5926221e-10,.6180436e-10,&
16037  & .4271996e-10,.4475106e-10,.4699608e-10,.4922324e-10,.5127378e-10,&
16038  & .3507508e-10,.3687109e-10,.3881362e-10,.4074018e-10,.4258146e-10,&
16039  & .2877982e-10,.3031418e-10,.3201489e-10,.3369063e-10,.3530266e-10,&
16040  & .2354780e-10,.2487550e-10,.2632461e-10,.2777491e-10,.2921257e-10,&
16041  & .1917857e-10,.2030852e-10,.2155848e-10,.2281480e-10,.2406339e-10,&
16042  & .1560083e-10,.1657804e-10,.1762140e-10,.1871016e-10,.1980295e-10,&
16043  & .1265679e-10,.1349811e-10,.1439672e-10,.1532257e-10,.1626259e-10,&
16044  & .1025893e-10,.1099795e-10,.1174551e-10,.1253606e-10,.1335795e-10,&
16045  & .8310093e-11,.8943449e-11,.9572090e-11,.1024901e-10,.1095019e-10,&
16046  & .6730157e-11,.7257352e-11,.7793431e-11,.8371987e-11,.8975155e-11,&
16047  & .5435177e-11,.5888298e-11,.6335711e-11,.6830724e-11,.7343180e-11,&
16048  & .4401117e-11,.4770132e-11,.5149810e-11,.5568023e-11,.6001500e-11,&
16049  & .3553186e-11,.3856211e-11,.4189341e-11,.4542349e-11,.4912188e-11,&
16050  & .2869971e-11,.3121146e-11,.3397253e-11,.3695718e-11,.4009005e-11,&
16051  & .2316841e-11,.2524409e-11,.2751777e-11,.3000391e-11,.3264281e-11,&
16052  & .1868320e-11,.2038026e-11,.2227552e-11,.2436194e-11,.2658837e-11,&
16053  & .1531264e-11,.1674283e-11,.1835257e-11,.2010670e-11,.2200480e-11/
16054 
16055  data absb( 1:120, 2) / &
16056  & .8735620e-05,.8730295e-05,.8725985e-05,.8721791e-05,.8717868e-05,&
16057  & .8768835e-05,.8764701e-05,.8760332e-05,.8756520e-05,.8752933e-05,&
16058  & .8796329e-05,.8792037e-05,.8788589e-05,.8785089e-05,.8781325e-05,&
16059  & .8818502e-05,.8814986e-05,.8812031e-05,.8808408e-05,.8804794e-05,&
16060  & .8836927e-05,.8833555e-05,.8830851e-05,.8827746e-05,.8824444e-05,&
16061  & .8852216e-05,.8849478e-05,.8846711e-05,.8842936e-05,.8839425e-05,&
16062  & .8864508e-05,.8861820e-05,.8858820e-05,.8855571e-05,.8852261e-05,&
16063  & .8874870e-05,.8872004e-05,.8869799e-05,.8866369e-05,.8862109e-05,&
16064  & .8883129e-05,.8880356e-05,.8877848e-05,.8874404e-05,.8870894e-05,&
16065  & .8890022e-05,.8886869e-05,.8884553e-05,.8881040e-05,.8876761e-05,&
16066  & .8894947e-05,.8892776e-05,.8889874e-05,.8886360e-05,.8882208e-05,&
16067  & .8899699e-05,.8896942e-05,.8893922e-05,.8890629e-05,.8886217e-05,&
16068  & .8903090e-05,.8900055e-05,.8897299e-05,.8893628e-05,.8888999e-05,&
16069  & .8905522e-05,.8902992e-05,.8899724e-05,.8895896e-05,.8891197e-05,&
16070  & .8907716e-05,.8904994e-05,.8901656e-05,.8897848e-05,.8892455e-05,&
16071  & .8909085e-05,.8906056e-05,.8903176e-05,.8899099e-05,.8893887e-05,&
16072  & .8910421e-05,.8907592e-05,.8904343e-05,.8899582e-05,.8894302e-05,&
16073  & .8911657e-05,.8908291e-05,.8904615e-05,.8899966e-05,.8893877e-05,&
16074  & .8912045e-05,.8908750e-05,.8904978e-05,.8899891e-05,.8893523e-05,&
16075  & .8912007e-05,.8908554e-05,.8905008e-05,.8899598e-05,.8893271e-05,&
16076  & .8912113e-05,.8908681e-05,.8904415e-05,.8899216e-05,.8892224e-05,&
16077  & .8911996e-05,.8908643e-05,.8903701e-05,.8898193e-05,.8891198e-05,&
16078  & .8912323e-05,.8908424e-05,.8904030e-05,.8897838e-05,.8890898e-05,&
16079  & .8912745e-05,.8908995e-05,.8904478e-05,.8898387e-05,.8891021e-05/
16080 
16081  data absb(121:235, 2) / &
16082  & .8913438e-05,.8910133e-05,.8905684e-05,.8899336e-05,.8892605e-05,&
16083  & .8914238e-05,.8910808e-05,.8906957e-05,.8900965e-05,.8894403e-05,&
16084  & .8915350e-05,.8911585e-05,.8907534e-05,.8901916e-05,.8895407e-05,&
16085  & .8916208e-05,.8912694e-05,.8909062e-05,.8903707e-05,.8897419e-05,&
16086  & .8916842e-05,.8914357e-05,.8910350e-05,.8905322e-05,.8899560e-05,&
16087  & .8918148e-05,.8915052e-05,.8911721e-05,.8906637e-05,.8901314e-05,&
16088  & .8918763e-05,.8916311e-05,.8912939e-05,.8908528e-05,.8903349e-05,&
16089  & .8919788e-05,.8917267e-05,.8914201e-05,.8910219e-05,.8904947e-05,&
16090  & .8920650e-05,.8918085e-05,.8915570e-05,.8911600e-05,.8907370e-05,&
16091  & .8921233e-05,.8919303e-05,.8916881e-05,.8913302e-05,.8909080e-05,&
16092  & .8922720e-05,.8920411e-05,.8917844e-05,.8914538e-05,.8910801e-05,&
16093  & .8923377e-05,.8921620e-05,.8918941e-05,.8916117e-05,.8912493e-05,&
16094  & .8924238e-05,.8922269e-05,.8920225e-05,.8917590e-05,.8913869e-05,&
16095  & .8925304e-05,.8923279e-05,.8920969e-05,.8918470e-05,.8915390e-05,&
16096  & .8926224e-05,.8924279e-05,.8921984e-05,.8919554e-05,.8916354e-05,&
16097  & .8926896e-05,.8924592e-05,.8922547e-05,.8920115e-05,.8917801e-05,&
16098  & .8927945e-05,.8925423e-05,.8923860e-05,.8921064e-05,.8918600e-05,&
16099  & .8928033e-05,.8926417e-05,.8923949e-05,.8921931e-05,.8919379e-05,&
16100  & .8929706e-05,.8927053e-05,.8924754e-05,.8922728e-05,.8920444e-05,&
16101  & .8929850e-05,.8927620e-05,.8925048e-05,.8923373e-05,.8920887e-05,&
16102  & .8931261e-05,.8928697e-05,.8925909e-05,.8924267e-05,.8921512e-05,&
16103  & .8931652e-05,.8929478e-05,.8926979e-05,.8924651e-05,.8922436e-05,&
16104  & .8932405e-05,.8929827e-05,.8927149e-05,.8924663e-05,.8922710e-05/
16105 
16106 ! ---
16107  data forref(1:3,1: 2) / .8005249e-06,&
16108  & .8929867e-06,.9310644e-06,.2367132e-05,.8712965e-06,.2553141e-06/
16109 
16110 
16111  data selfref(1:10,1: 2) / &
16112  & .1890754e-03,.1626696e-03,.1404954e-03,.1218179e-03,.1060361e-03,&
16113  & .9265747e-04,.8127769e-04,.7156485e-04,.6324571e-04,.5609450e-04,&
16114  & .1435463e-03,.1416034e-03,.1400831e-03,.1390223e-03,.1384643e-03,&
16115  & .1384633e-03,.1390821e-03,.1403951e-03,.1424925e-03,.1454806e-03/
16116 
16117 !........................................!
16118  end module module_radsw_kgb22 !
16119 !========================================!
16120 
16121 
16124 !========================================!
16126 !........................................!
16127 !
16128 ! ********* the original program descriptions ********* !
16129 ! !
16130 ! originally by j.delamere, atmospheric & environmental research. !
16131 ! revision: 2.4 !
16132 ! band 23: 8050-12850 cm-1 (low - h2o; high - nothing) !
16133 ! reformatted for f90 by jjmorcrette, ecmwf !
16134 ! !
16135 ! this table has been re-generated for reduced number of g-point !
16136 ! by y.t.hou, ncep !
16137 ! !
16138 ! ********* ********* end description ********* ********* !
16139 !
16140  use physparam, only : kind_phys
16141  use module_radsw_parameters, only : ng23
16142 
16143 !
16144  implicit none
16145 !
16146  private
16147 !
16149  integer, public :: msa23
16151  integer, public :: msf23
16153  integer, public :: mfr23
16154  parameter(msa23=65, msf23=10, mfr23=3)
16155 
16156  real (kind=kind_phys), public :: forref(mfr23,ng23)
16157 
16173  real (kind=kind_phys), public :: absa(msa23,ng23)
16174 
16180  real (kind=kind_phys), public :: selfref(msf23,ng23)
16181 
16183  real (kind=kind_phys), public :: rayl(ng23)
16184 
16186  real (kind=kind_phys), parameter, public :: givfac = 1.029
16187 
16188 ! --- rayleigh extinction coefficient at all v
16189  data rayl(1:10) / &
16190  & .5828588e-07,.5935776e-07,.5255710e-07,.4733880e-07,.4174660e-07,&
16191  & .3980970e-07,.4007860e-07,.3674780e-07,.3456143e-07,.3212082e-07/
16192 
16193  data absa( 1: 65, 1) / &
16194  & .4349017e-06,.4470059e-06,.4658775e-06,.4619598e-06,.4690252e-06,&
16195  & .3442571e-06,.3522645e-06,.3709106e-06,.3777774e-06,.3744779e-06,&
16196  & .2678674e-06,.2763444e-06,.2843822e-06,.2996831e-06,.2973083e-06,&
16197  & .2115438e-06,.2202997e-06,.2278028e-06,.2342144e-06,.2458529e-06,&
16198  & .1770743e-06,.1850806e-06,.1926042e-06,.1976887e-06,.2082632e-06,&
16199  & .2400161e-06,.2495213e-06,.2584593e-06,.2672377e-06,.2743845e-06,&
16200  & .2965188e-06,.3124621e-06,.3263585e-06,.3361788e-06,.3465234e-06,&
16201  & .5867176e-06,.6150627e-06,.6378628e-06,.6634773e-06,.6794765e-06,&
16202  & .2613851e-05,.2661762e-05,.2697551e-05,.2717845e-05,.2731026e-05,&
16203  & .4391054e-05,.4625930e-05,.4834719e-05,.5033254e-05,.5183516e-05,&
16204  & .5804333e-05,.6050090e-05,.6263521e-05,.6493135e-05,.6671565e-05,&
16205  & .6793586e-05,.7078673e-05,.7345537e-05,.7567607e-05,.7770683e-05,&
16206  & .7689857e-05,.8029923e-05,.8306724e-05,.8523862e-05,.8740922e-05/
16207 
16208  data absa( 1: 65, 2) / &
16209  & .1671495e-04,.1698172e-04,.1762477e-04,.1736035e-04,.1748475e-04,&
16210  & .1392235e-04,.1415328e-04,.1470623e-04,.1483132e-04,.1457076e-04,&
16211  & .1145651e-04,.1165559e-04,.1181059e-04,.1229573e-04,.1205623e-04,&
16212  & .9472038e-05,.9654257e-05,.9802561e-05,.9927636e-05,.1031608e-04,&
16213  & .7831263e-05,.7996876e-05,.8135117e-05,.8252891e-05,.8598083e-05,&
16214  & .6358154e-05,.6506960e-05,.6630804e-05,.6734304e-05,.6813372e-05,&
16215  & .5148405e-05,.5280721e-05,.5396333e-05,.5487849e-05,.5553536e-05,&
16216  & .5133743e-05,.5259110e-05,.5361676e-05,.5436170e-05,.5502268e-05,&
16217  & .1218538e-04,.1263140e-04,.1302060e-04,.1326091e-04,.1346663e-04,&
16218  & .4141871e-04,.4267769e-04,.4394235e-04,.4496715e-04,.4594083e-04,&
16219  & .7068660e-04,.7240671e-04,.7377895e-04,.7506963e-04,.7606084e-04,&
16220  & .8723266e-04,.8870892e-04,.9006588e-04,.9131091e-04,.9244792e-04,&
16221  & .9151119e-04,.9291720e-04,.9438789e-04,.9568004e-04,.9699178e-04/
16222 
16223  data absa( 1: 65, 3) / &
16224  & .8285900e-04,.8481700e-04,.8905600e-04,.8805700e-04,.8941000e-04,&
16225  & .7093700e-04,.7268500e-04,.7679600e-04,.7795500e-04,.7673500e-04,&
16226  & .5987600e-04,.6144800e-04,.6283700e-04,.6629300e-04,.6499600e-04,&
16227  & .5059800e-04,.5205400e-04,.5329300e-04,.5433200e-04,.5733300e-04,&
16228  & .4274200e-04,.4403500e-04,.4516400e-04,.4613400e-04,.4893500e-04,&
16229  & .3576900e-04,.3697500e-04,.3803800e-04,.3891700e-04,.3968100e-04,&
16230  & .2974700e-04,.3082400e-04,.3175600e-04,.3258900e-04,.3331400e-04,&
16231  & .2199400e-04,.2294500e-04,.2378600e-04,.2451700e-04,.2515500e-04,&
16232  & .2229800e-04,.2268800e-04,.2312700e-04,.2380300e-04,.2433500e-04,&
16233  & .8889800e-04,.9128000e-04,.9333300e-04,.9522400e-04,.9629800e-04,&
16234  & .1229900e-03,.1240700e-03,.1253600e-03,.1264200e-03,.1281300e-03,&
16235  & .1453900e-03,.1485100e-03,.1502200e-03,.1515700e-03,.1520400e-03,&
16236  & .1594900e-03,.1623900e-03,.1646700e-03,.1666700e-03,.1680100e-03/
16237 
16238  data absa( 1: 65, 4) / &
16239  & .2533900e-03,.2599500e-03,.2717000e-03,.2696300e-03,.2741300e-03,&
16240  & .2190800e-03,.2240400e-03,.2352200e-03,.2390200e-03,.2371700e-03,&
16241  & .1861100e-03,.1907600e-03,.1951800e-03,.2050300e-03,.2022200e-03,&
16242  & .1576900e-03,.1621000e-03,.1659700e-03,.1694800e-03,.1781700e-03,&
16243  & .1340200e-03,.1379200e-03,.1415300e-03,.1443400e-03,.1526700e-03,&
16244  & .1139000e-03,.1174300e-03,.1206500e-03,.1231600e-03,.1254300e-03,&
16245  & .9641700e-04,.9961200e-04,.1023300e-03,.1045300e-03,.1065200e-03,&
16246  & .8139500e-04,.8420500e-04,.8634600e-04,.8840600e-04,.9012200e-04,&
16247  & .4777600e-04,.4897100e-04,.4973600e-04,.4991700e-04,.5028900e-04,&
16248  & .1069800e-03,.1081500e-03,.1081700e-03,.1079900e-03,.1085100e-03,&
16249  & .2022000e-03,.2072700e-03,.2124100e-03,.2167500e-03,.2198900e-03,&
16250  & .2347400e-03,.2360100e-03,.2397400e-03,.2438300e-03,.2487600e-03,&
16251  & .2341000e-03,.2380900e-03,.2418500e-03,.2455400e-03,.2495200e-03/
16252 
16253  data absa( 1: 65, 5) / &
16254  & .6702400e-03,.6802600e-03,.7041900e-03,.7015900e-03,.7108900e-03,&
16255  & .5872900e-03,.5977800e-03,.6209700e-03,.6291200e-03,.6242300e-03,&
16256  & .5096700e-03,.5190000e-03,.5276500e-03,.5479400e-03,.5426600e-03,&
16257  & .4416700e-03,.4500600e-03,.4579300e-03,.4646900e-03,.4833500e-03,&
16258  & .3809600e-03,.3888100e-03,.3957600e-03,.4025900e-03,.4208600e-03,&
16259  & .3281800e-03,.3353900e-03,.3419200e-03,.3482900e-03,.3540500e-03,&
16260  & .2825900e-03,.2894600e-03,.2958400e-03,.3020300e-03,.3074200e-03,&
16261  & .2427300e-03,.2491200e-03,.2554600e-03,.2611000e-03,.2660700e-03,&
16262  & .1993700e-03,.2065300e-03,.2131400e-03,.2196800e-03,.2252000e-03,&
16263  & .1330600e-03,.1333100e-03,.1339300e-03,.1353800e-03,.1361600e-03,&
16264  & .1623600e-03,.1615400e-03,.1618700e-03,.1611300e-03,.1620900e-03,&
16265  & .1787200e-03,.1835500e-03,.1861200e-03,.1879200e-03,.1874500e-03,&
16266  & .1897000e-03,.1938400e-03,.1977300e-03,.2026100e-03,.2037700e-03/
16267 
16268  data absa( 1: 65, 6) / &
16269  & .1813000e-02,.1830500e-02,.1871600e-02,.1865500e-02,.1881400e-02,&
16270  & .1642000e-02,.1660000e-02,.1700600e-02,.1715600e-02,.1710800e-02,&
16271  & .1468700e-02,.1487000e-02,.1504200e-02,.1542300e-02,.1537600e-02,&
16272  & .1306800e-02,.1324800e-02,.1342100e-02,.1359200e-02,.1396000e-02,&
16273  & .1157400e-02,.1175300e-02,.1192800e-02,.1209700e-02,.1246700e-02,&
16274  & .1016700e-02,.1034200e-02,.1051500e-02,.1068100e-02,.1084000e-02,&
16275  & .8899200e-03,.9066200e-03,.9229900e-03,.9384400e-03,.9534700e-03,&
16276  & .7844500e-03,.8003100e-03,.8163900e-03,.8313100e-03,.8463100e-03,&
16277  & .6981200e-03,.7131200e-03,.7280100e-03,.7422200e-03,.7560500e-03,&
16278  & .3252100e-03,.3383500e-03,.3519400e-03,.3638100e-03,.3759400e-03,&
16279  & .3140600e-03,.3201300e-03,.3245600e-03,.3326100e-03,.3374100e-03,&
16280  & .2813200e-03,.2873200e-03,.2967400e-03,.3050900e-03,.3139300e-03,&
16281  & .2570400e-03,.2631600e-03,.2719500e-03,.2773200e-03,.2890500e-03/
16282 
16283  data absa( 1: 65, 7) / &
16284  & .6737000e-02,.6787300e-02,.6889600e-02,.6881900e-02,.6926800e-02,&
16285  & .6311100e-02,.6362200e-02,.6462300e-02,.6506000e-02,.6502700e-02,&
16286  & .5883400e-02,.5936100e-02,.5985800e-02,.6081100e-02,.6080600e-02,&
16287  & .5475300e-02,.5530900e-02,.5582300e-02,.5630600e-02,.5722900e-02,&
16288  & .5078100e-02,.5137300e-02,.5189500e-02,.5239100e-02,.5332800e-02,&
16289  & .4679100e-02,.4740800e-02,.4794900e-02,.4847000e-02,.4899300e-02,&
16290  & .4272400e-02,.4338100e-02,.4395100e-02,.4450300e-02,.4506100e-02,&
16291  & .3856800e-02,.3925400e-02,.3984800e-02,.4043100e-02,.4100500e-02,&
16292  & .3565700e-02,.3636200e-02,.3699400e-02,.3760800e-02,.3821500e-02,&
16293  & .3377400e-02,.3450100e-02,.3517100e-02,.3581100e-02,.3645000e-02,&
16294  & .2392300e-02,.2462300e-02,.2526300e-02,.2589000e-02,.2651700e-02,&
16295  & .1695900e-02,.1754200e-02,.1807700e-02,.1861400e-02,.1918700e-02,&
16296  & .1173200e-02,.1223200e-02,.1271200e-02,.1322100e-02,.1367700e-02/
16297 
16298  data absa( 1: 65, 8) / &
16299  & .1960400e-01,.1969800e-01,.1993800e-01,.1985400e-01,.1995000e-01,&
16300  & .1871400e-01,.1880300e-01,.1903500e-01,.1913100e-01,.1910200e-01,&
16301  & .1767600e-01,.1778500e-01,.1790400e-01,.1818900e-01,.1815600e-01,&
16302  & .1666200e-01,.1677300e-01,.1690800e-01,.1705600e-01,.1730300e-01,&
16303  & .1565500e-01,.1577500e-01,.1594200e-01,.1610300e-01,.1635900e-01,&
16304  & .1469400e-01,.1483800e-01,.1502900e-01,.1520000e-01,.1532000e-01,&
16305  & .1379700e-01,.1395900e-01,.1417400e-01,.1435000e-01,.1447100e-01,&
16306  & .1290200e-01,.1308900e-01,.1331300e-01,.1348900e-01,.1362600e-01,&
16307  & .1189700e-01,.1210500e-01,.1233300e-01,.1251200e-01,.1265600e-01,&
16308  & .1183400e-01,.1207200e-01,.1233100e-01,.1254800e-01,.1272100e-01,&
16309  & .1141600e-01,.1169900e-01,.1196800e-01,.1214100e-01,.1231100e-01,&
16310  & .1077600e-01,.1107000e-01,.1130900e-01,.1150700e-01,.1170200e-01,&
16311  & .9957700e-02,.1026300e-01,.1049200e-01,.1071900e-01,.1095100e-01/
16312 
16313  data absa( 1: 65, 9) / &
16314  & .3722573e-01,.3735001e-01,.3766995e-01,.3757402e-01,.3768499e-01,&
16315  & .3662238e-01,.3678396e-01,.3719958e-01,.3732433e-01,.3724068e-01,&
16316  & .3562867e-01,.3578960e-01,.3595765e-01,.3640607e-01,.3634033e-01,&
16317  & .3435375e-01,.3454391e-01,.3475193e-01,.3497256e-01,.3549406e-01,&
16318  & .3293358e-01,.3315823e-01,.3338119e-01,.3362894e-01,.3419310e-01,&
16319  & .3144491e-01,.3168016e-01,.3191274e-01,.3218704e-01,.3249824e-01,&
16320  & .2994750e-01,.3018681e-01,.3043038e-01,.3073495e-01,.3106162e-01,&
16321  & .2842901e-01,.2866936e-01,.2893935e-01,.2926623e-01,.2960819e-01,&
16322  & .2613286e-01,.2638746e-01,.2667815e-01,.2703098e-01,.2739097e-01,&
16323  & .2645921e-01,.2674553e-01,.2704316e-01,.2742667e-01,.2777404e-01,&
16324  & .2621020e-01,.2647702e-01,.2689048e-01,.2732045e-01,.2775716e-01,&
16325  & .2539997e-01,.2572727e-01,.2619059e-01,.2665103e-01,.2709386e-01,&
16326  & .2408096e-01,.2452980e-01,.2508382e-01,.2552259e-01,.2603640e-01/
16327 
16328  data absa( 1: 65,10) / &
16329  & .1157665e+00,.1155684e+00,.1154876e+00,.1152633e+00,.1151482e+00,&
16330  & .1272768e+00,.1270495e+00,.1269626e+00,.1267696e+00,.1265036e+00,&
16331  & .1391213e+00,.1389149e+00,.1387068e+00,.1386130e+00,.1382518e+00,&
16332  & .1505134e+00,.1502913e+00,.1500415e+00,.1497761e+00,.1496606e+00,&
16333  & .1614616e+00,.1612169e+00,.1609519e+00,.1606590e+00,.1605876e+00,&
16334  & .1719962e+00,.1717604e+00,.1715010e+00,.1711819e+00,.1708343e+00,&
16335  & .1820676e+00,.1818515e+00,.1815935e+00,.1812537e+00,.1808999e+00,&
16336  & .1917067e+00,.1915304e+00,.1912634e+00,.1909221e+00,.1905620e+00,&
16337  & .2008731e+00,.2007265e+00,.2004847e+00,.2001356e+00,.1997760e+00,&
16338  & .2030412e+00,.2029033e+00,.2026654e+00,.2022945e+00,.2019604e+00,&
16339  & .2081847e+00,.2080855e+00,.2077116e+00,.2073153e+00,.2068695e+00,&
16340  & .2148279e+00,.2146757e+00,.2142582e+00,.2138204e+00,.2133431e+00,&
16341  & .2225531e+00,.2222204e+00,.2216768e+00,.2212495e+00,.2206397e+00/
16342 
16343 ! ---
16344  data forref(1:3,1:10) / &
16345  & .1709528e-06,.1749320e-06,.2303093e-05,.3273721e-05,.3572838e-05,&
16346  & .7664943e-05,.9640070e-05,.1071100e-04,.1044860e-04,.3027750e-04,&
16347  & .3575300e-04,.3407240e-04,.1024370e-03,.1084750e-03,.1052450e-03,&
16348  & .1460540e-03,.1414900e-03,.1330710e-03,.1639780e-03,.1502080e-03,&
16349  & .1428640e-03,.2204120e-03,.1829430e-03,.1509410e-03,.2312169e-03,&
16350  & .2065332e-03,.1728525e-03,.2740557e-03,.2606475e-03,.2434367e-03/
16351 
16352 
16353  data selfref(1:10,1:10) / &
16354  & .1042197e-04,.8992829e-05,.7807679e-05,.6819782e-05,.5991772e-05,&
16355  & .5293756e-05,.4701789e-05,.4196660e-05,.3762952e-05,.3388235e-05,&
16356  & .7734423e-04,.6990340e-04,.6317978e-04,.5710393e-04,.5161343e-04,&
16357  & .4665177e-04,.4216797e-04,.3811593e-04,.3445388e-04,.3114436e-04,&
16358  & .2064340e-03,.1874350e-03,.1701850e-03,.1545220e-03,.1403010e-03,&
16359  & .1273880e-03,.1156640e-03,.1050190e-03,.9535400e-04,.8657830e-04,&
16360  & .5906450e-03,.5331090e-03,.4811770e-03,.4343050e-03,.3919980e-03,&
16361  & .3538120e-03,.3193460e-03,.2882380e-03,.2601600e-03,.2348170e-03,&
16362  & .1630290e-02,.1487730e-02,.1357630e-02,.1238910e-02,.1130570e-02,&
16363  & .1031700e-02,.9414830e-03,.8591530e-03,.7840230e-03,.7154620e-03,&
16364  & .2045280e-02,.1892580e-02,.1751280e-02,.1620530e-02,.1499540e-02,&
16365  & .1387580e-02,.1283980e-02,.1188120e-02,.1099410e-02,.1017330e-02,&
16366  & .2105890e-02,.1970780e-02,.1844340e-02,.1726010e-02,.1615280e-02,&
16367  & .1511640e-02,.1414660e-02,.1323900e-02,.1238960e-02,.1159470e-02,&
16368  & .2450980e-02,.2337450e-02,.2229180e-02,.2125920e-02,.2027450e-02,&
16369  & .1933530e-02,.1843970e-02,.1758560e-02,.1677100e-02,.1599410e-02,&
16370  & .2838174e-02,.2668321e-02,.2508780e-02,.2358929e-02,.2218161e-02,&
16371  & .2085920e-02,.1961685e-02,.1844964e-02,.1735293e-02,.1632237e-02,&
16372  & .3679539e-02,.3409274e-02,.3159083e-02,.2927474e-02,.2713037e-02,&
16373  & .2514491e-02,.2330645e-02,.2160398e-02,.2002729e-02,.1856699e-02/
16374 
16375 !........................................!
16376  end module module_radsw_kgb23 !
16377 !========================================!
16378 
16381 !========================================!
16383 !........................................!
16384 !
16385 ! ********* the original program descriptions ********* !
16386 ! !
16387 ! originally by j.delamere, atmospheric & environmental research. !
16388 ! revision: 2.4 !
16389 ! band 24: 12850-16000 cm-1 (low - h2o,o2; high - o2) !
16390 ! reformatted for f90 by jjmorcrette, ecmwf !
16391 ! !
16392 ! this table has been re-generated for reduced number of g-point !
16393 ! by y.t.hou, ncep !
16394 ! !
16395 ! ********* ********* end description ********* ********* !
16396 !
16397  use physparam, only : kind_phys
16398  use module_radsw_parameters, only : ng24
16399 
16400 !
16401  implicit none
16402 !
16403  private
16404 !
16406  integer, public :: msa24
16408  integer, public :: msb24
16410  integer, public :: msf24
16412  integer, public :: mfr24
16414  integer, public :: mfx24
16415 
16416  parameter(msa24=585, msb24=235, msf24=10, mfr24=3, mfx24=9)
16417 
16418  real (kind=kind_phys), public :: forref(mfr24,ng24)
16419 
16435  real (kind=kind_phys), public :: absa(msa24,ng24)
16436 
16448  real (kind=kind_phys), public :: absb(msb24,ng24)
16449 
16455  real (kind=kind_phys), public :: selfref(msf24,ng24)
16456 
16458  real (kind=kind_phys), public :: abso3a(ng24)
16460  real (kind=kind_phys), public :: abso3b(ng24)
16461 
16463  real (kind=kind_phys), public :: rayla(ng24,mfx24)
16464  real (kind=kind_phys), public :: raylb(ng24)
16465 
16466  data rayla(1: 8,1:9) / .1368516e-06,.1805397e-06,&
16467  & .2243572e-06,.2191201e-06,.1450164e-06,.1344697e-06,.1214120e-06,&
16468  & .1199659e-06,.1672218e-06,.2134978e-06,.1793655e-06,.1624268e-06,&
16469  & .1442232e-06,.1377599e-06,.1214250e-06,.1199661e-06,.1708948e-06,&
16470  & .2099293e-06,.1784014e-06,.1622850e-06,.1458217e-06,.1400260e-06,&
16471  & .1241789e-06,.1199661e-06,.1737959e-06,.2064310e-06,.1785495e-06,&
16472  & .1617341e-06,.1480687e-06,.1414056e-06,.1280616e-06,.1199661e-06,&
16473  & .1751957e-06,.2045877e-06,.1784314e-06,.1614815e-06,.1507242e-06,&
16474  & .1421961e-06,.1320991e-06,.1199661e-06,.1757802e-06,.2032567e-06,&
16475  & .1789106e-06,.1613267e-06,.1525379e-06,.1429132e-06,.1360017e-06,&
16476  & .1204062e-06,.1757127e-06,.2027785e-06,.1790739e-06,.1616034e-06,&
16477  & .1535303e-06,.1446526e-06,.1386231e-06,.1317693e-06,.1746465e-06,&
16478  & .2026682e-06,.1793777e-06,.1632574e-06,.1537427e-06,.1462557e-06,&
16479  & .1419684e-06,.1489889e-06,.1524502e-06,.2170624e-06,.1873095e-06,&
16480  & .1679364e-06,.1595036e-06,.1513078e-06,.1490206e-06,.1492883e-06/
16481 
16482  data raylb(1: 8) / .1320456e-06,.1720100e-06,.2114786e-06,&
16483  & .2446587e-06,.2048151e-06,.1382257e-06,.1353522e-06,.1198919e-06/
16484 
16485 ! --- o3
16486  data abso3a(1: 8) / .1300197e+00,.1988798e+00,.1272878e+00,&
16487  & .8885802e-01,.6659378e-01,.5166209e-01,.3931020e-01,.2659650e-01/
16488 
16489  data abso3b(1: 8) / .3634220e-01,.8528316e-01,.1832493e+00,&
16490  & .2884644e+00,.3568897e+00,.3534033e+00,.1043294e+00,.2575196e-01/
16491 
16492 
16493  data absa( 1:180, 1) / &
16494  & .9478488e-09,.2006042e-07,.2228363e-07,.2263495e-07,.2547446e-07,&
16495  & .2936576e-07,.3475032e-07,.4537659e-07,.1269078e-07,.9492310e-09,&
16496  & .2077413e-07,.2280572e-07,.2371246e-07,.2688328e-07,.3058537e-07,&
16497  & .3544994e-07,.4495120e-07,.1274292e-07,.1009719e-08,.2560505e-07,&
16498  & .2989703e-07,.3567437e-07,.4195170e-07,.4903334e-07,.5753744e-07,&
16499  & .7103506e-07,.2087177e-07,.1021243e-08,.2157727e-07,.2428543e-07,&
16500  & .2545064e-07,.2876447e-07,.3263409e-07,.3724139e-07,.4541822e-07,&
16501  & .1284090e-07,.1028299e-08,.2206984e-07,.2462863e-07,.2608214e-07,&
16502  & .2944973e-07,.3351924e-07,.3801002e-07,.4608904e-07,.1282141e-07,&
16503  & .1105064e-08,.2024352e-07,.2144429e-07,.2292737e-07,.2205869e-07,&
16504  & .2461858e-07,.2882375e-07,.3780175e-07,.1335949e-07,.1115462e-08,&
16505  & .2242119e-07,.2253968e-07,.2374626e-07,.2336119e-07,.2589110e-07,&
16506  & .2968126e-07,.3712386e-07,.1367759e-07,.1127330e-08,.2593823e-07,&
16507  & .3036245e-07,.3217154e-07,.3601214e-07,.4106337e-07,.4749265e-07,&
16508  & .5871813e-07,.2194477e-07,.1151546e-08,.2687708e-07,.3062911e-07,&
16509  & .3274636e-07,.3661706e-07,.4151034e-07,.4800693e-07,.5860615e-07,&
16510  & .2166646e-07,.1215036e-08,.2423972e-07,.2411833e-07,.2469573e-07,&
16511  & .2645282e-07,.2869316e-07,.3165709e-07,.3778384e-07,.1423468e-07,&
16512  & .1327285e-08,.1823139e-07,.2252831e-07,.2249874e-07,.2224138e-07,&
16513  & .2137212e-07,.2379889e-07,.3066259e-07,.3075095e-07,.1374278e-08,&
16514  & .2003317e-07,.2357640e-07,.2309863e-07,.2282640e-07,.2242184e-07,&
16515  & .2479411e-07,.3108145e-07,.3095887e-07,.1409564e-08,.2175633e-07,&
16516  & .2468093e-07,.2423024e-07,.2334201e-07,.2354485e-07,.2574451e-07,&
16517  & .3082158e-07,.3128347e-07,.1450696e-08,.2746727e-07,.3099897e-07,&
16518  & .3259416e-07,.3329255e-07,.3570574e-07,.3986596e-07,.4846921e-07,&
16519  & .4021097e-07,.1442717e-08,.2412402e-07,.2625917e-07,.2602265e-07,&
16520  & .2512855e-07,.2541577e-07,.2680625e-07,.3103534e-07,.3137157e-07,&
16521  & .1649543e-08,.1970815e-07,.2150649e-07,.2298869e-07,.2180025e-07,&
16522  & .2008423e-07,.1973561e-07,.2448138e-07,.8556873e-07,.1735034e-08,&
16523  & .2060802e-07,.2356664e-07,.2443517e-07,.2299440e-07,.2108029e-07,&
16524  & .2105873e-07,.2549524e-07,.8685059e-07,.1736792e-08,.2188572e-07,&
16525  & .2575240e-07,.2521604e-07,.2423738e-07,.2219800e-07,.2218711e-07,&
16526  & .2606412e-07,.8913315e-07,.1802505e-08,.2311836e-07,.2795390e-07,&
16527  & .2628918e-07,.2520889e-07,.2295160e-07,.2272776e-07,.2590098e-07,&
16528  & .9188038e-07,.1819519e-08,.2703557e-07,.3363986e-07,.3350051e-07,&
16529  & .3297237e-07,.3293271e-07,.3417284e-07,.4007015e-07,.1097390e-06/
16530 
16531  data absa(181:315, 1) / &
16532  & .2076399e-08,.2299543e-07,.2011683e-07,.2214187e-07,.2287048e-07,&
16533  & .2069490e-07,.1709628e-07,.1987151e-07,.2613410e-06,.2054496e-08,&
16534  & .2464912e-07,.2181049e-07,.2435469e-07,.2449140e-07,.2201224e-07,&
16535  & .1834284e-07,.2047387e-07,.2681452e-06,.2212265e-08,.2619392e-07,&
16536  & .2373276e-07,.2675398e-07,.2535082e-07,.2318480e-07,.1957713e-07,&
16537  & .2126646e-07,.2766404e-06,.2373248e-08,.2771181e-07,.2568041e-07,&
16538  & .2923537e-07,.2639253e-07,.2388604e-07,.2054018e-07,.2213864e-07,&
16539  & .2841552e-06,.2343337e-08,.3064130e-07,.3236485e-07,.3551409e-07,&
16540  & .3395783e-07,.3172537e-07,.3073988e-07,.3350972e-07,.3192722e-06,&
16541  & .2376949e-08,.2980194e-07,.2387416e-07,.2049156e-07,.2087214e-07,&
16542  & .2167267e-07,.1825923e-07,.1653693e-07,.6372515e-06,.2667041e-08,&
16543  & .3135808e-07,.2549292e-07,.2250603e-07,.2333514e-07,.2247609e-07,&
16544  & .1950044e-07,.1700265e-07,.6563665e-06,.2966669e-08,.3250866e-07,&
16545  & .2727873e-07,.2457664e-07,.2584670e-07,.2376895e-07,.2074333e-07,&
16546  & .1753015e-07,.6745009e-06,.3145538e-08,.3465169e-07,.2866168e-07,&
16547  & .2652981e-07,.2797349e-07,.2493029e-07,.2162154e-07,.1839404e-07,&
16548  & .6921558e-06,.3048309e-08,.3670297e-07,.3037871e-07,.2846443e-07,&
16549  & .3043302e-07,.2606580e-07,.2240677e-07,.1923357e-07,.7083018e-06,&
16550  & .2954559e-08,.3887753e-07,.2869351e-07,.2420710e-07,.2014166e-07,&
16551  & .1897808e-07,.1853848e-07,.1389583e-07,.1017915e-05,.3249121e-08,&
16552  & .4105480e-07,.3073517e-07,.2582420e-07,.2186903e-07,.2106748e-07,&
16553  & .1950220e-07,.1466410e-07,.1065309e-05,.3560837e-08,.4307434e-07,&
16554  & .3307124e-07,.2749773e-07,.2349186e-07,.2343715e-07,.2046075e-07,&
16555  & .1541227e-07,.1097022e-05,.3768057e-08,.4535221e-07,.3522003e-07,&
16556  & .2913787e-07,.2516808e-07,.2572932e-07,.2163504e-07,.1608168e-07,&
16557  & .1134264e-05,.4127508e-08,.4772213e-07,.3727530e-07,.3084310e-07,&
16558  & .2724223e-07,.2780339e-07,.2276541e-07,.1676406e-07,.1166442e-05/
16559 
16560  data absa(316:450, 1) / &
16561  & .3755131e-08,.5425837e-07,.4118146e-07,.2970906e-07,.2360125e-07,&
16562  & .1910884e-07,.1685495e-07,.1393367e-07,.1706962e-05,.3837129e-08,&
16563  & .5684497e-07,.4375453e-07,.3243058e-07,.2577570e-07,.2032717e-07,&
16564  & .1872850e-07,.1474043e-07,.1765060e-05,.4347070e-08,.5965052e-07,&
16565  & .4627956e-07,.3497038e-07,.2747824e-07,.2198991e-07,.2061735e-07,&
16566  & .1576341e-07,.1825492e-05,.4988663e-08,.6165437e-07,.4887741e-07,&
16567  & .3754106e-07,.2965672e-07,.2382663e-07,.2246982e-07,.1698318e-07,&
16568  & .1871583e-05,.5424215e-08,.6390254e-07,.5129696e-07,.3972602e-07,&
16569  & .3163844e-07,.2555544e-07,.2420387e-07,.1814940e-07,.1924155e-05,&
16570  & .4442173e-08,.7197256e-07,.5819392e-07,.4306671e-07,.2953792e-07,&
16571  & .2178359e-07,.1602856e-07,.1525612e-07,.4752921e-05,.5074649e-08,&
16572  & .7446008e-07,.6175165e-07,.4628955e-07,.3209104e-07,.2411698e-07,&
16573  & .1784882e-07,.1645798e-07,.4869510e-05,.5728645e-08,.7723379e-07,&
16574  & .6474879e-07,.4922829e-07,.3503195e-07,.2630379e-07,.1935594e-07,&
16575  & .1753886e-07,.4973365e-05,.6351806e-08,.8000072e-07,.6740072e-07,&
16576  & .5210377e-07,.3796839e-07,.2830818e-07,.2112504e-07,.1881638e-07,&
16577  & .5058268e-05,.6912437e-08,.8315033e-07,.7068889e-07,.5412660e-07,&
16578  & .4056832e-07,.3019131e-07,.2281027e-07,.1946796e-07,.5120717e-05,&
16579  & .6424864e-08,.9702677e-07,.8541300e-07,.6566892e-07,.4587460e-07,&
16580  & .2900504e-07,.1935626e-07,.1385212e-07,.8949001e-05,.7095455e-08,&
16581  & .1023503e-06,.8901069e-07,.7031849e-07,.5021834e-07,.3251464e-07,&
16582  & .2150478e-07,.1541222e-07,.9105756e-05,.7837477e-08,.1065872e-06,&
16583  & .9339944e-07,.7381282e-07,.5418142e-07,.3553682e-07,.2351485e-07,&
16584  & .1667046e-07,.9321311e-05,.8700945e-08,.1108036e-06,.9742466e-07,&
16585  & .7752400e-07,.5759385e-07,.3839799e-07,.2580432e-07,.1788370e-07,&
16586  & .9568035e-05,.9372952e-08,.1149751e-06,.1012313e-06,.8204487e-07,&
16587  & .6076544e-07,.4108120e-07,.2793641e-07,.1911302e-07,.9731271e-05/
16588 
16589  data absa(451:585, 1) / &
16590  & .8979819e-08,.1058443e-06,.1200210e-06,.9695637e-07,.7036848e-07,&
16591  & .4678128e-07,.2686372e-07,.1541405e-07,.1220035e-04,.9805661e-08,&
16592  & .1118530e-06,.1255675e-06,.1030716e-06,.7739733e-07,.5201243e-07,&
16593  & .2992503e-07,.1670143e-07,.1258780e-04,.1069760e-07,.1173469e-06,&
16594  & .1304830e-06,.1095539e-06,.8282101e-07,.5625194e-07,.3263649e-07,&
16595  & .1827566e-07,.1292889e-04,.1119525e-07,.1227001e-06,.1373018e-06,&
16596  & .1148947e-06,.8789054e-07,.5978610e-07,.3529093e-07,.1964769e-07,&
16597  & .1327840e-04,.1201126e-07,.1273789e-06,.1421903e-06,.1200244e-06,&
16598  & .9264785e-07,.6378835e-07,.3808366e-07,.2094784e-07,.1367923e-04,&
16599  & .9719070e-08,.9999501e-07,.1384487e-06,.1213259e-06,.9225490e-07,&
16600  & .6132161e-07,.3331774e-07,.1686558e-07,.1343339e-04,.1109778e-07,&
16601  & .1062708e-06,.1461547e-06,.1279839e-06,.9860632e-07,.6579031e-07,&
16602  & .3628776e-07,.1826740e-07,.1383474e-04,.1211127e-07,.1133042e-06,&
16603  & .1521046e-06,.1333579e-06,.1044442e-06,.7051604e-07,.3966511e-07,&
16604  & .1978957e-07,.1430481e-04,.1342211e-07,.1191516e-06,.1571868e-06,&
16605  & .1380165e-06,.1093802e-06,.7496750e-07,.4327741e-07,.2126680e-07,&
16606  & .1475217e-04,.1467534e-07,.1241612e-06,.1623203e-06,.1431277e-06,&
16607  & .1135740e-06,.7963856e-07,.4685852e-07,.2271310e-07,.1522177e-04,&
16608  & .1161087e-07,.1041677e-06,.1364162e-06,.1423574e-06,.1160046e-06,&
16609  & .7917598e-07,.4352117e-07,.1902079e-07,.1388023e-04,.1297072e-07,&
16610  & .1100490e-06,.1431349e-06,.1479064e-06,.1210891e-06,.8468921e-07,&
16611  & .4817011e-07,.2075879e-07,.1442933e-04,.1434007e-07,.1155767e-06,&
16612  & .1497075e-06,.1533287e-06,.1261775e-06,.8986500e-07,.5204569e-07,&
16613  & .2239805e-07,.1502654e-04,.1566851e-07,.1199822e-06,.1550418e-06,&
16614  & .1587526e-06,.1308995e-06,.9466747e-07,.5568553e-07,.2384695e-07,&
16615  & .1555344e-04,.1683829e-07,.1243538e-06,.1604785e-06,.1641767e-06,&
16616  & .1360688e-06,.9947999e-07,.5921603e-07,.2546256e-07,.1596362e-04/
16617 
16618  data absa( 1:180, 2) / &
16619  & .4977875e-08,.2921108e-06,.5418060e-06,.7727212e-06,.9911457e-06,&
16620  & .1214800e-05,.1465814e-05,.1829868e-05,.7823624e-06,.4994907e-08,&
16621  & .3018351e-06,.5578764e-06,.7940989e-06,.1016090e-05,.1239397e-05,&
16622  & .1487931e-05,.1836976e-05,.7862442e-06,.5208110e-08,.3874388e-06,&
16623  & .7181819e-06,.1020477e-05,.1309594e-05,.1599138e-05,.1909038e-05,&
16624  & .2327755e-05,.1153932e-05,.5319118e-08,.3178392e-06,.5822238e-06,&
16625  & .8242852e-06,.1050880e-05,.1277685e-05,.1520218e-05,.1852230e-05,&
16626  & .7871951e-06,.5556151e-08,.3235154e-06,.5911725e-06,.8338245e-06,&
16627  & .1062185e-05,.1291143e-05,.1532737e-05,.1857528e-05,.7845580e-06,&
16628  & .5432943e-08,.2394007e-06,.4471522e-06,.6385952e-06,.8269131e-06,&
16629  & .1017096e-05,.1232743e-05,.1559228e-05,.6244771e-06,.5892629e-08,&
16630  & .2459631e-06,.4597979e-06,.6563874e-06,.8463292e-06,.1038052e-05,&
16631  & .1251153e-05,.1563781e-05,.6288295e-06,.5915709e-08,.3242534e-06,&
16632  & .6031237e-06,.8632595e-06,.1113129e-05,.1365831e-05,.1640492e-05,&
16633  & .2027362e-05,.9462585e-06,.6171888e-08,.3261724e-06,.6054889e-06,&
16634  & .8640996e-06,.1112880e-05,.1361041e-05,.1630551e-05,.2003512e-05,&
16635  & .9272718e-06,.6400658e-08,.2632985e-06,.4872328e-06,.6900240e-06,&
16636  & .8829870e-06,.1077466e-05,.1285821e-05,.1578521e-05,.6307027e-06,&
16637  & .6718273e-08,.1967264e-06,.3613932e-06,.5196750e-06,.6756207e-06,&
16638  & .8399391e-06,.1024899e-05,.1319338e-05,.4959268e-06,.7019662e-08,&
16639  & .2019256e-06,.3715815e-06,.5349054e-06,.6929146e-06,.8570698e-06,&
16640  & .1040099e-05,.1317826e-05,.5026796e-06,.6849002e-08,.2066083e-06,&
16641  & .3800896e-06,.5461625e-06,.7072097e-06,.8714979e-06,.1051566e-05,&
16642  & .1319363e-05,.5066881e-06,.7348552e-08,.2698050e-06,.5015846e-06,&
16643  & .7193981e-06,.9328462e-06,.1147717e-05,.1384165e-05,.1724206e-05,&
16644  & .7547895e-06,.7364360e-08,.2140724e-06,.3941245e-06,.5620667e-06,&
16645  & .7253341e-06,.8905787e-06,.1068093e-05,.1327568e-05,.5107295e-06,&
16646  & .7188660e-08,.1608987e-06,.2919364e-06,.4183428e-06,.5474637e-06,&
16647  & .6862098e-06,.8454628e-06,.1112417e-05,.7753418e-06,.7923510e-08,&
16648  & .1660346e-06,.2994130e-06,.4302319e-06,.5615672e-06,.7001230e-06,&
16649  & .8570141e-06,.1102211e-05,.7947637e-06,.8710415e-08,.1699772e-06,&
16650  & .3051256e-06,.4401873e-06,.5730835e-06,.7124193e-06,.8673643e-06,&
16651  & .1099678e-05,.8076872e-06,.9379724e-08,.1733439e-06,.3101037e-06,&
16652  & .4482693e-06,.5824117e-06,.7220472e-06,.8751372e-06,.1103747e-05,&
16653  & .8157169e-06,.9693296e-08,.2255703e-06,.4099284e-06,.5915659e-06,&
16654  & .7704284e-06,.9518875e-06,.1153151e-05,.1447965e-05,.9509966e-06/
16655 
16656  data absa(181:315, 2) / &
16657  & .8742219e-08,.1401619e-06,.2365810e-06,.3367232e-06,.4389881e-06,&
16658  & .5544262e-06,.6941176e-06,.9221962e-06,.1547996e-05,.9825526e-08,&
16659  & .1439063e-06,.2438132e-06,.3455625e-06,.4507360e-06,.5666773e-06,&
16660  & .7024141e-06,.9173596e-06,.1577601e-05,.1032729e-07,.1470757e-06,&
16661  & .2492266e-06,.3522677e-06,.4609870e-06,.5767649e-06,.7112768e-06,&
16662  & .9130431e-06,.1601942e-05,.1052928e-07,.1495088e-06,.2530720e-06,&
16663  & .3574969e-06,.4695458e-06,.5854586e-06,.7174989e-06,.9137192e-06,&
16664  & .1618037e-05,.1150457e-07,.1903978e-06,.3372032e-06,.4819982e-06,&
16665  & .6322987e-06,.7870872e-06,.9614418e-06,.1220624e-05,.1804705e-05,&
16666  & .1081727e-07,.1563034e-06,.1929738e-06,.2720043e-06,.3525847e-06,&
16667  & .4442876e-06,.5631051e-06,.7626249e-06,.2334044e-05,.1150244e-07,&
16668  & .1599274e-06,.1989339e-06,.2804224e-06,.3618620e-06,.4559776e-06,&
16669  & .5702232e-06,.7643768e-06,.2382319e-05,.1175189e-07,.1620605e-06,&
16670  & .2044243e-06,.2860895e-06,.3693875e-06,.4646579e-06,.5769806e-06,&
16671  & .7565793e-06,.2416745e-05,.1306718e-07,.1630619e-06,.2085618e-06,&
16672  & .2905226e-06,.3757709e-06,.4717225e-06,.5824128e-06,.7540595e-06,&
16673  & .2439861e-05,.1426020e-07,.1645534e-06,.2117139e-06,.2947798e-06,&
16674  & .3794331e-06,.4775901e-06,.5875284e-06,.7558601e-06,.2466640e-05,&
16675  & .1207434e-07,.1674269e-06,.1791693e-06,.2187708e-06,.2826358e-06,&
16676  & .3574471e-06,.4560189e-06,.6292048e-06,.4950228e-05,.1327450e-07,&
16677  & .1717629e-06,.1844629e-06,.2269350e-06,.2920013e-06,.3674358e-06,&
16678  & .4607900e-06,.6289581e-06,.4970699e-05,.1458123e-07,.1756793e-06,&
16679  & .1880198e-06,.2332289e-06,.2991457e-06,.3736616e-06,.4662710e-06,&
16680  & .6243034e-06,.5001187e-05,.1616738e-07,.1790958e-06,.1914327e-06,&
16681  & .2381938e-06,.3052274e-06,.3787455e-06,.4719405e-06,.6206030e-06,&
16682  & .5028994e-05,.1738758e-07,.1816052e-06,.1943182e-06,.2415142e-06,&
16683  & .3091524e-06,.3827622e-06,.4755721e-06,.6213090e-06,.5041895e-05/
16684 
16685  data absa(316:450, 2) / &
16686  & .1665196e-07,.1938979e-06,.2113958e-06,.2003810e-06,.2278096e-06,&
16687  & .2865973e-06,.3718779e-06,.5164350e-06,.1076729e-04,.1817122e-07,&
16688  & .1993569e-06,.2175471e-06,.2075727e-06,.2358089e-06,.2950307e-06,&
16689  & .3720816e-06,.5129796e-06,.1080841e-04,.1956687e-07,.2035852e-06,&
16690  & .2222226e-06,.2131321e-06,.2435564e-06,.3019781e-06,.3754017e-06,&
16691  & .5134335e-06,.1082806e-04,.2070597e-07,.2074456e-06,.2260920e-06,&
16692  & .2168666e-06,.2488899e-06,.3073148e-06,.3798904e-06,.5077018e-06,&
16693  & .1084943e-04,.2173248e-07,.2098779e-06,.2294201e-06,.2205251e-06,&
16694  & .2538736e-06,.3118254e-06,.3821669e-06,.5055703e-06,.1085222e-04,&
16695  & .2191248e-07,.2365055e-06,.2390465e-06,.2374263e-06,.2072159e-06,&
16696  & .2312165e-06,.3013057e-06,.4184984e-06,.2723092e-04,.2361382e-07,&
16697  & .2462069e-06,.2472867e-06,.2475309e-06,.2196618e-06,.2383569e-06,&
16698  & .3008372e-06,.4161238e-06,.2736074e-04,.2508833e-07,.2530970e-06,&
16699  & .2541614e-06,.2555112e-06,.2280678e-06,.2448032e-06,.3033101e-06,&
16700  & .4166889e-06,.2760212e-04,.2600366e-07,.2555124e-06,.2601272e-06,&
16701  & .2621345e-06,.2330125e-06,.2502924e-06,.3081806e-06,.4117555e-06,&
16702  & .2781471e-04,.2625556e-07,.2585939e-06,.2658891e-06,.2667422e-06,&
16703  & .2373911e-06,.2553542e-06,.3106119e-06,.4101077e-06,.2799279e-04,&
16704  & .2786381e-07,.2663930e-06,.3136530e-06,.2903642e-06,.2699185e-06,&
16705  & .2154845e-06,.2415255e-06,.3414221e-06,.6623836e-04,.3081478e-07,&
16706  & .2743516e-06,.3245697e-06,.3003308e-06,.2804576e-06,.2242044e-06,&
16707  & .2415067e-06,.3388596e-06,.6704072e-04,.3288814e-07,.2818415e-06,&
16708  & .3322102e-06,.3116516e-06,.2890397e-06,.2345975e-06,.2455989e-06,&
16709  & .3380705e-06,.6784378e-04,.3384756e-07,.2878021e-06,.3383139e-06,&
16710  & .3187847e-06,.2960257e-06,.2435067e-06,.2492429e-06,.3358934e-06,&
16711  & .6873920e-04,.3644271e-07,.2922944e-06,.3431136e-06,.3228649e-06,&
16712  & .3009446e-06,.2515472e-06,.2527789e-06,.3321823e-06,.6964582e-04/
16713 
16714  data absa(451:585, 2) / &
16715  & .4098843e-07,.3384011e-06,.3624859e-06,.3751623e-06,.3279197e-06,&
16716  & .2825050e-06,.2084273e-06,.2761760e-06,.8850341e-04,.4683147e-07,&
16717  & .3426868e-06,.3709702e-06,.3853158e-06,.3371326e-06,.2929673e-06,&
16718  & .2151462e-06,.2724341e-06,.8924994e-04,.4984644e-07,.3465890e-06,&
16719  & .3781183e-06,.3930485e-06,.3467252e-06,.3026766e-06,.2220474e-06,&
16720  & .2731323e-06,.9000607e-04,.5357426e-07,.3496935e-06,.3823149e-06,&
16721  & .4006097e-06,.3557600e-06,.3109094e-06,.2298146e-06,.2691423e-06,&
16722  & .9077335e-04,.5649178e-07,.3523119e-06,.3864299e-06,.4065303e-06,&
16723  & .3608387e-06,.3158353e-06,.2374848e-06,.2683036e-06,.9190915e-04,&
16724  & .5606804e-07,.3942048e-06,.3696286e-06,.3914481e-06,.3666506e-06,&
16725  & .3045442e-06,.2355668e-06,.2246247e-06,.9830605e-04,.5792873e-07,&
16726  & .3951960e-06,.3767630e-06,.4000468e-06,.3765494e-06,.3169486e-06,&
16727  & .2468239e-06,.2208278e-06,.1003406e-03,.6144867e-07,.3964744e-06,&
16728  & .3840637e-06,.4079564e-06,.3868875e-06,.3269661e-06,.2582322e-06,&
16729  & .2208739e-06,.1013645e-03,.6347446e-07,.3944624e-06,.3901494e-06,&
16730  & .4142722e-06,.3972735e-06,.3364436e-06,.2683503e-06,.2181227e-06,&
16731  & .1025965e-03,.6571022e-07,.3935800e-06,.3934698e-06,.4190604e-06,&
16732  & .4047063e-06,.3426999e-06,.2756876e-06,.2187860e-06,.1036640e-03,&
16733  & .6947980e-07,.4277234e-06,.4260311e-06,.3985021e-06,.3938855e-06,&
16734  & .3382988e-06,.2596779e-06,.1845908e-06,.1007433e-03,.7232340e-07,&
16735  & .4309643e-06,.4284737e-06,.4112915e-06,.4041636e-06,.3526595e-06,&
16736  & .2709767e-06,.1835141e-06,.1027545e-03,.7385675e-07,.4323241e-06,&
16737  & .4337810e-06,.4231404e-06,.4150882e-06,.3638010e-06,.2833177e-06,&
16738  & .1825627e-06,.1048033e-03,.7472322e-07,.4340229e-06,.4375142e-06,&
16739  & .4293950e-06,.4227926e-06,.3709701e-06,.2917057e-06,.1845645e-06,&
16740  & .1071308e-03,.7710708e-07,.4377958e-06,.4436351e-06,.4362045e-06,&
16741  & .4261614e-06,.3773780e-06,.2982907e-06,.1879122e-06,.1086672e-03/
16742 
16743  data absa( 1:180, 3) / &
16744  & .7885147e-08,.2480177e-05,.4465798e-05,.6288079e-05,.8021775e-05,&
16745  & .9713012e-05,.1149293e-04,.1389792e-04,.9583620e-05,.8337260e-08,&
16746  & .2533549e-05,.4538671e-05,.6376335e-05,.8116846e-05,.9823186e-05,&
16747  & .1160281e-04,.1396043e-04,.9711327e-05,.8347835e-08,.2875505e-05,&
16748  & .5166441e-05,.7269794e-05,.9276602e-05,.1119934e-04,.1322573e-04,&
16749  & .1573805e-04,.1164942e-04,.8341010e-08,.2624899e-05,.4665526e-05,&
16750  & .6527056e-05,.8285471e-05,.9970463e-05,.1177728e-04,.1416190e-04,&
16751  & .9853793e-05,.8441087e-08,.2662384e-05,.4716519e-05,.6584497e-05,&
16752  & .8347227e-05,.1002746e-04,.1181802e-04,.1420893e-04,.9876490e-05,&
16753  & .9538043e-08,.2172518e-05,.3916041e-05,.5520408e-05,.7047709e-05,&
16754  & .8561064e-05,.1016253e-04,.1235053e-04,.8228063e-05,.9896959e-08,&
16755  & .2218811e-05,.3982498e-05,.5600469e-05,.7138336e-05,.8647352e-05,&
16756  & .1025838e-04,.1240949e-04,.8337951e-05,.9725183e-08,.2562004e-05,&
16757  & .4611611e-05,.6497303e-05,.8305798e-05,.1005129e-04,.1190483e-04,&
16758  & .1422914e-04,.1028529e-04,.9815185e-08,.2580610e-05,.4626595e-05,&
16759  & .6503599e-05,.8291966e-05,.1002549e-04,.1185886e-04,.1419713e-04,&
16760  & .1021346e-04,.9353012e-08,.2330951e-05,.4132274e-05,.5770881e-05,&
16761  & .7327013e-05,.8826693e-05,.1043691e-04,.1262749e-04,.8444115e-05,&
16762  & .1055499e-07,.1876951e-05,.3395021e-05,.4794118e-05,.6129975e-05,&
16763  & .7457686e-05,.8897848e-05,.1089769e-04,.6935281e-05,.1082740e-07,&
16764  & .1919857e-05,.3454800e-05,.4863748e-05,.6212902e-05,.7539732e-05,&
16765  & .8988633e-05,.1093165e-04,.7014326e-05,.1237586e-07,.1957445e-05,&
16766  & .3508502e-05,.4924591e-05,.6283591e-05,.7606837e-05,.9064706e-05,&
16767  & .1103621e-04,.7066774e-05,.1310556e-07,.2280479e-05,.4102438e-05,&
16768  & .5774148e-05,.7371455e-05,.8939771e-05,.1061982e-04,.1277638e-04,&
16769  & .8882241e-05,.1381953e-07,.2018379e-05,.3585970e-05,.5012832e-05,&
16770  & .6367746e-05,.7692141e-05,.9142910e-05,.1113079e-04,.7092611e-05,&
16771  & .1302165e-07,.1600407e-05,.2913854e-05,.4120799e-05,.5279357e-05,&
16772  & .6430192e-05,.7712566e-05,.9529299e-05,.5293062e-05,.1389129e-07,&
16773  & .1639258e-05,.2967097e-05,.4184307e-05,.5353035e-05,.6512557e-05,&
16774  & .7798666e-05,.9560399e-05,.5349139e-05,.1483348e-07,.1673536e-05,&
16775  & .3015174e-05,.4237461e-05,.5413790e-05,.6575943e-05,.7862585e-05,&
16776  & .9658800e-05,.5382522e-05,.1563210e-07,.1703299e-05,.3054374e-05,&
16777  & .4280442e-05,.5458053e-05,.6620462e-05,.7906329e-05,.9704216e-05,&
16778  & .5391051e-05,.1599402e-07,.2006384e-05,.3612837e-05,.5084142e-05,&
16779  & .6481925e-05,.7864478e-05,.9387955e-05,.1136686e-04,.7116652e-05/
16780 
16781  data absa(181:315, 3) / &
16782  & .1759652e-07,.1338435e-05,.2477474e-05,.3510671e-05,.4506288e-05,&
16783  & .5498399e-05,.6620804e-05,.8293824e-05,.3301450e-05,.1839690e-07,&
16784  & .1372726e-05,.2524704e-05,.3567406e-05,.4571892e-05,.5574072e-05,&
16785  & .6701396e-05,.8294132e-05,.3333569e-05,.1844120e-07,.1403022e-05,&
16786  & .2565887e-05,.3614241e-05,.4624775e-05,.5628533e-05,.6758496e-05,&
16787  & .8374936e-05,.3343845e-05,.2053628e-07,.1429066e-05,.2600703e-05,&
16788  & .3651806e-05,.4660425e-05,.5666649e-05,.6798791e-05,.8414165e-05,&
16789  & .3333421e-05,.2112872e-07,.1738328e-05,.3156880e-05,.4451390e-05,&
16790  & .5679788e-05,.6911108e-05,.8277220e-05,.1010231e-04,.4801846e-05,&
16791  & .2138930e-07,.1060078e-05,.2077209e-05,.2959831e-05,.3807513e-05,&
16792  & .4658382e-05,.5629044e-05,.7177701e-05,.5287833e-05,.2197261e-07,&
16793  & .1090324e-05,.2118891e-05,.3009588e-05,.3867726e-05,.4725436e-05,&
16794  & .5702333e-05,.7135044e-05,.5295206e-05,.2370908e-07,.1117799e-05,&
16795  & .2154519e-05,.3051661e-05,.3914248e-05,.4773139e-05,.5753687e-05,&
16796  & .7202983e-05,.5282002e-05,.2418585e-07,.1140836e-05,.2184495e-05,&
16797  & .3085157e-05,.3945767e-05,.4806508e-05,.5792297e-05,.7235984e-05,&
16798  & .5240017e-05,.2563587e-07,.1157256e-05,.2206672e-05,.3110571e-05,&
16799  & .3966388e-05,.4824447e-05,.5812975e-05,.7247817e-05,.5173282e-05,&
16800  & .2761854e-07,.8192162e-06,.1695308e-05,.2467470e-05,.3187895e-05,&
16801  & .3913885e-05,.4745695e-05,.6132573e-05,.8445327e-05,.2791826e-07,&
16802  & .8431674e-06,.1731404e-05,.2511477e-05,.3242547e-05,.3969814e-05,&
16803  & .4810419e-05,.6100692e-05,.8456733e-05,.2941384e-07,.8642535e-06,&
16804  & .1763447e-05,.2547427e-05,.3283616e-05,.4013509e-05,.4856118e-05,&
16805  & .6137849e-05,.8444823e-05,.3093995e-07,.8803612e-06,.1788691e-05,&
16806  & .2576812e-05,.3311827e-05,.4043744e-05,.4889006e-05,.6164513e-05,&
16807  & .8438944e-05,.3175649e-07,.8926786e-06,.1807355e-05,.2599811e-05,&
16808  & .3329744e-05,.4060525e-05,.4908054e-05,.6172563e-05,.8415014e-05/
16809 
16810  data absa(316:450, 3) / &
16811  & .3594320e-07,.5898798e-06,.1300990e-05,.2005624e-05,.2639841e-05,&
16812  & .3258662e-05,.3970239e-05,.5168834e-05,.1389043e-04,.3842574e-07,&
16813  & .6079368e-06,.1330795e-05,.2043110e-05,.2689852e-05,.3308616e-05,&
16814  & .4024395e-05,.5188513e-05,.1404319e-04,.4003510e-07,.6246941e-06,&
16815  & .1356682e-05,.2074572e-05,.2724323e-05,.3347997e-05,.4066594e-05,&
16816  & .5184194e-05,.1421675e-04,.4109691e-07,.6372206e-06,.1377478e-05,&
16817  & .2099971e-05,.2748886e-05,.3373994e-05,.4094365e-05,.5206120e-05,&
16818  & .1431172e-04,.4160609e-07,.6467677e-06,.1391926e-05,.2119005e-05,&
16819  & .2763924e-05,.3389851e-05,.4111985e-05,.5213753e-05,.1436877e-04,&
16820  & .4460131e-07,.3996422e-06,.9634371e-06,.1535190e-05,.2135126e-05,&
16821  & .2688150e-05,.3299750e-05,.4333189e-05,.2704843e-04,.4831887e-07,&
16822  & .4098677e-06,.9845303e-06,.1564750e-05,.2173466e-05,.2731313e-05,&
16823  & .3343042e-05,.4388007e-05,.2787395e-04,.5033440e-07,.4173500e-06,&
16824  & .1002962e-05,.1587816e-05,.2202008e-05,.2765444e-05,.3380831e-05,&
16825  & .4346875e-05,.2836708e-04,.5144378e-07,.4256035e-06,.1017999e-05,&
16826  & .1606384e-05,.2223268e-05,.2789015e-05,.3404990e-05,.4364321e-05,&
16827  & .2885698e-04,.5376703e-07,.4301287e-06,.1025925e-05,.1621665e-05,&
16828  & .2236412e-05,.2802339e-05,.3420850e-05,.4370319e-05,.2935788e-04,&
16829  & .7159604e-07,.4940214e-06,.6385949e-06,.1108740e-05,.1601203e-05,&
16830  & .2163439e-05,.2727326e-05,.3598975e-05,.4606013e-04,.7586834e-07,&
16831  & .4934774e-06,.6516736e-06,.1132261e-05,.1634648e-05,.2197928e-05,&
16832  & .2762190e-05,.3675388e-05,.4725942e-04,.7940266e-07,.4992704e-06,&
16833  & .6618015e-06,.1146976e-05,.1656272e-05,.2222531e-05,.2791013e-05,&
16834  & .3629707e-05,.4765531e-04,.8216318e-07,.4976479e-06,.6706045e-06,&
16835  & .1160539e-05,.1671805e-05,.2236388e-05,.2810390e-05,.3635786e-05,&
16836  & .4814584e-04,.8519042e-07,.4933370e-06,.6756937e-06,.1170724e-05,&
16837  & .1681781e-05,.2243295e-05,.2821977e-05,.3642627e-05,.4872656e-04/
16838 
16839  data absa(451:585, 3) / &
16840  & .1081928e-06,.5818788e-06,.6386596e-06,.7432114e-06,.1166448e-05,&
16841  & .1632769e-05,.2234855e-05,.3011606e-05,.5082881e-04,.1059761e-06,&
16842  & .5865974e-06,.6439649e-06,.7553534e-06,.1187103e-05,.1654747e-05,&
16843  & .2252083e-05,.3058057e-05,.5151287e-04,.1087338e-06,.5874771e-06,&
16844  & .6413861e-06,.7655310e-06,.1198176e-05,.1670032e-05,.2266997e-05,&
16845  & .3012908e-05,.5289813e-04,.1114046e-06,.5874841e-06,.6406983e-06,&
16846  & .7727642e-06,.1203345e-05,.1677472e-05,.2275155e-05,.3017584e-05,&
16847  & .5372932e-04,.1149838e-06,.5849412e-06,.6431792e-06,.7741413e-06,&
16848  & .1208047e-05,.1681178e-05,.2276094e-05,.3015110e-05,.5370886e-04,&
16849  & .1308163e-06,.5923091e-06,.7055074e-06,.6422362e-06,.8303543e-06,&
16850  & .1235001e-05,.1751640e-05,.2496860e-05,.5055594e-04,.1362223e-06,&
16851  & .6024702e-06,.7146505e-06,.6458685e-06,.8419302e-06,.1248937e-05,&
16852  & .1758098e-05,.2520128e-05,.4923848e-04,.1383439e-06,.6090485e-06,&
16853  & .7121358e-06,.6578181e-06,.8468564e-06,.1256934e-05,.1760117e-05,&
16854  & .2491841e-05,.5060877e-04,.1418196e-06,.6173069e-06,.7165570e-06,&
16855  & .6647670e-06,.8470868e-06,.1257404e-05,.1760260e-05,.2490114e-05,&
16856  & .5072850e-04,.1467094e-06,.6274341e-06,.7144183e-06,.6594283e-06,&
16857  & .8460663e-06,.1255755e-05,.1758322e-05,.2483648e-05,.5190473e-04,&
16858  & .1679150e-06,.6319279e-06,.7600366e-06,.7654140e-06,.6345031e-06,&
16859  & .8895555e-06,.1341549e-05,.2061106e-05,.5170435e-04,.1687483e-06,&
16860  & .6398709e-06,.7658349e-06,.7599068e-06,.6394553e-06,.8948407e-06,&
16861  & .1341176e-05,.2062854e-05,.5191565e-04,.1856866e-06,.6469542e-06,&
16862  & .7612484e-06,.7510875e-06,.6399811e-06,.8962538e-06,.1338671e-05,&
16863  & .2043994e-05,.5247877e-04,.1946851e-06,.6555257e-06,.7574664e-06,&
16864  & .7531901e-06,.6416353e-06,.8973155e-06,.1338204e-05,.2036318e-05,&
16865  & .5249060e-04,.1959063e-06,.6536393e-06,.7490042e-06,.7486915e-06,&
16866  & .6419812e-06,.8937247e-06,.1335333e-05,.2025525e-05,.5294532e-04/
16867 
16868  data absa( 1:180, 4) / &
16869  & .1305351e-05,.1815013e-04,.2979305e-04,.3999652e-04,.4905169e-04,&
16870  & .5693488e-04,.6409806e-04,.7177995e-04,.6208906e-04,.1399449e-05,&
16871  & .1830100e-04,.3003956e-04,.4034832e-04,.4948205e-04,.5741995e-04,&
16872  & .6471188e-04,.7264387e-04,.6277389e-04,.1500703e-05,.1907688e-04,&
16873  & .3148533e-04,.4244547e-04,.5212651e-04,.6064266e-04,.6853163e-04,&
16874  & .7718017e-04,.6793589e-04,.1602781e-05,.1859572e-04,.3046861e-04,&
16875  & .4090220e-04,.5010077e-04,.5818133e-04,.6567877e-04,.7391640e-04,&
16876  & .6394695e-04,.1701735e-05,.1874689e-04,.3064865e-04,.4112164e-04,&
16877  & .5031423e-04,.5845409e-04,.6607977e-04,.7447772e-04,.6440095e-04,&
16878  & .1064649e-05,.1659392e-04,.2728440e-04,.3661825e-04,.4488879e-04,&
16879  & .5216469e-04,.5901946e-04,.6679678e-04,.5636200e-04,.1144486e-05,&
16880  & .1674885e-04,.2754084e-04,.3698113e-04,.4529662e-04,.5265143e-04,&
16881  & .5963365e-04,.6763659e-04,.5703090e-04,.1229283e-05,.1755590e-04,&
16882  & .2904804e-04,.3914394e-04,.4801072e-04,.5596306e-04,.6357576e-04,&
16883  & .7232186e-04,.6241105e-04,.1311915e-05,.1765175e-04,.2914597e-04,&
16884  & .3924495e-04,.4810414e-04,.5607476e-04,.6377001e-04,.7264059e-04,&
16885  & .6255768e-04,.1393667e-05,.1719840e-04,.2815613e-04,.3775091e-04,&
16886  & .4611483e-04,.5365819e-04,.6097830e-04,.6951518e-04,.5857723e-04,&
16887  & .8510123e-06,.1505886e-04,.2479646e-04,.3323319e-04,.4067061e-04,&
16888  & .4732001e-04,.5376955e-04,.6151348e-04,.5054458e-04,.9176962e-06,&
16889  & .1522049e-04,.2506909e-04,.3359909e-04,.4107044e-04,.4781093e-04,&
16890  & .5439483e-04,.6241934e-04,.5123952e-04,.9852056e-06,.1537278e-04,&
16891  & .2530125e-04,.3390810e-04,.4140644e-04,.4822544e-04,.5493151e-04,&
16892  & .6311719e-04,.5182421e-04,.1051221e-05,.1616403e-04,.2674998e-04,&
16893  & .3597079e-04,.4404185e-04,.5143084e-04,.5876151e-04,.6767562e-04,&
16894  & .5703403e-04,.1116703e-05,.1566305e-04,.2568848e-04,.3436963e-04,&
16895  & .4192613e-04,.4885053e-04,.5577076e-04,.6434502e-04,.5271676e-04,&
16896  & .6706972e-06,.1356834e-04,.2234016e-04,.2988013e-04,.3652444e-04,&
16897  & .4257018e-04,.4855089e-04,.5610533e-04,.4513334e-04,.7245362e-06,&
16898  & .1373634e-04,.2262553e-04,.3024618e-04,.3692628e-04,.4305715e-04,&
16899  & .4917507e-04,.5705200e-04,.4580726e-04,.7792176e-06,.1389124e-04,&
16900  & .2286472e-04,.3055718e-04,.3727285e-04,.4346813e-04,.4973107e-04,&
16901  & .5777942e-04,.4638437e-04,.8325154e-06,.1403502e-04,.2307317e-04,&
16902  & .3081856e-04,.3756897e-04,.4382456e-04,.5020863e-04,.5845074e-04,&
16903  & .4687437e-04,.8857411e-06,.1481254e-04,.2449491e-04,.3281306e-04,&
16904  & .4013490e-04,.4697409e-04,.5391258e-04,.6287210e-04,.5200378e-04/
16905 
16906  data absa(181:315, 4) / &
16907  & .5167508e-06,.1213015e-04,.1994761e-04,.2666478e-04,.3257689e-04,&
16908  & .3801490e-04,.4351481e-04,.5071048e-04,.3970568e-04,.5611450e-06,&
16909  & .1230180e-04,.2023486e-04,.2701994e-04,.3297257e-04,.3850691e-04,&
16910  & .4413473e-04,.5168590e-04,.4035843e-04,.6074942e-06,.1245708e-04,&
16911  & .2048237e-04,.2733236e-04,.3332457e-04,.3893535e-04,.4469849e-04,&
16912  & .5243452e-04,.4091681e-04,.6497091e-06,.1260117e-04,.2070243e-04,&
16913  & .2759760e-04,.3363226e-04,.3930008e-04,.4517120e-04,.5311341e-04,&
16914  & .4140540e-04,.6918234e-06,.1342830e-04,.2222680e-04,.2973432e-04,&
16915  & .3639360e-04,.4267235e-04,.4915864e-04,.5781325e-04,.4703066e-04,&
16916  & .3889111e-06,.1075212e-04,.1766146e-04,.2361401e-04,.2885114e-04,&
16917  & .3370300e-04,.3869751e-04,.4540779e-04,.2843576e-04,.4255971e-06,&
16918  & .1092624e-04,.1794903e-04,.2396544e-04,.2925012e-04,.3420204e-04,&
16919  & .3932564e-04,.4642134e-04,.2904572e-04,.4617245e-06,.1108153e-04,&
16920  & .1820339e-04,.2427801e-04,.2960841e-04,.3464423e-04,.3989616e-04,&
16921  & .4717937e-04,.2958696e-04,.4963196e-06,.1122268e-04,.1843067e-04,&
16922  & .2454397e-04,.2992123e-04,.3501424e-04,.4036504e-04,.4787143e-04,&
16923  & .3007661e-04,.5288712e-06,.1136116e-04,.1862698e-04,.2476416e-04,&
16924  & .3018301e-04,.3532236e-04,.4075287e-04,.4844677e-04,.3048386e-04,&
16925  & .2818201e-06,.9454122e-05,.1552584e-04,.2075905e-04,.2537253e-04,&
16926  & .2967483e-04,.3416421e-04,.4036992e-04,.1358631e-04,.3116980e-06,&
16927  & .9630115e-05,.1581178e-04,.2110576e-04,.2577640e-04,.3017903e-04,&
16928  & .3479450e-04,.4135899e-04,.1411977e-04,.3391436e-06,.9785821e-05,&
16929  & .1606901e-04,.2141705e-04,.2613954e-04,.3061951e-04,.3535944e-04,&
16930  & .4214515e-04,.1459742e-04,.3649969e-06,.9929644e-05,.1629735e-04,&
16931  & .2168157e-04,.2645134e-04,.3099353e-04,.3582904e-04,.4283092e-04,&
16932  & .1493885e-04,.3909595e-06,.1006778e-04,.1649654e-04,.2190347e-04,&
16933  & .2671526e-04,.3130880e-04,.3622231e-04,.4340255e-04,.1525050e-04/
16934 
16935  data absa(316:450, 4) / &
16936  & .1885550e-06,.8237115e-05,.1355115e-04,.1812203e-04,.2216406e-04,&
16937  & .2595910e-04,.2995607e-04,.3567120e-04,.1531929e-04,.2087836e-06,&
16938  & .8413745e-05,.1383332e-04,.1846337e-04,.2256351e-04,.2645687e-04,&
16939  & .3058162e-04,.3655441e-04,.1558368e-04,.2296238e-06,.8571555e-05,&
16940  & .1408726e-04,.1876607e-04,.2292379e-04,.2689093e-04,.3112883e-04,&
16941  & .3737211e-04,.1557312e-04,.2500010e-06,.8719796e-05,.1431412e-04,&
16942  & .1902641e-04,.2323430e-04,.2726681e-04,.3159471e-04,.3804543e-04,&
16943  & .1578427e-04,.2711853e-06,.8859111e-05,.1451202e-04,.1924827e-04,&
16944  & .2349894e-04,.2758553e-04,.3199143e-04,.3860292e-04,.1588112e-04,&
16945  & .1230406e-06,.7071075e-05,.1173600e-04,.1570803e-04,.1922851e-04,&
16946  & .2255710e-04,.2608910e-04,.3126942e-04,.3216989e-04,.1333225e-06,&
16947  & .7245254e-05,.1201186e-04,.1604140e-04,.1961962e-04,.2304330e-04,&
16948  & .2669918e-04,.3205734e-04,.3251376e-04,.1467059e-06,.7408812e-05,&
16949  & .1226050e-04,.1633677e-04,.1997347e-04,.2347166e-04,.2723239e-04,&
16950  & .3289453e-04,.3282901e-04,.1619556e-06,.7561287e-05,.1248084e-04,&
16951  & .1659177e-04,.2028185e-04,.2384470e-04,.2769227e-04,.3354727e-04,&
16952  & .3315058e-04,.1762633e-06,.7701606e-05,.1267408e-04,.1681320e-04,&
16953  & .2054736e-04,.2416501e-04,.2808628e-04,.3409678e-04,.3312584e-04,&
16954  & .1086826e-06,.5647058e-05,.1006035e-04,.1354169e-04,.1659919e-04,&
16955  & .1950529e-04,.2261606e-04,.2728891e-04,.4618372e-04,.1056253e-06,&
16956  & .5824652e-05,.1032706e-04,.1386088e-04,.1697733e-04,.1997451e-04,&
16957  & .2320443e-04,.2799400e-04,.4673866e-04,.1091752e-06,.5977988e-05,&
16958  & .1056852e-04,.1414636e-04,.1732210e-04,.2039088e-04,.2372048e-04,&
16959  & .2879946e-04,.4859587e-04,.1162781e-06,.6130784e-05,.1078173e-04,&
16960  & .1439326e-04,.1762377e-04,.2075664e-04,.2416964e-04,.2942961e-04,&
16961  & .4852916e-04,.1200840e-06,.6274589e-05,.1096931e-04,.1461013e-04,&
16962  & .1788556e-04,.2107397e-04,.2455553e-04,.2995813e-04,.4904614e-04/
16963 
16964  data absa(451:585, 4) / &
16965  & .1675748e-06,.4418138e-05,.8301726e-05,.1168525e-04,.1439259e-04,&
16966  & .1696072e-04,.1973556e-04,.2395464e-04,.4468651e-04,.1734702e-06,&
16967  & .4573506e-05,.8548681e-05,.1197974e-04,.1474159e-04,.1738826e-04,&
16968  & .2027162e-04,.2462762e-04,.4554179e-04,.1739972e-06,.4723577e-05,&
16969  & .8779827e-05,.1223847e-04,.1505819e-04,.1776729e-04,.2074409e-04,&
16970  & .2535087e-04,.4445044e-04,.1750928e-06,.4863503e-05,.8978592e-05,&
16971  & .1246324e-04,.1533399e-04,.1810410e-04,.2114969e-04,.2591012e-04,&
16972  & .4445933e-04,.1808266e-06,.4993518e-05,.9148942e-05,.1266696e-04,&
16973  & .1557959e-04,.1839978e-04,.2150457e-04,.2639122e-04,.4563702e-04,&
16974  & .2010952e-06,.3480775e-05,.6740064e-05,.9826566e-05,.1239046e-04,&
16975  & .1466668e-04,.1712740e-04,.2092359e-04,.4828846e-04,.2004906e-06,&
16976  & .3617594e-05,.6950190e-05,.1010039e-04,.1271291e-04,.1505595e-04,&
16977  & .1761624e-04,.2155447e-04,.4984876e-04,.2193992e-06,.3747107e-05,&
16978  & .7152981e-05,.1032882e-04,.1300048e-04,.1539966e-04,.1804326e-04,&
16979  & .2217884e-04,.4995284e-04,.2317770e-06,.3868823e-05,.7322475e-05,&
16980  & .1053445e-04,.1325413e-04,.1570896e-04,.1841202e-04,.2268552e-04,&
16981  & .5167058e-04,.2292152e-06,.3975147e-05,.7484804e-05,.1073491e-04,&
16982  & .1348680e-04,.1598438e-04,.1873862e-04,.2312606e-04,.4992244e-04,&
16983  & .2573677e-06,.2629386e-05,.5319732e-05,.7892318e-05,.1048730e-04,&
16984  & .1260461e-04,.1478749e-04,.1816822e-04,.4948787e-04,.2535694e-06,&
16985  & .2751139e-05,.5519585e-05,.8143370e-05,.1078554e-04,.1295471e-04,&
16986  & .1522905e-04,.1876027e-04,.5038619e-04,.2296209e-06,.2871168e-05,&
16987  & .5705427e-05,.8368314e-05,.1104763e-04,.1326931e-04,.1561214e-04,&
16988  & .1930238e-04,.4875010e-04,.2285283e-06,.2976458e-05,.5870383e-05,&
16989  & .8562471e-05,.1128721e-04,.1355655e-04,.1595638e-04,.1975997e-04,&
16990  & .4655490e-04,.2277949e-06,.3086384e-05,.6023967e-05,.8743382e-05,&
16991  & .1150669e-04,.1381686e-04,.1626204e-04,.2015870e-04,.4599833e-04/
16992 
16993  data absa( 1:180, 5) / &
16994  & .1258379e-03,.1792232e-03,.2263834e-03,.2643095e-03,.2960118e-03,&
16995  & .3236055e-03,.3486226e-03,.3708136e-03,.3537227e-03,.1252867e-03,&
16996  & .1784744e-03,.2256677e-03,.2637463e-03,.2957115e-03,.3235207e-03,&
16997  & .3487202e-03,.3710916e-03,.3547494e-03,.1246492e-03,.1788252e-03,&
16998  & .2273405e-03,.2669495e-03,.3004867e-03,.3297723e-03,.3562380e-03,&
16999  & .3799251e-03,.3658619e-03,.1240169e-03,.1766881e-03,.2240641e-03,&
17000  & .2627788e-03,.2953183e-03,.3234639e-03,.3488432e-03,.3713321e-03,&
17001  & .3567172e-03,.1233679e-03,.1757608e-03,.2232662e-03,.2622089e-03,&
17002  & .2951315e-03,.3234287e-03,.3488259e-03,.3713523e-03,.3576976e-03,&
17003  & .1069251e-03,.1638851e-03,.2111585e-03,.2498003e-03,.2830029e-03,&
17004  & .3120257e-03,.3378034e-03,.3624640e-03,.3424007e-03,.1064316e-03,&
17005  & .1632513e-03,.2106727e-03,.2494364e-03,.2829718e-03,.3122311e-03,&
17006  & .3381458e-03,.3630252e-03,.3438497e-03,.1058739e-03,.1637860e-03,&
17007  & .2127118e-03,.2531195e-03,.2882500e-03,.3190771e-03,.3463354e-03,&
17008  & .3723861e-03,.3557833e-03,.1053157e-03,.1629041e-03,.2119399e-03,&
17009  & .2525668e-03,.2878735e-03,.3188283e-03,.3460548e-03,.3719927e-03,&
17010  & .3563658e-03,.1048030e-03,.1609177e-03,.2089982e-03,.2486370e-03,&
17011  & .2829942e-03,.3129743e-03,.3391967e-03,.3638899e-03,.3480124e-03,&
17012  & .9052393e-04,.1496647e-03,.1963928e-03,.2353138e-03,.2692949e-03,&
17013  & .2994397e-03,.3259337e-03,.3522926e-03,.3288949e-03,.9011012e-04,&
17014  & .1491318e-03,.1961079e-03,.2352015e-03,.2695824e-03,.2999606e-03,&
17015  & .3266081e-03,.3531618e-03,.3308028e-03,.8966771e-04,.1485392e-03,&
17016  & .1958028e-03,.2351815e-03,.2698429e-03,.3005448e-03,.3273009e-03,&
17017  & .3538438e-03,.3326818e-03,.8920657e-04,.1491611e-03,.1980348e-03,&
17018  & .2389898e-03,.2753310e-03,.3075620e-03,.3356528e-03,.3632137e-03,&
17019  & .3449423e-03,.8880078e-04,.1472741e-03,.1951287e-03,.2350641e-03,&
17020  & .2704561e-03,.3016661e-03,.3287211e-03,.3549932e-03,.3361806e-03,&
17021  & .7642425e-04,.1365161e-03,.1822415e-03,.2208431e-03,.2550453e-03,&
17022  & .2857390e-03,.3131524e-03,.3407797e-03,.3140906e-03,.7610890e-04,&
17023  & .1361051e-03,.1821158e-03,.2209982e-03,.2556705e-03,.2866395e-03,&
17024  & .3142723e-03,.3419173e-03,.3164057e-03,.7573557e-04,.1356867e-03,&
17025  & .1820099e-03,.2212242e-03,.2562294e-03,.2875830e-03,.3152966e-03,&
17026  & .3429191e-03,.3186642e-03,.7538404e-04,.1352458e-03,.1818638e-03,&
17027  & .2214386e-03,.2568082e-03,.2884658e-03,.3163349e-03,.3438669e-03,&
17028  & .3207779e-03,.7505591e-04,.1360347e-03,.1841939e-03,.2254174e-03,&
17029  & .2624835e-03,.2957188e-03,.3250526e-03,.3534819e-03,.3333120e-03/
17030 
17031  data absa(181:315, 5) / &
17032  & .6441960e-04,.1243382e-03,.1686492e-03,.2063321e-03,.2401962e-03,&
17033  & .2709669e-03,.2991358e-03,.3279206e-03,.2981254e-03,.6417820e-04,&
17034  & .1241020e-03,.1687386e-03,.2068102e-03,.2412076e-03,.2722842e-03,&
17035  & .3007606e-03,.3294871e-03,.3009391e-03,.6388399e-04,.1238576e-03,&
17036  & .1687898e-03,.2073172e-03,.2421411e-03,.2736197e-03,.3022572e-03,&
17037  & .3309669e-03,.3036272e-03,.6360964e-04,.1235961e-03,.1688422e-03,&
17038  & .2077864e-03,.2431068e-03,.2749041e-03,.3037508e-03,.3323669e-03,&
17039  & .3061923e-03,.6334715e-04,.1246342e-03,.1715166e-03,.2122785e-03,&
17040  & .2493866e-03,.2829267e-03,.3132804e-03,.3430618e-03,.3198672e-03,&
17041  & .5428305e-04,.1131178e-03,.1555172e-03,.1918587e-03,.2248108e-03,&
17042  & .2552688e-03,.2837909e-03,.3135092e-03,.2808167e-03,.5410275e-04,&
17043  & .1130139e-03,.1558251e-03,.1926789e-03,.2262062e-03,.2569617e-03,&
17044  & .2858483e-03,.3156324e-03,.2840877e-03,.5388978e-04,.1129118e-03,&
17045  & .1560839e-03,.1935035e-03,.2275082e-03,.2586750e-03,.2877475e-03,&
17046  & .3176409e-03,.2872619e-03,.5366157e-04,.1128154e-03,.1563700e-03,&
17047  & .1943089e-03,.2288065e-03,.2603020e-03,.2896110e-03,.3195144e-03,&
17048  & .2902915e-03,.5344784e-04,.1126980e-03,.1566320e-03,.1951184e-03,&
17049  & .2300546e-03,.2619121e-03,.2914792e-03,.3214494e-03,.2932874e-03,&
17050  & .4571342e-04,.1026942e-03,.1428236e-03,.1775296e-03,.2091830e-03,&
17051  & .2387595e-03,.2671739e-03,.2978545e-03,.2594784e-03,.4560282e-04,&
17052  & .1027218e-03,.1433756e-03,.1786580e-03,.2109254e-03,.2408706e-03,&
17053  & .2696813e-03,.3004723e-03,.2634130e-03,.4544692e-04,.1027687e-03,&
17054  & .1438888e-03,.1797866e-03,.2125279e-03,.2429678e-03,.2720358e-03,&
17055  & .3029173e-03,.2670716e-03,.4528151e-04,.1028069e-03,.1444180e-03,&
17056  & .1808751e-03,.2141242e-03,.2449535e-03,.2743172e-03,.3052177e-03,&
17057  & .2706270e-03,.4511742e-04,.1028521e-03,.1449287e-03,.1819408e-03,&
17058  & .2156718e-03,.2468811e-03,.2765286e-03,.3074942e-03,.2741063e-03/
17059 
17060  data absa(316:450, 5) / &
17061  & .3845347e-04,.9301429e-04,.1306852e-03,.1633456e-03,.1934332e-03,&
17062  & .2218378e-03,.2497592e-03,.2809541e-03,.1575108e-03,.3839587e-04,&
17063  & .9318412e-04,.1314652e-03,.1648012e-03,.1954890e-03,.2243498e-03,&
17064  & .2526899e-03,.2840733e-03,.1617842e-03,.3829010e-04,.9337649e-04,&
17065  & .1322053e-03,.1662204e-03,.1974070e-03,.2268068e-03,.2554975e-03,&
17066  & .2869785e-03,.1663258e-03,.3818495e-04,.9357010e-04,.1329542e-03,&
17067  & .1675979e-03,.1993416e-03,.2291758e-03,.2582113e-03,.2897317e-03,&
17068  & .1701293e-03,.3807196e-04,.9375146e-04,.1336930e-03,.1689218e-03,&
17069  & .2012206e-03,.2314740e-03,.2608244e-03,.2924501e-03,.1741563e-03,&
17070  & .3222272e-04,.8402664e-04,.1190004e-03,.1495500e-03,.1778606e-03,&
17071  & .2048436e-03,.2318785e-03,.2632322e-03,.2491014e-04,.3221362e-04,&
17072  & .8435285e-04,.1199991e-03,.1512485e-03,.1802135e-03,.2077441e-03,&
17073  & .2352663e-03,.2668367e-03,.2569053e-04,.3215953e-04,.8468829e-04,&
17074  & .1209883e-03,.1529182e-03,.1824779e-03,.2105732e-03,.2385311e-03,&
17075  & .2702367e-03,.2701309e-04,.3210851e-04,.8503241e-04,.1219626e-03,&
17076  & .1545750e-03,.1847085e-03,.2133101e-03,.2416857e-03,.2734763e-03,&
17077  & .2805465e-04,.3204318e-04,.8537283e-04,.1229412e-03,.1561853e-03,&
17078  & .1869065e-03,.2159588e-03,.2447099e-03,.2766143e-03,.2860049e-04,&
17079  & .2668365e-04,.7570181e-04,.1080203e-03,.1364318e-03,.1629303e-03,&
17080  & .1883981e-03,.2142724e-03,.2453798e-03,.3073231e-04,.2671397e-04,&
17081  & .7619513e-04,.1092103e-03,.1383829e-03,.1655646e-03,.1916417e-03,&
17082  & .2180830e-03,.2494081e-03,.2860411e-04,.2670321e-04,.7667716e-04,&
17083  & .1104090e-03,.1402846e-03,.1681221e-03,.1948231e-03,.2217702e-03,&
17084  & .2532299e-03,.2852470e-04,.2669101e-04,.7717197e-04,.1115742e-03,&
17085  & .1422043e-03,.1706685e-03,.1979160e-03,.2253063e-03,.2569544e-03,&
17086  & .3387605e-04,.2666179e-04,.7765343e-04,.1127755e-03,.1440858e-03,&
17087  & .1731700e-03,.2008739e-03,.2287122e-03,.2605352e-03,.3169336e-04/
17088 
17089  data absa(451:585, 5) / &
17090  & .2167692e-04,.6827587e-04,.9836512e-04,.1250201e-03,.1498886e-03,&
17091  & .1739600e-03,.1987214e-03,.2293404e-03,.2440081e-04,.2169387e-04,&
17092  & .6891366e-04,.9974241e-04,.1271668e-03,.1528340e-03,.1776053e-03,&
17093  & .2029862e-03,.2337700e-03,.2638768e-04,.2170600e-04,.6954070e-04,&
17094  & .1011255e-03,.1293455e-03,.1556958e-03,.1811079e-03,.2069944e-03,&
17095  & .2380400e-03,.3200312e-04,.2170812e-04,.7016990e-04,.1025105e-03,&
17096  & .1314880e-03,.1585164e-03,.1844769e-03,.2108627e-03,.2421072e-03,&
17097  & .3275541e-04,.2168923e-04,.7080350e-04,.1038948e-03,.1335789e-03,&
17098  & .1612308e-03,.1877502e-03,.2145673e-03,.2460134e-03,.3270936e-04,&
17099  & .1752912e-04,.6154969e-04,.8955810e-04,.1143831e-03,.1376209e-03,&
17100  & .1602880e-03,.1838222e-03,.2134820e-03,.2872965e-04,.1755385e-04,&
17101  & .6231518e-04,.9115429e-04,.1168314e-03,.1408712e-03,.1642185e-03,&
17102  & .1883638e-03,.2183575e-03,.3183547e-04,.1752199e-04,.6309426e-04,&
17103  & .9273525e-04,.1192604e-03,.1440348e-03,.1680514e-03,.1927365e-03,&
17104  & .2230115e-03,.3077672e-04,.1749575e-04,.6385017e-04,.9430365e-04,&
17105  & .1216307e-03,.1471390e-03,.1717409e-03,.1969541e-03,.2274695e-03,&
17106  & .2312932e-04,.1752070e-04,.6462019e-04,.9584906e-04,.1239388e-03,&
17107  & .1501161e-03,.1753754e-03,.2010501e-03,.2317004e-03,.2383092e-04,&
17108  & .1387461e-04,.5546622e-04,.8152797e-04,.1045929e-03,.1262746e-03,&
17109  & .1474566e-03,.1696496e-03,.1981242e-03,.3139074e-04,.1392397e-04,&
17110  & .5636393e-04,.8334885e-04,.1072746e-03,.1297503e-03,.1516626e-03,&
17111  & .1744739e-03,.2033126e-03,.2572972e-04,.1396545e-04,.5726788e-04,&
17112  & .8511400e-04,.1099575e-03,.1332042e-03,.1557803e-03,.1791529e-03,&
17113  & .2083642e-03,.2669035e-04,.1397377e-04,.5816790e-04,.8688926e-04,&
17114  & .1125444e-03,.1365495e-03,.1597819e-03,.1837038e-03,.2131552e-03,&
17115  & .2848091e-04,.1401956e-04,.5906486e-04,.8860992e-04,.1150938e-03,&
17116  & .1398565e-03,.1638183e-03,.1882562e-03,.2178384e-03,.2719011e-04/
17117 
17118  data absa( 1:180, 6) / &
17119  & .1127779e-02,.1042084e-02,.1103730e-02,.1177585e-02,.1245882e-02,&
17120  & .1305946e-02,.1334440e-02,.1306277e-02,.1318375e-02,.1125070e-02,&
17121  & .1037761e-02,.1098032e-02,.1171270e-02,.1239267e-02,.1299657e-02,&
17122  & .1328359e-02,.1299803e-02,.1315607e-02,.1123280e-02,.1035695e-02,&
17123  & .1095422e-02,.1170386e-02,.1240633e-02,.1304457e-02,.1337002e-02,&
17124  & .1309998e-02,.1335448e-02,.1122248e-02,.1032813e-02,.1088190e-02,&
17125  & .1159040e-02,.1227090e-02,.1287160e-02,.1316759e-02,.1286817e-02,&
17126  & .1309802e-02,.1121332e-02,.1030797e-02,.1084488e-02,.1154404e-02,&
17127  & .1221682e-02,.1281593e-02,.1311385e-02,.1280520e-02,.1306178e-02,&
17128  & .1019965e-02,.9810459e-03,.1068764e-02,.1149672e-02,.1228423e-02,&
17129  & .1296985e-02,.1342592e-02,.1331587e-02,.1337457e-02,.1017770e-02,&
17130  & .9768453e-03,.1063034e-02,.1145111e-02,.1222358e-02,.1291726e-02,&
17131  & .1337570e-02,.1326202e-02,.1335613e-02,.1016813e-02,.9753083e-03,&
17132  & .1061473e-02,.1145518e-02,.1226142e-02,.1297946e-02,.1347626e-02,&
17133  & .1338886e-02,.1357689e-02,.1015843e-02,.9725487e-03,.1057441e-02,&
17134  & .1140180e-02,.1220522e-02,.1291191e-02,.1340908e-02,.1331183e-02,&
17135  & .1353078e-02,.1015463e-02,.9698700e-03,.1050819e-02,.1130971e-02,&
17136  & .1207619e-02,.1275709e-02,.1322301e-02,.1309378e-02,.1327704e-02,&
17137  & .9119475e-03,.9235847e-03,.1031890e-02,.1126261e-02,.1212118e-02,&
17138  & .1287381e-02,.1346323e-02,.1352648e-02,.1351799e-02,.9104425e-03,&
17139  & .9200649e-03,.1026543e-02,.1122353e-02,.1206597e-02,.1282710e-02,&
17140  & .1341997e-02,.1348233e-02,.1350149e-02,.9096645e-03,.9174474e-03,&
17141  & .1022607e-02,.1117149e-02,.1202222e-02,.1277201e-02,.1337011e-02,&
17142  & .1343242e-02,.1348493e-02,.9088794e-03,.9162707e-03,.1022764e-02,&
17143  & .1119302e-02,.1206504e-02,.1284741e-02,.1348507e-02,.1357512e-02,&
17144  & .1369635e-02,.9088680e-03,.9133197e-03,.1016712e-02,.1109724e-02,&
17145  & .1192813e-02,.1268948e-02,.1329585e-02,.1335432e-02,.1344303e-02,&
17146  & .8030336e-03,.8629808e-03,.9905516e-03,.1102706e-02,.1194581e-02,&
17147  & .1276097e-02,.1344985e-02,.1368489e-02,.1358472e-02,.8020685e-03,&
17148  & .8599499e-03,.9864952e-03,.1098943e-02,.1190085e-02,.1271988e-02,&
17149  & .1340997e-02,.1365627e-02,.1358480e-02,.8014347e-03,.8575084e-03,&
17150  & .9835460e-03,.1094344e-02,.1186524e-02,.1267351e-02,.1337492e-02,&
17151  & .1362554e-02,.1358055e-02,.8012884e-03,.8553201e-03,.9810718e-03,&
17152  & .1090482e-02,.1182154e-02,.1264203e-02,.1334958e-02,.1360018e-02,&
17153  & .1357215e-02,.8017028e-03,.8553036e-03,.9828813e-03,.1094204e-02,&
17154  & .1188558e-02,.1274654e-02,.1347715e-02,.1376787e-02,.1377563e-02/
17155 
17156  data absa(181:315, 6) / &
17157  & .6989341e-03,.8008136e-03,.9474693e-03,.1073693e-02,.1176718e-02,&
17158  & .1263281e-02,.1337495e-02,.1377174e-02,.1357373e-02,.6982803e-03,&
17159  & .7984718e-03,.9443526e-03,.1071067e-02,.1172943e-02,.1259834e-02,&
17160  & .1334341e-02,.1375767e-02,.1358133e-02,.6978266e-03,.7963865e-03,&
17161  & .9422629e-03,.1067324e-02,.1169642e-02,.1256400e-02,.1331961e-02,&
17162  & .1374337e-02,.1358589e-02,.6981011e-03,.7946817e-03,.9401344e-03,&
17163  & .1064498e-02,.1165906e-02,.1254292e-02,.1329925e-02,.1372816e-02,&
17164  & .1358794e-02,.6987926e-03,.7955223e-03,.9431432e-03,.1070202e-02,&
17165  & .1174838e-02,.1266995e-02,.1345241e-02,.1390924e-02,.1382115e-02,&
17166  & .6011592e-03,.7388959e-03,.9023729e-03,.1040717e-02,.1155626e-02,&
17167  & .1247524e-02,.1326820e-02,.1381148e-02,.1347234e-02,.6009151e-03,&
17168  & .7373240e-03,.9002892e-03,.1038951e-02,.1152565e-02,.1245208e-02,&
17169  & .1324569e-02,.1380312e-02,.1349694e-02,.6008914e-03,.7360400e-03,&
17170  & .8989538e-03,.1035946e-02,.1150472e-02,.1242758e-02,.1323179e-02,&
17171  & .1379317e-02,.1351734e-02,.6017350e-03,.7352405e-03,.8972176e-03,&
17172  & .1033783e-02,.1147905e-02,.1241675e-02,.1321813e-02,.1377843e-02,&
17173  & .1353588e-02,.6024658e-03,.7352400e-03,.8961216e-03,.1032038e-02,&
17174  & .1146289e-02,.1240281e-02,.1320537e-02,.1375799e-02,.1354849e-02,&
17175  & .5131365e-03,.6802953e-03,.8558547e-03,.1004257e-02,.1129015e-02,&
17176  & .1228658e-02,.1311670e-02,.1377495e-02,.1326794e-02,.5128417e-03,&
17177  & .6796430e-03,.8551433e-03,.1003333e-02,.1127459e-02,.1227610e-02,&
17178  & .1310680e-02,.1377165e-02,.1331440e-02,.5128844e-03,.6791129e-03,&
17179  & .8543752e-03,.1001545e-02,.1126702e-02,.1226436e-02,.1310287e-02,&
17180  & .1377210e-02,.1336197e-02,.5138776e-03,.6790044e-03,.8533106e-03,&
17181  & .1000677e-02,.1125665e-02,.1226017e-02,.1310194e-02,.1376877e-02,&
17182  & .1340793e-02,.5148503e-03,.6794602e-03,.8527717e-03,.1000386e-02,&
17183  & .1125230e-02,.1225940e-02,.1310446e-02,.1376564e-02,.1344823e-02/
17184 
17185  data absa(316:450, 6) / &
17186  & .4354937e-03,.6258347e-03,.8095219e-03,.9652907e-03,.1096244e-02,&
17187  & .1204241e-02,.1290647e-02,.1366018e-02,.1291769e-02,.4351834e-03,&
17188  & .6260531e-03,.8097110e-03,.9658306e-03,.1096299e-02,.1204907e-02,&
17189  & .1291676e-02,.1367386e-02,.1299495e-02,.4354926e-03,.6262211e-03,&
17190  & .8099139e-03,.9655329e-03,.1097699e-02,.1205112e-02,.1292665e-02,&
17191  & .1368366e-02,.1307945e-02,.4366061e-03,.6265142e-03,.8100645e-03,&
17192  & .9659489e-03,.1098184e-02,.1206245e-02,.1294118e-02,.1369694e-02,&
17193  & .1316015e-02,.4374936e-03,.6275003e-03,.8106097e-03,.9669869e-03,&
17194  & .1099303e-02,.1207811e-02,.1295643e-02,.1370889e-02,.1323956e-02,&
17195  & .3685128e-03,.5745214e-03,.7639287e-03,.9223177e-03,.1057771e-02,&
17196  & .1170619e-02,.1261579e-02,.1344082e-02,.3978360e-03,.3683928e-03,&
17197  & .5756454e-03,.7650351e-03,.9248369e-03,.1060206e-02,.1174221e-02,&
17198  & .1265274e-02,.1347856e-02,.4071014e-03,.3688375e-03,.5764859e-03,&
17199  & .7661665e-03,.9267124e-03,.1063374e-02,.1176667e-02,.1268148e-02,&
17200  & .1350882e-02,.4149611e-03,.3697059e-03,.5774958e-03,.7676652e-03,&
17201  & .9288451e-03,.1065840e-02,.1179962e-02,.1271481e-02,.1354201e-02,&
17202  & .4230889e-03,.3705971e-03,.5790606e-03,.7693590e-03,.9312187e-03,&
17203  & .1068730e-02,.1183767e-02,.1275156e-02,.1357593e-02,.4395701e-03,&
17204  & .3118513e-03,.5278670e-03,.7179922e-03,.8762847e-03,.1013004e-02,&
17205  & .1129188e-02,.1225380e-02,.1313014e-02,.2823336e-04,.3119642e-03,&
17206  & .5295040e-03,.7205085e-03,.8810719e-03,.1018490e-02,.1135842e-02,&
17207  & .1231411e-02,.1319687e-02,.2591174e-04,.3123480e-03,.5313833e-03,&
17208  & .7231295e-03,.8852977e-03,.1024173e-02,.1141110e-02,.1237009e-02,&
17209  & .1325493e-02,.2490050e-04,.3131033e-03,.5329730e-03,.7261876e-03,&
17210  & .8890594e-03,.1028824e-02,.1147600e-02,.1243500e-02,.1331641e-02,&
17211  & .2358085e-04,.3141200e-03,.5351677e-03,.7291337e-03,.8933695e-03,&
17212  & .1034263e-02,.1154416e-02,.1249926e-02,.1337840e-02,.1914261e-04/
17213 
17214  data absa(451:585, 6) / &
17215  & .2645518e-03,.4865074e-03,.6737735e-03,.8307780e-03,.9684326e-03,&
17216  & .1087714e-02,.1187390e-02,.1279536e-02,.3096728e-04,.2646171e-03,&
17217  & .4891259e-03,.6781457e-03,.8380014e-03,.9763776e-03,.1095878e-02,&
17218  & .1195388e-02,.1287784e-02,.1937897e-04,.2653275e-03,.4912812e-03,&
17219  & .6826723e-03,.8439569e-03,.9843890e-03,.1104414e-02,.1204820e-02,&
17220  & .1296209e-02,.2310672e-04,.2660999e-03,.4938062e-03,.6869132e-03,&
17221  & .8501984e-03,.9923360e-03,.1114850e-02,.1214879e-02,.1305902e-02,&
17222  & .1551854e-04,.2672744e-03,.4963201e-03,.6913518e-03,.8568207e-03,&
17223  & .1001054e-02,.1124616e-02,.1224913e-02,.1315531e-02,.1902280e-04,&
17224  & .2249381e-03,.4491543e-03,.6314125e-03,.7873093e-03,.9244395e-03,&
17225  & .1044841e-02,.1147218e-02,.1242720e-02,.1795873e-04,.2253436e-03,&
17226  & .4522769e-03,.6374135e-03,.7959199e-03,.9349022e-03,.1056532e-02,&
17227  & .1159671e-02,.1253800e-02,.3013456e-04,.2260901e-03,.4552587e-03,&
17228  & .6435905e-03,.8039747e-03,.9457286e-03,.1069229e-02,.1173356e-02,&
17229  & .1266548e-02,.1199840e-04,.2269143e-03,.4587430e-03,.6495108e-03,&
17230  & .8129332e-03,.9570070e-03,.1082883e-02,.1186741e-02,.1279448e-02,&
17231  & .1794789e-04,.2280730e-03,.4618575e-03,.6559639e-03,.8219928e-03,&
17232  & .9685634e-03,.1095437e-02,.1200070e-02,.1292864e-02,.3604270e-04,&
17233  & .1921277e-03,.4151006e-03,.5920383e-03,.7457881e-03,.8813168e-03,&
17234  & .1001800e-02,.1105493e-02,.1202692e-02,.2297239e-04,.1928316e-03,&
17235  & .4191322e-03,.5996165e-03,.7563148e-03,.8956200e-03,.1018058e-02,&
17236  & .1123450e-02,.1218805e-02,.7650963e-05,.1934147e-03,.4229466e-03,&
17237  & .6073039e-03,.7668297e-03,.9096828e-03,.1035442e-02,.1141697e-02,&
17238  & .1235773e-02,.1552682e-04,.1943616e-03,.4270842e-03,.6149144e-03,&
17239  & .7783265e-03,.9240174e-03,.1052153e-02,.1158854e-02,.1252683e-02,&
17240  & .1480436e-06,.1954216e-03,.4310524e-03,.6232033e-03,.7895004e-03,&
17241  & .9380216e-03,.1067280e-02,.1175445e-02,.1269539e-02,.1885871e-06/
17242 
17243  data absa( 1:180, 7) / &
17244  & .6726057e-02,.5885484e-02,.5089667e-02,.4459280e-02,.3971837e-02,&
17245  & .3599783e-02,.3258569e-02,.2761804e-02,.3295159e-02,.6741033e-02,&
17246  & .5898281e-02,.5098508e-02,.4461017e-02,.3965454e-02,.3586408e-02,&
17247  & .3239758e-02,.2739181e-02,.3264504e-02,.6753803e-02,.5909939e-02,&
17248  & .5108959e-02,.4465734e-02,.3967543e-02,.3586504e-02,.3237724e-02,&
17249  & .2736408e-02,.3262274e-02,.6761981e-02,.5916777e-02,.5112425e-02,&
17250  & .4461186e-02,.3950994e-02,.3560504e-02,.3206228e-02,.2700475e-02,&
17251  & .3204452e-02,.6766641e-02,.5920869e-02,.5113796e-02,.4457946e-02,&
17252  & .3942736e-02,.3547005e-02,.3190693e-02,.2682249e-02,.3178026e-02,&
17253  & .6602172e-02,.5776872e-02,.5061456e-02,.4534366e-02,.4128541e-02,&
17254  & .3833906e-02,.3516765e-02,.3008287e-02,.3509874e-02,.6617721e-02,&
17255  & .5790525e-02,.5069114e-02,.4531714e-02,.4120691e-02,.3818183e-02,&
17256  & .3497546e-02,.2984974e-02,.3478859e-02,.6628661e-02,.5799925e-02,&
17257  & .5076114e-02,.4533842e-02,.4120334e-02,.3817738e-02,.3496943e-02,&
17258  & .2984746e-02,.3479524e-02,.6637051e-02,.5807576e-02,.5078438e-02,&
17259  & .4529659e-02,.4109342e-02,.3801331e-02,.3478883e-02,.2965136e-02,&
17260  & .3448943e-02,.6644129e-02,.5813792e-02,.5079055e-02,.4521155e-02,&
17261  & .4092528e-02,.3771957e-02,.3445403e-02,.2926792e-02,.3395993e-02,&
17262  & .6403543e-02,.5608393e-02,.4995394e-02,.4569211e-02,.4267045e-02,&
17263  & .4052917e-02,.3769832e-02,.3262352e-02,.3718785e-02,.6418428e-02,&
17264  & .5620905e-02,.5000985e-02,.4564662e-02,.4256975e-02,.4036131e-02,&
17265  & .3749359e-02,.3237816e-02,.3690475e-02,.6431526e-02,.5631313e-02,&
17266  & .5004466e-02,.4561740e-02,.4245515e-02,.4020306e-02,.3730187e-02,&
17267  & .3216366e-02,.3662511e-02,.6443000e-02,.5641170e-02,.5008963e-02,&
17268  & .4562706e-02,.4244648e-02,.4017451e-02,.3728288e-02,.3215678e-02,&
17269  & .3669714e-02,.6454834e-02,.5651225e-02,.5010564e-02,.4555174e-02,&
17270  & .4226789e-02,.3985960e-02,.3691258e-02,.3172291e-02,.3616086e-02,&
17271  & .6136735e-02,.5394093e-02,.4895063e-02,.4573199e-02,.4385068e-02,&
17272  & .4249509e-02,.4003690e-02,.3510981e-02,.3909452e-02,.6155380e-02,&
17273  & .5408904e-02,.4900856e-02,.4569405e-02,.4373257e-02,.4232877e-02,&
17274  & .3984093e-02,.3485462e-02,.3882943e-02,.6172980e-02,.5422475e-02,&
17275  & .4904945e-02,.4567515e-02,.4361079e-02,.4216322e-02,.3963626e-02,&
17276  & .3461480e-02,.3857723e-02,.6190567e-02,.5436595e-02,.4910048e-02,&
17277  & .4565398e-02,.4351183e-02,.4198401e-02,.3942356e-02,.3437743e-02,&
17278  & .3835996e-02,.6207595e-02,.5450671e-02,.4917790e-02,.4569064e-02,&
17279  & .4350510e-02,.4193413e-02,.3939962e-02,.3434045e-02,.3850556e-02/
17280 
17281  data absa(181:315, 7) / &
17282  & .5805911e-02,.5141666e-02,.4763038e-02,.4558815e-02,.4481648e-02,&
17283  & .4418775e-02,.4218480e-02,.3750496e-02,.4085582e-02,.5829599e-02,&
17284  & .5159492e-02,.4770932e-02,.4555269e-02,.4469546e-02,.4402981e-02,&
17285  & .4198610e-02,.3724260e-02,.4061967e-02,.5854540e-02,.5177705e-02,&
17286  & .4778238e-02,.4554312e-02,.4457721e-02,.4386787e-02,.4178282e-02,&
17287  & .3698112e-02,.4040118e-02,.5879038e-02,.5196952e-02,.4787326e-02,&
17288  & .4553873e-02,.4447674e-02,.4369633e-02,.4158545e-02,.3673692e-02,&
17289  & .4021141e-02,.5902275e-02,.5214049e-02,.4797276e-02,.4557481e-02,&
17290  & .4445243e-02,.4367290e-02,.4159851e-02,.3673710e-02,.4041450e-02,&
17291  & .5423597e-02,.4859083e-02,.4609862e-02,.4529795e-02,.4557832e-02,&
17292  & .4560070e-02,.4409076e-02,.3975219e-02,.4252602e-02,.5454365e-02,&
17293  & .4881607e-02,.4620352e-02,.4527565e-02,.4548530e-02,.4548237e-02,&
17294  & .4391661e-02,.3949326e-02,.4232009e-02,.5488044e-02,.4905751e-02,&
17295  & .4632103e-02,.4528708e-02,.4538967e-02,.4534788e-02,.4373488e-02,&
17296  & .3924420e-02,.4212910e-02,.5518713e-02,.4928892e-02,.4643930e-02,&
17297  & .4529113e-02,.4529842e-02,.4520746e-02,.4357460e-02,.3901482e-02,&
17298  & .4195693e-02,.5549581e-02,.4949387e-02,.4654691e-02,.4528154e-02,&
17299  & .4518717e-02,.4507320e-02,.4341984e-02,.3878945e-02,.4179215e-02,&
17300  & .5010662e-02,.4562289e-02,.4450406e-02,.4497408e-02,.4612122e-02,&
17301  & .4668231e-02,.4573752e-02,.4184611e-02,.4407478e-02,.5048488e-02,&
17302  & .4588791e-02,.4462195e-02,.4495999e-02,.4605287e-02,.4662092e-02,&
17303  & .4561288e-02,.4161583e-02,.4389563e-02,.5087790e-02,.4615970e-02,&
17304  & .4475379e-02,.4496880e-02,.4598974e-02,.4654027e-02,.4547703e-02,&
17305  & .4139097e-02,.4372125e-02,.5124133e-02,.4641212e-02,.4488105e-02,&
17306  & .4495983e-02,.4593289e-02,.4645512e-02,.4535541e-02,.4118063e-02,&
17307  & .4355876e-02,.5162759e-02,.4667582e-02,.4502006e-02,.4496029e-02,&
17308  & .4585626e-02,.4636559e-02,.4523214e-02,.4097252e-02,.4340154e-02/
17309 
17310  data absa(316:450, 7) / &
17311  & .4587688e-02,.4265942e-02,.4293117e-02,.4465668e-02,.4646838e-02,&
17312  & .4746553e-02,.4710731e-02,.4377367e-02,.4543398e-02,.4630881e-02,&
17313  & .4294688e-02,.4306044e-02,.4466382e-02,.4646169e-02,.4747955e-02,&
17314  & .4704166e-02,.4357348e-02,.4528127e-02,.4671866e-02,.4321409e-02,&
17315  & .4317765e-02,.4465517e-02,.4644351e-02,.4746523e-02,.4697148e-02,&
17316  & .4338778e-02,.4512456e-02,.4713989e-02,.4350596e-02,.4331423e-02,&
17317  & .4464363e-02,.4642472e-02,.4743704e-02,.4690020e-02,.4320460e-02,&
17318  & .4498985e-02,.4761723e-02,.4382334e-02,.4348263e-02,.4465420e-02,&
17319  & .4638543e-02,.4740624e-02,.4683278e-02,.4302003e-02,.4484275e-02,&
17320  & .4164717e-02,.3979215e-02,.4144193e-02,.4422962e-02,.4657806e-02,&
17321  & .4800744e-02,.4824067e-02,.4555259e-02,.4602286e-02,.4211716e-02,&
17322  & .4008521e-02,.4157412e-02,.4428976e-02,.4663384e-02,.4809552e-02,&
17323  & .4822353e-02,.4539339e-02,.4590712e-02,.4257203e-02,.4037513e-02,&
17324  & .4169430e-02,.4432371e-02,.4669584e-02,.4816112e-02,.4822125e-02,&
17325  & .4523735e-02,.4581771e-02,.4307089e-02,.4070222e-02,.4184488e-02,&
17326  & .4434611e-02,.4676070e-02,.4820311e-02,.4822098e-02,.4508261e-02,&
17327  & .4573178e-02,.4362715e-02,.4106878e-02,.4203483e-02,.4440385e-02,&
17328  & .4678627e-02,.4823705e-02,.4820573e-02,.4492558e-02,.4565516e-02,&
17329  & .3757322e-02,.3709073e-02,.4010509e-02,.4365375e-02,.4646644e-02,&
17330  & .4836629e-02,.4911390e-02,.4716037e-02,.2246564e-04,.3804915e-02,&
17331  & .3737287e-02,.4021585e-02,.4379566e-02,.4660941e-02,.4852517e-02,&
17332  & .4918338e-02,.4703233e-02,.1560965e-04,.3856320e-02,.3768752e-02,&
17333  & .4034329e-02,.4388713e-02,.4676333e-02,.4865802e-02,.4925596e-02,&
17334  & .4691751e-02,.2028569e-04,.3915081e-02,.3807123e-02,.4052103e-02,&
17335  & .4397870e-02,.4691010e-02,.4877070e-02,.4930793e-02,.4679143e-02,&
17336  & .8984221e-05,.3978571e-02,.3848618e-02,.4073285e-02,.4408428e-02,&
17337  & .4700559e-02,.4888012e-02,.4935723e-02,.4666034e-02,.2377631e-04/
17338 
17339  data absa(451:585, 7) / &
17340  & .3392928e-02,.3472731e-02,.3891540e-02,.4305406e-02,.4626003e-02,&
17341  & .4865579e-02,.4987193e-02,.4850053e-02,.7140743e-05,.3445972e-02,&
17342  & .3503144e-02,.3906610e-02,.4325733e-02,.4652048e-02,.4888232e-02,&
17343  & .5003402e-02,.4843920e-02,.1439870e-04,.3506494e-02,.3541411e-02,&
17344  & .3924176e-02,.4343703e-02,.4677805e-02,.4908831e-02,.5016389e-02,&
17345  & .4837310e-02,.2945034e-04,.3573835e-02,.3584076e-02,.3945325e-02,&
17346  & .4362029e-02,.4698214e-02,.4926791e-02,.5027125e-02,.4828102e-02,&
17347  & .4370988e-04,.3640920e-02,.3627224e-02,.3965033e-02,.4380312e-02,&
17348  & .4714810e-02,.4945090e-02,.5036845e-02,.4818793e-02,.2945488e-04,&
17349  & .3062423e-02,.3266343e-02,.3779589e-02,.4238657e-02,.4602824e-02,&
17350  & .4884734e-02,.5053548e-02,.4961911e-02,.2279693e-04,.3122111e-02,&
17351  & .3300450e-02,.3801982e-02,.4268791e-02,.4639422e-02,.4914708e-02,&
17352  & .5076081e-02,.4964486e-02,.3897689e-12,.3189802e-02,.3342291e-02,&
17353  & .3827671e-02,.4296813e-02,.4673472e-02,.4942459e-02,.5094747e-02,&
17354  & .4963101e-02,.2288291e-04,.3258443e-02,.3383882e-02,.3851683e-02,&
17355  & .4323754e-02,.4700766e-02,.4969560e-02,.5112385e-02,.4958514e-02,&
17356  & .5725606e-12,.3332531e-02,.3430641e-02,.3873322e-02,.4350068e-02,&
17357  & .4725169e-02,.4995061e-02,.5126654e-02,.4953566e-02,.2246441e-04,&
17358  & .2769676e-02,.3091600e-02,.3674265e-02,.4169149e-02,.4577937e-02,&
17359  & .4901246e-02,.5107166e-02,.5055949e-02,.2616949e-12,.2834654e-02,&
17360  & .3128534e-02,.3705750e-02,.4210247e-02,.4623099e-02,.4938500e-02,&
17361  & .5137406e-02,.5065069e-02,.1482104e-04,.2902742e-02,.3167333e-02,&
17362  & .3738974e-02,.4249285e-02,.4663578e-02,.4972092e-02,.5164558e-02,&
17363  & .5069435e-02,.4171247e-12,.2976402e-02,.3210834e-02,.3767797e-02,&
17364  & .4287152e-02,.4699067e-02,.5006489e-02,.5189897e-02,.5072755e-02,&
17365  & .2892462e-04,.3057599e-02,.3261050e-02,.3794966e-02,.4320752e-02,&
17366  & .4731977e-02,.5038479e-02,.5208571e-02,.5071823e-02,.5748148e-12/
17367 
17368  data absa( 1:180, 8) / &
17369  & .2384831e-01,.2086796e-01,.1788674e-01,.1490488e-01,.1192466e-01,&
17370  & .8942720e-02,.6435132e-02,.5216105e-02,.8046861e-02,.2383260e-01,&
17371  & .2085323e-01,.1787386e-01,.1489524e-01,.1191574e-01,.8936646e-02,&
17372  & .6410723e-02,.5172302e-02,.7958914e-02,.2381817e-01,.2084152e-01,&
17373  & .1786363e-01,.1488699e-01,.1190859e-01,.8931517e-02,.6409801e-02,&
17374  & .5184894e-02,.7931542e-02,.2382505e-01,.2084563e-01,.1786745e-01,&
17375  & .1488939e-01,.1191159e-01,.8933625e-02,.6363063e-02,.5080538e-02,&
17376  & .7797373e-02,.2384370e-01,.2086411e-01,.1788240e-01,.1490168e-01,&
17377  & .1192085e-01,.8941188e-02,.6342996e-02,.5038349e-02,.7721574e-02,&
17378  & .2736703e-01,.2394425e-01,.2052396e-01,.1710455e-01,.1368277e-01,&
17379  & .1026855e-01,.7533161e-02,.6102509e-02,.9457556e-02,.2733895e-01,&
17380  & .2392100e-01,.2050455e-01,.1708673e-01,.1366891e-01,.1025512e-01,&
17381  & .7493273e-02,.6042133e-02,.9346029e-02,.2732514e-01,.2390916e-01,&
17382  & .2049354e-01,.1707793e-01,.1366282e-01,.1024661e-01,.7477603e-02,&
17383  & .6033817e-02,.9291851e-02,.2732521e-01,.2390831e-01,.2049329e-01,&
17384  & .1707676e-01,.1366198e-01,.1024619e-01,.7441129e-02,.5964001e-02,&
17385  & .9183864e-02,.2732055e-01,.2390460e-01,.2048954e-01,.1707397e-01,&
17386  & .1365928e-01,.1024450e-01,.7386349e-02,.5857452e-02,.9032475e-02,&
17387  & .3111827e-01,.2722823e-01,.2333792e-01,.1944912e-01,.1556020e-01,&
17388  & .1174017e-01,.8774373e-02,.7126843e-02,.1107681e-01,.3108435e-01,&
17389  & .2719812e-01,.2331276e-01,.1942815e-01,.1554155e-01,.1171142e-01,&
17390  & .8719646e-02,.7046216e-02,.1093045e-01,.3105719e-01,.2717391e-01,&
17391  & .2328911e-01,.1940895e-01,.1552703e-01,.1168858e-01,.8669582e-02,&
17392  & .6965164e-02,.1078986e-01,.3102639e-01,.2714667e-01,.2326970e-01,&
17393  & .1939161e-01,.1551301e-01,.1167462e-01,.8637664e-02,.6932578e-02,&
17394  & .1069100e-01,.3098455e-01,.2711278e-01,.2323876e-01,.1936649e-01,&
17395  & .1549184e-01,.1165288e-01,.8564686e-02,.6812398e-02,.1050557e-01,&
17396  & .3509245e-01,.3070408e-01,.2631947e-01,.2193322e-01,.1754460e-01,&
17397  & .1336963e-01,.1019024e-01,.8304991e-02,.1279060e-01,.3502835e-01,&
17398  & .3065102e-01,.2627132e-01,.2189262e-01,.1751355e-01,.1331920e-01,&
17399  & .1010855e-01,.8200658e-02,.1260628e-01,.3496387e-01,.3059309e-01,&
17400  & .2622344e-01,.2185116e-01,.1748300e-01,.1327541e-01,.1003370e-01,&
17401  & .8097466e-02,.1242619e-01,.3489136e-01,.3053088e-01,.2616852e-01,&
17402  & .2180854e-01,.1744581e-01,.1323085e-01,.9958124e-02,.7996001e-02,&
17403  & .1224573e-01,.3480910e-01,.3045842e-01,.2610586e-01,.2175555e-01,&
17404  & .1740387e-01,.1318718e-01,.9898605e-02,.7943117e-02,.1209514e-01/
17405 
17406  data absa(181:315, 8) / &
17407  & .3922337e-01,.3432089e-01,.2941855e-01,.2451621e-01,.1961212e-01,&
17408  & .1515625e-01,.1177220e-01,.9640074e-02,.1459421e-01,.3912061e-01,&
17409  & .3423066e-01,.2933971e-01,.2445001e-01,.1956031e-01,.1507474e-01,&
17410  & .1166291e-01,.9508349e-02,.1436943e-01,.3900929e-01,.3413223e-01,&
17411  & .2925716e-01,.2437959e-01,.1950452e-01,.1499589e-01,.1155252e-01,&
17412  & .9377833e-02,.1414677e-01,.3888582e-01,.3402602e-01,.2916246e-01,&
17413  & .2430215e-01,.1944160e-01,.1491429e-01,.1144124e-01,.9247519e-02,&
17414  & .1391910e-01,.3876452e-01,.3391846e-01,.2907242e-01,.2422862e-01,&
17415  & .1938320e-01,.1483471e-01,.1134199e-01,.9163542e-02,.1372356e-01,&
17416  & .4343721e-01,.3800576e-01,.3257544e-01,.2714774e-01,.2177640e-01,&
17417  & .1709399e-01,.1352071e-01,.1113282e-01,.1649120e-01,.4327842e-01,&
17418  & .3786995e-01,.3246159e-01,.2705100e-01,.2168123e-01,.1696268e-01,&
17419  & .1336889e-01,.1097194e-01,.1622011e-01,.4310942e-01,.3772166e-01,&
17420  & .3233366e-01,.2694253e-01,.2158320e-01,.1684054e-01,.1321804e-01,&
17421  & .1080800e-01,.1594714e-01,.4294323e-01,.3757194e-01,.3220476e-01,&
17422  & .2683910e-01,.2148483e-01,.1671415e-01,.1306213e-01,.1064614e-01,&
17423  & .1567355e-01,.4277920e-01,.3742913e-01,.3208316e-01,.2673469e-01,&
17424  & .2139400e-01,.1658867e-01,.1290640e-01,.1049169e-01,.1540259e-01,&
17425  & .4758398e-01,.4163822e-01,.3568958e-01,.2974106e-01,.2404453e-01,&
17426  & .1920360e-01,.1543848e-01,.1277750e-01,.1847724e-01,.4738640e-01,&
17427  & .4146564e-01,.3554040e-01,.2961803e-01,.2390579e-01,.1900947e-01,&
17428  & .1522766e-01,.1257734e-01,.1815308e-01,.4718171e-01,.4128335e-01,&
17429  & .3538475e-01,.2948927e-01,.2375761e-01,.1882582e-01,.1502284e-01,&
17430  & .1237488e-01,.1783112e-01,.4697763e-01,.4110594e-01,.3523272e-01,&
17431  & .2936065e-01,.2361055e-01,.1864217e-01,.1481297e-01,.1217429e-01,&
17432  & .1750726e-01,.4675913e-01,.4091320e-01,.3506988e-01,.2922357e-01,&
17433  & .2347293e-01,.1846131e-01,.1460514e-01,.1197957e-01,.1718605e-01/
17434 
17435  data absa(316:450, 8) / &
17436  & .5157307e-01,.4512456e-01,.3867815e-01,.3225755e-01,.2639876e-01,&
17437  & .2145781e-01,.1750537e-01,.1456533e-01,.2056891e-01,.5133970e-01,&
17438  & .4492267e-01,.3850493e-01,.3209518e-01,.2619464e-01,.2118929e-01,&
17439  & .1723033e-01,.1431879e-01,.2018920e-01,.5111942e-01,.4472821e-01,&
17440  & .3833961e-01,.3195026e-01,.2598683e-01,.2093775e-01,.1695719e-01,&
17441  & .1406885e-01,.1981018e-01,.5087613e-01,.4451558e-01,.3815604e-01,&
17442  & .3179899e-01,.2578609e-01,.2068553e-01,.1668237e-01,.1381989e-01,&
17443  & .1942343e-01,.5060089e-01,.4427189e-01,.3795104e-01,.3162743e-01,&
17444  & .2558999e-01,.2043394e-01,.1640721e-01,.1357794e-01,.1904337e-01,&
17445  & .5534675e-01,.4842752e-01,.4150943e-01,.3476993e-01,.2883356e-01,&
17446  & .2383857e-01,.1970071e-01,.1648151e-01,.2277280e-01,.5509028e-01,&
17447  & .4820517e-01,.4131655e-01,.3454903e-01,.2856187e-01,.2348302e-01,&
17448  & .1935846e-01,.1617643e-01,.2231934e-01,.5483513e-01,.4798329e-01,&
17449  & .4112957e-01,.3434599e-01,.2827236e-01,.2314776e-01,.1900981e-01,&
17450  & .1587603e-01,.2186150e-01,.5455249e-01,.4773592e-01,.4091413e-01,&
17451  & .3413989e-01,.2798959e-01,.2281411e-01,.1865486e-01,.1557181e-01,&
17452  & .2140320e-01,.5423071e-01,.4745272e-01,.4067235e-01,.3391765e-01,&
17453  & .2771937e-01,.2248276e-01,.1830805e-01,.1527494e-01,.2095422e-01,&
17454  & .5884200e-01,.5148486e-01,.4413720e-01,.3726346e-01,.3131906e-01,&
17455  & .2625246e-01,.2197329e-01,.1846472e-01,.2390318e-01,.5857990e-01,&
17456  & .5125704e-01,.4393628e-01,.3696356e-01,.3095564e-01,.2581323e-01,&
17457  & .2154391e-01,.1810523e-01,.2329308e-01,.5829302e-01,.5100372e-01,&
17458  & .4371805e-01,.3669137e-01,.3057614e-01,.2539516e-01,.2111008e-01,&
17459  & .1774335e-01,.2234009e-01,.5795260e-01,.5070680e-01,.4346190e-01,&
17460  & .3641971e-01,.3020199e-01,.2497397e-01,.2067529e-01,.1737760e-01,&
17461  & .2139251e-01,.5758016e-01,.5038153e-01,.4318130e-01,.3612879e-01,&
17462  & .2984663e-01,.2454856e-01,.2024342e-01,.1701514e-01,.2073609e-01/
17463 
17464  data absa(451:585, 8) / &
17465  & .6192199e-01,.5417932e-01,.4648962e-01,.3955997e-01,.3362055e-01,&
17466  & .2844545e-01,.2405185e-01,.2035174e-01,.1147313e-01,.6162491e-01,&
17467  & .5392502e-01,.4624284e-01,.3918782e-01,.3314307e-01,.2793088e-01,&
17468  & .2352660e-01,.1992303e-01,.1059037e-01,.6128035e-01,.5361653e-01,&
17469  & .4596296e-01,.3883034e-01,.3266054e-01,.2741823e-01,.2300155e-01,&
17470  & .1948403e-01,.9386733e-02,.6089037e-01,.5327663e-01,.4566324e-01,&
17471  & .3846602e-01,.3220217e-01,.2689963e-01,.2248042e-01,.1904677e-01,&
17472  & .8579093e-02,.6048928e-01,.5292930e-01,.4536869e-01,.3808824e-01,&
17473  & .3175943e-01,.2638003e-01,.2196410e-01,.1861176e-01,.7679777e-02,&
17474  & .6465333e-01,.5657427e-01,.4867177e-01,.4175377e-01,.3579281e-01,&
17475  & .3056479e-01,.2606485e-01,.2228565e-01,.5410855e-02,.6431550e-01,&
17476  & .5627490e-01,.4834862e-01,.4128883e-01,.3521242e-01,.2995578e-01,&
17477  & .2544242e-01,.2175694e-01,.4314129e-02,.6391863e-01,.5593558e-01,&
17478  & .4799090e-01,.4083615e-01,.3463083e-01,.2933897e-01,.2482046e-01,&
17479  & .2122362e-01,.3358717e-02,.6351746e-01,.5557930e-01,.4765095e-01,&
17480  & .4037369e-01,.3408214e-01,.2871059e-01,.2420299e-01,.2070479e-01,&
17481  & .2857525e-02,.6306892e-01,.5519351e-01,.4730897e-01,.3991011e-01,&
17482  & .3354065e-01,.2809407e-01,.2359936e-01,.2018705e-01,.1777796e-02,&
17483  & .6703446e-01,.5865676e-01,.5067634e-01,.4381050e-01,.3782219e-01,&
17484  & .3255454e-01,.2802206e-01,.2421920e-01,.3263487e-02,.6665902e-01,&
17485  & .5832721e-01,.5026612e-01,.4325080e-01,.3713778e-01,.3183964e-01,&
17486  & .2728129e-01,.2358311e-01,.2472960e-02,.6626616e-01,.5798723e-01,&
17487  & .4984365e-01,.4269195e-01,.3646735e-01,.3111990e-01,.2654294e-01,&
17488  & .2295618e-01,.1479400e-02,.6583606e-01,.5760454e-01,.4944157e-01,&
17489  & .4212139e-01,.3581890e-01,.3039518e-01,.2581655e-01,.2233056e-01,&
17490  & .6227714e-03,.6534867e-01,.5717837e-01,.4902999e-01,.4157439e-01,&
17491  & .3517603e-01,.2968487e-01,.2512196e-01,.2172312e-01,.0000000e+00/
17492 
17493 ! the array iabsb(235,8) (kb(5,13:59,8)) contains absorption coefs at
17494 ! the 16 chosen g-values for a range of pressure levels < ~100mb and
17495 ! temperatures. the first index in the array, jt, which runs from 1 to 5,
17496 ! corresponds to different temperatures. more specifically, jt = 3 means
17497 ! that the data are for the reference temperature tref for this pressure
17498 ! level, jt = 2 refers to the temperature tref-15, jt = 1 is for
17499 ! tref-30, jt = 4 is for tref+15, and jt = 5 is for tref+30.
17500 ! the second index, jp, runs from 13 to 59 and refers to the jpth
17501 ! reference pressure level (see taumol.f for the value of these
17502 ! pressure levels in mb). the third index, ig, goes from 1 to 8,
17503 ! and tells us which g-interval the absorption coefficients are for.
17504 
17505  data absb( 1:120, 1) / &
17506  & .1504485e-08,.1655173e-08,.1834066e-08,.2005073e-08,.2225228e-08,&
17507  & .2825609e-08,.3120559e-08,.3367595e-08,.3608461e-08,.3837790e-08,&
17508  & .4601061e-08,.4908305e-08,.5119376e-08,.5374147e-08,.5818231e-08,&
17509  & .6064902e-08,.6787357e-08,.7300746e-08,.8100588e-08,.8763709e-08,&
17510  & .9117383e-08,.9716817e-08,.1020886e-07,.1060372e-07,.1107971e-07,&
17511  & .1180416e-07,.1231184e-07,.1271306e-07,.1305533e-07,.1325092e-07,&
17512  & .1466240e-07,.1530788e-07,.1602711e-07,.1636818e-07,.1670250e-07,&
17513  & .1693173e-07,.1796180e-07,.1893120e-07,.2002152e-07,.2083754e-07,&
17514  & .2023944e-07,.2129216e-07,.2220720e-07,.2278656e-07,.2334708e-07,&
17515  & .2244645e-07,.2315295e-07,.2356590e-07,.2386446e-07,.2427953e-07,&
17516  & .2319360e-07,.2372368e-07,.2396595e-07,.2414683e-07,.2427181e-07,&
17517  & .2327042e-07,.2360101e-07,.2379715e-07,.2393742e-07,.2409578e-07,&
17518  & .2292965e-07,.2319441e-07,.2326480e-07,.2333873e-07,.2344359e-07,&
17519  & .2207835e-07,.2228167e-07,.2230807e-07,.2237370e-07,.2237045e-07,&
17520  & .2063469e-07,.2078315e-07,.2069998e-07,.2077522e-07,.2076445e-07,&
17521  & .1888890e-07,.1895087e-07,.1888552e-07,.1896680e-07,.1893800e-07,&
17522  & .1661684e-07,.1660531e-07,.1660816e-07,.1663392e-07,.1655720e-07,&
17523  & .1439584e-07,.1436756e-07,.1440958e-07,.1432625e-07,.1427447e-07,&
17524  & .1206857e-07,.1208380e-07,.1201089e-07,.1199160e-07,.1194784e-07,&
17525  & .1009433e-07,.1006531e-07,.1001838e-07,.9943710e-08,.9961010e-08,&
17526  & .8315238e-08,.8268144e-08,.8236950e-08,.8211572e-08,.8220796e-08,&
17527  & .6957233e-08,.6909506e-08,.6862800e-08,.6872511e-08,.6883916e-08,&
17528  & .5813067e-08,.5757273e-08,.5742704e-08,.5742958e-08,.5758679e-08,&
17529  & .4871874e-08,.4830498e-08,.4812558e-08,.4818784e-08,.4830929e-08/
17530 
17531  data absb(121:235, 1) / &
17532  & .4145901e-08,.4106507e-08,.4098022e-08,.4099861e-08,.4120380e-08,&
17533  & .3494406e-08,.3465963e-08,.3462820e-08,.3456337e-08,.3467275e-08,&
17534  & .2913432e-08,.2889628e-08,.2883621e-08,.2884851e-08,.2891869e-08,&
17535  & .2518380e-08,.2496362e-08,.2483940e-08,.2484762e-08,.2483586e-08,&
17536  & .2170390e-08,.2145546e-08,.2143039e-08,.2142370e-08,.2144634e-08,&
17537  & .1858046e-08,.1844624e-08,.1839065e-08,.1839091e-08,.1839162e-08,&
17538  & .1593689e-08,.1577154e-08,.1573460e-08,.1568484e-08,.1569186e-08,&
17539  & .1355958e-08,.1341138e-08,.1331384e-08,.1328120e-08,.1330151e-08,&
17540  & .1137083e-08,.1126680e-08,.1120107e-08,.1113883e-08,.1115922e-08,&
17541  & .9476994e-09,.9397984e-09,.9335405e-09,.9287986e-09,.9311504e-09,&
17542  & .7932191e-09,.7894802e-09,.7806572e-09,.7786638e-09,.7792733e-09,&
17543  & .6576028e-09,.6532665e-09,.6444048e-09,.6406832e-09,.6417746e-09,&
17544  & .5317563e-09,.5279691e-09,.5215721e-09,.5171123e-09,.5157522e-09,&
17545  & .4412974e-09,.4375477e-09,.4332457e-09,.4272818e-09,.4275019e-09,&
17546  & .3706852e-09,.3662403e-09,.3636864e-09,.3584788e-09,.3586079e-09,&
17547  & .3049173e-09,.3029969e-09,.3014427e-09,.2964519e-09,.2955262e-09,&
17548  & .2463755e-09,.2449361e-09,.2438107e-09,.2391687e-09,.2384375e-09,&
17549  & .2163852e-09,.2148951e-09,.2136504e-09,.2102694e-09,.2093443e-09,&
17550  & .1986154e-09,.1986504e-09,.1964941e-09,.1948428e-09,.1924552e-09,&
17551  & .1827696e-09,.1814666e-09,.1809023e-09,.1806150e-09,.1773916e-09,&
17552  & .1651185e-09,.1676846e-09,.1675465e-09,.1672040e-09,.1645195e-09,&
17553  & .1529359e-09,.1572349e-09,.1577673e-09,.1563134e-09,.1551000e-09,&
17554  & .1662330e-09,.1742843e-09,.1737219e-09,.1735156e-09,.1726745e-09/
17555 
17556  data absb( 1:120, 2) / &
17557  & .8620280e-08,.8996610e-08,.9179512e-08,.9273313e-08,.9496698e-08,&
17558  & .1372714e-07,.1415234e-07,.1568014e-07,.1633632e-07,.1660623e-07,&
17559  & .2431506e-07,.2468338e-07,.2511484e-07,.2544479e-07,.2520146e-07,&
17560  & .3107454e-07,.3086269e-07,.3175603e-07,.3173983e-07,.3139772e-07,&
17561  & .3808811e-07,.3902271e-07,.4062594e-07,.4223852e-07,.4271310e-07,&
17562  & .4796946e-07,.4857088e-07,.4939986e-07,.5006781e-07,.5049110e-07,&
17563  & .5417823e-07,.5385088e-07,.5369254e-07,.5418624e-07,.5425686e-07,&
17564  & .5417471e-07,.5315715e-07,.5265850e-07,.5227965e-07,.5182433e-07,&
17565  & .5084925e-07,.4952405e-07,.4900280e-07,.4911242e-07,.4895983e-07,&
17566  & .4638127e-07,.4550613e-07,.4547382e-07,.4602960e-07,.4609687e-07,&
17567  & .4282135e-07,.4200746e-07,.4233769e-07,.4314509e-07,.4364517e-07,&
17568  & .4009028e-07,.3966390e-07,.4021359e-07,.4114239e-07,.4138132e-07,&
17569  & .3718799e-07,.3696495e-07,.3760314e-07,.3889000e-07,.3926156e-07,&
17570  & .3428008e-07,.3436242e-07,.3521050e-07,.3663400e-07,.3706092e-07,&
17571  & .3131405e-07,.3161472e-07,.3286669e-07,.3437652e-07,.3468898e-07,&
17572  & .2838426e-07,.2902508e-07,.3042525e-07,.3175777e-07,.3176690e-07,&
17573  & .2508366e-07,.2604667e-07,.2745713e-07,.2796496e-07,.2814461e-07,&
17574  & .2198601e-07,.2304237e-07,.2412502e-07,.2435339e-07,.2460182e-07,&
17575  & .1894551e-07,.1992262e-07,.2052438e-07,.2042507e-07,.2067876e-07,&
17576  & .1617250e-07,.1693348e-07,.1699496e-07,.1708234e-07,.1690581e-07,&
17577  & .1380557e-07,.1391757e-07,.1389405e-07,.1394496e-07,.1376301e-07,&
17578  & .1155663e-07,.1155203e-07,.1168102e-07,.1152309e-07,.1127853e-07,&
17579  & .9697158e-08,.9695956e-08,.9680578e-08,.9559403e-08,.9302754e-08,&
17580  & .8154203e-08,.8120989e-08,.8036412e-08,.7883272e-08,.7698274e-08/
17581 
17582  data absb(121:235, 2) / &
17583  & .6967330e-08,.6906568e-08,.6813175e-08,.6653576e-08,.6523040e-08,&
17584  & .5881983e-08,.5845620e-08,.5707887e-08,.5564188e-08,.5496845e-08,&
17585  & .4867982e-08,.4842877e-08,.4723792e-08,.4610581e-08,.4535252e-08,&
17586  & .4220891e-08,.4197573e-08,.4091011e-08,.3984631e-08,.3910118e-08,&
17587  & .3693929e-08,.3663715e-08,.3538644e-08,.3460285e-08,.3368615e-08,&
17588  & .3187896e-08,.3159197e-08,.3046331e-08,.2969790e-08,.2900429e-08,&
17589  & .2727771e-08,.2707740e-08,.2609750e-08,.2537780e-08,.2466859e-08,&
17590  & .2336416e-08,.2288611e-08,.2243157e-08,.2156881e-08,.2077391e-08,&
17591  & .1962744e-08,.1900100e-08,.1900600e-08,.1810939e-08,.1740140e-08,&
17592  & .1641370e-08,.1585025e-08,.1598322e-08,.1519198e-08,.1446996e-08,&
17593  & .1369667e-08,.1331096e-08,.1332974e-08,.1271075e-08,.1212575e-08,&
17594  & .1134932e-08,.1101458e-08,.1088461e-08,.1059785e-08,.1000704e-08,&
17595  & .9094399e-09,.8846586e-09,.8692260e-09,.8514667e-09,.8067748e-09,&
17596  & .7475365e-09,.7309474e-09,.7248197e-09,.7107080e-09,.6704647e-09,&
17597  & .6155314e-09,.6185778e-09,.6128860e-09,.5976466e-09,.5727505e-09,&
17598  & .5007571e-09,.5092447e-09,.5016075e-09,.4940536e-09,.4741181e-09,&
17599  & .3942016e-09,.4100999e-09,.4008001e-09,.3983216e-09,.3787150e-09,&
17600  & .3377646e-09,.3579863e-09,.3566328e-09,.3468912e-09,.3368833e-09,&
17601  & .3036220e-09,.3322234e-09,.3325357e-09,.3256853e-09,.3158305e-09,&
17602  & .2804988e-09,.3017266e-09,.3108715e-09,.2978439e-09,.2936541e-09,&
17603  & .2609790e-09,.2661588e-09,.2860275e-09,.2792342e-09,.2602529e-09,&
17604  & .2458827e-09,.2411410e-09,.2673329e-09,.2554838e-09,.2352146e-09,&
17605  & .2526218e-09,.2394002e-09,.2533229e-09,.2725054e-09,.2570953e-09/
17606 
17607  data absb( 1:120, 3) / &
17608  & .2094454e-07,.2103723e-07,.2317421e-07,.2429927e-07,.2443259e-07,&
17609  & .3496380e-07,.3490941e-07,.3349223e-07,.3343521e-07,.3310576e-07,&
17610  & .4585045e-07,.4658060e-07,.4768562e-07,.5006330e-07,.5247674e-07,&
17611  & .6284991e-07,.6579582e-07,.6633160e-07,.6800469e-07,.6989589e-07,&
17612  & .7248123e-07,.7171694e-07,.7074783e-07,.6969505e-07,.7027375e-07,&
17613  & .6908485e-07,.6849817e-07,.6716994e-07,.6730050e-07,.6828500e-07,&
17614  & .6934186e-07,.6902567e-07,.6864856e-07,.6846652e-07,.6943860e-07,&
17615  & .6706792e-07,.6726913e-07,.6653898e-07,.6592318e-07,.6689835e-07,&
17616  & .6315693e-07,.6388301e-07,.6354862e-07,.6322257e-07,.6392275e-07,&
17617  & .6021001e-07,.6063825e-07,.6004737e-07,.5982331e-07,.6053882e-07,&
17618  & .5662743e-07,.5727057e-07,.5683287e-07,.5634445e-07,.5728420e-07,&
17619  & .5345713e-07,.5415602e-07,.5376082e-07,.5388461e-07,.5551090e-07,&
17620  & .5097174e-07,.5174221e-07,.5185410e-07,.5170391e-07,.5343406e-07,&
17621  & .4885071e-07,.4964076e-07,.4957246e-07,.4927493e-07,.5181847e-07,&
17622  & .4607099e-07,.4641337e-07,.4642465e-07,.4657013e-07,.4906130e-07,&
17623  & .4289388e-07,.4288894e-07,.4267067e-07,.4328417e-07,.4696503e-07,&
17624  & .3872644e-07,.3855498e-07,.3845341e-07,.4062810e-07,.4336730e-07,&
17625  & .3420706e-07,.3415253e-07,.3481498e-07,.3737966e-07,.3894101e-07,&
17626  & .2944343e-07,.2985002e-07,.3132611e-07,.3395546e-07,.3326394e-07,&
17627  & .2542129e-07,.2622059e-07,.2846268e-07,.2890366e-07,.2912570e-07,&
17628  & .2147717e-07,.2336132e-07,.2481620e-07,.2489857e-07,.2493064e-07,&
17629  & .1865200e-07,.2074963e-07,.2073473e-07,.2113566e-07,.2126999e-07,&
17630  & .1634412e-07,.1718199e-07,.1732143e-07,.1735331e-07,.1757109e-07,&
17631  & .1379461e-07,.1435679e-07,.1452171e-07,.1458681e-07,.1440034e-07/
17632 
17633  data absb(121:235, 3) / &
17634  & .1173430e-07,.1207008e-07,.1230757e-07,.1227543e-07,.1218723e-07,&
17635  & .9814963e-08,.1008580e-07,.1002846e-07,.1018936e-07,.9936886e-08,&
17636  & .8116338e-08,.8224445e-08,.8137160e-08,.8175235e-08,.7809894e-08,&
17637  & .6934363e-08,.6954010e-08,.7028701e-08,.6954052e-08,.6730920e-08,&
17638  & .6044805e-08,.6051282e-08,.6043548e-08,.5955009e-08,.5737156e-08,&
17639  & .5148115e-08,.5173181e-08,.5143460e-08,.5091858e-08,.4844251e-08,&
17640  & .4357708e-08,.4427891e-08,.4341154e-08,.4374327e-08,.4087965e-08,&
17641  & .3575010e-08,.3758880e-08,.3640315e-08,.3685335e-08,.3462657e-08,&
17642  & .2951838e-08,.3149133e-08,.2949301e-08,.3004140e-08,.2803498e-08,&
17643  & .2384856e-08,.2593067e-08,.2441925e-08,.2455559e-08,.2313264e-08,&
17644  & .1941929e-08,.2123023e-08,.2023449e-08,.2026484e-08,.1914693e-08,&
17645  & .1543067e-08,.1703838e-08,.1718628e-08,.1615796e-08,.1571495e-08,&
17646  & .1183980e-08,.1356359e-08,.1356083e-08,.1273436e-08,.1237516e-08,&
17647  & .9485975e-09,.1113593e-08,.1117504e-08,.1051262e-08,.1016169e-08,&
17648  & .7815940e-09,.9032580e-09,.9357674e-09,.8676745e-09,.8421725e-09,&
17649  & .6380256e-09,.7279036e-09,.7623641e-09,.7144892e-09,.6975727e-09,&
17650  & .5107804e-09,.5598705e-09,.6119439e-09,.5744789e-09,.5583942e-09,&
17651  & .4463278e-09,.4765332e-09,.5199521e-09,.5043420e-09,.4788736e-09,&
17652  & .4250688e-09,.4156415e-09,.4855086e-09,.4508491e-09,.4411532e-09,&
17653  & .3832275e-09,.3697062e-09,.4153029e-09,.4390022e-09,.4199681e-09,&
17654  & .3471974e-09,.3281596e-09,.3530108e-09,.4078183e-09,.4102159e-09,&
17655  & .3136929e-09,.3137942e-09,.3117708e-09,.4176296e-09,.4265890e-09,&
17656  & .3736120e-09,.4038289e-09,.4253194e-09,.5208493e-09,.6353775e-09/
17657 
17658  data absb( 1:120, 4) / &
17659  & .3207017e-07,.3159502e-07,.2858870e-07,.2844242e-07,.2837738e-07,&
17660  & .3793390e-07,.3899797e-07,.4004916e-07,.4219287e-07,.4324826e-07,&
17661  & .6367926e-07,.6755417e-07,.7008340e-07,.7122591e-07,.7118042e-07,&
17662  & .7271716e-07,.6967355e-07,.6852180e-07,.6761184e-07,.6663393e-07,&
17663  & .6791256e-07,.6626521e-07,.6475029e-07,.6335519e-07,.6341090e-07,&
17664  & .6702275e-07,.6576791e-07,.6566342e-07,.6383917e-07,.6283841e-07,&
17665  & .6421842e-07,.6328175e-07,.6271542e-07,.6152237e-07,.6029747e-07,&
17666  & .6063945e-07,.6050892e-07,.6120783e-07,.6022239e-07,.5821503e-07,&
17667  & .5811689e-07,.5640629e-07,.5625783e-07,.5511738e-07,.5487818e-07,&
17668  & .5348844e-07,.5166798e-07,.5260953e-07,.5132573e-07,.5125687e-07,&
17669  & .5056797e-07,.4945797e-07,.5018027e-07,.5055972e-07,.5015391e-07,&
17670  & .4934735e-07,.4858752e-07,.4903720e-07,.4872055e-07,.4906669e-07,&
17671  & .4696374e-07,.4689614e-07,.4670931e-07,.4783716e-07,.4808487e-07,&
17672  & .4579724e-07,.4485585e-07,.4523316e-07,.4654221e-07,.4697737e-07,&
17673  & .4177011e-07,.4195636e-07,.4315538e-07,.4366803e-07,.4370471e-07,&
17674  & .3826636e-07,.3900949e-07,.4040767e-07,.4050401e-07,.3926292e-07,&
17675  & .3417724e-07,.3398437e-07,.3497769e-07,.3504542e-07,.3635089e-07,&
17676  & .2972685e-07,.3050472e-07,.3019202e-07,.2941542e-07,.3300928e-07,&
17677  & .2569885e-07,.2510078e-07,.2547159e-07,.2603840e-07,.3137309e-07,&
17678  & .2253041e-07,.2113115e-07,.2134413e-07,.2537857e-07,.2492397e-07,&
17679  & .1910416e-07,.1866822e-07,.2015910e-07,.2178797e-07,.2103215e-07,&
17680  & .1751768e-07,.1752356e-07,.1997915e-07,.1876099e-07,.1868247e-07,&
17681  & .1601254e-07,.1739373e-07,.1791673e-07,.1773318e-07,.1719741e-07,&
17682  & .1475039e-07,.1681135e-07,.1649793e-07,.1611369e-07,.1570679e-07/
17683 
17684  data absb(121:235, 4) / &
17685  & .1303339e-07,.1487026e-07,.1490773e-07,.1478564e-07,.1430577e-07,&
17686  & .1163810e-07,.1261966e-07,.1306776e-07,.1264305e-07,.1269552e-07,&
17687  & .9753745e-08,.1052021e-07,.1077719e-07,.1076181e-07,.1057069e-07,&
17688  & .8428703e-08,.9412717e-08,.9437343e-08,.9161081e-08,.9398817e-08,&
17689  & .6734710e-08,.7798478e-08,.8144691e-08,.8022473e-08,.8252301e-08,&
17690  & .5704222e-08,.6683171e-08,.6786990e-08,.6802772e-08,.7124318e-08,&
17691  & .4641578e-08,.5477035e-08,.5637589e-08,.5540870e-08,.5878158e-08,&
17692  & .3894186e-08,.4572580e-08,.4683803e-08,.4627519e-08,.4835245e-08,&
17693  & .3094846e-08,.3631163e-08,.3872510e-08,.3801876e-08,.4051812e-08,&
17694  & .2505988e-08,.2813430e-08,.3115255e-08,.3108868e-08,.3368799e-08,&
17695  & .1974147e-08,.2337742e-08,.2632663e-08,.2536104e-08,.2818301e-08,&
17696  & .1571250e-08,.1795999e-08,.2019658e-08,.2053809e-08,.2214852e-08,&
17697  & .1279646e-08,.1412932e-08,.1556847e-08,.1606893e-08,.1672149e-08,&
17698  & .1031072e-08,.1097428e-08,.1196985e-08,.1290650e-08,.1288385e-08,&
17699  & .8938603e-09,.8837689e-09,.9745065e-09,.1061662e-08,.1059312e-08,&
17700  & .7322346e-09,.7033864e-09,.7896888e-09,.8643607e-09,.8131766e-09,&
17701  & .5805907e-09,.5690340e-09,.6243145e-09,.6418920e-09,.6258469e-09,&
17702  & .5029656e-09,.4690698e-09,.5424865e-09,.6080127e-09,.5841233e-09,&
17703  & .4250789e-09,.4197107e-09,.4660663e-09,.6124726e-09,.5623562e-09,&
17704  & .4019151e-09,.3994626e-09,.4466929e-09,.5705557e-09,.5871247e-09,&
17705  & .3606061e-09,.4105570e-09,.4275902e-09,.5426140e-09,.6398303e-09,&
17706  & .3779486e-09,.4060351e-09,.4385552e-09,.5030377e-09,.6537476e-09,&
17707  & .5016060e-09,.5443259e-09,.6140966e-09,.6419200e-09,.8282210e-09/
17708 
17709  data absb( 1:120, 5) / &
17710  & .1729944e-05,.1736124e-05,.1741333e-05,.1742362e-05,.1748113e-05,&
17711  & .1274396e-05,.1276178e-05,.1276894e-05,.1273619e-05,.1277683e-05,&
17712  & .7962882e-06,.7847962e-06,.7761880e-06,.7674539e-06,.7644962e-06,&
17713  & .4154425e-06,.4161228e-06,.4168582e-06,.4153229e-06,.4178350e-06,&
17714  & .1529712e-06,.1587454e-06,.1627009e-06,.1686135e-06,.1698471e-06,&
17715  & .5915086e-07,.5907368e-07,.5815373e-07,.5755800e-07,.5672556e-07,&
17716  & .5797453e-07,.5829676e-07,.5862911e-07,.5886891e-07,.5612632e-07,&
17717  & .5902708e-07,.5607408e-07,.5455860e-07,.5499325e-07,.5710234e-07,&
17718  & .5283276e-07,.5163077e-07,.5070747e-07,.5268528e-07,.5249233e-07,&
17719  & .4705563e-07,.5073384e-07,.5033114e-07,.5234450e-07,.5415567e-07,&
17720  & .4780445e-07,.4964787e-07,.5059932e-07,.4884527e-07,.5386605e-07,&
17721  & .4658544e-07,.4857945e-07,.4939821e-07,.4877906e-07,.5115413e-07,&
17722  & .4761843e-07,.4933275e-07,.5350810e-07,.4890684e-07,.5018725e-07,&
17723  & .4263688e-07,.5007044e-07,.5014879e-07,.4749372e-07,.4465415e-07,&
17724  & .4455329e-07,.4855181e-07,.4368603e-07,.4298662e-07,.4551816e-07,&
17725  & .4053097e-07,.4563140e-07,.3772562e-07,.4071168e-07,.4236715e-07,&
17726  & .3588889e-07,.3889871e-07,.3518841e-07,.3620149e-07,.3217659e-07,&
17727  & .3083266e-07,.2840331e-07,.3135215e-07,.3222827e-07,.3059802e-07,&
17728  & .2609754e-07,.2597536e-07,.2416454e-07,.2407412e-07,.2851713e-07,&
17729  & .1942653e-07,.2176047e-07,.1994188e-07,.2100237e-07,.2564799e-07,&
17730  & .1872337e-07,.1873896e-07,.1659557e-07,.1939157e-07,.1979997e-07,&
17731  & .1520850e-07,.1331818e-07,.1631543e-07,.1634361e-07,.1553305e-07,&
17732  & .1209783e-07,.1336203e-07,.1561210e-07,.1467477e-07,.1431486e-07,&
17733  & .1182141e-07,.1046697e-07,.1289913e-07,.1276273e-07,.1359344e-07/
17734 
17735  data absb(121:235, 5) / &
17736  & .1184794e-07,.1311106e-07,.1238478e-07,.1217861e-07,.1239514e-07,&
17737  & .9765005e-08,.1222800e-07,.1250535e-07,.1265256e-07,.1275629e-07,&
17738  & .8730087e-08,.1006998e-07,.1108201e-07,.1107370e-07,.1128404e-07,&
17739  & .7184544e-08,.8280430e-08,.9337916e-08,.1097275e-07,.9422199e-08,&
17740  & .7139569e-08,.8403293e-08,.8805228e-08,.8723704e-08,.8768754e-08,&
17741  & .5638776e-08,.6617168e-08,.8131084e-08,.7952481e-08,.7843380e-08,&
17742  & .4925723e-08,.6108668e-08,.6899038e-08,.7204770e-08,.7687590e-08,&
17743  & .4080853e-08,.4506541e-08,.5062322e-08,.5570520e-08,.6245092e-08,&
17744  & .3631086e-08,.3803154e-08,.4237952e-08,.4459341e-08,.4641922e-08,&
17745  & .2798333e-08,.3196813e-08,.3468125e-08,.3333398e-08,.3634127e-08,&
17746  & .2078749e-08,.2197782e-08,.2749626e-08,.2961556e-08,.2737758e-08,&
17747  & .1606200e-08,.1840574e-08,.2290696e-08,.2323292e-08,.2090580e-08,&
17748  & .1242108e-08,.1231152e-08,.1604400e-08,.1622018e-08,.1621244e-08,&
17749  & .1142268e-08,.1161378e-08,.1312609e-08,.1332037e-08,.1336670e-08,&
17750  & .7937740e-09,.9156464e-09,.9774718e-09,.1301830e-08,.1022826e-08,&
17751  & .6792043e-09,.5672534e-09,.8065168e-09,.9174893e-09,.8812439e-09,&
17752  & .4994562e-09,.4116159e-09,.6437120e-09,.8032581e-09,.6371815e-09,&
17753  & .3965500e-09,.4502722e-09,.5469149e-09,.6195100e-09,.6194173e-09,&
17754  & .4642266e-09,.4594787e-09,.4914294e-09,.5762278e-09,.7042388e-09,&
17755  & .3468720e-09,.4302644e-09,.4377266e-09,.5298753e-09,.6737359e-09,&
17756  & .4090614e-09,.3868913e-09,.4712038e-09,.5590598e-09,.5935130e-09,&
17757  & .3717901e-09,.5393381e-09,.5139211e-09,.5362056e-09,.6355660e-09,&
17758  & .5106858e-09,.5935961e-09,.6679782e-09,.7444804e-09,.8364933e-09/
17759 
17760  data absb( 1:120, 6) / &
17761  & .2395686e-04,.2404438e-04,.2411693e-04,.2423607e-04,.2436738e-04,&
17762  & .2056849e-04,.2065059e-04,.2074045e-04,.2087079e-04,.2099978e-04,&
17763  & .1768295e-04,.1777975e-04,.1792091e-04,.1803977e-04,.1817680e-04,&
17764  & .1516668e-04,.1531217e-04,.1547416e-04,.1561878e-04,.1578350e-04,&
17765  & .1290092e-04,.1310023e-04,.1328029e-04,.1346289e-04,.1365293e-04,&
17766  & .1024835e-04,.1050381e-04,.1075123e-04,.1101880e-04,.1126531e-04,&
17767  & .7489506e-05,.7760773e-05,.8019168e-05,.8297504e-05,.8573388e-05,&
17768  & .5464496e-05,.5734262e-05,.6016157e-05,.6302015e-05,.6577927e-05,&
17769  & .3936259e-05,.4224419e-05,.4513834e-05,.4789178e-05,.5070700e-05,&
17770  & .2805984e-05,.3072729e-05,.3338950e-05,.3623166e-05,.3891777e-05,&
17771  & .1900823e-05,.2167276e-05,.2408743e-05,.2685381e-05,.2917449e-05,&
17772  & .1174025e-05,.1409556e-05,.1643976e-05,.1906921e-05,.2111832e-05,&
17773  & .6636735e-06,.8537937e-06,.1064189e-05,.1305203e-05,.1520120e-05,&
17774  & .3317132e-06,.4631507e-06,.6718687e-06,.8755380e-06,.1099835e-05,&
17775  & .1412547e-06,.2795370e-06,.4605960e-06,.6358157e-06,.8299133e-06,&
17776  & .5886507e-07,.1686485e-06,.3427727e-06,.5009229e-06,.7048885e-06,&
17777  & .5375997e-07,.1921376e-06,.3466112e-06,.4979867e-06,.7234630e-06,&
17778  & .9833696e-07,.2424778e-06,.3777826e-06,.5767946e-06,.7689130e-06,&
17779  & .1780398e-06,.3286727e-06,.5106210e-06,.7063377e-06,.9191132e-06,&
17780  & .2791479e-06,.4463444e-06,.6419014e-06,.8393519e-06,.1186341e-05,&
17781  & .3815600e-06,.5566532e-06,.7712321e-06,.1041457e-05,.1452473e-05,&
17782  & .4683750e-06,.6571130e-06,.8750377e-06,.1244250e-05,.1672199e-05,&
17783  & .5302781e-06,.7255338e-06,.9960660e-06,.1375837e-05,.1817809e-05,&
17784  & .5718819e-06,.7824923e-06,.1082650e-05,.1463943e-05,.1914798e-05/
17785 
17786  data absb(121:235, 6) / &
17787  & .5779563e-06,.7793008e-06,.1089554e-05,.1465980e-05,.1912492e-05,&
17788  & .6012058e-06,.8101817e-06,.1114671e-05,.1481773e-05,.1917882e-05,&
17789  & .6359830e-06,.8577926e-06,.1156572e-05,.1515261e-05,.1953664e-05,&
17790  & .6218324e-06,.8312575e-06,.1120830e-05,.1466837e-05,.1889580e-05,&
17791  & .6020577e-06,.7988481e-06,.1076839e-05,.1420463e-05,.1818710e-05,&
17792  & .5888633e-06,.7776144e-06,.1041644e-05,.1370194e-05,.1754483e-05,&
17793  & .5631597e-06,.7415089e-06,.9956498e-06,.1305861e-05,.1669685e-05,&
17794  & .5356640e-06,.7073841e-06,.9466091e-06,.1238098e-05,.1585048e-05,&
17795  & .5104786e-06,.6741957e-06,.8973165e-06,.1175203e-05,.1505003e-05,&
17796  & .4827379e-06,.6379585e-06,.8434834e-06,.1105762e-05,.1414222e-05,&
17797  & .4471224e-06,.5931371e-06,.7785484e-06,.1020135e-05,.1311082e-05,&
17798  & .4093237e-06,.5500658e-06,.7202141e-06,.9432841e-06,.1215064e-05,&
17799  & .3743207e-06,.5084612e-06,.6692669e-06,.8748475e-06,.1125655e-05,&
17800  & .3375380e-06,.4645308e-06,.6183099e-06,.8066744e-06,.1040697e-05,&
17801  & .3011207e-06,.4225809e-06,.5687082e-06,.7426667e-06,.9612401e-06,&
17802  & .2668279e-06,.3832441e-06,.5209688e-06,.6850474e-06,.8874070e-06,&
17803  & .2381612e-06,.3456426e-06,.4754255e-06,.6316630e-06,.8198579e-06,&
17804  & .2073586e-06,.3073931e-06,.4304397e-06,.5791758e-06,.7545941e-06,&
17805  & .1768447e-06,.2704831e-06,.3869748e-06,.5275204e-06,.6934370e-06,&
17806  & .1503327e-06,.2353970e-06,.3469204e-06,.4790892e-06,.6362293e-06,&
17807  & .1255561e-06,.2028854e-06,.3081471e-06,.4327060e-06,.5822767e-06,&
17808  & .1038629e-06,.1726647e-06,.2718683e-06,.3906697e-06,.5319483e-06,&
17809  & .8678777e-07,.1522598e-06,.2477843e-06,.3639270e-06,.4979000e-06/
17810 
17811  data absb( 1:120, 7) / &
17812  & .3453565e-03,.3534617e-03,.3619531e-03,.3711305e-03,.3812639e-03,&
17813  & .3141656e-03,.3221962e-03,.3311595e-03,.3411912e-03,.3521288e-03,&
17814  & .2869233e-03,.2952510e-03,.3048137e-03,.3155602e-03,.3272615e-03,&
17815  & .2633665e-03,.2725298e-03,.2826467e-03,.2940184e-03,.3062037e-03,&
17816  & .2432615e-03,.2533698e-03,.2641385e-03,.2758932e-03,.2885698e-03,&
17817  & .2263129e-03,.2373054e-03,.2487516e-03,.2608205e-03,.2739867e-03,&
17818  & .2120588e-03,.2239554e-03,.2359421e-03,.2484613e-03,.2621061e-03,&
17819  & .2005107e-03,.2131852e-03,.2256599e-03,.2387045e-03,.2528263e-03,&
17820  & .1911925e-03,.2045282e-03,.2175666e-03,.2310156e-03,.2455442e-03,&
17821  & .1846431e-03,.1985047e-03,.2120615e-03,.2260435e-03,.2409818e-03,&
17822  & .1798623e-03,.1940866e-03,.2081664e-03,.2226065e-03,.2379772e-03,&
17823  & .1766175e-03,.1912018e-03,.2057461e-03,.2205236e-03,.2363363e-03,&
17824  & .1746678e-03,.1895715e-03,.2044754e-03,.2196431e-03,.2358377e-03,&
17825  & .1739647e-03,.1892010e-03,.2043935e-03,.2199752e-03,.2365860e-03,&
17826  & .1742702e-03,.1897414e-03,.2051758e-03,.2211667e-03,.2381552e-03,&
17827  & .1753432e-03,.1911018e-03,.2067274e-03,.2230734e-03,.2404076e-03,&
17828  & .1772791e-03,.1932058e-03,.2090684e-03,.2257815e-03,.2433940e-03,&
17829  & .1798122e-03,.1958563e-03,.2119375e-03,.2289267e-03,.2468559e-03,&
17830  & .1828739e-03,.1989598e-03,.2152598e-03,.2325938e-03,.2507241e-03,&
17831  & .1862774e-03,.2023367e-03,.2189782e-03,.2365487e-03,.2548744e-03,&
17832  & .1898946e-03,.2060048e-03,.2229518e-03,.2407447e-03,.2592115e-03,&
17833  & .1930147e-03,.2092865e-03,.2264529e-03,.2444439e-03,.2630292e-03,&
17834  & .1947320e-03,.2110719e-03,.2284152e-03,.2464695e-03,.2651495e-03,&
17835  & .1947235e-03,.2111115e-03,.2284595e-03,.2465787e-03,.2652695e-03/
17836 
17837  data absb(121:235, 7) / &
17838  & .1923135e-03,.2086721e-03,.2258790e-03,.2439421e-03,.2625178e-03,&
17839  & .1898304e-03,.2061203e-03,.2232301e-03,.2411648e-03,.2597217e-03,&
17840  & .1873764e-03,.2036289e-03,.2206075e-03,.2384662e-03,.2569599e-03,&
17841  & .1832260e-03,.1995592e-03,.2162785e-03,.2339279e-03,.2523120e-03,&
17842  & .1788996e-03,.1952895e-03,.2118287e-03,.2292618e-03,.2475232e-03,&
17843  & .1745665e-03,.1910561e-03,.2074156e-03,.2246436e-03,.2426726e-03,&
17844  & .1693616e-03,.1858699e-03,.2021660e-03,.2190895e-03,.2369106e-03,&
17845  & .1636984e-03,.1802123e-03,.1965993e-03,.2131937e-03,.2307370e-03,&
17846  & .1579848e-03,.1745716e-03,.1910412e-03,.2074387e-03,.2246686e-03,&
17847  & .1517765e-03,.1686193e-03,.1851339e-03,.2014696e-03,.2183450e-03,&
17848  & .1446931e-03,.1619128e-03,.1784332e-03,.1948757e-03,.2113871e-03,&
17849  & .1374469e-03,.1550648e-03,.1717760e-03,.1882836e-03,.2046026e-03,&
17850  & .1301193e-03,.1480729e-03,.1651093e-03,.1816194e-03,.1979742e-03,&
17851  & .1232387e-03,.1413641e-03,.1587786e-03,.1753667e-03,.1918502e-03,&
17852  & .1165074e-03,.1347306e-03,.1525223e-03,.1693426e-03,.1858642e-03,&
17853  & .1098514e-03,.1281199e-03,.1461473e-03,.1632796e-03,.1797964e-03,&
17854  & .1032338e-03,.1214316e-03,.1396126e-03,.1571081e-03,.1737446e-03,&
17855  & .9707472e-04,.1152633e-03,.1335133e-03,.1513622e-03,.1682314e-03,&
17856  & .9122100e-04,.1094451e-03,.1276962e-03,.1457224e-03,.1629077e-03,&
17857  & .8538680e-04,.1036587e-03,.1218392e-03,.1400148e-03,.1575026e-03,&
17858  & .7959199e-04,.9778645e-04,.1159632e-03,.1342022e-03,.1520145e-03,&
17859  & .7417050e-04,.9223069e-04,.1104637e-03,.1287103e-03,.1467060e-03,&
17860  & .7201794e-04,.9003123e-04,.1082584e-03,.1264928e-03,.1445780e-03/
17861 
17862  data absb( 1:120, 8) / &
17863  & .8358600e-02,.8311878e-02,.8262807e-02,.8209212e-02,.8148456e-02,&
17864  & .8611422e-02,.8564644e-02,.8512562e-02,.8452401e-02,.8387225e-02,&
17865  & .8829188e-02,.8780796e-02,.8724483e-02,.8660460e-02,.8590523e-02,&
17866  & .9017237e-02,.8963386e-02,.8903457e-02,.8835037e-02,.8761588e-02,&
17867  & .9177720e-02,.9117835e-02,.9052597e-02,.8982454e-02,.8905848e-02,&
17868  & .9312725e-02,.9247622e-02,.9178554e-02,.9105643e-02,.9025534e-02,&
17869  & .9426857e-02,.9355560e-02,.9283636e-02,.9207311e-02,.9124846e-02,&
17870  & .9520420e-02,.9444026e-02,.9368533e-02,.9289838e-02,.9203532e-02,&
17871  & .9596404e-02,.9516161e-02,.9437583e-02,.9356012e-02,.9267042e-02,&
17872  & .9652643e-02,.9569500e-02,.9487039e-02,.9401969e-02,.9310716e-02,&
17873  & .9695422e-02,.9609692e-02,.9524686e-02,.9435966e-02,.9342924e-02,&
17874  & .9727439e-02,.9637865e-02,.9550739e-02,.9460899e-02,.9364315e-02,&
17875  & .9747348e-02,.9657887e-02,.9567816e-02,.9475420e-02,.9377002e-02,&
17876  & .9759778e-02,.9668908e-02,.9576933e-02,.9481742e-02,.9380067e-02,&
17877  & .9764468e-02,.9671597e-02,.9578772e-02,.9481823e-02,.9378210e-02,&
17878  & .9763831e-02,.9670378e-02,.9575566e-02,.9476824e-02,.9370080e-02,&
17879  & .9759671e-02,.9663673e-02,.9567437e-02,.9466585e-02,.9358136e-02,&
17880  & .9749029e-02,.9653783e-02,.9555706e-02,.9452450e-02,.9342273e-02,&
17881  & .9736435e-02,.9639659e-02,.9540533e-02,.9435413e-02,.9323567e-02,&
17882  & .9720078e-02,.9623847e-02,.9522512e-02,.9415460e-02,.9302259e-02,&
17883  & .9703088e-02,.9605298e-02,.9501404e-02,.9392140e-02,.9278916e-02,&
17884  & .9686283e-02,.9587583e-02,.9483967e-02,.9371995e-02,.9257294e-02,&
17885  & .9678111e-02,.9578966e-02,.9473567e-02,.9361585e-02,.9246698e-02,&
17886  & .9679790e-02,.9580995e-02,.9474493e-02,.9363423e-02,.9247588e-02/
17887 
17888  data absb(121:235, 8) / &
17889  & .9697036e-02,.9597631e-02,.9491980e-02,.9381268e-02,.9266303e-02,&
17890  & .9712567e-02,.9614449e-02,.9509960e-02,.9399294e-02,.9284125e-02,&
17891  & .9728855e-02,.9630143e-02,.9527100e-02,.9417372e-02,.9302616e-02,&
17892  & .9755136e-02,.9656175e-02,.9554532e-02,.9445454e-02,.9332069e-02,&
17893  & .9781450e-02,.9682450e-02,.9581889e-02,.9475267e-02,.9362746e-02,&
17894  & .9808399e-02,.9708959e-02,.9609987e-02,.9504452e-02,.9392809e-02,&
17895  & .9839580e-02,.9740865e-02,.9642287e-02,.9538676e-02,.9428802e-02,&
17896  & .9874370e-02,.9776400e-02,.9676193e-02,.9575430e-02,.9467798e-02,&
17897  & .9908878e-02,.9809623e-02,.9710657e-02,.9611071e-02,.9505151e-02,&
17898  & .9946962e-02,.9845757e-02,.9746231e-02,.9647315e-02,.9544139e-02,&
17899  & .9988261e-02,.9885906e-02,.9786939e-02,.9687236e-02,.9586655e-02,&
17900  & .1003101e-01,.9927336e-02,.9827361e-02,.9728363e-02,.9628271e-02,&
17901  & .1007558e-01,.9968398e-02,.9867081e-02,.9768397e-02,.9669498e-02,&
17902  & .1011578e-01,.1000878e-01,.9905269e-02,.9805950e-02,.9706828e-02,&
17903  & .1015569e-01,.1004819e-01,.9942285e-02,.9841944e-02,.9742563e-02,&
17904  & .1019452e-01,.1008719e-01,.9980576e-02,.9878353e-02,.9779624e-02,&
17905  & .1023378e-01,.1012695e-01,.1001916e-01,.9915168e-02,.9815063e-02,&
17906  & .1026952e-01,.1016297e-01,.1005517e-01,.9949717e-02,.9848721e-02,&
17907  & .1030346e-01,.1019748e-01,.1008930e-01,.9983003e-02,.9880655e-02,&
17908  & .1033774e-01,.1023094e-01,.1012441e-01,.1001809e-01,.9912916e-02,&
17909  & .1037133e-01,.1026548e-01,.1015955e-01,.1005208e-01,.9945433e-02,&
17910  & .1040238e-01,.1029750e-01,.1019014e-01,.1008328e-01,.9977541e-02,&
17911  & .1041506e-01,.1031116e-01,.1020458e-01,.1009725e-01,.9990140e-02/
17912 
17913 ! ---
17914  data forref(1:3,1: 8) / &
17915  & .1889348e-07,.2790121e-06,.2442243e-05,.3917008e-06,.7957867e-06,&
17916  & .1584630e-05,.1690886e-05,.1737327e-05,.5814421e-06,.4276674e-05,&
17917  & .3754692e-05,.3297487e-06,.4845389e-05,.3046027e-05,.8469466e-06,&
17918  & .5624835e-05,.1676442e-05,.3856211e-07,.3141158e-05,.1459015e-07,&
17919  & .2568816e-07,.8749816e-12,.8199214e-12,.8132942e-12/
17920 
17921 
17922  data selfref(1:10,1: 8) / &
17923  & .1216369e-04,.7423490e-05,.4532882e-05,.2769295e-05,.1692770e-05,&
17924  & .1035295e-05,.6335399e-06,.3879104e-06,.2376510e-06,.1456812e-06,&
17925  & .1738951e-04,.1350041e-04,.1061362e-04,.8452065e-05,.6817644e-05,&
17926  & .5568311e-05,.4602063e-05,.3845424e-05,.3245295e-05,.2763136e-05,&
17927  & .2573945e-04,.2373710e-04,.2191428e-04,.2025397e-04,.1874100e-04,&
17928  & .1736167e-04,.1610330e-04,.1495474e-04,.1390567e-04,.1294697e-04,&
17929  & .5188697e-04,.4899932e-04,.4628324e-04,.4372800e-04,.4132363e-04,&
17930  & .3906076e-04,.3693055e-04,.3492493e-04,.3303618e-04,.3125709e-04,&
17931  & .3645284e-04,.3672976e-04,.3702492e-04,.3733989e-04,.3767626e-04,&
17932  & .3803589e-04,.3842086e-04,.3883327e-04,.3927557e-04,.3975032e-04,&
17933  & .1526953e-04,.1771468e-04,.2057485e-04,.2392454e-04,.2785266e-04,&
17934  & .3246491e-04,.3788738e-04,.4427053e-04,.5179416e-04,.6067315e-04,&
17935  & .1304688e-06,.2753468e-06,.5813077e-06,.1227665e-05,.2593570e-05,&
17936  & .5480882e-05,.1158601e-04,.2449863e-04,.5181665e-04,.1096252e-03,&
17937  & .2493662e-06,.2172185e-06,.1892149e-06,.1648213e-06,.1435736e-06,&
17938  & .1250641e-06,.1089414e-06,.9489759e-07,.8266404e-07,.7200766e-07/
17939 
17940 !........................................!
17941  end module module_radsw_kgb24 !
17942 !========================================!
17943 
17944 
17947 !========================================!
17949 !........................................!
17950 !
17951 ! ********* the original program descriptions ********* !
17952 ! !
17953 ! originally by j.delamere, atmospheric & environmental research. !
17954 ! revision: 2.4 !
17955 ! band 25: 16000-22650 cm-1 (low - h2o; high - nothing) !
17956 ! reformatted for f90 by jjmorcrette, ecmwf !
17957 ! !
17958 ! this table has been re-generated for reduced number of g-point !
17959 ! by y.t.hou, ncep !
17960 ! !
17961 ! ********* ********* end description ********* ********* !
17962 !
17963  use physparam, only : kind_phys
17964  use module_radsw_parameters, only : ng25
17965 
17966 !
17967  implicit none
17968 !
17969  private
17970 !
17972  integer, public :: msa25
17973  parameter(msa25=65)
17974 
17990  real (kind=kind_phys), public :: absa(msa25,ng25)
17991 
17993  real (kind=kind_phys), public :: rayl(ng25)
17994 
17996  real (kind=kind_phys), public :: abso3a(ng25)
17997 
17999  real (kind=kind_phys), public :: abso3b(ng25)
18000 
18001  data rayl(1: 6) / .9811320e-06,&
18002  & .8256050e-06,.6146670e-06,.3838724e-06,.4417251e-06,.3613850e-06/
18003 
18004  data abso3a(1: 6) / .2326640e-01,&
18005  & .5761540e-01,.1854021e+00,.3896100e+00,.3610619e+00,.4362158e+00/
18006 
18007  data abso3b(1: 6) / .1769170e-01,&
18008  & .4641850e-01,.1449232e+00,.3484920e+00,.4676420e+00,.5178092e+00/
18009 
18010 
18011  data absa( 1: 65, 1) / &
18012  & .1646100e-08,.1678200e-08,.1933900e-08,.1710000e-08,.1704500e-08,&
18013  & .2875900e-08,.2946900e-08,.3378900e-08,.3435700e-08,.2883300e-08,&
18014  & .5514800e-08,.5480800e-08,.5419000e-08,.6826000e-08,.5197200e-08,&
18015  & .9533600e-08,.9455200e-08,.9300100e-08,.9096100e-08,.1445100e-07,&
18016  & .1493000e-07,.1473600e-07,.1443200e-07,.1407400e-07,.2410200e-07,&
18017  & .2277000e-07,.2230100e-07,.2177800e-07,.2119400e-07,.2056900e-07,&
18018  & .3469900e-07,.3395100e-07,.3312400e-07,.3214400e-07,.3122000e-07,&
18019  & .6233900e-07,.6040500e-07,.5954800e-07,.5821400e-07,.5697700e-07,&
18020  & .1741100e-06,.1765400e-06,.1831500e-06,.1810000e-06,.1783900e-06,&
18021  & .2352600e-06,.2272900e-06,.2194700e-06,.2118800e-06,.2045400e-06,&
18022  & .2353500e-06,.2273700e-06,.2195600e-06,.2119600e-06,.2046100e-06,&
18023  & .2353900e-06,.2274000e-06,.2195900e-06,.2119900e-06,.2046500e-06,&
18024  & .2354300e-06,.2274400e-06,.2196200e-06,.2120200e-06,.2046700e-06/
18025 
18026  data absa( 1: 65, 2) / &
18027  & .6291200e-08,.6155900e-08,.8464000e-08,.5924000e-08,.5821700e-08,&
18028  & .8374900e-08,.8075600e-08,.1162300e-07,.1127200e-07,.7363600e-08,&
18029  & .1330400e-07,.1279500e-07,.1234300e-07,.2123500e-07,.1157700e-07,&
18030  & .2070400e-07,.1973600e-07,.1890000e-07,.1822800e-07,.3160100e-07,&
18031  & .3114900e-07,.2966900e-07,.2831800e-07,.2710100e-07,.4964900e-07,&
18032  & .4571300e-07,.4351900e-07,.4148800e-07,.3991800e-07,.3829100e-07,&
18033  & .7726500e-07,.7384800e-07,.7043700e-07,.6794500e-07,.6612700e-07,&
18034  & .1575400e-06,.1566400e-06,.1537800e-06,.1502700e-06,.1463300e-06,&
18035  & .1643900e-06,.1467800e-06,.1261000e-06,.1153200e-06,.1059100e-06,&
18036  & .1436600e-06,.1350600e-06,.1258300e-06,.1177400e-06,.1101100e-06,&
18037  & .1452100e-06,.1376600e-06,.1307200e-06,.1221800e-06,.1140000e-06,&
18038  & .1452400e-06,.1376900e-06,.1307400e-06,.1224100e-06,.1155200e-06,&
18039  & .1452500e-06,.1377000e-06,.1307500e-06,.1225200e-06,.1155300e-06/
18040 
18041  data absa( 1: 65, 3) / &
18042  & .2304255e-07,.2212848e-07,.4109493e-07,.2019160e-07,.1941596e-07,&
18043  & .2701108e-07,.2633924e-07,.5665284e-07,.5516586e-07,.2490900e-07,&
18044  & .4992253e-07,.4901988e-07,.4802034e-07,.7658263e-07,.4679826e-07,&
18045  & .9936387e-07,.9737083e-07,.9572112e-07,.9398584e-07,.1435192e-06,&
18046  & .1737489e-06,.1690329e-06,.1649946e-06,.1608759e-06,.2616677e-06,&
18047  & .2850168e-06,.2771528e-06,.2703079e-06,.2636367e-06,.2572958e-06,&
18048  & .4363192e-06,.4270658e-06,.4142017e-06,.4031191e-06,.3921783e-06,&
18049  & .6694834e-06,.6560782e-06,.6423565e-06,.6305881e-06,.6197580e-06,&
18050  & .1127398e-05,.1109264e-05,.1096811e-05,.1079010e-05,.1060076e-05,&
18051  & .1142385e-05,.1123159e-05,.1103836e-05,.1083587e-05,.1063058e-05,&
18052  & .1141922e-05,.1122126e-05,.1101516e-05,.1081516e-05,.1061329e-05,&
18053  & .1142101e-05,.1122316e-05,.1101648e-05,.1081539e-05,.1060666e-05,&
18054  & .1142284e-05,.1122439e-05,.1101810e-05,.1081628e-05,.1060802e-05/
18055 
18056  data absa( 1: 65, 4) / &
18057  & .5358826e-07,.5191800e-07,.1241794e-06,.4941069e-07,.4826537e-07,&
18058  & .6634855e-07,.6497957e-07,.1011451e-06,.9587780e-07,.6034307e-07,&
18059  & .1109051e-06,.1079549e-06,.1052181e-06,.1673772e-06,.9938209e-07,&
18060  & .1837864e-06,.1778823e-06,.1716021e-06,.1661914e-06,.2696765e-06,&
18061  & .2944786e-06,.2858136e-06,.2767250e-06,.2693989e-06,.4648876e-06,&
18062  & .4455888e-06,.4336889e-06,.4201096e-06,.4076205e-06,.3956245e-06,&
18063  & .6742110e-06,.6611647e-06,.6510830e-06,.6399340e-06,.6276101e-06,&
18064  & .8969775e-06,.8864724e-06,.8790142e-06,.8698967e-06,.8588636e-06,&
18065  & .7342734e-06,.7160851e-06,.6891067e-06,.6701000e-06,.6510138e-06,&
18066  & .7386682e-06,.7215150e-06,.7046031e-06,.6851616e-06,.6677641e-06,&
18067  & .7580174e-06,.7411749e-06,.7247261e-06,.7009916e-06,.6816196e-06,&
18068  & .7649827e-06,.7506295e-06,.7339233e-06,.7090960e-06,.6870193e-06,&
18069  & .7676832e-06,.7529800e-06,.7370035e-06,.7118011e-06,.6888372e-06/
18070 
18071  data absa( 1: 65, 5) / &
18072  & .7117654e-05,.7054566e-05,.8530292e-05,.6912687e-05,.6834460e-05,&
18073  & .6579625e-05,.6521231e-05,.8074960e-05,.7892008e-05,.6316120e-05,&
18074  & .5972427e-05,.5925015e-05,.5871889e-05,.7336016e-05,.5749214e-05,&
18075  & .5324376e-05,.5290991e-05,.5251560e-05,.5205073e-05,.6531106e-05,&
18076  & .4622548e-05,.4605694e-05,.4579758e-05,.4546281e-05,.5745046e-05,&
18077  & .3863569e-05,.3864350e-05,.3857382e-05,.3842378e-05,.3819669e-05,&
18078  & .3076464e-05,.3091729e-05,.3102707e-05,.3099905e-05,.3090770e-05,&
18079  & .2816484e-05,.2825815e-05,.2821070e-05,.2804759e-05,.2789727e-05,&
18080  & .6454490e-05,.6508164e-05,.6551126e-05,.6559912e-05,.6545487e-05,&
18081  & .1257978e-04,.1269684e-04,.1274689e-04,.1276159e-04,.1276158e-04,&
18082  & .1419438e-04,.1414710e-04,.1407662e-04,.1400149e-04,.1389726e-04,&
18083  & .1419357e-04,.1414993e-04,.1408845e-04,.1402116e-04,.1393645e-04,&
18084  & .1419415e-04,.1414965e-04,.1408763e-04,.1402335e-04,.1394694e-04/
18085 
18086  data absa( 1: 65, 6) / &
18087  & .1587872e-03,.1576306e-03,.1591069e-03,.1553587e-03,.1542553e-03,&
18088  & .1690035e-03,.1677837e-03,.1693876e-03,.1678861e-03,.1641727e-03,&
18089  & .1796181e-03,.1782899e-03,.1769631e-03,.1785679e-03,.1743591e-03,&
18090  & .1896678e-03,.1882560e-03,.1868296e-03,.1854223e-03,.1871320e-03,&
18091  & .1991122e-03,.1976085e-03,.1961276e-03,.1946438e-03,.1968553e-03,&
18092  & .2076995e-03,.2061273e-03,.2045536e-03,.2029803e-03,.2014317e-03,&
18093  & .2138594e-03,.2121941e-03,.2104844e-03,.2088605e-03,.2072504e-03,&
18094  & .2079296e-03,.2064979e-03,.2051095e-03,.2037779e-03,.2023372e-03,&
18095  & .1359973e-03,.1343382e-03,.1327011e-03,.1314602e-03,.1305188e-03,&
18096  & .2924225e-04,.2660282e-04,.2493377e-04,.2376549e-04,.2266769e-04,&
18097  & .7730806e-06,.9895626e-06,.1411477e-05,.1894061e-05,.2654902e-05,&
18098  & .6900584e-06,.7953827e-06,.1063045e-05,.1425467e-05,.1894041e-05,&
18099  & .6604518e-06,.7863470e-06,.1049399e-05,.1366331e-05,.1711475e-05/
18100 
18101 !........................................!
18102  end module module_radsw_kgb25 !
18103 !========================================!
18104 
18105 
18108 !========================================!
18110 !........................................!
18111 !
18112 ! ********* the original program descriptions ********* !
18113 ! !
18114 ! originally by j.delamere, atmospheric & environmental research. !
18115 ! revision: 2.4 !
18116 ! band 26: 22650-29000 cm-1 (low - nothing; high - nothing) !
18117 ! reformatted for f90 by jjmorcrette, ecmwf !
18118 ! !
18119 ! this table has been re-generated for reduced number of g-point !
18120 ! by y.t.hou, ncep !
18121 ! !
18122 ! ********* ********* end description ********* ********* !
18123 !
18124  use physparam, only : kind_phys
18125  use module_radsw_parameters, only : ng26
18126 
18127 !
18128  implicit none
18129 !
18130  private
18131 !
18133  real (kind=kind_phys), public :: rayl(ng26)
18134 
18135  data rayl(1: 6) / .1212630e-05,&
18136  & .1434280e-05,.1799798e-05,.2307617e-05,.2814376e-05,.3092339e-05/
18137 
18138 !........................................!
18139  end module module_radsw_kgb26 !
18140 !========================================!
18141 
18142 
18145 !========================================!
18147 !........................................!
18148 !
18149 ! ********* the original program descriptions ********* !
18150 ! !
18151 ! originally by j.delamere, atmospheric & environmental research. !
18152 ! revision: 2.4 !
18153 ! band 27: 29000-38000 cm-1 (low - o3; high - o3)
18154 ! reformatted for f90 by jjmorcrette, ecmwf !
18155 ! !
18156 ! this table has been re-generated for reduced number of g-point !
18157 ! by y.t.hou, ncep !
18158 ! !
18159 ! ********* ********* end description ********* ********* !
18160 !
18161  use physparam, only : kind_phys
18162  use module_radsw_parameters, only : ng27
18163 
18164 !
18165  implicit none
18166 !
18167  private
18168 !
18170  integer, public :: msa27
18172  integer, public :: msb27
18173  parameter(msa27=65, msb27=235)
18174 
18175 
18191  real(kind=kind_phys), public :: absa(msa27,ng27)
18192 
18204  real (kind=kind_phys), public :: absb(msb27,ng27)
18205 
18207  real (kind=kind_phys), public :: rayl(ng27)
18208 
18209 ! --- rayleigh extinction coefficient at v = cm-1.
18210  data rayl(1: 8) / .3445340e-05,.4144800e-05,.4950690e-05,&
18211  & .5812040e-05,.6697480e-05,.7564880e-05,.8886761e-05,.9744758e-05/
18212 
18213  data absa( 1: 65, 1) / &
18214  & .2290700e+00,.2562500e+00,.2877900e+00,.3237600e+00,.3642600e+00,&
18215  & .2191300e+00,.2444500e+00,.2742200e+00,.3083200e+00,.3469400e+00,&
18216  & .2060200e+00,.2286400e+00,.2557400e+00,.2872100e+00,.3231000e+00,&
18217  & .1937900e+00,.2135200e+00,.2377100e+00,.2664300e+00,.2994000e+00,&
18218  & .1836900e+00,.2006100e+00,.2220000e+00,.2478600e+00,.2781600e+00,&
18219  & .1751700e+00,.1892000e+00,.2077100e+00,.2306900e+00,.2581700e+00,&
18220  & .1688800e+00,.1798800e+00,.1955900e+00,.2157700e+00,.2404200e+00,&
18221  & .1644200e+00,.1727300e+00,.1856500e+00,.2031500e+00,.2251200e+00,&
18222  & .1615900e+00,.1673800e+00,.1775200e+00,.1924200e+00,.2117900e+00,&
18223  & .1603700e+00,.1640200e+00,.1720400e+00,.1846300e+00,.2018300e+00,&
18224  & .1603600e+00,.1639900e+00,.1719800e+00,.1845500e+00,.2017300e+00,&
18225  & .1603600e+00,.1639900e+00,.1719800e+00,.1845500e+00,.2017300e+00,&
18226  & .1603600e+00,.1639900e+00,.1719800e+00,.1845500e+00,.2017300e+00/
18227 
18228  data absa( 1: 65, 2) / &
18229  & .2071600e+01,.2192500e+01,.2332700e+01,.2492100e+01,.2672600e+01,&
18230  & .2027200e+01,.2140100e+01,.2272300e+01,.2423800e+01,.2595000e+01,&
18231  & .1968400e+01,.2069700e+01,.2190200e+01,.2330100e+01,.2489200e+01,&
18232  & .1913300e+01,.2002100e+01,.2110100e+01,.2237500e+01,.2384200e+01,&
18233  & .1867300e+01,.1944100e+01,.2040000e+01,.2155300e+01,.2289800e+01,&
18234  & .1827700e+01,.1892500e+01,.1976000e+01,.2078800e+01,.2200900e+01,&
18235  & .1796300e+01,.1849700e+01,.1921400e+01,.2012100e+01,.2122200e+01,&
18236  & .1774900e+01,.1815600e+01,.1876300e+01,.1955500e+01,.2054000e+01,&
18237  & .1760000e+01,.1788500e+01,.1838800e+01,.1907100e+01,.1994300e+01,&
18238  & .1752600e+01,.1772900e+01,.1812100e+01,.1871600e+01,.1949600e+01,&
18239  & .1752500e+01,.1772700e+01,.1811900e+01,.1871200e+01,.1949100e+01,&
18240  & .1752500e+01,.1772700e+01,.1811900e+01,.1871200e+01,.1949100e+01,&
18241  & .1752500e+01,.1772700e+01,.1811900e+01,.1871200e+01,.1949100e+01/
18242 
18243  data absa( 1: 65, 3) / &
18244  & .1218900e+02,.1261900e+02,.1311000e+02,.1366300e+02,.1427500e+02,&
18245  & .1203000e+02,.1243400e+02,.1289900e+02,.1342700e+02,.1401500e+02,&
18246  & .1181600e+02,.1218300e+02,.1261100e+02,.1310100e+02,.1365300e+02,&
18247  & .1161100e+02,.1193800e+02,.1232700e+02,.1277700e+02,.1328900e+02,&
18248  & .1143700e+02,.1172600e+02,.1207600e+02,.1248800e+02,.1296100e+02,&
18249  & .1128400e+02,.1153300e+02,.1184300e+02,.1221500e+02,.1264900e+02,&
18250  & .1116000e+02,.1137000e+02,.1164100e+02,.1197500e+02,.1237000e+02,&
18251  & .1106300e+02,.1123700e+02,.1147100e+02,.1176800e+02,.1212600e+02,&
18252  & .1099000e+02,.1112900e+02,.1132700e+02,.1158800e+02,.1191000e+02,&
18253  & .1094500e+02,.1105300e+02,.1122300e+02,.1145400e+02,.1174600e+02,&
18254  & .1094500e+02,.1105200e+02,.1122200e+02,.1145200e+02,.1174400e+02,&
18255  & .1094500e+02,.1105200e+02,.1122200e+02,.1145200e+02,.1174400e+02,&
18256  & .1094500e+02,.1105200e+02,.1122200e+02,.1145200e+02,.1174400e+02/
18257 
18258  data absa( 1: 65, 4) / &
18259  & .5505700e+02,.5614300e+02,.5736400e+02,.5871900e+02,.6020800e+02,&
18260  & .5464700e+02,.5567700e+02,.5684200e+02,.5814200e+02,.5957500e+02,&
18261  & .5409000e+02,.5503900e+02,.5612300e+02,.5734200e+02,.5869400e+02,&
18262  & .5354800e+02,.5441000e+02,.5540800e+02,.5653900e+02,.5780500e+02,&
18263  & .5307400e+02,.5385300e+02,.5476600e+02,.5581300e+02,.5699500e+02,&
18264  & .5264400e+02,.5333600e+02,.5416200e+02,.5512300e+02,.5621800e+02,&
18265  & .5227900e+02,.5288700e+02,.5362900e+02,.5450500e+02,.5551600e+02,&
18266  & .5197900e+02,.5250700e+02,.5316800e+02,.5396500e+02,.5489500e+02,&
18267  & .5173400e+02,.5218300e+02,.5276700e+02,.5348500e+02,.5433700e+02,&
18268  & .5156500e+02,.5194800e+02,.5246700e+02,.5312000e+02,.5390700e+02,&
18269  & .5156300e+02,.5194600e+02,.5246400e+02,.5311600e+02,.5390200e+02,&
18270  & .5156300e+02,.5194600e+02,.5246400e+02,.5311600e+02,.5390200e+02,&
18271  & .5156300e+02,.5194600e+02,.5246400e+02,.5311600e+02,.5390200e+02/
18272 
18273  data absa( 1: 65, 5) / &
18274  & .1779400e+03,.1797300e+03,.1816400e+03,.1836600e+03,.1858100e+03,&
18275  & .1772400e+03,.1789800e+03,.1808300e+03,.1828100e+03,.1849100e+03,&
18276  & .1762400e+03,.1779100e+03,.1797000e+03,.1816000e+03,.1836300e+03,&
18277  & .1752300e+03,.1768200e+03,.1785300e+03,.1803600e+03,.1823100e+03,&
18278  & .1742900e+03,.1758100e+03,.1774400e+03,.1792000e+03,.1810700e+03,&
18279  & .1733800e+03,.1748200e+03,.1763800e+03,.1780500e+03,.1798500e+03,&
18280  & .1725300e+03,.1739000e+03,.1753900e+03,.1769900e+03,.1787100e+03,&
18281  & .1717700e+03,.1730700e+03,.1744800e+03,.1760100e+03,.1776700e+03,&
18282  & .1710700e+03,.1723000e+03,.1736400e+03,.1751100e+03,.1766900e+03,&
18283  & .1705200e+03,.1716900e+03,.1729800e+03,.1743800e+03,.1759100e+03,&
18284  & .1705100e+03,.1716800e+03,.1729700e+03,.1743700e+03,.1759000e+03,&
18285  & .1705100e+03,.1716800e+03,.1729700e+03,.1743700e+03,.1759000e+03,&
18286  & .1705100e+03,.1716800e+03,.1729700e+03,.1743700e+03,.1759000e+03/
18287 
18288  data absa( 1: 65, 6) / &
18289  & .3768000e+05,.3680100e+05,.3601100e+05,.3529800e+05,.3471500e+05,&
18290  & .3928600e+03,.3946300e+03,.3961600e+03,.3974800e+03,.3985800e+03,&
18291  & .3916900e+03,.3935900e+03,.3952600e+03,.3967100e+03,.3979400e+03,&
18292  & .3903400e+03,.3923900e+03,.3942100e+03,.3958000e+03,.3971700e+03,&
18293  & .3889500e+03,.3911300e+03,.3930900e+03,.3948300e+03,.3963400e+03,&
18294  & .3874200e+03,.3897500e+03,.3918500e+03,.3937300e+03,.3953900e+03,&
18295  & .3858500e+03,.3883200e+03,.3905600e+03,.3925800e+03,.3943800e+03,&
18296  & .3842600e+03,.3868600e+03,.3892400e+03,.3914000e+03,.3933300e+03,&
18297  & .3826400e+03,.3853800e+03,.3878900e+03,.3901700e+03,.3922300e+03,&
18298  & .3812300e+03,.3840800e+03,.3867000e+03,.3890900e+03,.3912600e+03,&
18299  & .3812200e+03,.3840600e+03,.3866800e+03,.3890800e+03,.3912500e+03,&
18300  & .3812200e+03,.3840600e+03,.3866800e+03,.3890800e+03,.3912500e+03,&
18301  & .3812200e+03,.3840600e+03,.3866800e+03,.3890800e+03,.3912500e+03/
18302 
18303  data absa( 1: 65, 7) / &
18304  & .5138014e+07,.5012023e+07,.4897696e+07,.4788104e+07,.4690601e+07,&
18305  & .7716789e+03,.7727576e+03,.7738234e+03,.7748824e+03,.7760097e+03,&
18306  & .7709970e+03,.7720920e+03,.7731683e+03,.7742329e+03,.7752795e+03,&
18307  & .7702703e+03,.7713814e+03,.7724638e+03,.7735352e+03,.7745939e+03,&
18308  & .7695623e+03,.7706840e+03,.7717805e+03,.7728581e+03,.7739261e+03,&
18309  & .7688269e+03,.7699602e+03,.7710739e+03,.7721618e+03,.7732324e+03,&
18310  & .7681233e+03,.7692532e+03,.7703760e+03,.7714779e+03,.7725630e+03,&
18311  & .7674388e+03,.7685763e+03,.7697000e+03,.7708216e+03,.7719092e+03,&
18312  & .7667706e+03,.7679148e+03,.7690491e+03,.7701722e+03,.7712802e+03,&
18313  & .7662119e+03,.7673655e+03,.7684992e+03,.7696303e+03,.7707457e+03,&
18314  & .7662075e+03,.7673571e+03,.7684953e+03,.7696203e+03,.7707387e+03,&
18315  & .7662135e+03,.7673563e+03,.7684924e+03,.7696200e+03,.7707387e+03,&
18316  & .7662080e+03,.7673567e+03,.7684935e+03,.7696200e+03,.7707387e+03/
18317 
18318  data absa( 1: 65, 8) / &
18319  & .1263473e+08,.1241774e+08,.1224143e+08,.1219450e+08,.1211569e+08,&
18320  & .1001941e+04,.1000716e+04,.9984375e+03,.9948240e+03,.9885902e+03,&
18321  & .1002595e+04,.1001895e+04,.1000220e+04,.9973344e+03,.9934343e+03,&
18322  & .1002661e+04,.1002592e+04,.1001621e+04,.9995163e+03,.9962347e+03,&
18323  & .1002279e+04,.1002873e+04,.1002423e+04,.1001059e+04,.9984745e+03,&
18324  & .1001370e+04,.1002671e+04,.1002871e+04,.1002175e+04,.1000396e+04,&
18325  & .9999024e+03,.1002012e+04,.1002937e+04,.1002823e+04,.1001683e+04,&
18326  & .9980806e+03,.1000892e+04,.1002512e+04,.1003003e+04,.1002533e+04,&
18327  & .9959107e+03,.9994193e+03,.1001722e+04,.1002845e+04,.1002953e+04,&
18328  & .9937920e+03,.9978415e+03,.1000716e+04,.1002445e+04,.1003004e+04,&
18329  & .9937640e+03,.9978135e+03,.1000658e+04,.1002444e+04,.1003004e+04,&
18330  & .9936612e+03,.9978143e+03,.1000698e+04,.1002407e+04,.1003004e+04,&
18331  & .9937589e+03,.9978125e+03,.1000708e+04,.1002433e+04,.1003006e+04/
18332 
18333 
18334  data absb( 1:120, 1) / &
18335  & .1603600e+00,.1639900e+00,.1719800e+00,.1845500e+00,.2017300e+00,&
18336  & .1605000e+00,.1645400e+00,.1729200e+00,.1859200e+00,.2035100e+00,&
18337  & .1607100e+00,.1651900e+00,.1740000e+00,.1875000e+00,.2055400e+00,&
18338  & .1609800e+00,.1659300e+00,.1751700e+00,.1892100e+00,.2077200e+00,&
18339  & .1612900e+00,.1667000e+00,.1764200e+00,.1909300e+00,.2099100e+00,&
18340  & .1616400e+00,.1675000e+00,.1777100e+00,.1926700e+00,.2121100e+00,&
18341  & .1620300e+00,.1683200e+00,.1790100e+00,.1944300e+00,.2143100e+00,&
18342  & .1625500e+00,.1693400e+00,.1805900e+00,.1965300e+00,.2169400e+00,&
18343  & .1631300e+00,.1704400e+00,.1822500e+00,.1987300e+00,.2196700e+00,&
18344  & .1641600e+00,.1722700e+00,.1849800e+00,.2022900e+00,.2240600e+00,&
18345  & .1653900e+00,.1743100e+00,.1879600e+00,.2061200e+00,.2287500e+00,&
18346  & .1668400e+00,.1766600e+00,.1912500e+00,.2103200e+00,.2338500e+00,&
18347  & .1685600e+00,.1793900e+00,.1949300e+00,.2149500e+00,.2394300e+00,&
18348  & .1706700e+00,.1826000e+00,.1991900e+00,.2202400e+00,.2457800e+00,&
18349  & .1730600e+00,.1861300e+00,.2037700e+00,.2258800e+00,.2524800e+00,&
18350  & .1757000e+00,.1899400e+00,.2086500e+00,.2318400e+00,.2595200e+00,&
18351  & .1788200e+00,.1941700e+00,.2139900e+00,.2382800e+00,.2670800e+00,&
18352  & .1822300e+00,.1987000e+00,.2196400e+00,.2450500e+00,.2749200e+00,&
18353  & .1860200e+00,.2036400e+00,.2257200e+00,.2522900e+00,.2832500e+00,&
18354  & .1901800e+00,.2089500e+00,.2321900e+00,.2599400e+00,.2920000e+00,&
18355  & .1946600e+00,.2146100e+00,.2390200e+00,.2679500e+00,.3011400e+00,&
18356  & .1988000e+00,.2197600e+00,.2452000e+00,.2750900e+00,.3093200e+00,&
18357  & .2012900e+00,.2228300e+00,.2488600e+00,.2793100e+00,.3141200e+00,&
18358  & .2017000e+00,.2233400e+00,.2494600e+00,.2800000e+00,.3149200e+00/
18359 
18360  data absb(121:235, 1) / &
18361  & .1992000e+00,.2202600e+00,.2457900e+00,.2757800e+00,.3101000e+00,&
18362  & .1966200e+00,.2170600e+00,.2419700e+00,.2713500e+00,.3050400e+00,&
18363  & .1941400e+00,.2139600e+00,.2382400e+00,.2670400e+00,.3001000e+00,&
18364  & .1900300e+00,.2087700e+00,.2319700e+00,.2596800e+00,.2917100e+00,&
18365  & .1859700e+00,.2035700e+00,.2256400e+00,.2521900e+00,.2831400e+00,&
18366  & .1822000e+00,.1986500e+00,.2195800e+00,.2449800e+00,.2748400e+00,&
18367  & .1779800e+00,.1930400e+00,.2125700e+00,.2365700e+00,.2651000e+00,&
18368  & .1739700e+00,.1874600e+00,.2054800e+00,.2279800e+00,.2549600e+00,&
18369  & .1705300e+00,.1823900e+00,.1989000e+00,.2198900e+00,.2453500e+00,&
18370  & .1673900e+00,.1775400e+00,.1924500e+00,.2118300e+00,.2356800e+00,&
18371  & .1645400e+00,.1729200e+00,.1859200e+00,.2035100e+00,.2255600e+00,&
18372  & .1623900e+00,.1690300e+00,.1801100e+00,.1959000e+00,.2161500e+00,&
18373  & .1609500e+00,.1658400e+00,.1750400e+00,.1890200e+00,.2074700e+00,&
18374  & .1602500e+00,.1634800e+00,.1710900e+00,.1832200e+00,.2000000e+00,&
18375  & .1602100e+00,.1617900e+00,.1678100e+00,.1782100e+00,.1933500e+00,&
18376  & .1607800e+00,.1606800e+00,.1651100e+00,.1738700e+00,.1873100e+00,&
18377  & .1619700e+00,.1601800e+00,.1629900e+00,.1701700e+00,.1818600e+00,&
18378  & .1636200e+00,.1602600e+00,.1615500e+00,.1672900e+00,.1773800e+00,&
18379  & .1657000e+00,.1608300e+00,.1606400e+00,.1649800e+00,.1736500e+00,&
18380  & .1682500e+00,.1618700e+00,.1602000e+00,.1631100e+00,.1704100e+00,&
18381  & .1712900e+00,.1634000e+00,.1602300e+00,.1616900e+00,.1676100e+00,&
18382  & .1746200e+00,.1652900e+00,.1606900e+00,.1607700e+00,.1653500e+00,&
18383  & .1760700e+00,.1661700e+00,.1610000e+00,.1605100e+00,.1645600e+00/
18384 
18385  data absb( 1:120, 2) / &
18386  & .1752500e+01,.1772700e+01,.1811900e+01,.1871200e+01,.1949100e+01,&
18387  & .1753600e+01,.1775500e+01,.1816500e+01,.1877500e+01,.1957100e+01,&
18388  & .1754900e+01,.1778700e+01,.1821900e+01,.1884700e+01,.1966200e+01,&
18389  & .1756500e+01,.1781900e+01,.1827800e+01,.1892500e+01,.1976100e+01,&
18390  & .1758300e+01,.1785000e+01,.1833600e+01,.1900300e+01,.1985900e+01,&
18391  & .1760300e+01,.1789100e+01,.1839600e+01,.1908200e+01,.1995700e+01,&
18392  & .1762400e+01,.1793400e+01,.1845700e+01,.1916200e+01,.2005600e+01,&
18393  & .1765200e+01,.1798600e+01,.1853000e+01,.1925700e+01,.2017400e+01,&
18394  & .1768300e+01,.1804200e+01,.1860700e+01,.1935600e+01,.2029600e+01,&
18395  & .1773600e+01,.1813300e+01,.1873200e+01,.1951600e+01,.2049200e+01,&
18396  & .1779600e+01,.1823400e+01,.1886800e+01,.1968900e+01,.2070200e+01,&
18397  & .1785700e+01,.1834700e+01,.1901800e+01,.1987700e+01,.2092900e+01,&
18398  & .1794600e+01,.1847500e+01,.1918500e+01,.2008500e+01,.2117800e+01,&
18399  & .1805300e+01,.1862300e+01,.1937700e+01,.2032200e+01,.2146000e+01,&
18400  & .1817200e+01,.1878500e+01,.1958300e+01,.2057400e+01,.2175700e+01,&
18401  & .1830300e+01,.1895900e+01,.1980200e+01,.2083900e+01,.2206900e+01,&
18402  & .1844800e+01,.1915000e+01,.2004200e+01,.2112600e+01,.2240400e+01,&
18403  & .1860600e+01,.1935500e+01,.2029500e+01,.2142800e+01,.2275400e+01,&
18404  & .1878000e+01,.1957700e+01,.2056600e+01,.2174900e+01,.2312500e+01,&
18405  & .1896900e+01,.1981600e+01,.2085500e+01,.2208800e+01,.2351400e+01,&
18406  & .1917200e+01,.2006900e+01,.2116000e+01,.2244300e+01,.2392000e+01,&
18407  & .1935900e+01,.2030000e+01,.2143400e+01,.2276200e+01,.2428200e+01,&
18408  & .1947100e+01,.2043700e+01,.2159700e+01,.2294900e+01,.2449500e+01,&
18409  & .1949000e+01,.2046000e+01,.2162400e+01,.2298000e+01,.2453000e+01/
18410 
18411  data absb(121:235, 2) / &
18412  & .1937700e+01,.2032200e+01,.2146100e+01,.2279200e+01,.2431700e+01,&
18413  & .1926100e+01,.2017900e+01,.2129100e+01,.2259500e+01,.2409300e+01,&
18414  & .1914900e+01,.2004000e+01,.2112500e+01,.2240200e+01,.2387300e+01,&
18415  & .1896300e+01,.1980700e+01,.2084500e+01,.2207600e+01,.2350100e+01,&
18416  & .1877800e+01,.1957400e+01,.2056300e+01,.2174500e+01,.2312000e+01,&
18417  & .1860400e+01,.1935200e+01,.2029200e+01,.2142500e+01,.2275000e+01,&
18418  & .1840900e+01,.1909900e+01,.1997800e+01,.2105000e+01,.2231500e+01,&
18419  & .1821700e+01,.1884500e+01,.1966000e+01,.2066700e+01,.2186700e+01,&
18420  & .1804600e+01,.1861300e+01,.1936400e+01,.2030600e+01,.2144100e+01,&
18421  & .1788600e+01,.1838900e+01,.1907200e+01,.1994500e+01,.2101100e+01,&
18422  & .1775500e+01,.1816500e+01,.1877500e+01,.1957100e+01,.2055900e+01,&
18423  & .1764400e+01,.1797000e+01,.1850800e+01,.1922800e+01,.2013900e+01,&
18424  & .1756300e+01,.1781600e+01,.1827100e+01,.1891600e+01,.1974900e+01,&
18425  & .1751700e+01,.1770200e+01,.1807400e+01,.1865100e+01,.1941300e+01,&
18426  & .1750400e+01,.1761100e+01,.1790800e+01,.1842000e+01,.1911300e+01,&
18427  & .1752300e+01,.1754700e+01,.1778300e+01,.1821200e+01,.1883900e+01,&
18428  & .1756600e+01,.1751000e+01,.1767500e+01,.1802800e+01,.1858900e+01,&
18429  & .1762300e+01,.1750700e+01,.1759800e+01,.1788100e+01,.1838100e+01,&
18430  & .1769100e+01,.1752400e+01,.1754400e+01,.1777700e+01,.1820100e+01,&
18431  & .1777600e+01,.1756200e+01,.1751200e+01,.1768200e+01,.1804000e+01,&
18432  & .1788100e+01,.1761600e+01,.1750500e+01,.1760600e+01,.1789700e+01,&
18433  & .1799600e+01,.1767800e+01,.1752000e+01,.1755200e+01,.1779400e+01,&
18434  & .1804500e+01,.1770700e+01,.1753000e+01,.1753600e+01,.1775600e+01/
18435 
18436  data absb( 1:120, 3) / &
18437  & .1094500e+02,.1105200e+02,.1122200e+02,.1145200e+02,.1174400e+02,&
18438  & .1095200e+02,.1106500e+02,.1124000e+02,.1147600e+02,.1177400e+02,&
18439  & .1096100e+02,.1108000e+02,.1126100e+02,.1150300e+02,.1180700e+02,&
18440  & .1097100e+02,.1109700e+02,.1128400e+02,.1153300e+02,.1184400e+02,&
18441  & .1098100e+02,.1111500e+02,.1130700e+02,.1156200e+02,.1187900e+02,&
18442  & .1099200e+02,.1113200e+02,.1133100e+02,.1159200e+02,.1191500e+02,&
18443  & .1100300e+02,.1114900e+02,.1135400e+02,.1162200e+02,.1195100e+02,&
18444  & .1101700e+02,.1117000e+02,.1138200e+02,.1165700e+02,.1199400e+02,&
18445  & .1103100e+02,.1119200e+02,.1141200e+02,.1169400e+02,.1203800e+02,&
18446  & .1105600e+02,.1122800e+02,.1146000e+02,.1175400e+02,.1210900e+02,&
18447  & .1108500e+02,.1126700e+02,.1151100e+02,.1181700e+02,.1218400e+02,&
18448  & .1111800e+02,.1131200e+02,.1156800e+02,.1188600e+02,.1226600e+02,&
18449  & .1115400e+02,.1136100e+02,.1163000e+02,.1196200e+02,.1235400e+02,&
18450  & .1119600e+02,.1141800e+02,.1170200e+02,.1204800e+02,.1245500e+02,&
18451  & .1124300e+02,.1148000e+02,.1177800e+02,.1213800e+02,.1256000e+02,&
18452  & .1129400e+02,.1154500e+02,.1185900e+02,.1223400e+02,.1267000e+02,&
18453  & .1135100e+02,.1161700e+02,.1194600e+02,.1233600e+02,.1278800e+02,&
18454  & .1141100e+02,.1169400e+02,.1203800e+02,.1244300e+02,.1291000e+02,&
18455  & .1147800e+02,.1177600e+02,.1213600e+02,.1255700e+02,.1304000e+02,&
18456  & .1154900e+02,.1186400e+02,.1223900e+02,.1267700e+02,.1317500e+02,&
18457  & .1162600e+02,.1195600e+02,.1234800e+02,.1280100e+02,.1331600e+02,&
18458  & .1169500e+02,.1204000e+02,.1244600e+02,.1291300e+02,.1344200e+02,&
18459  & .1173700e+02,.1208900e+02,.1250300e+02,.1297900e+02,.1351500e+02,&
18460  & .1174400e+02,.1209800e+02,.1251300e+02,.1298900e+02,.1352800e+02/
18461 
18462  data absb(121:235, 3) / &
18463  & .1170200e+02,.1204800e+02,.1245500e+02,.1292400e+02,.1345400e+02,&
18464  & .1165900e+02,.1199600e+02,.1239500e+02,.1285500e+02,.1337600e+02,&
18465  & .1161700e+02,.1194600e+02,.1233600e+02,.1278700e+02,.1330000e+02,&
18466  & .1154700e+02,.1186100e+02,.1223600e+02,.1267300e+02,.1317100e+02,&
18467  & .1147700e+02,.1177500e+02,.1213400e+02,.1255500e+02,.1303800e+02,&
18468  & .1141100e+02,.1169300e+02,.1203700e+02,.1244200e+02,.1290900e+02,&
18469  & .1133500e+02,.1159800e+02,.1192300e+02,.1230900e+02,.1275700e+02,&
18470  & .1126100e+02,.1150300e+02,.1180700e+02,.1217200e+02,.1259900e+02,&
18471  & .1119300e+02,.1141400e+02,.1169700e+02,.1204200e+02,.1244800e+02,&
18472  & .1112900e+02,.1132800e+02,.1158800e+02,.1191100e+02,.1229500e+02,&
18473  & .1106500e+02,.1124000e+02,.1147600e+02,.1177400e+02,.1213300e+02,&
18474  & .1101200e+02,.1116300e+02,.1137400e+02,.1164700e+02,.1198100e+02,&
18475  & .1096900e+02,.1109500e+02,.1128200e+02,.1153000e+02,.1183900e+02,&
18476  & .1093800e+02,.1104000e+02,.1120400e+02,.1142900e+02,.1171500e+02,&
18477  & .1091600e+02,.1099600e+02,.1113800e+02,.1134000e+02,.1160400e+02,&
18478  & .1090000e+02,.1096000e+02,.1107900e+02,.1125900e+02,.1150000e+02,&
18479  & .1089400e+02,.1093200e+02,.1102800e+02,.1118600e+02,.1140500e+02,&
18480  & .1089500e+02,.1091200e+02,.1098900e+02,.1112700e+02,.1132500e+02,&
18481  & .1090300e+02,.1090000e+02,.1095800e+02,.1107500e+02,.1125500e+02,&
18482  & .1092100e+02,.1089400e+02,.1093300e+02,.1103100e+02,.1119100e+02,&
18483  & .1094400e+02,.1089400e+02,.1091400e+02,.1099300e+02,.1113400e+02,&
18484  & .1097200e+02,.1090100e+02,.1090200e+02,.1096300e+02,.1108400e+02,&
18485  & .1098400e+02,.1090600e+02,.1089800e+02,.1095200e+02,.1106600e+02/
18486 
18487  data absb( 1:120, 4) / &
18488  & .5156300e+02,.5194600e+02,.5246400e+02,.5311600e+02,.5390200e+02,&
18489  & .5159300e+02,.5198700e+02,.5251700e+02,.5318200e+02,.5398000e+02,&
18490  & .5162600e+02,.5203500e+02,.5257900e+02,.5325600e+02,.5406900e+02,&
18491  & .5166400e+02,.5208700e+02,.5264400e+02,.5333700e+02,.5416300e+02,&
18492  & .5170100e+02,.5213800e+02,.5271000e+02,.5341600e+02,.5425700e+02,&
18493  & .5174000e+02,.5219100e+02,.5277600e+02,.5349600e+02,.5435100e+02,&
18494  & .5177900e+02,.5224400e+02,.5284300e+02,.5357600e+02,.5444400e+02,&
18495  & .5182700e+02,.5230700e+02,.5292200e+02,.5367100e+02,.5455500e+02,&
18496  & .5187700e+02,.5237300e+02,.5300400e+02,.5377000e+02,.5466900e+02,&
18497  & .5195900e+02,.5248100e+02,.5313600e+02,.5392700e+02,.5485100e+02,&
18498  & .5204900e+02,.5259600e+02,.5327800e+02,.5409400e+02,.5504400e+02,&
18499  & .5214800e+02,.5272300e+02,.5343100e+02,.5427400e+02,.5525200e+02,&
18500  & .5225900e+02,.5286200e+02,.5359900e+02,.5447100e+02,.5547700e+02,&
18501  & .5238700e+02,.5302200e+02,.5379000e+02,.5469300e+02,.5573000e+02,&
18502  & .5252500e+02,.5319100e+02,.5399200e+02,.5492600e+02,.5599500e+02,&
18503  & .5267200e+02,.5337100e+02,.5420300e+02,.5517000e+02,.5627100e+02,&
18504  & .5283300e+02,.5356500e+02,.5443000e+02,.5543000e+02,.5656500e+02,&
18505  & .5300300e+02,.5376800e+02,.5466800e+02,.5570200e+02,.5687000e+02,&
18506  & .5318600e+02,.5398600e+02,.5492000e+02,.5598800e+02,.5719000e+02,&
18507  & .5338100e+02,.5421600e+02,.5518400e+02,.5628700e+02,.5752500e+02,&
18508  & .5358700e+02,.5445700e+02,.5546000e+02,.5659900e+02,.5787100e+02,&
18509  & .5377300e+02,.5467300e+02,.5570700e+02,.5687600e+02,.5817900e+02,&
18510  & .5388300e+02,.5480000e+02,.5585200e+02,.5703900e+02,.5835900e+02,&
18511  & .5390100e+02,.5482200e+02,.5587600e+02,.5706600e+02,.5838900e+02/
18512 
18513  data absb(121:235, 4) / &
18514  & .5379100e+02,.5469400e+02,.5573100e+02,.5690300e+02,.5820800e+02,&
18515  & .5367600e+02,.5456000e+02,.5557800e+02,.5673100e+02,.5801800e+02,&
18516  & .5356300e+02,.5442900e+02,.5542900e+02,.5656300e+02,.5783200e+02,&
18517  & .5337500e+02,.5420800e+02,.5517500e+02,.5627700e+02,.5751300e+02,&
18518  & .5318400e+02,.5398300e+02,.5491600e+02,.5598400e+02,.5718600e+02,&
18519  & .5300100e+02,.5376600e+02,.5466500e+02,.5569900e+02,.5686600e+02,&
18520  & .5279000e+02,.5351300e+02,.5437000e+02,.5536200e+02,.5648800e+02,&
18521  & .5257700e+02,.5325400e+02,.5406600e+02,.5501200e+02,.5609300e+02,&
18522  & .5237900e+02,.5301100e+02,.5377700e+02,.5467800e+02,.5571300e+02,&
18523  & .5218400e+02,.5276800e+02,.5348600e+02,.5433900e+02,.5532600e+02,&
18524  & .5198700e+02,.5251700e+02,.5318200e+02,.5398000e+02,.5491300e+02,&
18525  & .5181200e+02,.5228800e+02,.5289800e+02,.5364300e+02,.5452200e+02,&
18526  & .5165900e+02,.5208100e+02,.5263700e+02,.5332700e+02,.5415200e+02,&
18527  & .5153500e+02,.5190600e+02,.5241200e+02,.5305200e+02,.5382600e+02,&
18528  & .5143300e+02,.5175500e+02,.5221100e+02,.5280200e+02,.5352700e+02,&
18529  & .5134900e+02,.5162200e+02,.5202900e+02,.5257100e+02,.5324700e+02,&
18530  & .5128500e+02,.5150700e+02,.5186500e+02,.5235800e+02,.5298500e+02,&
18531  & .5124000e+02,.5141700e+02,.5173000e+02,.5217800e+02,.5276000e+02,&
18532  & .5121100e+02,.5134600e+02,.5161500e+02,.5202000e+02,.5255900e+02,&
18533  & .5119400e+02,.5128800e+02,.5151400e+02,.5187500e+02,.5237100e+02,&
18534  & .5119000e+02,.5124500e+02,.5142600e+02,.5174600e+02,.5219800e+02,&
18535  & .5120000e+02,.5121600e+02,.5135700e+02,.5163500e+02,.5204600e+02,&
18536  & .5120700e+02,.5120700e+02,.5133300e+02,.5159400e+02,.5198900e+02/
18537 
18538  data absb( 1:120, 5) / &
18539  & .1705100e+03,.1716800e+03,.1729700e+03,.1743700e+03,.1759000e+03,&
18540  & .1706100e+03,.1717900e+03,.1730900e+03,.1745100e+03,.1760400e+03,&
18541  & .1707300e+03,.1719200e+03,.1732300e+03,.1746600e+03,.1762100e+03,&
18542  & .1708500e+03,.1720500e+03,.1733800e+03,.1748200e+03,.1763800e+03,&
18543  & .1709700e+03,.1721800e+03,.1735200e+03,.1749700e+03,.1765500e+03,&
18544  & .1710900e+03,.1723200e+03,.1736600e+03,.1751300e+03,.1767100e+03,&
18545  & .1712100e+03,.1724500e+03,.1738100e+03,.1752800e+03,.1768800e+03,&
18546  & .1713400e+03,.1726000e+03,.1739700e+03,.1754700e+03,.1770800e+03,&
18547  & .1714900e+03,.1727600e+03,.1741500e+03,.1756500e+03,.1772800e+03,&
18548  & .1717200e+03,.1730100e+03,.1744200e+03,.1759400e+03,.1775900e+03,&
18549  & .1719500e+03,.1732700e+03,.1747000e+03,.1762500e+03,.1779200e+03,&
18550  & .1722100e+03,.1735500e+03,.1750000e+03,.1765800e+03,.1782700e+03,&
18551  & .1724800e+03,.1738500e+03,.1753300e+03,.1769300e+03,.1786500e+03,&
18552  & .1727900e+03,.1741800e+03,.1756900e+03,.1773200e+03,.1790600e+03,&
18553  & .1731100e+03,.1745300e+03,.1760600e+03,.1777200e+03,.1794900e+03,&
18554  & .1734400e+03,.1748800e+03,.1764500e+03,.1781300e+03,.1799400e+03,&
18555  & .1737900e+03,.1752600e+03,.1768600e+03,.1785700e+03,.1804000e+03,&
18556  & .1741400e+03,.1756500e+03,.1772700e+03,.1790200e+03,.1808800e+03,&
18557  & .1745200e+03,.1760500e+03,.1777100e+03,.1794800e+03,.1813700e+03,&
18558  & .1749100e+03,.1764700e+03,.1781600e+03,.1799600e+03,.1818800e+03,&
18559  & .1753100e+03,.1769000e+03,.1786200e+03,.1804500e+03,.1824100e+03,&
18560  & .1756600e+03,.1772800e+03,.1790300e+03,.1808900e+03,.1828700e+03,&
18561  & .1758600e+03,.1775000e+03,.1792600e+03,.1811400e+03,.1831300e+03,&
18562  & .1759000e+03,.1775400e+03,.1793000e+03,.1811800e+03,.1831800e+03/
18563 
18564  data absb(121:235, 5) / &
18565  & .1756900e+03,.1773200e+03,.1790600e+03,.1809300e+03,.1829100e+03,&
18566  & .1754700e+03,.1770800e+03,.1788100e+03,.1806600e+03,.1826300e+03,&
18567  & .1752600e+03,.1768500e+03,.1785700e+03,.1804000e+03,.1823500e+03,&
18568  & .1748900e+03,.1764600e+03,.1781400e+03,.1799500e+03,.1818700e+03,&
18569  & .1745100e+03,.1760500e+03,.1777000e+03,.1794800e+03,.1813700e+03,&
18570  & .1741400e+03,.1756500e+03,.1772700e+03,.1790100e+03,.1808700e+03,&
18571  & .1736900e+03,.1751600e+03,.1767500e+03,.1784600e+03,.1802800e+03,&
18572  & .1732300e+03,.1746500e+03,.1762000e+03,.1778700e+03,.1796500e+03,&
18573  & .1727700e+03,.1741600e+03,.1756700e+03,.1772900e+03,.1790400e+03,&
18574  & .1723000e+03,.1736500e+03,.1751100e+03,.1766900e+03,.1784000e+03,&
18575  & .1717900e+03,.1730900e+03,.1745100e+03,.1760400e+03,.1777000e+03,&
18576  & .1713000e+03,.1725500e+03,.1739200e+03,.1754100e+03,.1770200e+03,&
18577  & .1708300e+03,.1720400e+03,.1733600e+03,.1748000e+03,.1763600e+03,&
18578  & .1704100e+03,.1715700e+03,.1728500e+03,.1742400e+03,.1757600e+03,&
18579  & .1700200e+03,.1711300e+03,.1723700e+03,.1737200e+03,.1751900e+03,&
18580  & .1696400e+03,.1707100e+03,.1719000e+03,.1732100e+03,.1746400e+03,&
18581  & .1692700e+03,.1703100e+03,.1714500e+03,.1727200e+03,.1741100e+03,&
18582  & .1689600e+03,.1699500e+03,.1710600e+03,.1722800e+03,.1736300e+03,&
18583  & .1686600e+03,.1696200e+03,.1706900e+03,.1718800e+03,.1731800e+03,&
18584  & .1683900e+03,.1693000e+03,.1703300e+03,.1714800e+03,.1727500e+03,&
18585  & .1681200e+03,.1689900e+03,.1699900e+03,.1711000e+03,.1723300e+03,&
18586  & .1678800e+03,.1687100e+03,.1696800e+03,.1707500e+03,.1719500e+03,&
18587  & .1677900e+03,.1686100e+03,.1695500e+03,.1706200e+03,.1718000e+03/
18588 
18589  data absb( 1:120, 6) / &
18590  & .3812200e+03,.3840600e+03,.3866800e+03,.3890800e+03,.3912500e+03,&
18591  & .3814800e+03,.3843100e+03,.3869100e+03,.3892900e+03,.3914400e+03,&
18592  & .3817800e+03,.3845800e+03,.3871600e+03,.3895100e+03,.3916400e+03,&
18593  & .3820900e+03,.3848700e+03,.3874200e+03,.3897500e+03,.3918600e+03,&
18594  & .3823900e+03,.3851400e+03,.3876700e+03,.3899800e+03,.3920600e+03,&
18595  & .3826800e+03,.3854100e+03,.3879200e+03,.3902000e+03,.3922600e+03,&
18596  & .3829700e+03,.3856800e+03,.3881600e+03,.3904200e+03,.3924600e+03,&
18597  & .3833000e+03,.3859800e+03,.3884400e+03,.3906700e+03,.3926800e+03,&
18598  & .3836300e+03,.3862900e+03,.3887200e+03,.3909200e+03,.3929100e+03,&
18599  & .3841400e+03,.3867500e+03,.3891400e+03,.3913100e+03,.3932500e+03,&
18600  & .3846600e+03,.3872300e+03,.3895800e+03,.3917000e+03,.3936000e+03,&
18601  & .3852000e+03,.3877200e+03,.3900200e+03,.3921000e+03,.3939500e+03,&
18602  & .3857500e+03,.3882300e+03,.3904800e+03,.3925100e+03,.3943200e+03,&
18603  & .3863500e+03,.3887700e+03,.3909800e+03,.3929500e+03,.3947000e+03,&
18604  & .3869400e+03,.3893200e+03,.3914600e+03,.3933900e+03,.3950900e+03,&
18605  & .3875300e+03,.3898500e+03,.3919400e+03,.3938100e+03,.3954600e+03,&
18606  & .3881300e+03,.3903900e+03,.3924300e+03,.3942400e+03,.3958300e+03,&
18607  & .3887100e+03,.3909200e+03,.3929000e+03,.3946600e+03,.3962000e+03,&
18608  & .3893000e+03,.3914500e+03,.3933800e+03,.3950800e+03,.3965500e+03,&
18609  & .3898800e+03,.3919700e+03,.3938400e+03,.3954800e+03,.3969000e+03,&
18610  & .3904500e+03,.3924800e+03,.3942900e+03,.3958700e+03,.3972300e+03,&
18611  & .3909300e+03,.3929100e+03,.3946700e+03,.3962000e+03,.3975100e+03,&
18612  & .3912000e+03,.3931600e+03,.3948800e+03,.3963900e+03,.3976600e+03,&
18613  & .3912500e+03,.3932000e+03,.3949200e+03,.3964200e+03,.3976900e+03/
18614 
18615  data absb(121:235, 6) / &
18616  & .3909800e+03,.3929500e+03,.3947100e+03,.3962300e+03,.3975400e+03,&
18617  & .3906800e+03,.3926900e+03,.3944700e+03,.3960300e+03,.3973700e+03,&
18618  & .3903900e+03,.3924300e+03,.3942400e+03,.3958300e+03,.3972000e+03,&
18619  & .3898600e+03,.3919600e+03,.3938200e+03,.3954700e+03,.3968900e+03,&
18620  & .3892900e+03,.3914400e+03,.3933700e+03,.3950700e+03,.3965500e+03,&
18621  & .3887100e+03,.3909200e+03,.3929000e+03,.3946600e+03,.3961900e+03,&
18622  & .3879700e+03,.3902500e+03,.3923000e+03,.3941300e+03,.3957400e+03,&
18623  & .3871500e+03,.3895100e+03,.3916400e+03,.3935400e+03,.3952200e+03,&
18624  & .3863100e+03,.3887400e+03,.3909400e+03,.3929200e+03,.3946800e+03,&
18625  & .3853800e+03,.3878900e+03,.3901800e+03,.3922400e+03,.3940700e+03,&
18626  & .3843100e+03,.3869100e+03,.3892900e+03,.3914400e+03,.3933600e+03,&
18627  & .3832000e+03,.3858900e+03,.3883600e+03,.3906000e+03,.3926200e+03,&
18628  & .3820600e+03,.3848400e+03,.3873900e+03,.3897200e+03,.3918300e+03,&
18629  & .3809500e+03,.3838200e+03,.3864600e+03,.3888700e+03,.3910600e+03,&
18630  & .3798500e+03,.3827900e+03,.3855200e+03,.3880200e+03,.3902900e+03,&
18631  & .3787300e+03,.3817500e+03,.3845500e+03,.3871300e+03,.3894900e+03,&
18632  & .3776200e+03,.3806700e+03,.3835500e+03,.3862100e+03,.3886500e+03,&
18633  & .3766100e+03,.3796500e+03,.3826100e+03,.3853500e+03,.3878600e+03,&
18634  & .3755900e+03,.3786700e+03,.3816900e+03,.3845000e+03,.3870800e+03,&
18635  & .3745900e+03,.3776800e+03,.3807400e+03,.3836200e+03,.3862800e+03,&
18636  & .3735300e+03,.3767300e+03,.3797700e+03,.3827200e+03,.3854500e+03,&
18637  & .3725100e+03,.3757700e+03,.3788500e+03,.3818500e+03,.3846500e+03,&
18638  & .3721200e+03,.3753900e+03,.3784700e+03,.3815000e+03,.3843200e+03/
18639 
18640  data absb( 1:120, 7) / &
18641  & .7662137e+03,.7673567e+03,.7684935e+03,.7696200e+03,.7707387e+03,&
18642  & .7663163e+03,.7674596e+03,.7685948e+03,.7697242e+03,.7708374e+03,&
18643  & .7664298e+03,.7675754e+03,.7687154e+03,.7698361e+03,.7709498e+03,&
18644  & .7665525e+03,.7676972e+03,.7688307e+03,.7699581e+03,.7710677e+03,&
18645  & .7666756e+03,.7678182e+03,.7689507e+03,.7700728e+03,.7711794e+03,&
18646  & .7667902e+03,.7679332e+03,.7690672e+03,.7701907e+03,.7712951e+03,&
18647  & .7669059e+03,.7680487e+03,.7691780e+03,.7703003e+03,.7714030e+03,&
18648  & .7670396e+03,.7681833e+03,.7693099e+03,.7704320e+03,.7715291e+03,&
18649  & .7671791e+03,.7683177e+03,.7694439e+03,.7705613e+03,.7716607e+03,&
18650  & .7673923e+03,.7685297e+03,.7696521e+03,.7707717e+03,.7718639e+03,&
18651  & .7676078e+03,.7687458e+03,.7698715e+03,.7709807e+03,.7720702e+03,&
18652  & .7678360e+03,.7689728e+03,.7700933e+03,.7712034e+03,.7722895e+03,&
18653  & .7680791e+03,.7692104e+03,.7703330e+03,.7714362e+03,.7725191e+03,&
18654  & .7683474e+03,.7694736e+03,.7705880e+03,.7716873e+03,.7727677e+03,&
18655  & .7686113e+03,.7697379e+03,.7708539e+03,.7719439e+03,.7730324e+03,&
18656  & .7688808e+03,.7700069e+03,.7711126e+03,.7722067e+03,.7732788e+03,&
18657  & .7691627e+03,.7702826e+03,.7713890e+03,.7724701e+03,.7735411e+03,&
18658  & .7694444e+03,.7705613e+03,.7716614e+03,.7727369e+03,.7738092e+03,&
18659  & .7697324e+03,.7708439e+03,.7719374e+03,.7730147e+03,.7740850e+03,&
18660  & .7700239e+03,.7711302e+03,.7722186e+03,.7732904e+03,.7743608e+03,&
18661  & .7703148e+03,.7714174e+03,.7725031e+03,.7735736e+03,.7746415e+03,&
18662  & .7705710e+03,.7716646e+03,.7727437e+03,.7738133e+03,.7748784e+03,&
18663  & .7707135e+03,.7718066e+03,.7728840e+03,.7739535e+03,.7750133e+03,&
18664  & .7707385e+03,.7718282e+03,.7729073e+03,.7739754e+03,.7750350e+03/
18665 
18666  data absb(121:235, 7) / &
18667  & .7705883e+03,.7716906e+03,.7727677e+03,.7738341e+03,.7749005e+03,&
18668  & .7704377e+03,.7715367e+03,.7726181e+03,.7736893e+03,.7747501e+03,&
18669  & .7702833e+03,.7713847e+03,.7724701e+03,.7735404e+03,.7746103e+03,&
18670  & .7700132e+03,.7711226e+03,.7722110e+03,.7732832e+03,.7743549e+03,&
18671  & .7697309e+03,.7708439e+03,.7719342e+03,.7730115e+03,.7740748e+03,&
18672  & .7694415e+03,.7705563e+03,.7716549e+03,.7727369e+03,.7738016e+03,&
18673  & .7690928e+03,.7702101e+03,.7713174e+03,.7724017e+03,.7734724e+03,&
18674  & .7687110e+03,.7698351e+03,.7709476e+03,.7720367e+03,.7731196e+03,&
18675  & .7683270e+03,.7694544e+03,.7705715e+03,.7716689e+03,.7727485e+03,&
18676  & .7679197e+03,.7690513e+03,.7701707e+03,.7712793e+03,.7723644e+03,&
18677  & .7674632e+03,.7685951e+03,.7697242e+03,.7708374e+03,.7719299e+03,&
18678  & .7669980e+03,.7681419e+03,.7692751e+03,.7703917e+03,.7714912e+03,&
18679  & .7665390e+03,.7676847e+03,.7688180e+03,.7699424e+03,.7710534e+03,&
18680  & .7661024e+03,.7672540e+03,.7683924e+03,.7695234e+03,.7706427e+03,&
18681  & .7656917e+03,.7668356e+03,.7679808e+03,.7691095e+03,.7702308e+03,&
18682  & .7652690e+03,.7664166e+03,.7675626e+03,.7687003e+03,.7698229e+03,&
18683  & .7648234e+03,.7659942e+03,.7671451e+03,.7682868e+03,.7694142e+03,&
18684  & .7643942e+03,.7656164e+03,.7667615e+03,.7679051e+03,.7690364e+03,&
18685  & .7640026e+03,.7652413e+03,.7663923e+03,.7675375e+03,.7686735e+03,&
18686  & .7636170e+03,.7648611e+03,.7660227e+03,.7671711e+03,.7683104e+03,&
18687  & .7632407e+03,.7644461e+03,.7656618e+03,.7668033e+03,.7679489e+03,&
18688  & .7628680e+03,.7640652e+03,.7653090e+03,.7664582e+03,.7676042e+03,&
18689  & .7627137e+03,.7639260e+03,.7651678e+03,.7663198e+03,.7674646e+03/
18690 
18691  data absb( 1:120, 8) / &
18692  & .9936589e+03,.9978124e+03,.1000713e+04,.1002438e+04,.1003006e+04,&
18693  & .9941671e+03,.9981368e+03,.1000893e+04,.1002525e+04,.1002981e+04,&
18694  & .9946170e+03,.9984729e+03,.1001113e+04,.1002623e+04,.1003004e+04,&
18695  & .9950818e+03,.9987774e+03,.1001345e+04,.1002694e+04,.1002984e+04,&
18696  & .9955234e+03,.9990646e+03,.1001517e+04,.1002779e+04,.1002969e+04,&
18697  & .9959436e+03,.9994208e+03,.1001709e+04,.1002856e+04,.1002912e+04,&
18698  & .9963433e+03,.9996951e+03,.1001890e+04,.1002878e+04,.1002898e+04,&
18699  & .9968098e+03,.1000016e+04,.1002055e+04,.1002942e+04,.1002824e+04,&
18700  & .9972440e+03,.1000327e+04,.1002227e+04,.1002982e+04,.1002721e+04,&
18701  & .9979060e+03,.1000761e+04,.1002461e+04,.1002998e+04,.1002590e+04,&
18702  & .9985543e+03,.1001122e+04,.1002633e+04,.1002989e+04,.1002393e+04,&
18703  & .9991623e+03,.1001557e+04,.1002797e+04,.1002959e+04,.1002134e+04,&
18704  & .9997568e+03,.1001925e+04,.1002931e+04,.1002871e+04,.1001821e+04,&
18705  & .1000377e+04,.1002254e+04,.1002986e+04,.1002709e+04,.1001396e+04,&
18706  & .1000957e+04,.1002526e+04,.1002996e+04,.1002513e+04,.1000729e+04,&
18707  & .1001400e+04,.1002743e+04,.1002971e+04,.1002233e+04,.1000328e+04,&
18708  & .1001865e+04,.1002878e+04,.1002898e+04,.1001880e+04,.9997574e+03,&
18709  & .1002181e+04,.1002979e+04,.1002724e+04,.1001454e+04,.9990322e+03,&
18710  & .1002525e+04,.1003008e+04,.1002510e+04,.1000958e+04,.9981303e+03,&
18711  & .1002747e+04,.1002980e+04,.1002223e+04,.1000349e+04,.9972023e+03,&
18712  & .1002906e+04,.1002878e+04,.1001840e+04,.9996791e+03,.9962163e+03,&
18713  & .1002974e+04,.1002724e+04,.1001436e+04,.9990028e+03,.9953155e+03,&
18714  & .1003027e+04,.1002635e+04,.1001189e+04,.9985939e+03,.9947732e+03,&
18715  & .1003027e+04,.1002599e+04,.1001143e+04,.9985204e+03,.9946814e+03/
18716 
18717  data absb(121:235, 8) / &
18718  & .1002986e+04,.1002724e+04,.1001390e+04,.9989482e+03,.9952234e+03,&
18719  & .1002962e+04,.1002812e+04,.1001649e+04,.9993614e+03,.9957896e+03,&
18720  & .1002875e+04,.1002898e+04,.1001877e+04,.9997601e+03,.9963253e+03,&
18721  & .1002746e+04,.1002968e+04,.1002233e+04,.1000370e+04,.9972315e+03,&
18722  & .1002537e+04,.1002981e+04,.1002514e+04,.1000975e+04,.9981846e+03,&
18723  & .1002227e+04,.1002980e+04,.1002742e+04,.1001469e+04,.9990389e+03,&
18724  & .1001759e+04,.1002861e+04,.1002915e+04,.1001995e+04,.9999268e+03,&
18725  & .1001110e+04,.1002626e+04,.1002989e+04,.1002426e+04,.1000671e+04,&
18726  & .1000338e+04,.1002249e+04,.1002983e+04,.1002727e+04,.1001434e+04,&
18727  & .9993803e+03,.1001695e+04,.1002852e+04,.1002935e+04,.1002009e+04,&
18728  & .9981347e+03,.1000918e+04,.1002522e+04,.1002979e+04,.1002520e+04,&
18729  & .9966771e+03,.9999354e+03,.1002008e+04,.1002956e+04,.1002842e+04,&
18730  & .9950417e+03,.9987633e+03,.1001326e+04,.1002702e+04,.1002988e+04,&
18731  & .9933422e+03,.9974970e+03,.1000473e+04,.1002331e+04,.1002942e+04,&
18732  & .9914154e+03,.9961148e+03,.9995247e+03,.1001775e+04,.1002873e+04,&
18733  & .9892683e+03,.9945791e+03,.9984181e+03,.1001097e+04,.1002599e+04,&
18734  & .9870330e+03,.9928966e+03,.9971671e+03,.1000265e+04,.1002220e+04,&
18735  & .9848582e+03,.9910375e+03,.9958675e+03,.9993760e+03,.1001692e+04,&
18736  & .9825219e+03,.9891516e+03,.9944982e+03,.9983573e+03,.1001066e+04,&
18737  & .9797028e+03,.9871901e+03,.9930195e+03,.9972541e+03,.1000326e+04,&
18738  & .9768957e+03,.9851199e+03,.9912663e+03,.9960243e+03,.9994761e+03,&
18739  & .9741514e+03,.9830479e+03,.9894876e+03,.9947451e+03,.9985504e+03,&
18740  & .9730254e+03,.9819457e+03,.9887533e+03,.9941968e+03,.9981408e+03/
18741 
18742 !........................................!
18743  end module module_radsw_kgb27 !
18744 !========================================!
18745 
18746 
18749 !========================================!
18751 !........................................!
18752 !
18753 ! ********* the original program descriptions ********* !
18754 ! !
18755 ! originally by j.delamere, atmospheric & environmental research. !
18756 ! revision: 2.4 !
18757 ! band 28: 38000-50000 cm-1 (low - o3,o2; high - o3,o2) !
18758 ! reformatted for f90 by jjmorcrette, ecmwf !
18759 ! !
18760 ! this table has been re-generated for reduced number of g-point !
18761 ! by y.t.hou, ncep !
18762 ! !
18763 ! ********* ********* end description ********* ********* !
18764 !
18765  use physparam, only : kind_phys
18766  use module_radsw_parameters, only : ng28
18767 
18768 !
18769  implicit none
18770 !
18771  private
18772 !
18774  integer, public :: msa28
18776  integer, public :: msb28
18777  parameter(msa28=585, msb28=1175)
18778 
18779 
18795  real (kind=kind_phys), public :: absa(msa28,ng28)
18796 
18808  real (kind=kind_phys), public :: absb(msb28,ng28)
18809 
18811  real (kind=kind_phys), parameter, public :: rayl = 2.02e-05
18812 
18813  data absa( 1:180, 1) / &
18814  & .4644700e+02,.1800100e+03,.3133800e+03,.4465200e+03,.5463600e+03,&
18815  & .5417300e+03,.4570700e+03,.2736300e+03,.3500000e+02,.4527000e+02,&
18816  & .1788600e+03,.3122500e+03,.4454100e+03,.5417700e+03,.5343600e+03,&
18817  & .4493200e+03,.2674800e+03,.3500000e+02,.4421400e+02,.1777600e+03,&
18818  & .3111500e+03,.4442700e+03,.5373300e+03,.5275600e+03,.4422400e+03,&
18819  & .2619500e+03,.3500000e+02,.4325900e+02,.1767300e+03,.3100500e+03,&
18820  & .4430500e+03,.5329800e+03,.5212900e+03,.4357400e+03,.2569600e+03,&
18821  & .3500000e+02,.4239300e+02,.1757500e+03,.3089600e+03,.4417300e+03,&
18822  & .5288300e+03,.5154800e+03,.4297600e+03,.2524200e+03,.3500000e+02,&
18823  & .4290800e+02,.1769500e+03,.3107700e+03,.4443400e+03,.5316100e+03,&
18824  & .5189500e+03,.4333200e+03,.2551200e+03,.3500000e+02,.4189900e+02,&
18825  & .1759600e+03,.3098000e+03,.4433600e+03,.5268600e+03,.5121300e+03,&
18826  & .4263200e+03,.2498400e+03,.3500000e+02,.4099500e+02,.1750200e+03,&
18827  & .3088400e+03,.4423200e+03,.5223000e+03,.5059200e+03,.4199500e+03,&
18828  & .2451100e+03,.3500000e+02,.4018100e+02,.1741200e+03,.3078800e+03,&
18829  & .4411900e+03,.5178500e+03,.5002500e+03,.4141400e+03,.2408500e+03,&
18830  & .3500000e+02,.3944300e+02,.1732600e+03,.3069100e+03,.4399200e+03,&
18831  & .5136400e+03,.4950300e+03,.4088200e+03,.2369900e+03,.3500000e+02,&
18832  & .4012600e+02,.1745700e+03,.3087600e+03,.4424800e+03,.5175500e+03,&
18833  & .4998600e+03,.4137500e+03,.2405600e+03,.3500000e+02,.3924000e+02,&
18834  & .1737000e+03,.3079200e+03,.4414600e+03,.5125400e+03,.4935800e+03,&
18835  & .4073500e+03,.2359300e+03,.3500000e+02,.3845000e+02,.1728800e+03,&
18836  & .3070800e+03,.4403100e+03,.5079300e+03,.4878600e+03,.4015500e+03,&
18837  & .2317900e+03,.3500000e+02,.3774000e+02,.1721000e+03,.3062400e+03,&
18838  & .4390800e+03,.5036800e+03,.4826400e+03,.3962900e+03,.2280800e+03,&
18839  & .3500000e+02,.3709900e+02,.1713400e+03,.3053900e+03,.4378100e+03,&
18840  & .4997500e+03,.4778700e+03,.3914900e+03,.2247300e+03,.3500000e+02,&
18841  & .3781800e+02,.1725800e+03,.3070800e+03,.4396700e+03,.5041200e+03,&
18842  & .4832100e+03,.3968700e+03,.2284800e+03,.3500000e+02,.3703400e+02,&
18843  & .1718300e+03,.3063600e+03,.4383300e+03,.4993500e+03,.4773800e+03,&
18844  & .3910000e+03,.2243900e+03,.3500000e+02,.3633800e+02,.1711100e+03,&
18845  & .3056400e+03,.4370000e+03,.4949600e+03,.4721200e+03,.3857200e+03,&
18846  & .2207500e+03,.3500000e+02,.3571600e+02,.1704300e+03,.3049100e+03,&
18847  & .4356900e+03,.4909400e+03,.4673200e+03,.3809400e+03,.2174900e+03,&
18848  & .3500000e+02,.3515600e+02,.1697700e+03,.3041600e+03,.4343700e+03,&
18849  & .4872600e+03,.4629400e+03,.3766000e+03,.2145600e+03,.3500000e+02/
18850 
18851  data absa(181:315, 1) / &
18852  & .3585700e+02,.1708900e+03,.3056300e+03,.4361900e+03,.4918600e+03,&
18853  & .4684100e+03,.3820200e+03,.2182200e+03,.3500000e+02,.3516300e+02,&
18854  & .1702300e+03,.3050200e+03,.4347800e+03,.4873100e+03,.4630000e+03,&
18855  & .3766600e+03,.2146000e+03,.3500000e+02,.3455000e+02,.1696100e+03,&
18856  & .3044100e+03,.4333200e+03,.4832100e+03,.4581300e+03,.3718600e+03,&
18857  & .2113900e+03,.3500000e+02,.3400400e+02,.1690200e+03,.3037800e+03,&
18858  & .4319400e+03,.4795000e+03,.4537500e+03,.3675500e+03,.2085300e+03,&
18859  & .3500000e+02,.3351400e+02,.1684400e+03,.3031200e+03,.4305800e+03,&
18860  & .4761100e+03,.4497700e+03,.3636500e+03,.2059700e+03,.3500000e+02,&
18861  & .3421200e+02,.1694600e+03,.3044000e+03,.4324700e+03,.4809200e+03,&
18862  & .4554200e+03,.3692000e+03,.2096200e+03,.3500000e+02,.3359500e+02,&
18863  & .1688900e+03,.3038900e+03,.4309300e+03,.4766700e+03,.4504300e+03,&
18864  & .3643000e+03,.2063900e+03,.3500000e+02,.3305200e+02,.1683500e+03,&
18865  & .3033700e+03,.4294600e+03,.4728700e+03,.4459900e+03,.3599300e+03,&
18866  & .2035500e+03,.3500000e+02,.3257100e+02,.1678400e+03,.3028300e+03,&
18867  & .4280700e+03,.4694700e+03,.4420100e+03,.3560200e+03,.2010300e+03,&
18868  & .3500000e+02,.3214100e+02,.1673300e+03,.3022700e+03,.4267400e+03,&
18869  & .4664000e+03,.4384200e+03,.3525000e+03,.1987900e+03,.3500000e+02,&
18870  & .3281200e+02,.1682300e+03,.3033400e+03,.4285900e+03,.4711800e+03,&
18871  & .4440100e+03,.3579900e+03,.2023000e+03,.3500000e+02,.3226300e+02,&
18872  & .1677400e+03,.3029100e+03,.4270800e+03,.4672700e+03,.4394400e+03,&
18873  & .3535000e+03,.1994200e+03,.3500000e+02,.3178200e+02,.1672800e+03,&
18874  & .3024800e+03,.4255800e+03,.4638100e+03,.4353900e+03,.3495400e+03,&
18875  & .1969100e+03,.3500000e+02,.3135700e+02,.1668300e+03,.3020300e+03,&
18876  & .4241300e+03,.4606900e+03,.4317700e+03,.3459900e+03,.1946800e+03,&
18877  & .3500000e+02,.3098000e+02,.1664000e+03,.3015400e+03,.4227600e+03,&
18878  & .4578700e+03,.4285200e+03,.3428000e+03,.1927100e+03,.3500000e+02/
18879 
18880  data absa(316:450, 1) / &
18881  & .3161400e+02,.1671600e+03,.3023900e+03,.4247300e+03,.4625900e+03,&
18882  & .4339700e+03,.3481400e+03,.1960300e+03,.3500000e+02,.3112500e+02,&
18883  & .1667400e+03,.3020600e+03,.4231100e+03,.4589600e+03,.4297800e+03,&
18884  & .3440300e+03,.1934700e+03,.3500000e+02,.3069900e+02,.1663500e+03,&
18885  & .3017000e+03,.4216300e+03,.4557300e+03,.4260800e+03,.3403900e+03,&
18886  & .1912400e+03,.3500000e+02,.3032500e+02,.1659700e+03,.3013300e+03,&
18887  & .4202700e+03,.4528600e+03,.4228100e+03,.3371600e+03,.1892800e+03,&
18888  & .3500000e+02,.2999300e+02,.1655900e+03,.3009200e+03,.4190100e+03,&
18889  & .4503000e+03,.4198800e+03,.3342700e+03,.1875500e+03,.3500000e+02,&
18890  & .3059400e+02,.1662400e+03,.3015600e+03,.4208700e+03,.4549300e+03,&
18891  & .4251700e+03,.3394900e+03,.1906900e+03,.3500000e+02,.3015800e+02,&
18892  & .1658900e+03,.3013100e+03,.4193700e+03,.4515700e+03,.4213400e+03,&
18893  & .3357000e+03,.1884100e+03,.3500000e+02,.2978000e+02,.1655600e+03,&
18894  & .3010300e+03,.4180000e+03,.4486400e+03,.4179900e+03,.3323900e+03,&
18895  & .1864300e+03,.3500000e+02,.2945000e+02,.1652300e+03,.3007200e+03,&
18896  & .4167400e+03,.4460600e+03,.4150400e+03,.3294600e+03,.1847100e+03,&
18897  & .3500000e+02,.2915900e+02,.1649100e+03,.3003900e+03,.4155700e+03,&
18898  & .4437700e+03,.4124200e+03,.3268600e+03,.1831800e+03,.3500000e+02,&
18899  & .2969100e+02,.1654100e+03,.3008100e+03,.4172200e+03,.4479500e+03,&
18900  & .4172000e+03,.3316000e+03,.1859700e+03,.3500000e+02,.2930700e+02,&
18901  & .1651200e+03,.3006300e+03,.4158100e+03,.4449300e+03,.4137500e+03,&
18902  & .3281800e+03,.1839600e+03,.3500000e+02,.2897500e+02,.1648500e+03,&
18903  & .3004200e+03,.4145400e+03,.4423100e+03,.4107600e+03,.3252000e+03,&
18904  & .1822200e+03,.3500000e+02,.2868700e+02,.1645800e+03,.3001800e+03,&
18905  & .4134000e+03,.4400200e+03,.4081400e+03,.3225900e+03,.1807100e+03,&
18906  & .3500000e+02,.2843400e+02,.1643100e+03,.2998900e+03,.4123500e+03,&
18907  & .4379900e+03,.4058300e+03,.3202800e+03,.1793900e+03,.3500000e+02/
18908 
18909  data absa(451:585, 1) / &
18910  & .2876000e+02,.1645900e+03,.3001000e+03,.4132100e+03,.4406000e+03,&
18911  & .4088000e+03,.3232500e+03,.1810900e+03,.3500000e+02,.2844400e+02,&
18912  & .1643600e+03,.2999700e+03,.4120000e+03,.4380700e+03,.4059200e+03,&
18913  & .3203800e+03,.1794400e+03,.3500000e+02,.2817300e+02,.1641400e+03,&
18914  & .2998100e+03,.4109200e+03,.4358700e+03,.4034200e+03,.3178800e+03,&
18915  & .1780200e+03,.3500000e+02,.2793700e+02,.1639200e+03,.2996000e+03,&
18916  & .4099400e+03,.4339500e+03,.4012400e+03,.3157000e+03,.1767900e+03,&
18917  & .3500000e+02,.2773000e+02,.1636900e+03,.2993600e+03,.4090500e+03,&
18918  & .4322400e+03,.3993100e+03,.3137700e+03,.1757100e+03,.3500000e+02,&
18919  & .2799500e+02,.1639100e+03,.2995100e+03,.4097000e+03,.4344300e+03,&
18920  & .4017800e+03,.3162400e+03,.1770900e+03,.3500000e+02,.2773700e+02,&
18921  & .1637400e+03,.2994300e+03,.4086900e+03,.4323000e+03,.3993800e+03,&
18922  & .3138400e+03,.1757400e+03,.3500000e+02,.2751500e+02,.1635600e+03,&
18923  & .2993000e+03,.4077900e+03,.4304600e+03,.3973000e+03,.3117600e+03,&
18924  & .1745800e+03,.3500000e+02,.2732200e+02,.1633800e+03,.2991300e+03,&
18925  & .4069700e+03,.4288300e+03,.3954800e+03,.3099400e+03,.1735700e+03,&
18926  & .3500000e+02,.2715200e+02,.1631800e+03,.2989200e+03,.4062200e+03,&
18927  & .4274000e+03,.3938700e+03,.3083400e+03,.1726800e+03,.3500000e+02,&
18928  & .2736900e+02,.1633600e+03,.2990300e+03,.4067100e+03,.4292400e+03,&
18929  & .3959300e+03,.3103900e+03,.1738200e+03,.3500000e+02,.2715800e+02,&
18930  & .1632300e+03,.2989800e+03,.4058700e+03,.4274500e+03,.3939300e+03,&
18931  & .3084000e+03,.1727100e+03,.3500000e+02,.2697600e+02,.1630900e+03,&
18932  & .2988900e+03,.4051300e+03,.4259000e+03,.3922100e+03,.3066700e+03,&
18933  & .1717600e+03,.3500000e+02,.2681800e+02,.1629300e+03,.2987500e+03,&
18934  & .4044500e+03,.4245500e+03,.3907000e+03,.3051600e+03,.1709300e+03,&
18935  & .3500000e+02,.2667900e+02,.1627600e+03,.2985500e+03,.4038100e+03,&
18936  & .4233500e+03,.3893700e+03,.3038400e+03,.1702100e+03,.3500000e+02/
18937 
18938  data absa( 1:180, 2) / &
18939  & .1727100e+03,.2764600e+03,.3803900e+03,.4842000e+03,.5693200e+03,&
18940  & .5753400e+03,.4787300e+03,.2814700e+03,.7184000e+02,.1683400e+03,&
18941  & .2724600e+03,.3767800e+03,.4809100e+03,.5647100e+03,.5673400e+03,&
18942  & .4700500e+03,.2759300e+03,.7184000e+02,.1644100e+03,.2688300e+03,&
18943  & .3734100e+03,.4777700e+03,.5603700e+03,.5600300e+03,.4621000e+03,&
18944  & .2709600e+03,.7184000e+02,.1608600e+03,.2654800e+03,.3702500e+03,&
18945  & .4747900e+03,.5562900e+03,.5532700e+03,.4548100e+03,.2664700e+03,&
18946  & .7184000e+02,.1576400e+03,.2623700e+03,.3672500e+03,.4719500e+03,&
18947  & .5523500e+03,.5470100e+03,.4481000e+03,.2623900e+03,.7184000e+02,&
18948  & .1595500e+03,.2650000e+03,.3706700e+03,.4759500e+03,.5548000e+03,&
18949  & .5507400e+03,.4521000e+03,.2648200e+03,.7184000e+02,.1558000e+03,&
18950  & .2615700e+03,.3675600e+03,.4730300e+03,.5502800e+03,.5433900e+03,&
18951  & .4442300e+03,.2600700e+03,.7184000e+02,.1524400e+03,.2584400e+03,&
18952  & .3646500e+03,.4702300e+03,.5461900e+03,.5366400e+03,.4370800e+03,&
18953  & .2558100e+03,.7184000e+02,.1494100e+03,.2555600e+03,.3619100e+03,&
18954  & .4675300e+03,.5425300e+03,.5304100e+03,.4305200e+03,.2519800e+03,&
18955  & .7184000e+02,.1466700e+03,.2528900e+03,.3593000e+03,.4649400e+03,&
18956  & .5390800e+03,.5247000e+03,.4244800e+03,.2485100e+03,.7184000e+02,&
18957  & .1492100e+03,.2560100e+03,.3630800e+03,.4687200e+03,.5423400e+03,&
18958  & .5299900e+03,.4300700e+03,.2517200e+03,.7184000e+02,.1459100e+03,&
18959  & .2530100e+03,.3603600e+03,.4659900e+03,.5383400e+03,.5231300e+03,&
18960  & .4228000e+03,.2475500e+03,.7184000e+02,.1429700e+03,.2502800e+03,&
18961  & .3578200e+03,.4635000e+03,.5345900e+03,.5169600e+03,.4161900e+03,&
18962  & .2438300e+03,.7184000e+02,.1403300e+03,.2477700e+03,.3554200e+03,&
18963  & .4611600e+03,.5310000e+03,.5112200e+03,.4101600e+03,.2404900e+03,&
18964  & .7184000e+02,.1379500e+03,.2454400e+03,.3531300e+03,.4588200e+03,&
18965  & .5275100e+03,.5059100e+03,.4046300e+03,.2374700e+03,.7184000e+02,&
18966  & .1406200e+03,.2485600e+03,.3567800e+03,.4626000e+03,.5313700e+03,&
18967  & .5118600e+03,.4108200e+03,.2408600e+03,.7184000e+02,.1377100e+03,&
18968  & .2459200e+03,.3544000e+03,.4602000e+03,.5273200e+03,.5053700e+03,&
18969  & .4040700e+03,.2371700e+03,.7184000e+02,.1351200e+03,.2435300e+03,&
18970  & .3521900e+03,.4579600e+03,.5234800e+03,.4995400e+03,.3979800e+03,&
18971  & .2338900e+03,.7184000e+02,.1328100e+03,.2413300e+03,.3500800e+03,&
18972  & .4558300e+03,.5198500e+03,.4943100e+03,.3924600e+03,.2309600e+03,&
18973  & .7184000e+02,.1307300e+03,.2392800e+03,.3480700e+03,.4537800e+03,&
18974  & .5164300e+03,.4895700e+03,.3874500e+03,.2283300e+03,.7184000e+02/
18975 
18976  data absa(181:315, 2) / &
18977  & .1333300e+03,.2422200e+03,.3514100e+03,.4570200e+03,.5205700e+03,&
18978  & .4955000e+03,.3937200e+03,.2316300e+03,.7184000e+02,.1307500e+03,&
18979  & .2399000e+03,.3493400e+03,.4547600e+03,.5165100e+03,.4896300e+03,&
18980  & .3875200e+03,.2283600e+03,.7184000e+02,.1284700e+03,.2378000e+03,&
18981  & .3474100e+03,.4526600e+03,.5127100e+03,.4843800e+03,.3819600e+03,&
18982  & .2254800e+03,.7184000e+02,.1264400e+03,.2358800e+03,.3455700e+03,&
18983  & .4506600e+03,.5091100e+03,.4796200e+03,.3769600e+03,.2229100e+03,&
18984  & .7184000e+02,.1246200e+03,.2340900e+03,.3438100e+03,.4487400e+03,&
18985  & .5057000e+03,.4752600e+03,.3724500e+03,.2206000e+03,.7184000e+02,&
18986  & .1272200e+03,.2369000e+03,.3468800e+03,.4517700e+03,.5103200e+03,&
18987  & .4814400e+03,.3788700e+03,.2238900e+03,.7184000e+02,.1249200e+03,&
18988  & .2348500e+03,.3450800e+03,.4496700e+03,.5062000e+03,.4759800e+03,&
18989  & .3731900e+03,.2209800e+03,.7184000e+02,.1229000e+03,.2330100e+03,&
18990  & .3434000e+03,.4476900e+03,.5024200e+03,.4710800e+03,.3681500e+03,&
18991  & .2184300e+03,.7184000e+02,.1211100e+03,.2313200e+03,.3418000e+03,&
18992  & .4458200e+03,.4989400e+03,.4666800e+03,.3636300e+03,.2161600e+03,&
18993  & .7184000e+02,.1195200e+03,.2297600e+03,.3402600e+03,.4440700e+03,&
18994  & .4957400e+03,.4627000e+03,.3595600e+03,.2141400e+03,.7184000e+02,&
18995  & .1220100e+03,.2323500e+03,.3430000e+03,.4470000e+03,.5005400e+03,&
18996  & .4688900e+03,.3659000e+03,.2173000e+03,.7184000e+02,.1199700e+03,&
18997  & .2305500e+03,.3414500e+03,.4449200e+03,.4965700e+03,.4638300e+03,&
18998  & .3607100e+03,.2147100e+03,.7184000e+02,.1181800e+03,.2289400e+03,&
18999  & .3399900e+03,.4430900e+03,.4929200e+03,.4593400e+03,.3561300e+03,&
19000  & .2124500e+03,.7184000e+02,.1166000e+03,.2274600e+03,.3385900e+03,&
19001  & .4414600e+03,.4895900e+03,.4553300e+03,.3520800e+03,.2104500e+03,&
19002  & .7184000e+02,.1152000e+03,.2260900e+03,.3372400e+03,.4399600e+03,&
19003  & .4865700e+03,.4517500e+03,.3484700e+03,.2086700e+03,.7184000e+02/
19004 
19005  data absa(316:450, 2) / &
19006  & .1175600e+03,.2284400e+03,.3396500e+03,.4426100e+03,.4914700e+03,&
19007  & .4577600e+03,.3545400e+03,.2116600e+03,.7184000e+02,.1157400e+03,&
19008  & .2268700e+03,.3383000e+03,.4408200e+03,.4876700e+03,.4531300e+03,&
19009  & .3498600e+03,.2093600e+03,.7184000e+02,.1141500e+03,.2254600e+03,&
19010  & .3370400e+03,.4391500e+03,.4842900e+03,.4490800e+03,.3457900e+03,&
19011  & .2073500e+03,.7184000e+02,.1127600e+03,.2241700e+03,.3358400e+03,&
19012  & .4375800e+03,.4812600e+03,.4454900e+03,.3422000e+03,.2055900e+03,&
19013  & .7184000e+02,.1115300e+03,.2229800e+03,.3346600e+03,.4361700e+03,&
19014  & .4785500e+03,.4422800e+03,.3390200e+03,.2040300e+03,.7184000e+02,&
19015  & .1137600e+03,.2251000e+03,.3367400e+03,.4388200e+03,.4833600e+03,&
19016  & .4480700e+03,.3447900e+03,.2068600e+03,.7184000e+02,.1121400e+03,&
19017  & .2237200e+03,.3355900e+03,.4370600e+03,.4798900e+03,.4438800e+03,&
19018  & .3406000e+03,.2048000e+03,.7184000e+02,.1107400e+03,.2225000e+03,&
19019  & .3345100e+03,.4354700e+03,.4767900e+03,.4402000e+03,.3369700e+03,&
19020  & .2030300e+03,.7184000e+02,.1095100e+03,.2213800e+03,.3334800e+03,&
19021  & .4340400e+03,.4740400e+03,.4369400e+03,.3337900e+03,.2014700e+03,&
19022  & .7184000e+02,.1084300e+03,.2203400e+03,.3324600e+03,.4327700e+03,&
19023  & .4715900e+03,.4340500e+03,.3309600e+03,.2001000e+03,.7184000e+02,&
19024  & .1104100e+03,.2221400e+03,.3341400e+03,.4351700e+03,.4760400e+03,&
19025  & .4393200e+03,.3361100e+03,.2026100e+03,.7184000e+02,.1089800e+03,&
19026  & .2209500e+03,.3331700e+03,.4335800e+03,.4728300e+03,.4355200e+03,&
19027  & .3323900e+03,.2008000e+03,.7184000e+02,.1077400e+03,.2198900e+03,&
19028  & .3322600e+03,.4321300e+03,.4700200e+03,.4322200e+03,.3291700e+03,&
19029  & .1992400e+03,.7184000e+02,.1066700e+03,.2189300e+03,.3313900e+03,&
19030  & .4308300e+03,.4675300e+03,.4293200e+03,.3263400e+03,.1978800e+03,&
19031  & .7184000e+02,.1057300e+03,.2180300e+03,.3305300e+03,.4296500e+03,&
19032  & .4653200e+03,.4267700e+03,.3238600e+03,.1966900e+03,.7184000e+02/
19033 
19034  data absa(451:585, 2) / &
19035  & .1069400e+03,.2191100e+03,.3315200e+03,.4312700e+03,.4681600e+03,&
19036  & .4300500e+03,.3270600e+03,.1982200e+03,.7184000e+02,.1057700e+03,&
19037  & .2181500e+03,.3307400e+03,.4298400e+03,.4654100e+03,.4268700e+03,&
19038  & .3239600e+03,.1967400e+03,.7184000e+02,.1047600e+03,.2172800e+03,&
19039  & .3300000e+03,.4285500e+03,.4630100e+03,.4241100e+03,.3213000e+03,&
19040  & .1954600e+03,.7184000e+02,.1038800e+03,.2164900e+03,.3292800e+03,&
19041  & .4274100e+03,.4608900e+03,.4216900e+03,.3189700e+03,.1943500e+03,&
19042  & .7184000e+02,.1031100e+03,.2157500e+03,.3285500e+03,.4263900e+03,&
19043  & .4590200e+03,.4195400e+03,.3169200e+03,.1933800e+03,.7184000e+02,&
19044  & .1041000e+03,.2166300e+03,.3293700e+03,.4277800e+03,.4614100e+03,&
19045  & .4222900e+03,.3195500e+03,.1946300e+03,.7184000e+02,.1031400e+03,&
19046  & .2158500e+03,.3287500e+03,.4265400e+03,.4590900e+03,.4196100e+03,&
19047  & .3170000e+03,.1934100e+03,.7184000e+02,.1023100e+03,.2151500e+03,&
19048  & .3281500e+03,.4254400e+03,.4570700e+03,.4172900e+03,.3148000e+03,&
19049  & .1923600e+03,.7184000e+02,.1015900e+03,.2144900e+03,.3275400e+03,&
19050  & .4244500e+03,.4553200e+03,.4152600e+03,.3128800e+03,.1914500e+03,&
19051  & .7184000e+02,.1009600e+03,.2138700e+03,.3269200e+03,.4235600e+03,&
19052  & .4537700e+03,.4134700e+03,.3111900e+03,.1906600e+03,.7184000e+02,&
19053  & .1017700e+03,.2146000e+03,.3276100e+03,.4247500e+03,.4557500e+03,&
19054  & .4157600e+03,.3133500e+03,.1916800e+03,.7184000e+02,.1009900e+03,&
19055  & .2139700e+03,.3271200e+03,.4236800e+03,.4538300e+03,.4135300e+03,&
19056  & .3112500e+03,.1906800e+03,.7184000e+02,.1003100e+03,.2134000e+03,&
19057  & .3266300e+03,.4227200e+03,.4521600e+03,.4116000e+03,.3094300e+03,&
19058  & .1898300e+03,.7184000e+02,.9972000e+02,.2128600e+03,.3261200e+03,&
19059  & .4218700e+03,.4507100e+03,.4099100e+03,.3078500e+03,.1890800e+03,&
19060  & .7184000e+02,.9920400e+02,.2123300e+03,.3255800e+03,.4211200e+03,&
19061  & .4494200e+03,.4084200e+03,.3064600e+03,.1884300e+03,.7184000e+02/
19062 
19063  data absa( 1:180, 3) / &
19064  & .6511264e+03,.6329084e+03,.6146856e+03,.5966652e+03,.6074063e+03,&
19065  & .6528610e+03,.5099603e+03,.3749181e+03,.2774131e+03,.6346287e+03,&
19066  & .6184704e+03,.6023125e+03,.5863930e+03,.6020757e+03,.6446762e+03,&
19067  & .4994119e+03,.3715684e+03,.2774131e+03,.6198152e+03,.6055045e+03,&
19068  & .5912038e+03,.5771678e+03,.5973361e+03,.6369385e+03,.4900862e+03,&
19069  & .3685614e+03,.2774131e+03,.6064342e+03,.5938030e+03,.5811717e+03,&
19070  & .5688415e+03,.5930984e+03,.6294842e+03,.4817900e+03,.3658423e+03,&
19071  & .2774131e+03,.5942932e+03,.5831782e+03,.5720635e+03,.5612806e+03,&
19072  & .5892330e+03,.6221730e+03,.4743525e+03,.3633754e+03,.2774131e+03,&
19073  & .6015146e+03,.5894958e+03,.5774770e+03,.5658111e+03,.5943788e+03,&
19074  & .6267589e+03,.4787630e+03,.3648436e+03,.2774131e+03,.5873680e+03,&
19075  & .5771175e+03,.5668670e+03,.5570576e+03,.5905502e+03,.6181492e+03,&
19076  & .4701504e+03,.3619729e+03,.2774131e+03,.5746935e+03,.5660284e+03,&
19077  & .5573637e+03,.5492284e+03,.5870483e+03,.6098467e+03,.4625325e+03,&
19078  & .3594001e+03,.2774131e+03,.5632785e+03,.5560360e+03,.5487986e+03,&
19079  & .5422048e+03,.5837067e+03,.6020593e+03,.4557839e+03,.3570844e+03,&
19080  & .2774131e+03,.5529351e+03,.5469870e+03,.5410436e+03,.5358636e+03,&
19081  & .5804343e+03,.5946671e+03,.4497552e+03,.3549858e+03,.2774131e+03,&
19082  & .5625080e+03,.5553643e+03,.5482206e+03,.5421149e+03,.5857773e+03,&
19083  & .6015260e+03,.4553353e+03,.3569280e+03,.2774131e+03,.5500901e+03,&
19084  & .5445026e+03,.5389099e+03,.5346354e+03,.5824284e+03,.5925618e+03,&
19085  & .4481108e+03,.3544056e+03,.2774131e+03,.5390110e+03,.5348064e+03,&
19086  & .5306017e+03,.5279541e+03,.5791807e+03,.5842402e+03,.4417818e+03,&
19087  & .3521607e+03,.2774131e+03,.5290630e+03,.5260980e+03,.5231382e+03,&
19088  & .5219585e+03,.5760337e+03,.5766944e+03,.4361804e+03,.3501376e+03,&
19089  & .2774131e+03,.5200781e+03,.5182394e+03,.5163958e+03,.5165553e+03,&
19090  & .5729753e+03,.5696064e+03,.4311945e+03,.3483165e+03,.2774131e+03,&
19091  & .5301497e+03,.5270514e+03,.5239531e+03,.5232218e+03,.5779936e+03,&
19092  & .5775254e+03,.4367865e+03,.3503547e+03,.2774131e+03,.5191743e+03,&
19093  & .5174492e+03,.5157190e+03,.5168800e+03,.5747472e+03,.5688802e+03,&
19094  & .4306977e+03,.3481297e+03,.2774131e+03,.5094140e+03,.5089090e+03,&
19095  & .5084039e+03,.5112313e+03,.5716791e+03,.5610450e+03,.4253723e+03,&
19096  & .3461523e+03,.2774131e+03,.5006908e+03,.5012725e+03,.5018541e+03,&
19097  & .5061415e+03,.5687148e+03,.5539480e+03,.4206699e+03,.3443815e+03,&
19098  & .2774131e+03,.4928322e+03,.4944017e+03,.4959664e+03,.5015429e+03,&
19099  & .5658453e+03,.5474233e+03,.4164958e+03,.3427822e+03,.2774131e+03/
19100 
19101  data absa(181:315, 3) / &
19102  & .5026617e+03,.5029964e+03,.5033359e+03,.5079576e+03,.5703975e+03,&
19103  & .5555608e+03,.4217244e+03,.3447801e+03,.2774131e+03,.4929459e+03,&
19104  & .4944957e+03,.4960504e+03,.5025983e+03,.5672753e+03,.5475129e+03,&
19105  & .4165470e+03,.3428074e+03,.2774131e+03,.4843464e+03,.4869729e+03,&
19106  & .4895995e+03,.4978824e+03,.5642908e+03,.5402030e+03,.4120341e+03,&
19107  & .3410570e+03,.2774131e+03,.4766902e+03,.4802750e+03,.4838598e+03,&
19108  & .4936340e+03,.5614813e+03,.5336150e+03,.4080600e+03,.3395081e+03,&
19109  & .2774131e+03,.4698243e+03,.4742636e+03,.4787081e+03,.4897906e+03,&
19110  & .5587886e+03,.5276339e+03,.4045435e+03,.3381108e+03,.2774131e+03,&
19111  & .4796093e+03,.4828287e+03,.4860480e+03,.4958831e+03,.5631234e+03,&
19112  & .5361276e+03,.4095724e+03,.3400983e+03,.2774131e+03,.4709554e+03,&
19113  & .4752614e+03,.4795626e+03,.4913793e+03,.5601219e+03,.5286289e+03,&
19114  & .4051219e+03,.3383427e+03,.2774131e+03,.4633537e+03,.4686031e+03,&
19115  & .4738526e+03,.4874207e+03,.5572835e+03,.5219272e+03,.4012664e+03,&
19116  & .3367990e+03,.2774131e+03,.4566014e+03,.4626954e+03,.4687945e+03,&
19117  & .4838547e+03,.5545520e+03,.5159087e+03,.3978937e+03,.3354268e+03,&
19118  & .2774131e+03,.4505703e+03,.4574252e+03,.4642700e+03,.4806076e+03,&
19119  & .5519154e+03,.5104788e+03,.3949126e+03,.3342010e+03,.2774131e+03,&
19120  & .4599800e+03,.4656593e+03,.4713286e+03,.4861245e+03,.5561434e+03,&
19121  & .5189328e+03,.3995824e+03,.3361129e+03,.2774131e+03,.4522794e+03,&
19122  & .4589169e+03,.4655493e+03,.4823660e+03,.5531814e+03,.5120152e+03,&
19123  & .3957540e+03,.3345540e+03,.2774131e+03,.4455371e+03,.4530143e+03,&
19124  & .4604964e+03,.4790627e+03,.5504387e+03,.5058908e+03,.3924488e+03,&
19125  & .3331819e+03,.2774131e+03,.4395801e+03,.4478082e+03,.4560363e+03,&
19126  & .4760716e+03,.5478683e+03,.5004584e+03,.3895600e+03,.3319712e+03,&
19127  & .2774131e+03,.4342899e+03,.4431749e+03,.4520702e+03,.4733295e+03,&
19128  & .5454191e+03,.4955934e+03,.3870166e+03,.3309017e+03,.2774131e+03/
19129 
19130  data absa(316:450, 3) / &
19131  & .4431908e+03,.4509594e+03,.4587381e+03,.4781967e+03,.5493562e+03,&
19132  & .5037547e+03,.3913036e+03,.3327077e+03,.2774131e+03,.4363300e+03,&
19133  & .4449580e+03,.4535964e+03,.4750441e+03,.5465445e+03,.4974754e+03,&
19134  & .3879943e+03,.3313103e+03,.2774131e+03,.4303582e+03,.4397370e+03,&
19135  & .4491215e+03,.4722875e+03,.5439163e+03,.4918909e+03,.3851474e+03,&
19136  & .3301045e+03,.2774131e+03,.4251124e+03,.4351433e+03,.4451950e+03,&
19137  & .4698098e+03,.5414411e+03,.4869096e+03,.3826759e+03,.3290350e+03,&
19138  & .2774131e+03,.4204694e+03,.4310783e+03,.4417179e+03,.4675130e+03,&
19139  & .5390622e+03,.4824898e+03,.3805037e+03,.3280966e+03,.2774131e+03,&
19140  & .4288912e+03,.4384478e+03,.4480252e+03,.4717437e+03,.5428850e+03,&
19141  & .4904977e+03,.3844535e+03,.3298019e+03,.2774131e+03,.4227713e+03,&
19142  & .4330984e+03,.4434414e+03,.4691286e+03,.5401449e+03,.4846799e+03,&
19143  & .3815770e+03,.3285608e+03,.2774131e+03,.4174811e+03,.4284602e+03,&
19144  & .4394805e+03,.4668405e+03,.5375978e+03,.4796375e+03,.3791166e+03,&
19145  & .3274861e+03,.2774131e+03,.4128529e+03,.4244148e+03,.4360182e+03,&
19146  & .4647682e+03,.5352111e+03,.4752154e+03,.3769855e+03,.3265430e+03,&
19147  & .2774131e+03,.4087727e+03,.4208485e+03,.4329611e+03,.4628378e+03,&
19148  & .5329651e+03,.4713043e+03,.3751287e+03,.3257206e+03,.2774131e+03,&
19149  & .4162315e+03,.4273735e+03,.4385419e+03,.4662891e+03,.5364495e+03,&
19150  & .4784476e+03,.3785445e+03,.3272290e+03,.2774131e+03,.4108377e+03,&
19151  & .4226565e+03,.4345069e+03,.4641370e+03,.5338298e+03,.4732874e+03,&
19152  & .3760645e+03,.3261392e+03,.2774131e+03,.4061995e+03,.4185915e+03,&
19153  & .4310298e+03,.4622539e+03,.5314356e+03,.4688122e+03,.3739650e+03,&
19154  & .3251960e+03,.2774131e+03,.4021541e+03,.4150596e+03,.4280071e+03,&
19155  & .4605480e+03,.5292326e+03,.4648804e+03,.3721593e+03,.3243736e+03,&
19156  & .2774131e+03,.3986074e+03,.4119528e+03,.4253550e+03,.4589564e+03,&
19157  & .5271755e+03,.4613869e+03,.3705866e+03,.3236571e+03,.2774131e+03/
19158 
19159  data absa(451:585, 3) / &
19160  & .4031715e+03,.4159438e+03,.4287676e+03,.4609884e+03,.5292837e+03,&
19161  & .4658721e+03,.3726094e+03,.3245855e+03,.2774131e+03,.3987507e+03,&
19162  & .4120761e+03,.4254586e+03,.4593570e+03,.5269580e+03,.4615362e+03,&
19163  & .3706474e+03,.3236875e+03,.2774131e+03,.3949475e+03,.4087520e+03,&
19164  & .4226140e+03,.4578984e+03,.5248194e+03,.4578690e+03,.3689687e+03,&
19165  & .3229107e+03,.2774131e+03,.3916430e+03,.4058525e+03,.4201396e+03,&
19166  & .4565441e+03,.5228408e+03,.4544830e+03,.3675280e+03,.3222398e+03,&
19167  & .2774131e+03,.3887335e+03,.4033137e+03,.4179614e+03,.4552601e+03,&
19168  & .5210222e+03,.4515774e+03,.3662647e+03,.3216544e+03,.2774131e+03,&
19169  & .3924531e+03,.4065686e+03,.4207468e+03,.4569108e+03,.5228838e+03,&
19170  & .4553196e+03,.3678766e+03,.3224061e+03,.2774131e+03,.3888324e+03,&
19171  & .4034026e+03,.4180454e+03,.4556544e+03,.5208037e+03,.4516870e+03,&
19172  & .3663098e+03,.3216696e+03,.2774131e+03,.3857204e+03,.4006760e+03,&
19173  & .4157143e+03,.4545126e+03,.5188851e+03,.4485672e+03,.3649658e+03,&
19174  & .3210391e+03,.2774131e+03,.3830138e+03,.3983049e+03,.4136846e+03,&
19175  & .4534319e+03,.5171572e+03,.4458556e+03,.3638040e+03,.3204890e+03,&
19176  & .2774131e+03,.3806279e+03,.3962256e+03,.4118963e+03,.4523829e+03,&
19177  & .5156086e+03,.4434924e+03,.3627937e+03,.3200048e+03,.2774131e+03,&
19178  & .3836807e+03,.3988929e+03,.4141833e+03,.4537401e+03,.5172110e+03,&
19179  & .4465237e+03,.3640918e+03,.3206253e+03,.2774131e+03,.3807168e+03,&
19180  & .3962996e+03,.4119655e+03,.4527776e+03,.5153732e+03,.4435721e+03,&
19181  & .3628289e+03,.3200248e+03,.2774131e+03,.3781631e+03,.3940670e+03,&
19182  & .4100595e+03,.4518853e+03,.5137515e+03,.4410437e+03,.3617483e+03,&
19183  & .3195054e+03,.2774131e+03,.3759453e+03,.3921257e+03,.4084000e+03,&
19184  & .4510200e+03,.5123154e+03,.4388535e+03,.3608140e+03,.3190564e+03,&
19185  & .2774131e+03,.3739993e+03,.3904218e+03,.4069430e+03,.4501424e+03,&
19186  & .5110249e+03,.4369317e+03,.3599960e+03,.3186578e+03,.2774131e+03/
19187 
19188  data absa( 1:180, 4) / &
19189  & .1490491e+04,.1320345e+04,.1150192e+04,.9800544e+03,.8098902e+03,&
19190  & .7197150e+03,.6792147e+03,.7402425e+03,.8002384e+03,.1452731e+04,&
19191  & .1287287e+04,.1121843e+04,.9564311e+03,.7910079e+03,.7120191e+03,&
19192  & .6771483e+03,.7390036e+03,.7998958e+03,.1418780e+04,.1257599e+04,&
19193  & .1096434e+04,.9352534e+03,.7740540e+03,.7025255e+03,.6751582e+03,&
19194  & .7376910e+03,.7993864e+03,.1388200e+04,.1230836e+04,.1073482e+04,&
19195  & .9161180e+03,.7587353e+03,.6923034e+03,.6731990e+03,.7363185e+03,&
19196  & .7987103e+03,.1360397e+04,.1206504e+04,.1052610e+04,.8987339e+03,&
19197  & .7448387e+03,.6822317e+03,.6712136e+03,.7348370e+03,.7978722e+03,&
19198  & .1376903e+04,.1220978e+04,.1065010e+04,.9090577e+03,.7531056e+03,&
19199  & .6894651e+03,.6733436e+03,.7372884e+03,.8003310e+03,.1344538e+04,&
19200  & .1192629e+04,.1040735e+04,.8888218e+03,.7369143e+03,.6768296e+03,&
19201  & .6715747e+03,.7362303e+03,.8000578e+03,.1315550e+04,.1167251e+04,&
19202  & .1018964e+04,.8706883e+03,.7224512e+03,.6656647e+03,.6698697e+03,&
19203  & .7351070e+03,.7996179e+03,.1289379e+04,.1144358e+04,.9993773e+03,&
19204  & .8543538e+03,.7095866e+03,.6560533e+03,.6681935e+03,.7339123e+03,&
19205  & .7990113e+03,.1265740e+04,.1123642e+04,.9815969e+03,.8395554e+03,&
19206  & .6981281e+03,.6477726e+03,.6664850e+03,.7326277e+03,.7982380e+03,&
19207  & .1287647e+04,.1142819e+04,.9980492e+03,.8532534e+03,.7089617e+03,&
19208  & .6555751e+03,.6687079e+03,.7349497e+03,.8004236e+03,.1259199e+04,&
19209  & .1117994e+04,.9767252e+03,.8354916e+03,.6953763e+03,.6460584e+03,&
19210  & .6671911e+03,.7340872e+03,.8002431e+03,.1233874e+04,.1095802e+04,&
19211  & .9576897e+03,.8196373e+03,.6835316e+03,.6380393e+03,.6657230e+03,&
19212  & .7331401e+03,.7999004e+03,.1211081e+04,.1075833e+04,.9406536e+03,&
19213  & .8054044e+03,.6731147e+03,.6310221e+03,.6642968e+03,.7321310e+03,&
19214  & .7993957e+03,.1190512e+04,.1057848e+04,.9251886e+03,.7925536e+03,&
19215  & .6639048e+03,.6250737e+03,.6628407e+03,.7310159e+03,.7987242e+03,&
19216  & .1213605e+04,.1078027e+04,.9425174e+03,.8069604e+03,.6747932e+03,&
19217  & .6317831e+03,.6648333e+03,.7329850e+03,.8004607e+03,.1188427e+04,&
19218  & .1056052e+04,.9236605e+03,.7912500e+03,.6637826e+03,.6247883e+03,&
19219  & .6635334e+03,.7322842e+03,.8003773e+03,.1166126e+04,.1036497e+04,&
19220  & .9069190e+03,.7772941e+03,.6542493e+03,.6188027e+03,.6622900e+03,&
19221  & .7315166e+03,.8001412e+03,.1146104e+04,.1019036e+04,.8919134e+03,&
19222  & .7648103e+03,.6459064e+03,.6135679e+03,.6610584e+03,.7306623e+03,&
19223  & .7997430e+03,.1128166e+04,.1003292e+04,.8784385e+03,.7535801e+03,&
19224  & .6385155e+03,.6090063e+03,.6598247e+03,.7297259e+03,.7991780e+03/
19225 
19226  data absa(181:315, 4) / &
19227  & .1150667e+04,.1022958e+04,.8952985e+03,.7676352e+03,.6485262e+03,&
19228  & .6146217e+03,.6614995e+03,.7312576e+03,.8004375e+03,.1128412e+04,&
19229  & .1003487e+04,.8786170e+03,.7537286e+03,.6397248e+03,.6092128e+03,&
19230  & .6603950e+03,.7307176e+03,.8004468e+03,.1108741e+04,.9862884e+03,&
19231  & .8638632e+03,.7414333e+03,.6321640e+03,.6047173e+03,.6593415e+03,&
19232  & .7301049e+03,.8003079e+03,.1091213e+04,.9709590e+03,.8507153e+03,&
19233  & .7304755e+03,.6255493e+03,.6008338e+03,.6583092e+03,.7294008e+03,&
19234  & .8000115e+03,.1075469e+04,.9572202e+03,.8389248e+03,.7206527e+03,&
19235  & .6197031e+03,.5974555e+03,.6572486e+03,.7286139e+03,.7995531e+03,&
19236  & .1097870e+04,.9768019e+03,.8557256e+03,.7346486e+03,.6288307e+03,&
19237  & .6020713e+03,.6586595e+03,.7297565e+03,.8003542e+03,.1078052e+04,&
19238  & .9594624e+03,.8408779e+03,.7222787e+03,.6218550e+03,.5979982e+03,&
19239  & .6577350e+03,.7293614e+03,.8004561e+03,.1060670e+04,.9442276e+03,&
19240  & .8278139e+03,.7113901e+03,.6158860e+03,.5946078e+03,.6568508e+03,&
19241  & .7288896e+03,.8004144e+03,.1045194e+04,.9306942e+03,.8162219e+03,&
19242  & .7017312e+03,.6107127e+03,.5916997e+03,.6559770e+03,.7283342e+03,&
19243  & .8002199e+03,.1031388e+04,.9186406e+03,.8058789e+03,.6931126e+03,&
19244  & .6061547e+03,.5891687e+03,.6550888e+03,.7276821e+03,.7998680e+03,&
19245  & .1052963e+04,.9374921e+03,.8220302e+03,.7065729e+03,.6139864e+03,&
19246  & .5928231e+03,.6561758e+03,.7284058e+03,.8001736e+03,.1035335e+04,&
19247  & .9220734e+03,.8088077e+03,.6955512e+03,.6085341e+03,.5897484e+03,&
19248  & .6554522e+03,.7281509e+03,.8004051e+03,.1019870e+04,.9085454e+03,&
19249  & .7972311e+03,.6859069e+03,.6038862e+03,.5871960e+03,.6547087e+03,&
19250  & .7278186e+03,.8004607e+03,.1006236e+04,.8966542e+03,.7870120e+03,&
19251  & .6773876e+03,.5998494e+03,.5849802e+03,.6539834e+03,.7273980e+03,&
19252  & .8003588e+03,.9941610e+03,.8860349e+03,.7779226e+03,.6698202e+03,&
19253  & .5962793e+03,.5830334e+03,.6532431e+03,.7268747e+03,.8001088e+03/
19254 
19255  data absa(316:450, 4) / &
19256  & .1014525e+04,.9038521e+03,.7932066e+03,.6825518e+03,.6028710e+03,&
19257  & .5859051e+03,.6539946e+03,.7271787e+03,.7999513e+03,.9987919e+03,&
19258  & .8901187e+03,.7814262e+03,.6727344e+03,.5986427e+03,.5835388e+03,&
19259  & .6534210e+03,.7270632e+03,.8002847e+03,.9851423e+03,.8781550e+03,&
19260  & .7711724e+03,.6641905e+03,.5950831e+03,.5816419e+03,.6528439e+03,&
19261  & .7268557e+03,.8004468e+03,.9731156e+03,.8676435e+03,.7621676e+03,&
19262  & .6566870e+03,.5920005e+03,.5800708e+03,.6522571e+03,.7265599e+03,&
19263  & .8004375e+03,.9624848e+03,.8583463e+03,.7541885e+03,.6500361e+03,&
19264  & .5892896e+03,.5786674e+03,.6516491e+03,.7261614e+03,.8002755e+03,&
19265  & .9817773e+03,.8752109e+03,.7686499e+03,.6620890e+03,.5946884e+03,&
19266  & .5807066e+03,.6520760e+03,.7260596e+03,.7996781e+03,.9677814e+03,&
19267  & .8629603e+03,.7581484e+03,.6533365e+03,.5914754e+03,.5790226e+03,&
19268  & .6516633e+03,.7260782e+03,.8001134e+03,.9556546e+03,.8523548e+03,&
19269  & .7490543e+03,.6457592e+03,.5888086e+03,.5776101e+03,.6512193e+03,&
19270  & .7259955e+03,.8003773e+03,.9450453e+03,.8430869e+03,.7411152e+03,&
19271  & .6391429e+03,.5865198e+03,.5764053e+03,.6507649e+03,.7258146e+03,&
19272  & .8004607e+03,.9357266e+03,.8349146e+03,.7341173e+03,.6333100e+03,&
19273  & .5843768e+03,.5753367e+03,.6502809e+03,.7255256e+03,.8003866e+03,&
19274  & .9528090e+03,.8498570e+03,.7469182e+03,.6439800e+03,.5885144e+03,&
19275  & .5767160e+03,.6503433e+03,.7250381e+03,.7994049e+03,.9404359e+03,&
19276  & .8390577e+03,.7376609e+03,.6362634e+03,.5861145e+03,.5754558e+03,&
19277  & .6500784e+03,.7251769e+03,.7999235e+03,.9298105e+03,.8297558e+03,&
19278  & .7296865e+03,.6296179e+03,.5839417e+03,.5744210e+03,.6497768e+03,&
19279  & .7252044e+03,.8002708e+03,.9205811e+03,.8216675e+03,.7227532e+03,&
19280  & .6238388e+03,.5819578e+03,.5735632e+03,.6494410e+03,.7251291e+03,&
19281  & .8004422e+03,.9124496e+03,.8145610e+03,.7166625e+03,.6187693e+03,&
19282  & .5800439e+03,.5728294e+03,.6490647e+03,.7249410e+03,.8004422e+03/
19283 
19284  data absa(451:585, 4) / &
19285  & .9228965e+03,.8236997e+03,.7244976e+03,.6252963e+03,.5826587e+03,&
19286  & .5732062e+03,.6487682e+03,.7242367e+03,.7994003e+03,.9127905e+03,&
19287  & .8148481e+03,.7169103e+03,.6189724e+03,.5806411e+03,.5724380e+03,&
19288  & .6486216e+03,.7244324e+03,.7999189e+03,.9040966e+03,.8072260e+03,&
19289  & .7103786e+03,.6135258e+03,.5787682e+03,.5716879e+03,.6484230e+03,&
19290  & .7245206e+03,.8002662e+03,.8965007e+03,.8005998e+03,.7046989e+03,&
19291  & .6087980e+03,.5770291e+03,.5712760e+03,.6481694e+03,.7244914e+03,&
19292  & .8004422e+03,.8898544e+03,.7947815e+03,.6997086e+03,.6046349e+03,&
19293  & .5752976e+03,.5708062e+03,.6478707e+03,.7243347e+03,.8004422e+03,&
19294  & .8983644e+03,.8022304e+03,.7060963e+03,.6099576e+03,.5774937e+03,&
19295  & .5708077e+03,.6474759e+03,.7235789e+03,.7994003e+03,.8901061e+03,&
19296  & .7949847e+03,.6998817e+03,.6047834e+03,.5757149e+03,.5704095e+03,&
19297  & .6474223e+03,.7238307e+03,.7999235e+03,.8829565e+03,.7887454e+03,&
19298  & .6945344e+03,.6003279e+03,.5739676e+03,.5700508e+03,.6473059e+03,&
19299  & .7239504e+03,.8002662e+03,.8767566e+03,.7833188e+03,.6898858e+03,&
19300  & .5964527e+03,.5721368e+03,.5697050e+03,.6471298e+03,.7239527e+03,&
19301  & .8004422e+03,.8713100e+03,.7785510e+03,.6858020e+03,.5930430e+03,&
19302  & .5702838e+03,.5693558e+03,.6468926e+03,.7238360e+03,.8004422e+03,&
19303  & .8782779e+03,.7846517e+03,.6910308e+03,.5974092e+03,.5724839e+03,&
19304  & .5692167e+03,.6464156e+03,.7230395e+03,.7994003e+03,.8714985e+03,&
19305  & .7787195e+03,.6859459e+03,.5931669e+03,.5705842e+03,.5689690e+03,&
19306  & .6464442e+03,.7233274e+03,.7999235e+03,.8656602e+03,.7736099e+03,&
19307  & .6815696e+03,.5895194e+03,.5686553e+03,.5687141e+03,.6463947e+03,&
19308  & .7234879e+03,.8002708e+03,.8605853e+03,.7691745e+03,.6777583e+03,&
19309  & .5863474e+03,.5667574e+03,.5684512e+03,.6462754e+03,.7235209e+03,&
19310  & .8004422e+03,.8561252e+03,.7652692e+03,.6744132e+03,.5835572e+03,&
19311  & .5649152e+03,.5681796e+03,.6460944e+03,.7234350e+03,.8004422e+03/
19312 
19313  data absa( 1:180, 5) / &
19314  & .1921397e+04,.1686175e+04,.1450918e+04,.1215651e+04,.9804589e+03,&
19315  & .7485868e+03,.8483659e+03,.9768410e+03,.1106468e+04,.1872699e+04,&
19316  & .1643569e+04,.1414370e+04,.1185266e+04,.9561203e+03,.7344024e+03,&
19317  & .8467260e+03,.9754207e+03,.1105202e+04,.1828966e+04,.1605287e+04,&
19318  & .1381610e+04,.1157925e+04,.9342532e+03,.7247494e+03,.8449271e+03,&
19319  & .9738067e+03,.1103587e+04,.1789486e+04,.1570750e+04,.1351993e+04,&
19320  & .1133258e+04,.9145250e+03,.7183685e+03,.8429653e+03,.9719387e+03,&
19321  & .1101677e+04,.1753694e+04,.1539382e+04,.1325155e+04,.1110855e+04,&
19322  & .8966094e+03,.7139851e+03,.8408707e+03,.9698995e+03,.1099550e+04,&
19323  & .1775002e+04,.1558008e+04,.1341156e+04,.1124178e+04,.9072693e+03,&
19324  & .7199288e+03,.8471982e+03,.9765647e+03,.1106903e+04,.1733216e+04,&
19325  & .1521534e+04,.1309834e+04,.1098091e+04,.8863907e+03,.7174123e+03,&
19326  & .8457590e+03,.9752894e+03,.1105710e+04,.1695794e+04,.1488814e+04,&
19327  & .1281745e+04,.1074723e+04,.8676958e+03,.7156385e+03,.8441368e+03,&
19328  & .9737966e+03,.1104271e+04,.1662143e+04,.1459341e+04,.1256502e+04,&
19329  & .1053659e+04,.8508412e+03,.7137237e+03,.8423258e+03,.9720960e+03,&
19330  & .1102513e+04,.1631619e+04,.1432618e+04,.1233592e+04,.1034579e+04,&
19331  & .8355734e+03,.7116486e+03,.8403867e+03,.9701499e+03,.1100500e+04,&
19332  & .1659891e+04,.1457315e+04,.1254812e+04,.1052240e+04,.8497202e+03,&
19333  & .7175527e+03,.8464715e+03,.9765415e+03,.1107518e+04,.1623228e+04,&
19334  & .1425304e+04,.1227301e+04,.1029375e+04,.8314009e+03,.7161499e+03,&
19335  & .8452402e+03,.9754612e+03,.1106487e+04,.1590539e+04,.1396639e+04,&
19336  & .1202788e+04,.1008908e+04,.8150480e+03,.7145901e+03,.8438213e+03,&
19337  & .9741374e+03,.1105224e+04,.1561180e+04,.1371014e+04,.1180792e+04,&
19338  & .9905638e+03,.8003605e+03,.7128878e+03,.8422042e+03,.9726066e+03,&
19339  & .1103635e+04,.1534665e+04,.1347786e+04,.1160902e+04,.9740042e+03,&
19340  & .7871058e+03,.7110306e+03,.8404136e+03,.9708259e+03,.1101753e+04,&
19341  & .1564387e+04,.1373801e+04,.1183199e+04,.9925688e+03,.8019746e+03,&
19342  & .7163274e+03,.8458907e+03,.9765642e+03,.1107990e+04,.1532032e+04,&
19343  & .1345436e+04,.1158880e+04,.9723223e+03,.7857601e+03,.7151483e+03,&
19344  & .8448704e+03,.9756467e+03,.1107164e+04,.1503216e+04,.1320225e+04,&
19345  & .1137324e+04,.9543379e+03,.7713655e+03,.7138061e+03,.8436484e+03,&
19346  & .9745256e+03,.1106074e+04,.1477480e+04,.1297700e+04,.1117987e+04,&
19347  & .9382370e+03,.7585035e+03,.7123059e+03,.8422273e+03,.9731665e+03,&
19348  & .1104675e+04,.1454275e+04,.1277417e+04,.1100599e+04,.9237584e+03,&
19349  & .7469097e+03,.7106555e+03,.8406082e+03,.9715630e+03,.1103011e+04/
19350 
19351  data absa(181:315, 5) / &
19352  & .1483270e+04,.1302824e+04,.1122346e+04,.9418665e+03,.7613975e+03,&
19353  & .7152456e+03,.8453518e+03,.9765193e+03,.1108347e+04,.1454554e+04,&
19354  & .1277730e+04,.1100817e+04,.9239508e+03,.7470711e+03,.7142698e+03,&
19355  & .8445296e+03,.9757838e+03,.1107704e+04,.1429277e+04,.1255537e+04,&
19356  & .1081803e+04,.9080984e+03,.7343933e+03,.7131346e+03,.8435047e+03,&
19357  & .9748486e+03,.1106819e+04,.1406637e+04,.1235745e+04,.1064862e+04,&
19358  & .8939670e+03,.7230809e+03,.7118341e+03,.8422567e+03,.9736530e+03,&
19359  & .1105584e+04,.1386352e+04,.1217991e+04,.1049654e+04,.8813175e+03,&
19360  & .7129541e+03,.7103644e+03,.8408216e+03,.9722114e+03,.1104099e+04,&
19361  & .1415280e+04,.1243273e+04,.1071368e+04,.8993573e+03,.7273941e+03,&
19362  & .7142932e+03,.8448580e+03,.9764281e+03,.1108541e+04,.1389733e+04,&
19363  & .1220958e+04,.1052188e+04,.8834056e+03,.7146427e+03,.7135269e+03,&
19364  & .8442338e+03,.9758859e+03,.1108141e+04,.1367294e+04,.1201275e+04,&
19365  & .1035372e+04,.8693794e+03,.7034205e+03,.7125886e+03,.8433949e+03,&
19366  & .9751144e+03,.1107408e+04,.1347369e+04,.1183915e+04,.1020401e+04,&
19367  & .8569345e+03,.6934430e+03,.7114752e+03,.8423448e+03,.9741143e+03,&
19368  & .1106423e+04,.1329578e+04,.1168334e+04,.1007064e+04,.8458218e+03,&
19369  & .6845663e+03,.7101924e+03,.8410834e+03,.9728599e+03,.1105097e+04,&
19370  & .1357347e+04,.1192598e+04,.1027874e+04,.8631699e+03,.6984448e+03,&
19371  & .7134207e+03,.8443831e+03,.9763011e+03,.1108758e+04,.1334644e+04,&
19372  & .1172715e+04,.1010833e+04,.8489539e+03,.6870762e+03,.7128438e+03,&
19373  & .8439045e+03,.9759286e+03,.1108430e+04,.1314672e+04,.1155279e+04,&
19374  & .9959069e+03,.8365335e+03,.6771252e+03,.7120902e+03,.8432747e+03,&
19375  & .9753288e+03,.1107888e+04,.1297153e+04,.1139973e+04,.9827356e+03,&
19376  & .8255379e+03,.6683354e+03,.7111590e+03,.8424009e+03,.9744943e+03,&
19377  & .1107103e+04,.1281549e+04,.1126289e+04,.9710294e+03,.8157849e+03,&
19378  & .6605299e+03,.7100490e+03,.8413065e+03,.9734035e+03,.1105937e+04/
19379 
19380  data absa(316:450, 5) / &
19381  & .1307799e+04,.1149258e+04,.9907270e+03,.8322002e+03,.6736660e+03,&
19382  & .7126027e+03,.8439097e+03,.9761135e+03,.1108805e+04,.1287540e+04,&
19383  & .1131537e+04,.9755603e+03,.8195432e+03,.6635490e+03,.7122058e+03,&
19384  & .8436121e+03,.9758993e+03,.1108673e+04,.1269927e+04,.1116126e+04,&
19385  & .9623208e+03,.8085370e+03,.6547258e+03,.7116273e+03,.8431237e+03,&
19386  & .9754680e+03,.1108244e+04,.1254438e+04,.1102594e+04,.9507274e+03,&
19387  & .7988474e+03,.6469982e+03,.7108636e+03,.8424204e+03,.9747864e+03,&
19388  & .1107597e+04,.1240737e+04,.1090596e+04,.9404282e+03,.7903006e+03,&
19389  & .6401369e+03,.7099113e+03,.8414889e+03,.9738621e+03,.1106649e+04,&
19390  & .1265622e+04,.1112367e+04,.9590789e+03,.8058196e+03,.6525657e+03,&
19391  & .7118328e+03,.8434406e+03,.9758605e+03,.1108716e+04,.1247560e+04,&
19392  & .1096553e+04,.9455416e+03,.7945397e+03,.6435460e+03,.7116013e+03,&
19393  & .8432871e+03,.9758224e+03,.1108744e+04,.1231894e+04,.1082859e+04,&
19394  & .9338167e+03,.7847896e+03,.6357324e+03,.7111927e+03,.8429522e+03,&
19395  & .9755286e+03,.1108560e+04,.1218302e+04,.1070950e+04,.9235833e+03,&
19396  & .7762412e+03,.6289015e+03,.7105830e+03,.8424056e+03,.9749952e+03,&
19397  & .1108010e+04,.1206262e+04,.1060398e+04,.9145570e+03,.7687192e+03,&
19398  & .6229813e+03,.7097942e+03,.8416349e+03,.9742335e+03,.1107264e+04,&
19399  & .1228234e+04,.1079659e+04,.9310619e+03,.7824865e+03,.6338926e+03,&
19400  & .7111057e+03,.8429845e+03,.9755941e+03,.1108579e+04,.1212319e+04,&
19401  & .1065758e+04,.9191269e+03,.7725251e+03,.6260392e+03,.7110095e+03,&
19402  & .8429498e+03,.9756589e+03,.1108771e+04,.1198612e+04,.1053738e+04,&
19403  & .9088499e+03,.7639808e+03,.6194625e+03,.7107383e+03,.8427382e+03,&
19404  & .9755143e+03,.1108675e+04,.1186692e+04,.1043289e+04,.8999106e+03,&
19405  & .7565209e+03,.6138184e+03,.7102789e+03,.8423199e+03,.9751033e+03,&
19406  & .1108322e+04,.1176220e+04,.1034168e+04,.8920570e+03,.7499699e+03,&
19407  & .6090103e+03,.7096231e+03,.8416809e+03,.9744656e+03,.1107679e+04/
19408 
19409  data absa(451:585, 5) / &
19410  & .1189698e+04,.1045913e+04,.9021705e+03,.7583950e+03,.6153540e+03,&
19411  & .7104698e+03,.8425981e+03,.9754239e+03,.1108576e+04,.1176635e+04,&
19412  & .1034523e+04,.8923869e+03,.7502341e+03,.6094352e+03,.7104222e+03,&
19413  & .8425962e+03,.9755058e+03,.1108734e+04,.1165429e+04,.1024685e+04,&
19414  & .8839611e+03,.7432232e+03,.6045181e+03,.7101914e+03,.8424044e+03,&
19415  & .9753409e+03,.1108675e+04,.1155697e+04,.1016166e+04,.8766431e+03,&
19416  & .7371151e+03,.6003622e+03,.7097679e+03,.8420139e+03,.9749621e+03,&
19417  & .1108322e+04,.1147121e+04,.1008658e+04,.8702118e+03,.7317633e+03,&
19418  & .5967883e+03,.7091490e+03,.8413991e+03,.9743362e+03,.1107679e+04,&
19419  & .1158071e+04,.1018256e+04,.8784521e+03,.7386226e+03,.6015990e+03,&
19420  & .7099541e+03,.8422884e+03,.9752818e+03,.1108579e+04,.1147403e+04,&
19421  & .1008908e+04,.8704370e+03,.7319491e+03,.5971897e+03,.7099414e+03,&
19422  & .8423049e+03,.9753726e+03,.1108766e+04,.1138174e+04,.1000855e+04,&
19423  & .8635459e+03,.7261979e+03,.5935081e+03,.7097458e+03,.8421398e+03,&
19424  & .9752320e+03,.1108695e+04,.1130203e+04,.9938656e+03,.8575435e+03,&
19425  & .7212024e+03,.5905613e+03,.7093511e+03,.8417643e+03,.9748491e+03,&
19426  & .1108322e+04,.1123201e+04,.9877521e+03,.8522707e+03,.7168232e+03,&
19427  & .5880771e+03,.7087599e+03,.8411666e+03,.9742254e+03,.1107679e+04,&
19428  & .1132182e+04,.9955937e+03,.8590183e+03,.7224580e+03,.5914804e+03,&
19429  & .7095304e+03,.8420290e+03,.9751646e+03,.1108576e+04,.1123422e+04,&
19430  & .9879637e+03,.8524632e+03,.7169730e+03,.5885566e+03,.7095493e+03,&
19431  & .8420734e+03,.9752650e+03,.1108766e+04,.1115932e+04,.9813727e+03,&
19432  & .8468160e+03,.7122910e+03,.5862722e+03,.7093820e+03,.8419175e+03,&
19433  & .9751333e+03,.1108697e+04,.1109330e+04,.9756452e+03,.8419083e+03,&
19434  & .7081783e+03,.5843612e+03,.7090122e+03,.8415604e+03,.9747502e+03,&
19435  & .1108322e+04,.1103600e+04,.9706010e+03,.8376039e+03,.7045930e+03,&
19436  & .5827075e+03,.7084398e+03,.8409654e+03,.9741292e+03,.1107699e+04/
19437 
19438  data absa( 1:180, 6) / &
19439  & .1959531e+04,.1718854e+04,.1478161e+04,.1237527e+04,.9965716e+03,&
19440  & .7556952e+03,.8878598e+03,.1025441e+04,.1163518e+04,.1910117e+04,&
19441  & .1675238e+04,.1441129e+04,.1206451e+04,.9715933e+03,.7486894e+03,&
19442  & .8856157e+03,.1023242e+04,.1161590e+04,.1865741e+04,.1636653e+04,&
19443  & .1407543e+04,.1178524e+04,.9494810e+03,.7463519e+03,.8833101e+03,&
19444  & .1021156e+04,.1159586e+04,.1825329e+04,.1601414e+04,.1377281e+04,&
19445  & .1153436e+04,.9292048e+03,.7441661e+03,.8810616e+03,.1019015e+04,&
19446  & .1157664e+04,.1788734e+04,.1569552e+04,.1349728e+04,.1130211e+04,&
19447  & .9109703e+03,.7423144e+03,.8791860e+03,.1017194e+04,.1156120e+04,&
19448  & .1810667e+04,.1588518e+04,.1365889e+04,.1144195e+04,.9217339e+03,&
19449  & .7496752e+03,.8873525e+03,.1025601e+04,.1164351e+04,.1767935e+04,&
19450  & .1551019e+04,.1334009e+04,.1117420e+04,.9004784e+03,.7475656e+03,&
19451  & .8852456e+03,.1023476e+04,.1162461e+04,.1730070e+04,.1517401e+04,&
19452  & .1305332e+04,.1093709e+04,.8814078e+03,.7453610e+03,.8830458e+03,&
19453  & .1021470e+04,.1160440e+04,.1695360e+04,.1487399e+04,.1279829e+04,&
19454  & .1072014e+04,.8642946e+03,.7431708e+03,.8808442e+03,.1019364e+04,&
19455  & .1158466e+04,.1664351e+04,.1460274e+04,.1256503e+04,.1052675e+04,&
19456  & .8488905e+03,.7412704e+03,.8787936e+03,.1017361e+04,.1156598e+04,&
19457  & .1692847e+04,.1485753e+04,.1277843e+04,.1070752e+04,.8629425e+03,&
19458  & .7489667e+03,.8873589e+03,.1026231e+04,.1165463e+04,.1655805e+04,&
19459  & .1452438e+04,.1250044e+04,.1047170e+04,.8442632e+03,.7470728e+03,&
19460  & .8854219e+03,.1024283e+04,.1163647e+04,.1622518e+04,.1423594e+04,&
19461  & .1225186e+04,.1026305e+04,.8276242e+03,.7450344e+03,.8833410e+03,&
19462  & .1022268e+04,.1161651e+04,.1592305e+04,.1397067e+04,.1202289e+04,&
19463  & .1007702e+04,.8128099e+03,.7429351e+03,.8811642e+03,.1020198e+04,&
19464  & .1159643e+04,.1565538e+04,.1374036e+04,.1182269e+04,.9906999e+03,&
19465  & .7993235e+03,.7408812e+03,.8791490e+03,.1018131e+04,.1157722e+04,&
19466  & .1595853e+04,.1400292e+04,.1205058e+04,.1009761e+04,.8142929e+03,&
19467  & .7485108e+03,.8875129e+03,.1026919e+04,.1166552e+04,.1562424e+04,&
19468  & .1371454e+04,.1180385e+04,.9891526e+03,.7980135e+03,.7468116e+03,&
19469  & .8857444e+03,.1025101e+04,.1164785e+04,.1533329e+04,.1345902e+04,&
19470  & .1157909e+04,.9706094e+03,.7833915e+03,.7449296e+03,.8838178e+03,&
19471  & .1023113e+04,.1162949e+04,.1506815e+04,.1322783e+04,.1138509e+04,&
19472  & .9542707e+03,.7700244e+03,.7429706e+03,.8817581e+03,.1021134e+04,&
19473  & .1160909e+04,.1483525e+04,.1302151e+04,.1120847e+04,.9395369e+03,&
19474  & .7583538e+03,.7409557e+03,.8796852e+03,.1019111e+04,.1158929e+04/
19475 
19476  data absa(181:315, 6) / &
19477  & .1513129e+04,.1327990e+04,.1143143e+04,.9581972e+03,.7731973e+03,&
19478  & .7481396e+03,.8876647e+03,.1027513e+04,.1167635e+04,.1483937e+04,&
19479  & .1302350e+04,.1121247e+04,.9397374e+03,.7584554e+03,.7466326e+03,&
19480  & .8860686e+03,.1025860e+04,.1165939e+04,.1457483e+04,.1279624e+04,&
19481  & .1101680e+04,.9236394e+03,.7454131e+03,.7449496e+03,.8842965e+03,&
19482  & .1024016e+04,.1164125e+04,.1434740e+04,.1259742e+04,.1084277e+04,&
19483  & .9093323e+03,.7341125e+03,.7431059e+03,.8823611e+03,.1022090e+04,&
19484  & .1162195e+04,.1414268e+04,.1241399e+04,.1069062e+04,.8962430e+03,&
19485  & .7237532e+03,.7411783e+03,.8803301e+03,.1020088e+04,.1160046e+04,&
19486  & .1443413e+04,.1267263e+04,.1090769e+04,.9146514e+03,.7383327e+03,&
19487  & .7478733e+03,.8878478e+03,.1028105e+04,.1168673e+04,.1417362e+04,&
19488  & .1244305e+04,.1071260e+04,.8985200e+03,.7252711e+03,.7465473e+03,&
19489  & .8864251e+03,.1026618e+04,.1167048e+04,.1394536e+04,.1224485e+04,&
19490  & .1054035e+04,.8840393e+03,.7137145e+03,.7450404e+03,.8848148e+03,&
19491  & .1024911e+04,.1165266e+04,.1374225e+04,.1206403e+04,.1039030e+04,&
19492  & .8713103e+03,.7039093e+03,.7433577e+03,.8830245e+03,.1023032e+04,&
19493  & .1163474e+04,.1355994e+04,.1190773e+04,.1025482e+04,.8599459e+03,&
19494  & .6945499e+03,.7415048e+03,.8810884e+03,.1021122e+04,.1161496e+04,&
19495  & .1384460e+04,.1215767e+04,.1046795e+04,.8776721e+03,.7087541e+03,&
19496  & .7476361e+03,.8879985e+03,.1028620e+04,.1169529e+04,.1361124e+04,&
19497  & .1195393e+04,.1029345e+04,.8633440e+03,.6972452e+03,.7464861e+03,&
19498  & .8867535e+03,.1027287e+04,.1168092e+04,.1341125e+04,.1177698e+04,&
19499  & .1014028e+04,.8503722e+03,.6871520e+03,.7451498e+03,.8852979e+03,&
19500  & .1025745e+04,.1166403e+04,.1323047e+04,.1161999e+04,.1000760e+04,&
19501  & .8395248e+03,.6782983e+03,.7436254e+03,.8836587e+03,.1024005e+04,&
19502  & .1164622e+04,.1306967e+04,.1147930e+04,.9887562e+03,.8294106e+03,&
19503  & .6702789e+03,.7419326e+03,.8818404e+03,.1022008e+04,.1162734e+04/
19504 
19505  data absa(316:450, 6) / &
19506  & .1334109e+04,.1171345e+04,.1008923e+04,.8461200e+03,.6835456e+03,&
19507  & .7474174e+03,.8881153e+03,.1029011e+04,.1170451e+04,.1313327e+04,&
19508  & .1153250e+04,.9930497e+03,.8333106e+03,.6731748e+03,.7464228e+03,&
19509  & .8870239e+03,.1027877e+04,.1168986e+04,.1295219e+04,.1137547e+04,&
19510  & .9799434e+03,.8219514e+03,.6643371e+03,.7452458e+03,.8857278e+03,&
19511  & .1026491e+04,.1167438e+04,.1279553e+04,.1123751e+04,.9678431e+03,&
19512  & .8123012e+03,.6562950e+03,.7438793e+03,.8842286e+03,.1024816e+04,&
19513  & .1165703e+04,.1265724e+04,.1111449e+04,.9576137e+03,.8031933e+03,&
19514  & .6494532e+03,.7423259e+03,.8825429e+03,.1023034e+04,.1163868e+04,&
19515  & .1290515e+04,.1133583e+04,.9764835e+03,.8192474e+03,.6620508e+03,&
19516  & .7472103e+03,.8882292e+03,.1029567e+04,.1171352e+04,.1272606e+04,&
19517  & .1117592e+04,.9626389e+03,.8077755e+03,.6527492e+03,.7463629e+03,&
19518  & .8872547e+03,.1028405e+04,.1169825e+04,.1256652e+04,.1103698e+04,&
19519  & .9508267e+03,.7976036e+03,.6448586e+03,.7453404e+03,.8861112e+03,&
19520  & .1027107e+04,.1168295e+04,.1242559e+04,.1091491e+04,.9403080e+03,&
19521  & .7891129e+03,.6378974e+03,.7441189e+03,.8847532e+03,.1025673e+04,&
19522  & .1166733e+04,.1230258e+04,.1080509e+04,.9310347e+03,.7814702e+03,&
19523  & .6317827e+03,.7427070e+03,.8832010e+03,.1023957e+04,.1164903e+04,&
19524  & .1252792e+04,.1100066e+04,.9479412e+03,.7952615e+03,.6429338e+03,&
19525  & .7470122e+03,.8882931e+03,.1029973e+04,.1172174e+04,.1236775e+04,&
19526  & .1086029e+04,.9357359e+03,.7854390e+03,.6347013e+03,.7462389e+03,&
19527  & .8873859e+03,.1028765e+04,.1170458e+04,.1222725e+04,.1073962e+04,&
19528  & .9252515e+03,.7763294e+03,.6276457e+03,.7453420e+03,.8863540e+03,&
19529  & .1027586e+04,.1169067e+04,.1210413e+04,.1063428e+04,.9161707e+03,&
19530  & .7689610e+03,.6219689e+03,.7442455e+03,.8851226e+03,.1026224e+04,&
19531  & .1167546e+04,.1199891e+04,.1053872e+04,.9082626e+03,.7623785e+03,&
19532  & .6166061e+03,.7429574e+03,.8836539e+03,.1024662e+04,.1165837e+04/
19533 
19534  data absa(451:585, 6) / &
19535  & .1213435e+04,.1066122e+04,.9182536e+03,.7707858e+03,.6233804e+03,&
19536  & .7465268e+03,.8879869e+03,.1029819e+04,.1172194e+04,.1200202e+04,&
19537  & .1054292e+04,.9083498e+03,.7627042e+03,.6165912e+03,.7457906e+03,&
19538  & .8870951e+03,.1028665e+04,.1170524e+04,.1188659e+04,.1044342e+04,&
19539  & .8998639e+03,.7554328e+03,.6110074e+03,.7449213e+03,.8860867e+03,&
19540  & .1027451e+04,.1169072e+04,.1178858e+04,.1035658e+04,.8922892e+03,&
19541  & .7492634e+03,.6059606e+03,.7438596e+03,.8848729e+03,.1026124e+04,&
19542  & .1167566e+04,.1169796e+04,.1027749e+04,.8857341e+03,.7436862e+03,&
19543  & .6022412e+03,.7425912e+03,.8834588e+03,.1024571e+04,.1165837e+04,&
19544  & .1181101e+04,.1037633e+04,.8940681e+03,.7506851e+03,.6074386e+03,&
19545  & .7461265e+03,.8877353e+03,.1029711e+04,.1172179e+04,.1170091e+04,&
19546  & .1028027e+04,.8859634e+03,.7439636e+03,.6039202e+03,.7454203e+03,&
19547  & .8868566e+03,.1028531e+04,.1170527e+04,.1161160e+04,.1020142e+04,&
19548  & .8789356e+03,.7381596e+03,.6035305e+03,.7445721e+03,.8858628e+03,&
19549  & .1027386e+04,.1169067e+04,.1152818e+04,.1012820e+04,.8728840e+03,&
19550  & .7330614e+03,.6026851e+03,.7435297e+03,.8846310e+03,.1025991e+04,&
19551  & .1167566e+04,.1145364e+04,.1006499e+04,.8676452e+03,.7284487e+03,&
19552  & .6016648e+03,.7422863e+03,.8832630e+03,.1024470e+04,.1165837e+04,&
19553  & .1154769e+04,.1014599e+04,.8744908e+03,.7339035e+03,.6044416e+03,&
19554  & .7457969e+03,.8875272e+03,.1029611e+04,.1172169e+04,.1146093e+04,&
19555  & .1006648e+04,.8677377e+03,.7287407e+03,.6038007e+03,.7451183e+03,&
19556  & .8866614e+03,.1028431e+04,.1170524e+04,.1138431e+04,.1000012e+04,&
19557  & .8620420e+03,.7235398e+03,.6031357e+03,.7442908e+03,.8856774e+03,&
19558  & .1027286e+04,.1169074e+04,.1131504e+04,.9941179e+03,.8570033e+03,&
19559  & .7197199e+03,.6023129e+03,.7432633e+03,.8844627e+03,.1025923e+04,&
19560  & .1167566e+04,.1125720e+04,.9892480e+03,.8524798e+03,.7159207e+03,&
19561  & .6012892e+03,.7420375e+03,.8831033e+03,.1024380e+04,.1165837e+04/
19562 
19563  data absb( 1:175, 1) / &
19564  & .2736900e+02,.2990300e+03,.4292400e+03,.3103900e+03,.3500000e+02,&
19565  & .2715800e+02,.2989800e+03,.4274500e+03,.3084000e+03,.3500000e+02,&
19566  & .2697600e+02,.2988900e+03,.4259000e+03,.3066800e+03,.3500000e+02,&
19567  & .2681800e+02,.2987500e+03,.4245500e+03,.3051700e+03,.3500000e+02,&
19568  & .2667900e+02,.2985500e+03,.4233500e+03,.3038400e+03,.3500000e+02,&
19569  & .2684000e+02,.2986300e+03,.4247400e+03,.3053800e+03,.3500000e+02,&
19570  & .2666900e+02,.2986200e+03,.4232700e+03,.3037500e+03,.3500000e+02,&
19571  & .2652200e+02,.2985400e+03,.4219900e+03,.3023400e+03,.3500000e+02,&
19572  & .2639400e+02,.2984200e+03,.4208800e+03,.3011100e+03,.3500000e+02,&
19573  & .2628200e+02,.2982400e+03,.4199000e+03,.3000200e+03,.3500000e+02,&
19574  & .2640800e+02,.2983100e+03,.4210000e+03,.3012400e+03,.3500000e+02,&
19575  & .2627100e+02,.2983200e+03,.4198000e+03,.2999100e+03,.3500000e+02,&
19576  & .2615200e+02,.2982600e+03,.4187600e+03,.2987700e+03,.3500000e+02,&
19577  & .2604900e+02,.2981400e+03,.4178500e+03,.2977600e+03,.3500000e+02,&
19578  & .2595800e+02,.2979700e+03,.4170500e+03,.2968800e+03,.3500000e+02,&
19579  & .2605700e+02,.2980600e+03,.4179300e+03,.2978400e+03,.3500000e+02,&
19580  & .2594600e+02,.2980700e+03,.4169500e+03,.2967600e+03,.3500000e+02,&
19581  & .2585100e+02,.2980300e+03,.4161000e+03,.2958300e+03,.3500000e+02,&
19582  & .2576700e+02,.2979200e+03,.4153600e+03,.2950200e+03,.3500000e+02,&
19583  & .2569400e+02,.2977600e+03,.4147000e+03,.2943000e+03,.3500000e+02,&
19584  & .2577200e+02,.2978500e+03,.4154000e+03,.2950600e+03,.3500000e+02,&
19585  & .2568300e+02,.2978700e+03,.4146000e+03,.2941900e+03,.3500000e+02,&
19586  & .2560600e+02,.2978400e+03,.4139100e+03,.2934300e+03,.3500000e+02,&
19587  & .2553800e+02,.2977400e+03,.4133100e+03,.2927700e+03,.3500000e+02,&
19588  & .2547900e+02,.2975800e+03,.4127800e+03,.2921900e+03,.3500000e+02,&
19589  & .2554100e+02,.2976800e+03,.4133400e+03,.2928000e+03,.3500000e+02,&
19590  & .2546900e+02,.2977200e+03,.4126900e+03,.2920900e+03,.3500000e+02,&
19591  & .2540700e+02,.2976800e+03,.4121300e+03,.2914700e+03,.3500000e+02,&
19592  & .2535300e+02,.2975800e+03,.4116300e+03,.2909400e+03,.3500000e+02,&
19593  & .2530500e+02,.2974300e+03,.4112000e+03,.2904600e+03,.3500000e+02,&
19594  & .2535400e+02,.2975500e+03,.4116500e+03,.2909500e+03,.3500000e+02,&
19595  & .2529600e+02,.2975800e+03,.4111200e+03,.2903700e+03,.3500000e+02,&
19596  & .2524500e+02,.2975500e+03,.4106700e+03,.2898800e+03,.3500000e+02,&
19597  & .2520100e+02,.2974600e+03,.4102700e+03,.2894400e+03,.3500000e+02,&
19598  & .2516300e+02,.2973000e+03,.4099100e+03,.2890500e+03,.3500000e+02/
19599 
19600  data absb(176:350, 1) / &
19601  & .2520100e+02,.2974400e+03,.4102600e+03,.2894300e+03,.3500000e+02,&
19602  & .2515400e+02,.2974800e+03,.4098400e+03,.2889700e+03,.3500000e+02,&
19603  & .2511300e+02,.2974500e+03,.4094700e+03,.2885600e+03,.3500000e+02,&
19604  & .2507800e+02,.2973500e+03,.4091400e+03,.2882100e+03,.3500000e+02,&
19605  & .2504700e+02,.2971900e+03,.4088600e+03,.2879000e+03,.3500000e+02,&
19606  & .2507600e+02,.2973600e+03,.4091300e+03,.2881900e+03,.3500000e+02,&
19607  & .2503900e+02,.2973900e+03,.4087900e+03,.2878200e+03,.3500000e+02,&
19608  & .2500600e+02,.2973600e+03,.4084900e+03,.2874900e+03,.3500000e+02,&
19609  & .2497800e+02,.2972600e+03,.4082300e+03,.2872200e+03,.3500000e+02,&
19610  & .2495200e+02,.2971000e+03,.4080000e+03,.2869500e+03,.3500000e+02,&
19611  & .2497300e+02,.2972900e+03,.4081900e+03,.2871700e+03,.3500000e+02,&
19612  & .2494400e+02,.2973200e+03,.4079200e+03,.2868700e+03,.3500000e+02,&
19613  & .2491700e+02,.2972800e+03,.4076800e+03,.2866100e+03,.3500000e+02,&
19614  & .2489500e+02,.2971700e+03,.4074700e+03,.2863800e+03,.3500000e+02,&
19615  & .2487400e+02,.2970000e+03,.4072800e+03,.2861800e+03,.3500000e+02,&
19616  & .2489000e+02,.2972400e+03,.4074300e+03,.2863400e+03,.3500000e+02,&
19617  & .2486600e+02,.2972600e+03,.4072100e+03,.2861000e+03,.3500000e+02,&
19618  & .2484600e+02,.2972100e+03,.4070200e+03,.2858900e+03,.3500000e+02,&
19619  & .2482700e+02,.2971000e+03,.4068500e+03,.2857100e+03,.3500000e+02,&
19620  & .2481100e+02,.2969200e+03,.4067100e+03,.2855400e+03,.3500000e+02,&
19621  & .2482300e+02,.2972100e+03,.4068100e+03,.2856600e+03,.3500000e+02,&
19622  & .2480400e+02,.2972100e+03,.4066400e+03,.2854700e+03,.3500000e+02,&
19623  & .2478700e+02,.2971500e+03,.4064900e+03,.2853000e+03,.3500000e+02,&
19624  & .2477300e+02,.2970300e+03,.4063500e+03,.2851600e+03,.3500000e+02,&
19625  & .2476000e+02,.2968400e+03,.4062300e+03,.2850300e+03,.3500000e+02,&
19626  & .2476900e+02,.2971700e+03,.4063100e+03,.2851100e+03,.3500000e+02,&
19627  & .2475300e+02,.2971700e+03,.4061800e+03,.2849600e+03,.3500000e+02,&
19628  & .2474000e+02,.2971000e+03,.4060600e+03,.2848300e+03,.3500000e+02,&
19629  & .2472900e+02,.2969600e+03,.4059500e+03,.2847200e+03,.3500000e+02,&
19630  & .2471800e+02,.2967600e+03,.4058500e+03,.2846200e+03,.3500000e+02,&
19631  & .2472400e+02,.2971500e+03,.4059100e+03,.2846700e+03,.3500000e+02,&
19632  & .2471200e+02,.2971300e+03,.4058000e+03,.2845600e+03,.3500000e+02,&
19633  & .2470200e+02,.2970400e+03,.4057000e+03,.2844500e+03,.3500000e+02,&
19634  & .2469300e+02,.2968900e+03,.4056200e+03,.2843500e+03,.3500000e+02,&
19635  & .2468400e+02,.2966800e+03,.4055400e+03,.2842700e+03,.3500000e+02/
19636 
19637  data absb(351:525, 1) / &
19638  & .2468900e+02,.2971300e+03,.4055800e+03,.2843100e+03,.3500000e+02,&
19639  & .2467900e+02,.2970900e+03,.4055000e+03,.2842200e+03,.3500000e+02,&
19640  & .2467100e+02,.2969900e+03,.4054200e+03,.2842300e+03,.3500000e+02,&
19641  & .2466400e+02,.2968300e+03,.4053500e+03,.2840500e+03,.3500000e+02,&
19642  & .2465700e+02,.2966000e+03,.4052900e+03,.2839900e+03,.3500000e+02,&
19643  & .2466000e+02,.2971000e+03,.4053200e+03,.2840400e+03,.3500000e+02,&
19644  & .2465300e+02,.2970600e+03,.4052500e+03,.2839500e+03,.3500000e+02,&
19645  & .2464600e+02,.2969400e+03,.4051900e+03,.2838900e+03,.3500000e+02,&
19646  & .2464000e+02,.2967600e+03,.4051400e+03,.2838300e+03,.3500000e+02,&
19647  & .2463500e+02,.2965100e+03,.4050900e+03,.2837600e+03,.3500000e+02,&
19648  & .2463700e+02,.2970800e+03,.4051100e+03,.2838000e+03,.3500000e+02,&
19649  & .2463100e+02,.2970200e+03,.4050500e+03,.2837400e+03,.3500000e+02,&
19650  & .2462600e+02,.2968900e+03,.4050000e+03,.2836800e+03,.3500000e+02,&
19651  & .2462100e+02,.2966900e+03,.4049600e+03,.2836400e+03,.3500000e+02,&
19652  & .2461700e+02,.2964300e+03,.4049200e+03,.2835900e+03,.3500000e+02,&
19653  & .2461900e+02,.2970600e+03,.4049400e+03,.2836000e+03,.3500000e+02,&
19654  & .2461400e+02,.2969800e+03,.4048900e+03,.2835500e+03,.3500000e+02,&
19655  & .2461000e+02,.2968300e+03,.4048500e+03,.2835100e+03,.3500000e+02,&
19656  & .2460600e+02,.2966200e+03,.4048200e+03,.2834700e+03,.3500000e+02,&
19657  & .2460300e+02,.2963400e+03,.4047900e+03,.2834400e+03,.3500000e+02,&
19658  & .2460400e+02,.2970400e+03,.4048000e+03,.2834500e+03,.3500000e+02,&
19659  & .2460000e+02,.2969400e+03,.4047700e+03,.2834100e+03,.3500000e+02,&
19660  & .2459700e+02,.2967800e+03,.4047300e+03,.2833800e+03,.3500000e+02,&
19661  & .2459400e+02,.2965500e+03,.4047100e+03,.2833600e+03,.3500000e+02,&
19662  & .2459100e+02,.2962500e+03,.4046800e+03,.2833200e+03,.3500000e+02,&
19663  & .2459200e+02,.2970100e+03,.4046900e+03,.2833300e+03,.3500000e+02,&
19664  & .2458900e+02,.2968900e+03,.4046600e+03,.2833000e+03,.3500000e+02,&
19665  & .2458600e+02,.2967200e+03,.4046400e+03,.2832800e+03,.3500000e+02,&
19666  & .2458400e+02,.2964700e+03,.4046100e+03,.2832400e+03,.3500000e+02,&
19667  & .2458200e+02,.2961500e+03,.4045900e+03,.2832500e+03,.3500000e+02,&
19668  & .2458200e+02,.2969800e+03,.4046000e+03,.2832300e+03,.3500000e+02,&
19669  & .2458000e+02,.2968500e+03,.4045800e+03,.2832100e+03,.3500000e+02,&
19670  & .2457800e+02,.2966500e+03,.4045600e+03,.2831800e+03,.3500000e+02,&
19671  & .2457600e+02,.2963900e+03,.4045400e+03,.2831700e+03,.3500000e+02,&
19672  & .2457400e+02,.2960500e+03,.4045200e+03,.2831500e+03,.3500000e+02/
19673 
19674  data absb(526:700, 1) / &
19675  & .2457400e+02,.2969500e+03,.4045300e+03,.2831500e+03,.3500000e+02,&
19676  & .2457200e+02,.2968000e+03,.4045100e+03,.2831300e+03,.3500000e+02,&
19677  & .2457100e+02,.2965900e+03,.4044900e+03,.2831200e+03,.3500000e+02,&
19678  & .2456900e+02,.2963100e+03,.4044800e+03,.2831000e+03,.3500000e+02,&
19679  & .2456800e+02,.2959600e+03,.4044700e+03,.2830800e+03,.3500000e+02,&
19680  & .2456800e+02,.2969300e+03,.4044700e+03,.2830900e+03,.3500000e+02,&
19681  & .2456700e+02,.2967800e+03,.4044600e+03,.2830800e+03,.3500000e+02,&
19682  & .2456500e+02,.2965600e+03,.4044400e+03,.2830600e+03,.3500000e+02,&
19683  & .2456400e+02,.2962700e+03,.4044300e+03,.2830500e+03,.3500000e+02,&
19684  & .2456300e+02,.2959000e+03,.4044200e+03,.2830400e+03,.3500000e+02,&
19685  & .2456300e+02,.2969200e+03,.4044300e+03,.2830500e+03,.3500000e+02,&
19686  & .2456200e+02,.2967700e+03,.4044200e+03,.2830400e+03,.3500000e+02,&
19687  & .2456100e+02,.2965500e+03,.4044000e+03,.2830100e+03,.3500000e+02,&
19688  & .2456000e+02,.2962600e+03,.4044000e+03,.2830200e+03,.3500000e+02,&
19689  & .2455900e+02,.2958900e+03,.4043900e+03,.2830100e+03,.3500000e+02,&
19690  & .2456000e+02,.2969300e+03,.4043900e+03,.2830100e+03,.3500000e+02,&
19691  & .2455900e+02,.2967900e+03,.4043800e+03,.2829900e+03,.3500000e+02,&
19692  & .2455800e+02,.2965800e+03,.4043700e+03,.2829900e+03,.3500000e+02,&
19693  & .2455700e+02,.2963000e+03,.4043700e+03,.2829700e+03,.3500000e+02,&
19694  & .2455600e+02,.2959400e+03,.4043600e+03,.2829700e+03,.3500000e+02,&
19695  & .2455700e+02,.2969500e+03,.4043600e+03,.2829700e+03,.3500000e+02,&
19696  & .2455600e+02,.2968100e+03,.4043600e+03,.2829600e+03,.3500000e+02,&
19697  & .2455500e+02,.2966100e+03,.4043500e+03,.2829700e+03,.3500000e+02,&
19698  & .2455400e+02,.2963400e+03,.4043400e+03,.2829600e+03,.3500000e+02,&
19699  & .2455400e+02,.2959900e+03,.4043400e+03,.2829400e+03,.3500000e+02,&
19700  & .2455400e+02,.2969600e+03,.4043400e+03,.2829500e+03,.3500000e+02,&
19701  & .2455300e+02,.2968300e+03,.4043300e+03,.2829400e+03,.3500000e+02,&
19702  & .2455300e+02,.2966400e+03,.4043300e+03,.2829300e+03,.3500000e+02,&
19703  & .2455200e+02,.2963800e+03,.4043200e+03,.2829200e+03,.3500000e+02,&
19704  & .2455200e+02,.2960400e+03,.4043200e+03,.2829200e+03,.3500000e+02,&
19705  & .2455200e+02,.2969800e+03,.4043200e+03,.2829200e+03,.3500000e+02,&
19706  & .2455100e+02,.2968700e+03,.4043200e+03,.2829300e+03,.3500000e+02,&
19707  & .2455100e+02,.2966900e+03,.4043100e+03,.2829200e+03,.3500000e+02,&
19708  & .2455000e+02,.2964500e+03,.4043100e+03,.2829100e+03,.3500000e+02,&
19709  & .2455000e+02,.2961300e+03,.4043000e+03,.2829100e+03,.3500000e+02/
19710 
19711  data absb(701:875, 1) / &
19712  & .2455000e+02,.2969900e+03,.4043100e+03,.2829000e+03,.3500000e+02,&
19713  & .2455000e+02,.2969000e+03,.4043000e+03,.2829100e+03,.3500000e+02,&
19714  & .2454900e+02,.2967400e+03,.4043000e+03,.2828900e+03,.3500000e+02,&
19715  & .2454900e+02,.2965100e+03,.4042900e+03,.2829000e+03,.3500000e+02,&
19716  & .2454900e+02,.2962200e+03,.4042900e+03,.2828900e+03,.3500000e+02,&
19717  & .2454900e+02,.2970000e+03,.4042900e+03,.2828900e+03,.3500000e+02,&
19718  & .2454900e+02,.2969300e+03,.4042900e+03,.2828900e+03,.3500000e+02,&
19719  & .2454800e+02,.2967900e+03,.4042900e+03,.2828900e+03,.3500000e+02,&
19720  & .2454800e+02,.2965800e+03,.4042800e+03,.2828900e+03,.3500000e+02,&
19721  & .2454700e+02,.2963000e+03,.4042800e+03,.2828800e+03,.3500000e+02,&
19722  & .2454800e+02,.2970100e+03,.4042800e+03,.2828800e+03,.3500000e+02,&
19723  & .2454700e+02,.2969600e+03,.4042800e+03,.2828800e+03,.3500000e+02,&
19724  & .2454700e+02,.2968400e+03,.4042800e+03,.2828800e+03,.3500000e+02,&
19725  & .2454700e+02,.2966500e+03,.4042700e+03,.2828800e+03,.3500000e+02,&
19726  & .2454700e+02,.2963900e+03,.4042700e+03,.2828800e+03,.3500000e+02,&
19727  & .2454700e+02,.2970200e+03,.4042700e+03,.2828700e+03,.3500000e+02,&
19728  & .2454700e+02,.2969800e+03,.4042700e+03,.2828700e+03,.3500000e+02,&
19729  & .2454600e+02,.2968800e+03,.4042700e+03,.2828700e+03,.3500000e+02,&
19730  & .2454600e+02,.2967200e+03,.4042700e+03,.2828700e+03,.3500000e+02,&
19731  & .2454600e+02,.2964900e+03,.4042600e+03,.2828600e+03,.3500000e+02,&
19732  & .2454600e+02,.2970100e+03,.4042700e+03,.2828700e+03,.3500000e+02,&
19733  & .2454600e+02,.2970000e+03,.4042600e+03,.2828700e+03,.3500000e+02,&
19734  & .2454600e+02,.2969200e+03,.4042600e+03,.2828600e+03,.3500000e+02,&
19735  & .2454500e+02,.2967800e+03,.4042600e+03,.2828600e+03,.3500000e+02,&
19736  & .2454500e+02,.2965700e+03,.4042600e+03,.2828600e+03,.3500000e+02,&
19737  & .2454500e+02,.2969900e+03,.4042600e+03,.2828700e+03,.3500000e+02,&
19738  & .2454500e+02,.2970100e+03,.4042600e+03,.2828500e+03,.3500000e+02,&
19739  & .2454500e+02,.2969600e+03,.4042600e+03,.2828600e+03,.3500000e+02,&
19740  & .2454500e+02,.2968400e+03,.4042500e+03,.2828500e+03,.3500000e+02,&
19741  & .2454500e+02,.2966500e+03,.4042500e+03,.2828500e+03,.3500000e+02,&
19742  & .2454500e+02,.2969600e+03,.4042500e+03,.2828500e+03,.3500000e+02,&
19743  & .2454500e+02,.2970100e+03,.4042500e+03,.2828600e+03,.3500000e+02,&
19744  & .2454400e+02,.2969900e+03,.4042500e+03,.2828500e+03,.3500000e+02,&
19745  & .2454400e+02,.2969000e+03,.4042500e+03,.2828500e+03,.3500000e+02,&
19746  & .2454400e+02,.2967400e+03,.4042500e+03,.2828600e+03,.3500000e+02/
19747 
19748  data absb(876:1050, 1) / &
19749  & .2454400e+02,.2969100e+03,.4042500e+03,.2828600e+03,.3500000e+02,&
19750  & .2454400e+02,.2970000e+03,.4042500e+03,.2828500e+03,.3500000e+02,&
19751  & .2454400e+02,.2970100e+03,.4042500e+03,.2828400e+03,.3500000e+02,&
19752  & .2454400e+02,.2969400e+03,.4042500e+03,.2828500e+03,.3500000e+02,&
19753  & .2454400e+02,.2968100e+03,.4042500e+03,.2828400e+03,.3500000e+02,&
19754  & .2454400e+02,.2968500e+03,.4042500e+03,.2828400e+03,.3500000e+02,&
19755  & .2454400e+02,.2969800e+03,.4042500e+03,.2828400e+03,.3500000e+02,&
19756  & .2454400e+02,.2970100e+03,.4042400e+03,.2828400e+03,.3500000e+02,&
19757  & .2454400e+02,.2969700e+03,.4042400e+03,.2828500e+03,.3500000e+02,&
19758  & .2454400e+02,.2968700e+03,.4042400e+03,.2828400e+03,.3500000e+02,&
19759  & .2454400e+02,.2967800e+03,.4042400e+03,.2828400e+03,.3500000e+02,&
19760  & .2454400e+02,.2969400e+03,.4042400e+03,.2828400e+03,.3500000e+02,&
19761  & .2454300e+02,.2970100e+03,.4042400e+03,.2828400e+03,.3500000e+02,&
19762  & .2454300e+02,.2970000e+03,.4042400e+03,.2828400e+03,.3500000e+02,&
19763  & .2454300e+02,.2969200e+03,.4042400e+03,.2828400e+03,.3500000e+02,&
19764  & .2454300e+02,.2967000e+03,.4042400e+03,.2828400e+03,.3500000e+02,&
19765  & .2454300e+02,.2968900e+03,.4042400e+03,.2828400e+03,.3500000e+02,&
19766  & .2454300e+02,.2969900e+03,.4042400e+03,.2828400e+03,.3500000e+02,&
19767  & .2454300e+02,.2970100e+03,.4042400e+03,.2828400e+03,.3500000e+02,&
19768  & .2454300e+02,.2969500e+03,.4042400e+03,.2828400e+03,.3500000e+02,&
19769  & .2454300e+02,.2966000e+03,.4042400e+03,.2828300e+03,.3500000e+02,&
19770  & .2454300e+02,.2968400e+03,.4042400e+03,.2828300e+03,.3500000e+02,&
19771  & .2454300e+02,.2969700e+03,.4042400e+03,.2828300e+03,.3500000e+02,&
19772  & .2454300e+02,.2970100e+03,.4042400e+03,.2828300e+03,.3500000e+02,&
19773  & .2454300e+02,.2969800e+03,.4042400e+03,.2828300e+03,.3500000e+02,&
19774  & .2454300e+02,.2964800e+03,.4042400e+03,.2828300e+03,.3500000e+02,&
19775  & .2454300e+02,.2967600e+03,.4042400e+03,.2828300e+03,.3500000e+02,&
19776  & .2454300e+02,.2969300e+03,.4042400e+03,.2828400e+03,.3500000e+02,&
19777  & .2454300e+02,.2970100e+03,.4042400e+03,.2828300e+03,.3500000e+02,&
19778  & .2454300e+02,.2970000e+03,.4042400e+03,.2828400e+03,.3500000e+02,&
19779  & .2454300e+02,.2963500e+03,.4042400e+03,.2828300e+03,.3500000e+02,&
19780  & .2454300e+02,.2966800e+03,.4042400e+03,.2828400e+03,.3500000e+02,&
19781  & .2454300e+02,.2968800e+03,.4042400e+03,.2828300e+03,.3500000e+02,&
19782  & .2454300e+02,.2969900e+03,.4042300e+03,.2828300e+03,.3500000e+02,&
19783  & .2454300e+02,.2970100e+03,.4042300e+03,.2828500e+03,.3500000e+02/
19784 
19785  data absb(1051:1175, 1) / &
19786  & .2454300e+02,.2962200e+03,.4042400e+03,.2828500e+03,.3500000e+02,&
19787  & .2454300e+02,.2965900e+03,.4042300e+03,.2828300e+03,.3500000e+02,&
19788  & .2454300e+02,.2968300e+03,.4042300e+03,.2828400e+03,.3500000e+02,&
19789  & .2454300e+02,.2969600e+03,.4042300e+03,.2828300e+03,.3500000e+02,&
19790  & .2454300e+02,.2970100e+03,.4042300e+03,.2828300e+03,.3500000e+02,&
19791  & .2454300e+02,.2960700e+03,.4042300e+03,.2828300e+03,.3500000e+02,&
19792  & .2454300e+02,.2964900e+03,.4042300e+03,.2828300e+03,.3500000e+02,&
19793  & .2454300e+02,.2967600e+03,.4042300e+03,.2828300e+03,.3500000e+02,&
19794  & .2454200e+02,.2969300e+03,.4042300e+03,.2828200e+03,.3500000e+02,&
19795  & .2454200e+02,.2970000e+03,.4042300e+03,.2828300e+03,.3500000e+02,&
19796  & .2454300e+02,.2959100e+03,.4042300e+03,.2828300e+03,.3500000e+02,&
19797  & .2454200e+02,.2963700e+03,.4042300e+03,.2828300e+03,.3500000e+02,&
19798  & .2454200e+02,.2966900e+03,.4042300e+03,.2828300e+03,.3500000e+02,&
19799  & .2454200e+02,.2968900e+03,.4042300e+03,.2828300e+03,.3500000e+02,&
19800  & .2454200e+02,.2969900e+03,.4042300e+03,.2828300e+03,.3500000e+02,&
19801  & .2454200e+02,.2957400e+03,.4042300e+03,.2828200e+03,.3500000e+02,&
19802  & .2454200e+02,.2962400e+03,.4042300e+03,.2828200e+03,.3500000e+02,&
19803  & .2454200e+02,.2966000e+03,.4042300e+03,.2828300e+03,.3500000e+02,&
19804  & .2454200e+02,.2968400e+03,.4042300e+03,.2828400e+03,.3500000e+02,&
19805  & .2454200e+02,.2969700e+03,.4042300e+03,.2828200e+03,.3500000e+02,&
19806  & .2454200e+02,.2956600e+03,.4042300e+03,.2828300e+03,.3500000e+02,&
19807  & .2454200e+02,.2961900e+03,.4042300e+03,.2828200e+03,.3500000e+02,&
19808  & .2454200e+02,.2965700e+03,.4042300e+03,.2828300e+03,.3500000e+02,&
19809  & .2454200e+02,.2968200e+03,.4042300e+03,.2828300e+03,.3500000e+02,&
19810  & .2454200e+02,.2969600e+03,.4042300e+03,.2828300e+03,.3500000e+02/
19811 
19812  data absb( 1:175, 2) / &
19813  & .1017700e+03,.3276100e+03,.4557500e+03,.3133500e+03,.7183900e+02,&
19814  & .1009900e+03,.3271300e+03,.4538300e+03,.3112500e+03,.7183900e+02,&
19815  & .1003100e+03,.3266300e+03,.4521600e+03,.3094300e+03,.7183900e+02,&
19816  & .9972100e+02,.3261200e+03,.4507100e+03,.3078500e+03,.7183900e+02,&
19817  & .9920400e+02,.3255800e+03,.4494200e+03,.3064600e+03,.7183900e+02,&
19818  & .9980300e+02,.3261300e+03,.4509100e+03,.3080700e+03,.7183900e+02,&
19819  & .9916900e+02,.3257400e+03,.4493400e+03,.3063600e+03,.7183900e+02,&
19820  & .9862200e+02,.3253400e+03,.4479700e+03,.3048900e+03,.7183900e+02,&
19821  & .9814600e+02,.3249100e+03,.4467700e+03,.3036200e+03,.7183900e+02,&
19822  & .9772800e+02,.3244400e+03,.4457100e+03,.3024800e+03,.7183900e+02,&
19823  & .9819800e+02,.3249300e+03,.4469000e+03,.3037500e+03,.7183900e+02,&
19824  & .9768700e+02,.3246200e+03,.4456000e+03,.3023700e+03,.7183900e+02,&
19825  & .9724500e+02,.3242900e+03,.4444800e+03,.3011900e+03,.7183900e+02,&
19826  & .9686100e+02,.3239200e+03,.4435000e+03,.3001400e+03,.7183900e+02,&
19827  & .9652300e+02,.3235000e+03,.4426300e+03,.2992300e+03,.7183900e+02,&
19828  & .9689200e+02,.3239500e+03,.4435800e+03,.3002300e+03,.7183900e+02,&
19829  & .9648000e+02,.3237100e+03,.4425200e+03,.2991200e+03,.7183900e+02,&
19830  & .9612500e+02,.3234300e+03,.4416100e+03,.2981700e+03,.7183900e+02,&
19831  & .9581400e+02,.3231100e+03,.4408100e+03,.2973300e+03,.7183900e+02,&
19832  & .9554100e+02,.3227300e+03,.4401000e+03,.2966100e+03,.7183900e+02,&
19833  & .9583300e+02,.3231600e+03,.4408600e+03,.2973700e+03,.7183900e+02,&
19834  & .9550100e+02,.3229700e+03,.4400000e+03,.2964800e+03,.7183900e+02,&
19835  & .9521400e+02,.3227400e+03,.4392500e+03,.2956900e+03,.7183900e+02,&
19836  & .9496400e+02,.3224500e+03,.4386000e+03,.2950200e+03,.7183900e+02,&
19837  & .9474300e+02,.3221000e+03,.4380300e+03,.2944200e+03,.7183900e+02,&
19838  & .9497400e+02,.3225100e+03,.4386300e+03,.2950400e+03,.7183900e+02,&
19839  & .9470700e+02,.3223600e+03,.4379300e+03,.2943200e+03,.7183900e+02,&
19840  & .9447500e+02,.3221700e+03,.4373300e+03,.2936900e+03,.7183900e+02,&
19841  & .9427200e+02,.3219100e+03,.4368000e+03,.2931500e+03,.7183900e+02,&
19842  & .9409400e+02,.3215800e+03,.4363300e+03,.2926700e+03,.7183900e+02,&
19843  & .9427700e+02,.3219900e+03,.4368100e+03,.2931600e+03,.7183900e+02,&
19844  & .9406100e+02,.3218700e+03,.4362400e+03,.2925800e+03,.7183900e+02,&
19845  & .9387400e+02,.3217000e+03,.4357500e+03,.2920700e+03,.7183900e+02,&
19846  & .9371100e+02,.3214600e+03,.4353200e+03,.2916400e+03,.7183900e+02,&
19847  & .9356600e+02,.3211500e+03,.4349400e+03,.2912500e+03,.7183900e+02/
19848 
19849  data absb(176:350, 2) / &
19850  & .9370800e+02,.3215700e+03,.4353100e+03,.2916300e+03,.7183900e+02,&
19851  & .9353400e+02,.3214700e+03,.4348500e+03,.2911700e+03,.7183900e+02,&
19852  & .9338300e+02,.3213200e+03,.4344500e+03,.2907600e+03,.7183900e+02,&
19853  & .9325100e+02,.3210900e+03,.4341100e+03,.2904100e+03,.7183900e+02,&
19854  & .9313500e+02,.3207900e+03,.4338000e+03,.2901000e+03,.7183900e+02,&
19855  & .9324600e+02,.3212200e+03,.4340900e+03,.2904000e+03,.7183900e+02,&
19856  & .9310600e+02,.3211400e+03,.4337200e+03,.2900300e+03,.7183900e+02,&
19857  & .9298500e+02,.3210000e+03,.4334000e+03,.2897000e+03,.7183900e+02,&
19858  & .9287800e+02,.3207900e+03,.4331100e+03,.2894100e+03,.7183900e+02,&
19859  & .9278400e+02,.3204900e+03,.4328600e+03,.2891700e+03,.7183900e+02,&
19860  & .9286300e+02,.3209400e+03,.4330700e+03,.2893800e+03,.7183900e+02,&
19861  & .9275100e+02,.3208700e+03,.4327800e+03,.2890800e+03,.7183900e+02,&
19862  & .9265500e+02,.3207300e+03,.4325200e+03,.2888200e+03,.7183900e+02,&
19863  & .9256900e+02,.3205100e+03,.4322900e+03,.2886000e+03,.7183900e+02,&
19864  & .9249400e+02,.3202200e+03,.4320900e+03,.2884000e+03,.7183900e+02,&
19865  & .9255300e+02,.3207200e+03,.4322500e+03,.2885500e+03,.7183900e+02,&
19866  & .9246500e+02,.3206400e+03,.4320100e+03,.2883200e+03,.7183900e+02,&
19867  & .9238700e+02,.3205000e+03,.4318000e+03,.2881100e+03,.7183900e+02,&
19868  & .9231900e+02,.3202900e+03,.4316200e+03,.2879300e+03,.7183900e+02,&
19869  & .9225900e+02,.3199800e+03,.4314600e+03,.2877800e+03,.7183900e+02,&
19870  & .9230300e+02,.3205300e+03,.4315800e+03,.2878900e+03,.7183900e+02,&
19871  & .9223300e+02,.3204600e+03,.4313900e+03,.2877000e+03,.7183900e+02,&
19872  & .9217100e+02,.3203100e+03,.4312200e+03,.2875400e+03,.7183900e+02,&
19873  & .9211700e+02,.3200900e+03,.4310800e+03,.2874000e+03,.7183900e+02,&
19874  & .9206800e+02,.3197800e+03,.4309500e+03,.2872700e+03,.7183900e+02,&
19875  & .9210100e+02,.3203800e+03,.4310300e+03,.2873600e+03,.7183900e+02,&
19876  & .9204500e+02,.3203000e+03,.4308800e+03,.2872100e+03,.7183900e+02,&
19877  & .9199600e+02,.3201500e+03,.4307500e+03,.2870800e+03,.7183900e+02,&
19878  & .9195200e+02,.3199100e+03,.4306400e+03,.2869600e+03,.7183900e+02,&
19879  & .9191400e+02,.3195900e+03,.4305300e+03,.2868400e+03,.7183900e+02,&
19880  & .9193700e+02,.3202500e+03,.4305900e+03,.2869300e+03,.7183900e+02,&
19881  & .9189200e+02,.3201600e+03,.4304700e+03,.2868000e+03,.7183900e+02,&
19882  & .9185300e+02,.3200000e+03,.4303700e+03,.2867000e+03,.7183900e+02,&
19883  & .9181900e+02,.3197500e+03,.4302800e+03,.2866100e+03,.7183900e+02,&
19884  & .9178800e+02,.3194200e+03,.4301900e+03,.2865300e+03,.7183900e+02/
19885 
19886  data absb(351:525, 2) / &
19887  & .9180500e+02,.3201500e+03,.4302400e+03,.2865800e+03,.7183900e+02,&
19888  & .9177000e+02,.3200500e+03,.4301400e+03,.2864800e+03,.7183900e+02,&
19889  & .9173800e+02,.3198600e+03,.4300600e+03,.2863000e+03,.7183900e+02,&
19890  & .9171100e+02,.3196000e+03,.4299800e+03,.2863300e+03,.7183900e+02,&
19891  & .9168700e+02,.3192500e+03,.4299200e+03,.2862600e+03,.7183900e+02,&
19892  & .9169800e+02,.3200500e+03,.4299500e+03,.2862800e+03,.7183900e+02,&
19893  & .9167000e+02,.3199400e+03,.4298700e+03,.2862200e+03,.7183900e+02,&
19894  & .9164600e+02,.3197400e+03,.4298100e+03,.2861500e+03,.7183900e+02,&
19895  & .9162400e+02,.3194600e+03,.4297500e+03,.2860900e+03,.7183900e+02,&
19896  & .9160400e+02,.3191000e+03,.4297000e+03,.2860500e+03,.7183900e+02,&
19897  & .9161300e+02,.3199700e+03,.4297200e+03,.2860500e+03,.7183900e+02,&
19898  & .9159100e+02,.3198400e+03,.4296600e+03,.2860000e+03,.7183900e+02,&
19899  & .9157100e+02,.3196300e+03,.4296000e+03,.2859500e+03,.7183900e+02,&
19900  & .9155400e+02,.3193300e+03,.4295600e+03,.2859000e+03,.7183900e+02,&
19901  & .9153800e+02,.3189500e+03,.4295200e+03,.2858600e+03,.7183900e+02,&
19902  & .9154400e+02,.3199000e+03,.4295300e+03,.2858900e+03,.7183900e+02,&
19903  & .9152600e+02,.3197500e+03,.4294800e+03,.2858400e+03,.7183900e+02,&
19904  & .9151100e+02,.3195200e+03,.4294400e+03,.2858000e+03,.7183900e+02,&
19905  & .9149700e+02,.3192000e+03,.4294000e+03,.2857700e+03,.7183900e+02,&
19906  & .9148400e+02,.3188000e+03,.4293700e+03,.2857300e+03,.7183900e+02,&
19907  & .9148800e+02,.3198300e+03,.4293800e+03,.2857400e+03,.7183900e+02,&
19908  & .9147400e+02,.3196600e+03,.4293400e+03,.2857100e+03,.7183900e+02,&
19909  & .9146200e+02,.3194100e+03,.4293100e+03,.2856700e+03,.7183900e+02,&
19910  & .9145100e+02,.3190800e+03,.4292800e+03,.2856400e+03,.7183900e+02,&
19911  & .9144100e+02,.3186600e+03,.4292500e+03,.2856200e+03,.7183900e+02,&
19912  & .9144300e+02,.3197600e+03,.4292600e+03,.2856200e+03,.7183900e+02,&
19913  & .9143200e+02,.3195800e+03,.4292300e+03,.2855900e+03,.7183900e+02,&
19914  & .9142300e+02,.3193000e+03,.4292000e+03,.2855700e+03,.7183900e+02,&
19915  & .9141400e+02,.3189500e+03,.4291800e+03,.2855500e+03,.7183900e+02,&
19916  & .9140600e+02,.3185100e+03,.4291600e+03,.2855100e+03,.7183900e+02,&
19917  & .9140700e+02,.3197000e+03,.4291600e+03,.2855300e+03,.7183900e+02,&
19918  & .9139900e+02,.3194900e+03,.4291400e+03,.2855100e+03,.7183900e+02,&
19919  & .9139100e+02,.3192000e+03,.4291200e+03,.2854900e+03,.7183900e+02,&
19920  & .9138400e+02,.3188200e+03,.4291000e+03,.2854700e+03,.7183900e+02,&
19921  & .9137800e+02,.3183700e+03,.4290800e+03,.2854600e+03,.7183900e+02/
19922 
19923  data absb(526:700, 2) / &
19924  & .9137900e+02,.3196400e+03,.4290800e+03,.2854600e+03,.7183900e+02,&
19925  & .9137200e+02,.3194100e+03,.4290600e+03,.2854400e+03,.7183900e+02,&
19926  & .9136500e+02,.3191000e+03,.4290500e+03,.2854200e+03,.7183900e+02,&
19927  & .9136000e+02,.3187100e+03,.4290300e+03,.2854100e+03,.7183900e+02,&
19928  & .9135500e+02,.3182400e+03,.4290200e+03,.2854000e+03,.7183900e+02,&
19929  & .9135600e+02,.3196000e+03,.4290200e+03,.2853900e+03,.7183900e+02,&
19930  & .9135000e+02,.3193600e+03,.4290100e+03,.2853800e+03,.7183900e+02,&
19931  & .9134500e+02,.3190400e+03,.4289900e+03,.2853700e+03,.7183900e+02,&
19932  & .9134100e+02,.3186300e+03,.4289800e+03,.2853500e+03,.7183900e+02,&
19933  & .9133700e+02,.3181600e+03,.4289700e+03,.2853500e+03,.7183900e+02,&
19934  & .9133800e+02,.3195800e+03,.4289700e+03,.2853500e+03,.7183900e+02,&
19935  & .9133400e+02,.3193400e+03,.4289600e+03,.2853300e+03,.7183900e+02,&
19936  & .9133000e+02,.3190200e+03,.4289500e+03,.2853300e+03,.7183900e+02,&
19937  & .9132600e+02,.3186200e+03,.4289400e+03,.2853000e+03,.7183900e+02,&
19938  & .9132300e+02,.3181400e+03,.4289300e+03,.2853000e+03,.7183900e+02,&
19939  & .9132400e+02,.3195900e+03,.4289400e+03,.2853100e+03,.7183900e+02,&
19940  & .9132000e+02,.3193700e+03,.4289300e+03,.2853000e+03,.7183900e+02,&
19941  & .9131700e+02,.3190600e+03,.4289200e+03,.2852900e+03,.7183900e+02,&
19942  & .9131400e+02,.3186600e+03,.4289100e+03,.2852900e+03,.7183900e+02,&
19943  & .9131100e+02,.3181900e+03,.4289000e+03,.2852700e+03,.7183900e+02,&
19944  & .9131300e+02,.3196100e+03,.4289000e+03,.2852800e+03,.7183900e+02,&
19945  & .9131000e+02,.3193900e+03,.4289000e+03,.2852800e+03,.7183900e+02,&
19946  & .9130700e+02,.3191000e+03,.4288900e+03,.2852600e+03,.7183900e+02,&
19947  & .9130400e+02,.3187100e+03,.4288800e+03,.2852500e+03,.7183900e+02,&
19948  & .9130200e+02,.3182600e+03,.4288800e+03,.2852500e+03,.7183900e+02,&
19949  & .9130300e+02,.3196200e+03,.4288800e+03,.2852500e+03,.7183900e+02,&
19950  & .9130100e+02,.3194200e+03,.4288700e+03,.2852500e+03,.7183900e+02,&
19951  & .9129800e+02,.3191400e+03,.4288600e+03,.2852500e+03,.7183900e+02,&
19952  & .9129600e+02,.3187700e+03,.4288600e+03,.2852400e+03,.7183900e+02,&
19953  & .9129400e+02,.3183200e+03,.4288500e+03,.2852300e+03,.7183900e+02,&
19954  & .9129600e+02,.3196500e+03,.4288600e+03,.2852400e+03,.7183900e+02,&
19955  & .9129300e+02,.3194700e+03,.4288500e+03,.2852200e+03,.7183900e+02,&
19956  & .9129200e+02,.3192100e+03,.4288500e+03,.2852200e+03,.7183900e+02,&
19957  & .9129000e+02,.3188600e+03,.4288400e+03,.2852200e+03,.7183900e+02,&
19958  & .9128800e+02,.3184300e+03,.4288400e+03,.2852100e+03,.7183900e+02/
19959 
19960  data absb(701:875, 2) / &
19961  & .9128900e+02,.3196800e+03,.4288400e+03,.2852300e+03,.7183900e+02,&
19962  & .9128800e+02,.3195200e+03,.4288400e+03,.2852100e+03,.7183900e+02,&
19963  & .9128600e+02,.3192800e+03,.4288300e+03,.2852200e+03,.7183900e+02,&
19964  & .9128400e+02,.3189500e+03,.4288300e+03,.2852100e+03,.7183900e+02,&
19965  & .9128300e+02,.3185400e+03,.4288200e+03,.2852100e+03,.7183900e+02,&
19966  & .9128400e+02,.3197000e+03,.4288300e+03,.2852100e+03,.7183900e+02,&
19967  & .9128300e+02,.3195700e+03,.4288200e+03,.2852100e+03,.7183900e+02,&
19968  & .9128100e+02,.3193400e+03,.4288200e+03,.2852000e+03,.7183900e+02,&
19969  & .9128000e+02,.3190400e+03,.4288200e+03,.2851900e+03,.7183900e+02,&
19970  & .9127900e+02,.3186500e+03,.4288100e+03,.2852000e+03,.7183900e+02,&
19971  & .9128000e+02,.3197200e+03,.4288200e+03,.2852000e+03,.7183900e+02,&
19972  & .9127900e+02,.3196100e+03,.4288100e+03,.2852000e+03,.7183900e+02,&
19973  & .9127700e+02,.3194200e+03,.4288100e+03,.2851900e+03,.7183900e+02,&
19974  & .9127600e+02,.3191400e+03,.4288100e+03,.2851800e+03,.7183900e+02,&
19975  & .9127500e+02,.3187800e+03,.4288000e+03,.2851800e+03,.7183900e+02,&
19976  & .9127600e+02,.3197400e+03,.4288100e+03,.2851900e+03,.7183900e+02,&
19977  & .9127500e+02,.3196600e+03,.4288000e+03,.2851900e+03,.7183900e+02,&
19978  & .9127400e+02,.3194900e+03,.4288000e+03,.2851800e+03,.7183900e+02,&
19979  & .9127300e+02,.3192400e+03,.4288000e+03,.2851800e+03,.7183900e+02,&
19980  & .9127300e+02,.3189000e+03,.4288000e+03,.2851800e+03,.7183900e+02,&
19981  & .9127400e+02,.3197400e+03,.4288000e+03,.2851800e+03,.7183900e+02,&
19982  & .9127300e+02,.3196900e+03,.4288000e+03,.2851700e+03,.7183900e+02,&
19983  & .9127200e+02,.3195500e+03,.4287900e+03,.2851800e+03,.7183900e+02,&
19984  & .9127100e+02,.3193300e+03,.4287900e+03,.2851700e+03,.7183900e+02,&
19985  & .9127000e+02,.3190300e+03,.4287900e+03,.2851700e+03,.7183900e+02,&
19986  & .9127100e+02,.3197400e+03,.4287900e+03,.2851600e+03,.7183900e+02,&
19987  & .9127000e+02,.3197200e+03,.4287900e+03,.2851700e+03,.7183900e+02,&
19988  & .9127000e+02,.3196100e+03,.4287900e+03,.2851700e+03,.7183900e+02,&
19989  & .9126900e+02,.3194200e+03,.4287900e+03,.2851700e+03,.7183900e+02,&
19990  & .9126800e+02,.3191400e+03,.4287800e+03,.2851600e+03,.7183900e+02,&
19991  & .9126900e+02,.3197300e+03,.4287900e+03,.2851700e+03,.7183900e+02,&
19992  & .9126800e+02,.3197400e+03,.4287800e+03,.2851600e+03,.7183900e+02,&
19993  & .9126800e+02,.3196600e+03,.4287800e+03,.2851600e+03,.7183900e+02,&
19994  & .9126700e+02,.3195100e+03,.4287800e+03,.2851600e+03,.7183900e+02,&
19995  & .9126700e+02,.3192600e+03,.4287800e+03,.2851500e+03,.7183900e+02/
19996 
19997  data absb(876:1050, 2) / &
19998  & .9126700e+02,.3197000e+03,.4287800e+03,.2851600e+03,.7183900e+02,&
19999  & .9126700e+02,.3197400e+03,.4287800e+03,.2851600e+03,.7183900e+02,&
20000  & .9126600e+02,.3197000e+03,.4287800e+03,.2851700e+03,.7183900e+02,&
20001  & .9126600e+02,.3195800e+03,.4287800e+03,.2851500e+03,.7183900e+02,&
20002  & .9126500e+02,.3193700e+03,.4287800e+03,.2851600e+03,.7183900e+02,&
20003  & .9126600e+02,.3196600e+03,.4287800e+03,.2851600e+03,.7183900e+02,&
20004  & .9126500e+02,.3197300e+03,.4287800e+03,.2851600e+03,.7183900e+02,&
20005  & .9126500e+02,.3197300e+03,.4287700e+03,.2851600e+03,.7183900e+02,&
20006  & .9126500e+02,.3196400e+03,.4287800e+03,.2851500e+03,.7183900e+02,&
20007  & .9126400e+02,.3194600e+03,.4287700e+03,.2851500e+03,.7183900e+02,&
20008  & .9126500e+02,.3196200e+03,.4287700e+03,.2851600e+03,.7183900e+02,&
20009  & .9126400e+02,.3197200e+03,.4287700e+03,.2851500e+03,.7183900e+02,&
20010  & .9126400e+02,.3197400e+03,.4287700e+03,.2851500e+03,.7183900e+02,&
20011  & .9126400e+02,.3196800e+03,.4287700e+03,.2851500e+03,.7183900e+02,&
20012  & .9126300e+02,.3195400e+03,.4287700e+03,.2851500e+03,.7183900e+02,&
20013  & .9126400e+02,.3195800e+03,.4287700e+03,.2851500e+03,.7183900e+02,&
20014  & .9126300e+02,.3196900e+03,.4287700e+03,.2851500e+03,.7183900e+02,&
20015  & .9126300e+02,.3197400e+03,.4287700e+03,.2851500e+03,.7183900e+02,&
20016  & .9126300e+02,.3197100e+03,.4287700e+03,.2851500e+03,.7183900e+02,&
20017  & .9126200e+02,.3196000e+03,.4287700e+03,.2851500e+03,.7183900e+02,&
20018  & .9126300e+02,.3195300e+03,.4287700e+03,.2851500e+03,.7183900e+02,&
20019  & .9126300e+02,.3196500e+03,.4287700e+03,.2851500e+03,.7183900e+02,&
20020  & .9126200e+02,.3197300e+03,.4287700e+03,.2851500e+03,.7183900e+02,&
20021  & .9126200e+02,.3197300e+03,.4287700e+03,.2851500e+03,.7183900e+02,&
20022  & .9126200e+02,.3196500e+03,.4287700e+03,.2851500e+03,.7183900e+02,&
20023  & .9126200e+02,.3194800e+03,.4287700e+03,.2851500e+03,.7183900e+02,&
20024  & .9126200e+02,.3196100e+03,.4287700e+03,.2851500e+03,.7183900e+02,&
20025  & .9126200e+02,.3197100e+03,.4287700e+03,.2851500e+03,.7183900e+02,&
20026  & .9126100e+02,.3197400e+03,.4287600e+03,.2851500e+03,.7183900e+02,&
20027  & .9126100e+02,.3196900e+03,.4287600e+03,.2851400e+03,.7183900e+02,&
20028  & .9126200e+02,.3194200e+03,.4287700e+03,.2851500e+03,.7183900e+02,&
20029  & .9126100e+02,.3195700e+03,.4287700e+03,.2851400e+03,.7183900e+02,&
20030  & .9126100e+02,.3196800e+03,.4287600e+03,.2851500e+03,.7183900e+02,&
20031  & .9126100e+02,.3197300e+03,.4287600e+03,.2851500e+03,.7183900e+02,&
20032  & .9126100e+02,.3197100e+03,.4287600e+03,.2851300e+03,.7183900e+02/
20033 
20034  data absb(1051:1175, 2) / &
20035  & .9126100e+02,.3193700e+03,.4287600e+03,.2851300e+03,.7183900e+02,&
20036  & .9126100e+02,.3195300e+03,.4287600e+03,.2851500e+03,.7183900e+02,&
20037  & .9126100e+02,.3196500e+03,.4287600e+03,.2851300e+03,.7183900e+02,&
20038  & .9126100e+02,.3197300e+03,.4287600e+03,.2851400e+03,.7183900e+02,&
20039  & .9126000e+02,.3197300e+03,.4287600e+03,.2851500e+03,.7183900e+02,&
20040  & .9126100e+02,.3193200e+03,.4287600e+03,.2851400e+03,.7183900e+02,&
20041  & .9126000e+02,.3194700e+03,.4287600e+03,.2851500e+03,.7183900e+02,&
20042  & .9126000e+02,.3196100e+03,.4287600e+03,.2851500e+03,.7183900e+02,&
20043  & .9126000e+02,.3197100e+03,.4287600e+03,.2851500e+03,.7183900e+02,&
20044  & .9126000e+02,.3197400e+03,.4287600e+03,.2851500e+03,.7183900e+02,&
20045  & .9126000e+02,.3192700e+03,.4287600e+03,.2851400e+03,.7183900e+02,&
20046  & .9126000e+02,.3194300e+03,.4287600e+03,.2851400e+03,.7183900e+02,&
20047  & .9126000e+02,.3195700e+03,.4287600e+03,.2851500e+03,.7183900e+02,&
20048  & .9126000e+02,.3196800e+03,.4287600e+03,.2851400e+03,.7183900e+02,&
20049  & .9126000e+02,.3197400e+03,.4287600e+03,.2851400e+03,.7183900e+02,&
20050  & .9126000e+02,.3192200e+03,.4287600e+03,.2851500e+03,.7183900e+02,&
20051  & .9126000e+02,.3193800e+03,.4287600e+03,.2851500e+03,.7183900e+02,&
20052  & .9126000e+02,.3195300e+03,.4287600e+03,.2851400e+03,.7183900e+02,&
20053  & .9126000e+02,.3196500e+03,.4287600e+03,.2851300e+03,.7183900e+02,&
20054  & .9126000e+02,.3197300e+03,.4287600e+03,.2851500e+03,.7183900e+02,&
20055  & .9126000e+02,.3192000e+03,.4287600e+03,.2851400e+03,.7183900e+02,&
20056  & .9126000e+02,.3193600e+03,.4287600e+03,.2851500e+03,.7183900e+02,&
20057  & .9125900e+02,.3195200e+03,.4287600e+03,.2851500e+03,.7183900e+02,&
20058  & .9125900e+02,.3196400e+03,.4287600e+03,.2851400e+03,.7183900e+02,&
20059  & .9125900e+02,.3197200e+03,.4287600e+03,.2851400e+03,.7183900e+02/
20060 
20061  data absb( 1:175, 3) / &
20062  & .3836807e+03,.4141833e+03,.5172110e+03,.3640918e+03,.2774131e+03,&
20063  & .3807168e+03,.4119655e+03,.5153720e+03,.3628289e+03,.2774131e+03,&
20064  & .3781683e+03,.4100543e+03,.5137563e+03,.3617431e+03,.2774131e+03,&
20065  & .3759505e+03,.4084000e+03,.5123154e+03,.3608140e+03,.2774131e+03,&
20066  & .3739993e+03,.4069430e+03,.5110249e+03,.3599960e+03,.2774131e+03,&
20067  & .3762615e+03,.4086321e+03,.5121752e+03,.3609451e+03,.2774131e+03,&
20068  & .3738708e+03,.4068442e+03,.5106639e+03,.3599404e+03,.2774131e+03,&
20069  & .3718062e+03,.4053084e+03,.5093378e+03,.3590820e+03,.2774131e+03,&
20070  & .3700131e+03,.4039599e+03,.5081625e+03,.3583348e+03,.2774131e+03,&
20071  & .3684325e+03,.4027847e+03,.5070887e+03,.3576839e+03,.2774131e+03,&
20072  & .3702108e+03,.4041080e+03,.5079686e+03,.3584156e+03,.2774131e+03,&
20073  & .3682844e+03,.4026711e+03,.5067285e+03,.3576132e+03,.2774131e+03,&
20074  & .3666197e+03,.4014215e+03,.5056295e+03,.3569267e+03,.2774131e+03,&
20075  & .3651676e+03,.4003400e+03,.5046264e+03,.3563362e+03,.2774131e+03,&
20076  & .3638932e+03,.3993817e+03,.5037145e+03,.3558113e+03,.2774131e+03,&
20077  & .3652861e+03,.4004288e+03,.5043985e+03,.3563818e+03,.2774131e+03,&
20078  & .3637351e+03,.3992685e+03,.5033654e+03,.3557405e+03,.2774131e+03,&
20079  & .3623914e+03,.3982658e+03,.5024332e+03,.3551856e+03,.2774131e+03,&
20080  & .3612211e+03,.3973916e+03,.5015961e+03,.3547114e+03,.2774131e+03,&
20081  & .3601936e+03,.3966211e+03,.5008297e+03,.3542768e+03,.2774131e+03,&
20082  & .3612951e+03,.3974409e+03,.5013689e+03,.3547466e+03,.2774131e+03,&
20083  & .3600403e+03,.3965075e+03,.5005214e+03,.3542320e+03,.2774131e+03,&
20084  & .3589636e+03,.3957025e+03,.4997495e+03,.3537982e+03,.2774131e+03,&
20085  & .3580154e+03,.3949965e+03,.4990576e+03,.3534148e+03,.2774131e+03,&
20086  & .3571805e+03,.3943741e+03,.4984268e+03,.3530769e+03,.2774131e+03,&
20087  & .3580546e+03,.3950209e+03,.4988311e+03,.3534300e+03,.2774131e+03,&
20088  & .3570472e+03,.3942704e+03,.4981389e+03,.3530214e+03,.2774131e+03,&
20089  & .3561678e+03,.3936184e+03,.4975118e+03,.3526631e+03,.2774131e+03,&
20090  & .3554121e+03,.3930456e+03,.4969402e+03,.3523553e+03,.2774131e+03,&
20091  & .3547353e+03,.3925469e+03,.4964247e+03,.3520830e+03,.2774131e+03,&
20092  & .3554270e+03,.3930604e+03,.4967238e+03,.3523605e+03,.2774131e+03,&
20093  & .3546120e+03,.3924480e+03,.4961563e+03,.3520326e+03,.2774131e+03,&
20094  & .3539056e+03,.3919245e+03,.4956492e+03,.3517500e+03,.2774131e+03,&
20095  & .3532932e+03,.3914654e+03,.4951929e+03,.3514977e+03,.2774131e+03,&
20096  & .3527448e+03,.3910603e+03,.4947773e+03,.3512758e+03,.2774131e+03/
20097 
20098  data absb(176:350, 3) / &
20099  & .3532784e+03,.3914554e+03,.4949665e+03,.3514929e+03,.2774131e+03,&
20100  & .3526264e+03,.3909667e+03,.4945186e+03,.3512254e+03,.2774131e+03,&
20101  & .3520584e+03,.3905468e+03,.4941167e+03,.3509983e+03,.2774131e+03,&
20102  & .3515593e+03,.3901714e+03,.4937504e+03,.3507916e+03,.2774131e+03,&
20103  & .3511198e+03,.3898455e+03,.4934100e+03,.3506149e+03,.2774131e+03,&
20104  & .3515397e+03,.3901565e+03,.4935235e+03,.3507864e+03,.2774131e+03,&
20105  & .3510113e+03,.3897615e+03,.4931757e+03,.3505745e+03,.2774131e+03,&
20106  & .3505518e+03,.3894209e+03,.4928538e+03,.3503830e+03,.2774131e+03,&
20107  & .3501516e+03,.3891195e+03,.4925527e+03,.3502215e+03,.2774131e+03,&
20108  & .3498009e+03,.3888529e+03,.4922746e+03,.3500751e+03,.2774131e+03,&
20109  & .3500923e+03,.3890750e+03,.4923299e+03,.3501963e+03,.2774131e+03,&
20110  & .3496725e+03,.3887640e+03,.4920480e+03,.3500247e+03,.2774131e+03,&
20111  & .3493070e+03,.3884875e+03,.4917957e+03,.3498784e+03,.2774131e+03,&
20112  & .3489908e+03,.3882505e+03,.4915549e+03,.3497473e+03,.2774131e+03,&
20113  & .3487043e+03,.3880380e+03,.4913246e+03,.3496361e+03,.2774131e+03,&
20114  & .3489268e+03,.3882061e+03,.4913510e+03,.3497221e+03,.2774131e+03,&
20115  & .3485958e+03,.3879591e+03,.4911335e+03,.3495858e+03,.2774131e+03,&
20116  & .3483044e+03,.3877418e+03,.4909320e+03,.3494698e+03,.2774131e+03,&
20117  & .3480474e+03,.3875440e+03,.4907313e+03,.3493639e+03,.2774131e+03,&
20118  & .3478153e+03,.3873763e+03,.4905513e+03,.3492731e+03,.2774131e+03,&
20119  & .3479882e+03,.3874996e+03,.4905518e+03,.3493387e+03,.2774131e+03,&
20120  & .3477164e+03,.3873023e+03,.4903795e+03,.3492327e+03,.2774131e+03,&
20121  & .3474843e+03,.3871294e+03,.4902184e+03,.3491368e+03,.2774131e+03,&
20122  & .3472817e+03,.3869713e+03,.4900628e+03,.3490560e+03,.2774131e+03,&
20123  & .3470992e+03,.3868380e+03,.4899176e+03,.3489804e+03,.2774131e+03,&
20124  & .3472225e+03,.3869268e+03,.4898977e+03,.3490308e+03,.2774131e+03,&
20125  & .3470103e+03,.3867739e+03,.4897703e+03,.3489501e+03,.2774131e+03,&
20126  & .3468274e+03,.3866354e+03,.4896391e+03,.3488745e+03,.2774131e+03,&
20127  & .3466645e+03,.3865122e+03,.4895135e+03,.3488037e+03,.2774131e+03,&
20128  & .3465212e+03,.3864033e+03,.4893984e+03,.3487433e+03,.2774131e+03,&
20129  & .3466053e+03,.3864725e+03,.4893673e+03,.3487785e+03,.2774131e+03,&
20130  & .3464372e+03,.3863441e+03,.4892706e+03,.3487130e+03,.2774131e+03,&
20131  & .3462891e+03,.3862356e+03,.4891699e+03,.3486526e+03,.2774131e+03,&
20132  & .3461606e+03,.3861367e+03,.4890743e+03,.3485970e+03,.2774131e+03,&
20133  & .3460421e+03,.3860479e+03,.4889791e+03,.3485566e+03,.2774131e+03/
20134 
20135  data absb(351:525, 3) / &
20136  & .3461062e+03,.3860971e+03,.4889425e+03,.3485818e+03,.2774131e+03,&
20137  & .3459729e+03,.3859934e+03,.4888662e+03,.3485263e+03,.2774131e+03,&
20138  & .3458544e+03,.3859146e+03,.4887903e+03,.3484759e+03,.2774131e+03,&
20139  & .3457556e+03,.3858305e+03,.4887099e+03,.3484355e+03,.2774131e+03,&
20140  & .3456567e+03,.3857613e+03,.4886347e+03,.3484003e+03,.2774131e+03,&
20141  & .3457063e+03,.3858009e+03,.4885977e+03,.3484155e+03,.2774131e+03,&
20142  & .3455975e+03,.3857169e+03,.4885414e+03,.3483751e+03,.2774131e+03,&
20143  & .3455086e+03,.3856528e+03,.4884806e+03,.3483347e+03,.2774131e+03,&
20144  & .3454245e+03,.3855836e+03,.4884203e+03,.3483044e+03,.2774131e+03,&
20145  & .3453505e+03,.3855291e+03,.4883603e+03,.3482740e+03,.2774131e+03,&
20146  & .3453801e+03,.3855539e+03,.4883177e+03,.3482844e+03,.2774131e+03,&
20147  & .3452961e+03,.3854947e+03,.4882766e+03,.3482540e+03,.2774131e+03,&
20148  & .3452220e+03,.3854355e+03,.4882358e+03,.3482236e+03,.2774131e+03,&
20149  & .3451580e+03,.3853910e+03,.4881858e+03,.3481984e+03,.2774131e+03,&
20150  & .3450987e+03,.3853414e+03,.4881306e+03,.3481732e+03,.2774131e+03,&
20151  & .3451183e+03,.3853614e+03,.4880977e+03,.3481784e+03,.2774131e+03,&
20152  & .3450543e+03,.3853170e+03,.4880718e+03,.3481480e+03,.2774131e+03,&
20153  & .3449999e+03,.3852674e+03,.4880362e+03,.3481328e+03,.2774131e+03,&
20154  & .3449454e+03,.3852281e+03,.4879958e+03,.3481076e+03,.2774131e+03,&
20155  & .3448962e+03,.3851933e+03,.4879510e+03,.3480925e+03,.2774131e+03,&
20156  & .3449110e+03,.3852033e+03,.4879177e+03,.3480925e+03,.2774131e+03,&
20157  & .3448566e+03,.3851637e+03,.4878970e+03,.3480725e+03,.2774131e+03,&
20158  & .3448121e+03,.3851293e+03,.4878714e+03,.3480521e+03,.2774131e+03,&
20159  & .3447725e+03,.3850996e+03,.4878362e+03,.3480369e+03,.2774131e+03,&
20160  & .3447381e+03,.3850700e+03,.4878014e+03,.3480269e+03,.2774131e+03,&
20161  & .3447429e+03,.3850800e+03,.4877729e+03,.3480269e+03,.2774131e+03,&
20162  & .3446985e+03,.3850504e+03,.4877618e+03,.3480117e+03,.2774131e+03,&
20163  & .3446640e+03,.3850156e+03,.4877414e+03,.3479917e+03,.2774131e+03,&
20164  & .3446344e+03,.3849960e+03,.4877114e+03,.3479765e+03,.2774131e+03,&
20165  & .3445996e+03,.3849712e+03,.4876818e+03,.3479665e+03,.2774131e+03,&
20166  & .3446096e+03,.3849812e+03,.4876577e+03,.3479713e+03,.2774131e+03,&
20167  & .3445752e+03,.3849515e+03,.4876518e+03,.3479613e+03,.2774131e+03,&
20168  & .3445456e+03,.3849267e+03,.4876366e+03,.3479461e+03,.2774131e+03,&
20169  & .3445208e+03,.3849119e+03,.4876118e+03,.3479361e+03,.2774131e+03,&
20170  & .3444960e+03,.3848871e+03,.4875822e+03,.3479261e+03,.2774131e+03/
20171 
20172  data absb(526:700, 3) / &
20173  & .3444960e+03,.3848971e+03,.4875677e+03,.3479261e+03,.2774131e+03,&
20174  & .3444763e+03,.3848775e+03,.4875670e+03,.3479209e+03,.2774131e+03,&
20175  & .3444515e+03,.3848575e+03,.4875518e+03,.3479057e+03,.2774131e+03,&
20176  & .3444319e+03,.3848427e+03,.4875270e+03,.3478957e+03,.2774131e+03,&
20177  & .3444071e+03,.3848279e+03,.4874973e+03,.3478906e+03,.2774131e+03,&
20178  & .3444171e+03,.3848331e+03,.4874977e+03,.3478957e+03,.2774131e+03,&
20179  & .3443923e+03,.3848183e+03,.4874922e+03,.3478857e+03,.2774131e+03,&
20180  & .3443775e+03,.3847983e+03,.4874818e+03,.3478757e+03,.2774131e+03,&
20181  & .3443579e+03,.3847883e+03,.4874622e+03,.3478706e+03,.2774131e+03,&
20182  & .3443430e+03,.3847734e+03,.4874377e+03,.3478606e+03,.2774131e+03,&
20183  & .3443479e+03,.3847834e+03,.4874377e+03,.3478654e+03,.2774131e+03,&
20184  & .3443330e+03,.3847686e+03,.4874373e+03,.3478554e+03,.2774131e+03,&
20185  & .3443182e+03,.3847538e+03,.4874270e+03,.3478554e+03,.2774131e+03,&
20186  & .3443034e+03,.3847438e+03,.4874122e+03,.3478454e+03,.2774131e+03,&
20187  & .3442886e+03,.3847390e+03,.4873877e+03,.3478402e+03,.2774131e+03,&
20188  & .3442934e+03,.3847442e+03,.4873881e+03,.3478454e+03,.2774131e+03,&
20189  & .3442786e+03,.3847342e+03,.4873873e+03,.3478402e+03,.2774131e+03,&
20190  & .3442638e+03,.3847242e+03,.4873870e+03,.3478302e+03,.2774131e+03,&
20191  & .3442590e+03,.3847094e+03,.4873722e+03,.3478302e+03,.2774131e+03,&
20192  & .3442442e+03,.3846994e+03,.4873477e+03,.3478250e+03,.2774131e+03,&
20193  & .3442490e+03,.3847146e+03,.4873433e+03,.3478250e+03,.2774131e+03,&
20194  & .3442390e+03,.3847046e+03,.4873525e+03,.3478202e+03,.2774131e+03,&
20195  & .3442294e+03,.3846946e+03,.4873522e+03,.3478150e+03,.2774131e+03,&
20196  & .3442194e+03,.3846846e+03,.4873422e+03,.3478150e+03,.2774131e+03,&
20197  & .3442094e+03,.3846798e+03,.4873177e+03,.3478050e+03,.2774131e+03,&
20198  & .3442146e+03,.3846850e+03,.4873085e+03,.3478150e+03,.2774131e+03,&
20199  & .3442046e+03,.3846750e+03,.4873225e+03,.3478050e+03,.2774131e+03,&
20200  & .3441946e+03,.3846698e+03,.4873222e+03,.3478050e+03,.2774131e+03,&
20201  & .3441898e+03,.3846650e+03,.4873173e+03,.3477998e+03,.2774131e+03,&
20202  & .3441798e+03,.3846550e+03,.4872977e+03,.3477998e+03,.2774131e+03,&
20203  & .3441898e+03,.3846650e+03,.4872737e+03,.3477998e+03,.2774131e+03,&
20204  & .3441749e+03,.3846602e+03,.4872929e+03,.3477950e+03,.2774131e+03,&
20205  & .3441701e+03,.3846502e+03,.4872973e+03,.3477898e+03,.2774131e+03,&
20206  & .3441649e+03,.3846453e+03,.4872922e+03,.3477898e+03,.2774131e+03,&
20207  & .3441601e+03,.3846402e+03,.4872825e+03,.3477898e+03,.2774131e+03/
20208 
20209  data absb(701:875, 3) / &
20210  & .3441601e+03,.3846453e+03,.4872441e+03,.3477898e+03,.2774131e+03,&
20211  & .3441553e+03,.3846453e+03,.4872681e+03,.3477898e+03,.2774131e+03,&
20212  & .3441501e+03,.3846353e+03,.4872773e+03,.3477846e+03,.2774131e+03,&
20213  & .3441453e+03,.3846305e+03,.4872773e+03,.3477798e+03,.2774131e+03,&
20214  & .3441405e+03,.3846253e+03,.4872673e+03,.3477798e+03,.2774131e+03,&
20215  & .3441453e+03,.3846305e+03,.4872244e+03,.3477798e+03,.2774131e+03,&
20216  & .3441353e+03,.3846305e+03,.4872433e+03,.3477798e+03,.2774131e+03,&
20217  & .3441305e+03,.3846205e+03,.4872577e+03,.3477798e+03,.2774131e+03,&
20218  & .3441305e+03,.3846205e+03,.4872622e+03,.3477746e+03,.2774131e+03,&
20219  & .3441205e+03,.3846105e+03,.4872573e+03,.3477746e+03,.2774131e+03,&
20220  & .3441305e+03,.3846205e+03,.4871948e+03,.3477746e+03,.2774131e+03,&
20221  & .3441205e+03,.3846157e+03,.4872237e+03,.3477746e+03,.2774131e+03,&
20222  & .3441157e+03,.3846157e+03,.4872377e+03,.3477746e+03,.2774131e+03,&
20223  & .3441157e+03,.3846057e+03,.4872473e+03,.3477698e+03,.2774131e+03,&
20224  & .3441109e+03,.3846057e+03,.4872473e+03,.3477646e+03,.2774131e+03,&
20225  & .3441157e+03,.3846109e+03,.4871704e+03,.3477698e+03,.2774131e+03,&
20226  & .3441109e+03,.3846057e+03,.4872041e+03,.3477646e+03,.2774131e+03,&
20227  & .3441057e+03,.3846057e+03,.4872229e+03,.3477646e+03,.2774131e+03,&
20228  & .3441009e+03,.3846009e+03,.4872325e+03,.3477646e+03,.2774131e+03,&
20229  & .3441009e+03,.3845957e+03,.4872373e+03,.3477646e+03,.2774131e+03,&
20230  & .3441009e+03,.3846009e+03,.4871412e+03,.3477646e+03,.2774131e+03,&
20231  & .3441009e+03,.3846009e+03,.4871844e+03,.3477646e+03,.2774131e+03,&
20232  & .3440961e+03,.3846009e+03,.4872085e+03,.3477646e+03,.2774131e+03,&
20233  & .3440909e+03,.3845909e+03,.4872225e+03,.3477646e+03,.2774131e+03,&
20234  & .3440909e+03,.3845909e+03,.4872273e+03,.3477646e+03,.2774131e+03,&
20235  & .3440909e+03,.3845961e+03,.4871167e+03,.3477646e+03,.2774131e+03,&
20236  & .3440909e+03,.3845909e+03,.4871600e+03,.3477646e+03,.2774131e+03,&
20237  & .3440861e+03,.3845909e+03,.4871937e+03,.3477594e+03,.2774131e+03,&
20238  & .3440861e+03,.3845861e+03,.4872129e+03,.3477594e+03,.2774131e+03,&
20239  & .3440861e+03,.3845861e+03,.4872225e+03,.3477594e+03,.2774131e+03,&
20240  & .3440861e+03,.3845961e+03,.4870879e+03,.3477594e+03,.2774131e+03,&
20241  & .3440861e+03,.3845861e+03,.4871408e+03,.3477594e+03,.2774131e+03,&
20242  & .3440813e+03,.3845861e+03,.4871741e+03,.3477546e+03,.2774131e+03,&
20243  & .3440761e+03,.3845861e+03,.4871981e+03,.3477546e+03,.2774131e+03,&
20244  & .3440761e+03,.3845809e+03,.4872125e+03,.3477546e+03,.2774131e+03/
20245 
20246  data absb(876:1050, 3) / &
20247  & .3440761e+03,.3845913e+03,.4870490e+03,.3477546e+03,.2774131e+03,&
20248  & .3440761e+03,.3845861e+03,.4871115e+03,.3477546e+03,.2774131e+03,&
20249  & .3440761e+03,.3845813e+03,.4871548e+03,.3477546e+03,.2774131e+03,&
20250  & .3440713e+03,.3845813e+03,.4871837e+03,.3477546e+03,.2774131e+03,&
20251  & .3440713e+03,.3845761e+03,.4872029e+03,.3477546e+03,.2774131e+03,&
20252  & .3440761e+03,.3845865e+03,.4870153e+03,.3477546e+03,.2774131e+03,&
20253  & .3440713e+03,.3845813e+03,.4870875e+03,.3477546e+03,.2774131e+03,&
20254  & .3440713e+03,.3845761e+03,.4871352e+03,.3477546e+03,.2774131e+03,&
20255  & .3440713e+03,.3845761e+03,.4871689e+03,.3477494e+03,.2774131e+03,&
20256  & .3440713e+03,.3845761e+03,.4871929e+03,.3477494e+03,.2774131e+03,&
20257  & .3440713e+03,.3845917e+03,.4869717e+03,.3477494e+03,.2774131e+03,&
20258  & .3440713e+03,.3845813e+03,.4870582e+03,.3477494e+03,.2774131e+03,&
20259  & .3440713e+03,.3845761e+03,.4871160e+03,.3477494e+03,.2774131e+03,&
20260  & .3440613e+03,.3845713e+03,.4871544e+03,.3477494e+03,.2774131e+03,&
20261  & .3440613e+03,.3845713e+03,.4871833e+03,.3477494e+03,.2774131e+03,&
20262  & .3440665e+03,.3845917e+03,.4869380e+03,.3477494e+03,.2774131e+03,&
20263  & .3440613e+03,.3845765e+03,.4870246e+03,.3477494e+03,.2774131e+03,&
20264  & .3440613e+03,.3845713e+03,.4870919e+03,.3477494e+03,.2774131e+03,&
20265  & .3440613e+03,.3845713e+03,.4871400e+03,.3477494e+03,.2774131e+03,&
20266  & .3440613e+03,.3845713e+03,.4871737e+03,.3477494e+03,.2774131e+03,&
20267  & .3440613e+03,.3845869e+03,.4868891e+03,.3477494e+03,.2774131e+03,&
20268  & .3440613e+03,.3845817e+03,.4869957e+03,.3477494e+03,.2774131e+03,&
20269  & .3440613e+03,.3845713e+03,.4870727e+03,.3477494e+03,.2774131e+03,&
20270  & .3440613e+03,.3845661e+03,.4871256e+03,.3477494e+03,.2774131e+03,&
20271  & .3440565e+03,.3845713e+03,.4871541e+03,.3477494e+03,.2774131e+03,&
20272  & .3440613e+03,.3845921e+03,.4868455e+03,.3477494e+03,.2774131e+03,&
20273  & .3440613e+03,.3845817e+03,.4869569e+03,.3477494e+03,.2774131e+03,&
20274  & .3440565e+03,.3845765e+03,.4870386e+03,.3477494e+03,.2774131e+03,&
20275  & .3440565e+03,.3845713e+03,.4871012e+03,.3477494e+03,.2774131e+03,&
20276  & .3440565e+03,.3845713e+03,.4871396e+03,.3477494e+03,.2774131e+03,&
20277  & .3440565e+03,.3845921e+03,.4867966e+03,.3477494e+03,.2774131e+03,&
20278  & .3440565e+03,.3845869e+03,.4869180e+03,.3477494e+03,.2774131e+03,&
20279  & .3440565e+03,.3845765e+03,.4870146e+03,.3477494e+03,.2774131e+03,&
20280  & .3440565e+03,.3845665e+03,.4870819e+03,.3477494e+03,.2774131e+03,&
20281  & .3440565e+03,.3845613e+03,.4871300e+03,.3477494e+03,.2774131e+03/
20282 
20283  data absb(1051:1175, 3) / &
20284  & .3440565e+03,.3845972e+03,.4867477e+03,.3477494e+03,.2774131e+03,&
20285  & .3440565e+03,.3845821e+03,.4868843e+03,.3477494e+03,.2774131e+03,&
20286  & .3440565e+03,.3845717e+03,.4869857e+03,.3477494e+03,.2774131e+03,&
20287  & .3440565e+03,.3845665e+03,.4870627e+03,.3477494e+03,.2774131e+03,&
20288  & .3440565e+03,.3845613e+03,.4871156e+03,.3477494e+03,.2774131e+03,&
20289  & .3440565e+03,.3845976e+03,.4866985e+03,.3477494e+03,.2774131e+03,&
20290  & .3440565e+03,.3845872e+03,.4868403e+03,.3477494e+03,.2774131e+03,&
20291  & .3440565e+03,.3845769e+03,.4869520e+03,.3477494e+03,.2774131e+03,&
20292  & .3440565e+03,.3845665e+03,.4870386e+03,.3477494e+03,.2774131e+03,&
20293  & .3440565e+03,.3845665e+03,.4871012e+03,.3477494e+03,.2774131e+03,&
20294  & .3440565e+03,.3846028e+03,.4866393e+03,.3477494e+03,.2774131e+03,&
20295  & .3440565e+03,.3845872e+03,.4868014e+03,.3477494e+03,.2774131e+03,&
20296  & .3440565e+03,.3845769e+03,.4869180e+03,.3477494e+03,.2774131e+03,&
20297  & .3440565e+03,.3845717e+03,.4870146e+03,.3477494e+03,.2774131e+03,&
20298  & .3440465e+03,.3845613e+03,.4870819e+03,.3477494e+03,.2774131e+03,&
20299  & .3440565e+03,.3846028e+03,.4865852e+03,.3477494e+03,.2774131e+03,&
20300  & .3440513e+03,.3845924e+03,.4867526e+03,.3477494e+03,.2774131e+03,&
20301  & .3440465e+03,.3845821e+03,.4868839e+03,.3477494e+03,.2774131e+03,&
20302  & .3440465e+03,.3845717e+03,.4869857e+03,.3477494e+03,.2774131e+03,&
20303  & .3440465e+03,.3845665e+03,.4870627e+03,.3477442e+03,.2774131e+03,&
20304  & .3440465e+03,.3846080e+03,.4865652e+03,.3477494e+03,.2774131e+03,&
20305  & .3440465e+03,.3845924e+03,.4867329e+03,.3477494e+03,.2774131e+03,&
20306  & .3440465e+03,.3845821e+03,.4868695e+03,.3477442e+03,.2774131e+03,&
20307  & .3440465e+03,.3845717e+03,.4869761e+03,.3477442e+03,.2774131e+03,&
20308  & .3440465e+03,.3845665e+03,.4870531e+03,.3477442e+03,.2774131e+03/
20309 
20310  data absb( 1:175, 4) / &
20311  & .8782833e+03,.6910354e+03,.5724886e+03,.6464156e+03,.7993949e+03,&
20312  & .8715031e+03,.6859459e+03,.5705842e+03,.6464442e+03,.7999135e+03,&
20313  & .8656602e+03,.6815696e+03,.5686553e+03,.6463947e+03,.8002608e+03,&
20314  & .8605853e+03,.6777583e+03,.5667574e+03,.6462801e+03,.8004368e+03,&
20315  & .8561252e+03,.6744132e+03,.5649105e+03,.6460944e+03,.8004368e+03,&
20316  & .8612940e+03,.6782938e+03,.5669216e+03,.6455568e+03,.7994505e+03,&
20317  & .8558228e+03,.6741854e+03,.5649339e+03,.6456484e+03,.7999506e+03,&
20318  & .8511049e+03,.6706518e+03,.5630723e+03,.6456464e+03,.8002840e+03,&
20319  & .8469964e+03,.6675691e+03,.5613310e+03,.6455686e+03,.8004461e+03,&
20320  & .8433882e+03,.6648582e+03,.5596704e+03,.6454205e+03,.8004322e+03,&
20321  & .8474420e+03,.6679062e+03,.5613362e+03,.6448724e+03,.7995061e+03,&
20322  & .8430265e+03,.6645957e+03,.5595545e+03,.6450016e+03,.7999923e+03,&
20323  & .8392252e+03,.6617362e+03,.5578650e+03,.6450418e+03,.8003071e+03,&
20324  & .8359047e+03,.6592484e+03,.5563042e+03,.6449917e+03,.8004461e+03,&
20325  & .8329859e+03,.6570576e+03,.5548590e+03,.6448650e+03,.8004183e+03,&
20326  & .8361725e+03,.6594516e+03,.5562448e+03,.6443217e+03,.7995709e+03,&
20327  & .8326189e+03,.6567852e+03,.5546746e+03,.6444831e+03,.8000339e+03,&
20328  & .8295516e+03,.6544805e+03,.5532717e+03,.6445409e+03,.8003349e+03,&
20329  & .8268752e+03,.6524736e+03,.5519977e+03,.6445269e+03,.8004507e+03,&
20330  & .8245113e+03,.6507091e+03,.5508204e+03,.6444124e+03,.8004090e+03,&
20331  & .8270338e+03,.6525975e+03,.5518584e+03,.6438793e+03,.7996218e+03,&
20332  & .8241743e+03,.6504514e+03,.5505821e+03,.6440683e+03,.8000756e+03,&
20333  & .8216964e+03,.6485930e+03,.5494126e+03,.6441476e+03,.8003534e+03,&
20334  & .8195356e+03,.6469724e+03,.5483183e+03,.6441412e+03,.8004600e+03,&
20335  & .8176273e+03,.6455403e+03,.5473063e+03,.6440475e+03,.8003951e+03,&
20336  & .8196249e+03,.6470370e+03,.5481983e+03,.6435253e+03,.7996774e+03,&
20337  & .8173102e+03,.6453072e+03,.5470865e+03,.6437357e+03,.8001127e+03,&
20338  & .8153180e+03,.6438105e+03,.5460498e+03,.6438219e+03,.8003720e+03,&
20339  & .8135635e+03,.6424969e+03,.5451238e+03,.6438316e+03,.8004553e+03,&
20340  & .8120275e+03,.6413426e+03,.5443103e+03,.6437493e+03,.8003812e+03,&
20341  & .8136081e+03,.6425269e+03,.5450518e+03,.6432481e+03,.7997283e+03,&
20342  & .8117397e+03,.6411295e+03,.5440951e+03,.6434654e+03,.8001451e+03,&
20343  & .8101291e+03,.6399152e+03,.5434568e+03,.6435677e+03,.8003905e+03,&
20344  & .8087217e+03,.6388594e+03,.5425558e+03,.6435788e+03,.8004553e+03,&
20345  & .8074728e+03,.6379229e+03,.5418598e+03,.6434981e+03,.8003720e+03/
20346 
20347  data absb(176:350, 4) / &
20348  & .8086917e+03,.6388394e+03,.5425140e+03,.6430324e+03,.7997885e+03,&
20349  & .8071950e+03,.6377198e+03,.5416354e+03,.6432465e+03,.8001867e+03,&
20350  & .8058968e+03,.6367433e+03,.5409750e+03,.6433603e+03,.8004044e+03,&
20351  & .8047572e+03,.6358860e+03,.5404031e+03,.6433729e+03,.8004507e+03,&
20352  & .8037507e+03,.6351327e+03,.5398890e+03,.6432929e+03,.8003442e+03,&
20353  & .8047072e+03,.6358514e+03,.5402679e+03,.6428628e+03,.7998441e+03,&
20354  & .8034982e+03,.6349442e+03,.5396729e+03,.6430884e+03,.8002192e+03,&
20355  & .8024525e+03,.6341615e+03,.5391603e+03,.6431890e+03,.8004183e+03,&
20356  & .8015306e+03,.6334675e+03,.5387162e+03,.6432031e+03,.8004461e+03,&
20357  & .8007226e+03,.6328626e+03,.5383107e+03,.6431246e+03,.8003210e+03,&
20358  & .8014021e+03,.6333736e+03,.5385286e+03,.6427532e+03,.7999274e+03,&
20359  & .8004402e+03,.6326495e+03,.5380753e+03,.6429610e+03,.8002701e+03,&
20360  & .7996030e+03,.6320254e+03,.5376858e+03,.6430585e+03,.8004368e+03,&
20361  & .7988743e+03,.6314752e+03,.5373442e+03,.6430640e+03,.8004368e+03,&
20362  & .7982202e+03,.6309896e+03,.5370303e+03,.6429770e+03,.8002794e+03,&
20363  & .7987304e+03,.6313713e+03,.5371412e+03,.6426697e+03,.8000062e+03,&
20364  & .7979624e+03,.6307965e+03,.5368049e+03,.6428597e+03,.8003164e+03,&
20365  & .7972983e+03,.6302955e+03,.5365078e+03,.6429533e+03,.8004507e+03,&
20366  & .7967135e+03,.6298546e+03,.5362486e+03,.6429503e+03,.8004183e+03,&
20367  & .7961933e+03,.6294629e+03,.5359978e+03,.6428455e+03,.8002331e+03,&
20368  & .7965696e+03,.6297507e+03,.5360417e+03,.6426162e+03,.8000849e+03,&
20369  & .7959601e+03,.6292944e+03,.5357832e+03,.6427892e+03,.8003581e+03,&
20370  & .7954299e+03,.6288935e+03,.5355640e+03,.6428696e+03,.8004600e+03,&
20371  & .7949590e+03,.6285410e+03,.5353686e+03,.6428489e+03,.8003905e+03,&
20372  & .7945427e+03,.6282340e+03,.5351678e+03,.6427355e+03,.8001775e+03,&
20373  & .7948251e+03,.6284372e+03,.5351625e+03,.6425749e+03,.8001590e+03,&
20374  & .7943395e+03,.6280755e+03,.5349778e+03,.6427340e+03,.8003951e+03,&
20375  & .7939186e+03,.6277584e+03,.5348178e+03,.6427966e+03,.8004553e+03,&
20376  & .7935415e+03,.6274807e+03,.5346625e+03,.6427574e+03,.8003581e+03,&
20377  & .7932145e+03,.6272282e+03,.5344964e+03,.6426309e+03,.8001127e+03,&
20378  & .7934130e+03,.6273768e+03,.5344664e+03,.6425483e+03,.8002238e+03,&
20379  & .7930260e+03,.6270890e+03,.5343317e+03,.6426996e+03,.8004229e+03,&
20380  & .7926943e+03,.6268366e+03,.5342117e+03,.6427344e+03,.8004461e+03,&
20381  & .7923919e+03,.6266134e+03,.5340864e+03,.6426820e+03,.8003164e+03,&
20382  & .7921295e+03,.6264149e+03,.5339549e+03,.6425323e+03,.8000339e+03/
20383 
20384  data absb(351:525, 4) / &
20385  & .7922680e+03,.6265242e+03,.5339049e+03,.6425377e+03,.8002886e+03,&
20386  & .7919656e+03,.6262964e+03,.5338156e+03,.6426613e+03,.8004414e+03,&
20387  & .7916978e+03,.6260932e+03,.5337303e+03,.6426876e+03,.8004275e+03,&
20388  & .7914600e+03,.6259147e+03,.5336295e+03,.6426074e+03,.8002608e+03,&
20389  & .7912522e+03,.6257562e+03,.5335134e+03,.6424353e+03,.7999413e+03,&
20390  & .7913561e+03,.6258354e+03,.5334642e+03,.6425425e+03,.8003396e+03,&
20391  & .7911083e+03,.6256569e+03,.5334042e+03,.6426337e+03,.8004553e+03,&
20392  & .7908952e+03,.6254984e+03,.5333388e+03,.6426322e+03,.8004044e+03,&
20393  & .7907120e+03,.6253545e+03,.5332580e+03,.6425389e+03,.8002006e+03,&
20394  & .7905435e+03,.6252260e+03,.5331566e+03,.6423436e+03,.7998395e+03,&
20395  & .7906128e+03,.6252806e+03,.5331127e+03,.6425289e+03,.8003859e+03,&
20396  & .7904242e+03,.6251367e+03,.5330727e+03,.6426115e+03,.8004553e+03,&
20397  & .7902511e+03,.6250128e+03,.5330219e+03,.6425922e+03,.8003673e+03,&
20398  & .7901026e+03,.6248989e+03,.5329519e+03,.6424757e+03,.8001266e+03,&
20399  & .7899687e+03,.6247997e+03,.5328605e+03,.6422481e+03,.7997283e+03,&
20400  & .7900179e+03,.6248343e+03,.5328366e+03,.6425305e+03,.8004183e+03,&
20401  & .7898694e+03,.6247204e+03,.5328112e+03,.6425854e+03,.8004461e+03,&
20402  & .7897355e+03,.6246211e+03,.5327658e+03,.6425429e+03,.8003210e+03,&
20403  & .7896116e+03,.6245319e+03,.5327051e+03,.6423987e+03,.8000432e+03,&
20404  & .7895077e+03,.6244526e+03,.5326190e+03,.6421432e+03,.7995987e+03,&
20405  & .7895370e+03,.6244726e+03,.5326105e+03,.6425329e+03,.8004414e+03,&
20406  & .7894185e+03,.6243834e+03,.5325958e+03,.6425646e+03,.8004275e+03,&
20407  & .7893092e+03,.6243041e+03,.5325597e+03,.6424944e+03,.8002655e+03,&
20408  & .7892153e+03,.6242295e+03,.5325043e+03,.6423270e+03,.7999460e+03,&
20409  & .7891307e+03,.6241702e+03,.5324182e+03,.6420445e+03,.7994598e+03,&
20410  & .7891507e+03,.6241848e+03,.5324351e+03,.6425307e+03,.8004553e+03,&
20411  & .7890568e+03,.6241156e+03,.5324243e+03,.6425392e+03,.8003998e+03,&
20412  & .7889722e+03,.6240463e+03,.5323943e+03,.6424466e+03,.8001960e+03,&
20413  & .7888929e+03,.6239917e+03,.5323429e+03,.6422514e+03,.7998348e+03,&
20414  & .7888283e+03,.6239424e+03,.5322521e+03,.6419319e+03,.7993069e+03,&
20415  & .7888437e+03,.6239471e+03,.5322936e+03,.6425292e+03,.8004553e+03,&
20416  & .7887644e+03,.6238924e+03,.5322836e+03,.6425100e+03,.8003627e+03,&
20417  & .7886998e+03,.6238432e+03,.5322582e+03,.6423942e+03,.8001173e+03,&
20418  & .7886405e+03,.6237985e+03,.5322021e+03,.6421666e+03,.7997144e+03,&
20419  & .7885859e+03,.6237585e+03,.5321068e+03,.6418054e+03,.7991402e+03/
20420 
20421  data absb(526:700, 4) / &
20422  & .7885959e+03,.6237639e+03,.5321829e+03,.6425185e+03,.8004461e+03,&
20423  & .7885312e+03,.6237193e+03,.5321775e+03,.6424761e+03,.8003210e+03,&
20424  & .7884766e+03,.6236793e+03,.5321475e+03,.6423418e+03,.8000386e+03,&
20425  & .7884320e+03,.6236446e+03,.5320868e+03,.6420918e+03,.7995987e+03,&
20426  & .7883873e+03,.6236100e+03,.5319860e+03,.6416882e+03,.7989828e+03,&
20427  & .7883973e+03,.6236200e+03,.5320921e+03,.6425078e+03,.8004414e+03,&
20428  & .7883527e+03,.6235854e+03,.5320868e+03,.6424568e+03,.8002933e+03,&
20429  & .7883081e+03,.6235507e+03,.5320621e+03,.6423040e+03,.7999923e+03,&
20430  & .7882688e+03,.6235207e+03,.5320014e+03,.6420401e+03,.7995246e+03,&
20431  & .7882288e+03,.6234961e+03,.5318953e+03,.6416133e+03,.7988948e+03,&
20432  & .7882488e+03,.6235061e+03,.5320114e+03,.6424978e+03,.8004368e+03,&
20433  & .7882042e+03,.6234715e+03,.5320168e+03,.6424468e+03,.8002886e+03,&
20434  & .7881696e+03,.6234469e+03,.5319914e+03,.6422940e+03,.7999830e+03,&
20435  & .7881396e+03,.6234269e+03,.5319360e+03,.6420255e+03,.7995153e+03,&
20436  & .7881103e+03,.6234022e+03,.5318299e+03,.6415941e+03,.7988763e+03,&
20437  & .7881249e+03,.6234169e+03,.5319460e+03,.6424924e+03,.8004507e+03,&
20438  & .7880903e+03,.6233922e+03,.5319614e+03,.6424554e+03,.8003164e+03,&
20439  & .7880603e+03,.6233676e+03,.5319414e+03,.6423118e+03,.8000339e+03,&
20440  & .7880357e+03,.6233476e+03,.5318907e+03,.6420618e+03,.7995848e+03,&
20441  & .7880110e+03,.6233276e+03,.5317953e+03,.6416589e+03,.7989689e+03,&
20442  & .7880257e+03,.6233376e+03,.5318907e+03,.6424878e+03,.8004507e+03,&
20443  & .7880010e+03,.6233176e+03,.5319107e+03,.6424646e+03,.8003442e+03,&
20444  & .7879710e+03,.6233030e+03,.5319014e+03,.6423342e+03,.8000849e+03,&
20445  & .7879510e+03,.6232830e+03,.5318553e+03,.6420981e+03,.7996589e+03,&
20446  & .7879318e+03,.6232683e+03,.5317753e+03,.6417184e+03,.7990662e+03,&
20447  & .7879464e+03,.6232783e+03,.5318507e+03,.6424778e+03,.8004553e+03,&
20448  & .7879218e+03,.6232583e+03,.5318707e+03,.6424639e+03,.8003673e+03,&
20449  & .7879018e+03,.6232483e+03,.5318607e+03,.6423574e+03,.8001266e+03,&
20450  & .7878818e+03,.6232337e+03,.5318307e+03,.6421351e+03,.7997283e+03,&
20451  & .7878672e+03,.6232183e+03,.5317553e+03,.6417832e+03,.7991588e+03,&
20452  & .7878772e+03,.6232283e+03,.5318053e+03,.6424639e+03,.8004553e+03,&
20453  & .7878572e+03,.6232137e+03,.5318353e+03,.6424778e+03,.8004044e+03,&
20454  & .7878425e+03,.6232037e+03,.5318407e+03,.6423844e+03,.8002006e+03,&
20455  & .7878225e+03,.6231891e+03,.5318153e+03,.6421946e+03,.7998395e+03,&
20456  & .7878125e+03,.6231791e+03,.5317499e+03,.6418751e+03,.7993116e+03/
20457 
20458  data absb(701:875, 4) / &
20459  & .7878225e+03,.6231891e+03,.5317645e+03,.6424400e+03,.8004461e+03,&
20460  & .7878079e+03,.6231791e+03,.5317999e+03,.6424770e+03,.8004275e+03,&
20461  & .7877925e+03,.6231691e+03,.5318153e+03,.6424168e+03,.8002655e+03,&
20462  & .7877779e+03,.6231544e+03,.5317999e+03,.6422548e+03,.7999460e+03,&
20463  & .7877679e+03,.6231444e+03,.5317445e+03,.6419769e+03,.7994598e+03,&
20464  & .7877779e+03,.6231544e+03,.5317245e+03,.6424122e+03,.8004183e+03,&
20465  & .7877633e+03,.6231444e+03,.5317699e+03,.6424770e+03,.8004461e+03,&
20466  & .7877533e+03,.6231344e+03,.5317899e+03,.6424400e+03,.8003210e+03,&
20467  & .7877433e+03,.6231244e+03,.5317853e+03,.6423057e+03,.8000432e+03,&
20468  & .7877333e+03,.6231198e+03,.5317445e+03,.6420556e+03,.7996033e+03,&
20469  & .7877433e+03,.6231244e+03,.5316899e+03,.6423705e+03,.8003766e+03,&
20470  & .7877333e+03,.6231144e+03,.5317399e+03,.6424678e+03,.8004553e+03,&
20471  & .7877186e+03,.6231098e+03,.5317699e+03,.6424585e+03,.8003766e+03,&
20472  & .7877086e+03,.6231044e+03,.5317699e+03,.6423566e+03,.8001451e+03,&
20473  & .7876986e+03,.6230998e+03,.5317445e+03,.6421383e+03,.7997561e+03,&
20474  & .7877086e+03,.6231044e+03,.5316492e+03,.6423150e+03,.8003071e+03,&
20475  & .7876986e+03,.6230998e+03,.5317045e+03,.6424392e+03,.8004461e+03,&
20476  & .7876940e+03,.6230898e+03,.5317445e+03,.6424670e+03,.8004229e+03,&
20477  & .7876840e+03,.6230798e+03,.5317599e+03,.6424022e+03,.8002423e+03,&
20478  & .7876786e+03,.6230798e+03,.5317499e+03,.6422216e+03,.7999089e+03,&
20479  & .7876886e+03,.6230898e+03,.5316092e+03,.6422494e+03,.8002238e+03,&
20480  & .7876786e+03,.6230798e+03,.5316792e+03,.6424068e+03,.8004229e+03,&
20481  & .7876740e+03,.6230698e+03,.5317245e+03,.6424717e+03,.8004461e+03,&
20482  & .7876640e+03,.6230698e+03,.5317445e+03,.6424300e+03,.8003210e+03,&
20483  & .7876540e+03,.6230652e+03,.5317445e+03,.6422957e+03,.8000386e+03,&
20484  & .7876640e+03,.6230698e+03,.5315738e+03,.6421614e+03,.8001080e+03,&
20485  & .7876540e+03,.6230652e+03,.5316438e+03,.6423605e+03,.8003720e+03,&
20486  & .7876540e+03,.6230598e+03,.5316992e+03,.6424578e+03,.8004553e+03,&
20487  & .7876440e+03,.6230552e+03,.5317345e+03,.6424578e+03,.8003812e+03,&
20488  & .7876394e+03,.6230552e+03,.5317399e+03,.6423559e+03,.8001590e+03,&
20489  & .7876494e+03,.6230552e+03,.5315245e+03,.6420410e+03,.7999552e+03,&
20490  & .7876440e+03,.6230552e+03,.5316045e+03,.6422957e+03,.8002840e+03,&
20491  & .7876340e+03,.6230452e+03,.5316692e+03,.6424300e+03,.8004414e+03,&
20492  & .7876294e+03,.6230452e+03,.5317145e+03,.6424670e+03,.8004322e+03,&
20493  & .7876294e+03,.6230406e+03,.5317299e+03,.6424068e+03,.8002655e+03/
20494 
20495  data absb(876:1050, 4) / &
20496  & .7876340e+03,.6230452e+03,.5314838e+03,.6419067e+03,.7997700e+03,&
20497  & .7876294e+03,.6230452e+03,.5315692e+03,.6422077e+03,.8001729e+03,&
20498  & .7876194e+03,.6230352e+03,.5316392e+03,.6423883e+03,.8003998e+03,&
20499  & .7876194e+03,.6230352e+03,.5316892e+03,.6424670e+03,.8004553e+03,&
20500  & .7876194e+03,.6230352e+03,.5317192e+03,.6424439e+03,.8003488e+03,&
20501  & .7876194e+03,.6230352e+03,.5314438e+03,.6417493e+03,.7995616e+03,&
20502  & .7876194e+03,.6230352e+03,.5315284e+03,.6421012e+03,.8000293e+03,&
20503  & .7876094e+03,.6230306e+03,.5316038e+03,.6423281e+03,.8003581e+03,&
20504  & .7876094e+03,.6230252e+03,.5316692e+03,.6424485e+03,.8004507e+03,&
20505  & .7876047e+03,.6230252e+03,.5317045e+03,.6424624e+03,.8004090e+03,&
20506  & .7876094e+03,.6230306e+03,.5314031e+03,.6415826e+03,.7993394e+03,&
20507  & .7876094e+03,.6230252e+03,.5314884e+03,.6419808e+03,.7998719e+03,&
20508  & .7876047e+03,.6230206e+03,.5315738e+03,.6422540e+03,.8002377e+03,&
20509  & .7875994e+03,.6230206e+03,.5316438e+03,.6424115e+03,.8004275e+03,&
20510  & .7875994e+03,.6230206e+03,.5316892e+03,.6424670e+03,.8004414e+03,&
20511  & .7875994e+03,.6230206e+03,.5313623e+03,.6414066e+03,.7991032e+03,&
20512  & .7875994e+03,.6230206e+03,.5314538e+03,.6418512e+03,.7996959e+03,&
20513  & .7875947e+03,.6230152e+03,.5315392e+03,.6421707e+03,.8001266e+03,&
20514  & .7875947e+03,.6230152e+03,.5316138e+03,.6423652e+03,.8003766e+03,&
20515  & .7875894e+03,.6230106e+03,.5316745e+03,.6424578e+03,.8004553e+03,&
20516  & .7875947e+03,.6230152e+03,.5313123e+03,.6412029e+03,.7988393e+03,&
20517  & .7875947e+03,.6230152e+03,.5314184e+03,.6417030e+03,.7995014e+03,&
20518  & .7875894e+03,.6230106e+03,.5315084e+03,.6420688e+03,.7999876e+03,&
20519  & .7875847e+03,.6230106e+03,.5315838e+03,.6423096e+03,.8003071e+03,&
20520  & .7875847e+03,.6230106e+03,.5316538e+03,.6424346e+03,.8004507e+03,&
20521  & .7875894e+03,.6230106e+03,.5312631e+03,.6409852e+03,.7985568e+03,&
20522  & .7875847e+03,.6230106e+03,.5313777e+03,.6415409e+03,.7992838e+03,&
20523  & .7875847e+03,.6230106e+03,.5314738e+03,.6419484e+03,.7998302e+03,&
20524  & .7875847e+03,.6230106e+03,.5315538e+03,.6422355e+03,.8002099e+03,&
20525  & .7875794e+03,.6230052e+03,.5316292e+03,.6424022e+03,.8004183e+03,&
20526  & .7875847e+03,.6230106e+03,.5312184e+03,.6407722e+03,.7982743e+03,&
20527  & .7875847e+03,.6230106e+03,.5313370e+03,.6413696e+03,.7990569e+03,&
20528  & .7875794e+03,.6230006e+03,.5314384e+03,.6418280e+03,.7996635e+03,&
20529  & .7875747e+03,.6230006e+03,.5315284e+03,.6421522e+03,.8001034e+03,&
20530  & .7875747e+03,.6230006e+03,.5315992e+03,.6423559e+03,.8003673e+03/
20531 
20532  data absb(1051:1175, 4) / &
20533  & .7875794e+03,.6230006e+03,.5311645e+03,.6405500e+03,.7979826e+03,&
20534  & .7875747e+03,.6230006e+03,.5313070e+03,.6411936e+03,.7988254e+03,&
20535  & .7875747e+03,.6230006e+03,.5314031e+03,.6416937e+03,.7994875e+03,&
20536  & .7875747e+03,.6230006e+03,.5314984e+03,.6420642e+03,.7999784e+03,&
20537  & .7875747e+03,.6230006e+03,.5315738e+03,.6423050e+03,.8003025e+03,&
20538  & .7875747e+03,.6230006e+03,.5311153e+03,.6403138e+03,.7976770e+03,&
20539  & .7875747e+03,.6230006e+03,.5312577e+03,.6409991e+03,.7985753e+03,&
20540  & .7875747e+03,.6230006e+03,.5313723e+03,.6415502e+03,.7992977e+03,&
20541  & .7875747e+03,.6230006e+03,.5314684e+03,.6419577e+03,.7998395e+03,&
20542  & .7875701e+03,.6230006e+03,.5315484e+03,.6422401e+03,.8002238e+03,&
20543  & .7875747e+03,.6230006e+03,.5310514e+03,.6400638e+03,.7973482e+03,&
20544  & .7875747e+03,.6230006e+03,.5312184e+03,.6408000e+03,.7983067e+03,&
20545  & .7875701e+03,.6230006e+03,.5313423e+03,.6413927e+03,.7990847e+03,&
20546  & .7875647e+03,.6230006e+03,.5314331e+03,.6418419e+03,.7996866e+03,&
20547  & .7875647e+03,.6229959e+03,.5315238e+03,.6421660e+03,.8001173e+03,&
20548  & .7875701e+03,.6230006e+03,.5309975e+03,.6398091e+03,.7970241e+03,&
20549  & .7875647e+03,.6230006e+03,.5311692e+03,.6405870e+03,.7980382e+03,&
20550  & .7875647e+03,.6229959e+03,.5313023e+03,.6412260e+03,.7988717e+03,&
20551  & .7875647e+03,.6229959e+03,.5314077e+03,.6417115e+03,.7995246e+03,&
20552  & .7875647e+03,.6229906e+03,.5314984e+03,.6420727e+03,.8000015e+03,&
20553  & .7875647e+03,.6229959e+03,.5309682e+03,.6397072e+03,.7968852e+03,&
20554  & .7875647e+03,.6229959e+03,.5311492e+03,.6404983e+03,.7979224e+03,&
20555  & .7875647e+03,.6229906e+03,.5312931e+03,.6411512e+03,.7987791e+03,&
20556  & .7875647e+03,.6229906e+03,.5313977e+03,.6416652e+03,.7994505e+03,&
20557  & .7875647e+03,.6229906e+03,.5314884e+03,.6420356e+03,.7999552e+03/
20558 
20559  data absb( 1:175, 5) / &
20560  & .1132160e+04,.8590321e+03,.5914771e+03,.8420290e+03,.1108579e+04,&
20561  & .1123473e+04,.8524625e+03,.5885652e+03,.8420681e+03,.1108734e+04,&
20562  & .1115900e+04,.8468347e+03,.5862702e+03,.8419164e+03,.1108697e+04,&
20563  & .1109376e+04,.8419137e+03,.5843636e+03,.8415502e+03,.1108322e+04,&
20564  & .1103614e+04,.8376140e+03,.5827038e+03,.8409654e+03,.1107682e+04,&
20565  & .1110333e+04,.8425995e+03,.5848362e+03,.8418344e+03,.1108619e+04,&
20566  & .1103219e+04,.8373133e+03,.5831283e+03,.8418712e+03,.1108805e+04,&
20567  & .1097195e+04,.8327409e+03,.5816627e+03,.8417168e+03,.1108673e+04,&
20568  & .1091865e+04,.8287858e+03,.5803753e+03,.8413520e+03,.1108225e+04,&
20569  & .1087188e+04,.8252839e+03,.5792120e+03,.8407467e+03,.1107577e+04,&
20570  & .1092412e+04,.8291999e+03,.5808570e+03,.8416771e+03,.1108633e+04,&
20571  & .1086772e+04,.8249577e+03,.5797842e+03,.8417051e+03,.1108778e+04,&
20572  & .1081872e+04,.8212500e+03,.5788998e+03,.8415393e+03,.1108609e+04,&
20573  & .1077591e+04,.8180528e+03,.5780798e+03,.8411541e+03,.1108196e+04,&
20574  & .1073799e+04,.8152246e+03,.5772425e+03,.8405502e+03,.1107530e+04,&
20575  & .1077932e+04,.8183131e+03,.5785343e+03,.8415558e+03,.1108628e+04,&
20576  & .1073370e+04,.8148772e+03,.5779321e+03,.8415699e+03,.1108773e+04,&
20577  & .1069367e+04,.8118993e+03,.5773345e+03,.8413946e+03,.1108586e+04,&
20578  & .1065923e+04,.8093364e+03,.5766911e+03,.8409868e+03,.1108139e+04,&
20579  & .1062906e+04,.8070496e+03,.5759923e+03,.8403687e+03,.1107413e+04,&
20580  & .1066103e+04,.8094792e+03,.5771890e+03,.8414562e+03,.1108645e+04,&
20581  & .1062427e+04,.8067082e+03,.5767835e+03,.8414606e+03,.1108749e+04,&
20582  & .1059242e+04,.8043159e+03,.5763730e+03,.8412660e+03,.1108562e+04,&
20583  & .1056471e+04,.8022149e+03,.5759120e+03,.8408523e+03,.1108069e+04,&
20584  & .1053956e+04,.8003803e+03,.5753382e+03,.8402087e+03,.1107311e+04,&
20585  & .1056573e+04,.8023128e+03,.5763612e+03,.8413744e+03,.1108681e+04,&
20586  & .1053614e+04,.8000761e+03,.5761904e+03,.8413677e+03,.1108744e+04,&
20587  & .1050995e+04,.7981568e+03,.5759572e+03,.8411623e+03,.1108557e+04,&
20588  & .1048738e+04,.7964524e+03,.5755889e+03,.8407256e+03,.1108012e+04,&
20589  & .1046781e+04,.7949640e+03,.5750302e+03,.8400566e+03,.1107234e+04,&
20590  & .1048831e+04,.7964881e+03,.5759871e+03,.8413116e+03,.1108751e+04,&
20591  & .1046421e+04,.7947095e+03,.5759550e+03,.8412858e+03,.1108763e+04,&
20592  & .1044326e+04,.7931394e+03,.5755277e+03,.8410568e+03,.1108455e+04,&
20593  & .1042519e+04,.7917703e+03,.5753386e+03,.8406038e+03,.1107955e+04,&
20594  & .1040912e+04,.7905575e+03,.5748294e+03,.8399213e+03,.1107129e+04/
20595 
20596  data absb(176:350, 5) / &
20597  & .1042504e+04,.7917365e+03,.5757083e+03,.8412594e+03,.1108725e+04,&
20598  & .1040562e+04,.7902912e+03,.5758192e+03,.8412189e+03,.1108733e+04,&
20599  & .1038874e+04,.7890443e+03,.5756096e+03,.8409680e+03,.1108430e+04,&
20600  & .1037398e+04,.7879351e+03,.5752218e+03,.8404909e+03,.1107888e+04,&
20601  & .1036091e+04,.7869710e+03,.5746527e+03,.8397830e+03,.1107005e+04,&
20602  & .1037338e+04,.7878931e+03,.5757405e+03,.8412192e+03,.1108773e+04,&
20603  & .1035785e+04,.7867242e+03,.5757045e+03,.8411493e+03,.1108704e+04,&
20604  & .1034434e+04,.7857049e+03,.5754770e+03,.8408953e+03,.1108371e+04,&
20605  & .1033255e+04,.7848307e+03,.5750727e+03,.8403820e+03,.1107804e+04,&
20606  & .1032221e+04,.7840296e+03,.5744847e+03,.8396477e+03,.1106878e+04,&
20607  & .1033083e+04,.7846984e+03,.5756617e+03,.8411849e+03,.1108731e+04,&
20608  & .1031809e+04,.7837832e+03,.5755890e+03,.8410839e+03,.1108675e+04,&
20609  & .1030787e+04,.7829597e+03,.5753383e+03,.8407754e+03,.1108320e+04,&
20610  & .1029807e+04,.7822396e+03,.5749009e+03,.8402301e+03,.1107645e+04,&
20611  & .1028979e+04,.7816263e+03,.5742825e+03,.8394539e+03,.1106694e+04,&
20612  & .1029657e+04,.7821089e+03,.5755832e+03,.8411501e+03,.1108780e+04,&
20613  & .1028643e+04,.7813695e+03,.5754905e+03,.8410195e+03,.1108611e+04,&
20614  & .1027767e+04,.7807233e+03,.5752049e+03,.8406589e+03,.1108196e+04,&
20615  & .1027001e+04,.7801530e+03,.5747429e+03,.8400708e+03,.1107518e+04,&
20616  & .1026393e+04,.7796516e+03,.5740912e+03,.8392499e+03,.1106487e+04,&
20617  & .1026855e+04,.7800266e+03,.5755207e+03,.8411092e+03,.1108746e+04,&
20618  & .1026108e+04,.7794325e+03,.5753911e+03,.8409396e+03,.1108560e+04,&
20619  & .1025405e+04,.7789140e+03,.5750771e+03,.8405361e+03,.1108069e+04,&
20620  & .1024798e+04,.7784615e+03,.5745776e+03,.8399056e+03,.1107291e+04,&
20621  & .1024258e+04,.7780677e+03,.5738970e+03,.8390391e+03,.1106226e+04,&
20622  & .1024599e+04,.7783363e+03,.5754652e+03,.8410717e+03,.1108755e+04,&
20623  & .1023976e+04,.7778616e+03,.5752948e+03,.8408626e+03,.1108455e+04,&
20624  & .1023441e+04,.7774535e+03,.5749424e+03,.8404102e+03,.1107910e+04,&
20625  & .1022936e+04,.7771014e+03,.5744109e+03,.8397256e+03,.1107107e+04,&
20626  & .1022522e+04,.7767688e+03,.5736917e+03,.8388102e+03,.1105992e+04,&
20627  & .1022769e+04,.7769692e+03,.5754043e+03,.8410269e+03,.1108704e+04,&
20628  & .1022268e+04,.7765895e+03,.5751966e+03,.8407518e+03,.1108371e+04,&
20629  & .1021836e+04,.7762638e+03,.5748030e+03,.8402567e+03,.1107761e+04,&
20630  & .1021436e+04,.7759755e+03,.5742299e+03,.8395192e+03,.1106876e+04,&
20631  & .1021119e+04,.7757229e+03,.5734692e+03,.8385490e+03,.1105715e+04/
20632 
20633  data absb(351:525, 5) / &
20634  & .1021292e+04,.7758615e+03,.5753413e+03,.8409718e+03,.1108668e+04,&
20635  & .1020929e+04,.7755643e+03,.5750916e+03,.8406449e+03,.1108220e+04,&
20636  & .1020592e+04,.7753101e+03,.5746540e+03,.8400874e+03,.1107585e+04,&
20637  & .1020272e+04,.7750812e+03,.5740383e+03,.8393001e+03,.1106614e+04,&
20638  & .1019972e+04,.7748751e+03,.5732385e+03,.8382776e+03,.1105351e+04,&
20639  & .1020107e+04,.7749807e+03,.5752706e+03,.8408913e+03,.1108584e+04,&
20640  & .1019789e+04,.7747389e+03,.5749801e+03,.8405246e+03,.1108134e+04,&
20641  & .1019546e+04,.7745422e+03,.5745060e+03,.8399165e+03,.1107403e+04,&
20642  & .1019286e+04,.7743596e+03,.5738419e+03,.8390704e+03,.1106328e+04,&
20643  & .1019084e+04,.7741942e+03,.5730024e+03,.8379946e+03,.1105002e+04,&
20644  & .1019170e+04,.7742594e+03,.5751978e+03,.8408308e+03,.1108460e+04,&
20645  & .1018904e+04,.7740885e+03,.5748611e+03,.8403860e+03,.1107988e+04,&
20646  & .1018723e+04,.7739185e+03,.5743390e+03,.8397187e+03,.1107159e+04,&
20647  & .1018501e+04,.7737687e+03,.5736328e+03,.8388110e+03,.1106037e+04,&
20648  & .1018361e+04,.7736360e+03,.5727529e+03,.8376904e+03,.1104671e+04,&
20649  & .1018405e+04,.7736814e+03,.5751164e+03,.8407303e+03,.1108371e+04,&
20650  & .1018184e+04,.7735401e+03,.5747312e+03,.8402361e+03,.1107809e+04,&
20651  & .1018016e+04,.7734164e+03,.5741681e+03,.8395069e+03,.1106893e+04,&
20652  & .1017890e+04,.7732973e+03,.5734155e+03,.8385510e+03,.1105713e+04,&
20653  & .1017756e+04,.7731912e+03,.5724903e+03,.8373611e+03,.1104249e+04,&
20654  & .1017792e+04,.7732316e+03,.5750249e+03,.8406141e+03,.1108220e+04,&
20655  & .1017606e+04,.7731185e+03,.5745953e+03,.8400642e+03,.1107577e+04,&
20656  & .1017494e+04,.7730061e+03,.5739811e+03,.8392794e+03,.1106592e+04,&
20657  & .1017366e+04,.7729075e+03,.5731866e+03,.8382606e+03,.1105362e+04,&
20658  & .1017266e+04,.7728198e+03,.5722190e+03,.8370243e+03,.1103792e+04,&
20659  & .1017292e+04,.7728676e+03,.5749177e+03,.8404941e+03,.1108136e+04,&
20660  & .1017190e+04,.7727693e+03,.5744446e+03,.8398803e+03,.1107391e+04,&
20661  & .1017083e+04,.7726878e+03,.5737816e+03,.8390343e+03,.1106328e+04,&
20662  & .1016964e+04,.7726050e+03,.5729440e+03,.8379568e+03,.1105000e+04,&
20663  & .1016882e+04,.7725450e+03,.5719281e+03,.8366665e+03,.1103367e+04,&
20664  & .1016898e+04,.7725446e+03,.5748005e+03,.8403534e+03,.1107950e+04,&
20665  & .1016789e+04,.7724810e+03,.5742785e+03,.8396774e+03,.1107107e+04,&
20666  & .1016697e+04,.7724226e+03,.5735704e+03,.8387721e+03,.1105974e+04,&
20667  & .1016611e+04,.7723504e+03,.5726872e+03,.8376384e+03,.1104578e+04,&
20668  & .1016571e+04,.7723041e+03,.5716302e+03,.8363014e+03,.1102913e+04/
20669 
20670  data absb(526:700, 5) / &
20671  & .1016584e+04,.7723202e+03,.5746950e+03,.8402176e+03,.1107804e+04,&
20672  & .1016488e+04,.7722577e+03,.5741300e+03,.8394890e+03,.1106878e+04,&
20673  & .1016426e+04,.7722026e+03,.5733811e+03,.8385253e+03,.1105713e+04,&
20674  & .1016380e+04,.7721456e+03,.5724560e+03,.8373415e+03,.1104249e+04,&
20675  & .1016306e+04,.7721127e+03,.5713670e+03,.8359703e+03,.1102470e+04,&
20676  & .1016292e+04,.7721168e+03,.5746264e+03,.8401340e+03,.1107701e+04,&
20677  & .1016228e+04,.7720667e+03,.5740386e+03,.8393714e+03,.1106751e+04,&
20678  & .1016205e+04,.7720362e+03,.5732662e+03,.8383847e+03,.1105553e+04,&
20679  & .1016128e+04,.7719854e+03,.5723210e+03,.8371730e+03,.1104011e+04,&
20680  & .1016090e+04,.7719561e+03,.5712032e+03,.8357753e+03,.1102230e+04,&
20681  & .1016110e+04,.7719675e+03,.5746079e+03,.8401177e+03,.1107679e+04,&
20682  & .1016065e+04,.7719395e+03,.5740164e+03,.8393596e+03,.1106716e+04,&
20683  & .1016018e+04,.7718925e+03,.5732410e+03,.8383584e+03,.1105484e+04,&
20684  & .1015979e+04,.7718623e+03,.5722888e+03,.8371394e+03,.1103992e+04,&
20685  & .1015924e+04,.7718361e+03,.5711776e+03,.8357521e+03,.1102176e+04,&
20686  & .1015947e+04,.7718575e+03,.5746707e+03,.8401949e+03,.1107761e+04,&
20687  & .1015896e+04,.7718201e+03,.5741037e+03,.8394653e+03,.1106876e+04,&
20688  & .1015883e+04,.7717903e+03,.5733511e+03,.8384984e+03,.1105710e+04,&
20689  & .1015843e+04,.7717658e+03,.5724260e+03,.8373113e+03,.1104216e+04,&
20690  & .1015798e+04,.7717449e+03,.5713285e+03,.8359335e+03,.1102415e+04,&
20691  & .1015834e+04,.7717612e+03,.5747316e+03,.8402799e+03,.1107885e+04,&
20692  & .1015782e+04,.7717396e+03,.5741902e+03,.8395813e+03,.1107005e+04,&
20693  & .1015801e+04,.7717242e+03,.5734642e+03,.8386440e+03,.1105870e+04,&
20694  & .1015718e+04,.7716962e+03,.5725620e+03,.8374954e+03,.1104414e+04,&
20695  & .1015732e+04,.7716614e+03,.5714866e+03,.8361383e+03,.1102708e+04,&
20696  & .1015729e+04,.7716742e+03,.5747862e+03,.8403517e+03,.1107983e+04,&
20697  & .1015723e+04,.7716656e+03,.5742723e+03,.8396911e+03,.1107164e+04,&
20698  & .1015702e+04,.7716450e+03,.5735710e+03,.8387908e+03,.1106042e+04,&
20699  & .1015640e+04,.7716167e+03,.5726959e+03,.8376665e+03,.1104643e+04,&
20700  & .1015624e+04,.7716061e+03,.5716434e+03,.8363327e+03,.1102967e+04,&
20701  & .1015631e+04,.7716188e+03,.5748861e+03,.8404775e+03,.1108129e+04,&
20702  & .1015600e+04,.7716030e+03,.5744127e+03,.8398706e+03,.1107389e+04,&
20703  & .1015613e+04,.7715764e+03,.5737556e+03,.8390288e+03,.1106328e+04,&
20704  & .1015597e+04,.7715697e+03,.5729199e+03,.8379553e+03,.1105002e+04,&
20705  & .1015567e+04,.7715535e+03,.5719103e+03,.8366668e+03,.1103378e+04/
20706 
20707  data absb(701:875, 5) / &
20708  & .1015593e+04,.7715621e+03,.5749733e+03,.8405981e+03,.1108255e+04,&
20709  & .1015568e+04,.7715451e+03,.5745491e+03,.8400486e+03,.1107577e+04,&
20710  & .1015524e+04,.7715394e+03,.5739392e+03,.8392612e+03,.1106614e+04,&
20711  & .1015503e+04,.7715146e+03,.5731507e+03,.8382433e+03,.1105384e+04,&
20712  & .1015505e+04,.7715078e+03,.5721820e+03,.8370057e+03,.1103824e+04,&
20713  & .1015532e+04,.7715161e+03,.5750518e+03,.8407005e+03,.1108396e+04,&
20714  & .1015508e+04,.7715165e+03,.5746709e+03,.8402103e+03,.1107804e+04,&
20715  & .1015497e+04,.7714992e+03,.5741118e+03,.8394869e+03,.1106898e+04,&
20716  & .1015491e+04,.7714822e+03,.5733668e+03,.8385286e+03,.1105713e+04,&
20717  & .1015451e+04,.7714746e+03,.5724432e+03,.8373437e+03,.1104253e+04,&
20718  & .1015486e+04,.7714820e+03,.5751302e+03,.8408091e+03,.1108535e+04,&
20719  & .1015439e+04,.7714848e+03,.5748127e+03,.8403847e+03,.1108012e+04,&
20720  & .1015433e+04,.7714633e+03,.5743039e+03,.8397376e+03,.1107232e+04,&
20721  & .1015424e+04,.7714749e+03,.5736175e+03,.8388518e+03,.1106104e+04,&
20722  & .1015410e+04,.7714655e+03,.5727504e+03,.8377374e+03,.1104743e+04,&
20723  & .1015436e+04,.7714612e+03,.5751941e+03,.8408969e+03,.1108616e+04,&
20724  & .1015415e+04,.7714466e+03,.5749379e+03,.8405563e+03,.1108196e+04,&
20725  & .1015431e+04,.7714422e+03,.5744930e+03,.8399786e+03,.1107523e+04,&
20726  & .1015404e+04,.7714254e+03,.5738675e+03,.8391725e+03,.1106533e+04,&
20727  & .1015390e+04,.7714259e+03,.5730571e+03,.8381379e+03,.1105227e+04,&
20728  & .1015396e+04,.7714361e+03,.5752396e+03,.8409521e+03,.1108709e+04,&
20729  & .1015390e+04,.7714279e+03,.5750483e+03,.8406969e+03,.1108371e+04,&
20730  & .1015395e+04,.7714259e+03,.5746631e+03,.8402006e+03,.1107804e+04,&
20731  & .1015371e+04,.7714032e+03,.5740972e+03,.8394745e+03,.1106873e+04,&
20732  & .1015337e+04,.7714081e+03,.5733553e+03,.8385150e+03,.1105708e+04,&
20733  & .1015386e+04,.7714066e+03,.5752600e+03,.8409913e+03,.1108744e+04,&
20734  & .1015370e+04,.7713985e+03,.5751351e+03,.8408196e+03,.1108557e+04,&
20735  & .1015337e+04,.7713964e+03,.5748223e+03,.8404045e+03,.1108012e+04,&
20736  & .1015367e+04,.7713981e+03,.5743244e+03,.8397592e+03,.1107234e+04,&
20737  & .1015333e+04,.7713847e+03,.5736421e+03,.8388851e+03,.1106199e+04,&
20738  & .1015347e+04,.7714005e+03,.5752587e+03,.8410118e+03,.1108805e+04,&
20739  & .1015311e+04,.7713902e+03,.5752086e+03,.8409157e+03,.1108668e+04,&
20740  & .1015318e+04,.7713893e+03,.5749690e+03,.8405927e+03,.1108222e+04,&
20741  & .1015319e+04,.7713841e+03,.5745459e+03,.8400467e+03,.1107577e+04,&
20742  & .1015312e+04,.7713874e+03,.5739392e+03,.8392646e+03,.1106614e+04/
20743 
20744  data absb(876:1050, 5) / &
20745  & .1015326e+04,.7713768e+03,.5752286e+03,.8409923e+03,.1108751e+04,&
20746  & .1015341e+04,.7713759e+03,.5752489e+03,.8409777e+03,.1108755e+04,&
20747  & .1015327e+04,.7713686e+03,.5750877e+03,.8407611e+03,.1108430e+04,&
20748  & .1015298e+04,.7713645e+03,.5747398e+03,.8402950e+03,.1107885e+04,&
20749  & .1015298e+04,.7713757e+03,.5742018e+03,.8396055e+03,.1107040e+04,&
20750  & .1015315e+04,.7713740e+03,.5751637e+03,.8409394e+03,.1108628e+04,&
20751  & .1015298e+04,.7713705e+03,.5752637e+03,.8410091e+03,.1108775e+04,&
20752  & .1015291e+04,.7713551e+03,.5751720e+03,.8408697e+03,.1108543e+04,&
20753  & .1015296e+04,.7713612e+03,.5748985e+03,.8405081e+03,.1108141e+04,&
20754  & .1015287e+04,.7713533e+03,.5744395e+03,.8399107e+03,.1107418e+04,&
20755  & .1015330e+04,.7713626e+03,.5750740e+03,.8408557e+03,.1108508e+04,&
20756  & .1015299e+04,.7713625e+03,.5752467e+03,.8410077e+03,.1108736e+04,&
20757  & .1015318e+04,.7713499e+03,.5752320e+03,.8409497e+03,.1108707e+04,&
20758  & .1015318e+04,.7713544e+03,.5750237e+03,.8406755e+03,.1108347e+04,&
20759  & .1015282e+04,.7713600e+03,.5746353e+03,.8401644e+03,.1107726e+04,&
20760  & .1015292e+04,.7713486e+03,.5749639e+03,.8407482e+03,.1108372e+04,&
20761  & .1015292e+04,.7713504e+03,.5752056e+03,.8409790e+03,.1108713e+04,&
20762  & .1015299e+04,.7713406e+03,.5752580e+03,.8409900e+03,.1108719e+04,&
20763  & .1015282e+04,.7713457e+03,.5751224e+03,.8408012e+03,.1108533e+04,&
20764  & .1015288e+04,.7713329e+03,.5748024e+03,.8403755e+03,.1108010e+04,&
20765  & .1015278e+04,.7713411e+03,.5748265e+03,.8406142e+03,.1108188e+04,&
20766  & .1015285e+04,.7713391e+03,.5751400e+03,.8409197e+03,.1108633e+04,&
20767  & .1015300e+04,.7713296e+03,.5752623e+03,.8410092e+03,.1108780e+04,&
20768  & .1015260e+04,.7713359e+03,.5751941e+03,.8408949e+03,.1108613e+04,&
20769  & .1015249e+04,.7713381e+03,.5749404e+03,.8405598e+03,.1108215e+04,&
20770  & .1015290e+04,.7713457e+03,.5746781e+03,.8404406e+03,.1107881e+04,&
20771  & .1015286e+04,.7713522e+03,.5750445e+03,.8408353e+03,.1108489e+04,&
20772  & .1015263e+04,.7713448e+03,.5752353e+03,.8410044e+03,.1108763e+04,&
20773  & .1015276e+04,.7713348e+03,.5752379e+03,.8409611e+03,.1108729e+04,&
20774  & .1015251e+04,.7713276e+03,.5750531e+03,.8407073e+03,.1108401e+04,&
20775  & .1015261e+04,.7713452e+03,.5745201e+03,.8402523e+03,.1107669e+04,&
20776  & .1015285e+04,.7713402e+03,.5749379e+03,.8407260e+03,.1108316e+04,&
20777  & .1015244e+04,.7713261e+03,.5751964e+03,.8409694e+03,.1108716e+04,&
20778  & .1015225e+04,.7713244e+03,.5752625e+03,.8409972e+03,.1108744e+04,&
20779  & .1015265e+04,.7713303e+03,.5751375e+03,.8408146e+03,.1108557e+04/
20780 
20781  data absb(1051:1175, 5) / &
20782  & .1015244e+04,.7713264e+03,.5743548e+03,.8400510e+03,.1107362e+04,&
20783  & .1015239e+04,.7713259e+03,.5748138e+03,.8406007e+03,.1108145e+04,&
20784  & .1015247e+04,.7713243e+03,.5751348e+03,.8409159e+03,.1108592e+04,&
20785  & .1015239e+04,.7713274e+03,.5752584e+03,.8410086e+03,.1108765e+04,&
20786  & .1015225e+04,.7713165e+03,.5751971e+03,.8409024e+03,.1108626e+04,&
20787  & .1015239e+04,.7713283e+03,.5741622e+03,.8398247e+03,.1107071e+04,&
20788  & .1015242e+04,.7713198e+03,.5746895e+03,.8404515e+03,.1107922e+04,&
20789  & .1015259e+04,.7713226e+03,.5750496e+03,.8408398e+03,.1108489e+04,&
20790  & .1015245e+04,.7713144e+03,.5752404e+03,.8410002e+03,.1108765e+04,&
20791  & .1015213e+04,.7713098e+03,.5752355e+03,.8409584e+03,.1108726e+04,&
20792  & .1015251e+04,.7713192e+03,.5739542e+03,.8395683e+03,.1106711e+04,&
20793  & .1015233e+04,.7713215e+03,.5745434e+03,.8402746e+03,.1107712e+04,&
20794  & .1015233e+04,.7713191e+03,.5749555e+03,.8407368e+03,.1108359e+04,&
20795  & .1015225e+04,.7713188e+03,.5752003e+03,.8409744e+03,.1108718e+04,&
20796  & .1015230e+04,.7713144e+03,.5752584e+03,.8409937e+03,.1108785e+04,&
20797  & .1015229e+04,.7713118e+03,.5737443e+03,.8392982e+03,.1106304e+04,&
20798  & .1015223e+04,.7713138e+03,.5743800e+03,.8400877e+03,.1107435e+04,&
20799  & .1015225e+04,.7713224e+03,.5748430e+03,.8406293e+03,.1108163e+04,&
20800  & .1015242e+04,.7713219e+03,.5751451e+03,.8409290e+03,.1108631e+04,&
20801  & .1015245e+04,.7713273e+03,.5752596e+03,.8410108e+03,.1108780e+04,&
20802  & .1015256e+04,.7713168e+03,.5736529e+03,.8391840e+03,.1106202e+04,&
20803  & .1015245e+04,.7713129e+03,.5743168e+03,.8400016e+03,.1107303e+04,&
20804  & .1015228e+04,.7713181e+03,.5747952e+03,.8405779e+03,.1108104e+04,&
20805  & .1015223e+04,.7713094e+03,.5751176e+03,.8408989e+03,.1108617e+04,&
20806  & .1015221e+04,.7713103e+03,.5752541e+03,.8410111e+03,.1108805e+04/
20807 
20808  data absb( 1:175, 6) / &
20809  & .1154807e+04,.8742824e+03,.6044416e+03,.8875279e+03,.1172179e+04,&
20810  & .1145735e+04,.8678557e+03,.6038007e+03,.8866634e+03,.1170524e+04,&
20811  & .1138341e+04,.8618214e+03,.6031354e+03,.8856771e+03,.1169072e+04,&
20812  & .1131676e+04,.8569035e+03,.6023105e+03,.8844938e+03,.1167566e+04,&
20813  & .1125765e+04,.8523731e+03,.6012823e+03,.8831031e+03,.1165768e+04,&
20814  & .1132423e+04,.8576942e+03,.6040145e+03,.8872823e+03,.1171938e+04,&
20815  & .1125222e+04,.8521701e+03,.6034057e+03,.8864202e+03,.1170389e+04,&
20816  & .1118840e+04,.8476932e+03,.6027501e+03,.8854305e+03,.1168930e+04,&
20817  & .1113657e+04,.8434208e+03,.6018925e+03,.8841002e+03,.1167350e+04,&
20818  & .1108930e+04,.8400398e+03,.6009245e+03,.8828407e+03,.1165664e+04,&
20819  & .1114323e+04,.8441225e+03,.6036531e+03,.8870573e+03,.1171838e+04,&
20820  & .1108136e+04,.8393878e+03,.6030685e+03,.8861976e+03,.1170255e+04,&
20821  & .1103477e+04,.8360310e+03,.6024155e+03,.8851986e+03,.1168810e+04,&
20822  & .1098878e+04,.8326282e+03,.6015839e+03,.8839936e+03,.1167258e+04,&
20823  & .1095319e+04,.8298688e+03,.6005810e+03,.8825764e+03,.1165436e+04,&
20824  & .1099193e+04,.8328782e+03,.6033501e+03,.8868553e+03,.1171666e+04,&
20825  & .1094160e+04,.8293321e+03,.6027849e+03,.8859925e+03,.1170121e+04,&
20826  & .1090881e+04,.8264769e+03,.6021240e+03,.8849814e+03,.1168673e+04,&
20827  & .1087108e+04,.8233209e+03,.6012865e+03,.8837601e+03,.1167082e+04,&
20828  & .1083860e+04,.8212156e+03,.6002431e+03,.8823316e+03,.1165266e+04,&
20829  & .1087573e+04,.8238271e+03,.6030927e+03,.8866823e+03,.1171492e+04,&
20830  & .1083841e+04,.8210481e+03,.6025442e+03,.8858138e+03,.1169959e+04,&
20831  & .1080483e+04,.8185717e+03,.6018720e+03,.8847842e+03,.1168471e+04,&
20832  & .1077525e+04,.8165982e+03,.6010297e+03,.8835474e+03,.1166895e+04,&
20833  & .1075183e+04,.8146439e+03,.6000078e+03,.8821013e+03,.1165101e+04,&
20834  & .1077583e+04,.8165170e+03,.6028710e+03,.8865245e+03,.1171303e+04,&
20835  & .1074539e+04,.8142927e+03,.6023309e+03,.8856430e+03,.1169820e+04,&
20836  & .1072137e+04,.8120580e+03,.6016533e+03,.8845555e+03,.1168326e+04,&
20837  & .1069843e+04,.8106399e+03,.6007990e+03,.8833472e+03,.1166722e+04,&
20838  & .1067730e+04,.8091125e+03,.5997668e+03,.8818852e+03,.1164922e+04,&
20839  & .1069797e+04,.8107198e+03,.6026903e+03,.8863807e+03,.1171163e+04,&
20840  & .1067434e+04,.8085376e+03,.6021520e+03,.8854952e+03,.1169596e+04,&
20841  & .1065302e+04,.8070848e+03,.6014625e+03,.8844335e+03,.1168167e+04,&
20842  & .1063248e+04,.8057185e+03,.6005661e+03,.8831570e+03,.1166538e+04,&
20843  & .1061700e+04,.8046590e+03,.5995523e+03,.8816793e+03,.1164754e+04/
20844 
20845  data absb(176:350, 6) / &
20846  & .1063387e+04,.8058664e+03,.6025225e+03,.8862332e+03,.1170967e+04,&
20847  & .1061291e+04,.8043546e+03,.6019839e+03,.8853313e+03,.1169477e+04,&
20848  & .1059375e+04,.8029392e+03,.6012771e+03,.8842066e+03,.1167966e+04,&
20849  & .1058118e+04,.8019047e+03,.6003971e+03,.8829591e+03,.1166269e+04,&
20850  & .1057001e+04,.8008290e+03,.5993321e+03,.8814537e+03,.1164472e+04,&
20851  & .1058126e+04,.8017380e+03,.6023731e+03,.8860941e+03,.1170779e+04,&
20852  & .1056377e+04,.8006266e+03,.6018305e+03,.8851768e+03,.1169335e+04,&
20853  & .1055112e+04,.7997092e+03,.6011088e+03,.8838887e+03,.1167803e+04,&
20854  & .1053591e+04,.7985932e+03,.6002092e+03,.8827556e+03,.1166104e+04,&
20855  & .1052710e+04,.7980450e+03,.5991296e+03,.8811895e+03,.1164303e+04,&
20856  & .1053535e+04,.7985078e+03,.6022154e+03,.8859028e+03,.1170510e+04,&
20857  & .1052649e+04,.7973207e+03,.6016135e+03,.8849596e+03,.1169037e+04,&
20858  & .1051227e+04,.7967413e+03,.6008956e+03,.8838144e+03,.1167519e+04,&
20859  & .1050475e+04,.7962211e+03,.5999630e+03,.8824642e+03,.1165766e+04,&
20860  & .1049370e+04,.7952948e+03,.5988541e+03,.8809085e+03,.1163969e+04,&
20861  & .1050325e+04,.7960009e+03,.6020625e+03,.8857073e+03,.1170186e+04,&
20862  & .1049398e+04,.7952026e+03,.6014647e+03,.8847301e+03,.1168748e+04,&
20863  & .1048230e+04,.7945935e+03,.6006799e+03,.8835488e+03,.1167182e+04,&
20864  & .1047667e+04,.7940912e+03,.5997159e+03,.8821562e+03,.1165463e+04,&
20865  & .1047042e+04,.7935326e+03,.5985744e+03,.8805687e+03,.1163647e+04,&
20866  & .1047281e+04,.7937988e+03,.6019135e+03,.8855050e+03,.1169920e+04,&
20867  & .1046440e+04,.7933166e+03,.6012784e+03,.8844912e+03,.1168471e+04,&
20868  & .1045887e+04,.7928309e+03,.6004624e+03,.8832652e+03,.1166849e+04,&
20869  & .1045297e+04,.7923255e+03,.5994646e+03,.8818357e+03,.1165063e+04,&
20870  & .1044505e+04,.7918388e+03,.5982572e+03,.8802121e+03,.1163214e+04,&
20871  & .1045195e+04,.7920747e+03,.6017576e+03,.8852861e+03,.1169584e+04,&
20872  & .1044449e+04,.7917074e+03,.6010868e+03,.8840962e+03,.1168127e+04,&
20873  & .1043910e+04,.7912987e+03,.6002298e+03,.8829669e+03,.1166499e+04,&
20874  & .1043360e+04,.7907238e+03,.5992000e+03,.8814921e+03,.1164668e+04,&
20875  & .1042953e+04,.7905956e+03,.5979889e+03,.8798344e+03,.1162852e+04,&
20876  & .1043336e+04,.7906786e+03,.6015878e+03,.8850466e+03,.1169289e+04,&
20877  & .1042560e+04,.7904597e+03,.6008783e+03,.8839470e+03,.1167776e+04,&
20878  & .1042396e+04,.7901232e+03,.5999833e+03,.8826272e+03,.1166071e+04,&
20879  & .1041865e+04,.7898279e+03,.5989107e+03,.8811075e+03,.1164265e+04,&
20880  & .1041536e+04,.7894512e+03,.5976609e+03,.8794176e+03,.1162232e+04/
20881 
20882  data absb(351:525, 6) / &
20883  & .1041735e+04,.7896371e+03,.6014126e+03,.8847933e+03,.1168848e+04,&
20884  & .1041235e+04,.7894095e+03,.6006558e+03,.8836405e+03,.1167384e+04,&
20885  & .1040839e+04,.7890744e+03,.5997245e+03,.8822749e+03,.1165633e+04,&
20886  & .1040637e+04,.7888720e+03,.5986096e+03,.8807131e+03,.1163845e+04,&
20887  & .1040454e+04,.7886684e+03,.5973211e+03,.8789887e+03,.1161882e+04,&
20888  & .1040668e+04,.7886417e+03,.6012280e+03,.8845275e+03,.1168593e+04,&
20889  & .1040157e+04,.7885219e+03,.6004316e+03,.8833250e+03,.1166996e+04,&
20890  & .1039836e+04,.7881981e+03,.5994554e+03,.8819140e+03,.1165226e+04,&
20891  & .1039810e+04,.7880131e+03,.5982992e+03,.8802613e+03,.1163390e+04,&
20892  & .1039396e+04,.7878410e+03,.5969813e+03,.8785538e+03,.1161371e+04,&
20893  & .1039719e+04,.7879584e+03,.6010368e+03,.8841057e+03,.1168138e+04,&
20894  & .1039383e+04,.7875535e+03,.6001922e+03,.8829897e+03,.1166558e+04,&
20895  & .1038687e+04,.7875554e+03,.5991728e+03,.8815245e+03,.1164748e+04,&
20896  & .1038748e+04,.7874938e+03,.5979743e+03,.8798787e+03,.1162892e+04,&
20897  & .1038605e+04,.7873559e+03,.5966233e+03,.8780670e+03,.1160883e+04,&
20898  & .1038508e+04,.7874554e+03,.6008293e+03,.8839425e+03,.1167803e+04,&
20899  & .1038655e+04,.7872552e+03,.5999122e+03,.8825924e+03,.1166035e+04,&
20900  & .1038537e+04,.7869660e+03,.5988787e+03,.8811226e+03,.1164305e+04,&
20901  & .1038302e+04,.7868881e+03,.5976363e+03,.8794383e+03,.1162412e+04,&
20902  & .1038080e+04,.7868277e+03,.5962613e+03,.8776832e+03,.1160344e+04,&
20903  & .1037957e+04,.7867389e+03,.6006076e+03,.8836238e+03,.1167419e+04,&
20904  & .1037919e+04,.7865797e+03,.5996797e+03,.8822650e+03,.1165664e+04,&
20905  & .1037579e+04,.7865886e+03,.5985653e+03,.8807029e+03,.1163863e+04,&
20906  & .1037883e+04,.7866633e+03,.5972822e+03,.8789799e+03,.1161882e+04,&
20907  & .1037601e+04,.7866140e+03,.5958926e+03,.8772343e+03,.1159884e+04,&
20908  & .1037461e+04,.7861854e+03,.6003749e+03,.8832869e+03,.1166982e+04,&
20909  & .1037326e+04,.7862094e+03,.5994026e+03,.8818705e+03,.1165163e+04,&
20910  & .1037061e+04,.7861750e+03,.5982418e+03,.8802656e+03,.1163356e+04,&
20911  & .1037419e+04,.7862176e+03,.5969241e+03,.8785113e+03,.1161372e+04,&
20912  & .1037145e+04,.7860371e+03,.5955189e+03,.8767759e+03,.1159373e+04,&
20913  & .1037013e+04,.7863353e+03,.6001314e+03,.8829351e+03,.1166533e+04,&
20914  & .1036952e+04,.7860923e+03,.5991081e+03,.8814656e+03,.1164747e+04,&
20915  & .1036909e+04,.7858192e+03,.5979043e+03,.8797720e+03,.1162848e+04,&
20916  & .1037101e+04,.7860878e+03,.5965532e+03,.8780077e+03,.1160772e+04,&
20917  & .1037052e+04,.7858782e+03,.5951462e+03,.8762643e+03,.1158850e+04/
20918 
20919  data absb(526:700, 6) / &
20920  & .1036873e+04,.7857554e+03,.5999088e+03,.8825714e+03,.1166104e+04,&
20921  & .1036902e+04,.7858253e+03,.5988157e+03,.8811019e+03,.1164303e+04,&
20922  & .1036596e+04,.7858513e+03,.5976035e+03,.8794171e+03,.1162395e+04,&
20923  & .1036614e+04,.7859297e+03,.5962301e+03,.8776601e+03,.1160341e+04,&
20924  & .1036517e+04,.7857179e+03,.5947950e+03,.8759039e+03,.1158401e+04,&
20925  & .1036789e+04,.7858044e+03,.5997786e+03,.8824249e+03,.1165869e+04,&
20926  & .1036568e+04,.7858527e+03,.5986878e+03,.8808902e+03,.1164075e+04,&
20927  & .1036290e+04,.7856385e+03,.5973952e+03,.8791810e+03,.1162152e+04,&
20928  & .1036375e+04,.7857728e+03,.5960430e+03,.8773906e+03,.1160111e+04,&
20929  & .1036584e+04,.7856477e+03,.5946509e+03,.8756676e+03,.1158142e+04,&
20930  & .1036449e+04,.7856991e+03,.5997524e+03,.8823952e+03,.1165837e+04,&
20931  & .1036546e+04,.7855390e+03,.5986607e+03,.8808071e+03,.1164007e+04,&
20932  & .1036324e+04,.7856328e+03,.5973933e+03,.8791438e+03,.1162099e+04,&
20933  & .1036443e+04,.7855912e+03,.5960116e+03,.8773979e+03,.1160087e+04,&
20934  & .1036138e+04,.7855274e+03,.5946182e+03,.8754914e+03,.1158117e+04,&
20935  & .1036317e+04,.7854628e+03,.5998802e+03,.8825810e+03,.1166071e+04,&
20936  & .1036407e+04,.7855544e+03,.5988135e+03,.8810642e+03,.1164250e+04,&
20937  & .1036350e+04,.7855655e+03,.5975664e+03,.8793754e+03,.1162334e+04,&
20938  & .1036135e+04,.7854510e+03,.5961891e+03,.8776234e+03,.1160316e+04,&
20939  & .1036293e+04,.7854258e+03,.5947873e+03,.8758601e+03,.1158372e+04,&
20940  & .1036190e+04,.7854073e+03,.6000093e+03,.8827730e+03,.1166300e+04,&
20941  & .1036230e+04,.7852517e+03,.5989682e+03,.8812856e+03,.1164529e+04,&
20942  & .1035870e+04,.7851557e+03,.5977157e+03,.8796174e+03,.1162655e+04,&
20943  & .1036108e+04,.7852461e+03,.5963833e+03,.8777687e+03,.1160603e+04,&
20944  & .1035856e+04,.7854329e+03,.5949784e+03,.8761109e+03,.1158641e+04,&
20945  & .1036008e+04,.7854391e+03,.6001409e+03,.8829635e+03,.1166558e+04,&
20946  & .1035672e+04,.7852254e+03,.5991240e+03,.8815002e+03,.1164752e+04,&
20947  & .1035771e+04,.7851997e+03,.5979225e+03,.8798541e+03,.1162890e+04,&
20948  & .1035959e+04,.7853362e+03,.5965775e+03,.8780456e+03,.1160878e+04,&
20949  & .1036077e+04,.7852519e+03,.5951718e+03,.8763106e+03,.1158912e+04,&
20950  & .1036065e+04,.7853034e+03,.6003541e+03,.8832840e+03,.1166995e+04,&
20951  & .1036122e+04,.7852033e+03,.5993846e+03,.8818706e+03,.1165191e+04,&
20952  & .1035790e+04,.7853073e+03,.5982296e+03,.8802674e+03,.1163356e+04,&
20953  & .1035706e+04,.7852523e+03,.5969107e+03,.8785167e+03,.1161368e+04,&
20954  & .1035830e+04,.7852339e+03,.5955085e+03,.8767385e+03,.1159384e+04/
20955 
20956  data absb(701:875, 6) / &
20957  & .1035691e+04,.7852423e+03,.6005711e+03,.8836138e+03,.1167419e+04,&
20958  & .1035908e+04,.7853193e+03,.5996475e+03,.8822488e+03,.1165664e+04,&
20959  & .1035762e+04,.7850877e+03,.5985371e+03,.8806907e+03,.1163865e+04,&
20960  & .1035976e+04,.7852798e+03,.5972262e+03,.8789734e+03,.1161918e+04,&
20961  & .1035858e+04,.7852361e+03,.5958649e+03,.8772263e+03,.1159899e+04,&
20962  & .1035722e+04,.7852842e+03,.6007813e+03,.8839238e+03,.1167804e+04,&
20963  & .1035719e+04,.7850227e+03,.5999002e+03,.8826192e+03,.1166124e+04,&
20964  & .1035600e+04,.7850937e+03,.5988393e+03,.8811085e+03,.1164303e+04,&
20965  & .1035738e+04,.7852072e+03,.5975958e+03,.8794250e+03,.1162408e+04,&
20966  & .1035762e+04,.7851633e+03,.5962227e+03,.8776696e+03,.1160304e+04,&
20967  & .1035752e+04,.7852392e+03,.6010174e+03,.8841948e+03,.1168330e+04,&
20968  & .1035945e+04,.7849973e+03,.6001604e+03,.8830466e+03,.1166677e+04,&
20969  & .1035925e+04,.7851444e+03,.5991890e+03,.8815961e+03,.1164885e+04,&
20970  & .1035817e+04,.7848046e+03,.5979682e+03,.8799616e+03,.1162996e+04,&
20971  & .1035850e+04,.7847913e+03,.5966615e+03,.8782015e+03,.1161017e+04,&
20972  & .1035638e+04,.7850513e+03,.6012543e+03,.8846111e+03,.1168741e+04,&
20973  & .1035730e+04,.7851337e+03,.6004922e+03,.8834894e+03,.1167254e+04,&
20974  & .1035445e+04,.7850312e+03,.5995458e+03,.8821086e+03,.1165365e+04,&
20975  & .1035700e+04,.7851973e+03,.5984185e+03,.8805353e+03,.1163672e+04,&
20976  & .1035789e+04,.7850241e+03,.5971269e+03,.8788018e+03,.1161708e+04,&
20977  & .1035632e+04,.7849920e+03,.6014692e+03,.8850013e+03,.1169266e+04,&
20978  & .1035755e+04,.7850265e+03,.6007663e+03,.8838589e+03,.1167803e+04,&
20979  & .1035534e+04,.7848868e+03,.5998828e+03,.8825962e+03,.1166100e+04,&
20980  & .1035605e+04,.7851301e+03,.5988206e+03,.8810847e+03,.1164299e+04,&
20981  & .1035576e+04,.7849624e+03,.5975789e+03,.8793971e+03,.1162393e+04,&
20982  & .1035448e+04,.7851267e+03,.6016773e+03,.8853457e+03,.1169825e+04,&
20983  & .1035833e+04,.7851690e+03,.6010423e+03,.8842300e+03,.1168330e+04,&
20984  & .1035814e+04,.7850287e+03,.6002225e+03,.8830915e+03,.1166729e+04,&
20985  & .1035463e+04,.7849992e+03,.5992224e+03,.8816502e+03,.1164925e+04,&
20986  & .1035596e+04,.7851550e+03,.5980443e+03,.8800202e+03,.1163074e+04,&
20987  & .1035621e+04,.7849593e+03,.6018789e+03,.8857046e+03,.1170389e+04,&
20988  & .1035804e+04,.7849848e+03,.6013182e+03,.8847579e+03,.1168918e+04,&
20989  & .1035665e+04,.7849816e+03,.6005690e+03,.8836138e+03,.1167420e+04,&
20990  & .1035718e+04,.7848933e+03,.5996475e+03,.8822566e+03,.1165667e+04,&
20991  & .1035684e+04,.7848079e+03,.5985373e+03,.8806947e+03,.1163864e+04/
20992 
20993  data absb(876:1050, 6) / &
20994  & .1035396e+04,.7850994e+03,.6020651e+03,.8860430e+03,.1170959e+04,&
20995  & .1035443e+04,.7850165e+03,.6015627e+03,.8851600e+03,.1169522e+04,&
20996  & .1035416e+04,.7850543e+03,.6008940e+03,.8838713e+03,.1168065e+04,&
20997  & .1035678e+04,.7850493e+03,.6000376e+03,.8828269e+03,.1166399e+04,&
20998  & .1035656e+04,.7848387e+03,.5990054e+03,.8813440e+03,.1164574e+04,&
20999  & .1035799e+04,.7849568e+03,.6022304e+03,.8863649e+03,.1171665e+04,&
21000  & .1035662e+04,.7849150e+03,.6017841e+03,.8855314e+03,.1170121e+04,&
21001  & .1035790e+04,.7851167e+03,.6011844e+03,.8845494e+03,.1168673e+04,&
21002  & .1035751e+04,.7849497e+03,.6004028e+03,.8833168e+03,.1167013e+04,&
21003  & .1035765e+04,.7850336e+03,.5994082e+03,.8819645e+03,.1165343e+04,&
21004  & .1035223e+04,.7849097e+03,.6024415e+03,.8866859e+03,.1172339e+04,&
21005  & .1035610e+04,.7848771e+03,.6019601e+03,.8858592e+03,.1170680e+04,&
21006  & .1035292e+04,.7850288e+03,.6014302e+03,.8849412e+03,.1169154e+04,&
21007  & .1035255e+04,.7849051e+03,.6007179e+03,.8837423e+03,.1167730e+04,&
21008  & .1035724e+04,.7847308e+03,.5998232e+03,.8825148e+03,.1166003e+04,&
21009  & .1035548e+04,.7850328e+03,.6026138e+03,.8870664e+03,.1173037e+04,&
21010  & .1035703e+04,.7849473e+03,.6021374e+03,.8861617e+03,.1171252e+04,&
21011  & .1035663e+04,.7850676e+03,.6016439e+03,.8852969e+03,.1169745e+04,&
21012  & .1035770e+04,.7849775e+03,.6010002e+03,.8842177e+03,.1168267e+04,&
21013  & .1035731e+04,.7851009e+03,.6001688e+03,.8830217e+03,.1166634e+04,&
21014  & .1035751e+04,.7850608e+03,.6027803e+03,.8874485e+03,.1173984e+04,&
21015  & .1035764e+04,.7849860e+03,.6023128e+03,.8864542e+03,.1171860e+04,&
21016  & .1035482e+04,.7850930e+03,.6018352e+03,.8856260e+03,.1170255e+04,&
21017  & .1035535e+04,.7849801e+03,.6012570e+03,.8846634e+03,.1168815e+04,&
21018  & .1035673e+04,.7849343e+03,.6004942e+03,.8834988e+03,.1167257e+04,&
21019  & .1035524e+04,.7848552e+03,.6029106e+03,.8880716e+03,.1174957e+04,&
21020  & .1035658e+04,.7846826e+03,.6024834e+03,.8867342e+03,.1172519e+04,&
21021  & .1035489e+04,.7848135e+03,.6020058e+03,.8859421e+03,.1170818e+04,&
21022  & .1035424e+04,.7848886e+03,.6014905e+03,.8850368e+03,.1169362e+04,&
21023  & .1035663e+04,.7850003e+03,.6007966e+03,.8839492e+03,.1167867e+04,&
21024  & .1035504e+04,.7848111e+03,.6031050e+03,.8887172e+03,.1175944e+04,&
21025  & .1035279e+04,.7847971e+03,.6026411e+03,.8871385e+03,.1173254e+04,&
21026  & .1035415e+04,.7850072e+03,.6021673e+03,.8862095e+03,.1171363e+04,&
21027  & .1035656e+04,.7850409e+03,.6016799e+03,.8853554e+03,.1169825e+04,&
21028  & .1035406e+04,.7848736e+03,.6010491e+03,.8843357e+03,.1168391e+04/
21029 
21030  data absb(1051:1175, 6) / &
21031  & .1035713e+04,.7849729e+03,.6032946e+03,.8893995e+03,.1176941e+04,&
21032  & .1035444e+04,.7849707e+03,.6027864e+03,.8875237e+03,.1174025e+04,&
21033  & .1035565e+04,.7850045e+03,.6023190e+03,.8864702e+03,.1171867e+04,&
21034  & .1035712e+04,.7849606e+03,.6018460e+03,.8856449e+03,.1170317e+04,&
21035  & .1035707e+04,.7850798e+03,.6012695e+03,.8846865e+03,.1168843e+04,&
21036  & .1035705e+04,.7849167e+03,.6035391e+03,.8900967e+03,.1177953e+04,&
21037  & .1035730e+04,.7849972e+03,.6028979e+03,.8880295e+03,.1174870e+04,&
21038  & .1035405e+04,.7849160e+03,.6024731e+03,.8867542e+03,.1172461e+04,&
21039  & .1035544e+04,.7850359e+03,.6019902e+03,.8859187e+03,.1170739e+04,&
21040  & .1035719e+04,.7850739e+03,.6014757e+03,.8850119e+03,.1169315e+04,&
21041  & .1035505e+04,.7850447e+03,.6039271e+03,.8909936e+03,.1179187e+04,&
21042  & .1035517e+04,.7849136e+03,.6030826e+03,.8886380e+03,.1175823e+04,&
21043  & .1035643e+04,.7849538e+03,.6026205e+03,.8870923e+03,.1173152e+04,&
21044  & .1035536e+04,.7849523e+03,.6021490e+03,.8861784e+03,.1171261e+04,&
21045  & .1035534e+04,.7850334e+03,.6016601e+03,.8853177e+03,.1169773e+04,&
21046  & .1035546e+04,.7850318e+03,.6043242e+03,.8919185e+03,.1180418e+04,&
21047  & .1035602e+04,.7849911e+03,.6032555e+03,.8892747e+03,.1176756e+04,&
21048  & .1035555e+04,.7849176e+03,.6027602e+03,.8874056e+03,.1173878e+04,&
21049  & .1035566e+04,.7849074e+03,.6022939e+03,.8864253e+03,.1171787e+04,&
21050  & .1035501e+04,.7847965e+03,.6018145e+03,.8855936e+03,.1170187e+04,&
21051  & .1035450e+04,.7849937e+03,.6045469e+03,.8923132e+03,.1180947e+04,&
21052  & .1035470e+04,.7849930e+03,.6033415e+03,.8895406e+03,.1177165e+04,&
21053  & .1035648e+04,.7849151e+03,.6028185e+03,.8876106e+03,.1174216e+04,&
21054  & .1035655e+04,.7850350e+03,.6023184e+03,.8865228e+03,.1172007e+04,&
21055  & .1035589e+04,.7850346e+03,.6018757e+03,.8856974e+03,.1170389e+04/
21056 
21057 !........................................!
21058  end module module_radsw_kgb28 !
21059 !========================================!
21060 
21061 
21064 !========================================!
21066 !........................................!
21067 !
21068 ! ********* the original program descriptions ********* !
21069 ! !
21070 ! originally by j.delamere, atmospheric & environmental research. !
21071 ! revision: 2.4 !
21072 ! band 29: 820-2600 cm-1 (low - h2o; high - co2) !
21073 ! reformatted for f90 by jjmorcrette, ecmwf !
21074 ! !
21075 ! this table has been re-generated for reduced number of g-point !
21076 ! by y.t.hou, ncep !
21077 ! !
21078 ! ********* ********* end description ********* ********* !
21079 !
21080  use physparam, only : kind_phys
21081  use module_radsw_parameters, only : ng29
21082 
21083 !
21084  implicit none
21085 !
21086  private
21087 !
21089  integer, public :: msa29
21091  integer, public :: msb29
21093  integer, public :: msf29
21095  integer, public :: mfr29
21096  parameter(msa29=65, msb29=235, msf29=10, mfr29=4)
21097 
21098  real (kind=kind_phys), public :: forref(mfr29,ng29)
21099 
21115  real (kind=kind_phys), public :: absa(msa29,ng29)
21116 
21128  real (kind=kind_phys), public :: absb(msb29,ng29)
21129 
21135  real (kind=kind_phys), public :: selfref(msf29,ng29)
21136 
21138  real (kind=kind_phys), public :: absh2o(ng29)
21139 
21141  real (kind=kind_phys), public :: absco2(ng29)
21142 
21144  real (kind=kind_phys), parameter, public :: rayl = 9.30e-11
21145 
21146 ! --- h2o
21147  data absh2o(1:12) / .2995080e-03,.3950120e-02,&
21148  & .1493160e-01,.3243840e-01,.9440181e-01,.1006542e+01,.9383158e+01,&
21149  & .2134138e+00,.2155620e+00,.2180870e+00,.2209180e+00,.2185460e+00/
21150 
21151 ! --- co2
21152  data absco2(1:12) / .2900730e-05,.2123820e-04,&
21153  & .1030320e-03,.1864810e-03,.5136065e-03,.2118687e-01,.4146680e+01,&
21154  & .4301567e+02,.1641290e+03,.8322820e+03,.4995020e+04,.1267810e+05/
21155 
21156  data absa( 1: 65, 1) / &
21157  & .1156500e-03,.1012300e-03,.9080400e-04,.8228200e-04,.7108300e-04,&
21158  & .9643400e-04,.8283000e-04,.7236600e-04,.6180300e-04,.5249700e-04,&
21159  & .6453900e-04,.5665900e-04,.4660500e-04,.3981500e-04,.3711800e-04,&
21160  & .3441700e-04,.2711300e-04,.2536200e-04,.3034500e-04,.3627500e-04,&
21161  & .1226000e-04,.1585600e-04,.2083400e-04,.2736300e-04,.3611400e-04,&
21162  & .1022100e-04,.1459800e-04,.1969500e-04,.2597600e-04,.3370200e-04,&
21163  & .9756300e-05,.1380900e-04,.2023100e-04,.2723800e-04,.3611000e-04,&
21164  & .1406200e-04,.1958700e-04,.2706900e-04,.3693700e-04,.4941500e-04,&
21165  & .3637100e-04,.4812200e-04,.6158600e-04,.7764700e-04,.9989700e-04,&
21166  & .9920300e-04,.1284200e-03,.1658800e-03,.2083400e-03,.2600000e-03,&
21167  & .1323300e-03,.1731800e-03,.2205900e-03,.2890400e-03,.3606200e-03,&
21168  & .1337900e-03,.1748400e-03,.2368700e-03,.3028600e-03,.3750400e-03,&
21169  & .1174000e-03,.1566700e-03,.2096200e-03,.2676800e-03,.3348500e-03/
21170 
21171  data absa( 1: 65, 2) / &
21172  & .1024600e-03,.1045000e-03,.9738300e-04,.9639800e-04,.1054900e-03,&
21173  & .1058900e-03,.1024000e-03,.9580100e-04,.9850900e-04,.1199300e-03,&
21174  & .9405400e-04,.8700900e-04,.1094100e-03,.1348600e-03,.1591800e-03,&
21175  & .1188300e-03,.1423600e-03,.1663600e-03,.1823500e-03,.1978500e-03,&
21176  & .1780000e-03,.1934700e-03,.2097700e-03,.2273000e-03,.2511100e-03,&
21177  & .2224300e-03,.2415700e-03,.2656700e-03,.2854900e-03,.3072300e-03,&
21178  & .2924800e-03,.3224200e-03,.3463500e-03,.3791500e-03,.4080300e-03,&
21179  & .4338600e-03,.4861100e-03,.5268100e-03,.5681200e-03,.6064200e-03,&
21180  & .8910900e-03,.1034500e-02,.1179400e-02,.1304500e-02,.1430300e-02,&
21181  & .2153800e-02,.2445900e-02,.2732900e-02,.3093200e-02,.3525300e-02,&
21182  & .2927200e-02,.3267600e-02,.3635300e-02,.4006200e-02,.4544100e-02,&
21183  & .3076200e-02,.3436500e-02,.3814600e-02,.4155600e-02,.4716400e-02,&
21184  & .2780800e-02,.3111400e-02,.3438300e-02,.3795400e-02,.4257600e-02/
21185 
21186  data absa( 1: 65, 3) / &
21187  & .2404200e-03,.3271900e-03,.4437000e-03,.5683600e-03,.7035700e-03,&
21188  & .2330300e-03,.3190100e-03,.4192600e-03,.5240000e-03,.6236500e-03,&
21189  & .3505000e-03,.4215800e-03,.4749000e-03,.5339000e-03,.6041100e-03,&
21190  & .4995400e-03,.5306700e-03,.5633800e-03,.6085900e-03,.6656900e-03,&
21191  & .6690800e-03,.6972700e-03,.7289800e-03,.7675600e-03,.8035800e-03,&
21192  & .8863400e-03,.9285300e-03,.9685600e-03,.1010100e-02,.1055600e-02,&
21193  & .1165900e-02,.1235500e-02,.1323800e-02,.1388900e-02,.1449100e-02,&
21194  & .1748500e-02,.1822300e-02,.1941100e-02,.2070500e-02,.2202500e-02,&
21195  & .4244200e-02,.4356100e-02,.4506100e-02,.4750500e-02,.5035800e-02,&
21196  & .1094000e-01,.1149900e-01,.1190600e-01,.1257000e-01,.1280300e-01,&
21197  & .1428700e-01,.1501000e-01,.1558100e-01,.1605400e-01,.1660900e-01,&
21198  & .1485600e-01,.1554600e-01,.1607400e-01,.1647800e-01,.1705700e-01,&
21199  & .1325700e-01,.1383400e-01,.1415500e-01,.1472300e-01,.1509500e-01/
21200 
21201  data absa( 1: 65, 4) / &
21202  & .2439100e-02,.2872000e-02,.3349700e-02,.3892600e-02,.4505400e-02,&
21203  & .2250600e-02,.2600400e-02,.3000200e-02,.3449000e-02,.3957900e-02,&
21204  & .2215300e-02,.2571100e-02,.2932000e-02,.3333000e-02,.3772800e-02,&
21205  & .2248300e-02,.2544500e-02,.2874500e-02,.3248400e-02,.3655400e-02,&
21206  & .2338800e-02,.2598500e-02,.2891400e-02,.3237700e-02,.3611300e-02,&
21207  & .2466900e-02,.2657900e-02,.2883400e-02,.3153800e-02,.3459300e-02,&
21208  & .3253600e-02,.3341300e-02,.3437500e-02,.3590500e-02,.3801000e-02,&
21209  & .5122800e-02,.5196700e-02,.5282000e-02,.5344600e-02,.5379700e-02,&
21210  & .1302900e-01,.1306500e-01,.1289100e-01,.1284800e-01,.1277700e-01,&
21211  & .2991100e-01,.3011700e-01,.2834000e-01,.2732100e-01,.2748500e-01,&
21212  & .3666300e-01,.3687700e-01,.3468800e-01,.3300400e-01,.3243700e-01,&
21213  & .3728200e-01,.3777500e-01,.3491000e-01,.3346300e-01,.3307400e-01,&
21214  & .3341200e-01,.3296100e-01,.3032300e-01,.2943700e-01,.2957200e-01/
21215 
21216  data absa( 1: 65, 5) / &
21217  & .5737669e-01,.6072679e-01,.6409123e-01,.6738949e-01,.7052420e-01,&
21218  & .5012852e-01,.5294581e-01,.5563579e-01,.5843403e-01,.6127801e-01,&
21219  & .4354787e-01,.4609744e-01,.4874155e-01,.5138444e-01,.5397080e-01,&
21220  & .3827336e-01,.4064492e-01,.4287087e-01,.4511010e-01,.4735934e-01,&
21221  & .3418365e-01,.3615136e-01,.3817782e-01,.4009673e-01,.4202725e-01,&
21222  & .3135060e-01,.3301048e-01,.3465038e-01,.3632036e-01,.3815047e-01,&
21223  & .2990607e-01,.3131211e-01,.3276228e-01,.3421907e-01,.3588465e-01,&
21224  & .3047960e-01,.3187197e-01,.3323626e-01,.3465826e-01,.3619150e-01,&
21225  & .4306469e-01,.4376339e-01,.4465622e-01,.4556160e-01,.4646970e-01,&
21226  & .8678394e-01,.8535671e-01,.8559355e-01,.8558578e-01,.8553480e-01,&
21227  & .1070789e+00,.1044012e+00,.1040583e+00,.1040024e+00,.1036748e+00,&
21228  & .1081364e+00,.1052681e+00,.1050326e+00,.1048529e+00,.1046392e+00,&
21229  & .9356527e-01,.9192786e-01,.9227488e-01,.9212577e-01,.9173403e-01/
21230 
21231  data absa( 1: 65, 6) / &
21232  & .5500343e+00,.5549109e+00,.5588616e+00,.5629779e+00,.5667564e+00,&
21233  & .4994114e+00,.5037790e+00,.5100008e+00,.5169978e+00,.5240736e+00,&
21234  & .5046611e+00,.5105279e+00,.5158277e+00,.5226637e+00,.5303378e+00,&
21235  & .5302528e+00,.5393967e+00,.5458119e+00,.5537515e+00,.5618237e+00,&
21236  & .5411203e+00,.5556023e+00,.5677558e+00,.5802746e+00,.5898268e+00,&
21237  & .5252486e+00,.5447502e+00,.5651635e+00,.5824674e+00,.6014351e+00,&
21238  & .5100890e+00,.5352169e+00,.5583076e+00,.5833005e+00,.6058393e+00,&
21239  & .5180699e+00,.5497814e+00,.5808233e+00,.6108346e+00,.6398736e+00,&
21240  & .6522488e+00,.6891866e+00,.7325459e+00,.7797722e+00,.8260960e+00,&
21241  & .9640811e+00,.1024659e+01,.1093085e+01,.1161786e+01,.1235652e+01,&
21242  & .1047820e+01,.1114446e+01,.1186733e+01,.1258652e+01,.1334983e+01,&
21243  & .1011033e+01,.1074570e+01,.1140350e+01,.1211241e+01,.1280754e+01,&
21244  & .9007538e+00,.9506568e+00,.1005449e+01,.1058464e+01,.1116021e+01/
21245 
21246  data absa( 1: 65, 7) / &
21247  & .4649358e+01,.4659442e+01,.4675452e+01,.4685713e+01,.4692899e+01,&
21248  & .4599705e+01,.4611058e+01,.4611629e+01,.4612755e+01,.4607683e+01,&
21249  & .4619900e+01,.4611704e+01,.4611644e+01,.4599592e+01,.4592568e+01,&
21250  & .4687320e+01,.4681368e+01,.4668829e+01,.4653209e+01,.4637546e+01,&
21251  & .4851120e+01,.4815554e+01,.4796404e+01,.4771634e+01,.4773910e+01,&
21252  & .5130952e+01,.5103158e+01,.5076979e+01,.5135909e+01,.5190723e+01,&
21253  & .5614324e+01,.5655787e+01,.5731968e+01,.5785423e+01,.5820571e+01,&
21254  & .6802466e+01,.6894140e+01,.6919677e+01,.6955254e+01,.6983671e+01,&
21255  & .9510364e+01,.9545777e+01,.9589682e+01,.9667897e+01,.9623013e+01,&
21256  & .9447407e+01,.9253876e+01,.9037997e+01,.8820753e+01,.8587497e+01,&
21257  & .9261615e+01,.9040240e+01,.8802081e+01,.8566366e+01,.8317559e+01,&
21258  & .9408423e+01,.9193385e+01,.8974202e+01,.8739541e+01,.8508727e+01,&
21259  & .9731443e+01,.9563647e+01,.9382645e+01,.9207221e+01,.9018631e+01/
21260 
21261  data absa( 1: 65, 8) / &
21262  & .1544733e+02,.1554976e+02,.1552859e+02,.1550737e+02,.1552125e+02,&
21263  & .1738703e+02,.1741986e+02,.1747727e+02,.1744027e+02,.1739669e+02,&
21264  & .1987281e+02,.1989151e+02,.1998931e+02,.1999712e+02,.1998411e+02,&
21265  & .2258389e+02,.2260003e+02,.2268696e+02,.2264651e+02,.2270608e+02,&
21266  & .2504125e+02,.2510226e+02,.2517712e+02,.2519913e+02,.2495283e+02,&
21267  & .2747847e+02,.2717648e+02,.2695792e+02,.2626421e+02,.2537969e+02,&
21268  & .2961485e+02,.2896370e+02,.2795835e+02,.2715755e+02,.2643866e+02,&
21269  & .2732825e+02,.2612667e+02,.2538192e+02,.2458336e+02,.2384624e+02,&
21270  & .5753079e+01,.4812161e+01,.3663267e+01,.2188469e+01,.1578210e+01,&
21271  & .1936683e+00,.1796201e+00,.1673070e+00,.1564801e+00,.1466219e+00,&
21272  & .2745909e+00,.2544928e+00,.2369058e+00,.2210443e+00,.2070125e+00,&
21273  & .2913703e+00,.2698520e+00,.2503822e+00,.2335086e+00,.2184884e+00,&
21274  & .2490616e+00,.2300611e+00,.2134111e+00,.1990053e+00,.1862957e+00/
21275 
21276  data absa( 1: 65, 9) / &
21277  & .2967200e+02,.2929100e+02,.2919100e+02,.2917000e+02,.2911600e+02,&
21278  & .2471300e+02,.2496500e+02,.2503900e+02,.2535500e+02,.2565000e+02,&
21279  & .3051000e+02,.3116600e+02,.3066300e+02,.3102100e+02,.3090100e+02,&
21280  & .3869500e+02,.3892200e+02,.3874100e+02,.3920400e+02,.3882600e+02,&
21281  & .4511800e+02,.4433700e+02,.4366400e+02,.4326700e+02,.4352400e+02,&
21282  & .3465200e+02,.3518200e+02,.3533900e+02,.3534000e+02,.3589900e+02,&
21283  & .1880100e+02,.1859800e+02,.1885500e+02,.1881900e+02,.1905200e+02,&
21284  & .1229700e-01,.1142500e-01,.1067000e-01,.9999400e-02,.9413900e-02,&
21285  & .4682100e-01,.4336100e-01,.4036800e-01,.3775200e-01,.3549300e-01,&
21286  & .1981700e+00,.1830300e+00,.1700200e+00,.1588300e+00,.1493300e+00,&
21287  & .2814500e+00,.2599500e+00,.2418100e+00,.2266000e+00,.2132600e+00,&
21288  & .2951000e+00,.2729400e+00,.2551900e+00,.2394700e+00,.2255100e+00,&
21289  & .2483000e+00,.2307400e+00,.2155600e+00,.2022600e+00,.1902900e+00/
21290 
21291  data absa( 1: 65,10) / &
21292  & .4716800e+02,.4689000e+02,.4661200e+02,.4635300e+02,.4608800e+02,&
21293  & .4777100e+02,.4698000e+02,.4644500e+02,.4582800e+02,.4543700e+02,&
21294  & .4294600e+02,.4265200e+02,.4379100e+02,.4323700e+02,.4410400e+02,&
21295  & .3095700e+02,.3009800e+02,.3005500e+02,.2955500e+02,.2990200e+02,&
21296  & .2839700e+01,.3857200e+01,.4290600e+01,.4709100e+01,.4813500e+01,&
21297  & .3697800e-02,.3459100e-02,.3252400e-02,.3064900e-02,.2901800e-02,&
21298  & .6173300e-02,.5758900e-02,.5392500e-02,.5074200e-02,.4783500e-02,&
21299  & .1239000e-01,.1152600e-01,.1076600e-01,.1009600e-01,.9501000e-02,&
21300  & .4710500e-01,.4364800e-01,.4066500e-01,.3805400e-01,.3572200e-01,&
21301  & .1991500e+00,.1841200e+00,.1709900e+00,.1595700e+00,.1494800e+00,&
21302  & .2828000e+00,.2612400e+00,.2426600e+00,.2264500e+00,.2121400e+00,&
21303  & .2989100e+00,.2761300e+00,.2564800e+00,.2392700e+00,.2242300e+00,&
21304  & .2542100e+00,.2348400e+00,.2180900e+00,.2034700e+00,.1905700e+00/
21305 
21306  data absa( 1: 65,11) / &
21307  & .6499400e+02,.6428300e+02,.6375500e+02,.6340700e+02,.6328700e+02,&
21308  & .7826600e+02,.7736400e+02,.7672200e+02,.7628500e+02,.7599200e+02,&
21309  & .4171000e+02,.3837900e+02,.3507600e+02,.3541800e+02,.3330600e+02,&
21310  & .1417000e-02,.1340100e-02,.1271600e-02,.1207300e-02,.1153500e-02,&
21311  & .2365900e-02,.2226100e-02,.2104200e-02,.1995000e-02,.1897000e-02,&
21312  & .3743200e-02,.3510500e-02,.3300600e-02,.3122200e-02,.2952100e-02,&
21313  & .6240800e-02,.5825800e-02,.5478200e-02,.5159400e-02,.4876700e-02,&
21314  & .1252200e-01,.1165200e-01,.1092200e-01,.1026500e-01,.9667200e-02,&
21315  & .4754500e-01,.4415200e-01,.4125100e-01,.3866600e-01,.3635800e-01,&
21316  & .2009700e+00,.1859200e+00,.1734100e+00,.1620300e+00,.1523500e+00,&
21317  & .2849900e+00,.2642800e+00,.2458500e+00,.2298000e+00,.2157500e+00,&
21318  & .3017200e+00,.2792900e+00,.2598000e+00,.2430600e+00,.2278900e+00,&
21319  & .2565500e+00,.2373100e+00,.2209200e+00,.2063900e+00,.1936700e+00/
21320 
21321  data absa( 1: 65,12) / &
21322  & .8081000e+02,.8109900e+02,.8119000e+02,.8110700e+02,.8098900e+02,&
21323  & .9931900e+02,.9970800e+02,.9982200e+02,.9987100e+02,.9999300e+02,&
21324  & .4692700e+02,.5431600e+02,.5735500e+02,.5371500e+02,.5280200e+02,&
21325  & .1280200e-02,.1202700e-02,.1138600e-02,.1086600e-02,.1052500e-02,&
21326  & .2167500e-02,.2071500e-02,.1942200e-02,.1840200e-02,.1768100e-02,&
21327  & .3470700e-02,.3279600e-02,.3098600e-02,.2924600e-02,.2803400e-02,&
21328  & .5865900e-02,.5531000e-02,.5182000e-02,.4882900e-02,.4678400e-02,&
21329  & .1187500e-01,.1118300e-01,.1043800e-01,.9803800e-02,.9366500e-02,&
21330  & .4551900e-01,.4285000e-01,.3971500e-01,.3744700e-01,.3536900e-01,&
21331  & .1939200e+00,.1810800e+00,.1681700e+00,.1588300e+00,.1486400e+00,&
21332  & .2783000e+00,.2571500e+00,.2410000e+00,.2259500e+00,.2132100e+00,&
21333  & .2953300e+00,.2742200e+00,.2563600e+00,.2393600e+00,.2265800e+00,&
21334  & .2531000e+00,.2353500e+00,.2185500e+00,.2055200e+00,.1929300e+00/
21335 
21336 ! the array absb(235,12) (kb(5,13:59,12)) contains absorption coefs at
21337 ! the 16 chosen g-values for a range of pressure levels < ~100mb and
21338 ! temperatures. the first index in the array, jt, which runs from 1 to 5,
21339 ! corresponds to different temperatures. more specifically, jt = 3 means
21340 ! that the data are for the reference temperature tref for this pressure
21341 ! level, jt = 2 refers to the temperature tref-15, jt = 1 is for
21342 ! tref-30, jt = 4 is for tref+15, and jt = 5 is for tref+30.
21343 ! the second index, jp, runs from 13 to 59 and refers to the jpth
21344 ! reference pressure level (see taumol.f for the value of these
21345 ! pressure levels in mb). the third index, ig, goes from 1 to 12,
21346 ! and tells us which g-interval the absorption coefficients are for.
21347 
21348  data absb( 1:120, 1) / &
21349  & .1837900e-05,.2329600e-05,.2900700e-05,.3590200e-05,.4343700e-05,&
21350  & .1591900e-05,.1983200e-05,.2472000e-05,.3068300e-05,.3725300e-05,&
21351  & .1385000e-05,.1711500e-05,.2122500e-05,.2629200e-05,.3194500e-05,&
21352  & .1189600e-05,.1468000e-05,.1814200e-05,.2253700e-05,.2728400e-05,&
21353  & .1022800e-05,.1259700e-05,.1553200e-05,.1927200e-05,.2316300e-05,&
21354  & .8824300e-06,.1083500e-05,.1331600e-05,.1660300e-05,.1980800e-05,&
21355  & .7567700e-06,.9292500e-06,.1140100e-05,.1410700e-05,.1690100e-05,&
21356  & .6461400e-06,.7936100e-06,.9735300e-06,.1196400e-05,.1441400e-05,&
21357  & .5532300e-06,.6758000e-06,.8264700e-06,.1013700e-05,.1231800e-05,&
21358  & .4771900e-06,.5814900e-06,.7106000e-06,.8700500e-06,.1060500e-05,&
21359  & .4112800e-06,.5008000e-06,.6110400e-06,.7534700e-06,.9120000e-06,&
21360  & .3530600e-06,.4286000e-06,.5232000e-06,.6515600e-06,.7812200e-06,&
21361  & .3036300e-06,.3673100e-06,.4467300e-06,.5609700e-06,.6679100e-06,&
21362  & .2607300e-06,.3153700e-06,.3873800e-06,.4821000e-06,.5738200e-06,&
21363  & .2230300e-06,.2698600e-06,.3362800e-06,.4116100e-06,.4872200e-06,&
21364  & .1895400e-06,.2295200e-06,.2879700e-06,.3516600e-06,.4144000e-06,&
21365  & .1610600e-06,.1943000e-06,.2466100e-06,.2981500e-06,.3515100e-06,&
21366  & .1363000e-06,.1652800e-06,.2092200e-06,.2519300e-06,.2991300e-06,&
21367  & .1150400e-06,.1427600e-06,.1780700e-06,.2148200e-06,.2545100e-06,&
21368  & .9698000e-07,.1221500e-06,.1515900e-06,.1817900e-06,.2151500e-06,&
21369  & .8159800e-07,.1031500e-06,.1273000e-06,.1519000e-06,.1809300e-06,&
21370  & .6770000e-07,.8597000e-07,.1055900e-06,.1260800e-06,.1500600e-06,&
21371  & .5517700e-07,.6951900e-07,.8596700e-07,.1022300e-06,.1214700e-06,&
21372  & .4392400e-07,.5439500e-07,.6799800e-07,.8114200e-07,.9571700e-07/
21373 
21374  data absb(121:235, 1) / &
21375  & .3446900e-07,.4103600e-07,.5257500e-07,.6311700e-07,.7430100e-07,&
21376  & .2677700e-07,.3173400e-07,.4055500e-07,.4903200e-07,.5765300e-07,&
21377  & .2067000e-07,.2472100e-07,.3068500e-07,.3787300e-07,.4455500e-07,&
21378  & .1586000e-07,.1903200e-07,.2261200e-07,.2884500e-07,.3424600e-07,&
21379  & .1212900e-07,.1460300e-07,.1735700e-07,.2185100e-07,.2634600e-07,&
21380  & .9231900e-08,.1119900e-07,.1336500e-07,.1617400e-07,.2001900e-07,&
21381  & .6928900e-08,.8453700e-08,.1015900e-07,.1199200e-07,.1494000e-07,&
21382  & .5154600e-08,.6338000e-08,.7659300e-08,.9056200e-08,.1071600e-07,&
21383  & .3833500e-08,.4708500e-08,.5721900e-08,.6814800e-08,.7951800e-08,&
21384  & .2858300e-08,.3472400e-08,.4244700e-08,.5088800e-08,.5949400e-08,&
21385  & .2094500e-08,.2541800e-08,.3105800e-08,.3749400e-08,.4427400e-08,&
21386  & .1516400e-08,.1856000e-08,.2262800e-08,.2737100e-08,.3277300e-08,&
21387  & .1091600e-08,.1346500e-08,.1638700e-08,.1974000e-08,.2386500e-08,&
21388  & .7832400e-09,.9836100e-09,.1197700e-08,.1451700e-08,.1745700e-08,&
21389  & .5726300e-09,.7178600e-09,.8768900e-09,.1070500e-08,.1288100e-08,&
21390  & .4157400e-09,.5126400e-09,.6415200e-09,.7831500e-09,.9470500e-09,&
21391  & .2994000e-09,.3683600e-09,.4588600e-09,.5640500e-09,.6916600e-09,&
21392  & .2261700e-09,.2739500e-09,.3375400e-09,.4209500e-09,.5154400e-09,&
21393  & .1748300e-09,.2084500e-09,.2554600e-09,.3181700e-09,.3911900e-09,&
21394  & .1349600e-09,.1593000e-09,.1938000e-09,.2386100e-09,.2977000e-09,&
21395  & .1040600e-09,.1224700e-09,.1474900e-09,.1807800e-09,.2259700e-09,&
21396  & .8134500e-10,.9481600e-10,.1132900e-09,.1383200e-09,.1716100e-09,&
21397  & .6715900e-10,.7831200e-10,.9474500e-10,.1154400e-09,.1444200e-09/
21398 
21399  data absb( 1:120, 2) / &
21400  & .1665400e-04,.1872800e-04,.2123800e-04,.2449100e-04,.2903800e-04,&
21401  & .1563600e-04,.1757400e-04,.1991800e-04,.2367100e-04,.2723700e-04,&
21402  & .1485300e-04,.1662900e-04,.1970000e-04,.2260400e-04,.2558600e-04,&
21403  & .1351900e-04,.1592300e-04,.1828900e-04,.2053000e-04,.2279900e-04,&
21404  & .1241100e-04,.1443900e-04,.1643100e-04,.1823500e-04,.2010900e-04,&
21405  & .1126700e-04,.1288000e-04,.1442900e-04,.1600500e-04,.1753800e-04,&
21406  & .1002500e-04,.1133200e-04,.1255000e-04,.1385300e-04,.1510300e-04,&
21407  & .8634200e-05,.9745500e-05,.1077800e-04,.1189800e-04,.1278900e-04,&
21408  & .7400400e-05,.8310700e-05,.9163300e-05,.1007100e-04,.1067400e-04,&
21409  & .6370000e-05,.7054900e-05,.7827100e-05,.8517000e-05,.9002200e-05,&
21410  & .5440400e-05,.6015600e-05,.6639300e-05,.7132000e-05,.7500700e-05,&
21411  & .4599700e-05,.5071800e-05,.5571300e-05,.5945500e-05,.6211800e-05,&
21412  & .3874500e-05,.4261700e-05,.4647900e-05,.4929700e-05,.5163800e-05,&
21413  & .3248800e-05,.3559200e-05,.3868500e-05,.4075900e-05,.4309200e-05,&
21414  & .2699500e-05,.2960100e-05,.3206500e-05,.3366600e-05,.3560900e-05,&
21415  & .2235900e-05,.2442900e-05,.2640800e-05,.2775200e-05,.2929300e-05,&
21416  & .1848700e-05,.2008900e-05,.2166800e-05,.2279300e-05,.2402900e-05,&
21417  & .1529100e-05,.1658900e-05,.1773300e-05,.1870600e-05,.1958400e-05,&
21418  & .1255400e-05,.1358900e-05,.1443600e-05,.1519500e-05,.1592800e-05,&
21419  & .1024800e-05,.1104600e-05,.1171600e-05,.1228800e-05,.1291600e-05,&
21420  & .8327200e-06,.8912000e-06,.9503600e-06,.9904000e-06,.1040900e-05,&
21421  & .6751800e-06,.7209700e-06,.7685400e-06,.8024600e-06,.8391200e-06,&
21422  & .5357700e-06,.5787000e-06,.6171500e-06,.6498700e-06,.6722000e-06,&
21423  & .4240200e-06,.4582500e-06,.4930700e-06,.5200500e-06,.5402900e-06/
21424 
21425  data absb(121:235, 2) / &
21426  & .3341900e-06,.3621300e-06,.3891100e-06,.4135900e-06,.4317700e-06,&
21427  & .2624000e-06,.2835500e-06,.3053000e-06,.3288100e-06,.3461700e-06,&
21428  & .2046800e-06,.2224500e-06,.2398000e-06,.2577600e-06,.2742400e-06,&
21429  & .1607000e-06,.1747800e-06,.1885600e-06,.2023000e-06,.2180100e-06,&
21430  & .1258300e-06,.1368000e-06,.1485100e-06,.1591700e-06,.1718400e-06,&
21431  & .9849400e-07,.1063900e-06,.1163400e-06,.1250000e-06,.1349000e-06,&
21432  & .7519600e-07,.8280900e-07,.9009500e-07,.9795200e-07,.1050900e-06,&
21433  & .5730500e-07,.6378700e-07,.6922700e-07,.7563500e-07,.8168700e-07,&
21434  & .4296500e-07,.4824500e-07,.5334600e-07,.5806100e-07,.6312000e-07,&
21435  & .3104800e-07,.3645700e-07,.4051400e-07,.4455700e-07,.4855000e-07,&
21436  & .2309400e-07,.2635600e-07,.3044300e-07,.3395400e-07,.3678900e-07,&
21437  & .1685800e-07,.1940200e-07,.2244900e-07,.2540100e-07,.2825400e-07,&
21438  & .1141300e-07,.1405500e-07,.1604600e-07,.1892700e-07,.2108000e-07,&
21439  & .7865000e-08,.9987900e-08,.1184600e-07,.1365400e-07,.1587100e-07,&
21440  & .5541700e-08,.6897700e-08,.8700600e-08,.1010800e-07,.1182900e-07,&
21441  & .3914300e-08,.4802500e-08,.6018000e-08,.7376200e-08,.8585100e-08,&
21442  & .2763700e-08,.3339700e-08,.4199600e-08,.5278700e-08,.6292300e-08,&
21443  & .1969100e-08,.2452900e-08,.3007100e-08,.3804100e-08,.4698100e-08,&
21444  & .1303400e-08,.1825700e-08,.2235900e-08,.2821000e-08,.3538600e-08,&
21445  & .1002600e-08,.1342200e-08,.1668700e-08,.2079300e-08,.2605400e-08,&
21446  & .7773000e-09,.9119000e-09,.1246800e-08,.1530200e-08,.1941800e-08,&
21447  & .6035900e-09,.6784800e-09,.9241400e-09,.1151100e-08,.1440100e-08,&
21448  & .5044100e-09,.5679700e-09,.7736900e-09,.9561200e-09,.1195700e-08/
21449 
21450  data absb( 1:120, 3) / &
21451  & .9812400e-04,.1014900e-03,.1030300e-03,.1066900e-03,.1087000e-03,&
21452  & .8811000e-04,.8973000e-04,.9067900e-04,.9189200e-04,.9141300e-04,&
21453  & .7855500e-04,.7863300e-04,.7914500e-04,.7768900e-04,.7779100e-04,&
21454  & .6724500e-04,.6774300e-04,.6669000e-04,.6576500e-04,.6595000e-04,&
21455  & .5755300e-04,.5749000e-04,.5601200e-04,.5563400e-04,.5601600e-04,&
21456  & .4972900e-04,.4830200e-04,.4741800e-04,.4726200e-04,.4773200e-04,&
21457  & .4210100e-04,.4090600e-04,.4054100e-04,.4022900e-04,.4067100e-04,&
21458  & .3504600e-04,.3419300e-04,.3403200e-04,.3388100e-04,.3469100e-04,&
21459  & .2919200e-04,.2881300e-04,.2852500e-04,.2848500e-04,.2976400e-04,&
21460  & .2421200e-04,.2397000e-04,.2380400e-04,.2394700e-04,.2431000e-04,&
21461  & .2016700e-04,.1996100e-04,.1983700e-04,.2052800e-04,.1988700e-04,&
21462  & .1681700e-04,.1662400e-04,.1652500e-04,.1726300e-04,.1648100e-04,&
21463  & .1389600e-04,.1380600e-04,.1381000e-04,.1434800e-04,.1363400e-04,&
21464  & .1151500e-04,.1147400e-04,.1155300e-04,.1170500e-04,.1116700e-04,&
21465  & .9500400e-05,.9454300e-05,.9565000e-05,.9531600e-05,.9165100e-05,&
21466  & .7813500e-05,.7786200e-05,.7871500e-05,.7782500e-05,.7487700e-05,&
21467  & .6361500e-05,.6360100e-05,.6419800e-05,.6350700e-05,.6120000e-05,&
21468  & .5173800e-05,.5178100e-05,.5225000e-05,.5170900e-05,.5024300e-05,&
21469  & .4182500e-05,.4224000e-05,.4251000e-05,.4224100e-05,.4105800e-05,&
21470  & .3402400e-05,.3430200e-05,.3451400e-05,.3443600e-05,.3347400e-05,&
21471  & .2751000e-05,.2782800e-05,.2805900e-05,.2812500e-05,.2739400e-05,&
21472  & .2219500e-05,.2251700e-05,.2274300e-05,.2272800e-05,.2225400e-05,&
21473  & .1802900e-05,.1823800e-05,.1843200e-05,.1846100e-05,.1824100e-05,&
21474  & .1447700e-05,.1473400e-05,.1493600e-05,.1511600e-05,.1487400e-05/
21475 
21476  data absb(121:235, 3) / &
21477  & .1163700e-05,.1192900e-05,.1209800e-05,.1226500e-05,.1207600e-05,&
21478  & .9329200e-06,.9624600e-06,.9816900e-06,.9943500e-06,.9874900e-06,&
21479  & .7492700e-06,.7674200e-06,.7902000e-06,.8060400e-06,.8141500e-06,&
21480  & .6047900e-06,.6174300e-06,.6397300e-06,.6529500e-06,.6626100e-06,&
21481  & .4845000e-06,.4974200e-06,.5136600e-06,.5287600e-06,.5381300e-06,&
21482  & .3829800e-06,.4008800e-06,.4119200e-06,.4265100e-06,.4359500e-06,&
21483  & .3031000e-06,.3190500e-06,.3290700e-06,.3415400e-06,.3500700e-06,&
21484  & .2374500e-06,.2503500e-06,.2622400e-06,.2714500e-06,.2814600e-06,&
21485  & .1865300e-06,.1951000e-06,.2064400e-06,.2151000e-06,.2235400e-06,&
21486  & .1475900e-06,.1532200e-06,.1614500e-06,.1703400e-06,.1774400e-06,&
21487  & .1141000e-06,.1200700e-06,.1250700e-06,.1323700e-06,.1399500e-06,&
21488  & .8832700e-07,.9396700e-07,.9768300e-07,.1025700e-06,.1092100e-06,&
21489  & .6671500e-07,.7217200e-07,.7644200e-07,.7921400e-07,.8400600e-07,&
21490  & .5145800e-07,.5576100e-07,.5923900e-07,.6229200e-07,.6447000e-07,&
21491  & .3995700e-07,.4240000e-07,.4587000e-07,.4859200e-07,.5028700e-07,&
21492  & .3115000e-07,.3272500e-07,.3559800e-07,.3763300e-07,.3960700e-07,&
21493  & .2378300e-07,.2541500e-07,.2663400e-07,.2888500e-07,.3062000e-07,&
21494  & .1853100e-07,.1993800e-07,.2098800e-07,.2267800e-07,.2386700e-07,&
21495  & .1481000e-07,.1577200e-07,.1665100e-07,.1772700e-07,.1886100e-07,&
21496  & .1165200e-07,.1255700e-07,.1331900e-07,.1393000e-07,.1507700e-07,&
21497  & .9152300e-08,.9983500e-08,.1060300e-07,.1108100e-07,.1199900e-07,&
21498  & .7238300e-08,.7906000e-08,.8448900e-08,.8861500e-08,.9445600e-08,&
21499  & .6031500e-08,.6593100e-08,.7100100e-08,.7401200e-08,.7876100e-08/
21500 
21501  data absb( 1:120, 4) / &
21502  & .2188200e-03,.2096800e-03,.1864800e-03,.1750500e-03,.1732000e-03,&
21503  & .1914000e-03,.1702600e-03,.1590300e-03,.1555200e-03,.1600900e-03,&
21504  & .1600300e-03,.1453100e-03,.1400700e-03,.1451100e-03,.1461900e-03,&
21505  & .1338700e-03,.1242300e-03,.1244400e-03,.1274300e-03,.1274900e-03,&
21506  & .1126600e-03,.1078000e-03,.1111000e-03,.1105100e-03,.1107500e-03,&
21507  & .9615600e-04,.9561700e-04,.9677500e-04,.9622000e-04,.9607800e-04,&
21508  & .8271200e-04,.8294600e-04,.8326500e-04,.8282700e-04,.8204400e-04,&
21509  & .7108000e-04,.7116700e-04,.7104000e-04,.7044300e-04,.6906900e-04,&
21510  & .6011000e-04,.6083600e-04,.5999400e-04,.5899200e-04,.5723700e-04,&
21511  & .5068800e-04,.5129600e-04,.5027100e-04,.4888900e-04,.4847100e-04,&
21512  & .4270600e-04,.4262800e-04,.4176400e-04,.3999900e-04,.4089300e-04,&
21513  & .3580300e-04,.3531600e-04,.3453500e-04,.3322900e-04,.3412700e-04,&
21514  & .2990600e-04,.2920100e-04,.2833600e-04,.2745500e-04,.2804400e-04,&
21515  & .2465900e-04,.2392600e-04,.2315900e-04,.2282700e-04,.2326600e-04,&
21516  & .2022100e-04,.1957800e-04,.1883800e-04,.1885300e-04,.1906700e-04,&
21517  & .1634500e-04,.1591300e-04,.1532700e-04,.1541200e-04,.1556000e-04,&
21518  & .1319500e-04,.1287000e-04,.1243000e-04,.1251800e-04,.1263900e-04,&
21519  & .1062200e-04,.1038400e-04,.1006800e-04,.1015100e-04,.1025600e-04,&
21520  & .8578500e-05,.8352300e-05,.8122700e-05,.8199800e-05,.8331300e-05,&
21521  & .6911400e-05,.6709300e-05,.6575800e-05,.6622200e-05,.6767900e-05,&
21522  & .5545600e-05,.5434200e-05,.5322900e-05,.5361000e-05,.5481900e-05,&
21523  & .4446100e-05,.4389100e-05,.4311200e-05,.4363200e-05,.4456000e-05,&
21524  & .3572500e-05,.3519200e-05,.3470300e-05,.3507500e-05,.3591900e-05,&
21525  & .2884200e-05,.2836200e-05,.2814300e-05,.2809700e-05,.2905700e-05/
21526 
21527  data absb(121:235, 4) / &
21528  & .2337400e-05,.2298700e-05,.2293400e-05,.2281200e-05,.2345100e-05,&
21529  & .1896600e-05,.1867900e-05,.1861300e-05,.1843700e-05,.1889400e-05,&
21530  & .1530000e-05,.1518000e-05,.1509600e-05,.1491500e-05,.1510700e-05,&
21531  & .1242600e-05,.1235700e-05,.1217100e-05,.1217000e-05,.1222700e-05,&
21532  & .1010200e-05,.1007700e-05,.9859300e-06,.9847800e-06,.9921300e-06,&
21533  & .8220100e-06,.8105000e-06,.8031300e-06,.8018100e-06,.8036100e-06,&
21534  & .6731800e-06,.6534700e-06,.6547800e-06,.6436000e-06,.6472200e-06,&
21535  & .5559800e-06,.5335500e-06,.5277800e-06,.5209700e-06,.5199700e-06,&
21536  & .4615700e-06,.4345700e-06,.4241200e-06,.4213700e-06,.4175000e-06,&
21537  & .3915600e-06,.3569000e-06,.3449800e-06,.3399500e-06,.3361400e-06,&
21538  & .3339200e-06,.2974600e-06,.2807400e-06,.2734400e-06,.2707900e-06,&
21539  & .2706600e-06,.2536900e-06,.2311500e-06,.2221300e-06,.2176600e-06,&
21540  & .2219800e-06,.2139500e-06,.1927400e-06,.1804000e-06,.1754200e-06,&
21541  & .1807000e-06,.1736700e-06,.1647300e-06,.1491600e-06,.1430600e-06,&
21542  & .1459500e-06,.1428700e-06,.1384700e-06,.1241800e-06,.1169700e-06,&
21543  & .1181900e-06,.1158800e-06,.1122500e-06,.1060400e-06,.9626900e-07,&
21544  & .9502800e-07,.9309400e-07,.9130300e-07,.8890000e-07,.8026200e-07,&
21545  & .7700500e-07,.7623800e-07,.7422800e-07,.7252600e-07,.6796500e-07,&
21546  & .6297900e-07,.6269200e-07,.6093000e-07,.5957900e-07,.5770000e-07,&
21547  & .5157100e-07,.5119600e-07,.5003100e-07,.4891600e-07,.4812700e-07,&
21548  & .4260200e-07,.4167800e-07,.4100600e-07,.3970900e-07,.3928300e-07,&
21549  & .3515500e-07,.3405200e-07,.3356100e-07,.3239500e-07,.3205700e-07,&
21550  & .2931800e-07,.2851600e-07,.2809700e-07,.2688800e-07,.2684000e-07/
21551 
21552  data absb( 1:120, 5) / &
21553  & .5646872e-03,.5312795e-03,.5136090e-03,.4988131e-03,.4861599e-03,&
21554  & .4760303e-03,.4583276e-03,.4410876e-03,.4269357e-03,.4186013e-03,&
21555  & .4126853e-03,.3974268e-03,.3837132e-03,.3732654e-03,.3704958e-03,&
21556  & .3556932e-03,.3439374e-03,.3332957e-03,.3278663e-03,.3305577e-03,&
21557  & .3078248e-03,.2969033e-03,.2891762e-03,.2901475e-03,.2947469e-03,&
21558  & .2641839e-03,.2566180e-03,.2537464e-03,.2556275e-03,.2621378e-03,&
21559  & .2264940e-03,.2242650e-03,.2242408e-03,.2276949e-03,.2362173e-03,&
21560  & .1928877e-03,.1922497e-03,.1939580e-03,.2003837e-03,.2081227e-03,&
21561  & .1635486e-03,.1630146e-03,.1664181e-03,.1738976e-03,.1825902e-03,&
21562  & .1382623e-03,.1384386e-03,.1433107e-03,.1505458e-03,.1586465e-03,&
21563  & .1166097e-03,.1183846e-03,.1231655e-03,.1300138e-03,.1374265e-03,&
21564  & .9834271e-04,.1010835e-03,.1058259e-03,.1119955e-03,.1194249e-03,&
21565  & .8297870e-04,.8621261e-04,.9065743e-04,.9659067e-04,.1036206e-03,&
21566  & .7010856e-04,.7362109e-04,.7751831e-04,.8322905e-04,.8970605e-04,&
21567  & .5878661e-04,.6208067e-04,.6580331e-04,.7089987e-04,.7670386e-04,&
21568  & .4892928e-04,.5181644e-04,.5527233e-04,.5975857e-04,.6469853e-04,&
21569  & .4032031e-04,.4266267e-04,.4576398e-04,.4929704e-04,.5363977e-04,&
21570  & .3303540e-04,.3480435e-04,.3759482e-04,.4053873e-04,.4384522e-04,&
21571  & .2673301e-04,.2829877e-04,.3049062e-04,.3280744e-04,.3503681e-04,&
21572  & .2153689e-04,.2293629e-04,.2454493e-04,.2633007e-04,.2814543e-04,&
21573  & .1733556e-04,.1848199e-04,.1972836e-04,.2105193e-04,.2271445e-04,&
21574  & .1408268e-04,.1485471e-04,.1586389e-04,.1695541e-04,.1841529e-04,&
21575  & .1134570e-04,.1192884e-04,.1268134e-04,.1362048e-04,.1483775e-04,&
21576  & .9049567e-05,.9502726e-05,.1010072e-04,.1086491e-04,.1182301e-04/
21577 
21578  data absb(121:235, 5) / &
21579  & .7259175e-05,.7610477e-05,.8079510e-05,.8694654e-05,.9481533e-05,&
21580  & .5822175e-05,.6083328e-05,.6462080e-05,.6945629e-05,.7579310e-05,&
21581  & .4661372e-05,.4850691e-05,.5152008e-05,.5531782e-05,.6026600e-05,&
21582  & .3768035e-05,.3907858e-05,.4148848e-05,.4439852e-05,.4849767e-05,&
21583  & .3050174e-05,.3152689e-05,.3345838e-05,.3584204e-05,.3905864e-05,&
21584  & .2466186e-05,.2558199e-05,.2693344e-05,.2890245e-05,.3143101e-05,&
21585  & .1984827e-05,.2063835e-05,.2154679e-05,.2317622e-05,.2513311e-05,&
21586  & .1591044e-05,.1657599e-05,.1723355e-05,.1849164e-05,.2007180e-05,&
21587  & .1271611e-05,.1327766e-05,.1384275e-05,.1468719e-05,.1594678e-05,&
21588  & .1012700e-05,.1059571e-05,.1106049e-05,.1165592e-05,.1261722e-05,&
21589  & .8134862e-06,.8456735e-06,.8847293e-06,.9280001e-06,.9964830e-06,&
21590  & .6601437e-06,.6702279e-06,.7033487e-06,.7382687e-06,.7869122e-06,&
21591  & .5354273e-06,.5343277e-06,.5561338e-06,.5862383e-06,.6207320e-06,&
21592  & .4385697e-06,.4345687e-06,.4441542e-06,.4677126e-06,.4945272e-06,&
21593  & .3616858e-06,.3547589e-06,.3578695e-06,.3746540e-06,.3960932e-06,&
21594  & .2980067e-06,.2907198e-06,.2906884e-06,.2989166e-06,.3168227e-06,&
21595  & .2459704e-06,.2382262e-06,.2364831e-06,.2390246e-06,.2515295e-06,&
21596  & .2050509e-06,.1972206e-06,.1946661e-06,.1956373e-06,.2034775e-06,&
21597  & .1708630e-06,.1642309e-06,.1612950e-06,.1615287e-06,.1659752e-06,&
21598  & .1426277e-06,.1371033e-06,.1336511e-06,.1333485e-06,.1355595e-06,&
21599  & .1182556e-06,.1146132e-06,.1111012e-06,.1106095e-06,.1111974e-06,&
21600  & .9823259e-07,.9553915e-07,.9253575e-07,.9185070e-07,.9208712e-07,&
21601  & .8406156e-07,.8113764e-07,.7830100e-07,.7796398e-07,.7863117e-07/
21602 
21603  data absb( 1:120, 6) / &
21604  & .1876746e-01,.1987652e-01,.2118689e-01,.2284887e-01,.2484965e-01,&
21605  & .1797735e-01,.1911766e-01,.2049609e-01,.2208055e-01,.2390495e-01,&
21606  & .1742326e-01,.1850993e-01,.1995764e-01,.2157831e-01,.2349113e-01,&
21607  & .1632945e-01,.1753946e-01,.1884180e-01,.2053655e-01,.2251614e-01,&
21608  & .1528056e-01,.1648257e-01,.1780611e-01,.1941673e-01,.2129325e-01,&
21609  & .1439040e-01,.1554780e-01,.1695518e-01,.1850787e-01,.2029757e-01,&
21610  & .1364127e-01,.1485684e-01,.1620134e-01,.1772745e-01,.1951994e-01,&
21611  & .1258716e-01,.1381209e-01,.1512804e-01,.1667637e-01,.1840520e-01,&
21612  & .1143111e-01,.1260773e-01,.1397144e-01,.1543741e-01,.1714336e-01,&
21613  & .1034838e-01,.1151140e-01,.1288246e-01,.1434110e-01,.1596120e-01,&
21614  & .9434287e-02,.1058629e-01,.1186231e-01,.1323644e-01,.1478338e-01,&
21615  & .8644308e-02,.9731339e-02,.1097791e-01,.1231507e-01,.1383818e-01,&
21616  & .7945748e-02,.8966157e-02,.1013410e-01,.1144951e-01,.1288499e-01,&
21617  & .7251090e-02,.8253964e-02,.9351761e-02,.1060751e-01,.1200048e-01,&
21618  & .6579748e-02,.7509664e-02,.8524470e-02,.9703299e-02,.1107385e-01,&
21619  & .5951880e-02,.6756479e-02,.7704468e-02,.8845964e-02,.1010461e-01,&
21620  & .5237878e-02,.5963536e-02,.6868194e-02,.7873626e-02,.9058934e-02,&
21621  & .4564340e-02,.5246869e-02,.6058901e-02,.6986798e-02,.8100707e-02,&
21622  & .3927773e-02,.4563237e-02,.5276212e-02,.6126524e-02,.7132796e-02,&
21623  & .3396746e-02,.3962408e-02,.4607092e-02,.5396614e-02,.6293512e-02,&
21624  & .2938365e-02,.3441438e-02,.4024490e-02,.4739722e-02,.5537536e-02,&
21625  & .2568850e-02,.3016246e-02,.3558015e-02,.4198155e-02,.4896116e-02,&
21626  & .2216648e-02,.2607125e-02,.3108998e-02,.3673395e-02,.4285795e-02,&
21627  & .1888038e-02,.2238310e-02,.2672219e-02,.3167173e-02,.3704008e-02/
21628 
21629  data absb(121:235, 6) / &
21630  & .1589604e-02,.1898430e-02,.2275337e-02,.2698109e-02,.3168934e-02,&
21631  & .1330328e-02,.1601088e-02,.1927308e-02,.2289886e-02,.2702347e-02,&
21632  & .1106058e-02,.1339532e-02,.1622095e-02,.1933708e-02,.2294633e-02,&
21633  & .9232322e-03,.1129388e-02,.1374137e-02,.1641005e-02,.1954041e-02,&
21634  & .7695851e-03,.9499734e-03,.1161581e-02,.1391249e-02,.1659990e-02,&
21635  & .6391411e-03,.7954699e-03,.9764327e-03,.1175728e-02,.1405980e-02,&
21636  & .5221445e-03,.6543645e-03,.8097738e-03,.9801297e-03,.1177108e-02,&
21637  & .4212175e-03,.5316807e-03,.6646766e-03,.8090125e-03,.9773287e-03,&
21638  & .3365734e-03,.4274844e-03,.5406354e-03,.6629665e-03,.8061362e-03,&
21639  & .2659082e-03,.3406968e-03,.4346710e-03,.5386141e-03,.6603153e-03,&
21640  & .2084988e-03,.2688505e-03,.3471450e-03,.4345779e-03,.5367697e-03,&
21641  & .1617409e-03,.2100645e-03,.2734876e-03,.3468514e-03,.4310783e-03,&
21642  & .1230350e-03,.1615169e-03,.2121423e-03,.2726679e-03,.3415988e-03,&
21643  & .9571658e-04,.1268700e-03,.1676066e-03,.2182467e-03,.2753833e-03,&
21644  & .7483539e-04,.1000772e-03,.1334398e-03,.1757280e-03,.2239868e-03,&
21645  & .5772027e-04,.7803984e-04,.1048734e-03,.1398792e-03,.1799578e-03,&
21646  & .4394505e-04,.6019842e-04,.8138845e-04,.1097945e-03,.1427362e-03,&
21647  & .3482804e-04,.4819989e-04,.6606100e-04,.8999622e-04,.1184452e-03,&
21648  & .2824956e-04,.3942832e-04,.5468547e-04,.7556789e-04,.1004720e-03,&
21649  & .2272475e-04,.3212105e-04,.4507284e-04,.6295422e-04,.8486593e-04,&
21650  & .1816142e-04,.2604650e-04,.3689143e-04,.5210509e-04,.7114512e-04,&
21651  & .1460417e-04,.2125717e-04,.3044873e-04,.4347568e-04,.6004634e-04,&
21652  & .1318588e-04,.1949094e-04,.2845284e-04,.4096246e-04,.5730208e-04/
21653 
21654  data absb( 1:120, 7) / &
21655  & .3908183e+01,.4021612e+01,.4146726e+01,.4284083e+01,.4438438e+01,&
21656  & .3284599e+01,.3380615e+01,.3488659e+01,.3611242e+01,.3752108e+01,&
21657  & .2750113e+01,.2833708e+01,.2928922e+01,.3039836e+01,.3169125e+01,&
21658  & .2307053e+01,.2379505e+01,.2464791e+01,.2564854e+01,.2681085e+01,&
21659  & .1936077e+01,.2001044e+01,.2079025e+01,.2171276e+01,.2276173e+01,&
21660  & .1622572e+01,.1681244e+01,.1752186e+01,.1836321e+01,.1928176e+01,&
21661  & .1369492e+01,.1421024e+01,.1484095e+01,.1556113e+01,.1634126e+01,&
21662  & .1180311e+01,.1227272e+01,.1282719e+01,.1341372e+01,.1403599e+01,&
21663  & .1020024e+01,.1063783e+01,.1111019e+01,.1162039e+01,.1215624e+01,&
21664  & .8833680e+00,.9215968e+00,.9637706e+00,.1008479e+01,.1057170e+01,&
21665  & .7624334e+00,.7970585e+00,.8346574e+00,.8755899e+00,.9193781e+00,&
21666  & .6579273e+00,.6887119e+00,.7224049e+00,.7595641e+00,.7997812e+00,&
21667  & .5668077e+00,.5946957e+00,.6255016e+00,.6592894e+00,.6963418e+00,&
21668  & .4881446e+00,.5135679e+00,.5418786e+00,.5730494e+00,.6077831e+00,&
21669  & .4200990e+00,.4431037e+00,.4688805e+00,.4974060e+00,.5298295e+00,&
21670  & .3617384e+00,.3821010e+00,.4055724e+00,.4323227e+00,.4633921e+00,&
21671  & .3109227e+00,.3293125e+00,.3507763e+00,.3762455e+00,.4052117e+00,&
21672  & .2674240e+00,.2843698e+00,.3044221e+00,.3282655e+00,.3551022e+00,&
21673  & .2297019e+00,.2456549e+00,.2646151e+00,.2871844e+00,.3119468e+00,&
21674  & .1979105e+00,.2130118e+00,.2313507e+00,.2522008e+00,.2753351e+00,&
21675  & .1710687e+00,.1855135e+00,.2029507e+00,.2226155e+00,.2446203e+00,&
21676  & .1485780e+00,.1623096e+00,.1788155e+00,.1972862e+00,.2180352e+00,&
21677  & .1285687e+00,.1414891e+00,.1566691e+00,.1740024e+00,.1933684e+00,&
21678  & .1107491e+00,.1226288e+00,.1365049e+00,.1524192e+00,.1703572e+00/
21679 
21680  data absb(121:235, 7) / &
21681  & .9456369e-01,.1051244e+00,.1175196e+00,.1318208e+00,.1481765e+00,&
21682  & .8066956e-01,.9002222e-01,.1011931e+00,.1140601e+00,.1288872e+00,&
21683  & .6867032e-01,.7709429e-01,.8709495e-01,.9877474e-01,.1121550e+00,&
21684  & .5832603e-01,.6556338e-01,.7444062e-01,.8488976e-01,.9692322e-01,&
21685  & .4942472e-01,.5585419e-01,.6358733e-01,.7286335e-01,.8372396e-01,&
21686  & .4180841e-01,.4754454e-01,.5435437e-01,.6256355e-01,.7229908e-01,&
21687  & .3508489e-01,.4013132e-01,.4608275e-01,.5327848e-01,.6197794e-01,&
21688  & .2922066e-01,.3367674e-01,.3885124e-01,.4519646e-01,.5282863e-01,&
21689  & .2427508e-01,.2810853e-01,.3265710e-01,.3827469e-01,.4498559e-01,&
21690  & .2006569e-01,.2335359e-01,.2727995e-01,.3220620e-01,.3815593e-01,&
21691  & .1645503e-01,.1925848e-01,.2264332e-01,.2682076e-01,.3208388e-01,&
21692  & .1342964e-01,.1577348e-01,.1865261e-01,.2224444e-01,.2683651e-01,&
21693  & .1090974e-01,.1285284e-01,.1527245e-01,.1835280e-01,.2231368e-01,&
21694  & .8925769e-02,.1055870e-01,.1261660e-01,.1523191e-01,.1867393e-01,&
21695  & .7332235e-02,.8686707e-02,.1044642e-01,.1267886e-01,.1562635e-01,&
21696  & .6005950e-02,.7116692e-02,.8597108e-02,.1050258e-01,.1303347e-01,&
21697  & .4886737e-02,.5803324e-02,.7029411e-02,.8649638e-02,.1082164e-01,&
21698  & .4045146e-02,.4827713e-02,.5866804e-02,.7255958e-02,.9118484e-02,&
21699  & .3386333e-02,.4055976e-02,.4960277e-02,.6153907e-02,.7764407e-02,&
21700  & .2833529e-02,.3404009e-02,.4187592e-02,.5222472e-02,.6607700e-02,&
21701  & .2365720e-02,.2858268e-02,.3529390e-02,.4419998e-02,.5636682e-02,&
21702  & .1989667e-02,.2413827e-02,.2992976e-02,.3780796e-02,.4842075e-02,&
21703  & .1799658e-02,.2201226e-02,.2751996e-02,.3518772e-02,.4547327e-02/
21704 
21705  data absb( 1:120, 8) / &
21706  & .4033644e+02,.4167953e+02,.4301570e+02,.4435920e+02,.4567833e+02,&
21707  & .3531377e+02,.3641380e+02,.3752525e+02,.3863489e+02,.3972127e+02,&
21708  & .3071410e+02,.3160600e+02,.3251995e+02,.3343214e+02,.3433462e+02,&
21709  & .2650555e+02,.2724233e+02,.2800390e+02,.2877429e+02,.2956326e+02,&
21710  & .2275030e+02,.2336977e+02,.2400486e+02,.2465588e+02,.2535498e+02,&
21711  & .1940546e+02,.1993156e+02,.2047118e+02,.2104774e+02,.2171625e+02,&
21712  & .1638172e+02,.1683509e+02,.1732028e+02,.1787385e+02,.1854784e+02,&
21713  & .1365200e+02,.1402511e+02,.1446383e+02,.1502684e+02,.1574369e+02,&
21714  & .1137022e+02,.1169679e+02,.1212312e+02,.1267823e+02,.1337177e+02,&
21715  & .9506496e+01,.9827971e+01,.1025128e+02,.1081497e+02,.1148308e+02,&
21716  & .8052710e+01,.8344535e+01,.8752518e+01,.9286286e+01,.9908091e+01,&
21717  & .7005129e+01,.7297737e+01,.7690454e+01,.8150077e+01,.8636301e+01,&
21718  & .6181432e+01,.6493698e+01,.6873626e+01,.7267363e+01,.7701472e+01,&
21719  & .5486352e+01,.5805127e+01,.6164438e+01,.6541233e+01,.6910418e+01,&
21720  & .4874205e+01,.5201845e+01,.5533903e+01,.5877592e+01,.6211504e+01,&
21721  & .4354064e+01,.4662856e+01,.4960467e+01,.5268278e+01,.5590873e+01,&
21722  & .3870676e+01,.4151579e+01,.4424561e+01,.4713940e+01,.5019965e+01,&
21723  & .3432801e+01,.3695370e+01,.3951313e+01,.4223258e+01,.4521613e+01,&
21724  & .3046684e+01,.3280864e+01,.3528685e+01,.3785450e+01,.4072281e+01,&
21725  & .2707644e+01,.2931362e+01,.3163706e+01,.3412966e+01,.3691298e+01,&
21726  & .2413017e+01,.2622420e+01,.2842869e+01,.3091981e+01,.3368488e+01,&
21727  & .2161287e+01,.2357984e+01,.2569356e+01,.2810989e+01,.3097338e+01,&
21728  & .1925443e+01,.2108054e+01,.2317393e+01,.2555114e+01,.2840446e+01,&
21729  & .1703781e+01,.1879720e+01,.2080458e+01,.2316042e+01,.2597137e+01/
21730 
21731  data absb(121:235, 8) / &
21732  & .1493092e+01,.1657976e+01,.1851046e+01,.2073961e+01,.2343340e+01,&
21733  & .1311161e+01,.1466732e+01,.1645509e+01,.1859825e+01,.2118946e+01,&
21734  & .1150929e+01,.1297548e+01,.1468104e+01,.1672256e+01,.1922471e+01,&
21735  & .1004409e+01,.1141010e+01,.1301607e+01,.1492747e+01,.1726160e+01,&
21736  & .8769985e+00,.1002882e+01,.1151293e+01,.1329471e+01,.1549835e+01,&
21737  & .7649098e+00,.8805424e+00,.1016103e+01,.1181723e+01,.1389132e+01,&
21738  & .6598121e+00,.7637212e+00,.8887136e+00,.1040010e+01,.1230413e+01,&
21739  & .5657958e+00,.6586754e+00,.7718739e+00,.9084100e+00,.1082238e+01,&
21740  & .4835182e+00,.5668068e+00,.6687172e+00,.7926556e+00,.9499754e+00,&
21741  & .4118145e+00,.4852766e+00,.5756963e+00,.6868494e+00,.8286511e+00,&
21742  & .3488019e+00,.4139755e+00,.4938550e+00,.5910229e+00,.7163238e+00,&
21743  & .2935726e+00,.3516563e+00,.4223583e+00,.5090453e+00,.6171835e+00,&
21744  & .2445646e+00,.2963715e+00,.3583947e+00,.4363324e+00,.5322580e+00,&
21745  & .2063336e+00,.2514543e+00,.3069415e+00,.3769572e+00,.4647802e+00,&
21746  & .1745065e+00,.2143204e+00,.2634212e+00,.3259536e+00,.4065898e+00,&
21747  & .1469747e+00,.1815841e+00,.2245475e+00,.2809591e+00,.3526955e+00,&
21748  & .1226579e+00,.1531164e+00,.1907781e+00,.2400747e+00,.3043525e+00,&
21749  & .1036864e+00,.1314203e+00,.1647845e+00,.2083891e+00,.2666072e+00,&
21750  & .8816513e-01,.1136512e+00,.1440561e+00,.1835360e+00,.2351002e+00,&
21751  & .7437710e-01,.9768257e-01,.1255978e+00,.1607081e+00,.2071018e+00,&
21752  & .6227610e-01,.8346943e-01,.1093711e+00,.1408269e+00,.1825617e+00,&
21753  & .5263552e-01,.7135997e-01,.9530909e-01,.1242291e+00,.1612246e+00,&
21754  & .4825418e-01,.6650163e-01,.8992737e-01,.1186811e+00,.1555922e+00/
21755 
21756  data absb( 1:120, 9) / &
21757  & .1646500e+03,.1629800e+03,.1641300e+03,.1679600e+03,.1742500e+03,&
21758  & .1413400e+03,.1422300e+03,.1458400e+03,.1518300e+03,.1582300e+03,&
21759  & .1233400e+03,.1264200e+03,.1317000e+03,.1371900e+03,.1424800e+03,&
21760  & .1090300e+03,.1135000e+03,.1182500e+03,.1228400e+03,.1272000e+03,&
21761  & .9674400e+02,.1007700e+03,.1047300e+03,.1085600e+03,.1122500e+03,&
21762  & .8536800e+02,.8866900e+02,.9193400e+02,.9512700e+02,.9821600e+02,&
21763  & .7486500e+02,.7756000e+02,.8026300e+02,.8291200e+02,.8549900e+02,&
21764  & .6530400e+02,.6758800e+02,.6984900e+02,.7209900e+02,.7431600e+02,&
21765  & .5670400e+02,.5861600e+02,.6054100e+02,.6245700e+02,.6444400e+02,&
21766  & .4909900e+02,.5078800e+02,.5245100e+02,.5411900e+02,.5597000e+02,&
21767  & .4207600e+02,.4364600e+02,.4523000e+02,.4688800e+02,.4879800e+02,&
21768  & .3545700e+02,.3690400e+02,.3844700e+02,.4026200e+02,.4256500e+02,&
21769  & .2983200e+02,.3103600e+02,.3250800e+02,.3450200e+02,.3697900e+02,&
21770  & .2520500e+02,.2634800e+02,.2779200e+02,.2978800e+02,.3245900e+02,&
21771  & .2148600e+02,.2258600e+02,.2416200e+02,.2626000e+02,.2894400e+02,&
21772  & .1871200e+02,.1969300e+02,.2137000e+02,.2359100e+02,.2615800e+02,&
21773  & .1663000e+02,.1771600e+02,.1936900e+02,.2156500e+02,.2410200e+02,&
21774  & .1492300e+02,.1611900e+02,.1778300e+02,.1998900e+02,.2237900e+02,&
21775  & .1353200e+02,.1485300e+02,.1657600e+02,.1874500e+02,.2108400e+02,&
21776  & .1245300e+02,.1378400e+02,.1558700e+02,.1771800e+02,.2002200e+02,&
21777  & .1158000e+02,.1303800e+02,.1485100e+02,.1689200e+02,.1919200e+02,&
21778  & .1082000e+02,.1237600e+02,.1413400e+02,.1615200e+02,.1840200e+02,&
21779  & .1011600e+02,.1168600e+02,.1340200e+02,.1534600e+02,.1755600e+02,&
21780  & .9393300e+01,.1091000e+02,.1257200e+02,.1443200e+02,.1653600e+02/
21781 
21782  data absb(121:235, 9) / &
21783  & .8516000e+01,.9975500e+01,.1155400e+02,.1335800e+02,.1535000e+02,&
21784  & .7750500e+01,.9122500e+01,.1067000e+02,.1238000e+02,.1427300e+02,&
21785  & .7089700e+01,.8388500e+01,.9869400e+01,.1150200e+02,.1334300e+02,&
21786  & .6329500e+01,.7550600e+01,.8946600e+01,.1049500e+02,.1228700e+02,&
21787  & .5630200e+01,.6798800e+01,.8095700e+01,.9601300e+01,.1128000e+02,&
21788  & .5023400e+01,.6107100e+01,.7338900e+01,.8781600e+01,.1038000e+02,&
21789  & .4422500e+01,.5428200e+01,.6596300e+01,.7943300e+01,.9466600e+01,&
21790  & .3855800e+01,.4791200e+01,.5890500e+01,.7147800e+01,.8614500e+01,&
21791  & .3357500e+01,.4235100e+01,.5247500e+01,.6429200e+01,.7829600e+01,&
21792  & .2905300e+01,.3707400e+01,.4643200e+01,.5748400e+01,.7067400e+01,&
21793  & .2470600e+01,.3185100e+01,.4052400e+01,.5083700e+01,.6299000e+01,&
21794  & .2090700e+01,.2732000e+01,.3523200e+01,.4468900e+01,.5599800e+01,&
21795  & .1765200e+01,.2339700e+01,.3052500e+01,.3913000e+01,.4964100e+01,&
21796  & .1498000e+01,.1999500e+01,.2638600e+01,.3430900e+01,.4393000e+01,&
21797  & .1288300e+01,.1722900e+01,.2280800e+01,.3005800e+01,.3892100e+01,&
21798  & .1103200e+01,.1487800e+01,.1994500e+01,.2622500e+01,.3432700e+01,&
21799  & .9425600e+00,.1280300e+01,.1743600e+01,.2309500e+01,.3025800e+01,&
21800  & .8084700e+00,.1104500e+01,.1525000e+01,.2057300e+01,.2704800e+01,&
21801  & .6997200e+00,.9500800e+00,.1321500e+01,.1817800e+01,.2432600e+01,&
21802  & .6065900e+00,.8129800e+00,.1143000e+01,.1592500e+01,.2178300e+01,&
21803  & .5266400e+00,.6967000e+00,.9799800e+00,.1389100e+01,.1933300e+01,&
21804  & .4598500e+00,.6068200e+00,.8433700e+00,.1211300e+01,.1718800e+01,&
21805  & .4385300e+00,.5787900e+00,.7901800e+00,.1113000e+01,.1603900e+01/
21806 
21807  data absb( 1:120,10) / &
21808  & .8601600e+03,.8462600e+03,.8322800e+03,.8181700e+03,.8045000e+03,&
21809  & .7598100e+03,.7466300e+03,.7334500e+03,.7210400e+03,.7122400e+03,&
21810  & .6620100e+03,.6499300e+03,.6389100e+03,.6321000e+03,.6297800e+03,&
21811  & .5701400e+03,.5602700e+03,.5546600e+03,.5537800e+03,.5572100e+03,&
21812  & .4886100e+03,.4835400e+03,.4832400e+03,.4876000e+03,.4960200e+03,&
21813  & .4198700e+03,.4196400e+03,.4241100e+03,.4329100e+03,.4457500e+03,&
21814  & .3630300e+03,.3670200e+03,.3755600e+03,.3883400e+03,.4047100e+03,&
21815  & .3165100e+03,.3242100e+03,.3362700e+03,.3521900e+03,.3707200e+03,&
21816  & .2786700e+03,.2894700e+03,.3043400e+03,.3213100e+03,.3382300e+03,&
21817  & .2491600e+03,.2625100e+03,.2776800e+03,.2929600e+03,.3084400e+03,&
21818  & .2257100e+03,.2393200e+03,.2529100e+03,.2667000e+03,.2806900e+03,&
21819  & .2050300e+03,.2176500e+03,.2302900e+03,.2429100e+03,.2557500e+03,&
21820  & .1857400e+03,.1976300e+03,.2096000e+03,.2215100e+03,.2335600e+03,&
21821  & .1682500e+03,.1794500e+03,.1908500e+03,.2024200e+03,.2140600e+03,&
21822  & .1525400e+03,.1631100e+03,.1740200e+03,.1852100e+03,.1969600e+03,&
21823  & .1381500e+03,.1485700e+03,.1591300e+03,.1702200e+03,.1823800e+03,&
21824  & .1256000e+03,.1357100e+03,.1463000e+03,.1576300e+03,.1701900e+03,&
21825  & .1149700e+03,.1247600e+03,.1355000e+03,.1471900e+03,.1604400e+03,&
21826  & .1060200e+03,.1157700e+03,.1267100e+03,.1388900e+03,.1528900e+03,&
21827  & .9851900e+02,.1085500e+03,.1197800e+03,.1326500e+03,.1474400e+03,&
21828  & .9251700e+02,.1027400e+03,.1145200e+03,.1282200e+03,.1438900e+03,&
21829  & .8744100e+02,.9793600e+02,.1104400e+03,.1249500e+03,.1414800e+03,&
21830  & .8249900e+02,.9333300e+02,.1063500e+03,.1215100e+03,.1387400e+03,&
21831  & .7744200e+02,.8849300e+02,.1018400e+03,.1174000e+03,.1351300e+03/
21832 
21833  data absb(121:235,10) / &
21834  & .7177100e+02,.8273100e+02,.9603200e+02,.1115800e+03,.1294100e+03,&
21835  & .6672700e+02,.7761000e+02,.9079500e+02,.1063200e+03,.1241500e+03,&
21836  & .6233900e+02,.7311300e+02,.8620000e+02,.1016700e+03,.1194200e+03,&
21837  & .5760100e+02,.6799900e+02,.8072400e+02,.9585800e+02,.1132300e+03,&
21838  & .5328500e+02,.6320300e+02,.7557700e+02,.9024200e+02,.1072600e+03,&
21839  & .4939200e+02,.5890800e+02,.7083400e+02,.8504500e+02,.1016300e+03,&
21840  & .4544600e+02,.5445200e+02,.6575100e+02,.7940200e+02,.9539700e+02,&
21841  & .4162000e+02,.5018400e+02,.6077700e+02,.7378600e+02,.8907600e+02,&
21842  & .3805900e+02,.4628200e+02,.5622600e+02,.6853900e+02,.8313600e+02,&
21843  & .3455400e+02,.4250100e+02,.5182900e+02,.6338300e+02,.7722000e+02,&
21844  & .3100900e+02,.3861000e+02,.4738500e+02,.5805800e+02,.7108000e+02,&
21845  & .2771500e+02,.3493400e+02,.4331900e+02,.5319000e+02,.6534700e+02,&
21846  & .2465800e+02,.3147800e+02,.3950000e+02,.4874300e+02,.5999700e+02,&
21847  & .2203400e+02,.2843700e+02,.3609300e+02,.4489400e+02,.5534600e+02,&
21848  & .1968400e+02,.2562600e+02,.3293700e+02,.4138500e+02,.5115400e+02,&
21849  & .1750400e+02,.2299500e+02,.2992500e+02,.3805700e+02,.4730700e+02,&
21850  & .1555200e+02,.2054400e+02,.2707900e+02,.3483200e+02,.4372200e+02,&
21851  & .1388600e+02,.1847600e+02,.2460700e+02,.3196600e+02,.4054000e+02,&
21852  & .1239600e+02,.1668100e+02,.2238500e+02,.2938400e+02,.3759200e+02,&
21853  & .1102800e+02,.1500600e+02,.2029700e+02,.2695500e+02,.3478000e+02,&
21854  & .9749300e+01,.1345200e+02,.1835400e+02,.2464400e+02,.3209900e+02,&
21855  & .8641100e+01,.1206800e+02,.1662700e+02,.2256900e+02,.2968400e+02,&
21856  & .8089400e+01,.1144900e+02,.1590500e+02,.2175300e+02,.2872800e+02/
21857 
21858  data absb( 1:120,11) / &
21859  & .5004600e+04,.5003400e+04,.4995000e+04,.4978100e+04,.4954200e+04,&
21860  & .5181200e+04,.5173800e+04,.5158200e+04,.5135700e+04,.5105400e+04,&
21861  & .5279300e+04,.5264500e+04,.5245000e+04,.5217200e+04,.5183600e+04,&
21862  & .5300100e+04,.5281800e+04,.5256800e+04,.5227400e+04,.5192400e+04,&
21863  & .5244800e+04,.5224200e+04,.5200400e+04,.5171500e+04,.5137700e+04,&
21864  & .5120000e+04,.5103100e+04,.5081700e+04,.5057100e+04,.5030800e+04,&
21865  & .4938900e+04,.4928400e+04,.4915300e+04,.4900700e+04,.4881900e+04,&
21866  & .4718100e+04,.4716800e+04,.4716300e+04,.4712900e+04,.4711100e+04,&
21867  & .4471800e+04,.4486500e+04,.4499000e+04,.4515300e+04,.4540300e+04,&
21868  & .4219200e+04,.4249700e+04,.4286100e+04,.4331600e+04,.4380900e+04,&
21869  & .3972700e+04,.4027500e+04,.4093600e+04,.4164600e+04,.4240400e+04,&
21870  & .3750700e+04,.3833600e+04,.3923900e+04,.4020600e+04,.4120900e+04,&
21871  & .3560600e+04,.3669400e+04,.3782600e+04,.3902600e+04,.4024400e+04,&
21872  & .3404300e+04,.3536400e+04,.3673100e+04,.3813000e+04,.3951900e+04,&
21873  & .3280300e+04,.3434600e+04,.3591200e+04,.3747600e+04,.3901400e+04,&
21874  & .3187600e+04,.3361000e+04,.3534400e+04,.3704200e+04,.3869900e+04,&
21875  & .3123900e+04,.3313700e+04,.3499500e+04,.3681300e+04,.3857300e+04,&
21876  & .3085000e+04,.3287200e+04,.3483700e+04,.3674500e+04,.3859100e+04,&
21877  & .3067400e+04,.3279500e+04,.3484800e+04,.3682600e+04,.3872400e+04,&
21878  & .3068300e+04,.3287900e+04,.3499000e+04,.3702200e+04,.3895300e+04,&
21879  & .3083100e+04,.3308700e+04,.3524300e+04,.3730300e+04,.3925000e+04,&
21880  & .3101700e+04,.3330800e+04,.3549600e+04,.3758000e+04,.3952700e+04,&
21881  & .3105700e+04,.3338700e+04,.3560100e+04,.3770000e+04,.3965400e+04,&
21882  & .3089500e+04,.3326000e+04,.3550400e+04,.3763000e+04,.3960600e+04/
21883 
21884  data absb(121:235,11) / &
21885  & .3040000e+04,.3281100e+04,.3509600e+04,.3726300e+04,.3927700e+04,&
21886  & .2991300e+04,.3236100e+04,.3469000e+04,.3689000e+04,.3894200e+04,&
21887  & .2944100e+04,.3192600e+04,.3429400e+04,.3652600e+04,.3861200e+04,&
21888  & .2872200e+04,.3125400e+04,.3366700e+04,.3594300e+04,.3807300e+04,&
21889  & .2797100e+04,.3054800e+04,.3300400e+04,.3532600e+04,.3750500e+04,&
21890  & .2722600e+04,.2983700e+04,.3233600e+04,.3470100e+04,.3692500e+04,&
21891  & .2633200e+04,.2898100e+04,.3152500e+04,.3394400e+04,.3622300e+04,&
21892  & .2537200e+04,.2805000e+04,.3064300e+04,.3311400e+04,.3544100e+04,&
21893  & .2441700e+04,.2711300e+04,.2974800e+04,.3226800e+04,.3465100e+04,&
21894  & .2339500e+04,.2611500e+04,.2878300e+04,.3135100e+04,.3379200e+04,&
21895  & .2224300e+04,.2499800e+04,.2769400e+04,.3031300e+04,.3281000e+04,&
21896  & .2108300e+04,.2387700e+04,.2659200e+04,.2925700e+04,.3180300e+04,&
21897  & .1992500e+04,.2274100e+04,.2548800e+04,.2818000e+04,.3078300e+04,&
21898  & .1884100e+04,.2166600e+04,.2444700e+04,.2715900e+04,.2980600e+04,&
21899  & .1779800e+04,.2061800e+04,.2342800e+04,.2616000e+04,.2883900e+04,&
21900  & .1676200e+04,.1957400e+04,.2239800e+04,.2515600e+04,.2786200e+04,&
21901  & .1573100e+04,.1853000e+04,.2135800e+04,.2415200e+04,.2687200e+04,&
21902  & .1480200e+04,.1758100e+04,.2040100e+04,.2321900e+04,.2595600e+04,&
21903  & .1391500e+04,.1667500e+04,.1948800e+04,.2231800e+04,.2508000e+04,&
21904  & .1303900e+04,.1577800e+04,.1857700e+04,.2140600e+04,.2420000e+04,&
21905  & .1216700e+04,.1489000e+04,.1767200e+04,.2049300e+04,.2331300e+04,&
21906  & .1134900e+04,.1405700e+04,.1681800e+04,.1963100e+04,.2246400e+04,&
21907  & .1102500e+04,.1372100e+04,.1647600e+04,.1928300e+04,.2211700e+04/
21908 
21909  data absb( 1:120,12) / &
21910  & .1249200e+05,.1260200e+05,.1267800e+05,.1273000e+05,.1274900e+05,&
21911  & .1469600e+05,.1479200e+05,.1486200e+05,.1489000e+05,.1488900e+05,&
21912  & .1715300e+05,.1724200e+05,.1727500e+05,.1727400e+05,.1723100e+05,&
21913  & .1984300e+05,.1989400e+05,.1989800e+05,.1984500e+05,.1974700e+05,&
21914  & .2272700e+05,.2273100e+05,.2266700e+05,.2255100e+05,.2238600e+05,&
21915  & .2576100e+05,.2568400e+05,.2554400e+05,.2534200e+05,.2507000e+05,&
21916  & .2887800e+05,.2870100e+05,.2845400e+05,.2813100e+05,.2775900e+05,&
21917  & .3198100e+05,.3169500e+05,.3131400e+05,.3087100e+05,.3036000e+05,&
21918  & .3501700e+05,.3457500e+05,.3406400e+05,.3348000e+05,.3282100e+05,&
21919  & .3785400e+05,.3726400e+05,.3658900e+05,.3584000e+05,.3504600e+05,&
21920  & .4047300e+05,.3971000e+05,.3886200e+05,.3796700e+05,.3702300e+05,&
21921  & .4279600e+05,.4186400e+05,.4086900e+05,.3981700e+05,.3871800e+05,&
21922  & .4481300e+05,.4371900e+05,.4257800e+05,.4138000e+05,.4014300e+05,&
21923  & .4650400e+05,.4526300e+05,.4397300e+05,.4264100e+05,.4129400e+05,&
21924  & .4789300e+05,.4650700e+05,.4508700e+05,.4364700e+05,.4219700e+05,&
21925  & .4899300e+05,.4748000e+05,.4595200e+05,.4441700e+05,.4287800e+05,&
21926  & .4982300e+05,.4820600e+05,.4658800e+05,.4496900e+05,.4335300e+05,&
21927  & .5041500e+05,.4871600e+05,.4702500e+05,.4533900e+05,.4365900e+05,&
21928  & .5081100e+05,.4904200e+05,.4728800e+05,.4554300e+05,.4381300e+05,&
21929  & .5103200e+05,.4920300e+05,.4740000e+05,.4561000e+05,.4384100e+05,&
21930  & .5110700e+05,.4923400e+05,.4739300e+05,.4556500e+05,.4377500e+05,&
21931  & .5113000e+05,.4922800e+05,.4735000e+05,.4549700e+05,.4368800e+05,&
21932  & .5125600e+05,.4931600e+05,.4741300e+05,.4554000e+05,.4371100e+05,&
21933  & .5151900e+05,.4955500e+05,.4762600e+05,.4573100e+05,.4388500e+05/
21934 
21935  data absb(121:235,12) / &
21936  & .5203400e+05,.5004100e+05,.4809000e+05,.4616800e+05,.4430200e+05,&
21937  & .5252900e+05,.5051100e+05,.4853500e+05,.4659500e+05,.4470600e+05,&
21938  & .5298500e+05,.5095200e+05,.4895400e+05,.4699600e+05,.4508500e+05,&
21939  & .5363300e+05,.5157500e+05,.4955600e+05,.4757800e+05,.4564800e+05,&
21940  & .5428900e+05,.5221100e+05,.5017100e+05,.4817100e+05,.4622000e+05,&
21941  & .5493200e+05,.5283600e+05,.5077800e+05,.4875900e+05,.4678500e+05,&
21942  & .5567300e+05,.5356900e+05,.5148800e+05,.4944900e+05,.4745600e+05,&
21943  & .5646100e+05,.5434600e+05,.5224700e+05,.5019000e+05,.4817800e+05,&
21944  & .5724100e+05,.5512100e+05,.5300700e+05,.5092900e+05,.4889700e+05,&
21945  & .5806300e+05,.5593300e+05,.5380600e+05,.5171000e+05,.4965600e+05,&
21946  & .5897800e+05,.5682800e+05,.5469700e+05,.5258200e+05,.5050500e+05,&
21947  & .5989100e+05,.5772000e+05,.5558600e+05,.5345900e+05,.5136700e+05,&
21948  & .6079500e+05,.5862100e+05,.5647200e+05,.5433600e+05,.5222400e+05,&
21949  & .6163900e+05,.5946600e+05,.5729800e+05,.5516200e+05,.5303400e+05,&
21950  & .6244700e+05,.6028400e+05,.5811000e+05,.5596100e+05,.5382400e+05,&
21951  & .6324000e+05,.6109800e+05,.5891600e+05,.5676000e+05,.5461200e+05,&
21952  & .6403000e+05,.6190300e+05,.5972700e+05,.5755800e+05,.5541100e+05,&
21953  & .6473500e+05,.6263700e+05,.6047100e+05,.5828700e+05,.5613800e+05,&
21954  & .6540700e+05,.6333200e+05,.6118100e+05,.5900300e+05,.5683400e+05,&
21955  & .6606900e+05,.6401500e+05,.6188100e+05,.5970200e+05,.5752900e+05,&
21956  & .6672500e+05,.6468300e+05,.6257600e+05,.6041100e+05,.5822500e+05,&
21957  & .6732700e+05,.6531500e+05,.6323200e+05,.6107800e+05,.5889100e+05,&
21958  & .6757700e+05,.6557200e+05,.6349600e+05,.6134900e+05,.5916100e+05/
21959 
21960 ! ---
21961  data forref(1:4,1:12) / .2998180e-05,.2092820e-05,.9883530e-04,&
21962  & .6321780e-03,.6336480e-05,.5092140e-04,.6505350e-03,.2640190e-02,&
21963  & .6367820e-04,.1365770e-03,.1665000e-02,.7508210e-02,.4723140e-03,&
21964  & .9882960e-03,.5857510e-02,.1873520e-01,.1306617e-01,.1521008e-01,&
21965  & .1910962e-01,.1640369e-01,.2664425e-01,.2836468e-01,.1997971e-01,&
21966  & .6508449e-02,.3071268e-01,.1794967e-01,.9099105e-02,.1435908e-02,&
21967  & .3256760e-01,.2153142e-01,.9594611e-03,.2499136e-02,.3451570e-01,&
21968  & .1686790e-01,.5053610e-06,.2766470e-02,.4487650e-01,.1237910e-02,&
21969  & .4883670e-06,.1222450e-02,.4869250e-01,.4643710e-06,.4642410e-06,&
21970  & .7538460e-06,.5305110e-01,.3762340e-06,.4098240e-06,.4706500e-06/
21971 
21972 
21973  data selfref(1:10,1:12) / &
21974  & .1180690e+00,.7135230e-01,.4311990e-01,.2605840e-01,.1574770e-01,&
21975  & .9516750e-02,.5751210e-02,.3475600e-02,.2100390e-02,.1269320e-02,&
21976  & .1370810e-01,.1390460e-01,.1410400e-01,.1430610e-01,.1451120e-01,&
21977  & .1471930e-01,.1493030e-01,.1514430e-01,.1536140e-01,.1558160e-01,&
21978  & .1665750e-01,.1649160e-01,.1632730e-01,.1616470e-01,.1600370e-01,&
21979  & .1584430e-01,.1568640e-01,.1553020e-01,.1537550e-01,.1522240e-01,&
21980  & .5973790e-01,.5095170e-01,.4345790e-01,.3706620e-01,.3161450e-01,&
21981  & .2696470e-01,.2299880e-01,.1961620e-01,.1673110e-01,.1427030e-01,&
21982  & .3320371e+00,.2986281e+00,.2687252e+00,.2419448e+00,.2179475e+00,&
21983  & .1964309e+00,.1771281e+00,.1598017e+00,.1442398e+00,.1302553e+00,&
21984  & .5353614e+00,.4870549e+00,.4431120e+00,.4031396e+00,.3667769e+00,&
21985  & .3336985e+00,.3036077e+00,.2762334e+00,.2513302e+00,.2286753e+00,&
21986  & .2654145e+00,.2716462e+00,.2780447e+00,.2846162e+00,.2913638e+00,&
21987  & .2982924e+00,.3054070e+00,.3127136e+00,.3202159e+00,.3279193e+00,&
21988  & .3297702e+00,.3292642e+00,.3288167e+00,.3284279e+00,.3280982e+00,&
21989  & .3278270e+00,.3276143e+00,.3274609e+00,.3273666e+00,.3273316e+00,&
21990  & .2274450e+00,.2415450e+00,.2565190e+00,.2724220e+00,.2893110e+00,&
21991  & .3072470e+00,.3262940e+00,.3465230e+00,.3680050e+00,.3908200e+00,&
21992  & .6162030e-02,.1135230e-01,.2091440e-01,.3853070e-01,.7098520e-01,&
21993  & .1307760e+00,.2409290e+00,.4438650e+00,.8177330e+00,.1506510e+01,&
21994  & .2795520e-03,.8084720e-03,.2338120e-02,.6761920e-02,.1955570e-01,&
21995  & .5655550e-01,.1635600e+00,.4730200e+00,.1367990e+01,.3956260e+01,&
21996  & .2610060e-03,.7710430e-03,.2277760e-02,.6728790e-02,.1987770e-01,&
21997  & .5872120e-01,.1734700e+00,.5124520e+00,.1513850e+01,.4472090e+01/
21998 
21999 !........................................!
22000  end module module_radsw_kgb29 !
22001 !========================================!
22002 !! @}
real(kind=kind_phys), dimension(msf22, ng22), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
real(kind=kind_phys), parameter, public rayl
rayleigh extinction coefficient at
integer, public mfr23
mfr23=3
integer, public msa22
msa22=585
This module sets up absorption coeffients for band 19: 4650-5150 cm-1 (low - h2o,co2; high - co2) ...
integer, public msf24
msf24=10
integer, public msa25
msa25=65
integer, public msf23
msf23=10
real(kind=kind_phys), dimension(msf24, ng24), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
real(kind=kind_phys), parameter, public rayl
rayleigh extinction coefficient at
real(kind=kind_phys), dimension(msf18, ng18), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
integer, public msf17
msf17=10
This module sets up absorption coeffients for band 24: 12850-16000 cm-1 (low - h2o, o2; high - o2)
integer, public mfr19
MFR19=3.
real(kind=kind_phys), dimension(msa19, ng19), public absa
the array absa(585,NG19) (ka(9,5,13,NG19)) contains absorption coefs at the 16 chosen g-values for a ...
real(kind=kind_phys), dimension(msa23, ng23), public absa
the array absa(65,NG23) (ka(5,13,NG23)) contains absorption coefs at the 16 chosen g-values for a ran...
integer, public msb19
MSB19=235.
integer, public msa16
msa16=585
real(kind=kind_phys), dimension(ng24), public abso3a
o3
real(kind=kind_phys), dimension(msb28, ng28), public absb
the array absb(1175,6) (kb(5,5,13:59,6)) contains absorption coefs at the 16 chosen g-values for a ra...
This module sets up absorption coeffients for band 27: 29000-38000 cm-1 (low - o3; high - o3) ...
real(kind=kind_phys), dimension(msf16, ng16), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
integer, parameter nbhgh
band range upper limit
Definition: radsw_param.f:130
This module sets up absorption coeffients for band 20: 5150-6150 cm-1 (low - h2o; high - h2o) ...
real(kind=kind_phys), dimension(msb24, ng24), public absb
the array absb(235,8) (kb(5,13:59,8)) contains absorption coefs at the 16 chosen g-values for a range...
integer, public msb21
msb21=1175
real(kind=kind_phys), dimension(ng26), public rayl
rayleigh extinction coefficient at all v
real(kind=kind_phys), dimension(msf23, ng23), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
real(kind=kind_phys), parameter, public rayl
rayleigh extinction coefficient at
integer, public mfr24
mfr24=3
This module contains coefficients of cloud optical properties for each of the spectral bands...
Definition: radsw_datatb.f:142
real(kind=kind_phys), dimension(msb22, ng22), public absb
the array absb(235,2) (kb(5,13:59,2)) contains absorption coefs at the 16 chosen g-values for a range...
real(kind=kind_phys), dimension(ng24, mfx24), public rayla
rayleigh extinction coefficient at all v
This module sets up absorption coeffients for band 23: 8050-12850 cm-1 (low - h2o; high - nothing) ...
real(kind=kind_phys), dimension(msf19, ng19), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
integer, public msb17
msb17=1175
real(kind=kind_phys), dimension(msa29, ng29), public absa
the array absa(65,NG29) (ka(5,13,NG29)) contains absorption coefs at the 16 chosen g-values for a ran...
real(kind=kind_phys), dimension(msa22, ng22), public absa
the array absa(585,NG22) (ka(9,5,13,NG22)) contains absorption coefs at the 16 chosen g-values for a ...
integer, public msa19
MSA19=585.
real(kind=kind_phys), dimension(msa27, ng27), public absa
the array absa(65,NG27) (ka(5,13,NG27)) contains absorption coefs at the 16 chosen g-values for a ran...
integer, public mfr17
mfr17=4
real(kind=kind_phys), dimension(msb27, ng27), public absb
the array absb(235,8) (kb(5,13:59,8)) contains absorption coefs at the 16 chosen g-values for a range...
real(kind=kind_phys), dimension(msf20, ng20), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
real(kind=kind_phys), dimension(msa16, ng16), public absa
the array absa(585,NG16) (ka(9,5,13,NG16)) contains absorption coefs at the 16 chosen g-values for a ...
real(kind=kind_phys), dimension(msa24, ng24), public absa
the array absa(585,NG24) (ka(9,5,13,NG24)) contains absorption coefs at the 16 chosen g-values for a ...
integer, public msa23
msa23=65
This module sets up absorption coeffients for band 18: 4000-4650 cm-1 (low - h2o,ch4; high - ch4) ...
integer, public mfr20
mfr20=4
integer, public msf29
msf29=10
real(kind=kind_phys), dimension(msb29, ng29), public absb
the array absb(235,12) (kb(5,13:59,12)) contains absorption coefs at the 16 chosen g-values for a ran...
real(kind=kind_phys), dimension(ng20), public absch4
ch4
real(kind=kind_phys), dimension(59) preflog
Reference pressure and temperature.
Definition: radsw_datatb.f:84
real(kind=kind_phys), dimension(ng25), public abso3b
o3
This module contains reference temperature and pressure.
Definition: radsw_datatb.f:74
integer, public msa24
msa24=585
This module contains SW band parameters set up.
Definition: radsw_param.f:65
real(kind=kind_phys), dimension(msb21, ng21), public absb
the array absb(1175,10) (kb(5,5,13:59,10)) contains absorption coefs at the 16 chosen g-values for a ...
integer, parameter nblow
band range lower limit
Definition: radsw_param.f:128
This module sets up absorption coeffients for band 26: 22650-29000 cm-1 (low - nothing; high - nothin...
integer, public mfr18
mfr18=3
integer, public msa20
msa20=65
integer, public msa17
msa17=585
integer, public msf19
MSF19=10.
integer, public msa29
msa29=65
This module sets up absorption coeffients for band 29: 820-2600 cm-1 (low - h2o; high - co2) ...
integer, public msb29
msb29=235
This module sets up absorption coeffients for band 17: 3250-4000 cm-1 (low - h2o,co2; high - h2o...
real(kind=kind_phys), dimension(msa25, ng25), public absa
the array absa(65,NG25) (ka(5,13,NG25)) contains absorption coefs at the 16 chosen g-values for a ran...
integer, public msf18
msf18=10
This module sets up absorption coeffients for band 22: 7700-8050 cm-1 (low - h2o, o2; high - o2) ...
real(kind=kind_phys), dimension(msf29, ng29), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
integer, public msf21
msf21=10
integer, public mfx24
mfx24=9
integer, public msa27
msa27=65
integer, public msf16
msf16=10
This module contains spectral distribution of solar radiation flux used to obtain the incoming solar ...
real(kind=kind_phys), dimension(msa17, ng17), public absa
the array absa(585,NG17) (ka((9,5,13,NG17)) contains absorption coefs at the 16 chosen g-values for a...
integer, public msb27
msb27=235
real(kind=kind_phys), dimension(ng23), public rayl
rayleigh extinction coefficient at all v
real(kind=kind_phys), dimension(ng25), public abso3a
o3
integer, public mfr21
mfr21=4
real(kind=kind_phys), dimension(msa21, ng21), public absa
the array absa(585,NG21) (ka((9,5,13,NG21)) contains absorption coefs at the 16 chosen g-values for a...
This module sets up absorption coeffients for band 25: 16000-22650 cm-1 (low - h2o; high - nothing) ...
real(kind=kind_phys), dimension(msb20, ng20), public absb
the array absb(235,10) (kb(5,13:59,10)) contains absorption coefs at the 16 chosen g-values for a ran...
real(kind=kind_phys), dimension(msa18, ng18), public absa
the array absa(585,NG18) (ka(9,5,13,NG18)) contains absorption coefs at the 16 chosen g-values for a ...
integer, public msb20
msb20=235
real(kind=kind_phys), dimension(msb16, ng16), public absb
the array absb(235,6) (kb(5,13:59,6)) contains absorption coefs at the 16 chosen g-values for a range...
real(kind=kind_phys), parameter, public rayl
rayleigh extinction coefficient at
integer, public mfr22
mfr22=3
integer, public msb18
msb18=235
integer, public msa21
msa21=585
real(kind=kind_phys), dimension(msb17, ng17), public absb
the array absb(1175,12) (kb(5,5,13:59,12)) contains absorption coefs at the 16 chosen g-values for a ...
real(kind=kind_phys), parameter, public rayl
rayleigh extinction coefficient
integer, public mfr29
mfr29=4
real(kind=kind_phys), dimension(msa20, ng20), public absa
the array absa(65,NG20) (ka(5,13,NG20)) contains absorption coefs at the 16 chosen g-values for a ran...
integer, public msb22
msb22=235
integer, public mfr16
mfr16=3
This module sets up absorption coeffients for band 21: 6150-7700 cm-1 (low - h2o,co2; high - h2o...
real(kind=kind_phys), dimension(msb18, ng18), public absb
the array absb(235,8) (kb(5,13:59,8)) contains absorption coefs at the 16 chosen g-values for a range...
integer, public msf22
msf22=10
real(kind=kind_phys), parameter, public rayl
rayleigh extinction coefficient at v =
real(kind=kind_phys), parameter, public givfac
average giver et al. correction factor for this band.
integer, public msa18
msa18=585
real(kind=kind_phys), dimension(msf21, ng21), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
real(kind=kind_phys), dimension(ng27), public rayl
rayleigh extinction coefficient
real(kind=kind_phys), dimension(msf17, ng17), public selfref
the array selfref contains the coefficient of the water vapor self-continuum (including the energy te...
real(kind=kind_phys), parameter, public rayl
rayleigh extinction coefficient at
integer, public msb24
msb24=235
real(kind=kind_phys), dimension(ng29), public absh2o
h2o
real(kind=kind_phys), dimension(msb19, ng19), public absb
the array absb(235,8) (kb(5,13:59,8)) contains absorption coefs at the 16 chosen g-values for a range...
This module sets up absorption coeffients for band 28: 38000-50000 cm-1 (low - o3,o2; high - o3,o2)
integer, public msb16
msb16=235
real(kind=kind_phys), dimension(msa28, ng28), public absa
the array absa(585,NG28) (ka((9,5,13,NG28)) contains absorption coefs at the 16 chosen g-values for a...
integer, public msf20
msf20=10
This module sets up absorption coefficients for band 16: 2600-3250 cm-1 (low - h2o, ch4; high - ch4)
integer, parameter ngmax
max num of g-point in one band
Definition: radsw_param.f:136
integer, public msb28
msb28=1175
real(kind=kind_phys), dimension(ng24), public abso3b
o3
integer, public msa28
msa28=585
real(kind=kind_phys), parameter, public rayl
rayleigh extinction coefficient at v = 3625
real(kind=kind_phys), dimension(ng29), public absco2
co2
real(kind=kind_phys), dimension(ng25), public rayl
rayleigh extinction coefficient
real(kind=kind_phys), parameter, public rayl
rayleigh extinction coefficient at