phys/module_gocart_coupling.F

   1 !#include <define.h>
   2 #ifdef WRF_CHEM
   3 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
   4 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
   5  module module_gocart_coupling
   6
   7  implicit none
   8
   9 !---------------------------------------------------------------------
  10 !              = Goddard Satellite Data Simulator Unit =
  11 !
  12 !
  13 ! NASA GSFC makes no representations about the suitability of software for any purpose.
  14 ! It is provided as is without express or implied warranty. Neither NASA GSFC (the US
  15 ! government) nor Principal Developers (their organizations) shall be liable for any
  16 ! damages suffered by the user of this software. In addition, please do not distribute
  17 ! the software to third party.
  18 !
  19 !
  20 ! Comments; This module is an interface that bridge GOCART  & GCE or WRF to account for
  21 !      aerosol direct and indirect effect.
  22 !
  23 ! 0. Change directory parameter gocart_dir = 'your directory'
  24 !
  25 ! a) Aerosol Direct Effect (this must call every radiation time step)
  26 !
  27 ! aero_opt ( convert aerosol mass into aerosol single-scattering properties. )
  28 !
  29 !
  30 ! b) Aerosol Indirect Effect (initialize. Call just only once at the beggining.)
  31 !
  32 ! * makelut_ccn_icn (Create CCN and IN candidate look-up table.)
  33 !    |-ccn_estimate( estimate total number concentrations of CCN, IN )
  34 !      |-convert_mass2number( Convert aerosol mass mixing ratio to number mixing ratio )
  35 !      |-opac_log_normal_pdf( compute probability density per width )
  36 !
  37 !
  38 !   Aerosol Indirect Effect (call every microphysics time step)
  39 !
  40 ! * mass2ccn ( convert aerosol mass into the concentrations of cloud condensation nuclei )
  41 !    |-interp(Interpolate CCN LUT for a given temperature and super saturation rate )
  42 !
  43 ! * mass2icn ( convert aerosol mass into the concentrations of ice nuclei )
  44 !
  45 !
  46 ! History;
  47 ! 11/2017  Toshi Matsui@NASA GSFC : Removed GOCART read routines.
  48 ! 11/2010  Toshi Matsui@NASA GSFC : Developed IN routine.
  49 ! 10/2010  Toshi Matsui@NASA GSFC : Developed CCN routine.
  50 ! 10/2008  Toshi Matsui@NASA GSFC ; Now it reads binary direct acess data with subset domain allocation
  51 ! 08/2008  Toshi Matsui@NASA GSFC ; Modified for 3hourly instantenous GOCART data
  52 ! 06/2007  Toshi Matsui@NASA GSFC : add LW aerosol optical proproperties
  53 ! 02/2007  Toshi Matsui@NASA GSFC ; initial, significant revision from code from H.Yu and M. Chin
  54 !----------------------------------------------------------------------
  55
  56 !
  57 ! Encapsulation control
  58 !
  59   private   ! encapsulate module parameters and subourtines.
  60
  61 !
  62 ! public (accessible) subroutine
  63 !
  64   public ::  &
  65                 aero_opt, & ! compute spectrum aerosol optical depths
  66                 mass2ccn, & ! convert GOCART aerosol mass into CCN #.
  67                 mass2icn, & ! convert GOCART aerosol mass into IN #.
  68          makelut_ccn_icn    ! make CCN look-up tables
  69 ! ##############################################################################
  70
  71  logical,parameter :: gocart_verbose = .true.   !if true, it provides alot of run-time comments.
  72
  73 ! ##############################################################################
  74
  75  integer   i,j,k,n,t,h  !local looping variables
  76  logical,save :: master !if true, this is master thread.
  77
  78 !
  79 ! Mie table parameters
  80 !
  81   integer :: nrs     !# of RH or sizes
  82   integer :: nh      !RH loop index
  83   integer :: nsize   !# of size for dust aerosols
  84   integer :: ai      !aerosol index
  85   integer,parameter :: nwl    = 11       !# of band in SW radiative transfer
  86   integer,parameter :: nwl_lw = 10       !# of band in LW radiative transfer
  87   integer,parameter,public :: tgmx = 14  !maximum # for aerosol type
  88   integer,parameter :: nrmx = 99         !maximu RH
  89   integer,parameter :: waven(nwl_lw) = (/250, 340, 540, 800, 980, 1100, &
  90                        1215, 1380, 1900, 3000/) ! Wavenumber intervals for goddard LW scheme
  91                                                 ! It actually starts from 0 but adjusted for smallest value
  92                                                 ! in mie table (wn=250).
  93
  94   real,save :: Bex(tgmx,nwl,0:nrmx) ! SW Mass extinction coefficient [m2/g]
  95   real,save :: w0(tgmx,nwl,0:nrmx)  ! SW single scattering albedo [-]
  96   real,save :: g(tgmx,nwl,0:nrmx)   ! SW asymetry factor [-]
  97
  98   real,save :: Bex_temp(tgmx,nwl,0:nrmx) ! temporary SW Mass extinction coefficient [m2/g]
  99   real,save :: w0_temp(tgmx,nwl,0:nrmx)  ! temporary SW single scattering albedo [-]
 100   real,save :: g_temp(tgmx,nwl,0:nrmx)   ! temporary SW asymetry factor [-]
 101
 102   real,save :: Bex_lw(tgmx,nwl_lw,0:nrmx) ! LW Mass extinction coefficient [m2/g]
 103   real,save :: w0_lw(tgmx,nwl_lw,0:nrmx)  ! LW single scattering albedo [-]
 104   real,save :: g_lw(tgmx,nwl_lw,0:nrmx)   ! LW asymetry factor [-]
 105
 106   real,save :: Bex_lw_temp(tgmx,nwl_lw,0:nrmx) ! temporary LW Mass extinction coefficient [m2/g]
 107   real,save :: w0_lw_temp(tgmx,nwl_lw,0:nrmx)  ! temporary LW single scattering albedo [-]
 108   real,save :: g_lw_temp(tgmx,nwl_lw,0:nrmx)   ! temporary LW asymetry factor [-]
 109
 110   character :: aa*39   ! dummy character
 111   character :: at*4    ! aerosol types
 112   character*4,dimension(6),parameter :: mie_tbl = &
 113        (/'suso', 'waso', 'soot',  'ssam', 'sscm', 'dust'/)
 114
 115 !
 116 ! OPAC aerosol microphysics parameters
 117 !
 118  type particle_opac !OPAC paticle type
 119     real :: inso,waso, soot, ssam, sscm, minm, miam, micm, mitr, suso
 120  end type particle_opac
 121
 122  type ( particle_opac) :: & !
 123      std      ,&  ! standard deviation []
 124      r_mode   ,&  ! mode radius [micron]
 125      r_min    ,&  ! minmum radius [micron]
 126      r_max    ,&  ! maximum radius [micron]
 127      rho          ! density [g/cm3]
 128
 129
 130  real,parameter :: pi_const = 3.1415926535e0
 131
 132 !CCN IN LUT parameter
 133
 134  integer, parameter :: mxpts_s  = 46  ! LUT dimension for super saturation
 135  real, parameter :: pts_s(mxpts_s) = & ! LUT super saturation vector [%]
 136               (/ 1e-4, 2e-4, 3e-4, 4e-4, 5e-4, 6e-4, 7e-4, 8e-4, 9e-4,&
 137                  1e-3, 2e-3, 3e-3, 4e-3, 5e-3, 6e-3, 7e-3, 8e-3, 9e-3,&
 138                  1e-2, 2e-2, 3e-2, 4e-2, 5e-2, 6e-2, 7e-2, 8e-2, 9e-2,&
 139                  1e-1, 2e-1, 3e-1, 4e-1, 5e-1, 6e-1, 7e-1, 8e-1, 9e-1,&
 140                  1e-0, 2e-0, 3e-0, 4e-0, 5e-0, 6e-0, 7e-0, 8e-0, 9e-0,&
 141                  1e+1 /)
 142
 143  integer, parameter :: mxpts_t  = 12  ! LUT dimension for temperature
 144  real, parameter :: pts_t(mxpts_t) = & ! LUT temperature vector [K] for frozen hydrometeors
 145                         (/ 140., 160., 180., 200., 220., 240., 260., 280., &
 146                            300., 320., 340., 360./)
 147
 148
 149  real :: lut_ccn(1:mxpts_t,1:mxpts_s,1:tgmx)  ! LUT for CCN # per unit mass mixing ratio
 150  real :: lut_in_025(1:tgmx) ! LUT for aerosol # per unit mass mixing ratio [#/cm3 per 1g/m3]
 151
 152
 153 !
 154 ! gocart variables
 155 !
 156   character(len=10)  :: varname   !gocart aerosol type
 157   character(len=100) :: fname_in  !gocart directly & input name
 158
 159  real,parameter,public :: dust_frac(4)=(/ 0.01053,0.08421,0.25263,0.65263 /) !fraction for fine dust
 160
 161  character*(*),parameter :: dir_direct = '/Users/matsui/Work/RADIATION/SDSU/GOCART/DIRECT/' !direct GOCART input
 162
 163
 164 !
 165 ! Aerosol Optiocal Properties
 166 ! ai-> aerosol type index
 167 !  1 = SO4      !sulfur and its precure
 168 !  2 = BC1+BC2  !black carbon (soot)
 169 !  3 = OC1      !non hygroscopic OC
 170 !  4 = OC2      !hygroscopic OC
 171 !  5 = SS1      !sea-salt accumulation mode
 172 !  6 = SS2+SS3+SS4 !sea-salt coarse mode
 173 !  7 = DU1      ! dust mode 1
 174 !  8 = DU1      ! dust mode 2
 175 !  9 = DU1      ! dust mode 3
 176 ! 10 = DU1      ! dust mode 4
 177 ! 11 = DU2      ! dust mode 5
 178 ! 12 = DU3      ! dust mode 6
 179 ! 13 = DU4      ! dust mode 7
 180 ! 14 = DU5      ! dust mode 8
 181 !
 182  data (((Bex(ai,k,nh),ai= 1, 1),k=1,11),nh=0,99)/ &
 183  .5144E+01,.5144E+01,.5144E+01,.5081E+01,.4901E+01,.4655E+01,.4549E+01,.3187E+01,.1517E+01,.4026E+00,.2845E+00,&
 184  .5227E+01,.5227E+01,.5227E+01,.5165E+01,.4988E+01,.4739E+01,.4632E+01,.3251E+01,.1552E+01,.4136E+00,.2877E+00,&
 185  .5310E+01,.5310E+01,.5310E+01,.5249E+01,.5074E+01,.4823E+01,.4715E+01,.3315E+01,.1587E+01,.4246E+00,.2909E+00,&
 186  .5393E+01,.5393E+01,.5393E+01,.5332E+01,.5161E+01,.4906E+01,.4797E+01,.3379E+01,.1622E+01,.4357E+00,.2940E+00,&
 187  .5476E+01,.5476E+01,.5476E+01,.5416E+01,.5247E+01,.4990E+01,.4880E+01,.3443E+01,.1657E+01,.4467E+00,.2972E+00,&
 188  .5559E+01,.5559E+01,.5559E+01,.5500E+01,.5334E+01,.5074E+01,.4963E+01,.3507E+01,.1692E+01,.4577E+00,.3004E+00,&
 189  .5657E+01,.5657E+01,.5657E+01,.5595E+01,.5418E+01,.5157E+01,.5045E+01,.3577E+01,.1730E+01,.4700E+00,.3038E+00,&
 190  .5755E+01,.5755E+01,.5755E+01,.5689E+01,.5502E+01,.5239E+01,.5127E+01,.3647E+01,.1769E+01,.4824E+00,.3072E+00,&
 191  .5854E+01,.5854E+01,.5854E+01,.5784E+01,.5587E+01,.5322E+01,.5208E+01,.3716E+01,.1807E+01,.4947E+00,.3106E+00,&
 192  .5952E+01,.5952E+01,.5952E+01,.5878E+01,.5671E+01,.5404E+01,.5290E+01,.3786E+01,.1846E+01,.5071E+00,.3140E+00,&
 193  .6050E+01,.6050E+01,.6050E+01,.5973E+01,.5755E+01,.5487E+01,.5372E+01,.3856E+01,.1884E+01,.5194E+00,.3174E+00,&
 194  .6137E+01,.6137E+01,.6137E+01,.6063E+01,.5855E+01,.5584E+01,.5468E+01,.3926E+01,.1924E+01,.5326E+00,.3209E+00,&
 195  .6224E+01,.6224E+01,.6224E+01,.6154E+01,.5955E+01,.5681E+01,.5564E+01,.3996E+01,.1964E+01,.5458E+00,.3244E+00,&
 196  .6311E+01,.6311E+01,.6311E+01,.6244E+01,.6056E+01,.5778E+01,.5659E+01,.4067E+01,.2005E+01,.5590E+00,.3278E+00,&
 197  .6398E+01,.6398E+01,.6398E+01,.6335E+01,.6156E+01,.5875E+01,.5755E+01,.4137E+01,.2045E+01,.5722E+00,.3313E+00,&
 198  .6485E+01,.6485E+01,.6485E+01,.6425E+01,.6256E+01,.5972E+01,.5851E+01,.4207E+01,.2085E+01,.5854E+00,.3348E+00,&
 199  .6572E+01,.6572E+01,.6572E+01,.6512E+01,.6345E+01,.6060E+01,.5939E+01,.4286E+01,.2130E+01,.6005E+00,.3387E+00,&
 200  .6659E+01,.6659E+01,.6659E+01,.6600E+01,.6433E+01,.6148E+01,.6027E+01,.4366E+01,.2176E+01,.6156E+00,.3426E+00,&
 201  .6745E+01,.6745E+01,.6745E+01,.6687E+01,.6522E+01,.6237E+01,.6114E+01,.4445E+01,.2221E+01,.6307E+00,.3464E+00,&
 202  .6832E+01,.6832E+01,.6832E+01,.6775E+01,.6610E+01,.6325E+01,.6202E+01,.4525E+01,.2267E+01,.6458E+00,.3503E+00,&
 203  .6919E+01,.6919E+01,.6919E+01,.6862E+01,.6699E+01,.6413E+01,.6290E+01,.4604E+01,.2312E+01,.6609E+00,.3542E+00,&
 204  .7036E+01,.7036E+01,.7036E+01,.6974E+01,.6796E+01,.6512E+01,.6391E+01,.4687E+01,.2361E+01,.6776E+00,.3584E+00,&
 205  .7153E+01,.7153E+01,.7153E+01,.7085E+01,.6893E+01,.6612E+01,.6491E+01,.4771E+01,.2410E+01,.6943E+00,.3625E+00,&
 206  .7269E+01,.7269E+01,.7269E+01,.7197E+01,.6989E+01,.6711E+01,.6592E+01,.4854E+01,.2459E+01,.7110E+00,.3667E+00,&
 207  .7386E+01,.7386E+01,.7386E+01,.7308E+01,.7086E+01,.6811E+01,.6692E+01,.4938E+01,.2508E+01,.7277E+00,.3708E+00,&
 208  .7503E+01,.7503E+01,.7503E+01,.7420E+01,.7183E+01,.6910E+01,.6793E+01,.5021E+01,.2557E+01,.7444E+00,.3750E+00,&
 209  .7593E+01,.7593E+01,.7593E+01,.7518E+01,.7301E+01,.7023E+01,.6904E+01,.5109E+01,.2610E+01,.7627E+00,.3795E+00,&
 210  .7684E+01,.7684E+01,.7684E+01,.7615E+01,.7419E+01,.7136E+01,.7015E+01,.5196E+01,.2663E+01,.7810E+00,.3840E+00,&
 211  .7774E+01,.7774E+01,.7774E+01,.7713E+01,.7537E+01,.7250E+01,.7126E+01,.5284E+01,.2715E+01,.7994E+00,.3885E+00,&
 212  .7865E+01,.7865E+01,.7865E+01,.7810E+01,.7655E+01,.7363E+01,.7237E+01,.5371E+01,.2768E+01,.8177E+00,.3930E+00,&
 213  .7955E+01,.7955E+01,.7955E+01,.7908E+01,.7773E+01,.7476E+01,.7348E+01,.5459E+01,.2821E+01,.8360E+00,.3975E+00,&
 214  .8057E+01,.8057E+01,.8057E+01,.8008E+01,.7868E+01,.7573E+01,.7447E+01,.5555E+01,.2878E+01,.8560E+00,.4023E+00,&
 215  .8159E+01,.8159E+01,.8159E+01,.8108E+01,.7963E+01,.7671E+01,.7545E+01,.5650E+01,.2935E+01,.8761E+00,.4072E+00,&
 216  .8260E+01,.8260E+01,.8260E+01,.8208E+01,.8058E+01,.7768E+01,.7644E+01,.5746E+01,.2992E+01,.8961E+00,.4120E+00,&
 217  .8362E+01,.8362E+01,.8362E+01,.8308E+01,.8153E+01,.7866E+01,.7742E+01,.5841E+01,.3049E+01,.9162E+00,.4169E+00,&
 218  .8464E+01,.8464E+01,.8464E+01,.8408E+01,.8248E+01,.7963E+01,.7841E+01,.5937E+01,.3106E+01,.9362E+00,.4217E+00,&
 219  .8591E+01,.8591E+01,.8591E+01,.8531E+01,.8360E+01,.8079E+01,.7958E+01,.6030E+01,.3165E+01,.9574E+00,.4267E+00,&
 220  .8718E+01,.8718E+01,.8718E+01,.8654E+01,.8473E+01,.8195E+01,.8076E+01,.6123E+01,.3224E+01,.9785E+00,.4318E+00,&
 221  .8845E+01,.8845E+01,.8845E+01,.8778E+01,.8585E+01,.8311E+01,.8193E+01,.6217E+01,.3282E+01,.9997E+00,.4368E+00,&
 222  .8972E+01,.8972E+01,.8972E+01,.8901E+01,.8698E+01,.8427E+01,.8311E+01,.6310E+01,.3341E+01,.1021E+01,.4419E+00,&
 223  .9099E+01,.9099E+01,.9099E+01,.9024E+01,.8810E+01,.8543E+01,.8428E+01,.6403E+01,.3400E+01,.1042E+01,.4469E+00,&
 224  .9194E+01,.9194E+01,.9194E+01,.9128E+01,.8939E+01,.8665E+01,.8547E+01,.6506E+01,.3465E+01,.1066E+01,.4525E+00,&
 225  .9289E+01,.9289E+01,.9289E+01,.9232E+01,.9068E+01,.8787E+01,.8667E+01,.6609E+01,.3530E+01,.1089E+01,.4581E+00,&
 226  .9385E+01,.9385E+01,.9385E+01,.9336E+01,.9196E+01,.8910E+01,.8786E+01,.6712E+01,.3595E+01,.1113E+01,.4637E+00,&
 227  .9480E+01,.9480E+01,.9480E+01,.9440E+01,.9325E+01,.9032E+01,.8906E+01,.6815E+01,.3660E+01,.1136E+01,.4693E+00,&
 228  .9575E+01,.9575E+01,.9575E+01,.9544E+01,.9454E+01,.9154E+01,.9025E+01,.6918E+01,.3725E+01,.1160E+01,.4749E+00,&
 229  .9688E+01,.9688E+01,.9688E+01,.9655E+01,.9557E+01,.9261E+01,.9134E+01,.7029E+01,.3795E+01,.1186E+01,.4809E+00,&
 230  .9801E+01,.9801E+01,.9801E+01,.9766E+01,.9659E+01,.9368E+01,.9242E+01,.7140E+01,.3864E+01,.1212E+01,.4870E+00,&
 231  .9914E+01,.9914E+01,.9914E+01,.9878E+01,.9762E+01,.9474E+01,.9351E+01,.7251E+01,.3934E+01,.1237E+01,.4930E+00,&
 232  .1003E+02,.1003E+02,.1003E+02,.9989E+01,.9864E+01,.9581E+01,.9459E+01,.7362E+01,.4003E+01,.1263E+01,.4991E+00,&
 233  .1014E+02,.1014E+02,.1014E+02,.1010E+02,.9967E+01,.9688E+01,.9568E+01,.7473E+01,.4073E+01,.1289E+01,.5051E+00,&
 234  .1028E+02,.1028E+02,.1028E+02,.1023E+02,.1008E+02,.9812E+01,.9694E+01,.7576E+01,.4141E+01,.1315E+01,.5111E+00,&
 235  .1042E+02,.1042E+02,.1042E+02,.1036E+02,.1020E+02,.9937E+01,.9821E+01,.7679E+01,.4209E+01,.1341E+01,.5172E+00,&
 236  .1056E+02,.1056E+02,.1056E+02,.1050E+02,.1032E+02,.1006E+02,.9947E+01,.7781E+01,.4278E+01,.1366E+01,.5232E+00,&
 237  .1070E+02,.1070E+02,.1070E+02,.1063E+02,.1043E+02,.1019E+02,.1007E+02,.7884E+01,.4346E+01,.1392E+01,.5293E+00,&
 238  .1084E+02,.1084E+02,.1084E+02,.1076E+02,.1055E+02,.1031E+02,.1020E+02,.7987E+01,.4414E+01,.1418E+01,.5353E+00,&
 239  .1093E+02,.1093E+02,.1093E+02,.1086E+02,.1069E+02,.1044E+02,.1032E+02,.8091E+01,.4484E+01,.1445E+01,.5415E+00,&
 240  .1102E+02,.1102E+02,.1102E+02,.1097E+02,.1083E+02,.1057E+02,.1045E+02,.8196E+01,.4553E+01,.1472E+01,.5477E+00,&
 241  .1111E+02,.1111E+02,.1111E+02,.1107E+02,.1096E+02,.1069E+02,.1057E+02,.8300E+01,.4623E+01,.1498E+01,.5539E+00,&
 242  .1120E+02,.1120E+02,.1120E+02,.1118E+02,.1110E+02,.1082E+02,.1070E+02,.8405E+01,.4692E+01,.1525E+01,.5601E+00,&
 243  .1129E+02,.1129E+02,.1129E+02,.1128E+02,.1124E+02,.1095E+02,.1082E+02,.8509E+01,.4762E+01,.1552E+01,.5663E+00,&
 244  .1140E+02,.1140E+02,.1140E+02,.1139E+02,.1134E+02,.1105E+02,.1093E+02,.8625E+01,.4838E+01,.1582E+01,.5732E+00,&
 245  .1151E+02,.1151E+02,.1151E+02,.1149E+02,.1144E+02,.1116E+02,.1103E+02,.8741E+01,.4915E+01,.1612E+01,.5801E+00,&
 246  .1161E+02,.1161E+02,.1161E+02,.1160E+02,.1154E+02,.1126E+02,.1114E+02,.8858E+01,.4991E+01,.1641E+01,.5869E+00,&
 247  .1172E+02,.1172E+02,.1172E+02,.1170E+02,.1164E+02,.1137E+02,.1124E+02,.8974E+01,.5068E+01,.1671E+01,.5938E+00,&
 248  .1183E+02,.1183E+02,.1183E+02,.1181E+02,.1174E+02,.1147E+02,.1135E+02,.9090E+01,.5144E+01,.1701E+01,.6007E+00,&
 249  .1198E+02,.1198E+02,.1198E+02,.1195E+02,.1186E+02,.1159E+02,.1147E+02,.9208E+01,.5224E+01,.1733E+01,.6080E+00,&
 250  .1213E+02,.1213E+02,.1213E+02,.1209E+02,.1198E+02,.1171E+02,.1160E+02,.9327E+01,.5304E+01,.1764E+01,.6153E+00,&
 251  .1229E+02,.1229E+02,.1229E+02,.1224E+02,.1209E+02,.1184E+02,.1172E+02,.9445E+01,.5384E+01,.1796E+01,.6227E+00,&
 252  .1244E+02,.1244E+02,.1244E+02,.1238E+02,.1221E+02,.1196E+02,.1185E+02,.9564E+01,.5464E+01,.1827E+01,.6300E+00,&
 253  .1259E+02,.1259E+02,.1259E+02,.1252E+02,.1233E+02,.1208E+02,.1197E+02,.9682E+01,.5544E+01,.1859E+01,.6373E+00,&
 254  .1277E+02,.1277E+02,.1277E+02,.1271E+02,.1257E+02,.1232E+02,.1221E+02,.9884E+01,.5686E+01,.1916E+01,.6506E+00,&
 255  .1294E+02,.1294E+02,.1294E+02,.1291E+02,.1281E+02,.1256E+02,.1245E+02,.1009E+02,.5829E+01,.1974E+01,.6639E+00,&
 256  .1312E+02,.1312E+02,.1312E+02,.1310E+02,.1306E+02,.1279E+02,.1268E+02,.1029E+02,.5971E+01,.2031E+01,.6772E+00,&
 257  .1329E+02,.1329E+02,.1329E+02,.1330E+02,.1330E+02,.1303E+02,.1292E+02,.1049E+02,.6114E+01,.2089E+01,.6905E+00,&
 258  .1347E+02,.1347E+02,.1347E+02,.1349E+02,.1354E+02,.1327E+02,.1316E+02,.1069E+02,.6256E+01,.2146E+01,.7038E+00,&
 259  .1369E+02,.1369E+02,.1369E+02,.1370E+02,.1372E+02,.1347E+02,.1336E+02,.1091E+02,.6410E+01,.2210E+01,.7185E+00,&
 260  .1390E+02,.1390E+02,.1390E+02,.1391E+02,.1391E+02,.1367E+02,.1357E+02,.1114E+02,.6564E+01,.2274E+01,.7333E+00,&
 261  .1412E+02,.1412E+02,.1412E+02,.1411E+02,.1409E+02,.1386E+02,.1377E+02,.1136E+02,.6719E+01,.2337E+01,.7480E+00,&
 262  .1433E+02,.1433E+02,.1433E+02,.1432E+02,.1428E+02,.1406E+02,.1398E+02,.1159E+02,.6873E+01,.2401E+01,.7628E+00,&
 263  .1455E+02,.1455E+02,.1455E+02,.1453E+02,.1446E+02,.1426E+02,.1418E+02,.1181E+02,.7027E+01,.2465E+01,.7775E+00,&
 264  .1493E+02,.1493E+02,.1493E+02,.1488E+02,.1473E+02,.1452E+02,.1443E+02,.1205E+02,.7206E+01,.2540E+01,.7949E+00,&
 265  .1516E+02,.1516E+02,.1516E+02,.1511E+02,.1496E+02,.1480E+02,.1473E+02,.1228E+02,.7386E+01,.2617E+01,.8126E+00,&
 266  .1537E+02,.1537E+02,.1537E+02,.1535E+02,.1530E+02,.1515E+02,.1508E+02,.1253E+02,.7570E+01,.2695E+01,.8308E+00,&
 267  .1568E+02,.1568E+02,.1568E+02,.1571E+02,.1580E+02,.1560E+02,.1552E+02,.1291E+02,.7852E+01,.2815E+01,.8588E+00,&
 268  .1597E+02,.1597E+02,.1597E+02,.1602E+02,.1618E+02,.1596E+02,.1587E+02,.1331E+02,.8141E+01,.2939E+01,.8876E+00,&
 269  .1626E+02,.1626E+02,.1626E+02,.1632E+02,.1650E+02,.1628E+02,.1619E+02,.1372E+02,.8437E+01,.3068E+01,.9174E+00,&
 270  .1675E+02,.1675E+02,.1675E+02,.1680E+02,.1693E+02,.1675E+02,.1667E+02,.1428E+02,.8843E+01,.3245E+01,.9586E+00,&
 271  .1751E+02,.1751E+02,.1751E+02,.1749E+02,.1744E+02,.1730E+02,.1724E+02,.1483E+02,.9259E+01,.3430E+01,.1002E+01,&
 272  .1815E+02,.1815E+02,.1815E+02,.1817E+02,.1821E+02,.1814E+02,.1811E+02,.1550E+02,.9791E+01,.3668E+01,.1058E+01,&
 273  .1877E+02,.1877E+02,.1877E+02,.1888E+02,.1918E+02,.1902E+02,.1895E+02,.1636E+02,.1046E+02,.3971E+01,.1129E+01,&
 274  .1953E+02,.1953E+02,.1953E+02,.1960E+02,.1980E+02,.1972E+02,.1968E+02,.1729E+02,.1116E+02,.4291E+01,.1204E+01,&
 275  .2088E+02,.2088E+02,.2088E+02,.2089E+02,.2090E+02,.2086E+02,.2085E+02,.1850E+02,.1212E+02,.4746E+01,.1311E+01,&
 276  .2176E+02,.2176E+02,.2176E+02,.2191E+02,.2235E+02,.2232E+02,.2231E+02,.1972E+02,.1314E+02,.5228E+01,.1427E+01,&
 277  .2305E+02,.2305E+02,.2305E+02,.2320E+02,.2361E+02,.2360E+02,.2360E+02,.2143E+02,.1448E+02,.5881E+01,.1583E+01,&
 278  .2530E+02,.2530E+02,.2530E+02,.2549E+02,.2604E+02,.2612E+02,.2616E+02,.2372E+02,.1646E+02,.6878E+01,.1825E+01,&
 279  .2764E+02,.2764E+02,.2764E+02,.2777E+02,.2815E+02,.2840E+02,.2851E+02,.2667E+02,.1893E+02,.8158E+01,.2138E+01,&
 280  .3096E+02,.3096E+02,.3096E+02,.3124E+02,.3203E+02,.3225E+02,.3235E+02,.3079E+02,.2262E+02,.1014E+02,.2637E+01,&
 281  .3690E+02,.3690E+02,.3690E+02,.3726E+02,.3828E+02,.3867E+02,.3883E+02,.3821E+02,.2943E+02,.1403E+02,.3640E+01,&
 282  .5038E+02,.5038E+02,.5038E+02,.5089E+02,.5234E+02,.5310E+02,.5343E+02,.5475E+02,.4573E+02,.2429E+02,.6466E+01/
 283  data (((Bex(ai,k,nh),ai= 2, 2),k=1,11),nh=0,99)/ &
 284  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 285  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 286  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 287  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 288  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 289  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 290  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 291  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 292  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 293  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 294  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 295  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 296  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 297  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 298  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 299  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 300  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 301  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 302  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 303  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 304  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 305  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 306  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 307  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 308  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 309  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 310  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 311  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 312  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 313  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 314  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 315  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 316  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 317  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 318  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 319  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 320  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 321  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 322  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 323  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 324  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 325  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 326  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 327  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 328  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 329  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 330  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 331  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 332  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 333  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 334  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 335  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 336  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 337  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 338  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 339  .2268E+02,.2268E+02,.2268E+02,.2205E+02,.2027E+02,.1800E+02,.1702E+02,.9712E+01,.4476E+01,.2143E+01,.6938E+00,&
 340  .2273E+02,.2273E+02,.2273E+02,.2210E+02,.2031E+02,.1804E+02,.1706E+02,.9732E+01,.4485E+01,.2148E+01,.6964E+00,&
 341  .2278E+02,.2278E+02,.2278E+02,.2215E+02,.2036E+02,.1808E+02,.1709E+02,.9752E+01,.4494E+01,.2153E+01,.6989E+00,&
 342  .2282E+02,.2282E+02,.2282E+02,.2219E+02,.2040E+02,.1811E+02,.1713E+02,.9772E+01,.4504E+01,.2158E+01,.7015E+00,&
 343  .2287E+02,.2287E+02,.2287E+02,.2224E+02,.2045E+02,.1815E+02,.1716E+02,.9792E+01,.4513E+01,.2163E+01,.7040E+00,&
 344  .2292E+02,.2292E+02,.2292E+02,.2229E+02,.2049E+02,.1819E+02,.1720E+02,.9812E+01,.4522E+01,.2168E+01,.7066E+00,&
 345  .2292E+02,.2292E+02,.2292E+02,.2229E+02,.2049E+02,.1819E+02,.1720E+02,.9812E+01,.4522E+01,.2168E+01,.7066E+00,&
 346  .2292E+02,.2292E+02,.2292E+02,.2229E+02,.2049E+02,.1819E+02,.1720E+02,.9812E+01,.4522E+01,.2168E+01,.7066E+00,&
 347  .2292E+02,.2292E+02,.2292E+02,.2229E+02,.2049E+02,.1819E+02,.1720E+02,.9812E+01,.4522E+01,.2168E+01,.7066E+00,&
 348  .2292E+02,.2292E+02,.2292E+02,.2229E+02,.2049E+02,.1819E+02,.1720E+02,.9812E+01,.4522E+01,.2168E+01,.7066E+00,&
 349  .2292E+02,.2292E+02,.2292E+02,.2229E+02,.2049E+02,.1819E+02,.1720E+02,.9812E+01,.4522E+01,.2168E+01,.7066E+00,&
 350  .2307E+02,.2307E+02,.2307E+02,.2243E+02,.2062E+02,.1831E+02,.1731E+02,.9870E+01,.4548E+01,.2182E+01,.7140E+00,&
 351  .2321E+02,.2321E+02,.2321E+02,.2257E+02,.2076E+02,.1842E+02,.1742E+02,.9927E+01,.4574E+01,.2196E+01,.7215E+00,&
 352  .2336E+02,.2336E+02,.2336E+02,.2272E+02,.2089E+02,.1854E+02,.1752E+02,.9985E+01,.4601E+01,.2209E+01,.7289E+00,&
 353  .2350E+02,.2350E+02,.2350E+02,.2286E+02,.2103E+02,.1865E+02,.1763E+02,.1004E+02,.4627E+01,.2223E+01,.7364E+00,&
 354  .2365E+02,.2365E+02,.2365E+02,.2300E+02,.2116E+02,.1877E+02,.1774E+02,.1010E+02,.4653E+01,.2237E+01,.7438E+00,&
 355  .2406E+02,.2406E+02,.2406E+02,.2340E+02,.2152E+02,.1908E+02,.1803E+02,.1025E+02,.4717E+01,.2270E+01,.7623E+00,&
 356  .2447E+02,.2447E+02,.2447E+02,.2379E+02,.2188E+02,.1939E+02,.1832E+02,.1040E+02,.4782E+01,.2302E+01,.7808E+00,&
 357  .2487E+02,.2487E+02,.2487E+02,.2419E+02,.2224E+02,.1970E+02,.1861E+02,.1056E+02,.4846E+01,.2335E+01,.7993E+00,&
 358  .2528E+02,.2528E+02,.2528E+02,.2458E+02,.2260E+02,.2001E+02,.1890E+02,.1071E+02,.4911E+01,.2367E+01,.8178E+00,&
 359  .2569E+02,.2569E+02,.2569E+02,.2498E+02,.2296E+02,.2032E+02,.1919E+02,.1086E+02,.4975E+01,.2400E+01,.8363E+00,&
 360  .2626E+02,.2626E+02,.2626E+02,.2552E+02,.2343E+02,.2073E+02,.1957E+02,.1105E+02,.5047E+01,.2433E+01,.8570E+00,&
 361  .2683E+02,.2683E+02,.2683E+02,.2607E+02,.2391E+02,.2113E+02,.1994E+02,.1124E+02,.5119E+01,.2466E+01,.8778E+00,&
 362  .2739E+02,.2739E+02,.2739E+02,.2661E+02,.2438E+02,.2154E+02,.2032E+02,.1142E+02,.5192E+01,.2499E+01,.8985E+00,&
 363  .2796E+02,.2796E+02,.2796E+02,.2716E+02,.2486E+02,.2194E+02,.2069E+02,.1161E+02,.5264E+01,.2532E+01,.9193E+00,&
 364  .2853E+02,.2853E+02,.2853E+02,.2770E+02,.2533E+02,.2235E+02,.2107E+02,.1180E+02,.5336E+01,.2565E+01,.9400E+00,&
 365  .2946E+02,.2946E+02,.2946E+02,.2858E+02,.2609E+02,.2299E+02,.2166E+02,.1208E+02,.5439E+01,.2608E+01,.9691E+00,&
 366  .3009E+02,.3009E+02,.3009E+02,.2918E+02,.2660E+02,.2342E+02,.2206E+02,.1227E+02,.5507E+01,.2636E+01,.9881E+00,&
 367  .3109E+02,.3109E+02,.3109E+02,.3013E+02,.2740E+02,.2410E+02,.2268E+02,.1257E+02,.5609E+01,.2676E+01,.1016E+01,&
 368  .3177E+02,.3177E+02,.3177E+02,.3077E+02,.2794E+02,.2455E+02,.2310E+02,.1276E+02,.5676E+01,.2702E+01,.1034E+01,&
 369  .3283E+02,.3283E+02,.3283E+02,.3178E+02,.2879E+02,.2526E+02,.2375E+02,.1307E+02,.5778E+01,.2739E+01,.1061E+01,&
 370  .3394E+02,.3394E+02,.3394E+02,.3283E+02,.2966E+02,.2600E+02,.2443E+02,.1338E+02,.5880E+01,.2774E+01,.1088E+01,&
 371  .3471E+02,.3471E+02,.3471E+02,.3355E+02,.3026E+02,.2650E+02,.2489E+02,.1359E+02,.5948E+01,.2797E+01,.1105E+01,&
 372  .3590E+02,.3590E+02,.3590E+02,.3467E+02,.3118E+02,.2727E+02,.2560E+02,.1392E+02,.6051E+01,.2831E+01,.1131E+01,&
 373  .3672E+02,.3672E+02,.3672E+02,.3545E+02,.3182E+02,.2781E+02,.2609E+02,.1415E+02,.6121E+01,.2853E+01,.1148E+01,&
 374  .3799E+02,.3799E+02,.3799E+02,.3664E+02,.3280E+02,.2863E+02,.2685E+02,.1449E+02,.6228E+01,.2885E+01,.1174E+01,&
 375  .3932E+02,.3932E+02,.3932E+02,.3789E+02,.3383E+02,.2950E+02,.2764E+02,.1485E+02,.6337E+01,.2918E+01,.1199E+01,&
 376  .4071E+02,.4071E+02,.4071E+02,.3920E+02,.3489E+02,.3038E+02,.2845E+02,.1522E+02,.6448E+01,.2949E+01,.1225E+01,&
 377  .4215E+02,.4215E+02,.4215E+02,.4055E+02,.3600E+02,.3131E+02,.2930E+02,.1561E+02,.6562E+01,.2980E+01,.1250E+01,&
 378  .4417E+02,.4417E+02,.4417E+02,.4245E+02,.3754E+02,.3260E+02,.3049E+02,.1615E+02,.6720E+01,.3021E+01,.1285E+01,&
 379  .4629E+02,.4629E+02,.4629E+02,.4444E+02,.3916E+02,.3396E+02,.3173E+02,.1671E+02,.6884E+01,.3062E+01,.1319E+01,&
 380  .4911E+02,.4911E+02,.4911E+02,.4708E+02,.4131E+02,.3576E+02,.3338E+02,.1745E+02,.7099E+01,.3114E+01,.1363E+01,&
 381  .5337E+02,.5337E+02,.5337E+02,.5107E+02,.4454E+02,.3847E+02,.3587E+02,.1858E+02,.7422E+01,.3188E+01,.1426E+01,&
 382  .5871E+02,.5871E+02,.5871E+02,.5608E+02,.4860E+02,.4188E+02,.3900E+02,.2001E+02,.7827E+01,.3276E+01,.1500E+01,&
 383  .7441E+02,.7441E+02,.7441E+02,.7081E+02,.6056E+02,.5196E+02,.4827E+02,.2427E+02,.9036E+01,.3523E+01,.1703E+01/
 384  data (((Bex(ai,k,nh),ai= 3, 3),k=1,11),nh=0,99)/ &
 385  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 386  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 387  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 388  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 389  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 390  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 391  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 392  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 393  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 394  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 395  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 396  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 397  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 398  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 399  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 400  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 401  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 402  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 403  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 404  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 405  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 406  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 407  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 408  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 409  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 410  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 411  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 412  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 413  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 414  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 415  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 416  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 417  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 418  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 419  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 420  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 421  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 422  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 423  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 424  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 425  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 426  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 427  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 428  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 429  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 430  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 431  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 432  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 433  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 434  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 435  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 436  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 437  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 438  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 439  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 440  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 441  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 442  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 443  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 444  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 445  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 446  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 447  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 448  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 449  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 450  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 451  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 452  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 453  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 454  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 455  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 456  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 457  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 458  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 459  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 460  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 461  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 462  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 463  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 464  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 465  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 466  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 467  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 468  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 469  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 470  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 471  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 472  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 473  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 474  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 475  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 476  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 477  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 478  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 479  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 480  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 481  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 482  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 483  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 484  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01/
 485  data (((Bex(ai,k,nh),ai= 4, 4),k=1,11),nh=0,99)/ &
 486  .7325E+01,.7325E+01,.7325E+01,.7033E+01,.6201E+01,.5528E+01,.5240E+01,.2922E+01,.1058E+01,.2350E+00,.5156E-01,&
 487  .7397E+01,.7397E+01,.7397E+01,.7102E+01,.6263E+01,.5582E+01,.5291E+01,.2952E+01,.1069E+01,.2376E+00,.5267E-01,&
 488  .7469E+01,.7469E+01,.7469E+01,.7172E+01,.6325E+01,.5636E+01,.5342E+01,.2982E+01,.1080E+01,.2402E+00,.5378E-01,&
 489  .7542E+01,.7542E+01,.7542E+01,.7241E+01,.6386E+01,.5691E+01,.5392E+01,.3011E+01,.1092E+01,.2427E+00,.5489E-01,&
 490  .7614E+01,.7614E+01,.7614E+01,.7311E+01,.6448E+01,.5745E+01,.5443E+01,.3041E+01,.1103E+01,.2453E+00,.5600E-01,&
 491  .7686E+01,.7686E+01,.7686E+01,.7380E+01,.6510E+01,.5799E+01,.5494E+01,.3071E+01,.1114E+01,.2479E+00,.5711E-01,&
 492  .7763E+01,.7763E+01,.7763E+01,.7453E+01,.6573E+01,.5856E+01,.5548E+01,.3102E+01,.1126E+01,.2507E+00,.5827E-01,&
 493  .7840E+01,.7840E+01,.7840E+01,.7526E+01,.6635E+01,.5913E+01,.5603E+01,.3133E+01,.1138E+01,.2534E+00,.5943E-01,&
 494  .7916E+01,.7916E+01,.7916E+01,.7600E+01,.6698E+01,.5969E+01,.5657E+01,.3165E+01,.1150E+01,.2562E+00,.6058E-01,&
 495  .7993E+01,.7993E+01,.7993E+01,.7673E+01,.6760E+01,.6026E+01,.5712E+01,.3196E+01,.1162E+01,.2589E+00,.6174E-01,&
 496  .8070E+01,.8070E+01,.8070E+01,.7746E+01,.6823E+01,.6083E+01,.5766E+01,.3227E+01,.1174E+01,.2617E+00,.6290E-01,&
 497  .8150E+01,.8150E+01,.8150E+01,.7823E+01,.6891E+01,.6145E+01,.5825E+01,.3260E+01,.1186E+01,.2646E+00,.6411E-01,&
 498  .8230E+01,.8230E+01,.8230E+01,.7900E+01,.6959E+01,.6206E+01,.5884E+01,.3293E+01,.1199E+01,.2675E+00,.6532E-01,&
 499  .8311E+01,.8311E+01,.8311E+01,.7977E+01,.7027E+01,.6268E+01,.5942E+01,.3325E+01,.1211E+01,.2705E+00,.6654E-01,&
 500  .8391E+01,.8391E+01,.8391E+01,.8054E+01,.7095E+01,.6329E+01,.6001E+01,.3358E+01,.1224E+01,.2734E+00,.6775E-01,&
 501  .8471E+01,.8471E+01,.8471E+01,.8131E+01,.7163E+01,.6391E+01,.6060E+01,.3391E+01,.1236E+01,.2763E+00,.6896E-01,&
 502  .8553E+01,.8553E+01,.8553E+01,.8210E+01,.7235E+01,.6454E+01,.6119E+01,.3425E+01,.1249E+01,.2794E+00,.7023E-01,&
 503  .8635E+01,.8635E+01,.8635E+01,.8290E+01,.7307E+01,.6517E+01,.6178E+01,.3460E+01,.1263E+01,.2825E+00,.7149E-01,&
 504  .8718E+01,.8718E+01,.8718E+01,.8369E+01,.7378E+01,.6579E+01,.6237E+01,.3494E+01,.1276E+01,.2857E+00,.7276E-01,&
 505  .8800E+01,.8800E+01,.8800E+01,.8449E+01,.7450E+01,.6642E+01,.6296E+01,.3529E+01,.1290E+01,.2888E+00,.7402E-01,&
 506  .8882E+01,.8882E+01,.8882E+01,.8528E+01,.7522E+01,.6705E+01,.6355E+01,.3563E+01,.1303E+01,.2919E+00,.7529E-01,&
 507  .8966E+01,.8966E+01,.8966E+01,.8609E+01,.7594E+01,.6770E+01,.6417E+01,.3599E+01,.1317E+01,.2952E+00,.7661E-01,&
 508  .9050E+01,.9050E+01,.9050E+01,.8690E+01,.7666E+01,.6835E+01,.6479E+01,.3636E+01,.1331E+01,.2985E+00,.7793E-01,&
 509  .9134E+01,.9134E+01,.9134E+01,.8771E+01,.7738E+01,.6899E+01,.6540E+01,.3672E+01,.1345E+01,.3018E+00,.7926E-01,&
 510  .9218E+01,.9218E+01,.9218E+01,.8852E+01,.7810E+01,.6964E+01,.6602E+01,.3709E+01,.1359E+01,.3051E+00,.8058E-01,&
 511  .9302E+01,.9302E+01,.9302E+01,.8933E+01,.7882E+01,.7029E+01,.6664E+01,.3745E+01,.1373E+01,.3084E+00,.8190E-01,&
 512  .9389E+01,.9389E+01,.9389E+01,.9017E+01,.7957E+01,.7096E+01,.6728E+01,.3783E+01,.1388E+01,.3119E+00,.8328E-01,&
 513  .9477E+01,.9477E+01,.9477E+01,.9101E+01,.8031E+01,.7163E+01,.6791E+01,.3821E+01,.1403E+01,.3154E+00,.8466E-01,&
 514  .9564E+01,.9564E+01,.9564E+01,.9185E+01,.8106E+01,.7230E+01,.6855E+01,.3859E+01,.1417E+01,.3189E+00,.8603E-01,&
 515  .9652E+01,.9652E+01,.9652E+01,.9269E+01,.8180E+01,.7297E+01,.6918E+01,.3897E+01,.1432E+01,.3224E+00,.8741E-01,&
 516  .9739E+01,.9739E+01,.9739E+01,.9353E+01,.8255E+01,.7364E+01,.6982E+01,.3935E+01,.1447E+01,.3259E+00,.8879E-01,&
 517  .9833E+01,.9833E+01,.9833E+01,.9443E+01,.8332E+01,.7434E+01,.7049E+01,.3975E+01,.1463E+01,.3296E+00,.9023E-01,&
 518  .9927E+01,.9927E+01,.9927E+01,.9533E+01,.8409E+01,.7504E+01,.7116E+01,.4014E+01,.1478E+01,.3333E+00,.9166E-01,&
 519  .1002E+02,.1002E+02,.1002E+02,.9622E+01,.8487E+01,.7575E+01,.7184E+01,.4054E+01,.1494E+01,.3371E+00,.9310E-01,&
 520  .1012E+02,.1012E+02,.1012E+02,.9712E+01,.8564E+01,.7645E+01,.7251E+01,.4093E+01,.1509E+01,.3408E+00,.9453E-01,&
 521  .1021E+02,.1021E+02,.1021E+02,.9802E+01,.8641E+01,.7715E+01,.7318E+01,.4133E+01,.1525E+01,.3445E+00,.9597E-01,&
 522  .1031E+02,.1031E+02,.1031E+02,.9896E+01,.8724E+01,.7791E+01,.7391E+01,.4175E+01,.1541E+01,.3484E+00,.9748E-01,&
 523  .1040E+02,.1040E+02,.1040E+02,.9989E+01,.8807E+01,.7867E+01,.7464E+01,.4216E+01,.1558E+01,.3524E+00,.9898E-01,&
 524  .1050E+02,.1050E+02,.1050E+02,.1008E+02,.8891E+01,.7943E+01,.7537E+01,.4258E+01,.1574E+01,.3563E+00,.1005E+00,&
 525  .1059E+02,.1059E+02,.1059E+02,.1018E+02,.8974E+01,.8019E+01,.7610E+01,.4299E+01,.1591E+01,.3603E+00,.1020E+00,&
 526  .1069E+02,.1069E+02,.1069E+02,.1027E+02,.9057E+01,.8095E+01,.7683E+01,.4341E+01,.1607E+01,.3642E+00,.1035E+00,&
 527  .1079E+02,.1079E+02,.1079E+02,.1036E+02,.9145E+01,.8172E+01,.7755E+01,.4384E+01,.1624E+01,.3684E+00,.1051E+00,&
 528  .1088E+02,.1088E+02,.1088E+02,.1045E+02,.9232E+01,.8249E+01,.7827E+01,.4428E+01,.1642E+01,.3725E+00,.1066E+00,&
 529  .1098E+02,.1098E+02,.1098E+02,.1055E+02,.9320E+01,.8325E+01,.7900E+01,.4471E+01,.1659E+01,.3767E+00,.1082E+00,&
 530  .1107E+02,.1107E+02,.1107E+02,.1064E+02,.9407E+01,.8402E+01,.7972E+01,.4515E+01,.1677E+01,.3808E+00,.1097E+00,&
 531  .1117E+02,.1117E+02,.1117E+02,.1073E+02,.9495E+01,.8479E+01,.8044E+01,.4558E+01,.1694E+01,.3850E+00,.1113E+00,&
 532  .1127E+02,.1127E+02,.1127E+02,.1083E+02,.9581E+01,.8557E+01,.8119E+01,.4604E+01,.1712E+01,.3894E+00,.1129E+00,&
 533  .1137E+02,.1137E+02,.1137E+02,.1093E+02,.9667E+01,.8636E+01,.8194E+01,.4650E+01,.1730E+01,.3939E+00,.1145E+00,&
 534  .1147E+02,.1147E+02,.1147E+02,.1102E+02,.9754E+01,.8714E+01,.8269E+01,.4695E+01,.1749E+01,.3983E+00,.1162E+00,&
 535  .1157E+02,.1157E+02,.1157E+02,.1112E+02,.9840E+01,.8793E+01,.8344E+01,.4741E+01,.1767E+01,.4028E+00,.1178E+00,&
 536  .1167E+02,.1167E+02,.1167E+02,.1122E+02,.9926E+01,.8871E+01,.8419E+01,.4787E+01,.1785E+01,.4072E+00,.1194E+00,&
 537  .1179E+02,.1179E+02,.1179E+02,.1134E+02,.1003E+02,.8966E+01,.8510E+01,.4843E+01,.1808E+01,.4128E+00,.1214E+00,&
 538  .1191E+02,.1191E+02,.1191E+02,.1145E+02,.1014E+02,.9062E+01,.8602E+01,.4900E+01,.1831E+01,.4183E+00,.1234E+00,&
 539  .1204E+02,.1204E+02,.1204E+02,.1157E+02,.1024E+02,.9157E+01,.8693E+01,.4956E+01,.1853E+01,.4239E+00,.1255E+00,&
 540  .1216E+02,.1216E+02,.1216E+02,.1168E+02,.1035E+02,.9253E+01,.8785E+01,.5013E+01,.1876E+01,.4294E+00,.1275E+00,&
 541  .1228E+02,.1228E+02,.1228E+02,.1180E+02,.1045E+02,.9348E+01,.8876E+01,.5069E+01,.1899E+01,.4350E+00,.1295E+00,&
 542  .1241E+02,.1241E+02,.1241E+02,.1193E+02,.1056E+02,.9450E+01,.8974E+01,.5128E+01,.1923E+01,.4410E+00,.1316E+00,&
 543  .1255E+02,.1255E+02,.1255E+02,.1206E+02,.1067E+02,.9552E+01,.9072E+01,.5187E+01,.1947E+01,.4470E+00,.1337E+00,&
 544  .1268E+02,.1268E+02,.1268E+02,.1218E+02,.1078E+02,.9653E+01,.9171E+01,.5246E+01,.1971E+01,.4529E+00,.1359E+00,&
 545  .1282E+02,.1282E+02,.1282E+02,.1231E+02,.1089E+02,.9755E+01,.9269E+01,.5305E+01,.1995E+01,.4589E+00,.1380E+00,&
 546  .1295E+02,.1295E+02,.1295E+02,.1244E+02,.1100E+02,.9857E+01,.9367E+01,.5364E+01,.2019E+01,.4649E+00,.1401E+00,&
 547  .1307E+02,.1307E+02,.1307E+02,.1256E+02,.1111E+02,.9956E+01,.9461E+01,.5419E+01,.2041E+01,.4704E+00,.1420E+00,&
 548  .1319E+02,.1319E+02,.1319E+02,.1268E+02,.1122E+02,.1005E+02,.9555E+01,.5473E+01,.2064E+01,.4759E+00,.1439E+00,&
 549  .1331E+02,.1331E+02,.1331E+02,.1279E+02,.1132E+02,.1015E+02,.9648E+01,.5528E+01,.2086E+01,.4815E+00,.1459E+00,&
 550  .1343E+02,.1343E+02,.1343E+02,.1291E+02,.1143E+02,.1025E+02,.9742E+01,.5582E+01,.2109E+01,.4870E+00,.1478E+00,&
 551  .1355E+02,.1355E+02,.1355E+02,.1303E+02,.1154E+02,.1035E+02,.9836E+01,.5637E+01,.2131E+01,.4925E+00,.1497E+00,&
 552  .1368E+02,.1368E+02,.1368E+02,.1316E+02,.1166E+02,.1046E+02,.9939E+01,.5702E+01,.2158E+01,.4992E+00,.1520E+00,&
 553  .1382E+02,.1382E+02,.1382E+02,.1329E+02,.1179E+02,.1057E+02,.1004E+02,.5767E+01,.2185E+01,.5059E+00,.1543E+00,&
 554  .1395E+02,.1395E+02,.1395E+02,.1342E+02,.1191E+02,.1067E+02,.1014E+02,.5831E+01,.2211E+01,.5126E+00,.1567E+00,&
 555  .1409E+02,.1409E+02,.1409E+02,.1355E+02,.1204E+02,.1078E+02,.1025E+02,.5896E+01,.2238E+01,.5193E+00,.1590E+00,&
 556  .1422E+02,.1422E+02,.1422E+02,.1368E+02,.1216E+02,.1089E+02,.1035E+02,.5961E+01,.2265E+01,.5260E+00,.1613E+00,&
 557  .1443E+02,.1443E+02,.1443E+02,.1389E+02,.1235E+02,.1106E+02,.1052E+02,.6066E+01,.2308E+01,.5370E+00,.1650E+00,&
 558  .1465E+02,.1465E+02,.1465E+02,.1410E+02,.1253E+02,.1123E+02,.1068E+02,.6171E+01,.2352E+01,.5480E+00,.1687E+00,&
 559  .1486E+02,.1486E+02,.1486E+02,.1430E+02,.1272E+02,.1141E+02,.1085E+02,.6276E+01,.2395E+01,.5590E+00,.1724E+00,&
 560  .1508E+02,.1508E+02,.1508E+02,.1451E+02,.1290E+02,.1158E+02,.1101E+02,.6381E+01,.2439E+01,.5700E+00,.1761E+00,&
 561  .1529E+02,.1529E+02,.1529E+02,.1472E+02,.1309E+02,.1175E+02,.1118E+02,.6486E+01,.2482E+01,.5810E+00,.1798E+00,&
 562  .1561E+02,.1561E+02,.1561E+02,.1503E+02,.1337E+02,.1201E+02,.1143E+02,.6636E+01,.2546E+01,.5973E+00,.1852E+00,&
 563  .1593E+02,.1593E+02,.1593E+02,.1533E+02,.1364E+02,.1226E+02,.1167E+02,.6786E+01,.2609E+01,.6137E+00,.1906E+00,&
 564  .1624E+02,.1624E+02,.1624E+02,.1564E+02,.1392E+02,.1252E+02,.1192E+02,.6935E+01,.2673E+01,.6300E+00,.1959E+00,&
 565  .1656E+02,.1656E+02,.1656E+02,.1594E+02,.1419E+02,.1277E+02,.1216E+02,.7085E+01,.2736E+01,.6464E+00,.2013E+00,&
 566  .1688E+02,.1688E+02,.1688E+02,.1625E+02,.1447E+02,.1303E+02,.1241E+02,.7235E+01,.2800E+01,.6627E+00,.2067E+00,&
 567  .1727E+02,.1727E+02,.1727E+02,.1664E+02,.1485E+02,.1336E+02,.1272E+02,.7433E+01,.2885E+01,.6846E+00,.2138E+00,&
 568  .1766E+02,.1766E+02,.1766E+02,.1702E+02,.1521E+02,.1369E+02,.1304E+02,.7636E+01,.2972E+01,.7072E+00,.2210E+00,&
 569  .1805E+02,.1805E+02,.1805E+02,.1741E+02,.1557E+02,.1402E+02,.1336E+02,.7844E+01,.3061E+01,.7305E+00,.2284E+00,&
 570  .1845E+02,.1845E+02,.1845E+02,.1779E+02,.1593E+02,.1435E+02,.1367E+02,.8057E+01,.3153E+01,.7545E+00,.2361E+00,&
 571  .1902E+02,.1902E+02,.1902E+02,.1834E+02,.1641E+02,.1480E+02,.1411E+02,.8348E+01,.3278E+01,.7874E+00,.2464E+00,&
 572  .1962E+02,.1962E+02,.1962E+02,.1892E+02,.1692E+02,.1527E+02,.1457E+02,.8644E+01,.3407E+01,.8218E+00,.2571E+00,&
 573  .2041E+02,.2041E+02,.2041E+02,.1967E+02,.1758E+02,.1589E+02,.1517E+02,.9022E+01,.3574E+01,.8664E+00,.2709E+00,&
 574  .2116E+02,.2116E+02,.2116E+02,.2042E+02,.1830E+02,.1656E+02,.1582E+02,.9415E+01,.3749E+01,.9129E+00,.2852E+00,&
 575  .2204E+02,.2204E+02,.2204E+02,.2129E+02,.1917E+02,.1734E+02,.1656E+02,.9903E+01,.3966E+01,.9718E+00,.3031E+00,&
 576  .2295E+02,.2295E+02,.2295E+02,.2218E+02,.2000E+02,.1811E+02,.1730E+02,.1042E+02,.4194E+01,.1034E+01,.3217E+00,&
 577  .2409E+02,.2409E+02,.2409E+02,.2328E+02,.2098E+02,.1904E+02,.1821E+02,.1104E+02,.4473E+01,.1110E+01,.3444E+00,&
 578  .2554E+02,.2554E+02,.2554E+02,.2467E+02,.2220E+02,.2020E+02,.1934E+02,.1177E+02,.4809E+01,.1204E+01,.3718E+00,&
 579  .2721E+02,.2721E+02,.2721E+02,.2635E+02,.2390E+02,.2174E+02,.2082E+02,.1273E+02,.5257E+01,.1329E+01,.4081E+00,&
 580  .2912E+02,.2912E+02,.2912E+02,.2821E+02,.2563E+02,.2338E+02,.2241E+02,.1387E+02,.5786E+01,.1480E+01,.4510E+00,&
 581  .3212E+02,.3212E+02,.3212E+02,.3112E+02,.2826E+02,.2589E+02,.2487E+02,.1551E+02,.6569E+01,.1706E+01,.5144E+00,&
 582  .3570E+02,.3570E+02,.3570E+02,.3468E+02,.3179E+02,.2917E+02,.2804E+02,.1780E+02,.7673E+01,.2031E+01,.6039E+00,&
 583  .4053E+02,.4053E+02,.4053E+02,.3943E+02,.3630E+02,.3346E+02,.3224E+02,.2068E+02,.9112E+01,.2467E+01,.7211E+00,&
 584  .4887E+02,.4887E+02,.4887E+02,.4762E+02,.4407E+02,.4094E+02,.3960E+02,.2605E+02,.1187E+02,.3330E+01,.9477E+00,&
 585  .6332E+02,.6332E+02,.6332E+02,.6207E+02,.5852E+02,.5476E+02,.5315E+02,.3643E+02,.1748E+02,.5174E+01,.1417E+01/
 586  data (((Bex(ai,k,nh),ai= 5, 5),k=1,11),nh=0,99)/ &
 587  .1033E+01,.1033E+01,.1033E+01,.1038E+01,.1054E+01,.1075E+01,.1084E+01,.1151E+01,.1115E+01,.7503E+00,.1815E+00,&
 588  .1056E+01,.1056E+01,.1056E+01,.1061E+01,.1078E+01,.1099E+01,.1108E+01,.1179E+01,.1142E+01,.7701E+00,.1880E+00,&
 589  .1079E+01,.1079E+01,.1079E+01,.1084E+01,.1101E+01,.1123E+01,.1132E+01,.1207E+01,.1170E+01,.7899E+00,.1945E+00,&
 590  .1101E+01,.1101E+01,.1101E+01,.1108E+01,.1125E+01,.1146E+01,.1156E+01,.1234E+01,.1197E+01,.8097E+00,.2010E+00,&
 591  .1124E+01,.1124E+01,.1124E+01,.1131E+01,.1148E+01,.1170E+01,.1180E+01,.1262E+01,.1225E+01,.8295E+00,.2075E+00,&
 592  .1147E+01,.1147E+01,.1147E+01,.1154E+01,.1172E+01,.1194E+01,.1204E+01,.1290E+01,.1252E+01,.8493E+00,.2140E+00,&
 593  .1172E+01,.1172E+01,.1172E+01,.1179E+01,.1198E+01,.1223E+01,.1234E+01,.1318E+01,.1281E+01,.8707E+00,.2214E+00,&
 594  .1197E+01,.1197E+01,.1197E+01,.1204E+01,.1225E+01,.1252E+01,.1264E+01,.1346E+01,.1310E+01,.8921E+00,.2288E+00,&
 595  .1221E+01,.1221E+01,.1221E+01,.1230E+01,.1251E+01,.1281E+01,.1294E+01,.1375E+01,.1339E+01,.9136E+00,.2362E+00,&
 596  .1246E+01,.1246E+01,.1246E+01,.1255E+01,.1278E+01,.1310E+01,.1324E+01,.1403E+01,.1368E+01,.9350E+00,.2436E+00,&
 597  .1271E+01,.1271E+01,.1271E+01,.1280E+01,.1304E+01,.1339E+01,.1354E+01,.1431E+01,.1397E+01,.9564E+00,.2510E+00,&
 598  .1301E+01,.1301E+01,.1301E+01,.1308E+01,.1329E+01,.1364E+01,.1380E+01,.1461E+01,.1429E+01,.9805E+00,.2594E+00,&
 599  .1331E+01,.1331E+01,.1331E+01,.1337E+01,.1354E+01,.1390E+01,.1405E+01,.1492E+01,.1461E+01,.1005E+01,.2677E+00,&
 600  .1360E+01,.1360E+01,.1360E+01,.1365E+01,.1379E+01,.1415E+01,.1431E+01,.1522E+01,.1493E+01,.1029E+01,.2761E+00,&
 601  .1390E+01,.1390E+01,.1390E+01,.1394E+01,.1404E+01,.1441E+01,.1456E+01,.1553E+01,.1525E+01,.1053E+01,.2844E+00,&
 602  .1420E+01,.1420E+01,.1420E+01,.1422E+01,.1429E+01,.1466E+01,.1482E+01,.1583E+01,.1557E+01,.1077E+01,.2928E+00,&
 603  .1443E+01,.1443E+01,.1443E+01,.1447E+01,.1459E+01,.1497E+01,.1513E+01,.1614E+01,.1589E+01,.1103E+01,.3022E+00,&
 604  .1467E+01,.1467E+01,.1467E+01,.1472E+01,.1490E+01,.1528E+01,.1544E+01,.1646E+01,.1621E+01,.1128E+01,.3115E+00,&
 605  .1490E+01,.1490E+01,.1490E+01,.1498E+01,.1520E+01,.1559E+01,.1576E+01,.1677E+01,.1654E+01,.1154E+01,.3209E+00,&
 606  .1514E+01,.1514E+01,.1514E+01,.1523E+01,.1551E+01,.1590E+01,.1607E+01,.1709E+01,.1686E+01,.1179E+01,.3302E+00,&
 607  .1537E+01,.1537E+01,.1537E+01,.1548E+01,.1581E+01,.1621E+01,.1638E+01,.1740E+01,.1718E+01,.1205E+01,.3396E+00,&
 608  .1571E+01,.1571E+01,.1571E+01,.1581E+01,.1609E+01,.1649E+01,.1666E+01,.1773E+01,.1754E+01,.1234E+01,.3500E+00,&
 609  .1605E+01,.1605E+01,.1605E+01,.1613E+01,.1637E+01,.1677E+01,.1694E+01,.1806E+01,.1790E+01,.1263E+01,.3604E+00,&
 610  .1639E+01,.1639E+01,.1639E+01,.1646E+01,.1665E+01,.1704E+01,.1721E+01,.1838E+01,.1826E+01,.1292E+01,.3709E+00,&
 611  .1673E+01,.1673E+01,.1673E+01,.1678E+01,.1693E+01,.1732E+01,.1749E+01,.1871E+01,.1862E+01,.1321E+01,.3813E+00,&
 612  .1707E+01,.1707E+01,.1707E+01,.1711E+01,.1721E+01,.1760E+01,.1777E+01,.1904E+01,.1898E+01,.1350E+01,.3917E+00,&
 613  .1734E+01,.1734E+01,.1734E+01,.1740E+01,.1756E+01,.1793E+01,.1810E+01,.1938E+01,.1934E+01,.1380E+01,.4032E+00,&
 614  .1761E+01,.1761E+01,.1761E+01,.1769E+01,.1790E+01,.1826E+01,.1842E+01,.1972E+01,.1970E+01,.1410E+01,.4147E+00,&
 615  .1787E+01,.1787E+01,.1787E+01,.1797E+01,.1825E+01,.1860E+01,.1875E+01,.2007E+01,.2006E+01,.1439E+01,.4262E+00,&
 616  .1814E+01,.1814E+01,.1814E+01,.1826E+01,.1859E+01,.1893E+01,.1907E+01,.2041E+01,.2042E+01,.1469E+01,.4377E+00,&
 617  .1841E+01,.1841E+01,.1841E+01,.1855E+01,.1894E+01,.1926E+01,.1940E+01,.2075E+01,.2078E+01,.1499E+01,.4492E+00,&
 618  .1878E+01,.1878E+01,.1878E+01,.1891E+01,.1926E+01,.1956E+01,.1969E+01,.2112E+01,.2118E+01,.1533E+01,.4619E+00,&
 619  .1915E+01,.1915E+01,.1915E+01,.1926E+01,.1957E+01,.1985E+01,.1998E+01,.2149E+01,.2158E+01,.1566E+01,.4746E+00,&
 620  .1953E+01,.1953E+01,.1953E+01,.1962E+01,.1989E+01,.2015E+01,.2026E+01,.2186E+01,.2198E+01,.1600E+01,.4872E+00,&
 621  .1990E+01,.1990E+01,.1990E+01,.1997E+01,.2020E+01,.2044E+01,.2055E+01,.2223E+01,.2238E+01,.1633E+01,.4999E+00,&
 622  .2027E+01,.2027E+01,.2027E+01,.2033E+01,.2052E+01,.2074E+01,.2084E+01,.2260E+01,.2278E+01,.1667E+01,.5126E+00,&
 623  .2058E+01,.2058E+01,.2058E+01,.2065E+01,.2088E+01,.2111E+01,.2121E+01,.2295E+01,.2317E+01,.1701E+01,.5264E+00,&
 624  .2089E+01,.2089E+01,.2089E+01,.2097E+01,.2123E+01,.2147E+01,.2158E+01,.2330E+01,.2356E+01,.1735E+01,.5403E+00,&
 625  .2119E+01,.2119E+01,.2119E+01,.2130E+01,.2159E+01,.2184E+01,.2195E+01,.2365E+01,.2395E+01,.1770E+01,.5541E+00,&
 626  .2150E+01,.2150E+01,.2150E+01,.2162E+01,.2194E+01,.2220E+01,.2232E+01,.2400E+01,.2434E+01,.1804E+01,.5680E+00,&
 627  .2181E+01,.2181E+01,.2181E+01,.2194E+01,.2230E+01,.2257E+01,.2269E+01,.2435E+01,.2473E+01,.1838E+01,.5818E+00,&
 628  .2212E+01,.2212E+01,.2212E+01,.2225E+01,.2259E+01,.2291E+01,.2305E+01,.2476E+01,.2516E+01,.1876E+01,.5970E+00,&
 629  .2243E+01,.2243E+01,.2243E+01,.2255E+01,.2288E+01,.2325E+01,.2341E+01,.2517E+01,.2560E+01,.1915E+01,.6121E+00,&
 630  .2275E+01,.2275E+01,.2275E+01,.2286E+01,.2317E+01,.2360E+01,.2378E+01,.2559E+01,.2603E+01,.1953E+01,.6273E+00,&
 631  .2306E+01,.2306E+01,.2306E+01,.2316E+01,.2346E+01,.2394E+01,.2414E+01,.2600E+01,.2647E+01,.1992E+01,.6424E+00,&
 632  .2337E+01,.2337E+01,.2337E+01,.2347E+01,.2375E+01,.2428E+01,.2450E+01,.2641E+01,.2690E+01,.2030E+01,.6576E+00,&
 633  .2372E+01,.2372E+01,.2372E+01,.2384E+01,.2418E+01,.2470E+01,.2492E+01,.2676E+01,.2732E+01,.2068E+01,.6740E+00,&
 634  .2407E+01,.2407E+01,.2407E+01,.2421E+01,.2461E+01,.2512E+01,.2534E+01,.2710E+01,.2775E+01,.2107E+01,.6903E+00,&
 635  .2441E+01,.2441E+01,.2441E+01,.2458E+01,.2505E+01,.2555E+01,.2575E+01,.2745E+01,.2817E+01,.2145E+01,.7067E+00,&
 636  .2476E+01,.2476E+01,.2476E+01,.2495E+01,.2548E+01,.2597E+01,.2617E+01,.2779E+01,.2860E+01,.2184E+01,.7230E+00,&
 637  .2511E+01,.2511E+01,.2511E+01,.2532E+01,.2591E+01,.2639E+01,.2659E+01,.2814E+01,.2902E+01,.2222E+01,.7394E+00,&
 638  .2543E+01,.2543E+01,.2543E+01,.2562E+01,.2616E+01,.2665E+01,.2686E+01,.2852E+01,.2941E+01,.2257E+01,.7540E+00,&
 639  .2575E+01,.2575E+01,.2575E+01,.2592E+01,.2641E+01,.2692E+01,.2713E+01,.2890E+01,.2980E+01,.2292E+01,.7687E+00,&
 640  .2606E+01,.2606E+01,.2606E+01,.2622E+01,.2667E+01,.2718E+01,.2740E+01,.2927E+01,.3018E+01,.2328E+01,.7833E+00,&
 641  .2638E+01,.2638E+01,.2638E+01,.2652E+01,.2692E+01,.2745E+01,.2767E+01,.2965E+01,.3057E+01,.2363E+01,.7980E+00,&
 642  .2670E+01,.2670E+01,.2670E+01,.2682E+01,.2717E+01,.2771E+01,.2794E+01,.3003E+01,.3096E+01,.2398E+01,.8126E+00,&
 643  .2706E+01,.2706E+01,.2706E+01,.2718E+01,.2753E+01,.2800E+01,.2821E+01,.3037E+01,.3135E+01,.2435E+01,.8281E+00,&
 644  .2743E+01,.2743E+01,.2743E+01,.2754E+01,.2788E+01,.2829E+01,.2847E+01,.3070E+01,.3174E+01,.2471E+01,.8436E+00,&
 645  .2779E+01,.2779E+01,.2779E+01,.2791E+01,.2824E+01,.2859E+01,.2874E+01,.3104E+01,.3214E+01,.2508E+01,.8592E+00,&
 646  .2816E+01,.2816E+01,.2816E+01,.2827E+01,.2859E+01,.2888E+01,.2900E+01,.3137E+01,.3253E+01,.2544E+01,.8747E+00,&
 647  .2852E+01,.2852E+01,.2852E+01,.2863E+01,.2895E+01,.2917E+01,.2927E+01,.3171E+01,.3292E+01,.2581E+01,.8902E+00,&
 648  .2877E+01,.2877E+01,.2877E+01,.2890E+01,.2929E+01,.2960E+01,.2973E+01,.3202E+01,.3329E+01,.2617E+01,.9066E+00,&
 649  .2901E+01,.2901E+01,.2901E+01,.2917E+01,.2963E+01,.3002E+01,.3019E+01,.3233E+01,.3367E+01,.2653E+01,.9230E+00,&
 650  .2926E+01,.2926E+01,.2926E+01,.2945E+01,.2998E+01,.3045E+01,.3066E+01,.3264E+01,.3404E+01,.2688E+01,.9394E+00,&
 651  .2950E+01,.2950E+01,.2950E+01,.2972E+01,.3032E+01,.3087E+01,.3112E+01,.3295E+01,.3442E+01,.2724E+01,.9558E+00,&
 652  .2975E+01,.2975E+01,.2975E+01,.2999E+01,.3066E+01,.3130E+01,.3158E+01,.3326E+01,.3479E+01,.2760E+01,.9722E+00,&
 653  .3010E+01,.3010E+01,.3010E+01,.3031E+01,.3092E+01,.3157E+01,.3186E+01,.3367E+01,.3521E+01,.2800E+01,.9898E+00,&
 654  .3044E+01,.3044E+01,.3044E+01,.3063E+01,.3118E+01,.3185E+01,.3214E+01,.3408E+01,.3563E+01,.2840E+01,.1007E+01,&
 655  .3079E+01,.3079E+01,.3079E+01,.3096E+01,.3144E+01,.3212E+01,.3241E+01,.3448E+01,.3606E+01,.2881E+01,.1025E+01,&
 656  .3113E+01,.3113E+01,.3113E+01,.3128E+01,.3170E+01,.3240E+01,.3269E+01,.3489E+01,.3648E+01,.2921E+01,.1042E+01,&
 657  .3148E+01,.3148E+01,.3148E+01,.3160E+01,.3196E+01,.3267E+01,.3297E+01,.3530E+01,.3690E+01,.2961E+01,.1060E+01,&
 658  .3209E+01,.3209E+01,.3209E+01,.3221E+01,.3255E+01,.3327E+01,.3358E+01,.3585E+01,.3758E+01,.3027E+01,.1090E+01,&
 659  .3270E+01,.3270E+01,.3270E+01,.3281E+01,.3315E+01,.3388E+01,.3419E+01,.3641E+01,.3825E+01,.3093E+01,.1120E+01,&
 660  .3331E+01,.3331E+01,.3331E+01,.3342E+01,.3374E+01,.3448E+01,.3480E+01,.3696E+01,.3893E+01,.3158E+01,.1151E+01,&
 661  .3392E+01,.3392E+01,.3392E+01,.3402E+01,.3434E+01,.3509E+01,.3541E+01,.3752E+01,.3960E+01,.3224E+01,.1181E+01,&
 662  .3453E+01,.3453E+01,.3453E+01,.3463E+01,.3493E+01,.3569E+01,.3602E+01,.3807E+01,.4028E+01,.3290E+01,.1211E+01,&
 663  .3519E+01,.3519E+01,.3519E+01,.3532E+01,.3572E+01,.3635E+01,.3662E+01,.3892E+01,.4116E+01,.3378E+01,.1252E+01,&
 664  .3585E+01,.3585E+01,.3585E+01,.3601E+01,.3650E+01,.3701E+01,.3723E+01,.3978E+01,.4203E+01,.3466E+01,.1294E+01,&
 665  .3650E+01,.3650E+01,.3650E+01,.3671E+01,.3729E+01,.3767E+01,.3783E+01,.4063E+01,.4291E+01,.3554E+01,.1335E+01,&
 666  .3716E+01,.3716E+01,.3716E+01,.3740E+01,.3807E+01,.3833E+01,.3844E+01,.4149E+01,.4378E+01,.3642E+01,.1377E+01,&
 667  .3782E+01,.3782E+01,.3782E+01,.3809E+01,.3886E+01,.3899E+01,.3904E+01,.4234E+01,.4466E+01,.3730E+01,.1418E+01,&
 668  .3887E+01,.3887E+01,.3887E+01,.3893E+01,.3911E+01,.3989E+01,.4022E+01,.4318E+01,.4576E+01,.3843E+01,.1470E+01,&
 669  .4014E+01,.4014E+01,.4014E+01,.4022E+01,.4044E+01,.4121E+01,.4154E+01,.4424E+01,.4717E+01,.3990E+01,.1545E+01,&
 670  .4110E+01,.4110E+01,.4110E+01,.4135E+01,.4208E+01,.4251E+01,.4270E+01,.4550E+01,.4846E+01,.4118E+01,.1612E+01,&
 671  .4230E+01,.4230E+01,.4230E+01,.4253E+01,.4317E+01,.4367E+01,.4389E+01,.4657E+01,.4974E+01,.4254E+01,.1680E+01,&
 672  .4365E+01,.4365E+01,.4365E+01,.4381E+01,.4428E+01,.4529E+01,.4572E+01,.4851E+01,.5188E+01,.4470E+01,.1786E+01,&
 673  .4504E+01,.4504E+01,.4504E+01,.4530E+01,.4604E+01,.4649E+01,.4669E+01,.5015E+01,.5349E+01,.4645E+01,.1871E+01,&
 674  .4700E+01,.4700E+01,.4700E+01,.4709E+01,.4733E+01,.4806E+01,.4838E+01,.5165E+01,.5549E+01,.4857E+01,.1983E+01,&
 675  .4850E+01,.4850E+01,.4850E+01,.4881E+01,.4971E+01,.5034E+01,.5061E+01,.5355E+01,.5749E+01,.5067E+01,.2101E+01,&
 676  .5072E+01,.5072E+01,.5072E+01,.5094E+01,.5156E+01,.5204E+01,.5224E+01,.5561E+01,.5983E+01,.5325E+01,.2237E+01,&
 677  .5331E+01,.5331E+01,.5331E+01,.5348E+01,.5398E+01,.5469E+01,.5500E+01,.5874E+01,.6317E+01,.5681E+01,.2420E+01,&
 678  .5667E+01,.5667E+01,.5667E+01,.5669E+01,.5674E+01,.5758E+01,.5794E+01,.6108E+01,.6640E+01,.6015E+01,.2612E+01,&
 679  .5964E+01,.5964E+01,.5964E+01,.5991E+01,.6068E+01,.6104E+01,.6120E+01,.6533E+01,.7073E+01,.6511E+01,.2896E+01,&
 680  .6438E+01,.6438E+01,.6438E+01,.6458E+01,.6515E+01,.6548E+01,.6562E+01,.7003E+01,.7599E+01,.7071E+01,.3211E+01,&
 681  .7017E+01,.7017E+01,.7017E+01,.7041E+01,.7109E+01,.7145E+01,.7161E+01,.7586E+01,.8233E+01,.7799E+01,.3661E+01,&
 682  .7828E+01,.7828E+01,.7828E+01,.7845E+01,.7895E+01,.8007E+01,.8055E+01,.8414E+01,.9188E+01,.8838E+01,.4305E+01,&
 683  .8792E+01,.8792E+01,.8792E+01,.8832E+01,.8944E+01,.9022E+01,.9056E+01,.9506E+01,.1034E+02,.1016E+02,.5150E+01,&
 684  .1065E+02,.1065E+02,.1065E+02,.1067E+02,.1073E+02,.1086E+02,.1091E+02,.1136E+02,.1235E+02,.1250E+02,.6784E+01,&
 685  .1355E+02,.1355E+02,.1355E+02,.1357E+02,.1361E+02,.1368E+02,.1371E+02,.1427E+02,.1541E+02,.1607E+02,.9475E+01,&
 686  .2060E+02,.2060E+02,.2060E+02,.2068E+02,.2089E+02,.2093E+02,.2095E+02,.2152E+02,.2316E+02,.2485E+02,.1687E+02/
 687  data (((Bex(ai,k,nh),ai= 6, 6),k=1,11),nh=0,99)/ &
 688  .1250E+00,.1250E+00,.1250E+00,.1254E+00,.1264E+00,.1254E+00,.1250E+00,.1282E+00,.1335E+00,.1444E+00,.1543E+00,&
 689  .1282E+00,.1282E+00,.1282E+00,.1286E+00,.1296E+00,.1285E+00,.1281E+00,.1313E+00,.1368E+00,.1478E+00,.1578E+00,&
 690  .1313E+00,.1313E+00,.1313E+00,.1317E+00,.1328E+00,.1317E+00,.1312E+00,.1344E+00,.1400E+00,.1512E+00,.1612E+00,&
 691  .1345E+00,.1345E+00,.1345E+00,.1349E+00,.1359E+00,.1348E+00,.1344E+00,.1375E+00,.1433E+00,.1547E+00,.1647E+00,&
 692  .1376E+00,.1376E+00,.1376E+00,.1380E+00,.1391E+00,.1380E+00,.1375E+00,.1406E+00,.1465E+00,.1581E+00,.1681E+00,&
 693  .1408E+00,.1408E+00,.1408E+00,.1412E+00,.1423E+00,.1411E+00,.1406E+00,.1437E+00,.1498E+00,.1615E+00,.1716E+00,&
 694  .1440E+00,.1440E+00,.1440E+00,.1444E+00,.1454E+00,.1443E+00,.1438E+00,.1471E+00,.1533E+00,.1653E+00,.1754E+00,&
 695  .1472E+00,.1472E+00,.1472E+00,.1476E+00,.1485E+00,.1474E+00,.1470E+00,.1505E+00,.1568E+00,.1690E+00,.1792E+00,&
 696  .1505E+00,.1505E+00,.1505E+00,.1507E+00,.1516E+00,.1506E+00,.1501E+00,.1540E+00,.1603E+00,.1728E+00,.1831E+00,&
 697  .1537E+00,.1537E+00,.1537E+00,.1539E+00,.1547E+00,.1537E+00,.1533E+00,.1574E+00,.1638E+00,.1765E+00,.1869E+00,&
 698  .1569E+00,.1569E+00,.1569E+00,.1571E+00,.1578E+00,.1569E+00,.1565E+00,.1608E+00,.1673E+00,.1803E+00,.1907E+00,&
 699  .1600E+00,.1600E+00,.1600E+00,.1602E+00,.1608E+00,.1604E+00,.1601E+00,.1643E+00,.1707E+00,.1839E+00,.1946E+00,&
 700  .1631E+00,.1631E+00,.1631E+00,.1633E+00,.1638E+00,.1638E+00,.1638E+00,.1678E+00,.1741E+00,.1875E+00,.1986E+00,&
 701  .1661E+00,.1661E+00,.1661E+00,.1663E+00,.1669E+00,.1673E+00,.1674E+00,.1712E+00,.1776E+00,.1912E+00,.2025E+00,&
 702  .1692E+00,.1692E+00,.1692E+00,.1694E+00,.1699E+00,.1707E+00,.1711E+00,.1747E+00,.1810E+00,.1948E+00,.2065E+00,&
 703  .1723E+00,.1723E+00,.1723E+00,.1725E+00,.1729E+00,.1742E+00,.1747E+00,.1782E+00,.1844E+00,.1984E+00,.2104E+00,&
 704  .1761E+00,.1761E+00,.1761E+00,.1764E+00,.1769E+00,.1779E+00,.1782E+00,.1820E+00,.1883E+00,.2024E+00,.2147E+00,&
 705  .1800E+00,.1800E+00,.1800E+00,.1802E+00,.1809E+00,.1815E+00,.1817E+00,.1857E+00,.1922E+00,.2065E+00,.2190E+00,&
 706  .1838E+00,.1838E+00,.1838E+00,.1841E+00,.1848E+00,.1852E+00,.1853E+00,.1895E+00,.1961E+00,.2105E+00,.2233E+00,&
 707  .1877E+00,.1877E+00,.1877E+00,.1879E+00,.1888E+00,.1888E+00,.1888E+00,.1932E+00,.2000E+00,.2146E+00,.2276E+00,&
 708  .1915E+00,.1915E+00,.1915E+00,.1918E+00,.1928E+00,.1925E+00,.1923E+00,.1970E+00,.2039E+00,.2186E+00,.2319E+00,&
 709  .1953E+00,.1953E+00,.1953E+00,.1956E+00,.1964E+00,.1966E+00,.1966E+00,.2012E+00,.2079E+00,.2228E+00,.2363E+00,&
 710  .1991E+00,.1991E+00,.1991E+00,.1993E+00,.2001E+00,.2007E+00,.2010E+00,.2054E+00,.2119E+00,.2270E+00,.2407E+00,&
 711  .2028E+00,.2028E+00,.2028E+00,.2031E+00,.2037E+00,.2049E+00,.2053E+00,.2095E+00,.2159E+00,.2313E+00,.2450E+00,&
 712  .2066E+00,.2066E+00,.2066E+00,.2068E+00,.2074E+00,.2090E+00,.2097E+00,.2137E+00,.2199E+00,.2355E+00,.2494E+00,&
 713  .2104E+00,.2104E+00,.2104E+00,.2106E+00,.2110E+00,.2131E+00,.2140E+00,.2179E+00,.2239E+00,.2397E+00,.2538E+00,&
 714  .2146E+00,.2146E+00,.2146E+00,.2149E+00,.2154E+00,.2170E+00,.2176E+00,.2216E+00,.2280E+00,.2441E+00,.2586E+00,&
 715  .2188E+00,.2188E+00,.2188E+00,.2191E+00,.2199E+00,.2209E+00,.2213E+00,.2252E+00,.2321E+00,.2485E+00,.2634E+00,&
 716  .2230E+00,.2230E+00,.2230E+00,.2234E+00,.2243E+00,.2247E+00,.2249E+00,.2289E+00,.2362E+00,.2530E+00,.2681E+00,&
 717  .2272E+00,.2272E+00,.2272E+00,.2276E+00,.2288E+00,.2286E+00,.2286E+00,.2325E+00,.2403E+00,.2574E+00,.2729E+00,&
 718  .2314E+00,.2314E+00,.2314E+00,.2319E+00,.2332E+00,.2325E+00,.2322E+00,.2362E+00,.2444E+00,.2618E+00,.2777E+00,&
 719  .2351E+00,.2351E+00,.2351E+00,.2356E+00,.2370E+00,.2364E+00,.2362E+00,.2405E+00,.2487E+00,.2662E+00,.2825E+00,&
 720  .2389E+00,.2389E+00,.2389E+00,.2394E+00,.2408E+00,.2403E+00,.2401E+00,.2448E+00,.2530E+00,.2706E+00,.2873E+00,&
 721  .2426E+00,.2426E+00,.2426E+00,.2431E+00,.2445E+00,.2442E+00,.2441E+00,.2491E+00,.2573E+00,.2750E+00,.2922E+00,&
 722  .2464E+00,.2464E+00,.2464E+00,.2469E+00,.2483E+00,.2481E+00,.2480E+00,.2534E+00,.2616E+00,.2794E+00,.2970E+00,&
 723  .2501E+00,.2501E+00,.2501E+00,.2506E+00,.2521E+00,.2520E+00,.2520E+00,.2577E+00,.2659E+00,.2838E+00,.3018E+00,&
 724  .2545E+00,.2545E+00,.2545E+00,.2550E+00,.2564E+00,.2564E+00,.2565E+00,.2623E+00,.2705E+00,.2882E+00,.3070E+00,&
 725  .2589E+00,.2589E+00,.2589E+00,.2594E+00,.2607E+00,.2608E+00,.2610E+00,.2669E+00,.2750E+00,.2926E+00,.3122E+00,&
 726  .2634E+00,.2634E+00,.2634E+00,.2637E+00,.2649E+00,.2653E+00,.2654E+00,.2715E+00,.2796E+00,.2971E+00,.3175E+00,&
 727  .2678E+00,.2678E+00,.2678E+00,.2681E+00,.2692E+00,.2697E+00,.2699E+00,.2761E+00,.2841E+00,.3015E+00,.3227E+00,&
 728  .2722E+00,.2722E+00,.2722E+00,.2725E+00,.2735E+00,.2741E+00,.2744E+00,.2807E+00,.2887E+00,.3059E+00,.3279E+00,&
 729  .2774E+00,.2774E+00,.2774E+00,.2776E+00,.2785E+00,.2792E+00,.2796E+00,.2854E+00,.2932E+00,.3110E+00,.3333E+00,&
 730  .2826E+00,.2826E+00,.2826E+00,.2828E+00,.2834E+00,.2843E+00,.2848E+00,.2901E+00,.2977E+00,.3162E+00,.3386E+00,&
 731  .2877E+00,.2877E+00,.2877E+00,.2879E+00,.2884E+00,.2895E+00,.2899E+00,.2948E+00,.3023E+00,.3213E+00,.3440E+00,&
 732  .2929E+00,.2929E+00,.2929E+00,.2931E+00,.2933E+00,.2946E+00,.2951E+00,.2995E+00,.3068E+00,.3265E+00,.3493E+00,&
 733  .2981E+00,.2981E+00,.2981E+00,.2982E+00,.2983E+00,.2997E+00,.3003E+00,.3042E+00,.3113E+00,.3316E+00,.3547E+00,&
 734  .3021E+00,.3021E+00,.3021E+00,.3024E+00,.3029E+00,.3039E+00,.3043E+00,.3086E+00,.3164E+00,.3368E+00,.3602E+00,&
 735  .3061E+00,.3061E+00,.3061E+00,.3065E+00,.3075E+00,.3081E+00,.3083E+00,.3130E+00,.3215E+00,.3419E+00,.3658E+00,&
 736  .3102E+00,.3102E+00,.3102E+00,.3107E+00,.3121E+00,.3122E+00,.3123E+00,.3175E+00,.3265E+00,.3471E+00,.3713E+00,&
 737  .3142E+00,.3142E+00,.3142E+00,.3148E+00,.3167E+00,.3164E+00,.3163E+00,.3219E+00,.3316E+00,.3522E+00,.3769E+00,&
 738  .3182E+00,.3182E+00,.3182E+00,.3190E+00,.3213E+00,.3206E+00,.3203E+00,.3263E+00,.3367E+00,.3574E+00,.3824E+00,&
 739  .3225E+00,.3225E+00,.3225E+00,.3232E+00,.3250E+00,.3248E+00,.3247E+00,.3302E+00,.3409E+00,.3614E+00,.3872E+00,&
 740  .3268E+00,.3268E+00,.3268E+00,.3273E+00,.3287E+00,.3289E+00,.3290E+00,.3340E+00,.3452E+00,.3654E+00,.3920E+00,&
 741  .3312E+00,.3312E+00,.3312E+00,.3315E+00,.3324E+00,.3331E+00,.3334E+00,.3379E+00,.3494E+00,.3695E+00,.3968E+00,&
 742  .3355E+00,.3355E+00,.3355E+00,.3356E+00,.3361E+00,.3372E+00,.3377E+00,.3417E+00,.3537E+00,.3735E+00,.4016E+00,&
 743  .3398E+00,.3398E+00,.3398E+00,.3398E+00,.3398E+00,.3414E+00,.3421E+00,.3456E+00,.3579E+00,.3775E+00,.4064E+00,&
 744  .3438E+00,.3438E+00,.3438E+00,.3438E+00,.3440E+00,.3454E+00,.3460E+00,.3501E+00,.3619E+00,.3819E+00,.4113E+00,&
 745  .3477E+00,.3477E+00,.3477E+00,.3478E+00,.3482E+00,.3494E+00,.3499E+00,.3546E+00,.3659E+00,.3863E+00,.4162E+00,&
 746  .3517E+00,.3517E+00,.3517E+00,.3519E+00,.3524E+00,.3533E+00,.3537E+00,.3591E+00,.3700E+00,.3907E+00,.4210E+00,&
 747  .3556E+00,.3556E+00,.3556E+00,.3559E+00,.3566E+00,.3573E+00,.3576E+00,.3636E+00,.3740E+00,.3951E+00,.4259E+00,&
 748  .3596E+00,.3596E+00,.3596E+00,.3599E+00,.3608E+00,.3613E+00,.3615E+00,.3681E+00,.3780E+00,.3995E+00,.4308E+00,&
 749  .3642E+00,.3642E+00,.3642E+00,.3645E+00,.3652E+00,.3663E+00,.3668E+00,.3727E+00,.3823E+00,.4042E+00,.4357E+00,&
 750  .3689E+00,.3689E+00,.3689E+00,.3691E+00,.3697E+00,.3713E+00,.3720E+00,.3774E+00,.3866E+00,.4090E+00,.4407E+00,&
 751  .3735E+00,.3735E+00,.3735E+00,.3737E+00,.3741E+00,.3764E+00,.3773E+00,.3820E+00,.3910E+00,.4137E+00,.4456E+00,&
 752  .3782E+00,.3782E+00,.3782E+00,.3783E+00,.3786E+00,.3814E+00,.3825E+00,.3867E+00,.3953E+00,.4185E+00,.4506E+00,&
 753  .3828E+00,.3828E+00,.3828E+00,.3829E+00,.3830E+00,.3864E+00,.3878E+00,.3913E+00,.3996E+00,.4232E+00,.4555E+00,&
 754  .3867E+00,.3867E+00,.3867E+00,.3870E+00,.3877E+00,.3903E+00,.3914E+00,.3952E+00,.4041E+00,.4276E+00,.4607E+00,&
 755  .3906E+00,.3906E+00,.3906E+00,.3911E+00,.3924E+00,.3942E+00,.3950E+00,.3991E+00,.4087E+00,.4319E+00,.4660E+00,&
 756  .3944E+00,.3944E+00,.3944E+00,.3951E+00,.3972E+00,.3982E+00,.3986E+00,.4031E+00,.4132E+00,.4363E+00,.4712E+00,&
 757  .3983E+00,.3983E+00,.3983E+00,.3992E+00,.4019E+00,.4021E+00,.4022E+00,.4070E+00,.4178E+00,.4406E+00,.4765E+00,&
 758  .4022E+00,.4022E+00,.4022E+00,.4033E+00,.4066E+00,.4060E+00,.4058E+00,.4109E+00,.4223E+00,.4450E+00,.4817E+00,&
 759  .4090E+00,.4090E+00,.4090E+00,.4098E+00,.4123E+00,.4125E+00,.4126E+00,.4174E+00,.4292E+00,.4520E+00,.4896E+00,&
 760  .4158E+00,.4158E+00,.4158E+00,.4164E+00,.4181E+00,.4189E+00,.4193E+00,.4239E+00,.4361E+00,.4591E+00,.4976E+00,&
 761  .4227E+00,.4227E+00,.4227E+00,.4229E+00,.4238E+00,.4254E+00,.4261E+00,.4305E+00,.4430E+00,.4661E+00,.5055E+00,&
 762  .4295E+00,.4295E+00,.4295E+00,.4295E+00,.4296E+00,.4318E+00,.4328E+00,.4370E+00,.4499E+00,.4732E+00,.5135E+00,&
 763  .4363E+00,.4363E+00,.4363E+00,.4360E+00,.4353E+00,.4383E+00,.4396E+00,.4435E+00,.4568E+00,.4802E+00,.5214E+00,&
 764  .4464E+00,.4464E+00,.4464E+00,.4463E+00,.4462E+00,.4493E+00,.4506E+00,.4546E+00,.4671E+00,.4911E+00,.5335E+00,&
 765  .4564E+00,.4564E+00,.4564E+00,.4566E+00,.4571E+00,.4603E+00,.4617E+00,.4658E+00,.4774E+00,.5020E+00,.5457E+00,&
 766  .4665E+00,.4665E+00,.4665E+00,.4668E+00,.4679E+00,.4713E+00,.4727E+00,.4769E+00,.4878E+00,.5129E+00,.5578E+00,&
 767  .4765E+00,.4765E+00,.4765E+00,.4771E+00,.4788E+00,.4823E+00,.4838E+00,.4881E+00,.4981E+00,.5238E+00,.5700E+00,&
 768  .4866E+00,.4866E+00,.4866E+00,.4874E+00,.4897E+00,.4933E+00,.4948E+00,.4992E+00,.5084E+00,.5347E+00,.5821E+00,&
 769  .5001E+00,.5001E+00,.5001E+00,.5006E+00,.5020E+00,.5028E+00,.5032E+00,.5097E+00,.5201E+00,.5463E+00,.5952E+00,&
 770  .5118E+00,.5118E+00,.5118E+00,.5134E+00,.5179E+00,.5172E+00,.5169E+00,.5240E+00,.5383E+00,.5651E+00,.6156E+00,&
 771  .5327E+00,.5327E+00,.5327E+00,.5327E+00,.5328E+00,.5327E+00,.5327E+00,.5405E+00,.5558E+00,.5826E+00,.6358E+00,&
 772  .5484E+00,.5484E+00,.5484E+00,.5485E+00,.5489E+00,.5523E+00,.5537E+00,.5590E+00,.5738E+00,.6008E+00,.6560E+00,&
 773  .5711E+00,.5711E+00,.5711E+00,.5717E+00,.5734E+00,.5745E+00,.5749E+00,.5823E+00,.5960E+00,.6240E+00,.6806E+00,&
 774  .5949E+00,.5949E+00,.5949E+00,.5941E+00,.5920E+00,.5977E+00,.6002E+00,.6055E+00,.6164E+00,.6447E+00,.7059E+00,&
 775  .6140E+00,.6140E+00,.6140E+00,.6149E+00,.6176E+00,.6184E+00,.6188E+00,.6275E+00,.6377E+00,.6695E+00,.7314E+00,&
 776  .6340E+00,.6340E+00,.6340E+00,.6354E+00,.6393E+00,.6387E+00,.6385E+00,.6474E+00,.6617E+00,.6926E+00,.7589E+00,&
 777  .6647E+00,.6647E+00,.6647E+00,.6646E+00,.6642E+00,.6646E+00,.6648E+00,.6732E+00,.6910E+00,.7195E+00,.7902E+00,&
 778  .6957E+00,.6957E+00,.6957E+00,.6965E+00,.6986E+00,.6992E+00,.6995E+00,.7092E+00,.7245E+00,.7540E+00,.8286E+00,&
 779  .7368E+00,.7368E+00,.7368E+00,.7375E+00,.7396E+00,.7441E+00,.7460E+00,.7526E+00,.7662E+00,.7986E+00,.8761E+00,&
 780  .7789E+00,.7789E+00,.7789E+00,.7803E+00,.7844E+00,.7839E+00,.7837E+00,.7936E+00,.8110E+00,.8456E+00,.9284E+00,&
 781  .8471E+00,.8471E+00,.8471E+00,.8487E+00,.8533E+00,.8532E+00,.8532E+00,.8632E+00,.8805E+00,.9144E+00,.1007E+01,&
 782  .9305E+00,.9305E+00,.9305E+00,.9328E+00,.9393E+00,.9387E+00,.9384E+00,.9495E+00,.9626E+00,.1002E+01,.1103E+01,&
 783  .1036E+01,.1036E+01,.1036E+01,.1038E+01,.1043E+01,.1042E+01,.1041E+01,.1053E+01,.1076E+01,.1110E+01,.1225E+01,&
 784  .1203E+01,.1203E+01,.1203E+01,.1203E+01,.1203E+01,.1203E+01,.1203E+01,.1214E+01,.1241E+01,.1280E+01,.1410E+01,&
 785  .1427E+01,.1427E+01,.1427E+01,.1428E+01,.1432E+01,.1431E+01,.1431E+01,.1444E+01,.1470E+01,.1518E+01,.1667E+01,&
 786  .1851E+01,.1851E+01,.1851E+01,.1853E+01,.1858E+01,.1857E+01,.1857E+01,.1874E+01,.1906E+01,.1951E+01,.2142E+01,&
 787  .2917E+01,.2917E+01,.2917E+01,.2918E+01,.2919E+01,.2926E+01,.2929E+01,.2953E+01,.2977E+01,.3058E+01,.3309E+01/
 788  data (((Bex(ai,k,nh),ai= 7, 7),k=1,11),nh=0,99)/ &
 789  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 790  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 791  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 792  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 793  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 794  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 795  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 796  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 797  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 798  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 799  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 800  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 801  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 802  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 803  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 804  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 805  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 806  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 807  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 808  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 809  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 810  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 811  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 812  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 813  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 814  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 815  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 816  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 817  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 818  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 819  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 820  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 821  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 822  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 823  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 824  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 825  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 826  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 827  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 828  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 829  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 830  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 831  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 832  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 833  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 834  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 835  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 836  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 837  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 838  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 839  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 840  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 841  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 842  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 843  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 844  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 845  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 846  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 847  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 848  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 849  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 850  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 851  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 852  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 853  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 854  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 855  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 856  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 857  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 858  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 859  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 860  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 861  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 862  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 863  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 864  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 865  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 866  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 867  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 868  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 869  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 870  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 871  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 872  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 873  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 874  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 875  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 876  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 877  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 878  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 879  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 880  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 881  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 882  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 883  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 884  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 885  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 886  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 887  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01,&
 888  .5168E+01,.5168E+01,.5168E+01,.5028E+01,.4631E+01,.4257E+01,.4097E+01,.2503E+01,.9626E+00,.2219E+00,.2345E-01/
 889  data (((Bex(ai,k,nh),ai= 8, 8),k=1,11),nh=0,99)/ &
 890  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 891  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 892  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 893  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 894  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 895  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 896  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 897  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 898  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 899  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 900  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 901  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 902  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 903  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 904  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 905  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 906  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 907  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 908  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 909  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 910  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 911  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 912  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 913  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 914  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 915  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 916  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 917  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 918  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 919  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 920  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 921  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 922  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 923  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 924  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 925  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 926  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 927  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 928  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 929  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 930  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 931  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 932  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 933  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 934  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 935  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 936  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 937  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 938  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 939  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 940  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 941  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 942  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 943  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 944  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 945  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 946  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 947  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 948  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 949  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 950  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 951  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 952  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 953  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 954  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 955  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 956  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 957  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 958  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 959  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 960  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 961  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 962  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 963  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 964  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 965  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 966  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 967  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 968  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 969  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 970  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 971  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 972  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 973  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 974  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 975  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 976  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 977  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 978  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 979  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 980  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 981  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 982  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 983  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 984  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 985  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 986  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 987  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 988  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01,&
 989  .3468E+01,.3468E+01,.3468E+01,.3455E+01,.3419E+01,.3331E+01,.3294E+01,.2580E+01,.1402E+01,.4594E+00,.4618E-01/
 990  data (((Bex(ai,k,nh),ai= 9, 9),k=1,11),nh=0,99)/ &
 991  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
 992  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
 993  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
 994  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
 995  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
 996  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
 997  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
 998  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
 999  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1000  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1001  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1002  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1003  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1004  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1005  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1006  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1007  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1008  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1009  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1010  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1011  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1012  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1013  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1014  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1015  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1016  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1017  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1018  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1019  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1020  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1021  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1022  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1023  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1024  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1025  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1026  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1027  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1028  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1029  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1030  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1031  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1032  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1033  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1034  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1035  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1036  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1037  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1038  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1039  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1040  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1041  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1042  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1043  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1044  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1045  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1046  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1047  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1048  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1049  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1050  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1051  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1052  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1053  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1054  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1055  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1056  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1057  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1058  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1059  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1060  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1061  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1062  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1063  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1064  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1065  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1066  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1067  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1068  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1069  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1070  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1071  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1072  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1073  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1074  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1075  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1076  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1077  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1078  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1079  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1080  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1081  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1082  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1083  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1084  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1085  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1086  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1087  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1088  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1089  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00,&
1090  .1745E+01,.1745E+01,.1745E+01,.1758E+01,.1796E+01,.1823E+01,.1835E+01,.1819E+01,.1434E+01,.7302E+00,.1065E+00/
1091  data (((Bex(ai,k,nh),ai=10,10),k=1,11),nh=0,99)/ &
1092  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1093  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1094  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1095  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1096  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1097  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1098  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1099  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1100  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1101  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1102  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1103  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1104  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1105  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1106  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1107  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1108  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1109  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1110  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1111  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1112  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1113  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1114  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1115  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1116  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1117  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1118  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1119  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1120  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1121  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1122  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1123  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1124  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1125  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1126  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1127  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1128  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1129  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1130  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1131  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1132  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1133  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1134  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1135  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1136  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1137  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1138  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1139  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1140  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1141  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1142  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1143  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1144  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1145  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1146  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1147  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1148  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1149  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1150  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1151  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1152  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1153  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1154  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1155  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1156  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1157  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1158  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1159  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1160  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1161  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1162  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1163  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1164  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1165  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1166  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1167  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1168  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1169  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1170  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1171  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1172  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1173  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1174  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1175  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1176  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1177  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1178  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1179  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1180  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1181  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1182  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1183  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1184  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1185  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1186  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1187  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1188  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1189  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1190  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00,&
1191  .8926E+00,.8926E+00,.8926E+00,.8984E+00,.9149E+00,.9305E+00,.9372E+00,.1013E+01,.1022E+01,.7607E+00,.1857E+00/
1192  data (((Bex(ai,k,nh),ai=11,11),k=1,11),nh=0,99)/ &
1193  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1194  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1195  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1196  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1197  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1198  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1199  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1200  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1201  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1202  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1203  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1204  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1205  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1206  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1207  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1208  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1209  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1210  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1211  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1212  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1213  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1214  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1215  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1216  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1217  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1218  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1219  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1220  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1221  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1222  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1223  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1224  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1225  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1226  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1227  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1228  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1229  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1230  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1231  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1232  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1233  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1234  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1235  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1236  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1237  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1238  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1239  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1240  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1241  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1242  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1243  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1244  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1245  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1246  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1247  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1248  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1249  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1250  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1251  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1252  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1253  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1254  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1255  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1256  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1257  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1258  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1259  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1260  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1261  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1262  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1263  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1264  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1265  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1266  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1267  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1268  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1269  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1270  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1271  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1272  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1273  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1274  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1275  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1276  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1277  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1278  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1279  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1280  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1281  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1282  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1283  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1284  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1285  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1286  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1287  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1288  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1289  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1290  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1291  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00,&
1292  .4546E+00,.4546E+00,.4546E+00,.4563E+00,.4613E+00,.4670E+00,.4695E+00,.4994E+00,.5457E+00,.5381E+00,.2239E+00/
1293  data (((Bex(ai,k,nh),ai=12,12),k=1,11),nh=0,99)/ &
1294  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1295  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1296  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1297  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1298  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1299  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1300  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1301  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1302  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1303  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1304  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1305  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1306  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1307  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1308  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1309  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1310  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1311  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1312  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1313  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1314  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1315  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1316  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1317  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1318  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1319  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1320  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1321  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1322  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1323  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1324  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1325  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1326  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1327  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1328  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1329  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1330  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1331  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1332  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1333  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1334  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1335  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1336  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1337  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1338  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1339  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1340  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1341  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1342  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1343  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1344  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1345  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1346  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1347  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1348  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1349  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1350  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1351  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1352  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1353  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1354  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1355  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1356  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1357  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1358  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1359  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1360  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1361  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1362  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1363  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1364  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1365  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1366  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1367  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1368  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1369  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1370  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1371  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1372  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1373  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1374  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1375  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1376  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1377  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1378  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1379  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1380  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1381  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1382  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1383  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1384  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1385  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1386  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1387  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1388  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1389  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1390  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1391  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1392  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00,&
1393  .2560E+00,.2560E+00,.2560E+00,.2566E+00,.2584E+00,.2601E+00,.2609E+00,.2714E+00,.2913E+00,.3227E+00,.2124E+00/
1394  data (((Bex(ai,k,nh),ai=13,13),k=1,11),nh=0,99)/ &
1395  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1396  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1397  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1398  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1399  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1400  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1401  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1402  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1403  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1404  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1405  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1406  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1407  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1408  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1409  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1410  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1411  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1412  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1413  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1414  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1415  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1416  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1417  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1418  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1419  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1420  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1421  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1422  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1423  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1424  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1425  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1426  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1427  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1428  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1429  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1430  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1431  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1432  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1433  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1434  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1435  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1436  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1437  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1438  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1439  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1440  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1441  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1442  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1443  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1444  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1445  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1446  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1447  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1448  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1449  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1450  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1451  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1452  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1453  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1454  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1455  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1456  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1457  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1458  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1459  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1460  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1461  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1462  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1463  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1464  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1465  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1466  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1467  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1468  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1469  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1470  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1471  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1472  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1473  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1474  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1475  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1476  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1477  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1478  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1479  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1480  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1481  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1482  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1483  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1484  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1485  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1486  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1487  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1488  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1489  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1490  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1491  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1492  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1493  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00,&
1494  .1329E+00,.1329E+00,.1329E+00,.1331E+00,.1335E+00,.1340E+00,.1342E+00,.1374E+00,.1435E+00,.1567E+00,.1466E+00/
1495  data (((Bex(ai,k,nh),ai=14,14),k=1,11),nh=0,99)/ &
1496  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1497  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1498  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1499  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1500  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1501  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1502  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1503  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1504  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1505  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1506  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1507  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1508  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1509  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1510  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1511  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1512  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1513  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1514  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1515  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1516  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1517  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1518  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1519  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1520  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1521  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1522  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1523  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1524  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1525  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1526  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1527  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1528  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1529  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1530  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1531  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1532  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1533  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1534  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1535  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1536  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1537  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1538  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1539  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1540  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1541  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1542  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1543  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1544  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1545  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1546  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1547  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1548  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1549  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1550  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1551  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1552  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1553  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1554  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1555  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1556  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1557  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1558  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1559  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1560  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1561  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1562  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1563  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1564  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1565  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1566  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1567  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1568  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1569  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1570  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1571  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1572  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1573  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1574  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1575  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1576  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1577  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1578  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1579  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1580  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1581  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1582  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1583  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1584  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1585  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1586  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1587  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1588  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1589  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1590  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1591  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1592  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1593  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1594  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01,&
1595  .7336E-01,.7336E-01,.7336E-01,.7346E-01,.7376E-01,.7401E-01,.7412E-01,.7527E-01,.7740E-01,.8163E-01,.8616E-01/
1596  data (((w0(ai,k,nh),ai= 1, 1),k=1,11),nh=0,99)/ &
1597  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9766E+00,.1023E+00,&
1598  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9768E+00,.1038E+00,&
1599  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9771E+00,.1053E+00,&
1600  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9773E+00,.1069E+00,&
1601  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9776E+00,.1084E+00,&
1602  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9778E+00,.1099E+00,&
1603  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9780E+00,.1116E+00,&
1604  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9782E+00,.1133E+00,&
1605  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9785E+00,.1151E+00,&
1606  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9787E+00,.1168E+00,&
1607  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9789E+00,.1185E+00,&
1608  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9791E+00,.1203E+00,&
1609  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9793E+00,.1221E+00,&
1610  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9794E+00,.1239E+00,&
1611  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9796E+00,.1257E+00,&
1612  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9798E+00,.1275E+00,&
1613  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9800E+00,.1295E+00,&
1614  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9802E+00,.1315E+00,&
1615  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9804E+00,.1334E+00,&
1616  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9806E+00,.1354E+00,&
1617  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9808E+00,.1374E+00,&
1618  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9810E+00,.1395E+00,&
1619  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9811E+00,.1416E+00,&
1620  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9813E+00,.1437E+00,&
1621  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9814E+00,.1458E+00,&
1622  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9816E+00,.1479E+00,&
1623  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9818E+00,.1501E+00,&
1624  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9819E+00,.1523E+00,&
1625  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9821E+00,.1544E+00,&
1626  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9822E+00,.1566E+00,&
1627  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9824E+00,.1588E+00,&
1628  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9825E+00,.1611E+00,&
1629  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9827E+00,.1633E+00,&
1630  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9828E+00,.1656E+00,&
1631  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9830E+00,.1678E+00,&
1632  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9831E+00,.1701E+00,&
1633  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9832E+00,.1723E+00,&
1634  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9833E+00,.1745E+00,&
1635  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9835E+00,.1768E+00,&
1636  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9836E+00,.1790E+00,&
1637  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9837E+00,.1812E+00,&
1638  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9838E+00,.1835E+00,&
1639  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9839E+00,.1859E+00,&
1640  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9841E+00,.1882E+00,&
1641  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9842E+00,.1906E+00,&
1642  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9843E+00,.1929E+00,&
1643  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9844E+00,.1953E+00,&
1644  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9845E+00,.1976E+00,&
1645  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9846E+00,.2000E+00,&
1646  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9847E+00,.2023E+00,&
1647  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9848E+00,.2047E+00,&
1648  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9849E+00,.2069E+00,&
1649  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9850E+00,.2091E+00,&
1650  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9851E+00,.2113E+00,&
1651  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9852E+00,.2135E+00,&
1652  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9853E+00,.2157E+00,&
1653  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9854E+00,.2178E+00,&
1654  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9855E+00,.2199E+00,&
1655  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9855E+00,.2220E+00,&
1656  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9856E+00,.2241E+00,&
1657  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9857E+00,.2262E+00,&
1658  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9858E+00,.2284E+00,&
1659  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9859E+00,.2306E+00,&
1660  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9859E+00,.2327E+00,&
1661  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9860E+00,.2349E+00,&
1662  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9861E+00,.2371E+00,&
1663  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9862E+00,.2393E+00,&
1664  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9863E+00,.2414E+00,&
1665  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9863E+00,.2436E+00,&
1666  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9864E+00,.2457E+00,&
1667  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9865E+00,.2479E+00,&
1668  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9866E+00,.2514E+00,&
1669  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9867E+00,.2550E+00,&
1670  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9869E+00,.2585E+00,&
1671  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9870E+00,.2621E+00,&
1672  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9871E+00,.2656E+00,&
1673  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9872E+00,.2691E+00,&
1674  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9873E+00,.2725E+00,&
1675  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9874E+00,.2760E+00,&
1676  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9875E+00,.2794E+00,&
1677  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9876E+00,.2829E+00,&
1678  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9877E+00,.2866E+00,&
1679  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9878E+00,.2903E+00,&
1680  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9879E+00,.2940E+00,&
1681  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9881E+00,.2995E+00,&
1682  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9882E+00,.3050E+00,&
1683  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9883E+00,.3103E+00,&
1684  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9886E+00,.3174E+00,&
1685  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9887E+00,.3243E+00,&
1686  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9889E+00,.3328E+00,&
1687  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9891E+00,.3427E+00,&
1688  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9893E+00,.3524E+00,&
1689  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9896E+00,.3648E+00,&
1690  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9898E+00,.3768E+00,&
1691  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9901E+00,.3911E+00,&
1692  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9904E+00,.4101E+00,&
1693  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9908E+00,.4302E+00,&
1694  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9912E+00,.4555E+00,&
1695  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9917E+00,.4916E+00,&
1696  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9923E+00,.5487E+00/
1697  data (((w0(ai,k,nh),ai= 2, 2),k=1,11),nh=0,99)/ &
1698  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1699  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1700  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1701  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1702  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1703  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1704  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1705  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1706  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1707  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1708  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1709  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1710  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1711  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1712  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1713  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1714  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1715  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1716  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1717  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1718  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1719  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1720  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1721  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1722  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1723  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1724  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1725  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1726  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1727  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1728  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1729  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1730  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1731  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1732  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1733  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1734  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1735  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1736  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1737  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1738  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1739  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1740  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1741  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1742  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1743  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1744  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1745  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1746  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1747  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1748  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1749  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1750  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1751  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1752  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1753  .3081E+00,.3081E+00,.3081E+00,.3093E+00,.3128E+00,.2973E+00,.2906E+00,.2103E+00,.1049E+00,.3129E-01,.2656E-02,&
1754  .3085E+00,.3085E+00,.3085E+00,.3097E+00,.3131E+00,.2976E+00,.2909E+00,.2106E+00,.1051E+00,.3133E-01,.2660E-02,&
1755  .3089E+00,.3089E+00,.3089E+00,.3100E+00,.3134E+00,.2979E+00,.2912E+00,.2108E+00,.1052E+00,.3138E-01,.2663E-02,&
1756  .3092E+00,.3092E+00,.3092E+00,.3104E+00,.3137E+00,.2981E+00,.2914E+00,.2111E+00,.1054E+00,.3142E-01,.2667E-02,&
1757  .3096E+00,.3096E+00,.3096E+00,.3107E+00,.3140E+00,.2984E+00,.2917E+00,.2113E+00,.1055E+00,.3147E-01,.2670E-02,&
1758  .3100E+00,.3100E+00,.3100E+00,.3111E+00,.3143E+00,.2987E+00,.2920E+00,.2116E+00,.1057E+00,.3151E-01,.2674E-02,&
1759  .3100E+00,.3100E+00,.3100E+00,.3111E+00,.3143E+00,.2987E+00,.2920E+00,.2116E+00,.1057E+00,.3151E-01,.2674E-02,&
1760  .3100E+00,.3100E+00,.3100E+00,.3111E+00,.3143E+00,.2987E+00,.2920E+00,.2116E+00,.1057E+00,.3151E-01,.2674E-02,&
1761  .3100E+00,.3100E+00,.3100E+00,.3111E+00,.3143E+00,.2987E+00,.2920E+00,.2116E+00,.1057E+00,.3151E-01,.2674E-02,&
1762  .3100E+00,.3100E+00,.3100E+00,.3111E+00,.3143E+00,.2987E+00,.2920E+00,.2116E+00,.1057E+00,.3151E-01,.2674E-02,&
1763  .3100E+00,.3100E+00,.3100E+00,.3111E+00,.3143E+00,.2987E+00,.2920E+00,.2116E+00,.1057E+00,.3151E-01,.2674E-02,&
1764  .3112E+00,.3112E+00,.3112E+00,.3123E+00,.3153E+00,.2996E+00,.2929E+00,.2124E+00,.1062E+00,.3166E-01,.2686E-02,&
1765  .3124E+00,.3124E+00,.3124E+00,.3134E+00,.3163E+00,.3006E+00,.2939E+00,.2132E+00,.1067E+00,.3181E-01,.2698E-02,&
1766  .3137E+00,.3137E+00,.3137E+00,.3146E+00,.3172E+00,.3015E+00,.2948E+00,.2139E+00,.1071E+00,.3196E-01,.2711E-02,&
1767  .3149E+00,.3149E+00,.3149E+00,.3157E+00,.3182E+00,.3025E+00,.2958E+00,.2147E+00,.1076E+00,.3211E-01,.2723E-02,&
1768  .3161E+00,.3161E+00,.3161E+00,.3169E+00,.3192E+00,.3034E+00,.2967E+00,.2155E+00,.1081E+00,.3226E-01,.2735E-02,&
1769  .3200E+00,.3200E+00,.3200E+00,.3206E+00,.3224E+00,.3065E+00,.2998E+00,.2181E+00,.1097E+00,.3276E-01,.2775E-02,&
1770  .3238E+00,.3238E+00,.3238E+00,.3243E+00,.3256E+00,.3096E+00,.3028E+00,.2207E+00,.1113E+00,.3326E-01,.2815E-02,&
1771  .3277E+00,.3277E+00,.3277E+00,.3279E+00,.3288E+00,.3128E+00,.3059E+00,.2234E+00,.1129E+00,.3376E-01,.2856E-02,&
1772  .3315E+00,.3315E+00,.3315E+00,.3316E+00,.3320E+00,.3159E+00,.3089E+00,.2260E+00,.1145E+00,.3426E-01,.2896E-02,&
1773  .3354E+00,.3354E+00,.3354E+00,.3353E+00,.3352E+00,.3190E+00,.3120E+00,.2286E+00,.1161E+00,.3476E-01,.2936E-02,&
1774  .3413E+00,.3413E+00,.3413E+00,.3410E+00,.3402E+00,.3238E+00,.3168E+00,.2328E+00,.1187E+00,.3561E-01,.3003E-02,&
1775  .3472E+00,.3472E+00,.3472E+00,.3466E+00,.3452E+00,.3287E+00,.3216E+00,.2370E+00,.1214E+00,.3646E-01,.3070E-02,&
1776  .3530E+00,.3530E+00,.3530E+00,.3523E+00,.3501E+00,.3335E+00,.3264E+00,.2411E+00,.1240E+00,.3731E-01,.3138E-02,&
1777  .3589E+00,.3589E+00,.3589E+00,.3579E+00,.3551E+00,.3384E+00,.3312E+00,.2453E+00,.1267E+00,.3816E-01,.3205E-02,&
1778  .3648E+00,.3648E+00,.3648E+00,.3636E+00,.3601E+00,.3432E+00,.3360E+00,.2495E+00,.1293E+00,.3901E-01,.3272E-02,&
1779  .3746E+00,.3746E+00,.3746E+00,.3730E+00,.3685E+00,.3514E+00,.3441E+00,.2567E+00,.1339E+00,.4053E-01,.3392E-02,&
1780  .3813E+00,.3813E+00,.3813E+00,.3795E+00,.3743E+00,.3571E+00,.3497E+00,.2617E+00,.1372E+00,.4161E-01,.3477E-02,&
1781  .3916E+00,.3916E+00,.3916E+00,.3894E+00,.3833E+00,.3659E+00,.3585E+00,.2695E+00,.1423E+00,.4333E-01,.3612E-02,&
1782  .3987E+00,.3987E+00,.3987E+00,.3963E+00,.3895E+00,.3720E+00,.3645E+00,.2750E+00,.1459E+00,.4455E-01,.3708E-02,&
1783  .4095E+00,.4095E+00,.4095E+00,.4068E+00,.3990E+00,.3814E+00,.3738E+00,.2834E+00,.1516E+00,.4649E-01,.3860E-02,&
1784  .4205E+00,.4205E+00,.4205E+00,.4175E+00,.4088E+00,.3910E+00,.3834E+00,.2922E+00,.1575E+00,.4856E-01,.4023E-02,&
1785  .4280E+00,.4280E+00,.4280E+00,.4247E+00,.4154E+00,.3975E+00,.3899E+00,.2982E+00,.1617E+00,.5001E-01,.4137E-02,&
1786  .4393E+00,.4393E+00,.4393E+00,.4357E+00,.4256E+00,.4077E+00,.4000E+00,.3075E+00,.1681E+00,.5231E-01,.4318E-02,&
1787  .4470E+00,.4470E+00,.4470E+00,.4432E+00,.4325E+00,.4145E+00,.4068E+00,.3139E+00,.1726E+00,.5392E-01,.4444E-02,&
1788  .4585E+00,.4585E+00,.4585E+00,.4544E+00,.4429E+00,.4248E+00,.4171E+00,.3237E+00,.1796E+00,.5646E-01,.4644E-02,&
1789  .4701E+00,.4701E+00,.4701E+00,.4658E+00,.4535E+00,.4354E+00,.4277E+00,.3338E+00,.1869E+00,.5915E-01,.4856E-02,&
1790  .4818E+00,.4818E+00,.4818E+00,.4772E+00,.4642E+00,.4461E+00,.4383E+00,.3440E+00,.1944E+00,.6198E-01,.5080E-02,&
1791  .4935E+00,.4935E+00,.4935E+00,.4887E+00,.4750E+00,.4569E+00,.4491E+00,.3545E+00,.2023E+00,.6498E-01,.5317E-02,&
1792  .5091E+00,.5091E+00,.5091E+00,.5040E+00,.4894E+00,.4714E+00,.4637E+00,.3689E+00,.2133E+00,.6923E-01,.5655E-02,&
1793  .5245E+00,.5245E+00,.5245E+00,.5192E+00,.5040E+00,.4861E+00,.4784E+00,.3835E+00,.2247E+00,.7377E-01,.6017E-02,&
1794  .5437E+00,.5437E+00,.5437E+00,.5381E+00,.5221E+00,.5044E+00,.4968E+00,.4021E+00,.2396E+00,.7989E-01,.6507E-02,&
1795  .5699E+00,.5699E+00,.5699E+00,.5640E+00,.5472E+00,.5298E+00,.5224E+00,.4287E+00,.2616E+00,.8925E-01,.7266E-02,&
1796  .5987E+00,.5987E+00,.5987E+00,.5926E+00,.5754E+00,.5586E+00,.5514E+00,.4595E+00,.2883E+00,.1012E+00,.8247E-02,&
1797  .6646E+00,.6646E+00,.6646E+00,.6585E+00,.6413E+00,.6265E+00,.6202E+00,.5355E+00,.3600E+00,.1368E+00,.1128E-01/
1798  data (((w0(ai,k,nh),ai= 3, 3),k=1,11),nh=0,99)/ &
1799  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1800  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1801  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1802  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1803  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1804  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1805  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1806  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1807  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1808  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1809  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1810  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1811  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1812  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1813  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1814  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1815  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1816  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1817  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1818  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1819  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1820  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1821  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1822  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1823  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1824  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1825  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1826  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1827  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1828  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1829  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1830  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1831  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1832  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1833  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1834  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1835  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1836  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1837  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1838  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1839  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1840  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1841  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1842  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1843  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1844  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1845  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1846  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1847  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1848  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1849  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1850  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1851  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1852  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1853  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1854  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1855  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1856  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1857  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1858  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1859  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1860  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1861  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1862  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1863  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1864  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1865  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1866  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1867  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1868  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1869  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1870  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1871  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1872  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1873  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1874  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1875  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1876  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1877  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1878  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1879  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1880  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1881  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1882  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1883  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1884  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1885  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1886  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1887  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1888  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1889  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1890  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1891  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1892  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1893  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1894  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1895  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1896  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1897  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1898  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00/
1899  data (((w0(ai,k,nh),ai= 4, 4),k=1,11),nh=0,99)/ &
1900  .8395E+00,.8395E+00,.8395E+00,.8684E+00,.9505E+00,.9634E+00,.9689E+00,.9616E+00,.8776E+00,.7338E+00,.2193E+00,&
1901  .8409E+00,.8409E+00,.8409E+00,.8696E+00,.9510E+00,.9638E+00,.9692E+00,.9620E+00,.8787E+00,.7359E+00,.2176E+00,&
1902  .8423E+00,.8423E+00,.8423E+00,.8707E+00,.9516E+00,.9642E+00,.9695E+00,.9624E+00,.8798E+00,.7381E+00,.2158E+00,&
1903  .8436E+00,.8436E+00,.8436E+00,.8719E+00,.9521E+00,.9645E+00,.9699E+00,.9627E+00,.8810E+00,.7402E+00,.2141E+00,&
1904  .8450E+00,.8450E+00,.8450E+00,.8730E+00,.9527E+00,.9649E+00,.9702E+00,.9631E+00,.8821E+00,.7424E+00,.2123E+00,&
1905  .8464E+00,.8464E+00,.8464E+00,.8742E+00,.9532E+00,.9653E+00,.9705E+00,.9635E+00,.8832E+00,.7445E+00,.2106E+00,&
1906  .8476E+00,.8476E+00,.8476E+00,.8752E+00,.9537E+00,.9656E+00,.9708E+00,.9639E+00,.8843E+00,.7466E+00,.2098E+00,&
1907  .8489E+00,.8489E+00,.8489E+00,.8763E+00,.9541E+00,.9660E+00,.9711E+00,.9642E+00,.8853E+00,.7487E+00,.2091E+00,&
1908  .8501E+00,.8501E+00,.8501E+00,.8773E+00,.9546E+00,.9663E+00,.9713E+00,.9646E+00,.8864E+00,.7508E+00,.2083E+00,&
1909  .8514E+00,.8514E+00,.8514E+00,.8784E+00,.9550E+00,.9667E+00,.9716E+00,.9649E+00,.8874E+00,.7529E+00,.2076E+00,&
1910  .8526E+00,.8526E+00,.8526E+00,.8794E+00,.9555E+00,.9670E+00,.9719E+00,.9653E+00,.8885E+00,.7550E+00,.2068E+00,&
1911  .8538E+00,.8538E+00,.8538E+00,.8804E+00,.9559E+00,.9673E+00,.9721E+00,.9656E+00,.8895E+00,.7570E+00,.2065E+00,&
1912  .8550E+00,.8550E+00,.8550E+00,.8814E+00,.9563E+00,.9676E+00,.9724E+00,.9660E+00,.8905E+00,.7591E+00,.2062E+00,&
1913  .8563E+00,.8563E+00,.8563E+00,.8824E+00,.9566E+00,.9678E+00,.9726E+00,.9663E+00,.8916E+00,.7611E+00,.2059E+00,&
1914  .8575E+00,.8575E+00,.8575E+00,.8834E+00,.9570E+00,.9681E+00,.9729E+00,.9667E+00,.8926E+00,.7632E+00,.2056E+00,&
1915  .8587E+00,.8587E+00,.8587E+00,.8844E+00,.9574E+00,.9684E+00,.9731E+00,.9670E+00,.8936E+00,.7652E+00,.2053E+00,&
1916  .8599E+00,.8599E+00,.8599E+00,.8854E+00,.9578E+00,.9687E+00,.9734E+00,.9673E+00,.8946E+00,.7672E+00,.2052E+00,&
1917  .8612E+00,.8612E+00,.8612E+00,.8864E+00,.9582E+00,.9690E+00,.9737E+00,.9676E+00,.8956E+00,.7691E+00,.2052E+00,&
1918  .8624E+00,.8624E+00,.8624E+00,.8875E+00,.9586E+00,.9694E+00,.9740E+00,.9680E+00,.8965E+00,.7711E+00,.2051E+00,&
1919  .8637E+00,.8637E+00,.8637E+00,.8885E+00,.9590E+00,.9697E+00,.9743E+00,.9683E+00,.8975E+00,.7730E+00,.2051E+00,&
1920  .8649E+00,.8649E+00,.8649E+00,.8895E+00,.9594E+00,.9700E+00,.9746E+00,.9686E+00,.8985E+00,.7750E+00,.2050E+00,&
1921  .8661E+00,.8661E+00,.8661E+00,.8905E+00,.9598E+00,.9703E+00,.9749E+00,.9689E+00,.8995E+00,.7769E+00,.2051E+00,&
1922  .8673E+00,.8673E+00,.8673E+00,.8915E+00,.9602E+00,.9706E+00,.9751E+00,.9692E+00,.9004E+00,.7788E+00,.2052E+00,&
1923  .8684E+00,.8684E+00,.8684E+00,.8924E+00,.9607E+00,.9710E+00,.9754E+00,.9695E+00,.9014E+00,.7807E+00,.2052E+00,&
1924  .8696E+00,.8696E+00,.8696E+00,.8934E+00,.9611E+00,.9713E+00,.9756E+00,.9698E+00,.9023E+00,.7826E+00,.2053E+00,&
1925  .8708E+00,.8708E+00,.8708E+00,.8944E+00,.9615E+00,.9716E+00,.9759E+00,.9701E+00,.9033E+00,.7845E+00,.2054E+00,&
1926  .8719E+00,.8719E+00,.8719E+00,.8953E+00,.9619E+00,.9719E+00,.9761E+00,.9704E+00,.9042E+00,.7864E+00,.2056E+00,&
1927  .8729E+00,.8729E+00,.8729E+00,.8962E+00,.9623E+00,.9722E+00,.9764E+00,.9707E+00,.9051E+00,.7882E+00,.2058E+00,&
1928  .8740E+00,.8740E+00,.8740E+00,.8970E+00,.9627E+00,.9724E+00,.9766E+00,.9710E+00,.9060E+00,.7901E+00,.2060E+00,&
1929  .8750E+00,.8750E+00,.8750E+00,.8979E+00,.9631E+00,.9727E+00,.9769E+00,.9713E+00,.9069E+00,.7919E+00,.2062E+00,&
1930  .8761E+00,.8761E+00,.8761E+00,.8988E+00,.9635E+00,.9730E+00,.9771E+00,.9716E+00,.9078E+00,.7938E+00,.2064E+00,&
1931  .8770E+00,.8770E+00,.8770E+00,.8996E+00,.9638E+00,.9732E+00,.9773E+00,.9719E+00,.9087E+00,.7956E+00,.2067E+00,&
1932  .8780E+00,.8780E+00,.8780E+00,.9004E+00,.9641E+00,.9735E+00,.9775E+00,.9722E+00,.9096E+00,.7973E+00,.2069E+00,&
1933  .8789E+00,.8789E+00,.8789E+00,.9011E+00,.9645E+00,.9737E+00,.9777E+00,.9724E+00,.9104E+00,.7991E+00,.2072E+00,&
1934  .8799E+00,.8799E+00,.8799E+00,.9019E+00,.9648E+00,.9740E+00,.9779E+00,.9727E+00,.9113E+00,.8008E+00,.2074E+00,&
1935  .8808E+00,.8808E+00,.8808E+00,.9027E+00,.9651E+00,.9742E+00,.9781E+00,.9730E+00,.9122E+00,.8026E+00,.2077E+00,&
1936  .8818E+00,.8818E+00,.8818E+00,.9035E+00,.9654E+00,.9744E+00,.9783E+00,.9733E+00,.9130E+00,.8043E+00,.2080E+00,&
1937  .8827E+00,.8827E+00,.8827E+00,.9043E+00,.9657E+00,.9746E+00,.9785E+00,.9735E+00,.9138E+00,.8060E+00,.2083E+00,&
1938  .8837E+00,.8837E+00,.8837E+00,.9051E+00,.9660E+00,.9749E+00,.9786E+00,.9738E+00,.9147E+00,.8077E+00,.2087E+00,&
1939  .8846E+00,.8846E+00,.8846E+00,.9059E+00,.9663E+00,.9751E+00,.9788E+00,.9740E+00,.9155E+00,.8094E+00,.2090E+00,&
1940  .8856E+00,.8856E+00,.8856E+00,.9067E+00,.9666E+00,.9753E+00,.9790E+00,.9743E+00,.9163E+00,.8111E+00,.2093E+00,&
1941  .8866E+00,.8866E+00,.8866E+00,.9075E+00,.9669E+00,.9755E+00,.9792E+00,.9745E+00,.9171E+00,.8127E+00,.2097E+00,&
1942  .8875E+00,.8875E+00,.8875E+00,.9083E+00,.9672E+00,.9758E+00,.9794E+00,.9747E+00,.9179E+00,.8144E+00,.2101E+00,&
1943  .8885E+00,.8885E+00,.8885E+00,.9090E+00,.9674E+00,.9760E+00,.9797E+00,.9750E+00,.9187E+00,.8160E+00,.2104E+00,&
1944  .8894E+00,.8894E+00,.8894E+00,.9098E+00,.9677E+00,.9763E+00,.9799E+00,.9752E+00,.9195E+00,.8177E+00,.2108E+00,&
1945  .8904E+00,.8904E+00,.8904E+00,.9106E+00,.9680E+00,.9765E+00,.9801E+00,.9754E+00,.9203E+00,.8193E+00,.2112E+00,&
1946  .8913E+00,.8913E+00,.8913E+00,.9114E+00,.9683E+00,.9767E+00,.9803E+00,.9756E+00,.9210E+00,.8209E+00,.2116E+00,&
1947  .8923E+00,.8923E+00,.8923E+00,.9122E+00,.9686E+00,.9770E+00,.9805E+00,.9759E+00,.9218E+00,.8224E+00,.2120E+00,&
1948  .8932E+00,.8932E+00,.8932E+00,.9129E+00,.9690E+00,.9772E+00,.9807E+00,.9761E+00,.9225E+00,.8240E+00,.2124E+00,&
1949  .8942E+00,.8942E+00,.8942E+00,.9137E+00,.9693E+00,.9775E+00,.9809E+00,.9764E+00,.9233E+00,.8255E+00,.2128E+00,&
1950  .8951E+00,.8951E+00,.8951E+00,.9145E+00,.9696E+00,.9777E+00,.9811E+00,.9766E+00,.9240E+00,.8271E+00,.2132E+00,&
1951  .8961E+00,.8961E+00,.8961E+00,.9153E+00,.9700E+00,.9779E+00,.9813E+00,.9769E+00,.9249E+00,.8289E+00,.2137E+00,&
1952  .8970E+00,.8970E+00,.8970E+00,.9161E+00,.9703E+00,.9782E+00,.9815E+00,.9771E+00,.9258E+00,.8307E+00,.2142E+00,&
1953  .8980E+00,.8980E+00,.8980E+00,.9169E+00,.9707E+00,.9784E+00,.9817E+00,.9774E+00,.9266E+00,.8325E+00,.2147E+00,&
1954  .8989E+00,.8989E+00,.8989E+00,.9177E+00,.9710E+00,.9787E+00,.9819E+00,.9776E+00,.9275E+00,.8343E+00,.2152E+00,&
1955  .8999E+00,.8999E+00,.8999E+00,.9185E+00,.9714E+00,.9789E+00,.9821E+00,.9779E+00,.9284E+00,.8361E+00,.2157E+00,&
1956  .9007E+00,.9007E+00,.9007E+00,.9192E+00,.9717E+00,.9791E+00,.9823E+00,.9782E+00,.9292E+00,.8378E+00,.2162E+00,&
1957  .9015E+00,.9015E+00,.9015E+00,.9199E+00,.9719E+00,.9793E+00,.9825E+00,.9784E+00,.9300E+00,.8395E+00,.2168E+00,&
1958  .9024E+00,.9024E+00,.9024E+00,.9205E+00,.9722E+00,.9795E+00,.9826E+00,.9787E+00,.9308E+00,.8411E+00,.2173E+00,&
1959  .9032E+00,.9032E+00,.9032E+00,.9212E+00,.9724E+00,.9797E+00,.9828E+00,.9789E+00,.9316E+00,.8428E+00,.2179E+00,&
1960  .9040E+00,.9040E+00,.9040E+00,.9219E+00,.9727E+00,.9799E+00,.9830E+00,.9792E+00,.9324E+00,.8445E+00,.2184E+00,&
1961  .9048E+00,.9048E+00,.9048E+00,.9225E+00,.9729E+00,.9801E+00,.9831E+00,.9794E+00,.9331E+00,.8458E+00,.2189E+00,&
1962  .9056E+00,.9056E+00,.9056E+00,.9231E+00,.9731E+00,.9802E+00,.9833E+00,.9796E+00,.9337E+00,.8472E+00,.2194E+00,&
1963  .9063E+00,.9063E+00,.9063E+00,.9238E+00,.9733E+00,.9804E+00,.9834E+00,.9797E+00,.9344E+00,.8485E+00,.2198E+00,&
1964  .9071E+00,.9071E+00,.9071E+00,.9244E+00,.9735E+00,.9805E+00,.9836E+00,.9799E+00,.9350E+00,.8499E+00,.2203E+00,&
1965  .9079E+00,.9079E+00,.9079E+00,.9250E+00,.9737E+00,.9807E+00,.9837E+00,.9801E+00,.9357E+00,.8512E+00,.2208E+00,&
1966  .9088E+00,.9088E+00,.9088E+00,.9257E+00,.9740E+00,.9809E+00,.9839E+00,.9803E+00,.9364E+00,.8527E+00,.2214E+00,&
1967  .9097E+00,.9097E+00,.9097E+00,.9265E+00,.9743E+00,.9811E+00,.9841E+00,.9805E+00,.9371E+00,.8542E+00,.2220E+00,&
1968  .9106E+00,.9106E+00,.9106E+00,.9272E+00,.9745E+00,.9814E+00,.9842E+00,.9808E+00,.9379E+00,.8558E+00,.2225E+00,&
1969  .9115E+00,.9115E+00,.9115E+00,.9280E+00,.9748E+00,.9816E+00,.9844E+00,.9810E+00,.9386E+00,.8573E+00,.2231E+00,&
1970  .9124E+00,.9124E+00,.9124E+00,.9287E+00,.9751E+00,.9818E+00,.9846E+00,.9812E+00,.9393E+00,.8588E+00,.2237E+00,&
1971  .9136E+00,.9136E+00,.9136E+00,.9297E+00,.9755E+00,.9821E+00,.9848E+00,.9815E+00,.9403E+00,.8609E+00,.2246E+00,&
1972  .9147E+00,.9147E+00,.9147E+00,.9306E+00,.9759E+00,.9824E+00,.9851E+00,.9818E+00,.9413E+00,.8630E+00,.2255E+00,&
1973  .9159E+00,.9159E+00,.9159E+00,.9316E+00,.9763E+00,.9826E+00,.9853E+00,.9821E+00,.9423E+00,.8652E+00,.2264E+00,&
1974  .9170E+00,.9170E+00,.9170E+00,.9325E+00,.9767E+00,.9829E+00,.9856E+00,.9824E+00,.9433E+00,.8673E+00,.2273E+00,&
1975  .9182E+00,.9182E+00,.9182E+00,.9335E+00,.9771E+00,.9832E+00,.9858E+00,.9827E+00,.9443E+00,.8694E+00,.2282E+00,&
1976  .9195E+00,.9195E+00,.9195E+00,.9346E+00,.9775E+00,.9835E+00,.9861E+00,.9831E+00,.9455E+00,.8719E+00,.2294E+00,&
1977  .9208E+00,.9208E+00,.9208E+00,.9357E+00,.9779E+00,.9838E+00,.9863E+00,.9834E+00,.9467E+00,.8745E+00,.2307E+00,&
1978  .9222E+00,.9222E+00,.9222E+00,.9367E+00,.9783E+00,.9841E+00,.9866E+00,.9838E+00,.9479E+00,.8770E+00,.2319E+00,&
1979  .9235E+00,.9235E+00,.9235E+00,.9378E+00,.9787E+00,.9844E+00,.9868E+00,.9841E+00,.9491E+00,.8796E+00,.2332E+00,&
1980  .9248E+00,.9248E+00,.9248E+00,.9389E+00,.9791E+00,.9847E+00,.9871E+00,.9845E+00,.9503E+00,.8821E+00,.2344E+00,&
1981  .9266E+00,.9266E+00,.9266E+00,.9404E+00,.9795E+00,.9850E+00,.9874E+00,.9849E+00,.9517E+00,.8851E+00,.2360E+00,&
1982  .9283E+00,.9283E+00,.9283E+00,.9418E+00,.9801E+00,.9855E+00,.9878E+00,.9852E+00,.9530E+00,.8879E+00,.2376E+00,&
1983  .9300E+00,.9300E+00,.9300E+00,.9432E+00,.9806E+00,.9858E+00,.9881E+00,.9856E+00,.9543E+00,.8907E+00,.2391E+00,&
1984  .9315E+00,.9315E+00,.9315E+00,.9444E+00,.9811E+00,.9862E+00,.9884E+00,.9860E+00,.9556E+00,.8934E+00,.2408E+00,&
1985  .9332E+00,.9332E+00,.9332E+00,.9458E+00,.9817E+00,.9867E+00,.9888E+00,.9864E+00,.9572E+00,.8969E+00,.2429E+00,&
1986  .9348E+00,.9348E+00,.9348E+00,.9471E+00,.9823E+00,.9871E+00,.9891E+00,.9869E+00,.9588E+00,.9001E+00,.2450E+00,&
1987  .9367E+00,.9367E+00,.9367E+00,.9487E+00,.9829E+00,.9875E+00,.9895E+00,.9875E+00,.9606E+00,.9041E+00,.2477E+00,&
1988  .9391E+00,.9391E+00,.9391E+00,.9506E+00,.9834E+00,.9879E+00,.9898E+00,.9880E+00,.9623E+00,.9078E+00,.2504E+00,&
1989  .9417E+00,.9417E+00,.9417E+00,.9527E+00,.9841E+00,.9885E+00,.9904E+00,.9886E+00,.9643E+00,.9121E+00,.2536E+00,&
1990  .9441E+00,.9441E+00,.9441E+00,.9547E+00,.9849E+00,.9890E+00,.9908E+00,.9891E+00,.9662E+00,.9160E+00,.2568E+00,&
1991  .9464E+00,.9464E+00,.9464E+00,.9566E+00,.9857E+00,.9896E+00,.9913E+00,.9897E+00,.9682E+00,.9204E+00,.2606E+00,&
1992  .9487E+00,.9487E+00,.9487E+00,.9585E+00,.9864E+00,.9901E+00,.9917E+00,.9903E+00,.9703E+00,.9250E+00,.2648E+00,&
1993  .9521E+00,.9521E+00,.9521E+00,.9612E+00,.9872E+00,.9908E+00,.9923E+00,.9911E+00,.9728E+00,.9302E+00,.2701E+00,&
1994  .9551E+00,.9551E+00,.9551E+00,.9637E+00,.9882E+00,.9915E+00,.9929E+00,.9918E+00,.9751E+00,.9354E+00,.2760E+00,&
1995  .9587E+00,.9587E+00,.9587E+00,.9667E+00,.9893E+00,.9922E+00,.9935E+00,.9926E+00,.9780E+00,.9416E+00,.2838E+00,&
1996  .9630E+00,.9630E+00,.9630E+00,.9701E+00,.9905E+00,.9932E+00,.9943E+00,.9935E+00,.9811E+00,.9482E+00,.2936E+00,&
1997  .9670E+00,.9670E+00,.9670E+00,.9733E+00,.9914E+00,.9939E+00,.9950E+00,.9944E+00,.9840E+00,.9546E+00,.3047E+00,&
1998  .9723E+00,.9723E+00,.9723E+00,.9777E+00,.9930E+00,.9950E+00,.9958E+00,.9956E+00,.9876E+00,.9625E+00,.3222E+00,&
1999  .9786E+00,.9786E+00,.9786E+00,.9828E+00,.9947E+00,.9962E+00,.9969E+00,.9968E+00,.9914E+00,.9712E+00,.3489E+00/
2000  data (((w0(ai,k,nh),ai= 5, 5),k=1,11),nh=0,99)/ &
2001  .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9988E+00,.9902E+00,.9046E+00,&
2002  .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9988E+00,.9903E+00,.8962E+00,&
2003  .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9989E+00,.9903E+00,.8877E+00,&
2004  .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9989E+00,.9904E+00,.8793E+00,&
2005  .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9990E+00,.9904E+00,.8708E+00,&
2006  .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9990E+00,.9905E+00,.8624E+00,&
2007  .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9990E+00,.9906E+00,.8564E+00,&
2008  .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9990E+00,.9906E+00,.8504E+00,&
2009  .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9991E+00,.9907E+00,.8444E+00,&
2010  .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9991E+00,.9907E+00,.8384E+00,&
2011  .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9991E+00,.9908E+00,.8324E+00,&
2012  .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9991E+00,.9909E+00,.8279E+00,&
2013  .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9991E+00,.9909E+00,.8234E+00,&
2014  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9992E+00,.9910E+00,.8190E+00,&
2015  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9992E+00,.9910E+00,.8145E+00,&
2016  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9992E+00,.9911E+00,.8100E+00,&
2017  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9992E+00,.9911E+00,.8066E+00,&
2018  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9992E+00,.9912E+00,.8033E+00,&
2019  .9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9912E+00,.7999E+00,&
2020  .9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9913E+00,.7966E+00,&
2021  .9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9913E+00,.7932E+00,&
2022  .9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9913E+00,.7906E+00,&
2023  .9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9914E+00,.7881E+00,&
2024  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9914E+00,.7855E+00,&
2025  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9915E+00,.7830E+00,&
2026  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9915E+00,.7804E+00,&
2027  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9915E+00,.7784E+00,&
2028  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9993E+00,.9915E+00,.7765E+00,&
2029  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9916E+00,.7745E+00,&
2030  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9916E+00,.7726E+00,&
2031  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9916E+00,.7706E+00,&
2032  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9916E+00,.7691E+00,&
2033  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9916E+00,.7676E+00,&
2034  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9917E+00,.7661E+00,&
2035  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9917E+00,.7646E+00,&
2036  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9917E+00,.7631E+00,&
2037  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9917E+00,.7620E+00,&
2038  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9994E+00,.9917E+00,.7608E+00,&
2039  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9918E+00,.7597E+00,&
2040  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9918E+00,.7585E+00,&
2041  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9918E+00,.7574E+00,&
2042  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9918E+00,.7565E+00,&
2043  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9918E+00,.7557E+00,&
2044  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9919E+00,.7548E+00,&
2045  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9919E+00,.7540E+00,&
2046  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9919E+00,.7531E+00,&
2047  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9919E+00,.7525E+00,&
2048  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9995E+00,.9919E+00,.7518E+00,&
2049  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7512E+00,&
2050  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7505E+00,&
2051  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7499E+00,&
2052  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7495E+00,&
2053  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7491E+00,&
2054  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7487E+00,&
2055  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7483E+00,&
2056  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7479E+00,&
2057  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7476E+00,&
2058  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7473E+00,&
2059  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7471E+00,&
2060  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7468E+00,&
2061  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7465E+00,&
2062  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7463E+00,&
2063  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7461E+00,&
2064  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7458E+00,&
2065  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7456E+00,&
2066  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7454E+00,&
2067  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7452E+00,&
2068  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7451E+00,&
2069  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7449E+00,&
2070  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7448E+00,&
2071  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7446E+00,&
2072  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7445E+00,&
2073  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9996E+00,.9920E+00,.7444E+00,&
2074  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7442E+00,&
2075  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7441E+00,&
2076  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7440E+00,&
2077  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7440E+00,&
2078  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7440E+00,&
2079  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7440E+00,&
2080  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7440E+00,&
2081  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7440E+00,&
2082  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9920E+00,.7440E+00,&
2083  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9919E+00,.7442E+00,&
2084  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9919E+00,.7444E+00,&
2085  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9919E+00,.7446E+00,&
2086  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9918E+00,.7449E+00,&
2087  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9918E+00,.7452E+00,&
2088  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9918E+00,.7457E+00,&
2089  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9918E+00,.7462E+00,&
2090  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9917E+00,.7468E+00,&
2091  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9997E+00,.9916E+00,.7476E+00,&
2092  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9916E+00,.7484E+00,&
2093  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9915E+00,.7496E+00,&
2094  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9913E+00,.7508E+00,&
2095  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9911E+00,.7524E+00,&
2096  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9909E+00,.7545E+00,&
2097  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9906E+00,.7569E+00,&
2098  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9901E+00,.7602E+00,&
2099  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9891E+00,.7637E+00,&
2100  .1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9998E+00,.9871E+00,.7676E+00/
2101  data (((w0(ai,k,nh),ai= 6, 6),k=1,11),nh=0,99)/ &
2102  .9986E+00,.9986E+00,.9986E+00,.9988E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.9918E+00,.9603E+00,.9159E+00,&
2103  .9986E+00,.9986E+00,.9986E+00,.9988E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.9919E+00,.9604E+00,.9077E+00,&
2104  .9987E+00,.9987E+00,.9987E+00,.9989E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.9921E+00,.9606E+00,.8995E+00,&
2105  .9987E+00,.9987E+00,.9987E+00,.9989E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.9922E+00,.9607E+00,.8913E+00,&
2106  .9988E+00,.9988E+00,.9988E+00,.9990E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.9924E+00,.9609E+00,.8831E+00,&
2107  .9988E+00,.9988E+00,.9988E+00,.9990E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.9925E+00,.9610E+00,.8749E+00,&
2108  .9988E+00,.9988E+00,.9988E+00,.9990E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.9927E+00,.9613E+00,.8701E+00,&
2109  .9988E+00,.9988E+00,.9988E+00,.9990E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.9928E+00,.9615E+00,.8652E+00,&
2110  .9989E+00,.9989E+00,.9989E+00,.9991E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.9930E+00,.9618E+00,.8604E+00,&
2111  .9989E+00,.9989E+00,.9989E+00,.9991E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.9931E+00,.9620E+00,.8555E+00,&
2112  .9989E+00,.9989E+00,.9989E+00,.9991E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.9933E+00,.9623E+00,.8507E+00,&
2113  .9989E+00,.9989E+00,.9989E+00,.9991E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.9935E+00,.9625E+00,.8471E+00,&
2114  .9989E+00,.9989E+00,.9989E+00,.9991E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.9937E+00,.9627E+00,.8434E+00,&
2115  .9990E+00,.9990E+00,.9990E+00,.9992E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9939E+00,.9628E+00,.8398E+00,&
2116  .9990E+00,.9990E+00,.9990E+00,.9992E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9941E+00,.9630E+00,.8361E+00,&
2117  .9990E+00,.9990E+00,.9990E+00,.9992E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9943E+00,.9632E+00,.8325E+00,&
2118  .9990E+00,.9990E+00,.9990E+00,.9992E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9944E+00,.9632E+00,.8296E+00,&
2119  .9990E+00,.9990E+00,.9990E+00,.9992E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9945E+00,.9631E+00,.8268E+00,&
2120  .9991E+00,.9991E+00,.9991E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9946E+00,.9631E+00,.8239E+00,&
2121  .9991E+00,.9991E+00,.9991E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9947E+00,.9630E+00,.8211E+00,&
2122  .9991E+00,.9991E+00,.9991E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9948E+00,.9630E+00,.8182E+00,&
2123  .9991E+00,.9991E+00,.9991E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9949E+00,.9631E+00,.8158E+00,&
2124  .9991E+00,.9991E+00,.9991E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9949E+00,.9631E+00,.8134E+00,&
2125  .9992E+00,.9992E+00,.9992E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9950E+00,.9632E+00,.8111E+00,&
2126  .9992E+00,.9992E+00,.9992E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9950E+00,.9632E+00,.8087E+00,&
2127  .9992E+00,.9992E+00,.9992E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9951E+00,.9633E+00,.8063E+00,&
2128  .9992E+00,.9992E+00,.9992E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9952E+00,.9633E+00,.8042E+00,&
2129  .9992E+00,.9992E+00,.9992E+00,.9993E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.9953E+00,.9633E+00,.8022E+00,&
2130  .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9954E+00,.9632E+00,.8001E+00,&
2131  .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9955E+00,.9632E+00,.7981E+00,&
2132  .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9956E+00,.9632E+00,.7960E+00,&
2133  .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9956E+00,.9631E+00,.7943E+00,&
2134  .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9957E+00,.9630E+00,.7926E+00,&
2135  .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9957E+00,.9629E+00,.7908E+00,&
2136  .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9958E+00,.9628E+00,.7891E+00,&
2137  .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9958E+00,.9627E+00,.7874E+00,&
2138  .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9959E+00,.9628E+00,.7858E+00,&
2139  .9993E+00,.9993E+00,.9993E+00,.9994E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9960E+00,.9629E+00,.7842E+00,&
2140  .9994E+00,.9994E+00,.9994E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9960E+00,.9629E+00,.7825E+00,&
2141  .9994E+00,.9994E+00,.9994E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9961E+00,.9630E+00,.7809E+00,&
2142  .9994E+00,.9994E+00,.9994E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9962E+00,.9631E+00,.7793E+00,&
2143  .9994E+00,.9994E+00,.9994E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9963E+00,.9629E+00,.7779E+00,&
2144  .9994E+00,.9994E+00,.9994E+00,.9995E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9963E+00,.9628E+00,.7765E+00,&
2145  .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9964E+00,.9626E+00,.7751E+00,&
2146  .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9964E+00,.9625E+00,.7737E+00,&
2147  .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9965E+00,.9623E+00,.7723E+00,&
2148  .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9965E+00,.9622E+00,.7710E+00,&
2149  .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9966E+00,.9621E+00,.7697E+00,&
2150  .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9966E+00,.9619E+00,.7684E+00,&
2151  .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9967E+00,.9618E+00,.7671E+00,&
2152  .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9967E+00,.9617E+00,.7658E+00,&
2153  .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9967E+00,.9616E+00,.7648E+00,&
2154  .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9968E+00,.9615E+00,.7639E+00,&
2155  .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9968E+00,.9613E+00,.7629E+00,&
2156  .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9969E+00,.9612E+00,.7620E+00,&
2157  .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9969E+00,.9611E+00,.7610E+00,&
2158  .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9969E+00,.9611E+00,.7601E+00,&
2159  .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9969E+00,.9611E+00,.7592E+00,&
2160  .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9970E+00,.9611E+00,.7584E+00,&
2161  .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9970E+00,.9611E+00,.7575E+00,&
2162  .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9970E+00,.9611E+00,.7566E+00,&
2163  .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9971E+00,.9610E+00,.7557E+00,&
2164  .9995E+00,.9995E+00,.9995E+00,.9996E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9971E+00,.9610E+00,.7549E+00,&
2165  .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9972E+00,.9609E+00,.7540E+00,&
2166  .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9972E+00,.9609E+00,.7532E+00,&
2167  .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9973E+00,.9608E+00,.7523E+00,&
2168  .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9973E+00,.9606E+00,.7515E+00,&
2169  .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.9973E+00,.9605E+00,.7507E+00,&
2170  .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9973E+00,.9603E+00,.7498E+00,&
2171  .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9973E+00,.9602E+00,.7490E+00,&
2172  .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9973E+00,.9600E+00,.7482E+00,&
2173  .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9974E+00,.9599E+00,.7471E+00,&
2174  .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9974E+00,.9598E+00,.7460E+00,&
2175  .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9975E+00,.9597E+00,.7449E+00,&
2176  .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9975E+00,.9596E+00,.7438E+00,&
2177  .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9976E+00,.9595E+00,.7427E+00,&
2178  .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9976E+00,.9591E+00,.7412E+00,&
2179  .9996E+00,.9996E+00,.9996E+00,.9997E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9976E+00,.9588E+00,.7396E+00,&
2180  .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9976E+00,.9584E+00,.7381E+00,&
2181  .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9976E+00,.9581E+00,.7365E+00,&
2182  .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9976E+00,.9577E+00,.7350E+00,&
2183  .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9976E+00,.9574E+00,.7336E+00,&
2184  .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9979E+00,.9570E+00,.7313E+00,&
2185  .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9979E+00,.9564E+00,.7292E+00,&
2186  .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9979E+00,.9557E+00,.7272E+00,&
2187  .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9979E+00,.9554E+00,.7246E+00,&
2188  .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9980E+00,.9551E+00,.7223E+00,&
2189  .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9980E+00,.9544E+00,.7200E+00,&
2190  .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9981E+00,.9541E+00,.7178E+00,&
2191  .9997E+00,.9997E+00,.9997E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9983E+00,.9531E+00,.7152E+00,&
2192  .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9983E+00,.9530E+00,.7121E+00,&
2193  .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9982E+00,.9514E+00,.7086E+00,&
2194  .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9984E+00,.9505E+00,.7050E+00,&
2195  .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9985E+00,.9493E+00,.6998E+00,&
2196  .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9985E+00,.9475E+00,.6943E+00,&
2197  .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9986E+00,.9454E+00,.6877E+00,&
2198  .9998E+00,.9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.9987E+00,.9425E+00,.6790E+00,&
2199  .9998E+00,.9998E+00,.9998E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9988E+00,.9382E+00,.6688E+00,&
2200  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9988E+00,.9321E+00,.6536E+00,&
2201  .9999E+00,.9999E+00,.9999E+00,.9999E+00,.1000E+01,.1000E+01,.1000E+01,.1000E+01,.9988E+00,.9191E+00,.6286E+00/
2202  data (((w0(ai,k,nh),ai= 7, 7),k=1,11),nh=0,99)/ &
2203  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2204  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2205  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2206  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2207  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2208  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2209  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2210  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2211  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2212  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2213  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2214  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2215  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2216  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2217  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2218  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2219  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2220  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2221  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2222  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2223  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2224  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2225  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2226  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2227  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2228  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2229  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2230  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2231  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2232  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2233  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2234  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2235  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2236  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2237  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2238  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2239  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2240  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2241  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2242  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2243  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2244  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2245  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2246  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2247  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2248  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2249  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2250  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2251  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2252  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2253  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2254  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2255  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2256  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2257  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2258  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2259  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2260  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2261  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2262  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2263  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2264  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2265  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2266  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2267  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2268  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2269  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2270  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2271  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2272  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2273  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2274  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2275  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2276  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2277  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2278  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2279  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2280  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2281  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2282  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2283  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2284  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2285  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2286  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2287  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2288  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2289  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2290  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2291  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2292  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2293  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2294  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2295  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2296  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2297  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2298  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2299  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2300  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2301  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00,&
2302  .9486E+00,.9486E+00,.9486E+00,.9515E+00,.9599E+00,.9695E+00,.9736E+00,.9900E+00,.9919E+00,.9666E+00,.3748E+00/
2303  data (((w0(ai,k,nh),ai= 8, 8),k=1,11),nh=0,99)/ &
2304  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2305  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2306  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2307  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2308  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2309  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2310  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2311  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2312  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2313  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2314  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2315  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2316  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2317  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2318  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2319  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2320  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2321  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2322  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2323  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2324  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2325  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2326  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2327  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2328  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2329  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2330  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2331  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2332  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2333  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2334  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2335  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2336  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2337  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2338  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2339  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2340  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2341  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2342  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2343  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2344  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2345  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2346  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2347  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2348  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2349  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2350  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2351  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2352  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2353  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2354  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2355  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2356  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2357  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2358  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2359  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2360  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2361  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2362  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2363  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2364  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2365  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2366  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2367  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2368  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2369  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2370  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2371  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2372  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2373  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2374  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2375  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2376  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2377  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2378  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2379  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2380  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2381  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2382  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2383  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2384  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2385  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2386  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2387  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2388  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2389  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2390  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2391  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2392  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2393  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2394  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2395  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2396  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2397  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2398  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2399  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2400  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2401  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2402  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00,&
2403  .9265E+00,.9265E+00,.9265E+00,.9314E+00,.9452E+00,.9594E+00,.9655E+00,.9888E+00,.9934E+00,.9823E+00,.5308E+00/
2404  data (((w0(ai,k,nh),ai= 9, 9),k=1,11),nh=0,99)/ &
2405  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2406  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2407  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2408  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2409  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2410  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2411  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2412  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2413  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2414  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2415  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2416  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2417  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2418  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2419  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2420  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2421  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2422  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2423  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2424  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2425  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2426  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2427  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2428  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2429  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2430  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2431  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2432  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2433  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2434  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2435  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2436  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2437  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2438  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2439  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2440  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2441  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2442  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2443  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2444  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2445  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2446  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2447  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2448  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2449  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2450  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2451  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2452  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2453  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2454  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2455  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2456  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2457  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2458  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2459  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2460  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2461  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2462  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2463  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2464  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2465  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2466  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2467  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2468  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2469  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2470  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2471  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2472  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2473  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2474  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2475  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2476  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2477  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2478  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2479  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2480  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2481  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2482  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2483  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2484  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2485  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2486  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2487  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2488  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2489  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2490  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2491  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2492  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2493  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2494  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2495  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2496  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2497  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2498  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2499  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2500  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2501  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2502  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2503  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00,&
2504  .8742E+00,.8742E+00,.8742E+00,.8831E+00,.9086E+00,.9327E+00,.9430E+00,.9827E+00,.9927E+00,.9874E+00,.6754E+00/
2505  data (((w0(ai,k,nh),ai=10,10),k=1,11),nh=0,99)/ &
2506  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2507  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2508  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2509  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2510  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2511  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2512  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2513  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2514  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2515  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2516  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2517  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2518  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2519  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2520  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2521  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2522  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2523  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2524  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2525  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2526  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2527  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2528  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2529  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2530  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2531  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2532  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2533  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2534  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2535  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2536  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2537  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2538  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2539  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2540  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2541  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2542  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2543  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2544  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2545  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2546  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2547  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2548  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2549  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2550  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2551  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2552  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2553  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2554  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2555  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2556  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2557  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2558  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2559  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2560  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2561  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2562  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2563  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2564  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2565  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2566  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2567  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2568  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2569  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2570  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2571  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2572  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2573  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2574  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2575  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2576  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2577  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2578  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2579  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2580  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2581  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2582  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2583  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2584  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2585  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2586  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2587  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2588  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2589  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2590  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2591  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2592  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2593  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2594  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2595  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2596  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2597  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2598  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2599  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2600  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2601  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2602  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2603  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2604  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00,&
2605  .8106E+00,.8106E+00,.8106E+00,.8216E+00,.8530E+00,.8887E+00,.9040E+00,.9707E+00,.9893E+00,.9869E+00,.7531E+00/
2606  data (((w0(ai,k,nh),ai=11,11),k=1,11),nh=0,99)/ &
2607  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2608  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2609  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2610  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2611  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2612  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2613  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2614  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2615  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2616  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2617  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2618  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2619  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2620  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2621  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2622  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2623  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2624  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2625  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2626  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2627  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2628  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2629  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2630  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2631  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2632  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2633  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2634  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2635  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2636  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2637  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2638  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2639  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2640  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2641  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2642  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2643  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2644  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2645  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2646  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2647  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2648  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2649  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2650  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2651  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2652  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2653  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2654  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2655  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2656  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2657  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2658  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2659  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2660  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2661  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2662  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2663  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2664  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2665  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2666  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2667  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2668  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2669  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2670  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2671  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2672  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2673  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2674  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2675  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2676  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2677  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2678  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2679  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2680  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2681  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2682  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2683  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2684  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2685  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2686  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2687  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2688  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2689  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2690  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2691  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2692  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2693  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2694  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2695  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2696  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2697  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2698  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2699  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2700  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2701  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2702  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2703  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2704  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2705  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00,&
2706  .7368E+00,.7368E+00,.7368E+00,.7498E+00,.7869E+00,.8322E+00,.8516E+00,.9507E+00,.9818E+00,.9823E+00,.7944E+00/
2707  data (((w0(ai,k,nh),ai=12,12),k=1,11),nh=0,99)/ &
2708  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2709  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2710  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2711  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2712  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2713  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2714  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2715  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2716  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2717  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2718  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2719  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2720  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2721  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2722  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2723  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2724  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2725  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2726  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2727  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2728  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2729  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2730  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2731  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2732  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2733  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2734  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2735  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2736  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2737  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2738  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2739  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2740  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2741  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2742  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2743  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2744  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2745  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2746  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2747  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2748  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2749  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2750  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2751  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2752  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2753  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2754  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2755  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2756  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2757  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2758  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2759  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2760  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2761  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2762  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2763  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2764  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2765  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2766  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2767  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2768  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2769  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2770  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2771  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2772  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2773  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2774  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2775  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2776  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2777  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2778  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2779  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2780  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2781  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2782  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2783  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2784  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2785  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2786  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2787  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2788  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2789  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2790  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2791  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2792  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2793  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2794  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2795  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2796  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2797  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2798  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2799  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2800  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2801  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2802  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2803  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2804  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2805  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2806  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00,&
2807  .6696E+00,.6696E+00,.6696E+00,.6818E+00,.7165E+00,.7670E+00,.7886E+00,.9227E+00,.9689E+00,.9717E+00,.8124E+00/
2808  data (((w0(ai,k,nh),ai=13,13),k=1,11),nh=0,99)/ &
2809  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2810  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2811  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2812  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2813  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2814  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2815  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2816  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2817  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2818  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2819  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2820  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2821  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2822  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2823  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2824  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2825  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2826  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2827  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2828  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2829  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2830  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2831  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2832  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2833  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2834  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2835  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2836  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2837  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2838  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2839  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2840  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2841  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2842  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2843  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2844  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2845  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2846  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2847  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2848  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2849  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2850  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2851  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2852  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2853  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2854  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2855  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2856  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2857  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2858  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2859  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2860  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2861  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2862  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2863  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2864  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2865  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2866  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2867  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2868  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2869  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2870  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2871  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2872  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2873  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2874  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2875  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2876  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2877  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2878  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2879  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2880  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2881  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2882  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2883  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2884  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2885  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2886  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2887  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2888  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2889  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2890  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2891  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2892  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2893  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2894  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2895  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2896  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2897  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2898  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2899  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2900  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2901  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2902  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2903  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2904  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2905  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2906  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2907  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00,&
2908  .6056E+00,.6056E+00,.6056E+00,.6148E+00,.6411E+00,.6883E+00,.7085E+00,.8768E+00,.9458E+00,.9475E+00,.8099E+00/
2909  data (((w0(ai,k,nh),ai=14,14),k=1,11),nh=0,99)/ &
2910  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2911  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2912  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2913  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2914  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2915  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2916  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2917  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2918  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2919  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2920  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2921  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2922  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2923  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2924  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2925  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2926  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2927  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2928  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2929  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2930  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2931  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2932  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2933  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2934  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2935  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2936  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2937  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2938  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2939  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2940  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2941  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2942  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2943  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2944  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2945  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2946  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2947  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2948  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2949  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2950  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2951  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2952  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2953  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2954  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2955  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2956  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2957  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2958  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2959  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2960  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2961  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2962  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2963  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2964  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2965  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2966  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2967  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2968  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2969  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2970  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2971  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2972  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2973  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2974  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2975  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2976  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2977  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2978  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2979  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2980  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2981  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2982  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2983  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2984  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2985  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2986  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2987  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2988  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2989  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2990  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2991  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2992  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2993  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2994  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2995  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2996  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2997  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2998  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
2999  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
3000  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
3001  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
3002  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
3003  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
3004  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
3005  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
3006  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
3007  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
3008  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00,&
3009  .5693E+00,.5693E+00,.5693E+00,.5748E+00,.5906E+00,.6253E+00,.6402E+00,.8208E+00,.9129E+00,.9156E+00,.7860E+00/
3010  data (((g(ai,k,nh),ai= 1, 1),k=1,11),nh=0,99)/ &
3011  .7011E+00,.7011E+00,.7011E+00,.7029E+00,.7082E+00,.7144E+00,.7171E+00,.7149E+00,.6665E+00,.5632E+00,.2436E+00,&
3012  .7031E+00,.7031E+00,.7031E+00,.7049E+00,.7103E+00,.7165E+00,.7192E+00,.7165E+00,.6684E+00,.5654E+00,.2458E+00,&
3013  .7051E+00,.7051E+00,.7051E+00,.7069E+00,.7124E+00,.7186E+00,.7213E+00,.7182E+00,.6704E+00,.5675E+00,.2479E+00,&
3014  .7070E+00,.7070E+00,.7070E+00,.7090E+00,.7144E+00,.7206E+00,.7233E+00,.7198E+00,.6723E+00,.5697E+00,.2501E+00,&
3015  .7090E+00,.7090E+00,.7090E+00,.7110E+00,.7165E+00,.7227E+00,.7254E+00,.7215E+00,.6743E+00,.5718E+00,.2522E+00,&
3016  .7110E+00,.7110E+00,.7110E+00,.7130E+00,.7186E+00,.7248E+00,.7275E+00,.7231E+00,.6762E+00,.5740E+00,.2544E+00,&
3017  .7112E+00,.7112E+00,.7112E+00,.7136E+00,.7202E+00,.7263E+00,.7290E+00,.7246E+00,.6780E+00,.5760E+00,.2565E+00,&
3018  .7114E+00,.7114E+00,.7114E+00,.7142E+00,.7219E+00,.7279E+00,.7305E+00,.7261E+00,.6798E+00,.5780E+00,.2586E+00,&
3019  .7117E+00,.7117E+00,.7117E+00,.7147E+00,.7235E+00,.7294E+00,.7319E+00,.7277E+00,.6815E+00,.5801E+00,.2607E+00,&
3020  .7119E+00,.7119E+00,.7119E+00,.7153E+00,.7252E+00,.7310E+00,.7334E+00,.7292E+00,.6833E+00,.5821E+00,.2628E+00,&
3021  .7121E+00,.7121E+00,.7121E+00,.7159E+00,.7268E+00,.7325E+00,.7349E+00,.7307E+00,.6851E+00,.5841E+00,.2649E+00,&
3022  .7143E+00,.7143E+00,.7143E+00,.7177E+00,.7274E+00,.7333E+00,.7358E+00,.7321E+00,.6867E+00,.5860E+00,.2669E+00,&
3023  .7166E+00,.7166E+00,.7166E+00,.7195E+00,.7280E+00,.7342E+00,.7368E+00,.7335E+00,.6883E+00,.5879E+00,.2688E+00,&
3024  .7188E+00,.7188E+00,.7188E+00,.7214E+00,.7286E+00,.7350E+00,.7377E+00,.7348E+00,.6898E+00,.5897E+00,.2708E+00,&
3025  .7211E+00,.7211E+00,.7211E+00,.7232E+00,.7292E+00,.7359E+00,.7387E+00,.7362E+00,.6914E+00,.5916E+00,.2727E+00,&
3026  .7233E+00,.7233E+00,.7233E+00,.7250E+00,.7298E+00,.7367E+00,.7396E+00,.7376E+00,.6930E+00,.5935E+00,.2747E+00,&
3027  .7245E+00,.7245E+00,.7245E+00,.7265E+00,.7320E+00,.7386E+00,.7414E+00,.7387E+00,.6945E+00,.5953E+00,.2767E+00,&
3028  .7258E+00,.7258E+00,.7258E+00,.7280E+00,.7342E+00,.7405E+00,.7432E+00,.7397E+00,.6959E+00,.5971E+00,.2786E+00,&
3029  .7270E+00,.7270E+00,.7270E+00,.7294E+00,.7363E+00,.7424E+00,.7450E+00,.7408E+00,.6974E+00,.5990E+00,.2806E+00,&
3030  .7283E+00,.7283E+00,.7283E+00,.7309E+00,.7385E+00,.7443E+00,.7468E+00,.7418E+00,.6988E+00,.6008E+00,.2825E+00,&
3031  .7295E+00,.7295E+00,.7295E+00,.7324E+00,.7407E+00,.7462E+00,.7486E+00,.7429E+00,.7003E+00,.6026E+00,.2845E+00,&
3032  .7300E+00,.7300E+00,.7300E+00,.7329E+00,.7412E+00,.7465E+00,.7489E+00,.7441E+00,.7017E+00,.6043E+00,.2864E+00,&
3033  .7305E+00,.7305E+00,.7305E+00,.7334E+00,.7416E+00,.7469E+00,.7492E+00,.7454E+00,.7031E+00,.6061E+00,.2883E+00,&
3034  .7310E+00,.7310E+00,.7310E+00,.7339E+00,.7421E+00,.7472E+00,.7494E+00,.7466E+00,.7045E+00,.6078E+00,.2903E+00,&
3035  .7315E+00,.7315E+00,.7315E+00,.7344E+00,.7425E+00,.7476E+00,.7497E+00,.7479E+00,.7059E+00,.6096E+00,.2922E+00,&
3036  .7320E+00,.7320E+00,.7320E+00,.7349E+00,.7430E+00,.7479E+00,.7500E+00,.7491E+00,.7073E+00,.6113E+00,.2941E+00,&
3037  .7340E+00,.7340E+00,.7340E+00,.7366E+00,.7439E+00,.7490E+00,.7512E+00,.7500E+00,.7085E+00,.6129E+00,.2960E+00,&
3038  .7359E+00,.7359E+00,.7359E+00,.7383E+00,.7449E+00,.7501E+00,.7524E+00,.7509E+00,.7098E+00,.6146E+00,.2978E+00,&
3039  .7379E+00,.7379E+00,.7379E+00,.7399E+00,.7458E+00,.7513E+00,.7536E+00,.7517E+00,.7110E+00,.6162E+00,.2997E+00,&
3040  .7398E+00,.7398E+00,.7398E+00,.7416E+00,.7468E+00,.7524E+00,.7548E+00,.7526E+00,.7123E+00,.6179E+00,.3015E+00,&
3041  .7418E+00,.7418E+00,.7418E+00,.7433E+00,.7477E+00,.7535E+00,.7560E+00,.7535E+00,.7135E+00,.6195E+00,.3034E+00,&
3042  .7417E+00,.7417E+00,.7417E+00,.7436E+00,.7491E+00,.7546E+00,.7569E+00,.7543E+00,.7147E+00,.6210E+00,.3052E+00,&
3043  .7416E+00,.7416E+00,.7416E+00,.7439E+00,.7505E+00,.7557E+00,.7579E+00,.7550E+00,.7158E+00,.6226E+00,.3070E+00,&
3044  .7416E+00,.7416E+00,.7416E+00,.7442E+00,.7518E+00,.7567E+00,.7588E+00,.7558E+00,.7170E+00,.6241E+00,.3088E+00,&
3045  .7415E+00,.7415E+00,.7415E+00,.7445E+00,.7532E+00,.7578E+00,.7598E+00,.7565E+00,.7181E+00,.6257E+00,.3106E+00,&
3046  .7414E+00,.7414E+00,.7414E+00,.7448E+00,.7546E+00,.7589E+00,.7607E+00,.7573E+00,.7193E+00,.6272E+00,.3124E+00,&
3047  .7420E+00,.7420E+00,.7420E+00,.7452E+00,.7543E+00,.7587E+00,.7605E+00,.7582E+00,.7204E+00,.6286E+00,.3141E+00,&
3048  .7427E+00,.7427E+00,.7427E+00,.7456E+00,.7540E+00,.7584E+00,.7603E+00,.7592E+00,.7214E+00,.6301E+00,.3158E+00,&
3049  .7433E+00,.7433E+00,.7433E+00,.7460E+00,.7536E+00,.7582E+00,.7601E+00,.7601E+00,.7225E+00,.6315E+00,.3175E+00,&
3050  .7440E+00,.7440E+00,.7440E+00,.7464E+00,.7533E+00,.7579E+00,.7599E+00,.7611E+00,.7235E+00,.6330E+00,.3192E+00,&
3051  .7446E+00,.7446E+00,.7446E+00,.7468E+00,.7530E+00,.7577E+00,.7597E+00,.7620E+00,.7246E+00,.6344E+00,.3209E+00,&
3052  .7460E+00,.7460E+00,.7460E+00,.7481E+00,.7541E+00,.7590E+00,.7610E+00,.7626E+00,.7256E+00,.6358E+00,.3226E+00,&
3053  .7474E+00,.7474E+00,.7474E+00,.7494E+00,.7551E+00,.7602E+00,.7624E+00,.7631E+00,.7266E+00,.6372E+00,.3243E+00,&
3054  .7489E+00,.7489E+00,.7489E+00,.7508E+00,.7562E+00,.7615E+00,.7637E+00,.7637E+00,.7275E+00,.6386E+00,.3261E+00,&
3055  .7503E+00,.7503E+00,.7503E+00,.7521E+00,.7572E+00,.7627E+00,.7651E+00,.7642E+00,.7285E+00,.6400E+00,.3278E+00,&
3056  .7517E+00,.7517E+00,.7517E+00,.7534E+00,.7583E+00,.7640E+00,.7664E+00,.7648E+00,.7295E+00,.6414E+00,.3295E+00,&
3057  .7513E+00,.7513E+00,.7513E+00,.7533E+00,.7593E+00,.7647E+00,.7670E+00,.7654E+00,.7304E+00,.6427E+00,.3312E+00,&
3058  .7509E+00,.7509E+00,.7509E+00,.7533E+00,.7603E+00,.7654E+00,.7675E+00,.7660E+00,.7313E+00,.6440E+00,.3328E+00,&
3059  .7504E+00,.7504E+00,.7504E+00,.7532E+00,.7612E+00,.7660E+00,.7681E+00,.7665E+00,.7323E+00,.6454E+00,.3345E+00,&
3060  .7500E+00,.7500E+00,.7500E+00,.7532E+00,.7622E+00,.7667E+00,.7686E+00,.7671E+00,.7332E+00,.6467E+00,.3361E+00,&
3061  .7496E+00,.7496E+00,.7496E+00,.7531E+00,.7632E+00,.7674E+00,.7692E+00,.7677E+00,.7341E+00,.6480E+00,.3378E+00,&
3062  .7499E+00,.7499E+00,.7499E+00,.7532E+00,.7628E+00,.7670E+00,.7688E+00,.7684E+00,.7349E+00,.6492E+00,.3393E+00,&
3063  .7502E+00,.7502E+00,.7502E+00,.7533E+00,.7624E+00,.7666E+00,.7684E+00,.7691E+00,.7357E+00,.6504E+00,.3408E+00,&
3064  .7504E+00,.7504E+00,.7504E+00,.7535E+00,.7621E+00,.7663E+00,.7681E+00,.7699E+00,.7366E+00,.6516E+00,.3423E+00,&
3065  .7507E+00,.7507E+00,.7507E+00,.7536E+00,.7617E+00,.7659E+00,.7677E+00,.7706E+00,.7374E+00,.6528E+00,.3438E+00,&
3066  .7510E+00,.7510E+00,.7510E+00,.7537E+00,.7613E+00,.7655E+00,.7673E+00,.7713E+00,.7382E+00,.6540E+00,.3453E+00,&
3067  .7524E+00,.7524E+00,.7524E+00,.7548E+00,.7616E+00,.7663E+00,.7683E+00,.7717E+00,.7389E+00,.6551E+00,.3467E+00,&
3068  .7538E+00,.7538E+00,.7538E+00,.7560E+00,.7620E+00,.7671E+00,.7693E+00,.7720E+00,.7396E+00,.6562E+00,.3481E+00,&
3069  .7553E+00,.7553E+00,.7553E+00,.7571E+00,.7623E+00,.7679E+00,.7703E+00,.7724E+00,.7403E+00,.6572E+00,.3496E+00,&
3070  .7567E+00,.7567E+00,.7567E+00,.7583E+00,.7627E+00,.7687E+00,.7713E+00,.7727E+00,.7410E+00,.6583E+00,.3510E+00,&
3071  .7581E+00,.7581E+00,.7581E+00,.7594E+00,.7630E+00,.7695E+00,.7723E+00,.7731E+00,.7417E+00,.6594E+00,.3524E+00,&
3072  .7575E+00,.7575E+00,.7575E+00,.7592E+00,.7642E+00,.7703E+00,.7729E+00,.7734E+00,.7424E+00,.6605E+00,.3538E+00,&
3073  .7568E+00,.7568E+00,.7568E+00,.7591E+00,.7655E+00,.7711E+00,.7736E+00,.7738E+00,.7431E+00,.6616E+00,.3553E+00,&
3074  .7562E+00,.7562E+00,.7562E+00,.7589E+00,.7667E+00,.7720E+00,.7742E+00,.7741E+00,.7437E+00,.6626E+00,.3567E+00,&
3075  .7555E+00,.7555E+00,.7555E+00,.7588E+00,.7680E+00,.7728E+00,.7749E+00,.7745E+00,.7444E+00,.6637E+00,.3582E+00,&
3076  .7549E+00,.7549E+00,.7549E+00,.7586E+00,.7692E+00,.7736E+00,.7755E+00,.7748E+00,.7451E+00,.6648E+00,.3596E+00,&
3077  .7541E+00,.7541E+00,.7541E+00,.7579E+00,.7687E+00,.7733E+00,.7752E+00,.7754E+00,.7458E+00,.6658E+00,.3610E+00,&
3078  .7533E+00,.7533E+00,.7533E+00,.7572E+00,.7682E+00,.7730E+00,.7750E+00,.7760E+00,.7465E+00,.6669E+00,.3624E+00,&
3079  .7526E+00,.7526E+00,.7526E+00,.7565E+00,.7677E+00,.7726E+00,.7747E+00,.7765E+00,.7471E+00,.6679E+00,.3638E+00,&
3080  .7518E+00,.7518E+00,.7518E+00,.7558E+00,.7672E+00,.7723E+00,.7745E+00,.7771E+00,.7478E+00,.6690E+00,.3652E+00,&
3081  .7510E+00,.7510E+00,.7510E+00,.7551E+00,.7667E+00,.7720E+00,.7742E+00,.7777E+00,.7485E+00,.6700E+00,.3666E+00,&
3082  .7534E+00,.7534E+00,.7534E+00,.7570E+00,.7672E+00,.7727E+00,.7750E+00,.7782E+00,.7495E+00,.6716E+00,.3688E+00,&
3083  .7559E+00,.7559E+00,.7559E+00,.7590E+00,.7678E+00,.7734E+00,.7757E+00,.7787E+00,.7505E+00,.6732E+00,.3711E+00,&
3084  .7583E+00,.7583E+00,.7583E+00,.7609E+00,.7683E+00,.7740E+00,.7765E+00,.7792E+00,.7515E+00,.6749E+00,.3733E+00,&
3085  .7608E+00,.7608E+00,.7608E+00,.7629E+00,.7689E+00,.7747E+00,.7772E+00,.7797E+00,.7525E+00,.6765E+00,.3756E+00,&
3086  .7632E+00,.7632E+00,.7632E+00,.7648E+00,.7694E+00,.7754E+00,.7780E+00,.7802E+00,.7535E+00,.6781E+00,.3778E+00,&
3087  .7620E+00,.7620E+00,.7620E+00,.7641E+00,.7702E+00,.7757E+00,.7781E+00,.7807E+00,.7544E+00,.6796E+00,.3800E+00,&
3088  .7608E+00,.7608E+00,.7608E+00,.7634E+00,.7710E+00,.7760E+00,.7781E+00,.7813E+00,.7553E+00,.6811E+00,.3822E+00,&
3089  .7596E+00,.7596E+00,.7596E+00,.7628E+00,.7717E+00,.7762E+00,.7782E+00,.7818E+00,.7563E+00,.6827E+00,.3843E+00,&
3090  .7584E+00,.7584E+00,.7584E+00,.7621E+00,.7725E+00,.7765E+00,.7782E+00,.7824E+00,.7572E+00,.6842E+00,.3865E+00,&
3091  .7572E+00,.7572E+00,.7572E+00,.7614E+00,.7733E+00,.7768E+00,.7783E+00,.7829E+00,.7581E+00,.6857E+00,.3887E+00,&
3092  .7552E+00,.7552E+00,.7552E+00,.7592E+00,.7706E+00,.7761E+00,.7784E+00,.7838E+00,.7591E+00,.6874E+00,.3911E+00,&
3093  .7606E+00,.7606E+00,.7606E+00,.7634E+00,.7715E+00,.7757E+00,.7775E+00,.7845E+00,.7601E+00,.6890E+00,.3934E+00,&
3094  .7636E+00,.7636E+00,.7636E+00,.7650E+00,.7691E+00,.7743E+00,.7765E+00,.7851E+00,.7610E+00,.6906E+00,.3957E+00,&
3095  .7645E+00,.7645E+00,.7645E+00,.7659E+00,.7699E+00,.7765E+00,.7793E+00,.7852E+00,.7622E+00,.6928E+00,.3992E+00,&
3096  .7663E+00,.7663E+00,.7663E+00,.7683E+00,.7739E+00,.7798E+00,.7823E+00,.7855E+00,.7635E+00,.6951E+00,.4025E+00,&
3097  .7665E+00,.7665E+00,.7665E+00,.7688E+00,.7755E+00,.7815E+00,.7841E+00,.7858E+00,.7647E+00,.6972E+00,.4059E+00,&
3098  .7644E+00,.7644E+00,.7644E+00,.7676E+00,.7768E+00,.7815E+00,.7835E+00,.7867E+00,.7663E+00,.7001E+00,.4103E+00,&
3099  .7592E+00,.7592E+00,.7592E+00,.7629E+00,.7736E+00,.7788E+00,.7810E+00,.7884E+00,.7680E+00,.7029E+00,.4146E+00,&
3100  .7668E+00,.7668E+00,.7668E+00,.7680E+00,.7713E+00,.7766E+00,.7789E+00,.7895E+00,.7698E+00,.7063E+00,.4199E+00,&
3101  .7693E+00,.7693E+00,.7693E+00,.7709E+00,.7755E+00,.7820E+00,.7848E+00,.7896E+00,.7718E+00,.7102E+00,.4262E+00,&
3102  .7647E+00,.7647E+00,.7647E+00,.7687E+00,.7799E+00,.7838E+00,.7855E+00,.7901E+00,.7736E+00,.7138E+00,.4323E+00,&
3103  .7652E+00,.7652E+00,.7652E+00,.7679E+00,.7755E+00,.7807E+00,.7829E+00,.7924E+00,.7763E+00,.7186E+00,.4401E+00,&
3104  .7724E+00,.7724E+00,.7724E+00,.7734E+00,.7764E+00,.7821E+00,.7846E+00,.7927E+00,.7784E+00,.7231E+00,.4478E+00,&
3105  .7688E+00,.7688E+00,.7688E+00,.7717E+00,.7798E+00,.7846E+00,.7867E+00,.7929E+00,.7808E+00,.7283E+00,.4570E+00,&
3106  .7733E+00,.7733E+00,.7733E+00,.7736E+00,.7745E+00,.7816E+00,.7847E+00,.7948E+00,.7842E+00,.7352E+00,.4693E+00,&
3107  .7681E+00,.7681E+00,.7681E+00,.7717E+00,.7821E+00,.7839E+00,.7846E+00,.7960E+00,.7873E+00,.7421E+00,.4827E+00,&
3108  .7732E+00,.7732E+00,.7732E+00,.7757E+00,.7829E+00,.7870E+00,.7888E+00,.7958E+00,.7906E+00,.7507E+00,.4999E+00,&
3109  .7765E+00,.7765E+00,.7765E+00,.7782E+00,.7832E+00,.7873E+00,.7890E+00,.7969E+00,.7954E+00,.7626E+00,.5253E+00,&
3110  .7815E+00,.7815E+00,.7815E+00,.7826E+00,.7857E+00,.7877E+00,.7886E+00,.7974E+00,.8010E+00,.7804E+00,.5681E+00/
3111  data (((g(ai,k,nh),ai= 2, 2),k=1,11),nh=0,99)/ &
3112  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3113  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3114  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3115  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3116  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3117  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3118  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3119  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3120  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3121  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3122  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3123  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3124  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3125  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3126  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3127  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3128  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3129  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3130  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3131  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3132  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3133  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3134  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3135  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3136  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3137  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3138  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3139  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3140  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3141  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3142  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3143  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3144  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3145  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3146  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3147  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3148  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3149  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3150  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3151  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3152  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3153  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3154  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3155  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3156  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3157  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3158  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3159  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3160  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3161  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3162  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3163  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3164  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3165  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3166  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3167  .5026E+00,.5026E+00,.5026E+00,.4899E+00,.4537E+00,.4320E+00,.4227E+00,.3389E+00,.2333E+00,.1307E+00,.3326E-01,&
3168  .5035E+00,.5035E+00,.5035E+00,.4908E+00,.4546E+00,.4329E+00,.4235E+00,.3396E+00,.2338E+00,.1310E+00,.3332E-01,&
3169  .5044E+00,.5044E+00,.5044E+00,.4917E+00,.4555E+00,.4337E+00,.4244E+00,.3403E+00,.2343E+00,.1312E+00,.3338E-01,&
3170  .5053E+00,.5053E+00,.5053E+00,.4926E+00,.4563E+00,.4346E+00,.4252E+00,.3410E+00,.2347E+00,.1315E+00,.3343E-01,&
3171  .5062E+00,.5062E+00,.5062E+00,.4935E+00,.4572E+00,.4354E+00,.4261E+00,.3417E+00,.2352E+00,.1317E+00,.3349E-01,&
3172  .5071E+00,.5071E+00,.5071E+00,.4944E+00,.4581E+00,.4363E+00,.4269E+00,.3424E+00,.2357E+00,.1320E+00,.3355E-01,&
3173  .5071E+00,.5071E+00,.5071E+00,.4944E+00,.4581E+00,.4363E+00,.4269E+00,.3424E+00,.2357E+00,.1320E+00,.3355E-01,&
3174  .5071E+00,.5071E+00,.5071E+00,.4944E+00,.4581E+00,.4363E+00,.4269E+00,.3424E+00,.2357E+00,.1320E+00,.3355E-01,&
3175  .5071E+00,.5071E+00,.5071E+00,.4944E+00,.4581E+00,.4363E+00,.4269E+00,.3424E+00,.2357E+00,.1320E+00,.3355E-01,&
3176  .5071E+00,.5071E+00,.5071E+00,.4944E+00,.4581E+00,.4363E+00,.4269E+00,.3424E+00,.2357E+00,.1320E+00,.3355E-01,&
3177  .5071E+00,.5071E+00,.5071E+00,.4944E+00,.4581E+00,.4363E+00,.4269E+00,.3424E+00,.2357E+00,.1320E+00,.3355E-01,&
3178  .5097E+00,.5097E+00,.5097E+00,.4970E+00,.4607E+00,.4388E+00,.4294E+00,.3445E+00,.2371E+00,.1328E+00,.3373E-01,&
3179  .5123E+00,.5123E+00,.5123E+00,.4996E+00,.4633E+00,.4413E+00,.4319E+00,.3465E+00,.2385E+00,.1336E+00,.3390E-01,&
3180  .5149E+00,.5149E+00,.5149E+00,.5021E+00,.4658E+00,.4438E+00,.4343E+00,.3486E+00,.2400E+00,.1343E+00,.3408E-01,&
3181  .5175E+00,.5175E+00,.5175E+00,.5047E+00,.4684E+00,.4463E+00,.4368E+00,.3506E+00,.2414E+00,.1351E+00,.3425E-01,&
3182  .5201E+00,.5201E+00,.5201E+00,.5073E+00,.4710E+00,.4488E+00,.4393E+00,.3527E+00,.2428E+00,.1359E+00,.3443E-01,&
3183  .5263E+00,.5263E+00,.5263E+00,.5136E+00,.4773E+00,.4550E+00,.4454E+00,.3579E+00,.2465E+00,.1379E+00,.3492E-01,&
3184  .5326E+00,.5326E+00,.5326E+00,.5198E+00,.4836E+00,.4611E+00,.4515E+00,.3631E+00,.2502E+00,.1400E+00,.3540E-01,&
3185  .5388E+00,.5388E+00,.5388E+00,.5261E+00,.4898E+00,.4673E+00,.4576E+00,.3682E+00,.2538E+00,.1420E+00,.3589E-01,&
3186  .5451E+00,.5451E+00,.5451E+00,.5323E+00,.4961E+00,.4734E+00,.4637E+00,.3734E+00,.2575E+00,.1441E+00,.3637E-01,&
3187  .5513E+00,.5513E+00,.5513E+00,.5386E+00,.5024E+00,.4796E+00,.4698E+00,.3786E+00,.2612E+00,.1461E+00,.3686E-01,&
3188  .5579E+00,.5579E+00,.5579E+00,.5453E+00,.5092E+00,.4863E+00,.4765E+00,.3845E+00,.2656E+00,.1487E+00,.3751E-01,&
3189  .5645E+00,.5645E+00,.5645E+00,.5519E+00,.5160E+00,.4930E+00,.4832E+00,.3904E+00,.2699E+00,.1513E+00,.3815E-01,&
3190  .5712E+00,.5712E+00,.5712E+00,.5586E+00,.5227E+00,.4998E+00,.4899E+00,.3962E+00,.2743E+00,.1538E+00,.3880E-01,&
3191  .5778E+00,.5778E+00,.5778E+00,.5652E+00,.5295E+00,.5065E+00,.4966E+00,.4021E+00,.2786E+00,.1564E+00,.3944E-01,&
3192  .5844E+00,.5844E+00,.5844E+00,.5719E+00,.5363E+00,.5132E+00,.5033E+00,.4080E+00,.2830E+00,.1590E+00,.4009E-01,&
3193  .5932E+00,.5932E+00,.5932E+00,.5808E+00,.5455E+00,.5224E+00,.5125E+00,.4162E+00,.2893E+00,.1628E+00,.4109E-01,&
3194  .5988E+00,.5988E+00,.5988E+00,.5865E+00,.5514E+00,.5282E+00,.5183E+00,.4216E+00,.2935E+00,.1653E+00,.4178E-01,&
3195  .6069E+00,.6069E+00,.6069E+00,.5947E+00,.5599E+00,.5368E+00,.5269E+00,.4294E+00,.2997E+00,.1691E+00,.4281E-01,&
3196  .6120E+00,.6120E+00,.6120E+00,.5999E+00,.5653E+00,.5423E+00,.5324E+00,.4346E+00,.3037E+00,.1717E+00,.4352E-01,&
3197  .6193E+00,.6193E+00,.6193E+00,.6073E+00,.5732E+00,.5502E+00,.5403E+00,.4421E+00,.3097E+00,.1755E+00,.4458E-01,&
3198  .6262E+00,.6262E+00,.6262E+00,.6144E+00,.5807E+00,.5577E+00,.5479E+00,.4493E+00,.3156E+00,.1793E+00,.4565E-01,&
3199  .6307E+00,.6307E+00,.6307E+00,.6189E+00,.5855E+00,.5627E+00,.5529E+00,.4540E+00,.3195E+00,.1818E+00,.4638E-01,&
3200  .6370E+00,.6370E+00,.6370E+00,.6254E+00,.5924E+00,.5697E+00,.5600E+00,.4610E+00,.3253E+00,.1856E+00,.4749E-01,&
3201  .6411E+00,.6411E+00,.6411E+00,.6296E+00,.5969E+00,.5743E+00,.5646E+00,.4655E+00,.3290E+00,.1881E+00,.4823E-01,&
3202  .6469E+00,.6469E+00,.6469E+00,.6356E+00,.6034E+00,.5809E+00,.5713E+00,.4720E+00,.3347E+00,.1919E+00,.4935E-01,&
3203  .6524E+00,.6524E+00,.6524E+00,.6412E+00,.6095E+00,.5872E+00,.5777E+00,.4785E+00,.3402E+00,.1956E+00,.5049E-01,&
3204  .6577E+00,.6577E+00,.6577E+00,.6467E+00,.6154E+00,.5933E+00,.5838E+00,.4847E+00,.3456E+00,.1994E+00,.5163E-01,&
3205  .6627E+00,.6627E+00,.6627E+00,.6519E+00,.6211E+00,.5991E+00,.5897E+00,.4907E+00,.3510E+00,.2031E+00,.5279E-01,&
3206  .6689E+00,.6689E+00,.6689E+00,.6583E+00,.6282E+00,.6066E+00,.5973E+00,.4986E+00,.3580E+00,.2080E+00,.5434E-01,&
3207  .6748E+00,.6748E+00,.6748E+00,.6645E+00,.6350E+00,.6136E+00,.6045E+00,.5061E+00,.3648E+00,.2129E+00,.5592E-01,&
3208  .6816E+00,.6816E+00,.6816E+00,.6716E+00,.6430E+00,.6219E+00,.6129E+00,.5151E+00,.3732E+00,.2190E+00,.5791E-01,&
3209  .6903E+00,.6903E+00,.6903E+00,.6807E+00,.6532E+00,.6327E+00,.6239E+00,.5271E+00,.3845E+00,.2273E+00,.6073E-01,&
3210  .6991E+00,.6991E+00,.6991E+00,.6899E+00,.6638E+00,.6439E+00,.6354E+00,.5399E+00,.3969E+00,.2368E+00,.6400E-01,&
3211  .7171E+00,.7171E+00,.7171E+00,.7090E+00,.6860E+00,.6677E+00,.6599E+00,.5683E+00,.4258E+00,.2598E+00,.7234E-01/
3212  data (((g(ai,k,nh),ai= 3, 3),k=1,11),nh=0,99)/ &
3213  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3214  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3215  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3216  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3217  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3218  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3219  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3220  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3221  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3222  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3223  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3224  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3225  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3226  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3227  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3228  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3229  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3230  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3231  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3232  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3233  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3234  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3235  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3236  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3237  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3238  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3239  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3240  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3241  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3242  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3243  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3244  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3245  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3246  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3247  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3248  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3249  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3250  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3251  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3252  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3253  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3254  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3255  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3256  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3257  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3258  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3259  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3260  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3261  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3262  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3263  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3264  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3265  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3266  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3267  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3268  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3269  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3270  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3271  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3272  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3273  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3274  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3275  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3276  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3277  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3278  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3279  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3280  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3281  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3282  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3283  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3284  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3285  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3286  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3287  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3288  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3289  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3290  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3291  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3292  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3293  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3294  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3295  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3296  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3297  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3298  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3299  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3300  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3301  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3302  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3303  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3304  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3305  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3306  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3307  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3308  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3309  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3310  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3311  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3312  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00/
3313  data (((g(ai,k,nh),ai= 4, 4),k=1,11),nh=0,99)/ &
3314  .6863E+00,.6863E+00,.6863E+00,.6784E+00,.6558E+00,.6469E+00,.6431E+00,.6051E+00,.5364E+00,.4244E+00,.1937E+00,&
3315  .6873E+00,.6873E+00,.6873E+00,.6795E+00,.6572E+00,.6484E+00,.6446E+00,.6066E+00,.5377E+00,.4255E+00,.1943E+00,&
3316  .6884E+00,.6884E+00,.6884E+00,.6806E+00,.6586E+00,.6498E+00,.6461E+00,.6081E+00,.5390E+00,.4266E+00,.1949E+00,&
3317  .6894E+00,.6894E+00,.6894E+00,.6818E+00,.6599E+00,.6513E+00,.6475E+00,.6095E+00,.5404E+00,.4278E+00,.1955E+00,&
3318  .6905E+00,.6905E+00,.6905E+00,.6829E+00,.6613E+00,.6527E+00,.6490E+00,.6110E+00,.5417E+00,.4289E+00,.1961E+00,&
3319  .6915E+00,.6915E+00,.6915E+00,.6840E+00,.6627E+00,.6542E+00,.6505E+00,.6125E+00,.5430E+00,.4300E+00,.1967E+00,&
3320  .6925E+00,.6925E+00,.6925E+00,.6850E+00,.6640E+00,.6555E+00,.6518E+00,.6139E+00,.5443E+00,.4311E+00,.1973E+00,&
3321  .6934E+00,.6934E+00,.6934E+00,.6861E+00,.6652E+00,.6567E+00,.6530E+00,.6153E+00,.5456E+00,.4322E+00,.1979E+00,&
3322  .6944E+00,.6944E+00,.6944E+00,.6871E+00,.6665E+00,.6580E+00,.6543E+00,.6166E+00,.5468E+00,.4334E+00,.1986E+00,&
3323  .6953E+00,.6953E+00,.6953E+00,.6882E+00,.6677E+00,.6592E+00,.6555E+00,.6180E+00,.5481E+00,.4345E+00,.1992E+00,&
3324  .6963E+00,.6963E+00,.6963E+00,.6892E+00,.6690E+00,.6605E+00,.6568E+00,.6194E+00,.5494E+00,.4356E+00,.1998E+00,&
3325  .6973E+00,.6973E+00,.6973E+00,.6902E+00,.6701E+00,.6617E+00,.6580E+00,.6207E+00,.5506E+00,.4367E+00,.2004E+00,&
3326  .6982E+00,.6982E+00,.6982E+00,.6912E+00,.6712E+00,.6628E+00,.6592E+00,.6220E+00,.5518E+00,.4378E+00,.2010E+00,&
3327  .6992E+00,.6992E+00,.6992E+00,.6922E+00,.6722E+00,.6640E+00,.6605E+00,.6233E+00,.5531E+00,.4388E+00,.2016E+00,&
3328  .7001E+00,.7001E+00,.7001E+00,.6932E+00,.6733E+00,.6651E+00,.6617E+00,.6246E+00,.5543E+00,.4399E+00,.2022E+00,&
3329  .7011E+00,.7011E+00,.7011E+00,.6942E+00,.6744E+00,.6663E+00,.6629E+00,.6259E+00,.5555E+00,.4410E+00,.2028E+00,&
3330  .7020E+00,.7020E+00,.7020E+00,.6952E+00,.6756E+00,.6676E+00,.6642E+00,.6271E+00,.5567E+00,.4421E+00,.2034E+00,&
3331  .7029E+00,.7029E+00,.7029E+00,.6961E+00,.6767E+00,.6689E+00,.6655E+00,.6283E+00,.5578E+00,.4431E+00,.2040E+00,&
3332  .7038E+00,.7038E+00,.7038E+00,.6971E+00,.6779E+00,.6701E+00,.6669E+00,.6296E+00,.5590E+00,.4442E+00,.2047E+00,&
3333  .7047E+00,.7047E+00,.7047E+00,.6980E+00,.6790E+00,.6714E+00,.6682E+00,.6308E+00,.5601E+00,.4452E+00,.2053E+00,&
3334  .7056E+00,.7056E+00,.7056E+00,.6990E+00,.6802E+00,.6727E+00,.6695E+00,.6320E+00,.5613E+00,.4463E+00,.2059E+00,&
3335  .7064E+00,.7064E+00,.7064E+00,.6999E+00,.6813E+00,.6739E+00,.6707E+00,.6332E+00,.5624E+00,.4473E+00,.2065E+00,&
3336  .7072E+00,.7072E+00,.7072E+00,.7008E+00,.6825E+00,.6750E+00,.6718E+00,.6343E+00,.5636E+00,.4484E+00,.2071E+00,&
3337  .7081E+00,.7081E+00,.7081E+00,.7017E+00,.6836E+00,.6762E+00,.6730E+00,.6355E+00,.5647E+00,.4494E+00,.2077E+00,&
3338  .7089E+00,.7089E+00,.7089E+00,.7026E+00,.6848E+00,.6773E+00,.6741E+00,.6366E+00,.5659E+00,.4505E+00,.2083E+00,&
3339  .7097E+00,.7097E+00,.7097E+00,.7035E+00,.6859E+00,.6785E+00,.6753E+00,.6378E+00,.5670E+00,.4515E+00,.2089E+00,&
3340  .7104E+00,.7104E+00,.7104E+00,.7043E+00,.6869E+00,.6795E+00,.6764E+00,.6389E+00,.5681E+00,.4525E+00,.2095E+00,&
3341  .7111E+00,.7111E+00,.7111E+00,.7051E+00,.6880E+00,.6806E+00,.6774E+00,.6401E+00,.5692E+00,.4535E+00,.2101E+00,&
3342  .7119E+00,.7119E+00,.7119E+00,.7059E+00,.6890E+00,.6816E+00,.6785E+00,.6412E+00,.5703E+00,.4546E+00,.2108E+00,&
3343  .7126E+00,.7126E+00,.7126E+00,.7067E+00,.6901E+00,.6827E+00,.6795E+00,.6424E+00,.5714E+00,.4556E+00,.2114E+00,&
3344  .7133E+00,.7133E+00,.7133E+00,.7075E+00,.6911E+00,.6837E+00,.6806E+00,.6435E+00,.5725E+00,.4566E+00,.2120E+00,&
3345  .7140E+00,.7140E+00,.7140E+00,.7082E+00,.6920E+00,.6846E+00,.6815E+00,.6446E+00,.5736E+00,.4576E+00,.2126E+00,&
3346  .7147E+00,.7147E+00,.7147E+00,.7090E+00,.6929E+00,.6855E+00,.6824E+00,.6457E+00,.5746E+00,.4586E+00,.2132E+00,&
3347  .7153E+00,.7153E+00,.7153E+00,.7097E+00,.6937E+00,.6864E+00,.6833E+00,.6468E+00,.5757E+00,.4597E+00,.2139E+00,&
3348  .7160E+00,.7160E+00,.7160E+00,.7105E+00,.6946E+00,.6873E+00,.6842E+00,.6479E+00,.5767E+00,.4607E+00,.2145E+00,&
3349  .7167E+00,.7167E+00,.7167E+00,.7112E+00,.6955E+00,.6882E+00,.6851E+00,.6490E+00,.5778E+00,.4617E+00,.2151E+00,&
3350  .7174E+00,.7174E+00,.7174E+00,.7119E+00,.6962E+00,.6890E+00,.6860E+00,.6500E+00,.5788E+00,.4627E+00,.2157E+00,&
3351  .7181E+00,.7181E+00,.7181E+00,.7126E+00,.6970E+00,.6898E+00,.6868E+00,.6510E+00,.5798E+00,.4637E+00,.2163E+00,&
3352  .7189E+00,.7189E+00,.7189E+00,.7134E+00,.6977E+00,.6907E+00,.6877E+00,.6520E+00,.5809E+00,.4646E+00,.2170E+00,&
3353  .7196E+00,.7196E+00,.7196E+00,.7141E+00,.6985E+00,.6915E+00,.6885E+00,.6530E+00,.5819E+00,.4656E+00,.2176E+00,&
3354  .7203E+00,.7203E+00,.7203E+00,.7148E+00,.6992E+00,.6923E+00,.6894E+00,.6540E+00,.5829E+00,.4666E+00,.2182E+00,&
3355  .7210E+00,.7210E+00,.7210E+00,.7155E+00,.7000E+00,.6933E+00,.6904E+00,.6549E+00,.5839E+00,.4676E+00,.2188E+00,&
3356  .7217E+00,.7217E+00,.7217E+00,.7162E+00,.7009E+00,.6943E+00,.6915E+00,.6559E+00,.5849E+00,.4685E+00,.2194E+00,&
3357  .7223E+00,.7223E+00,.7223E+00,.7170E+00,.7017E+00,.6952E+00,.6925E+00,.6568E+00,.5858E+00,.4695E+00,.2200E+00,&
3358  .7230E+00,.7230E+00,.7230E+00,.7177E+00,.7026E+00,.6962E+00,.6936E+00,.6578E+00,.5868E+00,.4704E+00,.2206E+00,&
3359  .7237E+00,.7237E+00,.7237E+00,.7184E+00,.7034E+00,.6972E+00,.6946E+00,.6587E+00,.5878E+00,.4714E+00,.2212E+00,&
3360  .7243E+00,.7243E+00,.7243E+00,.7191E+00,.7043E+00,.6981E+00,.6955E+00,.6596E+00,.5888E+00,.4723E+00,.2218E+00,&
3361  .7249E+00,.7249E+00,.7249E+00,.7198E+00,.7052E+00,.6990E+00,.6964E+00,.6605E+00,.5897E+00,.4733E+00,.2224E+00,&
3362  .7255E+00,.7255E+00,.7255E+00,.7204E+00,.7062E+00,.7000E+00,.6973E+00,.6614E+00,.5907E+00,.4742E+00,.2231E+00,&
3363  .7261E+00,.7261E+00,.7261E+00,.7211E+00,.7071E+00,.7009E+00,.6982E+00,.6623E+00,.5916E+00,.4752E+00,.2237E+00,&
3364  .7267E+00,.7267E+00,.7267E+00,.7218E+00,.7080E+00,.7018E+00,.6991E+00,.6632E+00,.5926E+00,.4761E+00,.2243E+00,&
3365  .7273E+00,.7273E+00,.7273E+00,.7225E+00,.7089E+00,.7027E+00,.7000E+00,.6643E+00,.5937E+00,.4772E+00,.2250E+00,&
3366  .7279E+00,.7279E+00,.7279E+00,.7232E+00,.7099E+00,.7036E+00,.7009E+00,.6654E+00,.5948E+00,.4783E+00,.2258E+00,&
3367  .7284E+00,.7284E+00,.7284E+00,.7238E+00,.7108E+00,.7046E+00,.7019E+00,.6664E+00,.5960E+00,.4795E+00,.2265E+00,&
3368  .7290E+00,.7290E+00,.7290E+00,.7245E+00,.7118E+00,.7055E+00,.7028E+00,.6675E+00,.5971E+00,.4806E+00,.2273E+00,&
3369  .7296E+00,.7296E+00,.7296E+00,.7252E+00,.7127E+00,.7064E+00,.7037E+00,.6686E+00,.5982E+00,.4817E+00,.2280E+00,&
3370  .7302E+00,.7302E+00,.7302E+00,.7258E+00,.7134E+00,.7071E+00,.7045E+00,.6696E+00,.5993E+00,.4828E+00,.2287E+00,&
3371  .7307E+00,.7307E+00,.7307E+00,.7264E+00,.7141E+00,.7079E+00,.7052E+00,.6706E+00,.6003E+00,.4839E+00,.2295E+00,&
3372  .7313E+00,.7313E+00,.7313E+00,.7270E+00,.7148E+00,.7086E+00,.7060E+00,.6717E+00,.6014E+00,.4849E+00,.2302E+00,&
3373  .7318E+00,.7318E+00,.7318E+00,.7276E+00,.7155E+00,.7094E+00,.7067E+00,.6727E+00,.6024E+00,.4860E+00,.2310E+00,&
3374  .7324E+00,.7324E+00,.7324E+00,.7282E+00,.7162E+00,.7101E+00,.7075E+00,.6737E+00,.6035E+00,.4871E+00,.2317E+00,&
3375  .7330E+00,.7330E+00,.7330E+00,.7287E+00,.7167E+00,.7107E+00,.7081E+00,.6745E+00,.6043E+00,.4880E+00,.2323E+00,&
3376  .7336E+00,.7336E+00,.7336E+00,.7293E+00,.7171E+00,.7113E+00,.7088E+00,.6753E+00,.6052E+00,.4889E+00,.2329E+00,&
3377  .7341E+00,.7341E+00,.7341E+00,.7298E+00,.7176E+00,.7118E+00,.7094E+00,.6760E+00,.6060E+00,.4897E+00,.2335E+00,&
3378  .7347E+00,.7347E+00,.7347E+00,.7304E+00,.7180E+00,.7124E+00,.7101E+00,.6768E+00,.6069E+00,.4906E+00,.2341E+00,&
3379  .7353E+00,.7353E+00,.7353E+00,.7309E+00,.7185E+00,.7130E+00,.7107E+00,.6776E+00,.6077E+00,.4915E+00,.2347E+00,&
3380  .7359E+00,.7359E+00,.7359E+00,.7316E+00,.7194E+00,.7140E+00,.7117E+00,.6785E+00,.6087E+00,.4925E+00,.2354E+00,&
3381  .7366E+00,.7366E+00,.7366E+00,.7323E+00,.7202E+00,.7149E+00,.7127E+00,.6793E+00,.6097E+00,.4936E+00,.2362E+00,&
3382  .7372E+00,.7372E+00,.7372E+00,.7330E+00,.7211E+00,.7159E+00,.7136E+00,.6802E+00,.6106E+00,.4946E+00,.2369E+00,&
3383  .7379E+00,.7379E+00,.7379E+00,.7337E+00,.7219E+00,.7168E+00,.7146E+00,.6810E+00,.6116E+00,.4957E+00,.2377E+00,&
3384  .7385E+00,.7385E+00,.7385E+00,.7344E+00,.7228E+00,.7178E+00,.7156E+00,.6819E+00,.6126E+00,.4967E+00,.2384E+00,&
3385  .7391E+00,.7391E+00,.7391E+00,.7352E+00,.7240E+00,.7189E+00,.7167E+00,.6832E+00,.6140E+00,.4982E+00,.2395E+00,&
3386  .7397E+00,.7397E+00,.7397E+00,.7360E+00,.7252E+00,.7201E+00,.7178E+00,.6845E+00,.6154E+00,.4997E+00,.2406E+00,&
3387  .7404E+00,.7404E+00,.7404E+00,.7367E+00,.7264E+00,.7212E+00,.7190E+00,.6857E+00,.6169E+00,.5012E+00,.2416E+00,&
3388  .7410E+00,.7410E+00,.7410E+00,.7375E+00,.7276E+00,.7224E+00,.7201E+00,.6870E+00,.6183E+00,.5027E+00,.2427E+00,&
3389  .7416E+00,.7416E+00,.7416E+00,.7383E+00,.7288E+00,.7235E+00,.7212E+00,.6883E+00,.6197E+00,.5042E+00,.2438E+00,&
3390  .7425E+00,.7425E+00,.7425E+00,.7392E+00,.7296E+00,.7245E+00,.7223E+00,.6899E+00,.6215E+00,.5061E+00,.2452E+00,&
3391  .7434E+00,.7434E+00,.7434E+00,.7401E+00,.7305E+00,.7255E+00,.7234E+00,.6915E+00,.6232E+00,.5080E+00,.2467E+00,&
3392  .7443E+00,.7443E+00,.7443E+00,.7409E+00,.7313E+00,.7265E+00,.7244E+00,.6930E+00,.6250E+00,.5100E+00,.2481E+00,&
3393  .7452E+00,.7452E+00,.7452E+00,.7418E+00,.7322E+00,.7275E+00,.7255E+00,.6946E+00,.6267E+00,.5119E+00,.2496E+00,&
3394  .7461E+00,.7461E+00,.7461E+00,.7427E+00,.7330E+00,.7285E+00,.7266E+00,.6962E+00,.6285E+00,.5138E+00,.2510E+00,&
3395  .7475E+00,.7475E+00,.7475E+00,.7440E+00,.7342E+00,.7304E+00,.7287E+00,.6979E+00,.6306E+00,.5161E+00,.2528E+00,&
3396  .7487E+00,.7487E+00,.7487E+00,.7455E+00,.7362E+00,.7323E+00,.7307E+00,.6996E+00,.6327E+00,.5185E+00,.2546E+00,&
3397  .7498E+00,.7498E+00,.7498E+00,.7468E+00,.7381E+00,.7340E+00,.7323E+00,.7013E+00,.6347E+00,.5208E+00,.2563E+00,&
3398  .7504E+00,.7504E+00,.7504E+00,.7476E+00,.7396E+00,.7358E+00,.7341E+00,.7029E+00,.6367E+00,.5230E+00,.2581E+00,&
3399  .7511E+00,.7511E+00,.7511E+00,.7487E+00,.7417E+00,.7374E+00,.7356E+00,.7052E+00,.6393E+00,.5260E+00,.2604E+00,&
3400  .7516E+00,.7516E+00,.7516E+00,.7493E+00,.7428E+00,.7386E+00,.7368E+00,.7074E+00,.6419E+00,.5289E+00,.2627E+00,&
3401  .7528E+00,.7528E+00,.7528E+00,.7505E+00,.7439E+00,.7399E+00,.7382E+00,.7101E+00,.6450E+00,.5325E+00,.2656E+00,&
3402  .7550E+00,.7550E+00,.7550E+00,.7523E+00,.7447E+00,.7414E+00,.7400E+00,.7125E+00,.6480E+00,.5360E+00,.2685E+00,&
3403  .7572E+00,.7572E+00,.7572E+00,.7547E+00,.7476E+00,.7447E+00,.7434E+00,.7152E+00,.6515E+00,.5401E+00,.2719E+00,&
3404  .7582E+00,.7582E+00,.7582E+00,.7562E+00,.7504E+00,.7475E+00,.7462E+00,.7178E+00,.6548E+00,.5442E+00,.2753E+00,&
3405  .7585E+00,.7585E+00,.7585E+00,.7570E+00,.7528E+00,.7494E+00,.7479E+00,.7210E+00,.6587E+00,.5488E+00,.2792E+00,&
3406  .7599E+00,.7599E+00,.7599E+00,.7583E+00,.7537E+00,.7505E+00,.7492E+00,.7245E+00,.6629E+00,.5540E+00,.2837E+00,&
3407  .7634E+00,.7634E+00,.7634E+00,.7615E+00,.7561E+00,.7542E+00,.7534E+00,.7280E+00,.6678E+00,.5601E+00,.2891E+00,&
3408  .7641E+00,.7641E+00,.7641E+00,.7632E+00,.7605E+00,.7580E+00,.7569E+00,.7319E+00,.6731E+00,.5667E+00,.2950E+00,&
3409  .7661E+00,.7661E+00,.7661E+00,.7648E+00,.7612E+00,.7593E+00,.7585E+00,.7372E+00,.6797E+00,.5753E+00,.3029E+00,&
3410  .7685E+00,.7685E+00,.7685E+00,.7681E+00,.7671E+00,.7653E+00,.7646E+00,.7424E+00,.6874E+00,.5854E+00,.3127E+00,&
3411  .7715E+00,.7715E+00,.7715E+00,.7704E+00,.7673E+00,.7672E+00,.7672E+00,.7483E+00,.6956E+00,.5964E+00,.3236E+00,&
3412  .7737E+00,.7737E+00,.7737E+00,.7731E+00,.7715E+00,.7715E+00,.7715E+00,.7564E+00,.7073E+00,.6128E+00,.3406E+00,&
3413  .7776E+00,.7776E+00,.7776E+00,.7780E+00,.7792E+00,.7799E+00,.7802E+00,.7657E+00,.7227E+00,.6356E+00,.3661E+00/
3414  data (((g(ai,k,nh),ai= 5, 5),k=1,11),nh=0,99)/ &
3415  .7187E+00,.7187E+00,.7187E+00,.7166E+00,.7105E+00,.7031E+00,.6999E+00,.6976E+00,.7051E+00,.7042E+00,.5544E+00,&
3416  .7215E+00,.7215E+00,.7215E+00,.7195E+00,.7137E+00,.7062E+00,.7030E+00,.7007E+00,.7082E+00,.7074E+00,.5579E+00,&
3417  .7243E+00,.7243E+00,.7243E+00,.7224E+00,.7169E+00,.7094E+00,.7062E+00,.7038E+00,.7112E+00,.7106E+00,.5615E+00,&
3418  .7270E+00,.7270E+00,.7270E+00,.7252E+00,.7200E+00,.7125E+00,.7093E+00,.7070E+00,.7143E+00,.7137E+00,.5650E+00,&
3419  .7298E+00,.7298E+00,.7298E+00,.7281E+00,.7232E+00,.7157E+00,.7125E+00,.7101E+00,.7173E+00,.7169E+00,.5686E+00,&
3420  .7326E+00,.7326E+00,.7326E+00,.7310E+00,.7264E+00,.7188E+00,.7156E+00,.7132E+00,.7204E+00,.7201E+00,.5721E+00,&
3421  .7360E+00,.7360E+00,.7360E+00,.7340E+00,.7283E+00,.7209E+00,.7177E+00,.7153E+00,.7230E+00,.7229E+00,.5752E+00,&
3422  .7393E+00,.7393E+00,.7393E+00,.7370E+00,.7302E+00,.7229E+00,.7198E+00,.7174E+00,.7256E+00,.7257E+00,.5782E+00,&
3423  .7427E+00,.7427E+00,.7427E+00,.7399E+00,.7322E+00,.7250E+00,.7219E+00,.7194E+00,.7283E+00,.7284E+00,.5813E+00,&
3424  .7460E+00,.7460E+00,.7460E+00,.7429E+00,.7341E+00,.7270E+00,.7240E+00,.7215E+00,.7309E+00,.7312E+00,.5843E+00,&
3425  .7494E+00,.7494E+00,.7494E+00,.7459E+00,.7360E+00,.7291E+00,.7261E+00,.7236E+00,.7335E+00,.7340E+00,.5874E+00,&
3426  .7493E+00,.7493E+00,.7493E+00,.7465E+00,.7385E+00,.7310E+00,.7277E+00,.7262E+00,.7354E+00,.7363E+00,.5902E+00,&
3427  .7492E+00,.7492E+00,.7492E+00,.7470E+00,.7410E+00,.7328E+00,.7293E+00,.7289E+00,.7372E+00,.7386E+00,.5929E+00,&
3428  .7490E+00,.7490E+00,.7490E+00,.7476E+00,.7436E+00,.7347E+00,.7308E+00,.7315E+00,.7391E+00,.7408E+00,.5957E+00,&
3429  .7489E+00,.7489E+00,.7489E+00,.7481E+00,.7461E+00,.7365E+00,.7324E+00,.7342E+00,.7409E+00,.7431E+00,.5984E+00,&
3430  .7488E+00,.7488E+00,.7488E+00,.7487E+00,.7486E+00,.7384E+00,.7340E+00,.7368E+00,.7428E+00,.7454E+00,.6012E+00,&
3431  .7525E+00,.7525E+00,.7525E+00,.7518E+00,.7497E+00,.7405E+00,.7366E+00,.7377E+00,.7446E+00,.7473E+00,.6037E+00,&
3432  .7563E+00,.7563E+00,.7563E+00,.7548E+00,.7507E+00,.7427E+00,.7392E+00,.7387E+00,.7464E+00,.7492E+00,.6062E+00,&
3433  .7600E+00,.7600E+00,.7600E+00,.7579E+00,.7518E+00,.7448E+00,.7419E+00,.7396E+00,.7483E+00,.7511E+00,.6087E+00,&
3434  .7638E+00,.7638E+00,.7638E+00,.7609E+00,.7528E+00,.7470E+00,.7445E+00,.7406E+00,.7501E+00,.7530E+00,.6112E+00,&
3435  .7675E+00,.7675E+00,.7675E+00,.7640E+00,.7539E+00,.7491E+00,.7471E+00,.7415E+00,.7519E+00,.7549E+00,.6137E+00,&
3436  .7670E+00,.7670E+00,.7670E+00,.7640E+00,.7554E+00,.7500E+00,.7477E+00,.7437E+00,.7532E+00,.7566E+00,.6160E+00,&
3437  .7664E+00,.7664E+00,.7664E+00,.7640E+00,.7569E+00,.7508E+00,.7483E+00,.7459E+00,.7545E+00,.7583E+00,.6183E+00,&
3438  .7659E+00,.7659E+00,.7659E+00,.7639E+00,.7583E+00,.7517E+00,.7488E+00,.7481E+00,.7559E+00,.7601E+00,.6207E+00,&
3439  .7653E+00,.7653E+00,.7653E+00,.7639E+00,.7598E+00,.7525E+00,.7494E+00,.7503E+00,.7572E+00,.7618E+00,.6230E+00,&
3440  .7648E+00,.7648E+00,.7648E+00,.7639E+00,.7613E+00,.7534E+00,.7500E+00,.7525E+00,.7585E+00,.7635E+00,.6253E+00,&
3441  .7672E+00,.7672E+00,.7672E+00,.7659E+00,.7623E+00,.7552E+00,.7521E+00,.7528E+00,.7597E+00,.7649E+00,.6274E+00,&
3442  .7696E+00,.7696E+00,.7696E+00,.7679E+00,.7633E+00,.7570E+00,.7543E+00,.7531E+00,.7609E+00,.7662E+00,.6295E+00,&
3443  .7719E+00,.7719E+00,.7719E+00,.7700E+00,.7642E+00,.7588E+00,.7564E+00,.7535E+00,.7621E+00,.7676E+00,.6316E+00,&
3444  .7743E+00,.7743E+00,.7743E+00,.7720E+00,.7652E+00,.7606E+00,.7586E+00,.7538E+00,.7633E+00,.7689E+00,.6337E+00,&
3445  .7767E+00,.7767E+00,.7767E+00,.7740E+00,.7662E+00,.7624E+00,.7607E+00,.7541E+00,.7645E+00,.7703E+00,.6358E+00,&
3446  .7752E+00,.7752E+00,.7752E+00,.7730E+00,.7665E+00,.7633E+00,.7618E+00,.7557E+00,.7654E+00,.7716E+00,.6378E+00,&
3447  .7738E+00,.7738E+00,.7738E+00,.7720E+00,.7669E+00,.7642E+00,.7630E+00,.7573E+00,.7662E+00,.7728E+00,.6398E+00,&
3448  .7723E+00,.7723E+00,.7723E+00,.7710E+00,.7672E+00,.7650E+00,.7641E+00,.7590E+00,.7671E+00,.7741E+00,.6418E+00,&
3449  .7709E+00,.7709E+00,.7709E+00,.7700E+00,.7676E+00,.7659E+00,.7653E+00,.7606E+00,.7679E+00,.7753E+00,.6438E+00,&
3450  .7694E+00,.7694E+00,.7694E+00,.7690E+00,.7679E+00,.7668E+00,.7664E+00,.7622E+00,.7688E+00,.7766E+00,.6458E+00,&
3451  .7724E+00,.7724E+00,.7724E+00,.7717E+00,.7699E+00,.7683E+00,.7677E+00,.7625E+00,.7697E+00,.7776E+00,.6476E+00,&
3452  .7754E+00,.7754E+00,.7754E+00,.7745E+00,.7718E+00,.7698E+00,.7690E+00,.7629E+00,.7706E+00,.7787E+00,.6494E+00,&
3453  .7785E+00,.7785E+00,.7785E+00,.7772E+00,.7738E+00,.7713E+00,.7703E+00,.7632E+00,.7714E+00,.7797E+00,.6513E+00,&
3454  .7815E+00,.7815E+00,.7815E+00,.7800E+00,.7757E+00,.7728E+00,.7716E+00,.7636E+00,.7723E+00,.7808E+00,.6531E+00,&
3455  .7845E+00,.7845E+00,.7845E+00,.7827E+00,.7777E+00,.7743E+00,.7729E+00,.7639E+00,.7732E+00,.7818E+00,.6549E+00,&
3456  .7844E+00,.7844E+00,.7844E+00,.7829E+00,.7788E+00,.7744E+00,.7725E+00,.7651E+00,.7739E+00,.7827E+00,.6566E+00,&
3457  .7843E+00,.7843E+00,.7843E+00,.7831E+00,.7799E+00,.7745E+00,.7721E+00,.7663E+00,.7746E+00,.7836E+00,.6584E+00,&
3458  .7842E+00,.7842E+00,.7842E+00,.7834E+00,.7811E+00,.7745E+00,.7718E+00,.7675E+00,.7752E+00,.7844E+00,.6601E+00,&
3459  .7841E+00,.7841E+00,.7841E+00,.7836E+00,.7822E+00,.7746E+00,.7714E+00,.7687E+00,.7759E+00,.7853E+00,.6619E+00,&
3460  .7840E+00,.7840E+00,.7840E+00,.7838E+00,.7833E+00,.7747E+00,.7710E+00,.7699E+00,.7766E+00,.7862E+00,.6636E+00,&
3461  .7850E+00,.7850E+00,.7850E+00,.7845E+00,.7832E+00,.7755E+00,.7722E+00,.7707E+00,.7773E+00,.7871E+00,.6652E+00,&
3462  .7859E+00,.7859E+00,.7859E+00,.7852E+00,.7831E+00,.7763E+00,.7734E+00,.7715E+00,.7780E+00,.7880E+00,.6668E+00,&
3463  .7869E+00,.7869E+00,.7869E+00,.7859E+00,.7831E+00,.7772E+00,.7747E+00,.7723E+00,.7786E+00,.7890E+00,.6683E+00,&
3464  .7878E+00,.7878E+00,.7878E+00,.7866E+00,.7830E+00,.7780E+00,.7759E+00,.7731E+00,.7793E+00,.7899E+00,.6699E+00,&
3465  .7888E+00,.7888E+00,.7888E+00,.7873E+00,.7829E+00,.7788E+00,.7771E+00,.7739E+00,.7800E+00,.7908E+00,.6715E+00,&
3466  .7892E+00,.7892E+00,.7892E+00,.7878E+00,.7838E+00,.7799E+00,.7783E+00,.7736E+00,.7801E+00,.7912E+00,.6728E+00,&
3467  .7895E+00,.7895E+00,.7895E+00,.7883E+00,.7847E+00,.7810E+00,.7795E+00,.7733E+00,.7801E+00,.7916E+00,.6740E+00,&
3468  .7899E+00,.7899E+00,.7899E+00,.7888E+00,.7856E+00,.7822E+00,.7807E+00,.7731E+00,.7802E+00,.7921E+00,.6753E+00,&
3469  .7902E+00,.7902E+00,.7902E+00,.7893E+00,.7865E+00,.7833E+00,.7819E+00,.7728E+00,.7802E+00,.7925E+00,.6765E+00,&
3470  .7906E+00,.7906E+00,.7906E+00,.7898E+00,.7874E+00,.7844E+00,.7831E+00,.7725E+00,.7803E+00,.7929E+00,.6778E+00,&
3471  .7902E+00,.7902E+00,.7902E+00,.7894E+00,.7868E+00,.7844E+00,.7834E+00,.7737E+00,.7809E+00,.7936E+00,.6790E+00,&
3472  .7898E+00,.7898E+00,.7898E+00,.7889E+00,.7862E+00,.7845E+00,.7837E+00,.7749E+00,.7815E+00,.7943E+00,.6802E+00,&
3473  .7895E+00,.7895E+00,.7895E+00,.7885E+00,.7856E+00,.7845E+00,.7841E+00,.7761E+00,.7820E+00,.7949E+00,.6814E+00,&
3474  .7891E+00,.7891E+00,.7891E+00,.7880E+00,.7850E+00,.7846E+00,.7844E+00,.7773E+00,.7826E+00,.7956E+00,.6826E+00,&
3475  .7887E+00,.7887E+00,.7887E+00,.7876E+00,.7844E+00,.7846E+00,.7847E+00,.7785E+00,.7832E+00,.7963E+00,.6838E+00,&
3476  .7903E+00,.7903E+00,.7903E+00,.7891E+00,.7858E+00,.7846E+00,.7841E+00,.7789E+00,.7836E+00,.7968E+00,.6849E+00,&
3477  .7918E+00,.7918E+00,.7918E+00,.7906E+00,.7873E+00,.7847E+00,.7836E+00,.7793E+00,.7840E+00,.7973E+00,.6860E+00,&
3478  .7934E+00,.7934E+00,.7934E+00,.7922E+00,.7887E+00,.7847E+00,.7830E+00,.7798E+00,.7844E+00,.7977E+00,.6872E+00,&
3479  .7949E+00,.7949E+00,.7949E+00,.7937E+00,.7902E+00,.7848E+00,.7825E+00,.7802E+00,.7848E+00,.7982E+00,.6883E+00,&
3480  .7965E+00,.7965E+00,.7965E+00,.7952E+00,.7916E+00,.7848E+00,.7819E+00,.7806E+00,.7852E+00,.7987E+00,.6894E+00,&
3481  .7966E+00,.7966E+00,.7966E+00,.7955E+00,.7924E+00,.7860E+00,.7832E+00,.7802E+00,.7852E+00,.7990E+00,.6905E+00,&
3482  .7968E+00,.7968E+00,.7968E+00,.7958E+00,.7933E+00,.7871E+00,.7845E+00,.7798E+00,.7851E+00,.7993E+00,.6916E+00,&
3483  .7969E+00,.7969E+00,.7969E+00,.7962E+00,.7941E+00,.7883E+00,.7858E+00,.7793E+00,.7851E+00,.7995E+00,.6926E+00,&
3484  .7971E+00,.7971E+00,.7971E+00,.7965E+00,.7950E+00,.7894E+00,.7871E+00,.7789E+00,.7850E+00,.7998E+00,.6937E+00,&
3485  .7972E+00,.7972E+00,.7972E+00,.7968E+00,.7958E+00,.7906E+00,.7884E+00,.7785E+00,.7850E+00,.8001E+00,.6948E+00,&
3486  .7978E+00,.7978E+00,.7978E+00,.7973E+00,.7958E+00,.7899E+00,.7874E+00,.7798E+00,.7856E+00,.8009E+00,.6964E+00,&
3487  .7984E+00,.7984E+00,.7984E+00,.7977E+00,.7958E+00,.7892E+00,.7864E+00,.7811E+00,.7862E+00,.8017E+00,.6981E+00,&
3488  .7991E+00,.7991E+00,.7991E+00,.7982E+00,.7957E+00,.7884E+00,.7853E+00,.7825E+00,.7869E+00,.8025E+00,.6997E+00,&
3489  .7997E+00,.7997E+00,.7997E+00,.7986E+00,.7957E+00,.7877E+00,.7843E+00,.7838E+00,.7875E+00,.8033E+00,.7014E+00,&
3490  .8003E+00,.8003E+00,.8003E+00,.7991E+00,.7957E+00,.7870E+00,.7833E+00,.7851E+00,.7881E+00,.8041E+00,.7030E+00,&
3491  .8014E+00,.8014E+00,.8014E+00,.8000E+00,.7963E+00,.7896E+00,.7868E+00,.7850E+00,.7884E+00,.8046E+00,.7049E+00,&
3492  .8024E+00,.8024E+00,.8024E+00,.8010E+00,.7969E+00,.7923E+00,.7903E+00,.7848E+00,.7887E+00,.8050E+00,.7067E+00,&
3493  .8035E+00,.8035E+00,.8035E+00,.8019E+00,.7974E+00,.7949E+00,.7939E+00,.7847E+00,.7889E+00,.8055E+00,.7086E+00,&
3494  .8045E+00,.8045E+00,.8045E+00,.8029E+00,.7980E+00,.7976E+00,.7974E+00,.7845E+00,.7892E+00,.8059E+00,.7104E+00,&
3495  .8056E+00,.8056E+00,.8056E+00,.8038E+00,.7986E+00,.8002E+00,.8009E+00,.7844E+00,.7895E+00,.8064E+00,.7123E+00,&
3496  .8054E+00,.8054E+00,.8054E+00,.8052E+00,.8047E+00,.7964E+00,.7928E+00,.7879E+00,.7901E+00,.8073E+00,.7144E+00,&
3497  .8082E+00,.8082E+00,.8082E+00,.8068E+00,.8028E+00,.7968E+00,.7943E+00,.7902E+00,.7920E+00,.8089E+00,.7172E+00,&
3498  .8115E+00,.8115E+00,.8115E+00,.8077E+00,.7968E+00,.7989E+00,.7998E+00,.7874E+00,.7920E+00,.8095E+00,.7196E+00,&
3499  .8037E+00,.8037E+00,.8037E+00,.8036E+00,.8035E+00,.8021E+00,.8015E+00,.7885E+00,.7914E+00,.8094E+00,.7219E+00,&
3500  .8088E+00,.8088E+00,.8088E+00,.8089E+00,.8091E+00,.8006E+00,.7970E+00,.7886E+00,.7905E+00,.8100E+00,.7253E+00,&
3501  .8108E+00,.8108E+00,.8108E+00,.8100E+00,.8079E+00,.8016E+00,.7989E+00,.7911E+00,.7927E+00,.8108E+00,.7279E+00,&
3502  .8149E+00,.8149E+00,.8149E+00,.8139E+00,.8109E+00,.8047E+00,.8021E+00,.7944E+00,.7943E+00,.8127E+00,.7310E+00,&
3503  .8175E+00,.8175E+00,.8175E+00,.8140E+00,.8042E+00,.8027E+00,.8021E+00,.7922E+00,.7944E+00,.8133E+00,.7340E+00,&
3504  .8158E+00,.8158E+00,.8158E+00,.8153E+00,.8140E+00,.8079E+00,.8053E+00,.7930E+00,.7942E+00,.8131E+00,.7373E+00,&
3505  .8139E+00,.8139E+00,.8139E+00,.8147E+00,.8171E+00,.8079E+00,.8040E+00,.7960E+00,.7948E+00,.8140E+00,.7414E+00,&
3506  .8127E+00,.8127E+00,.8127E+00,.8128E+00,.8132E+00,.8073E+00,.8048E+00,.7986E+00,.7946E+00,.8159E+00,.7453E+00,&
3507  .8233E+00,.8233E+00,.8233E+00,.8223E+00,.8196E+00,.8158E+00,.8142E+00,.7974E+00,.7954E+00,.8155E+00,.7503E+00,&
3508  .8162E+00,.8162E+00,.8162E+00,.8158E+00,.8148E+00,.8160E+00,.8165E+00,.8004E+00,.7956E+00,.8173E+00,.7554E+00,&
3509  .8250E+00,.8250E+00,.8250E+00,.8239E+00,.8209E+00,.8182E+00,.8170E+00,.8006E+00,.7969E+00,.8173E+00,.7614E+00,&
3510  .8261E+00,.8261E+00,.8261E+00,.8251E+00,.8222E+00,.8148E+00,.8117E+00,.8035E+00,.7967E+00,.8193E+00,.7688E+00,&
3511  .8290E+00,.8290E+00,.8290E+00,.8269E+00,.8208E+00,.8184E+00,.8173E+00,.8068E+00,.7975E+00,.8194E+00,.7766E+00,&
3512  .8321E+00,.8321E+00,.8321E+00,.8319E+00,.8315E+00,.8273E+00,.8255E+00,.8128E+00,.8012E+00,.8211E+00,.7877E+00,&
3513  .8365E+00,.8365E+00,.8365E+00,.8361E+00,.8350E+00,.8308E+00,.8290E+00,.8160E+00,.8033E+00,.8199E+00,.7998E+00,&
3514  .8394E+00,.8394E+00,.8394E+00,.8392E+00,.8388E+00,.8404E+00,.8411E+00,.8269E+00,.8056E+00,.8214E+00,.8187E+00/
3515  data (((g(ai,k,nh),ai= 6, 6),k=1,11),nh=0,99)/ &
3516  .8058E+00,.8058E+00,.8058E+00,.8052E+00,.8034E+00,.8012E+00,.8003E+00,.7904E+00,.7734E+00,.7542E+00,.7236E+00,&
3517  .8078E+00,.8078E+00,.8078E+00,.8072E+00,.8055E+00,.8030E+00,.8019E+00,.7924E+00,.7752E+00,.7568E+00,.7293E+00,&
3518  .8098E+00,.8098E+00,.8098E+00,.8093E+00,.8077E+00,.8047E+00,.8035E+00,.7944E+00,.7770E+00,.7594E+00,.7349E+00,&
3519  .8119E+00,.8119E+00,.8119E+00,.8113E+00,.8098E+00,.8065E+00,.8050E+00,.7964E+00,.7787E+00,.7621E+00,.7406E+00,&
3520  .8139E+00,.8139E+00,.8139E+00,.8134E+00,.8120E+00,.8082E+00,.8066E+00,.7984E+00,.7805E+00,.7647E+00,.7462E+00,&
3521  .8159E+00,.8159E+00,.8159E+00,.8154E+00,.8141E+00,.8100E+00,.8082E+00,.8004E+00,.7823E+00,.7673E+00,.7519E+00,&
3522  .8170E+00,.8170E+00,.8170E+00,.8164E+00,.8149E+00,.8114E+00,.8099E+00,.8015E+00,.7840E+00,.7688E+00,.7560E+00,&
3523  .8180E+00,.8180E+00,.8180E+00,.8174E+00,.8157E+00,.8128E+00,.8115E+00,.8026E+00,.7858E+00,.7704E+00,.7601E+00,&
3524  .8191E+00,.8191E+00,.8191E+00,.8184E+00,.8164E+00,.8141E+00,.8132E+00,.8036E+00,.7875E+00,.7719E+00,.7643E+00,&
3525  .8201E+00,.8201E+00,.8201E+00,.8194E+00,.8172E+00,.8155E+00,.8148E+00,.8047E+00,.7893E+00,.7735E+00,.7684E+00,&
3526  .8212E+00,.8212E+00,.8212E+00,.8204E+00,.8180E+00,.8169E+00,.8165E+00,.8058E+00,.7910E+00,.7750E+00,.7725E+00,&
3527  .8222E+00,.8222E+00,.8222E+00,.8215E+00,.8192E+00,.8182E+00,.8179E+00,.8076E+00,.7928E+00,.7774E+00,.7754E+00,&
3528  .8233E+00,.8233E+00,.8233E+00,.8226E+00,.8205E+00,.8196E+00,.8192E+00,.8093E+00,.7946E+00,.7798E+00,.7784E+00,&
3529  .8243E+00,.8243E+00,.8243E+00,.8236E+00,.8217E+00,.8209E+00,.8206E+00,.8111E+00,.7963E+00,.7822E+00,.7813E+00,&
3530  .8254E+00,.8254E+00,.8254E+00,.8247E+00,.8230E+00,.8223E+00,.8219E+00,.8128E+00,.7981E+00,.7846E+00,.7843E+00,&
3531  .8264E+00,.8264E+00,.8264E+00,.8258E+00,.8242E+00,.8236E+00,.8233E+00,.8146E+00,.7999E+00,.7870E+00,.7872E+00,&
3532  .8272E+00,.8272E+00,.8272E+00,.8267E+00,.8254E+00,.8248E+00,.8245E+00,.8158E+00,.8010E+00,.7881E+00,.7898E+00,&
3533  .8280E+00,.8280E+00,.8280E+00,.8276E+00,.8265E+00,.8260E+00,.8257E+00,.8171E+00,.8020E+00,.7892E+00,.7924E+00,&
3534  .8288E+00,.8288E+00,.8288E+00,.8285E+00,.8277E+00,.8271E+00,.8269E+00,.8183E+00,.8031E+00,.7902E+00,.7949E+00,&
3535  .8296E+00,.8296E+00,.8296E+00,.8294E+00,.8288E+00,.8283E+00,.8281E+00,.8196E+00,.8041E+00,.7913E+00,.7975E+00,&
3536  .8304E+00,.8304E+00,.8304E+00,.8303E+00,.8300E+00,.8295E+00,.8293E+00,.8208E+00,.8052E+00,.7924E+00,.8001E+00,&
3537  .8316E+00,.8316E+00,.8316E+00,.8314E+00,.8307E+00,.8306E+00,.8305E+00,.8219E+00,.8062E+00,.7939E+00,.8020E+00,&
3538  .8328E+00,.8328E+00,.8328E+00,.8325E+00,.8315E+00,.8316E+00,.8317E+00,.8230E+00,.8071E+00,.7955E+00,.8039E+00,&
3539  .8340E+00,.8340E+00,.8340E+00,.8335E+00,.8322E+00,.8327E+00,.8329E+00,.8242E+00,.8081E+00,.7970E+00,.8058E+00,&
3540  .8352E+00,.8352E+00,.8352E+00,.8346E+00,.8330E+00,.8337E+00,.8341E+00,.8253E+00,.8090E+00,.7986E+00,.8077E+00,&
3541  .8364E+00,.8364E+00,.8364E+00,.8357E+00,.8337E+00,.8348E+00,.8353E+00,.8264E+00,.8100E+00,.8001E+00,.8096E+00,&
3542  .8369E+00,.8369E+00,.8369E+00,.8365E+00,.8352E+00,.8357E+00,.8359E+00,.8273E+00,.8108E+00,.8008E+00,.8113E+00,&
3543  .8374E+00,.8374E+00,.8374E+00,.8372E+00,.8367E+00,.8365E+00,.8365E+00,.8282E+00,.8116E+00,.8016E+00,.8130E+00,&
3544  .8379E+00,.8379E+00,.8379E+00,.8380E+00,.8381E+00,.8374E+00,.8370E+00,.8291E+00,.8124E+00,.8023E+00,.8147E+00,&
3545  .8384E+00,.8384E+00,.8384E+00,.8387E+00,.8396E+00,.8382E+00,.8376E+00,.8300E+00,.8132E+00,.8031E+00,.8164E+00,&
3546  .8389E+00,.8389E+00,.8389E+00,.8395E+00,.8411E+00,.8391E+00,.8382E+00,.8309E+00,.8140E+00,.8038E+00,.8181E+00,&
3547  .8393E+00,.8393E+00,.8393E+00,.8397E+00,.8410E+00,.8390E+00,.8381E+00,.8313E+00,.8149E+00,.8047E+00,.8196E+00,&
3548  .8396E+00,.8396E+00,.8396E+00,.8399E+00,.8408E+00,.8388E+00,.8380E+00,.8318E+00,.8159E+00,.8056E+00,.8212E+00,&
3549  .8400E+00,.8400E+00,.8400E+00,.8402E+00,.8407E+00,.8387E+00,.8378E+00,.8322E+00,.8168E+00,.8064E+00,.8227E+00,&
3550  .8403E+00,.8403E+00,.8403E+00,.8404E+00,.8405E+00,.8385E+00,.8377E+00,.8327E+00,.8178E+00,.8073E+00,.8243E+00,&
3551  .8407E+00,.8407E+00,.8407E+00,.8406E+00,.8404E+00,.8384E+00,.8376E+00,.8331E+00,.8187E+00,.8082E+00,.8258E+00,&
3552  .8411E+00,.8411E+00,.8411E+00,.8411E+00,.8410E+00,.8396E+00,.8390E+00,.8337E+00,.8196E+00,.8094E+00,.8269E+00,&
3553  .8415E+00,.8415E+00,.8415E+00,.8416E+00,.8416E+00,.8407E+00,.8404E+00,.8343E+00,.8204E+00,.8106E+00,.8280E+00,&
3554  .8420E+00,.8420E+00,.8420E+00,.8420E+00,.8423E+00,.8419E+00,.8417E+00,.8348E+00,.8213E+00,.8119E+00,.8290E+00,&
3555  .8424E+00,.8424E+00,.8424E+00,.8425E+00,.8429E+00,.8430E+00,.8431E+00,.8354E+00,.8221E+00,.8131E+00,.8301E+00,&
3556  .8428E+00,.8428E+00,.8428E+00,.8430E+00,.8435E+00,.8442E+00,.8445E+00,.8360E+00,.8230E+00,.8143E+00,.8312E+00,&
3557  .8437E+00,.8437E+00,.8437E+00,.8438E+00,.8440E+00,.8446E+00,.8448E+00,.8368E+00,.8237E+00,.8149E+00,.8324E+00,&
3558  .8446E+00,.8446E+00,.8446E+00,.8446E+00,.8446E+00,.8449E+00,.8451E+00,.8377E+00,.8244E+00,.8155E+00,.8335E+00,&
3559  .8455E+00,.8455E+00,.8455E+00,.8454E+00,.8451E+00,.8453E+00,.8453E+00,.8385E+00,.8252E+00,.8160E+00,.8347E+00,&
3560  .8464E+00,.8464E+00,.8464E+00,.8462E+00,.8457E+00,.8456E+00,.8456E+00,.8394E+00,.8259E+00,.8166E+00,.8358E+00,&
3561  .8473E+00,.8473E+00,.8473E+00,.8470E+00,.8462E+00,.8460E+00,.8459E+00,.8402E+00,.8266E+00,.8172E+00,.8370E+00,&
3562  .8475E+00,.8475E+00,.8475E+00,.8473E+00,.8470E+00,.8468E+00,.8468E+00,.8404E+00,.8271E+00,.8178E+00,.8378E+00,&
3563  .8477E+00,.8477E+00,.8477E+00,.8477E+00,.8477E+00,.8477E+00,.8477E+00,.8407E+00,.8276E+00,.8185E+00,.8386E+00,&
3564  .8479E+00,.8479E+00,.8479E+00,.8480E+00,.8485E+00,.8485E+00,.8485E+00,.8409E+00,.8282E+00,.8191E+00,.8395E+00,&
3565  .8481E+00,.8481E+00,.8481E+00,.8484E+00,.8492E+00,.8494E+00,.8494E+00,.8412E+00,.8287E+00,.8198E+00,.8403E+00,&
3566  .8483E+00,.8483E+00,.8483E+00,.8487E+00,.8500E+00,.8502E+00,.8503E+00,.8414E+00,.8292E+00,.8204E+00,.8411E+00,&
3567  .8488E+00,.8488E+00,.8488E+00,.8491E+00,.8500E+00,.8498E+00,.8497E+00,.8420E+00,.8294E+00,.8207E+00,.8418E+00,&
3568  .8493E+00,.8493E+00,.8493E+00,.8494E+00,.8499E+00,.8493E+00,.8491E+00,.8426E+00,.8297E+00,.8211E+00,.8426E+00,&
3569  .8497E+00,.8497E+00,.8497E+00,.8498E+00,.8499E+00,.8489E+00,.8484E+00,.8433E+00,.8299E+00,.8214E+00,.8433E+00,&
3570  .8502E+00,.8502E+00,.8502E+00,.8501E+00,.8498E+00,.8484E+00,.8478E+00,.8439E+00,.8302E+00,.8218E+00,.8441E+00,&
3571  .8507E+00,.8507E+00,.8507E+00,.8505E+00,.8498E+00,.8480E+00,.8472E+00,.8445E+00,.8304E+00,.8221E+00,.8448E+00,&
3572  .8503E+00,.8503E+00,.8503E+00,.8504E+00,.8504E+00,.8489E+00,.8482E+00,.8445E+00,.8310E+00,.8228E+00,.8455E+00,&
3573  .8499E+00,.8499E+00,.8499E+00,.8502E+00,.8510E+00,.8498E+00,.8492E+00,.8446E+00,.8316E+00,.8235E+00,.8461E+00,&
3574  .8495E+00,.8495E+00,.8495E+00,.8501E+00,.8517E+00,.8506E+00,.8502E+00,.8446E+00,.8323E+00,.8242E+00,.8468E+00,&
3575  .8491E+00,.8491E+00,.8491E+00,.8499E+00,.8523E+00,.8515E+00,.8512E+00,.8447E+00,.8329E+00,.8249E+00,.8474E+00,&
3576  .8487E+00,.8487E+00,.8487E+00,.8498E+00,.8529E+00,.8524E+00,.8522E+00,.8447E+00,.8335E+00,.8256E+00,.8481E+00,&
3577  .8498E+00,.8498E+00,.8498E+00,.8506E+00,.8530E+00,.8525E+00,.8524E+00,.8455E+00,.8338E+00,.8257E+00,.8486E+00,&
3578  .8508E+00,.8508E+00,.8508E+00,.8514E+00,.8530E+00,.8527E+00,.8525E+00,.8463E+00,.8340E+00,.8258E+00,.8491E+00,&
3579  .8519E+00,.8519E+00,.8519E+00,.8522E+00,.8531E+00,.8528E+00,.8527E+00,.8470E+00,.8343E+00,.8260E+00,.8496E+00,&
3580  .8529E+00,.8529E+00,.8529E+00,.8530E+00,.8531E+00,.8530E+00,.8528E+00,.8478E+00,.8345E+00,.8261E+00,.8501E+00,&
3581  .8540E+00,.8540E+00,.8540E+00,.8538E+00,.8532E+00,.8531E+00,.8530E+00,.8486E+00,.8348E+00,.8262E+00,.8506E+00,&
3582  .8532E+00,.8532E+00,.8532E+00,.8532E+00,.8533E+00,.8535E+00,.8535E+00,.8487E+00,.8350E+00,.8269E+00,.8511E+00,&
3583  .8523E+00,.8523E+00,.8523E+00,.8526E+00,.8534E+00,.8538E+00,.8540E+00,.8488E+00,.8352E+00,.8275E+00,.8516E+00,&
3584  .8515E+00,.8515E+00,.8515E+00,.8520E+00,.8534E+00,.8542E+00,.8544E+00,.8488E+00,.8355E+00,.8282E+00,.8522E+00,&
3585  .8506E+00,.8506E+00,.8506E+00,.8514E+00,.8535E+00,.8545E+00,.8549E+00,.8489E+00,.8357E+00,.8288E+00,.8527E+00,&
3586  .8498E+00,.8498E+00,.8498E+00,.8508E+00,.8536E+00,.8549E+00,.8554E+00,.8490E+00,.8359E+00,.8295E+00,.8532E+00,&
3587  .8510E+00,.8510E+00,.8510E+00,.8515E+00,.8531E+00,.8547E+00,.8554E+00,.8494E+00,.8366E+00,.8301E+00,.8540E+00,&
3588  .8521E+00,.8521E+00,.8521E+00,.8522E+00,.8526E+00,.8546E+00,.8554E+00,.8498E+00,.8372E+00,.8307E+00,.8548E+00,&
3589  .8533E+00,.8533E+00,.8533E+00,.8530E+00,.8520E+00,.8544E+00,.8554E+00,.8501E+00,.8379E+00,.8313E+00,.8555E+00,&
3590  .8544E+00,.8544E+00,.8544E+00,.8537E+00,.8515E+00,.8543E+00,.8554E+00,.8505E+00,.8385E+00,.8319E+00,.8563E+00,&
3591  .8556E+00,.8556E+00,.8556E+00,.8544E+00,.8510E+00,.8541E+00,.8554E+00,.8509E+00,.8392E+00,.8325E+00,.8571E+00,&
3592  .8560E+00,.8560E+00,.8560E+00,.8551E+00,.8524E+00,.8543E+00,.8551E+00,.8515E+00,.8395E+00,.8331E+00,.8579E+00,&
3593  .8565E+00,.8565E+00,.8565E+00,.8558E+00,.8538E+00,.8546E+00,.8549E+00,.8521E+00,.8398E+00,.8337E+00,.8588E+00,&
3594  .8569E+00,.8569E+00,.8569E+00,.8565E+00,.8552E+00,.8548E+00,.8546E+00,.8527E+00,.8401E+00,.8344E+00,.8596E+00,&
3595  .8574E+00,.8574E+00,.8574E+00,.8572E+00,.8566E+00,.8551E+00,.8544E+00,.8533E+00,.8404E+00,.8350E+00,.8605E+00,&
3596  .8578E+00,.8578E+00,.8578E+00,.8579E+00,.8580E+00,.8553E+00,.8541E+00,.8539E+00,.8407E+00,.8356E+00,.8613E+00,&
3597  .8505E+00,.8505E+00,.8505E+00,.8530E+00,.8600E+00,.8570E+00,.8557E+00,.8537E+00,.8415E+00,.8363E+00,.8624E+00,&
3598  .8563E+00,.8563E+00,.8563E+00,.8571E+00,.8592E+00,.8577E+00,.8571E+00,.8538E+00,.8423E+00,.8370E+00,.8636E+00,&
3599  .8561E+00,.8561E+00,.8561E+00,.8570E+00,.8597E+00,.8600E+00,.8601E+00,.8532E+00,.8447E+00,.8380E+00,.8650E+00,&
3600  .8571E+00,.8571E+00,.8571E+00,.8579E+00,.8602E+00,.8576E+00,.8565E+00,.8549E+00,.8457E+00,.8377E+00,.8662E+00,&
3601  .8596E+00,.8596E+00,.8596E+00,.8590E+00,.8574E+00,.8552E+00,.8542E+00,.8548E+00,.8448E+00,.8393E+00,.8670E+00,&
3602  .8578E+00,.8578E+00,.8578E+00,.8587E+00,.8612E+00,.8587E+00,.8577E+00,.8569E+00,.8449E+00,.8413E+00,.8684E+00,&
3603  .8598E+00,.8598E+00,.8598E+00,.8601E+00,.8608E+00,.8619E+00,.8623E+00,.8568E+00,.8478E+00,.8405E+00,.8698E+00,&
3604  .8596E+00,.8596E+00,.8596E+00,.8598E+00,.8603E+00,.8618E+00,.8625E+00,.8574E+00,.8495E+00,.8444E+00,.8712E+00,&
3605  .8590E+00,.8590E+00,.8590E+00,.8593E+00,.8601E+00,.8627E+00,.8638E+00,.8579E+00,.8501E+00,.8445E+00,.8726E+00,&
3606  .8596E+00,.8596E+00,.8596E+00,.8606E+00,.8634E+00,.8633E+00,.8633E+00,.8585E+00,.8510E+00,.8465E+00,.8737E+00,&
3607  .8616E+00,.8616E+00,.8616E+00,.8621E+00,.8637E+00,.8642E+00,.8644E+00,.8607E+00,.8489E+00,.8452E+00,.8757E+00,&
3608  .8604E+00,.8604E+00,.8604E+00,.8613E+00,.8640E+00,.8646E+00,.8649E+00,.8598E+00,.8523E+00,.8481E+00,.8776E+00,&
3609  .8635E+00,.8635E+00,.8635E+00,.8635E+00,.8634E+00,.8635E+00,.8635E+00,.8614E+00,.8541E+00,.8509E+00,.8798E+00,&
3610  .8641E+00,.8641E+00,.8641E+00,.8642E+00,.8644E+00,.8657E+00,.8662E+00,.8633E+00,.8555E+00,.8543E+00,.8828E+00,&
3611  .8640E+00,.8640E+00,.8640E+00,.8641E+00,.8644E+00,.8655E+00,.8659E+00,.8638E+00,.8554E+00,.8557E+00,.8856E+00,&
3612  .8650E+00,.8650E+00,.8650E+00,.8653E+00,.8663E+00,.8658E+00,.8656E+00,.8655E+00,.8586E+00,.8593E+00,.8897E+00,&
3613  .8634E+00,.8634E+00,.8634E+00,.8644E+00,.8674E+00,.8673E+00,.8672E+00,.8665E+00,.8606E+00,.8616E+00,.8945E+00,&
3614  .8667E+00,.8667E+00,.8667E+00,.8672E+00,.8688E+00,.8705E+00,.8712E+00,.8693E+00,.8631E+00,.8689E+00,.9015E+00,&
3615  .8681E+00,.8681E+00,.8681E+00,.8689E+00,.8712E+00,.8727E+00,.8733E+00,.8724E+00,.8678E+00,.8764E+00,.9133E+00/
3616  data (((g(ai,k,nh),ai= 7, 7),k=1,11),nh=0,99)/ &
3617  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3618  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3619  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3620  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3621  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3622  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3623  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3624  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3625  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3626  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3627  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3628  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3629  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3630  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3631  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3632  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3633  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3634  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3635  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3636  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3637  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3638  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3639  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3640  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3641  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3642  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3643  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3644  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3645  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3646  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3647  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3648  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3649  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3650  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3651  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3652  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3653  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3654  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3655  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3656  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3657  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3658  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3659  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3660  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3661  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3662  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3663  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3664  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3665  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3666  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3667  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3668  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3669  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3670  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3671  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3672  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3673  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3674  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3675  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3676  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3677  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3678  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3679  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3680  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3681  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3682  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3683  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3684  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3685  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3686  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3687  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3688  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3689  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3690  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3691  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3692  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3693  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3694  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3695  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3696  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3697  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3698  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3699  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3700  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3701  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3702  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3703  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3704  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3705  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3706  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3707  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3708  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3709  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3710  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3711  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3712  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3713  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3714  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3715  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00,&
3716  .6825E+00,.6825E+00,.6825E+00,.6800E+00,.6730E+00,.6662E+00,.6633E+00,.6279E+00,.5549E+00,.4291E+00,.1782E+00/
3717  data (((g(ai,k,nh),ai= 8, 8),k=1,11),nh=0,99)/ &
3718  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3719  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3720  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3721  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3722  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3723  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3724  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3725  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3726  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3727  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3728  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3729  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3730  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3731  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3732  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3733  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3734  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3735  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3736  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3737  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3738  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3739  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3740  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3741  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3742  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3743  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3744  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3745  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3746  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3747  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3748  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3749  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3750  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3751  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3752  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3753  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3754  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3755  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3756  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3757  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3758  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3759  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3760  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3761  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3762  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3763  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3764  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3765  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3766  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3767  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3768  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3769  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3770  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3771  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3772  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3773  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3774  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3775  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3776  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3777  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3778  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3779  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3780  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3781  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3782  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3783  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3784  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3785  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3786  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3787  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3788  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3789  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3790  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3791  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3792  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3793  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3794  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3795  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3796  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3797  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3798  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3799  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3800  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3801  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3802  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3803  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3804  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3805  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3806  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3807  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3808  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3809  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3810  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3811  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3812  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3813  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3814  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3815  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3816  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00,&
3817  .6953E+00,.6953E+00,.6953E+00,.6932E+00,.6872E+00,.6824E+00,.6803E+00,.6639E+00,.6242E+00,.5365E+00,.2860E+00/
3818  data (((g(ai,k,nh),ai= 9, 9),k=1,11),nh=0,99)/ &
3819  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3820  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3821  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3822  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3823  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3824  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3825  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3826  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3827  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3828  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3829  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3830  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3831  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3832  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3833  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3834  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3835  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3836  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3837  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3838  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3839  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3840  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3841  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3842  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3843  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3844  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3845  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3846  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3847  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3848  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3849  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3850  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3851  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3852  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3853  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3854  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3855  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3856  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3857  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3858  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3859  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3860  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3861  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3862  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3863  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3864  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3865  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3866  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3867  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3868  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3869  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3870  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3871  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3872  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3873  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3874  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3875  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3876  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3877  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3878  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3879  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3880  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3881  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3882  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3883  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3884  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3885  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3886  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3887  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3888  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3889  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3890  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3891  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3892  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3893  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3894  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3895  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3896  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3897  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3898  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3899  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3900  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3901  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3902  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3903  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3904  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3905  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3906  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3907  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3908  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3909  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3910  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3911  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3912  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3913  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3914  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3915  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3916  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3917  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00,&
3918  .7212E+00,.7212E+00,.7212E+00,.7176E+00,.7075E+00,.6986E+00,.6948E+00,.6772E+00,.6651E+00,.6228E+00,.4221E+00/
3919  data (((g(ai,k,nh),ai=10,10),k=1,11),nh=0,99)/ &
3920  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3921  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3922  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3923  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3924  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3925  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3926  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3927  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3928  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3929  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3930  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3931  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3932  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3933  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3934  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3935  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3936  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3937  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3938  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3939  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3940  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3941  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3942  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3943  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3944  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3945  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3946  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3947  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3948  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3949  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3950  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3951  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3952  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3953  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3954  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3955  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3956  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3957  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3958  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3959  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3960  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3961  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3962  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3963  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3964  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3965  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3966  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3967  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3968  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3969  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3970  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3971  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3972  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3973  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3974  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3975  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3976  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3977  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3978  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3979  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3980  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3981  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3982  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3983  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3984  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3985  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3986  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3987  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3988  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3989  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3990  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3991  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3992  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3993  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3994  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3995  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3996  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3997  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3998  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
3999  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
4000  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
4001  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
4002  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
4003  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
4004  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
4005  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
4006  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
4007  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
4008  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
4009  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
4010  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
4011  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
4012  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
4013  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
4014  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
4015  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
4016  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
4017  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
4018  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00,&
4019  .7755E+00,.7755E+00,.7755E+00,.7689E+00,.7501E+00,.7333E+00,.7261E+00,.6877E+00,.6751E+00,.6633E+00,.5350E+00/
4020  data (((g(ai,k,nh),ai=11,11),k=1,11),nh=0,99)/ &
4021  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4022  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4023  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4024  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4025  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4026  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4027  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4028  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4029  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4030  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4031  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4032  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4033  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4034  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4035  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4036  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4037  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4038  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4039  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4040  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4041  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4042  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4043  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4044  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4045  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4046  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4047  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4048  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4049  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4050  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4051  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4052  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4053  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4054  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4055  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4056  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4057  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4058  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4059  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4060  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4061  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4062  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4063  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4064  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4065  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4066  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4067  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4068  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4069  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4070  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4071  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4072  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4073  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4074  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4075  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4076  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4077  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4078  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4079  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4080  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4081  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4082  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4083  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4084  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4085  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4086  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4087  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4088  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4089  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4090  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4091  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4092  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4093  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4094  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4095  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4096  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4097  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4098  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4099  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4100  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4101  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4102  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4103  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4104  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4105  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4106  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4107  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4108  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4109  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4110  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4111  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4112  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4113  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4114  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4115  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4116  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4117  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4118  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4119  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00,&
4120  .8317E+00,.8317E+00,.8317E+00,.8253E+00,.8070E+00,.7861E+00,.7772E+00,.7191E+00,.6857E+00,.6780E+00,.6206E+00/
4121  data (((g(ai,k,nh),ai=12,12),k=1,11),nh=0,99)/ &
4122  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4123  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4124  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4125  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4126  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4127  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4128  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4129  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4130  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4131  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4132  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4133  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4134  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4135  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4136  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4137  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4138  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4139  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4140  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4141  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4142  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4143  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4144  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4145  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4146  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4147  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4148  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4149  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4150  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4151  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4152  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4153  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4154  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4155  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4156  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4157  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4158  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4159  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4160  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4161  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4162  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4163  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4164  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4165  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4166  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4167  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4168  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4169  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4170  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4171  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4172  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4173  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4174  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4175  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4176  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4177  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4178  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4179  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4180  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4181  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4182  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4183  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4184  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4185  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4186  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4187  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4188  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4189  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4190  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4191  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4192  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4193  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4194  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4195  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4196  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4197  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4198  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4199  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4200  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4201  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4202  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4203  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4204  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4205  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4206  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4207  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4208  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4209  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4210  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4211  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4212  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4213  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4214  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4215  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4216  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4217  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4218  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4219  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4220  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00,&
4221  .8782E+00,.8782E+00,.8782E+00,.8721E+00,.8548E+00,.8341E+00,.8252E+00,.7619E+00,.7130E+00,.6868E+00,.6776E+00/
4222  data (((g(ai,k,nh),ai=13,13),k=1,11),nh=0,99)/ &
4223  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4224  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4225  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4226  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4227  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4228  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4229  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4230  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4231  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4232  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4233  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4234  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4235  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4236  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4237  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4238  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4239  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4240  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4241  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4242  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4243  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4244  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4245  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4246  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4247  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4248  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4249  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4250  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4251  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4252  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4253  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4254  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4255  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4256  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4257  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4258  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4259  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4260  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4261  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4262  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4263  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4264  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4265  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4266  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4267  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4268  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4269  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4270  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4271  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4272  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4273  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4274  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4275  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4276  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4277  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4278  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4279  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4280  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4281  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4282  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4283  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4284  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4285  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4286  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4287  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4288  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4289  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4290  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4291  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4292  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4293  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4294  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4295  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4296  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4297  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4298  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4299  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4300  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4301  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4302  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4303  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4304  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4305  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4306  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4307  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4308  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4309  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4310  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4311  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4312  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4313  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4314  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4315  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4316  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4317  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4318  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4319  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4320  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4321  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00,&
4322  .9167E+00,.9167E+00,.9167E+00,.9122E+00,.8994E+00,.8806E+00,.8725E+00,.8078E+00,.7602E+00,.7160E+00,.7239E+00/
4323  data (((g(ai,k,nh),ai=14,14),k=1,11),nh=0,99)/ &
4324  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4325  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4326  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4327  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4328  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4329  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4330  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4331  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4332  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4333  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4334  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4335  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4336  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4337  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4338  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4339  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4340  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4341  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4342  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4343  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4344  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4345  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4346  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4347  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4348  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4349  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4350  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4351  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4352  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4353  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4354  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4355  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4356  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4357  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4358  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4359  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4360  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4361  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4362  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4363  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4364  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4365  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4366  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4367  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4368  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4369  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4370  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4371  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4372  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4373  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4374  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4375  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4376  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4377  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4378  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4379  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4380  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4381  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4382  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4383  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4384  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4385  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4386  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4387  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4388  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4389  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4390  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4391  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4392  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4393  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4394  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4395  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4396  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4397  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4398  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4399  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4400  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4401  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4402  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4403  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4404  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4405  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4406  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4407  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4408  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4409  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4410  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4411  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4412  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4413  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4414  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4415  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4416  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4417  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4418  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4419  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4420  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4421  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4422  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00,&
4423  .9366E+00,.9366E+00,.9366E+00,.9340E+00,.9266E+00,.9120E+00,.9058E+00,.8411E+00,.7960E+00,.7643E+00,.7644E+00/
4424
4425  data (((Bex_lw(ai,k,nh),ai= 1, 1),k=1,nwl_lw),nh=0,99)/ &
4426  .2252E-01,.2261E-01,.8372E-01,.1441E+00,.2880E+00,.4679E+00,.3723E+00,.1729E+00,.2097E+00,.9603E-01,&
4427  .2373E-01,.2456E-01,.8750E-01,.1471E+00,.2917E+00,.4703E+00,.3718E+00,.1742E+00,.2103E+00,.9952E-01,&
4428  .2495E-01,.2652E-01,.9128E-01,.1502E+00,.2954E+00,.4726E+00,.3714E+00,.1755E+00,.2108E+00,.1030E+00,&
4429  .2617E-01,.2847E-01,.9506E-01,.1532E+00,.2991E+00,.4749E+00,.3709E+00,.1768E+00,.2114E+00,.1065E+00,&
4430  .2738E-01,.3042E-01,.9884E-01,.1563E+00,.3028E+00,.4772E+00,.3704E+00,.1781E+00,.2120E+00,.1100E+00,&
4431  .2860E-01,.3238E-01,.1026E+00,.1594E+00,.3065E+00,.4796E+00,.3700E+00,.1794E+00,.2125E+00,.1135E+00,&
4432  .2994E-01,.3456E-01,.1068E+00,.1625E+00,.3098E+00,.4815E+00,.3697E+00,.1808E+00,.2132E+00,.1173E+00,&
4433  .3129E-01,.3674E-01,.1109E+00,.1655E+00,.3132E+00,.4834E+00,.3695E+00,.1822E+00,.2138E+00,.1212E+00,&
4434  .3263E-01,.3892E-01,.1151E+00,.1686E+00,.3165E+00,.4853E+00,.3692E+00,.1835E+00,.2144E+00,.1250E+00,&
4435  .3397E-01,.4110E-01,.1193E+00,.1717E+00,.3198E+00,.4872E+00,.3690E+00,.1849E+00,.2150E+00,.1288E+00,&
4436  .3531E-01,.4328E-01,.1234E+00,.1748E+00,.3231E+00,.4892E+00,.3687E+00,.1863E+00,.2157E+00,.1326E+00,&
4437  .3674E-01,.4561E-01,.1278E+00,.1779E+00,.3260E+00,.4909E+00,.3688E+00,.1878E+00,.2164E+00,.1367E+00,&
4438  .3817E-01,.4795E-01,.1322E+00,.1810E+00,.3290E+00,.4926E+00,.3688E+00,.1893E+00,.2171E+00,.1407E+00,&
4439  .3959E-01,.5028E-01,.1366E+00,.1840E+00,.3320E+00,.4944E+00,.3689E+00,.1908E+00,.2179E+00,.1447E+00,&
4440  .4102E-01,.5261E-01,.1410E+00,.1871E+00,.3349E+00,.4961E+00,.3689E+00,.1923E+00,.2186E+00,.1488E+00,&
4441  .4245E-01,.5494E-01,.1454E+00,.1902E+00,.3379E+00,.4979E+00,.3690E+00,.1938E+00,.2193E+00,.1528E+00,&
4442  .4404E-01,.5757E-01,.1503E+00,.1934E+00,.3406E+00,.4994E+00,.3691E+00,.1954E+00,.2201E+00,.1573E+00,&
4443  .4563E-01,.6019E-01,.1552E+00,.1966E+00,.3433E+00,.5009E+00,.3692E+00,.1969E+00,.2209E+00,.1617E+00,&
4444  .4723E-01,.6282E-01,.1601E+00,.1998E+00,.3460E+00,.5023E+00,.3693E+00,.1985E+00,.2217E+00,.1662E+00,&
4445  .4882E-01,.6545E-01,.1650E+00,.2030E+00,.3487E+00,.5038E+00,.3694E+00,.2001E+00,.2225E+00,.1707E+00,&
4446  .5041E-01,.6807E-01,.1699E+00,.2062E+00,.3515E+00,.5053E+00,.3695E+00,.2017E+00,.2232E+00,.1751E+00,&
4447  .5213E-01,.7092E-01,.1752E+00,.2094E+00,.3540E+00,.5067E+00,.3698E+00,.2034E+00,.2241E+00,.1800E+00,&
4448  .5385E-01,.7376E-01,.1805E+00,.2127E+00,.3565E+00,.5081E+00,.3701E+00,.2051E+00,.2250E+00,.1848E+00,&
4449  .5556E-01,.7661E-01,.1858E+00,.2160E+00,.3590E+00,.5095E+00,.3703E+00,.2069E+00,.2259E+00,.1896E+00,&
4450  .5728E-01,.7946E-01,.1910E+00,.2192E+00,.3615E+00,.5109E+00,.3706E+00,.2086E+00,.2268E+00,.1944E+00,&
4451  .5900E-01,.8230E-01,.1963E+00,.2225E+00,.3640E+00,.5123E+00,.3709E+00,.2103E+00,.2277E+00,.1992E+00,&
4452  .6085E-01,.8537E-01,.2020E+00,.2259E+00,.3663E+00,.5136E+00,.3713E+00,.2121E+00,.2287E+00,.2044E+00,&
4453  .6270E-01,.8845E-01,.2077E+00,.2292E+00,.3686E+00,.5149E+00,.3717E+00,.2140E+00,.2296E+00,.2095E+00,&
4454  .6455E-01,.9152E-01,.2133E+00,.2326E+00,.3710E+00,.5162E+00,.3721E+00,.2158E+00,.2306E+00,.2147E+00,&
4455  .6639E-01,.9459E-01,.2190E+00,.2359E+00,.3733E+00,.5175E+00,.3725E+00,.2176E+00,.2316E+00,.2198E+00,&
4456  .6824E-01,.9766E-01,.2246E+00,.2393E+00,.3757E+00,.5188E+00,.3729E+00,.2194E+00,.2326E+00,.2250E+00,&
4457  .7022E-01,.1010E+00,.2307E+00,.2428E+00,.3779E+00,.5201E+00,.3734E+00,.2214E+00,.2337E+00,.2305E+00,&
4458  .7220E-01,.1043E+00,.2367E+00,.2462E+00,.3801E+00,.5214E+00,.3739E+00,.2234E+00,.2347E+00,.2360E+00,&
4459  .7417E-01,.1076E+00,.2428E+00,.2497E+00,.3823E+00,.5226E+00,.3745E+00,.2254E+00,.2358E+00,.2415E+00,&
4460  .7615E-01,.1108E+00,.2489E+00,.2532E+00,.3845E+00,.5239E+00,.3750E+00,.2273E+00,.2369E+00,.2470E+00,&
4461  .7813E-01,.1141E+00,.2549E+00,.2566E+00,.3867E+00,.5252E+00,.3755E+00,.2293E+00,.2380E+00,.2525E+00,&
4462  .8019E-01,.1176E+00,.2612E+00,.2602E+00,.3889E+00,.5266E+00,.3763E+00,.2314E+00,.2393E+00,.2582E+00,&
4463  .8225E-01,.1210E+00,.2675E+00,.2637E+00,.3911E+00,.5280E+00,.3770E+00,.2335E+00,.2405E+00,.2640E+00,&
4464  .8430E-01,.1245E+00,.2738E+00,.2673E+00,.3932E+00,.5293E+00,.3778E+00,.2356E+00,.2418E+00,.2697E+00,&
4465  .8636E-01,.1279E+00,.2801E+00,.2708E+00,.3954E+00,.5307E+00,.3785E+00,.2376E+00,.2430E+00,.2754E+00,&
4466  .8842E-01,.1313E+00,.2864E+00,.2744E+00,.3976E+00,.5321E+00,.3792E+00,.2397E+00,.2443E+00,.2812E+00,&
4467  .9066E-01,.1351E+00,.2933E+00,.2781E+00,.3996E+00,.5334E+00,.3800E+00,.2420E+00,.2456E+00,.2874E+00,&
4468  .9291E-01,.1389E+00,.3001E+00,.2818E+00,.4017E+00,.5347E+00,.3808E+00,.2442E+00,.2470E+00,.2936E+00,&
4469  .9515E-01,.1426E+00,.3070E+00,.2856E+00,.4038E+00,.5360E+00,.3815E+00,.2464E+00,.2483E+00,.2999E+00,&
4470  .9739E-01,.1464E+00,.3139E+00,.2893E+00,.4059E+00,.5373E+00,.3823E+00,.2487E+00,.2497E+00,.3061E+00,&
4471  .9964E-01,.1501E+00,.3207E+00,.2930E+00,.4079E+00,.5386E+00,.3831E+00,.2509E+00,.2510E+00,.3123E+00,&
4472  .1020E+00,.1541E+00,.3280E+00,.2969E+00,.4100E+00,.5399E+00,.3840E+00,.2533E+00,.2525E+00,.3189E+00,&
4473  .1044E+00,.1581E+00,.3353E+00,.3008E+00,.4120E+00,.5412E+00,.3848E+00,.2557E+00,.2540E+00,.3255E+00,&
4474  .1068E+00,.1621E+00,.3425E+00,.3046E+00,.4141E+00,.5425E+00,.3857E+00,.2580E+00,.2555E+00,.3321E+00,&
4475  .1091E+00,.1661E+00,.3498E+00,.3085E+00,.4161E+00,.5438E+00,.3866E+00,.2604E+00,.2570E+00,.3387E+00,&
4476  .1115E+00,.1701E+00,.3571E+00,.3124E+00,.4182E+00,.5452E+00,.3875E+00,.2628E+00,.2585E+00,.3453E+00,&
4477  .1139E+00,.1741E+00,.3644E+00,.3163E+00,.4203E+00,.5467E+00,.3886E+00,.2653E+00,.2602E+00,.3520E+00,&
4478  .1164E+00,.1782E+00,.3718E+00,.3202E+00,.4224E+00,.5483E+00,.3898E+00,.2678E+00,.2619E+00,.3587E+00,&
4479  .1188E+00,.1822E+00,.3791E+00,.3242E+00,.4245E+00,.5498E+00,.3909E+00,.2703E+00,.2636E+00,.3654E+00,&
4480  .1212E+00,.1862E+00,.3865E+00,.3281E+00,.4266E+00,.5514E+00,.3920E+00,.2728E+00,.2653E+00,.3721E+00,&
4481  .1236E+00,.1903E+00,.3938E+00,.3320E+00,.4288E+00,.5530E+00,.3932E+00,.2753E+00,.2670E+00,.3788E+00,&
4482  .1261E+00,.1944E+00,.4014E+00,.3361E+00,.4309E+00,.5547E+00,.3945E+00,.2779E+00,.2689E+00,.3857E+00,&
4483  .1285E+00,.1986E+00,.4090E+00,.3401E+00,.4331E+00,.5564E+00,.3957E+00,.2806E+00,.2708E+00,.3926E+00,&
4484  .1310E+00,.2028E+00,.4166E+00,.3442E+00,.4353E+00,.5581E+00,.3970E+00,.2832E+00,.2727E+00,.3995E+00,&
4485  .1335E+00,.2069E+00,.4242E+00,.3482E+00,.4374E+00,.5598E+00,.3983E+00,.2858E+00,.2746E+00,.4064E+00,&
4486  .1360E+00,.2111E+00,.4318E+00,.3523E+00,.4396E+00,.5615E+00,.3996E+00,.2885E+00,.2765E+00,.4133E+00,&
4487  .1387E+00,.2156E+00,.4400E+00,.3565E+00,.4418E+00,.5632E+00,.4010E+00,.2913E+00,.2785E+00,.4208E+00,&
4488  .1413E+00,.2201E+00,.4481E+00,.3608E+00,.4439E+00,.5648E+00,.4023E+00,.2941E+00,.2806E+00,.4282E+00,&
4489  .1440E+00,.2246E+00,.4563E+00,.3651E+00,.4460E+00,.5665E+00,.4036E+00,.2969E+00,.2826E+00,.4357E+00,&
4490  .1467E+00,.2291E+00,.4645E+00,.3693E+00,.4482E+00,.5681E+00,.4049E+00,.2997E+00,.2846E+00,.4431E+00,&
4491  .1493E+00,.2336E+00,.4727E+00,.3736E+00,.4503E+00,.5698E+00,.4063E+00,.3025E+00,.2867E+00,.4505E+00,&
4492  .1522E+00,.2383E+00,.4813E+00,.3781E+00,.4525E+00,.5715E+00,.4077E+00,.3055E+00,.2889E+00,.4584E+00,&
4493  .1550E+00,.2431E+00,.4899E+00,.3825E+00,.4547E+00,.5732E+00,.4091E+00,.3085E+00,.2911E+00,.4662E+00,&
4494  .1578E+00,.2478E+00,.4985E+00,.3870E+00,.4569E+00,.5749E+00,.4105E+00,.3114E+00,.2933E+00,.4740E+00,&
4495  .1607E+00,.2525E+00,.5071E+00,.3914E+00,.4591E+00,.5766E+00,.4119E+00,.3144E+00,.2956E+00,.4819E+00,&
4496  .1635E+00,.2573E+00,.5157E+00,.3958E+00,.4613E+00,.5784E+00,.4133E+00,.3173E+00,.2978E+00,.4897E+00,&
4497  .1676E+00,.2644E+00,.5283E+00,.4017E+00,.4627E+00,.5786E+00,.4139E+00,.3210E+00,.3000E+00,.5010E+00,&
4498  .1718E+00,.2714E+00,.5409E+00,.4075E+00,.4642E+00,.5788E+00,.4145E+00,.3246E+00,.3023E+00,.5124E+00,&
4499  .1759E+00,.2785E+00,.5535E+00,.4133E+00,.4657E+00,.5790E+00,.4151E+00,.3282E+00,.3045E+00,.5238E+00,&
4500  .1801E+00,.2856E+00,.5661E+00,.4192E+00,.4672E+00,.5793E+00,.4157E+00,.3318E+00,.3067E+00,.5351E+00,&
4501  .1843E+00,.2926E+00,.5787E+00,.4250E+00,.4687E+00,.5795E+00,.4163E+00,.3355E+00,.3090E+00,.5465E+00,&
4502  .1886E+00,.3001E+00,.5920E+00,.4311E+00,.4703E+00,.5799E+00,.4171E+00,.3394E+00,.3115E+00,.5584E+00,&
4503  .1930E+00,.3075E+00,.6052E+00,.4372E+00,.4718E+00,.5803E+00,.4179E+00,.3433E+00,.3141E+00,.5704E+00,&
4504  .1973E+00,.3149E+00,.6184E+00,.4433E+00,.4734E+00,.5807E+00,.4187E+00,.3472E+00,.3167E+00,.5823E+00,&
4505  .2017E+00,.3224E+00,.6317E+00,.4494E+00,.4749E+00,.5811E+00,.4195E+00,.3511E+00,.3193E+00,.5943E+00,&
4506  .2061E+00,.3298E+00,.6449E+00,.4555E+00,.4765E+00,.5815E+00,.4203E+00,.3550E+00,.3219E+00,.6062E+00,&
4507  .2109E+00,.3380E+00,.6595E+00,.4622E+00,.4779E+00,.5816E+00,.4211E+00,.3592E+00,.3247E+00,.6194E+00,&
4508  .2158E+00,.3464E+00,.6743E+00,.4688E+00,.4793E+00,.5818E+00,.4219E+00,.3635E+00,.3275E+00,.6327E+00,&
4509  .2207E+00,.3547E+00,.6892E+00,.4756E+00,.4809E+00,.5820E+00,.4227E+00,.3678E+00,.3305E+00,.6462E+00,&
4510  .2274E+00,.3662E+00,.7093E+00,.4841E+00,.4814E+00,.5803E+00,.4225E+00,.3731E+00,.3335E+00,.6643E+00,&
4511  .2341E+00,.3777E+00,.7295E+00,.4927E+00,.4819E+00,.5787E+00,.4224E+00,.3784E+00,.3366E+00,.6825E+00,&
4512  .2409E+00,.3893E+00,.7500E+00,.5014E+00,.4826E+00,.5773E+00,.4225E+00,.3838E+00,.3399E+00,.7008E+00,&
4513  .2494E+00,.4039E+00,.7756E+00,.5119E+00,.4824E+00,.5741E+00,.4217E+00,.3902E+00,.3433E+00,.7238E+00,&
4514  .2580E+00,.4187E+00,.8014E+00,.5224E+00,.4823E+00,.5711E+00,.4210E+00,.3967E+00,.3470E+00,.7470E+00,&
4515  .2682E+00,.4364E+00,.8323E+00,.5348E+00,.4814E+00,.5666E+00,.4197E+00,.4042E+00,.3509E+00,.7746E+00,&
4516  .2802E+00,.4571E+00,.8683E+00,.5490E+00,.4799E+00,.5608E+00,.4179E+00,.4128E+00,.3553E+00,.8069E+00,&
4517  .2922E+00,.4777E+00,.9044E+00,.5633E+00,.4787E+00,.5555E+00,.4164E+00,.4215E+00,.3601E+00,.8392E+00,&
4518  .3074E+00,.5040E+00,.9500E+00,.5810E+00,.4762E+00,.5476E+00,.4138E+00,.4323E+00,.3656E+00,.8800E+00,&
4519  .3225E+00,.5301E+00,.9955E+00,.5988E+00,.4743E+00,.5406E+00,.4119E+00,.4433E+00,.3717E+00,.9208E+00,&
4520  .3407E+00,.5615E+00,.1050E+01,.6200E+00,.4715E+00,.5318E+00,.4095E+00,.4565E+00,.3790E+00,.9696E+00,&
4521  .3647E+00,.6029E+00,.1122E+01,.6478E+00,.4673E+00,.5196E+00,.4061E+00,.4737E+00,.3885E+00,.1034E+01,&
4522  .3910E+00,.6484E+00,.1201E+01,.6785E+00,.4635E+00,.5077E+00,.4032E+00,.4931E+00,.3999E+00,.1105E+01,&
4523  .4247E+00,.7066E+00,.1303E+01,.7180E+00,.4593E+00,.4934E+00,.4006E+00,.5185E+00,.4155E+00,.1196E+01,&
4524  .4744E+00,.7923E+00,.1452E+01,.7771E+00,.4550E+00,.4755E+00,.3989E+00,.5567E+00,.4407E+00,.1330E+01,&
4525  .5577E+00,.9357E+00,.1703E+01,.8795E+00,.4557E+00,.4561E+00,.4035E+00,.6251E+00,.4905E+00,.1556E+01/
4526  data (((Bex_lw(ai,k,nh),ai= 2, 2),k=1,nwl_lw),nh=0,99)/ &
4527  .9514E-01,.1469E+00,.2331E+00,.3161E+00,.3718E+00,.4177E+00,.4740E+00,.6076E+00,.9329E+00,.1995E+00,&
4528  .9518E-01,.1469E+00,.2332E+00,.3162E+00,.3719E+00,.4178E+00,.4741E+00,.6078E+00,.9333E+00,.1995E+00,&
4529  .9521E-01,.1470E+00,.2333E+00,.3163E+00,.3721E+00,.4180E+00,.4743E+00,.6081E+00,.9336E+00,.1996E+00,&
4530  .9525E-01,.1470E+00,.2334E+00,.3164E+00,.3722E+00,.4181E+00,.4745E+00,.6083E+00,.9340E+00,.1997E+00,&
4531  .9528E-01,.1471E+00,.2335E+00,.3165E+00,.3724E+00,.4183E+00,.4747E+00,.6085E+00,.9344E+00,.1998E+00,&
4532  .9532E-01,.1471E+00,.2335E+00,.3167E+00,.3725E+00,.4184E+00,.4748E+00,.6088E+00,.9347E+00,.1999E+00,&
4533  .9535E-01,.1472E+00,.2336E+00,.3168E+00,.3726E+00,.4186E+00,.4750E+00,.6090E+00,.9350E+00,.1999E+00,&
4534  .9538E-01,.1472E+00,.2337E+00,.3169E+00,.3727E+00,.4187E+00,.4751E+00,.6092E+00,.9354E+00,.2000E+00,&
4535  .9541E-01,.1473E+00,.2337E+00,.3170E+00,.3728E+00,.4188E+00,.4753E+00,.6094E+00,.9357E+00,.2000E+00,&
4536  .9544E-01,.1473E+00,.2338E+00,.3170E+00,.3730E+00,.4190E+00,.4754E+00,.6096E+00,.9360E+00,.2001E+00,&
4537  .9547E-01,.1473E+00,.2339E+00,.3171E+00,.3731E+00,.4191E+00,.4756E+00,.6098E+00,.9364E+00,.2001E+00,&
4538  .9550E-01,.1474E+00,.2339E+00,.3172E+00,.3732E+00,.4192E+00,.4757E+00,.6099E+00,.9367E+00,.2002E+00,&
4539  .9552E-01,.1474E+00,.2340E+00,.3173E+00,.3733E+00,.4193E+00,.4758E+00,.6101E+00,.9370E+00,.2002E+00,&
4540  .9554E-01,.1475E+00,.2341E+00,.3174E+00,.3734E+00,.4194E+00,.4760E+00,.6103E+00,.9373E+00,.2003E+00,&
4541  .9556E-01,.1475E+00,.2341E+00,.3175E+00,.3735E+00,.4195E+00,.4761E+00,.6104E+00,.9376E+00,.2003E+00,&
4542  .9558E-01,.1476E+00,.2342E+00,.3175E+00,.3736E+00,.4197E+00,.4762E+00,.6106E+00,.9379E+00,.2004E+00,&
4543  .9561E-01,.1476E+00,.2342E+00,.3176E+00,.3737E+00,.4198E+00,.4764E+00,.6107E+00,.9381E+00,.2004E+00,&
4544  .9564E-01,.1476E+00,.2343E+00,.3177E+00,.3738E+00,.4199E+00,.4765E+00,.6109E+00,.9383E+00,.2005E+00,&
4545  .9566E-01,.1477E+00,.2344E+00,.3178E+00,.3739E+00,.4199E+00,.4766E+00,.6110E+00,.9385E+00,.2005E+00,&
4546  .9569E-01,.1477E+00,.2344E+00,.3179E+00,.3739E+00,.4200E+00,.4767E+00,.6112E+00,.9387E+00,.2006E+00,&
4547  .9571E-01,.1477E+00,.2345E+00,.3179E+00,.3740E+00,.4201E+00,.4768E+00,.6113E+00,.9389E+00,.2006E+00,&
4548  .9573E-01,.1477E+00,.2345E+00,.3180E+00,.3741E+00,.4202E+00,.4769E+00,.6114E+00,.9392E+00,.2007E+00,&
4549  .9575E-01,.1478E+00,.2346E+00,.3181E+00,.3742E+00,.4203E+00,.4770E+00,.6116E+00,.9394E+00,.2007E+00,&
4550  .9577E-01,.1478E+00,.2346E+00,.3181E+00,.3742E+00,.4204E+00,.4770E+00,.6117E+00,.9396E+00,.2007E+00,&
4551  .9578E-01,.1478E+00,.2346E+00,.3182E+00,.3743E+00,.4205E+00,.4771E+00,.6118E+00,.9399E+00,.2008E+00,&
4552  .9580E-01,.1478E+00,.2347E+00,.3182E+00,.3744E+00,.4205E+00,.4772E+00,.6119E+00,.9401E+00,.2008E+00,&
4553  .9582E-01,.1479E+00,.2347E+00,.3183E+00,.3744E+00,.4206E+00,.4773E+00,.6120E+00,.9403E+00,.2008E+00,&
4554  .9583E-01,.1479E+00,.2348E+00,.3183E+00,.3745E+00,.4207E+00,.4774E+00,.6121E+00,.9404E+00,.2009E+00,&
4555  .9585E-01,.1479E+00,.2348E+00,.3184E+00,.3746E+00,.4207E+00,.4775E+00,.6122E+00,.9406E+00,.2009E+00,&
4556  .9587E-01,.1479E+00,.2348E+00,.3184E+00,.3746E+00,.4208E+00,.4775E+00,.6124E+00,.9408E+00,.2009E+00,&
4557  .9588E-01,.1480E+00,.2349E+00,.3185E+00,.3747E+00,.4209E+00,.4776E+00,.6125E+00,.9410E+00,.2010E+00,&
4558  .9589E-01,.1480E+00,.2349E+00,.3185E+00,.3747E+00,.4209E+00,.4777E+00,.6125E+00,.9411E+00,.2010E+00,&
4559  .9590E-01,.1480E+00,.2349E+00,.3186E+00,.3748E+00,.4210E+00,.4778E+00,.6126E+00,.9413E+00,.2010E+00,&
4560  .9591E-01,.1480E+00,.2350E+00,.3186E+00,.3748E+00,.4211E+00,.4778E+00,.6127E+00,.9414E+00,.2011E+00,&
4561  .9592E-01,.1480E+00,.2350E+00,.3187E+00,.3749E+00,.4211E+00,.4779E+00,.6128E+00,.9416E+00,.2011E+00,&
4562  .9592E-01,.1481E+00,.2351E+00,.3187E+00,.3750E+00,.4212E+00,.4780E+00,.6129E+00,.9418E+00,.2011E+00,&
4563  .9594E-01,.1481E+00,.2351E+00,.3188E+00,.3750E+00,.4212E+00,.4780E+00,.6130E+00,.9419E+00,.2011E+00,&
4564  .9595E-01,.1481E+00,.2351E+00,.3188E+00,.3750E+00,.4213E+00,.4781E+00,.6131E+00,.9420E+00,.2012E+00,&
4565  .9597E-01,.1481E+00,.2351E+00,.3188E+00,.3751E+00,.4213E+00,.4781E+00,.6132E+00,.9421E+00,.2012E+00,&
4566  .9598E-01,.1482E+00,.2352E+00,.3189E+00,.3751E+00,.4214E+00,.4782E+00,.6133E+00,.9423E+00,.2012E+00,&
4567  .9599E-01,.1482E+00,.2352E+00,.3189E+00,.3752E+00,.4214E+00,.4782E+00,.6133E+00,.9424E+00,.2012E+00,&
4568  .9600E-01,.1482E+00,.2352E+00,.3189E+00,.3752E+00,.4215E+00,.4783E+00,.6134E+00,.9425E+00,.2013E+00,&
4569  .9601E-01,.1482E+00,.2352E+00,.3190E+00,.3752E+00,.4215E+00,.4784E+00,.6135E+00,.9426E+00,.2013E+00,&
4570  .9601E-01,.1482E+00,.2353E+00,.3190E+00,.3753E+00,.4216E+00,.4784E+00,.6135E+00,.9427E+00,.2013E+00,&
4571  .9602E-01,.1482E+00,.2353E+00,.3190E+00,.3753E+00,.4216E+00,.4785E+00,.6136E+00,.9427E+00,.2013E+00,&
4572  .9603E-01,.1482E+00,.2353E+00,.3190E+00,.3754E+00,.4216E+00,.4785E+00,.6137E+00,.9428E+00,.2013E+00,&
4573  .9604E-01,.1482E+00,.2353E+00,.3191E+00,.3754E+00,.4217E+00,.4786E+00,.6137E+00,.9430E+00,.2014E+00,&
4574  .9605E-01,.1483E+00,.2354E+00,.3191E+00,.3754E+00,.4217E+00,.4786E+00,.6138E+00,.9431E+00,.2014E+00,&
4575  .9606E-01,.1483E+00,.2354E+00,.3192E+00,.3755E+00,.4218E+00,.4787E+00,.6138E+00,.9432E+00,.2014E+00,&
4576  .9607E-01,.1483E+00,.2354E+00,.3192E+00,.3755E+00,.4218E+00,.4787E+00,.6139E+00,.9434E+00,.2014E+00,&
4577  .9608E-01,.1483E+00,.2354E+00,.3192E+00,.3755E+00,.4219E+00,.4788E+00,.6140E+00,.9435E+00,.2014E+00,&
4578  .9609E-01,.1483E+00,.2354E+00,.3193E+00,.3756E+00,.4219E+00,.4788E+00,.6140E+00,.9436E+00,.2015E+00,&
4579  .9609E-01,.1483E+00,.2354E+00,.3193E+00,.3756E+00,.4219E+00,.4788E+00,.6141E+00,.9437E+00,.2015E+00,&
4580  .9610E-01,.1483E+00,.2355E+00,.3193E+00,.3757E+00,.4220E+00,.4789E+00,.6141E+00,.9438E+00,.2015E+00,&
4581  .9610E-01,.1483E+00,.2355E+00,.3193E+00,.3757E+00,.4220E+00,.4789E+00,.6142E+00,.9439E+00,.2015E+00,&
4582  .9610E-01,.1484E+00,.2355E+00,.3193E+00,.3757E+00,.4220E+00,.4790E+00,.6142E+00,.9440E+00,.2015E+00,&
4583  .9677E-01,.1494E+00,.2373E+00,.3213E+00,.3776E+00,.4240E+00,.4810E+00,.6167E+00,.9467E+00,.2030E+00,&
4584  .9744E-01,.1504E+00,.2390E+00,.3233E+00,.3796E+00,.4260E+00,.4831E+00,.6191E+00,.9495E+00,.2045E+00,&
4585  .9812E-01,.1514E+00,.2408E+00,.3253E+00,.3815E+00,.4280E+00,.4851E+00,.6215E+00,.9523E+00,.2059E+00,&
4586  .9879E-01,.1524E+00,.2425E+00,.3272E+00,.3834E+00,.4300E+00,.4872E+00,.6239E+00,.9551E+00,.2074E+00,&
4587  .9946E-01,.1534E+00,.2443E+00,.3292E+00,.3853E+00,.4319E+00,.4892E+00,.6264E+00,.9579E+00,.2089E+00,&
4588  .9947E-01,.1535E+00,.2443E+00,.3292E+00,.3853E+00,.4320E+00,.4893E+00,.6264E+00,.9579E+00,.2089E+00,&
4589  .9948E-01,.1535E+00,.2443E+00,.3292E+00,.3853E+00,.4320E+00,.4893E+00,.6265E+00,.9580E+00,.2089E+00,&
4590  .9949E-01,.1535E+00,.2443E+00,.3293E+00,.3854E+00,.4320E+00,.4894E+00,.6265E+00,.9580E+00,.2089E+00,&
4591  .9950E-01,.1535E+00,.2443E+00,.3293E+00,.3854E+00,.4321E+00,.4894E+00,.6265E+00,.9581E+00,.2089E+00,&
4592  .9951E-01,.1535E+00,.2443E+00,.3293E+00,.3854E+00,.4321E+00,.4894E+00,.6266E+00,.9581E+00,.2089E+00,&
4593  .1016E+00,.1566E+00,.2498E+00,.3352E+00,.3910E+00,.4379E+00,.4954E+00,.6336E+00,.9659E+00,.2135E+00,&
4594  .1036E+00,.1598E+00,.2552E+00,.3411E+00,.3966E+00,.4436E+00,.5013E+00,.6406E+00,.9737E+00,.2181E+00,&
4595  .1056E+00,.1629E+00,.2606E+00,.3470E+00,.4022E+00,.4494E+00,.5073E+00,.6476E+00,.9815E+00,.2226E+00,&
4596  .1077E+00,.1660E+00,.2660E+00,.3528E+00,.4078E+00,.4552E+00,.5132E+00,.6547E+00,.9893E+00,.2272E+00,&
4597  .1097E+00,.1691E+00,.2714E+00,.3587E+00,.4134E+00,.4609E+00,.5192E+00,.6617E+00,.9971E+00,.2318E+00,&
4598  .1156E+00,.1780E+00,.2871E+00,.3745E+00,.4276E+00,.4753E+00,.5338E+00,.6790E+00,.1015E+01,.2450E+00,&
4599  .1214E+00,.1870E+00,.3027E+00,.3902E+00,.4418E+00,.4896E+00,.5484E+00,.6963E+00,.1033E+01,.2583E+00,&
4600  .1272E+00,.1959E+00,.3183E+00,.4060E+00,.4560E+00,.5040E+00,.5630E+00,.7136E+00,.1052E+01,.2715E+00,&
4601  .1330E+00,.2048E+00,.3340E+00,.4217E+00,.4702E+00,.5183E+00,.5776E+00,.7309E+00,.1070E+01,.2848E+00,&
4602  .1389E+00,.2137E+00,.3496E+00,.4375E+00,.4843E+00,.5327E+00,.5922E+00,.7482E+00,.1088E+01,.2980E+00,&
4603  .1469E+00,.2261E+00,.3716E+00,.4570E+00,.5003E+00,.5485E+00,.6081E+00,.7674E+00,.1106E+01,.3168E+00,&
4604  .1549E+00,.2385E+00,.3936E+00,.4766E+00,.5163E+00,.5643E+00,.6240E+00,.7865E+00,.1125E+01,.3356E+00,&
4605  .1628E+00,.2508E+00,.4155E+00,.4961E+00,.5322E+00,.5802E+00,.6399E+00,.8057E+00,.1143E+01,.3544E+00,&
4606  .1708E+00,.2632E+00,.4375E+00,.5156E+00,.5482E+00,.5960E+00,.6558E+00,.8249E+00,.1162E+01,.3732E+00,&
4607  .1788E+00,.2756E+00,.4595E+00,.5351E+00,.5642E+00,.6118E+00,.6717E+00,.8441E+00,.1180E+01,.3920E+00,&
4608  .1915E+00,.2955E+00,.4950E+00,.5642E+00,.5863E+00,.6335E+00,.6933E+00,.8707E+00,.1204E+01,.4226E+00,&
4609  .2002E+00,.3090E+00,.5193E+00,.5834E+00,.6006E+00,.6474E+00,.7072E+00,.8879E+00,.1219E+01,.4436E+00,&
4610  .2134E+00,.3299E+00,.5568E+00,.6122E+00,.6214E+00,.6677E+00,.7273E+00,.9132E+00,.1241E+01,.4760E+00,&
4611  .2225E+00,.3443E+00,.5824E+00,.6313E+00,.6350E+00,.6808E+00,.7402E+00,.9296E+00,.1255E+01,.4984E+00,&
4612  .2364E+00,.3662E+00,.6219E+00,.6600E+00,.6547E+00,.6998E+00,.7590E+00,.9537E+00,.1274E+01,.5328E+00,&
4613  .2506E+00,.3888E+00,.6626E+00,.6887E+00,.6738E+00,.7181E+00,.7771E+00,.9775E+00,.1293E+01,.5683E+00,&
4614  .2603E+00,.4043E+00,.6904E+00,.7078E+00,.6863E+00,.7300E+00,.7889E+00,.9929E+00,.1305E+01,.5927E+00,&
4615  .2751E+00,.4280E+00,.7332E+00,.7365E+00,.7045E+00,.7474E+00,.8060E+00,.1016E+01,.1322E+01,.6302E+00,&
4616  .2852E+00,.4443E+00,.7625E+00,.7557E+00,.7165E+00,.7588E+00,.8172E+00,.1031E+01,.1333E+01,.6560E+00,&
4617  .3007E+00,.4692E+00,.8074E+00,.7846E+00,.7340E+00,.7754E+00,.8335E+00,.1053E+01,.1349E+01,.6956E+00,&
4618  .3165E+00,.4949E+00,.8536E+00,.8137E+00,.7512E+00,.7916E+00,.8495E+00,.1076E+01,.1364E+01,.7365E+00,&
4619  .3328E+00,.5213E+00,.9012E+00,.8429E+00,.7681E+00,.8075E+00,.8651E+00,.1098E+01,.1379E+01,.7786E+00,&
4620  .3495E+00,.5484E+00,.9503E+00,.8724E+00,.7847E+00,.8231E+00,.8805E+00,.1120E+01,.1393E+01,.8221E+00,&
4621  .3725E+00,.5858E+00,.1018E+01,.9123E+00,.8065E+00,.8434E+00,.9004E+00,.1149E+01,.1412E+01,.8821E+00,&
4622  .3962E+00,.6246E+00,.1088E+01,.9527E+00,.8280E+00,.8634E+00,.9201E+00,.1178E+01,.1429E+01,.9445E+00,&
4623  .4270E+00,.6751E+00,.1179E+01,.1004E+01,.8546E+00,.8880E+00,.9443E+00,.1215E+01,.1451E+01,.1026E+01,&
4624  .4722E+00,.7496E+00,.1313E+01,.1078E+01,.8915E+00,.9219E+00,.9776E+00,.1267E+01,.1479E+01,.1146E+01,&
4625  .5273E+00,.8407E+00,.1477E+01,.1167E+01,.9337E+00,.9605E+00,.1016E+01,.1327E+01,.1511E+01,.1294E+01,&
4626  .6812E+00,.1097E+01,.1939E+01,.1406E+01,.1042E+01,.1058E+01,.1111E+01,.1488E+01,.1588E+01,.1710E+01/
4627  data (((Bex_lw(ai,k,nh),ai= 3, 3),k=1,nwl_lw),nh=0,99)/ &
4628  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4629  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4630  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4631  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4632  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4633  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4634  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4635  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4636  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4637  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4638  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4639  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4640  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4641  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4642  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4643  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4644  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4645  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4646  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4647  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4648  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4649  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4650  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4651  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4652  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4653  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4654  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4655  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4656  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4657  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4658  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4659  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4660  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4661  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4662  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4663  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4664  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4665  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4666  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4667  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4668  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4669  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4670  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4671  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4672  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4673  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4674  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4675  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4676  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4677  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4678  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4679  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4680  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4681  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4682  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4683  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4684  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4685  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4686  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4687  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4688  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4689  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4690  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4691  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4692  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4693  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4694  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4695  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4696  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4697  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4698  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4699  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4700  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4701  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4702  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4703  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4704  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4705  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4706  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4707  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4708  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4709  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4710  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4711  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4712  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4713  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4714  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4715  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4716  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4717  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4718  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4719  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4720  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4721  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4722  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4723  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4724  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4725  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4726  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4727  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01/
4728  data (((Bex_lw(ai,k,nh),ai= 4, 4),k=1,nwl_lw),nh=0,99)/ &
4729  .4255E-01,.3839E-01,.3750E-01,.2284E-01,.6699E-01,.1081E+00,.5913E-01,.2771E-01,.1284E-01,.4138E-01,&
4730  .4334E-01,.3951E-01,.3943E-01,.2379E-01,.6799E-01,.1091E+00,.5958E-01,.2844E-01,.1315E-01,.4306E-01,&
4731  .4413E-01,.4063E-01,.4135E-01,.2474E-01,.6898E-01,.1102E+00,.6002E-01,.2916E-01,.1346E-01,.4475E-01,&
4732  .4492E-01,.4174E-01,.4327E-01,.2569E-01,.6998E-01,.1113E+00,.6046E-01,.2989E-01,.1377E-01,.4644E-01,&
4733  .4572E-01,.4286E-01,.4520E-01,.2664E-01,.7098E-01,.1124E+00,.6091E-01,.3061E-01,.1407E-01,.4813E-01,&
4734  .4651E-01,.4398E-01,.4712E-01,.2759E-01,.7198E-01,.1134E+00,.6135E-01,.3133E-01,.1438E-01,.4982E-01,&
4735  .4734E-01,.4518E-01,.4920E-01,.2861E-01,.7299E-01,.1145E+00,.6182E-01,.3210E-01,.1471E-01,.5165E-01,&
4736  .4818E-01,.4639E-01,.5128E-01,.2964E-01,.7400E-01,.1156E+00,.6229E-01,.3287E-01,.1505E-01,.5348E-01,&
4737  .4901E-01,.4759E-01,.5336E-01,.3067E-01,.7502E-01,.1167E+00,.6275E-01,.3364E-01,.1538E-01,.5532E-01,&
4738  .4985E-01,.4879E-01,.5545E-01,.3170E-01,.7603E-01,.1178E+00,.6322E-01,.3441E-01,.1571E-01,.5715E-01,&
4739  .5069E-01,.4999E-01,.5753E-01,.3273E-01,.7705E-01,.1189E+00,.6369E-01,.3518E-01,.1604E-01,.5899E-01,&
4740  .5157E-01,.5128E-01,.5977E-01,.3384E-01,.7807E-01,.1200E+00,.6418E-01,.3599E-01,.1640E-01,.6096E-01,&
4741  .5245E-01,.5257E-01,.6201E-01,.3495E-01,.7910E-01,.1211E+00,.6467E-01,.3680E-01,.1675E-01,.6294E-01,&
4742  .5333E-01,.5386E-01,.6425E-01,.3606E-01,.8012E-01,.1223E+00,.6516E-01,.3762E-01,.1711E-01,.6492E-01,&
4743  .5421E-01,.5514E-01,.6649E-01,.3717E-01,.8115E-01,.1234E+00,.6565E-01,.3843E-01,.1746E-01,.6690E-01,&
4744  .5509E-01,.5643E-01,.6873E-01,.3828E-01,.8217E-01,.1245E+00,.6614E-01,.3924E-01,.1782E-01,.6888E-01,&
4745  .5602E-01,.5781E-01,.7113E-01,.3947E-01,.8321E-01,.1256E+00,.6666E-01,.4010E-01,.1820E-01,.7101E-01,&
4746  .5695E-01,.5918E-01,.7353E-01,.4066E-01,.8425E-01,.1267E+00,.6717E-01,.4097E-01,.1858E-01,.7314E-01,&
4747  .5787E-01,.6056E-01,.7593E-01,.4185E-01,.8528E-01,.1279E+00,.6769E-01,.4183E-01,.1897E-01,.7526E-01,&
4748  .5880E-01,.6193E-01,.7834E-01,.4304E-01,.8632E-01,.1290E+00,.6820E-01,.4269E-01,.1935E-01,.7739E-01,&
4749  .5973E-01,.6331E-01,.8074E-01,.4424E-01,.8736E-01,.1301E+00,.6872E-01,.4355E-01,.1973E-01,.7952E-01,&
4750  .6070E-01,.6477E-01,.8330E-01,.4551E-01,.8841E-01,.1313E+00,.6926E-01,.4446E-01,.2014E-01,.8180E-01,&
4751  .6168E-01,.6623E-01,.8586E-01,.4678E-01,.8947E-01,.1324E+00,.6980E-01,.4537E-01,.2055E-01,.8407E-01,&
4752  .6265E-01,.6769E-01,.8843E-01,.4805E-01,.9052E-01,.1336E+00,.7034E-01,.4628E-01,.2096E-01,.8635E-01,&
4753  .6362E-01,.6916E-01,.9099E-01,.4932E-01,.9157E-01,.1347E+00,.7088E-01,.4719E-01,.2137E-01,.8863E-01,&
4754  .6460E-01,.7062E-01,.9355E-01,.5059E-01,.9262E-01,.1358E+00,.7142E-01,.4809E-01,.2178E-01,.9091E-01,&
4755  .6562E-01,.7217E-01,.9628E-01,.5195E-01,.9369E-01,.1370E+00,.7198E-01,.4905E-01,.2222E-01,.9334E-01,&
4756  .6664E-01,.7372E-01,.9901E-01,.5331E-01,.9475E-01,.1382E+00,.7255E-01,.5001E-01,.2266E-01,.9577E-01,&
4757  .6766E-01,.7528E-01,.1017E+00,.5466E-01,.9581E-01,.1393E+00,.7311E-01,.5097E-01,.2310E-01,.9820E-01,&
4758  .6869E-01,.7683E-01,.1045E+00,.5602E-01,.9687E-01,.1405E+00,.7368E-01,.5193E-01,.2354E-01,.1006E+00,&
4759  .6971E-01,.7838E-01,.1072E+00,.5737E-01,.9793E-01,.1416E+00,.7424E-01,.5289E-01,.2398E-01,.1031E+00,&
4760  .7078E-01,.8002E-01,.1101E+00,.5881E-01,.9901E-01,.1428E+00,.7483E-01,.5390E-01,.2445E-01,.1057E+00,&
4761  .7185E-01,.8167E-01,.1130E+00,.6025E-01,.1001E+00,.1440E+00,.7543E-01,.5491E-01,.2492E-01,.1082E+00,&
4762  .7292E-01,.8331E-01,.1159E+00,.6169E-01,.1012E+00,.1451E+00,.7602E-01,.5592E-01,.2539E-01,.1108E+00,&
4763  .7399E-01,.8496E-01,.1188E+00,.6313E-01,.1022E+00,.1463E+00,.7661E-01,.5693E-01,.2586E-01,.1134E+00,&
4764  .7507E-01,.8660E-01,.1217E+00,.6456E-01,.1033E+00,.1475E+00,.7721E-01,.5794E-01,.2633E-01,.1160E+00,&
4765  .7619E-01,.8833E-01,.1248E+00,.6608E-01,.1044E+00,.1486E+00,.7782E-01,.5900E-01,.2683E-01,.1187E+00,&
4766  .7731E-01,.9007E-01,.1278E+00,.6761E-01,.1055E+00,.1498E+00,.7844E-01,.6006E-01,.2734E-01,.1215E+00,&
4767  .7843E-01,.9180E-01,.1309E+00,.6913E-01,.1066E+00,.1510E+00,.7906E-01,.6112E-01,.2784E-01,.1242E+00,&
4768  .7955E-01,.9353E-01,.1340E+00,.7065E-01,.1077E+00,.1522E+00,.7968E-01,.6218E-01,.2834E-01,.1269E+00,&
4769  .8067E-01,.9527E-01,.1370E+00,.7217E-01,.1088E+00,.1534E+00,.8030E-01,.6324E-01,.2885E-01,.1297E+00,&
4770  .8185E-01,.9710E-01,.1402E+00,.7378E-01,.1099E+00,.1546E+00,.8095E-01,.6435E-01,.2939E-01,.1326E+00,&
4771  .8302E-01,.9893E-01,.1435E+00,.7538E-01,.1110E+00,.1558E+00,.8159E-01,.6547E-01,.2992E-01,.1355E+00,&
4772  .8419E-01,.1008E+00,.1467E+00,.7699E-01,.1121E+00,.1569E+00,.8223E-01,.6658E-01,.3046E-01,.1384E+00,&
4773  .8537E-01,.1026E+00,.1500E+00,.7860E-01,.1132E+00,.1581E+00,.8288E-01,.6770E-01,.3100E-01,.1412E+00,&
4774  .8654E-01,.1044E+00,.1532E+00,.8020E-01,.1143E+00,.1593E+00,.8352E-01,.6881E-01,.3154E-01,.1441E+00,&
4775  .8777E-01,.1063E+00,.1566E+00,.8190E-01,.1154E+00,.1605E+00,.8420E-01,.6998E-01,.3211E-01,.1472E+00,&
4776  .8899E-01,.1083E+00,.1600E+00,.8359E-01,.1165E+00,.1617E+00,.8487E-01,.7116E-01,.3269E-01,.1503E+00,&
4777  .9022E-01,.1102E+00,.1634E+00,.8528E-01,.1176E+00,.1629E+00,.8554E-01,.7233E-01,.3326E-01,.1533E+00,&
4778  .9145E-01,.1121E+00,.1668E+00,.8698E-01,.1188E+00,.1641E+00,.8621E-01,.7350E-01,.3384E-01,.1564E+00,&
4779  .9267E-01,.1140E+00,.1703E+00,.8867E-01,.1199E+00,.1653E+00,.8689E-01,.7467E-01,.3441E-01,.1595E+00,&
4780  .9415E-01,.1164E+00,.1745E+00,.9075E-01,.1212E+00,.1667E+00,.8767E-01,.7609E-01,.3511E-01,.1633E+00,&
4781  .9563E-01,.1188E+00,.1787E+00,.9283E-01,.1224E+00,.1680E+00,.8846E-01,.7751E-01,.3581E-01,.1670E+00,&
4782  .9710E-01,.1211E+00,.1829E+00,.9491E-01,.1237E+00,.1694E+00,.8925E-01,.7892E-01,.3650E-01,.1708E+00,&
4783  .9858E-01,.1235E+00,.1871E+00,.9699E-01,.1250E+00,.1707E+00,.9004E-01,.8034E-01,.3720E-01,.1745E+00,&
4784  .1001E+00,.1258E+00,.1913E+00,.9907E-01,.1263E+00,.1721E+00,.9082E-01,.8176E-01,.3789E-01,.1783E+00,&
4785  .1016E+00,.1283E+00,.1957E+00,.1013E+00,.1276E+00,.1734E+00,.9165E-01,.8325E-01,.3864E-01,.1823E+00,&
4786  .1031E+00,.1308E+00,.2001E+00,.1035E+00,.1289E+00,.1748E+00,.9247E-01,.8474E-01,.3939E-01,.1863E+00,&
4787  .1047E+00,.1333E+00,.2046E+00,.1057E+00,.1302E+00,.1761E+00,.9329E-01,.8623E-01,.4014E-01,.1903E+00,&
4788  .1062E+00,.1357E+00,.2090E+00,.1079E+00,.1315E+00,.1775E+00,.9412E-01,.8773E-01,.4089E-01,.1943E+00,&
4789  .1078E+00,.1382E+00,.2134E+00,.1101E+00,.1327E+00,.1788E+00,.9494E-01,.8922E-01,.4164E-01,.1982E+00,&
4790  .1092E+00,.1405E+00,.2175E+00,.1121E+00,.1340E+00,.1801E+00,.9575E-01,.9062E-01,.4237E-01,.2019E+00,&
4791  .1107E+00,.1428E+00,.2216E+00,.1141E+00,.1352E+00,.1815E+00,.9657E-01,.9201E-01,.4309E-01,.2056E+00,&
4792  .1121E+00,.1452E+00,.2258E+00,.1162E+00,.1365E+00,.1828E+00,.9738E-01,.9341E-01,.4382E-01,.2093E+00,&
4793  .1136E+00,.1475E+00,.2299E+00,.1182E+00,.1377E+00,.1841E+00,.9819E-01,.9481E-01,.4455E-01,.2130E+00,&
4794  .1150E+00,.1498E+00,.2340E+00,.1202E+00,.1389E+00,.1854E+00,.9901E-01,.9621E-01,.4528E-01,.2167E+00,&
4795  .1167E+00,.1525E+00,.2388E+00,.1226E+00,.1403E+00,.1868E+00,.9991E-01,.9785E-01,.4614E-01,.2211E+00,&
4796  .1184E+00,.1552E+00,.2437E+00,.1251E+00,.1416E+00,.1882E+00,.1008E+00,.9949E-01,.4699E-01,.2255E+00,&
4797  .1201E+00,.1580E+00,.2486E+00,.1275E+00,.1430E+00,.1896E+00,.1017E+00,.1011E+00,.4785E-01,.2299E+00,&
4798  .1218E+00,.1607E+00,.2535E+00,.1299E+00,.1443E+00,.1910E+00,.1026E+00,.1028E+00,.4870E-01,.2343E+00,&
4799  .1235E+00,.1634E+00,.2584E+00,.1323E+00,.1457E+00,.1923E+00,.1035E+00,.1044E+00,.4956E-01,.2387E+00,&
4800  .1260E+00,.1676E+00,.2659E+00,.1360E+00,.1476E+00,.1942E+00,.1048E+00,.1069E+00,.5083E-01,.2455E+00,&
4801  .1285E+00,.1717E+00,.2734E+00,.1397E+00,.1495E+00,.1961E+00,.1061E+00,.1094E+00,.5210E-01,.2522E+00,&
4802  .1311E+00,.1759E+00,.2809E+00,.1434E+00,.1514E+00,.1980E+00,.1074E+00,.1118E+00,.5337E-01,.2590E+00,&
4803  .1336E+00,.1801E+00,.2884E+00,.1471E+00,.1533E+00,.1999E+00,.1088E+00,.1143E+00,.5464E-01,.2657E+00,&
4804  .1361E+00,.1843E+00,.2959E+00,.1508E+00,.1552E+00,.2018E+00,.1101E+00,.1168E+00,.5591E-01,.2725E+00,&
4805  .1396E+00,.1900E+00,.3063E+00,.1559E+00,.1577E+00,.2042E+00,.1118E+00,.1202E+00,.5767E-01,.2819E+00,&
4806  .1431E+00,.1958E+00,.3168E+00,.1611E+00,.1601E+00,.2066E+00,.1136E+00,.1236E+00,.5943E-01,.2913E+00,&
4807  .1466E+00,.2016E+00,.3272E+00,.1662E+00,.1626E+00,.2089E+00,.1154E+00,.1271E+00,.6119E-01,.3007E+00,&
4808  .1501E+00,.2074E+00,.3376E+00,.1714E+00,.1650E+00,.2113E+00,.1172E+00,.1305E+00,.6296E-01,.3102E+00,&
4809  .1535E+00,.2132E+00,.3481E+00,.1765E+00,.1675E+00,.2137E+00,.1189E+00,.1339E+00,.6472E-01,.3196E+00,&
4810  .1580E+00,.2206E+00,.3615E+00,.1831E+00,.1705E+00,.2165E+00,.1212E+00,.1383E+00,.6697E-01,.3317E+00,&
4811  .1624E+00,.2281E+00,.3751E+00,.1898E+00,.1736E+00,.2193E+00,.1235E+00,.1427E+00,.6928E-01,.3440E+00,&
4812  .1670E+00,.2358E+00,.3890E+00,.1966E+00,.1766E+00,.2222E+00,.1258E+00,.1472E+00,.7165E-01,.3566E+00,&
4813  .1717E+00,.2436E+00,.4032E+00,.2036E+00,.1797E+00,.2251E+00,.1281E+00,.1518E+00,.7407E-01,.3693E+00,&
4814  .1778E+00,.2539E+00,.4219E+00,.2128E+00,.1837E+00,.2287E+00,.1312E+00,.1579E+00,.7725E-01,.3863E+00,&
4815  .1841E+00,.2645E+00,.4410E+00,.2221E+00,.1877E+00,.2324E+00,.1343E+00,.1641E+00,.8051E-01,.4036E+00,&
4816  .1919E+00,.2777E+00,.4651E+00,.2339E+00,.1926E+00,.2368E+00,.1382E+00,.1718E+00,.8457E-01,.4253E+00,&
4817  .1999E+00,.2913E+00,.4897E+00,.2460E+00,.1976E+00,.2412E+00,.1422E+00,.1798E+00,.8879E-01,.4476E+00,&
4818  .2096E+00,.3077E+00,.5195E+00,.2606E+00,.2035E+00,.2464E+00,.1470E+00,.1894E+00,.9389E-01,.4746E+00,&
4819  .2194E+00,.3245E+00,.5501E+00,.2756E+00,.2095E+00,.2516E+00,.1520E+00,.1993E+00,.9917E-01,.5022E+00,&
4820  .2311E+00,.3445E+00,.5862E+00,.2933E+00,.2164E+00,.2576E+00,.1577E+00,.2109E+00,.1054E+00,.5350E+00,&
4821  .2446E+00,.3676E+00,.6284E+00,.3139E+00,.2244E+00,.2644E+00,.1646E+00,.2245E+00,.1128E+00,.5732E+00,&
4822  .2619E+00,.3971E+00,.6820E+00,.3401E+00,.2343E+00,.2727E+00,.1731E+00,.2417E+00,.1222E+00,.6218E+00,&
4823  .2813E+00,.4303E+00,.7424E+00,.3696E+00,.2454E+00,.2819E+00,.1828E+00,.2611E+00,.1329E+00,.6766E+00,&
4824  .3081E+00,.4765E+00,.8264E+00,.4106E+00,.2604E+00,.2943E+00,.1962E+00,.2881E+00,.1480E+00,.7528E+00,&
4825  .3431E+00,.5366E+00,.9357E+00,.4639E+00,.2797E+00,.3101E+00,.2137E+00,.3233E+00,.1679E+00,.8521E+00,&
4826  .3848E+00,.6084E+00,.1066E+01,.5275E+00,.3026E+00,.3286E+00,.2347E+00,.3654E+00,.1922E+00,.9706E+00,&
4827  .4548E+00,.7287E+00,.1285E+01,.6341E+00,.3407E+00,.3592E+00,.2700E+00,.4362E+00,.2340E+00,.1170E+01,&
4828  .5711E+00,.9289E+00,.1649E+01,.8114E+00,.4040E+00,.4102E+00,.3293E+00,.5544E+00,.3062E+00,.1500E+01/
4829  data (((Bex_lw(ai,k,nh),ai= 5, 5),k=1,nwl_lw),nh=0,99)/ &
4830  .5506E-01,.3918E-01,.2796E-01,.3351E-01,.6595E-01,.8195E-01,.6205E-01,.1181E+00,.2768E+00,.4168E-01,&
4831  .5707E-01,.4229E-01,.3309E-01,.3612E-01,.6796E-01,.8445E-01,.6504E-01,.1233E+00,.2868E+00,.4650E-01,&
4832  .5908E-01,.4539E-01,.3821E-01,.3872E-01,.6998E-01,.8695E-01,.6803E-01,.1285E+00,.2968E+00,.5133E-01,&
4833  .6109E-01,.4849E-01,.4334E-01,.4133E-01,.7199E-01,.8944E-01,.7102E-01,.1336E+00,.3068E+00,.5616E-01,&
4834  .6311E-01,.5160E-01,.4847E-01,.4393E-01,.7400E-01,.9194E-01,.7401E-01,.1388E+00,.3167E+00,.6099E-01,&
4835  .6512E-01,.5470E-01,.5360E-01,.4654E-01,.7601E-01,.9444E-01,.7700E-01,.1440E+00,.3267E+00,.6582E-01,&
4836  .6733E-01,.5826E-01,.5943E-01,.4954E-01,.7832E-01,.9730E-01,.8045E-01,.1499E+00,.3380E+00,.7138E-01,&
4837  .6954E-01,.6183E-01,.6527E-01,.5253E-01,.8062E-01,.1002E+00,.8391E-01,.1559E+00,.3493E+00,.7693E-01,&
4838  .7176E-01,.6540E-01,.7111E-01,.5553E-01,.8292E-01,.1030E+00,.8736E-01,.1618E+00,.3606E+00,.8249E-01,&
4839  .7397E-01,.6896E-01,.7695E-01,.5852E-01,.8522E-01,.1059E+00,.9081E-01,.1677E+00,.3719E+00,.8805E-01,&
4840  .7618E-01,.7253E-01,.8279E-01,.6152E-01,.8753E-01,.1087E+00,.9426E-01,.1737E+00,.3833E+00,.9361E-01,&
4841  .7864E-01,.7662E-01,.8941E-01,.6493E-01,.9016E-01,.1120E+00,.9826E-01,.1805E+00,.3962E+00,.9996E-01,&
4842  .8109E-01,.8070E-01,.9604E-01,.6835E-01,.9278E-01,.1153E+00,.1023E+00,.1873E+00,.4090E+00,.1063E+00,&
4843  .8354E-01,.8479E-01,.1027E+00,.7177E-01,.9541E-01,.1185E+00,.1062E+00,.1941E+00,.4219E+00,.1127E+00,&
4844  .8600E-01,.8888E-01,.1093E+00,.7518E-01,.9804E-01,.1218E+00,.1102E+00,.2009E+00,.4348E+00,.1190E+00,&
4845  .8845E-01,.9296E-01,.1159E+00,.7860E-01,.1007E+00,.1250E+00,.1142E+00,.2076E+00,.4477E+00,.1254E+00,&
4846  .9115E-01,.9755E-01,.1233E+00,.8241E-01,.1036E+00,.1287E+00,.1188E+00,.2153E+00,.4621E+00,.1325E+00,&
4847  .9386E-01,.1021E+00,.1306E+00,.8622E-01,.1066E+00,.1324E+00,.1233E+00,.2229E+00,.4765E+00,.1396E+00,&
4848  .9656E-01,.1067E+00,.1380E+00,.9003E-01,.1095E+00,.1361E+00,.1279E+00,.2306E+00,.4909E+00,.1467E+00,&
4849  .9926E-01,.1113E+00,.1453E+00,.9383E-01,.1125E+00,.1397E+00,.1324E+00,.2382E+00,.5052E+00,.1539E+00,&
4850  .1020E+00,.1159E+00,.1527E+00,.9764E-01,.1155E+00,.1434E+00,.1369E+00,.2459E+00,.5196E+00,.1610E+00,&
4851  .1050E+00,.1211E+00,.1609E+00,.1019E+00,.1188E+00,.1476E+00,.1421E+00,.2545E+00,.5358E+00,.1689E+00,&
4852  .1079E+00,.1262E+00,.1691E+00,.1061E+00,.1221E+00,.1517E+00,.1473E+00,.2631E+00,.5519E+00,.1769E+00,&
4853  .1109E+00,.1314E+00,.1772E+00,.1104E+00,.1255E+00,.1559E+00,.1525E+00,.2717E+00,.5680E+00,.1849E+00,&
4854  .1139E+00,.1365E+00,.1854E+00,.1146E+00,.1288E+00,.1600E+00,.1576E+00,.2804E+00,.5842E+00,.1928E+00,&
4855  .1169E+00,.1417E+00,.1936E+00,.1189E+00,.1321E+00,.1642E+00,.1628E+00,.2890E+00,.6003E+00,.2008E+00,&
4856  .1202E+00,.1474E+00,.2025E+00,.1236E+00,.1358E+00,.1688E+00,.1686E+00,.2986E+00,.6181E+00,.2096E+00,&
4857  .1235E+00,.1531E+00,.2115E+00,.1282E+00,.1395E+00,.1735E+00,.1744E+00,.3081E+00,.6359E+00,.2183E+00,&
4858  .1267E+00,.1588E+00,.2204E+00,.1329E+00,.1432E+00,.1781E+00,.1803E+00,.3177E+00,.6537E+00,.2271E+00,&
4859  .1300E+00,.1645E+00,.2294E+00,.1375E+00,.1469E+00,.1827E+00,.1861E+00,.3273E+00,.6714E+00,.2358E+00,&
4860  .1333E+00,.1702E+00,.2383E+00,.1422E+00,.1506E+00,.1874E+00,.1919E+00,.3369E+00,.6892E+00,.2446E+00,&
4861  .1369E+00,.1766E+00,.2481E+00,.1473E+00,.1548E+00,.1926E+00,.1984E+00,.3476E+00,.7089E+00,.2542E+00,&
4862  .1405E+00,.1829E+00,.2579E+00,.1524E+00,.1589E+00,.1978E+00,.2050E+00,.3583E+00,.7287E+00,.2639E+00,&
4863  .1441E+00,.1892E+00,.2678E+00,.1576E+00,.1631E+00,.2030E+00,.2115E+00,.3690E+00,.7484E+00,.2736E+00,&
4864  .1478E+00,.1956E+00,.2776E+00,.1627E+00,.1672E+00,.2082E+00,.2181E+00,.3797E+00,.7681E+00,.2832E+00,&
4865  .1514E+00,.2019E+00,.2874E+00,.1678E+00,.1713E+00,.2134E+00,.2246E+00,.3904E+00,.7878E+00,.2929E+00,&
4866  .1553E+00,.2088E+00,.2980E+00,.1734E+00,.1759E+00,.2191E+00,.2319E+00,.4021E+00,.8092E+00,.3034E+00,&
4867  .1593E+00,.2158E+00,.3086E+00,.1790E+00,.1804E+00,.2249E+00,.2391E+00,.4139E+00,.8306E+00,.3139E+00,&
4868  .1632E+00,.2227E+00,.3192E+00,.1845E+00,.1850E+00,.2306E+00,.2464E+00,.4256E+00,.8521E+00,.3244E+00,&
4869  .1672E+00,.2296E+00,.3298E+00,.1901E+00,.1895E+00,.2364E+00,.2537E+00,.4374E+00,.8735E+00,.3349E+00,&
4870  .1711E+00,.2366E+00,.3405E+00,.1957E+00,.1941E+00,.2421E+00,.2609E+00,.4491E+00,.8949E+00,.3454E+00,&
4871  .1755E+00,.2442E+00,.3520E+00,.2017E+00,.1991E+00,.2485E+00,.2690E+00,.4621E+00,.9185E+00,.3568E+00,&
4872  .1798E+00,.2518E+00,.3636E+00,.2078E+00,.2042E+00,.2549E+00,.2771E+00,.4751E+00,.9421E+00,.3683E+00,&
4873  .1841E+00,.2594E+00,.3751E+00,.2139E+00,.2092E+00,.2613E+00,.2853E+00,.4881E+00,.9657E+00,.3798E+00,&
4874  .1885E+00,.2671E+00,.3867E+00,.2199E+00,.2142E+00,.2677E+00,.2934E+00,.5011E+00,.9893E+00,.3913E+00,&
4875  .1928E+00,.2747E+00,.3983E+00,.2260E+00,.2193E+00,.2741E+00,.3015E+00,.5141E+00,.1013E+01,.4028E+00,&
4876  .1975E+00,.2830E+00,.4106E+00,.2325E+00,.2248E+00,.2811E+00,.3104E+00,.5282E+00,.1038E+01,.4151E+00,&
4877  .2022E+00,.2912E+00,.4230E+00,.2391E+00,.2303E+00,.2881E+00,.3193E+00,.5424E+00,.1064E+01,.4275E+00,&
4878  .2069E+00,.2995E+00,.4354E+00,.2456E+00,.2358E+00,.2951E+00,.3282E+00,.5565E+00,.1089E+01,.4398E+00,&
4879  .2116E+00,.3078E+00,.4478E+00,.2521E+00,.2413E+00,.3021E+00,.3372E+00,.5706E+00,.1114E+01,.4522E+00,&
4880  .2163E+00,.3161E+00,.4602E+00,.2587E+00,.2468E+00,.3091E+00,.3461E+00,.5848E+00,.1140E+01,.4645E+00,&
4881  .2205E+00,.3235E+00,.4712E+00,.2645E+00,.2518E+00,.3154E+00,.3542E+00,.5975E+00,.1162E+01,.4756E+00,&
4882  .2247E+00,.3309E+00,.4822E+00,.2703E+00,.2567E+00,.3217E+00,.3623E+00,.6103E+00,.1185E+01,.4866E+00,&
4883  .2290E+00,.3383E+00,.4932E+00,.2761E+00,.2617E+00,.3281E+00,.3704E+00,.6230E+00,.1208E+01,.4976E+00,&
4884  .2332E+00,.3458E+00,.5043E+00,.2819E+00,.2667E+00,.3344E+00,.3784E+00,.6357E+00,.1231E+01,.5086E+00,&
4885  .2374E+00,.3532E+00,.5153E+00,.2877E+00,.2716E+00,.3408E+00,.3865E+00,.6485E+00,.1254E+01,.5197E+00,&
4886  .2419E+00,.3611E+00,.5269E+00,.2939E+00,.2770E+00,.3476E+00,.3953E+00,.6621E+00,.1278E+01,.5314E+00,&
4887  .2464E+00,.3690E+00,.5386E+00,.3001E+00,.2823E+00,.3544E+00,.4040E+00,.6758E+00,.1302E+01,.5431E+00,&
4888  .2509E+00,.3770E+00,.5503E+00,.3063E+00,.2876E+00,.3612E+00,.4128E+00,.6894E+00,.1326E+01,.5548E+00,&
4889  .2554E+00,.3849E+00,.5619E+00,.3125E+00,.2930E+00,.3681E+00,.4215E+00,.7031E+00,.1350E+01,.5665E+00,&
4890  .2599E+00,.3928E+00,.5736E+00,.3186E+00,.2983E+00,.3749E+00,.4303E+00,.7167E+00,.1374E+01,.5782E+00,&
4891  .2647E+00,.4012E+00,.5858E+00,.3252E+00,.3040E+00,.3822E+00,.4396E+00,.7312E+00,.1399E+01,.5905E+00,&
4892  .2695E+00,.4096E+00,.5981E+00,.3317E+00,.3097E+00,.3895E+00,.4490E+00,.7456E+00,.1424E+01,.6028E+00,&
4893  .2743E+00,.4180E+00,.6103E+00,.3382E+00,.3154E+00,.3968E+00,.4583E+00,.7601E+00,.1450E+01,.6151E+00,&
4894  .2791E+00,.4264E+00,.6226E+00,.3447E+00,.3211E+00,.4041E+00,.4677E+00,.7746E+00,.1475E+01,.6274E+00,&
4895  .2839E+00,.4348E+00,.6348E+00,.3512E+00,.3268E+00,.4114E+00,.4770E+00,.7891E+00,.1500E+01,.6398E+00,&
4896  .2890E+00,.4438E+00,.6478E+00,.3581E+00,.3329E+00,.4193E+00,.4871E+00,.8046E+00,.1528E+01,.6529E+00,&
4897  .2941E+00,.4528E+00,.6608E+00,.3651E+00,.3390E+00,.4272E+00,.4973E+00,.8202E+00,.1555E+01,.6660E+00,&
4898  .2992E+00,.4618E+00,.6738E+00,.3720E+00,.3452E+00,.4351E+00,.5074E+00,.8358E+00,.1582E+01,.6792E+00,&
4899  .3044E+00,.4708E+00,.6868E+00,.3789E+00,.3513E+00,.4430E+00,.5175E+00,.8513E+00,.1609E+01,.6923E+00,&
4900  .3095E+00,.4798E+00,.6998E+00,.3859E+00,.3574E+00,.4509E+00,.5276E+00,.8669E+00,.1636E+01,.7055E+00,&
4901  .3185E+00,.4955E+00,.7222E+00,.3979E+00,.3682E+00,.4648E+00,.5454E+00,.8941E+00,.1683E+01,.7281E+00,&
4902  .3274E+00,.5111E+00,.7446E+00,.4098E+00,.3789E+00,.4786E+00,.5632E+00,.9213E+00,.1729E+01,.7508E+00,&
4903  .3364E+00,.5268E+00,.7670E+00,.4218E+00,.3897E+00,.4925E+00,.5810E+00,.9484E+00,.1776E+01,.7735E+00,&
4904  .3453E+00,.5425E+00,.7894E+00,.4338E+00,.4004E+00,.5064E+00,.5989E+00,.9756E+00,.1822E+01,.7962E+00,&
4905  .3543E+00,.5581E+00,.8118E+00,.4458E+00,.4112E+00,.5202E+00,.6167E+00,.1003E+01,.1869E+01,.8188E+00,&
4906  .3667E+00,.5796E+00,.8421E+00,.4621E+00,.4261E+00,.5396E+00,.6415E+00,.1040E+01,.1932E+01,.8497E+00,&
4907  .3790E+00,.6011E+00,.8725E+00,.4784E+00,.4410E+00,.5589E+00,.6663E+00,.1078E+01,.1996E+01,.8805E+00,&
4908  .3914E+00,.6226E+00,.9028E+00,.4947E+00,.4560E+00,.5782E+00,.6911E+00,.1115E+01,.2059E+01,.9113E+00,&
4909  .4037E+00,.6441E+00,.9331E+00,.5110E+00,.4709E+00,.5975E+00,.7159E+00,.1152E+01,.2123E+01,.9422E+00,&
4910  .4161E+00,.6656E+00,.9634E+00,.5274E+00,.4858E+00,.6168E+00,.7407E+00,.1190E+01,.2187E+01,.9730E+00,&
4911  .4320E+00,.6933E+00,.1002E+01,.5481E+00,.5051E+00,.6419E+00,.7730E+00,.1238E+01,.2267E+01,.1012E+01,&
4912  .4547E+00,.7327E+00,.1057E+01,.5778E+00,.5328E+00,.6778E+00,.8190E+00,.1306E+01,.2380E+01,.1068E+01,&
4913  .4751E+00,.7679E+00,.1105E+01,.6043E+00,.5576E+00,.7101E+00,.8605E+00,.1368E+01,.2482E+01,.1118E+01,&
4914  .4959E+00,.8038E+00,.1155E+01,.6311E+00,.5829E+00,.7430E+00,.9028E+00,.1430E+01,.2585E+01,.1169E+01,&
4915  .5284E+00,.8597E+00,.1231E+01,.6728E+00,.6227E+00,.7947E+00,.9690E+00,.1527E+01,.2748E+01,.1247E+01,&
4916  .5549E+00,.9054E+00,.1294E+01,.7069E+00,.6552E+00,.8370E+00,.1024E+01,.1607E+01,.2877E+01,.1311E+01,&
4917  .5901E+00,.9658E+00,.1375E+01,.7517E+00,.6983E+00,.8933E+00,.1096E+01,.1712E+01,.3046E+01,.1395E+01,&
4918  .6269E+00,.1028E+01,.1460E+01,.7982E+00,.7436E+00,.9522E+00,.1171E+01,.1821E+01,.3222E+01,.1482E+01,&
4919  .6697E+00,.1101E+01,.1558E+01,.8521E+00,.7963E+00,.1021E+01,.1259E+01,.1949E+01,.3428E+01,.1583E+01,&
4920  .7285E+00,.1201E+01,.1690E+01,.9254E+00,.8690E+00,.1116E+01,.1381E+01,.2122E+01,.3703E+01,.1720E+01,&
4921  .7908E+00,.1307E+01,.1829E+01,.1003E+01,.9462E+00,.1217E+01,.1510E+01,.2305E+01,.3988E+01,.1864E+01,&
4922  .8831E+00,.1462E+01,.2031E+01,.1116E+01,.1061E+01,.1367E+01,.1701E+01,.2575E+01,.4410E+01,.2074E+01,&
4923  .9884E+00,.1638E+01,.2259E+01,.1244E+01,.1192E+01,.1538E+01,.1920E+01,.2880E+01,.4873E+01,.2311E+01,&
4924  .1140E+01,.1890E+01,.2580E+01,.1426E+01,.1382E+01,.1787E+01,.2235E+01,.3315E+01,.5532E+01,.2646E+01,&
4925  .1365E+01,.2259E+01,.3043E+01,.1691E+01,.1664E+01,.2155E+01,.2701E+01,.3947E+01,.6458E+01,.3131E+01,&
4926  .1667E+01,.2750E+01,.3647E+01,.2042E+01,.2044E+01,.2652E+01,.3326E+01,.4784E+01,.7665E+01,.3767E+01,&
4927  .2281E+01,.3727E+01,.4821E+01,.2736E+01,.2819E+01,.3660E+01,.4583E+01,.6425E+01,.9939E+01,.5007E+01,&
4928  .3357E+01,.5397E+01,.6758E+01,.3914E+01,.4181E+01,.5420E+01,.6748E+01,.9167E+01,.1359E+02,.7068E+01,&
4929  .6683E+01,.1032E+02,.1219E+02,.7377E+01,.8380E+01,.1077E+02,.1317E+02,.1689E+02,.2304E+02,.1290E+02/
4930  data (((Bex_lw(ai,k,nh),ai= 6, 6),k=1,nwl_lw),nh=0,99)/ &
4931  .8507E-01,.1012E+00,.1020E+00,.1242E+00,.1501E+00,.1512E+00,.1408E+00,.1564E+00,.1616E+00,.1167E+00,&
4932  .8754E-01,.1042E+00,.1045E+00,.1260E+00,.1530E+00,.1546E+00,.1443E+00,.1600E+00,.1653E+00,.1196E+00,&
4933  .9001E-01,.1072E+00,.1070E+00,.1278E+00,.1559E+00,.1579E+00,.1478E+00,.1636E+00,.1690E+00,.1225E+00,&
4934  .9247E-01,.1102E+00,.1095E+00,.1295E+00,.1588E+00,.1613E+00,.1513E+00,.1672E+00,.1727E+00,.1254E+00,&
4935  .9494E-01,.1132E+00,.1120E+00,.1313E+00,.1617E+00,.1647E+00,.1547E+00,.1708E+00,.1765E+00,.1283E+00,&
4936  .9741E-01,.1162E+00,.1145E+00,.1331E+00,.1646E+00,.1680E+00,.1582E+00,.1744E+00,.1802E+00,.1312E+00,&
4937  .1001E+00,.1195E+00,.1174E+00,.1352E+00,.1677E+00,.1715E+00,.1621E+00,.1784E+00,.1842E+00,.1344E+00,&
4938  .1028E+00,.1228E+00,.1203E+00,.1372E+00,.1708E+00,.1750E+00,.1660E+00,.1823E+00,.1883E+00,.1377E+00,&
4939  .1055E+00,.1261E+00,.1233E+00,.1392E+00,.1740E+00,.1784E+00,.1699E+00,.1863E+00,.1924E+00,.1409E+00,&
4940  .1082E+00,.1294E+00,.1262E+00,.1413E+00,.1771E+00,.1819E+00,.1738E+00,.1902E+00,.1964E+00,.1442E+00,&
4941  .1109E+00,.1327E+00,.1291E+00,.1433E+00,.1802E+00,.1854E+00,.1777E+00,.1942E+00,.2005E+00,.1474E+00,&
4942  .1138E+00,.1363E+00,.1324E+00,.1456E+00,.1835E+00,.1892E+00,.1818E+00,.1983E+00,.2046E+00,.1510E+00,&
4943  .1168E+00,.1399E+00,.1357E+00,.1479E+00,.1868E+00,.1931E+00,.1858E+00,.2024E+00,.2088E+00,.1545E+00,&
4944  .1197E+00,.1435E+00,.1389E+00,.1501E+00,.1901E+00,.1970E+00,.1899E+00,.2064E+00,.2129E+00,.1581E+00,&
4945  .1226E+00,.1471E+00,.1422E+00,.1524E+00,.1934E+00,.2008E+00,.1939E+00,.2105E+00,.2171E+00,.1616E+00,&
4946  .1256E+00,.1507E+00,.1455E+00,.1546E+00,.1968E+00,.2047E+00,.1980E+00,.2146E+00,.2213E+00,.1652E+00,&
4947  .1287E+00,.1546E+00,.1491E+00,.1571E+00,.2003E+00,.2087E+00,.2024E+00,.2191E+00,.2258E+00,.1691E+00,&
4948  .1319E+00,.1585E+00,.1527E+00,.1596E+00,.2038E+00,.2127E+00,.2069E+00,.2235E+00,.2303E+00,.1729E+00,&
4949  .1351E+00,.1623E+00,.1563E+00,.1621E+00,.2073E+00,.2167E+00,.2114E+00,.2280E+00,.2349E+00,.1768E+00,&
4950  .1383E+00,.1662E+00,.1599E+00,.1647E+00,.2109E+00,.2207E+00,.2158E+00,.2325E+00,.2394E+00,.1807E+00,&
4951  .1415E+00,.1701E+00,.1635E+00,.1672E+00,.2144E+00,.2247E+00,.2203E+00,.2369E+00,.2439E+00,.1845E+00,&
4952  .1449E+00,.1742E+00,.1674E+00,.1699E+00,.2182E+00,.2290E+00,.2249E+00,.2415E+00,.2483E+00,.1887E+00,&
4953  .1484E+00,.1784E+00,.1712E+00,.1727E+00,.2220E+00,.2333E+00,.2295E+00,.2461E+00,.2528E+00,.1928E+00,&
4954  .1518E+00,.1825E+00,.1751E+00,.1755E+00,.2257E+00,.2375E+00,.2342E+00,.2508E+00,.2572E+00,.1970E+00,&
4955  .1553E+00,.1867E+00,.1790E+00,.1783E+00,.2295E+00,.2418E+00,.2388E+00,.2554E+00,.2616E+00,.2011E+00,&
4956  .1587E+00,.1908E+00,.1829E+00,.1811E+00,.2333E+00,.2461E+00,.2434E+00,.2600E+00,.2660E+00,.2052E+00,&
4957  .1624E+00,.1953E+00,.1870E+00,.1841E+00,.2373E+00,.2507E+00,.2484E+00,.2649E+00,.2711E+00,.2096E+00,&
4958  .1661E+00,.1997E+00,.1912E+00,.1871E+00,.2413E+00,.2554E+00,.2534E+00,.2698E+00,.2762E+00,.2141E+00,&
4959  .1698E+00,.2041E+00,.1953E+00,.1901E+00,.2454E+00,.2600E+00,.2584E+00,.2747E+00,.2812E+00,.2185E+00,&
4960  .1735E+00,.2086E+00,.1995E+00,.1931E+00,.2494E+00,.2647E+00,.2634E+00,.2796E+00,.2863E+00,.2229E+00,&
4961  .1772E+00,.2130E+00,.2036E+00,.1961E+00,.2534E+00,.2693E+00,.2684E+00,.2845E+00,.2914E+00,.2273E+00,&
4962  .1812E+00,.2177E+00,.2080E+00,.1994E+00,.2577E+00,.2741E+00,.2736E+00,.2896E+00,.2960E+00,.2320E+00,&
4963  .1852E+00,.2224E+00,.2124E+00,.2027E+00,.2620E+00,.2788E+00,.2789E+00,.2948E+00,.3005E+00,.2366E+00,&
4964  .1892E+00,.2271E+00,.2168E+00,.2059E+00,.2663E+00,.2836E+00,.2842E+00,.3000E+00,.3051E+00,.2413E+00,&
4965  .1932E+00,.2318E+00,.2212E+00,.2092E+00,.2706E+00,.2883E+00,.2894E+00,.3051E+00,.3097E+00,.2460E+00,&
4966  .1972E+00,.2365E+00,.2256E+00,.2125E+00,.2749E+00,.2931E+00,.2947E+00,.3103E+00,.3142E+00,.2507E+00,&
4967  .2014E+00,.2415E+00,.2302E+00,.2160E+00,.2795E+00,.2983E+00,.3001E+00,.3156E+00,.3198E+00,.2556E+00,&
4968  .2057E+00,.2465E+00,.2349E+00,.2196E+00,.2840E+00,.3034E+00,.3055E+00,.3208E+00,.3253E+00,.2605E+00,&
4969  .2099E+00,.2514E+00,.2395E+00,.2231E+00,.2886E+00,.3086E+00,.3109E+00,.3261E+00,.3309E+00,.2655E+00,&
4970  .2142E+00,.2564E+00,.2441E+00,.2266E+00,.2932E+00,.3138E+00,.3163E+00,.3313E+00,.3364E+00,.2704E+00,&
4971  .2184E+00,.2614E+00,.2488E+00,.2302E+00,.2978E+00,.3189E+00,.3217E+00,.3366E+00,.3420E+00,.2753E+00,&
4972  .2230E+00,.2666E+00,.2536E+00,.2339E+00,.3026E+00,.3243E+00,.3276E+00,.3423E+00,.3470E+00,.2805E+00,&
4973  .2275E+00,.2718E+00,.2585E+00,.2377E+00,.3074E+00,.3297E+00,.3335E+00,.3479E+00,.3521E+00,.2857E+00,&
4974  .2320E+00,.2771E+00,.2634E+00,.2415E+00,.3122E+00,.3350E+00,.3394E+00,.3536E+00,.3571E+00,.2908E+00,&
4975  .2366E+00,.2823E+00,.2683E+00,.2453E+00,.3170E+00,.3404E+00,.3453E+00,.3592E+00,.3622E+00,.2960E+00,&
4976  .2411E+00,.2876E+00,.2732E+00,.2490E+00,.3218E+00,.3458E+00,.3512E+00,.3649E+00,.3672E+00,.3012E+00,&
4977  .2459E+00,.2931E+00,.2783E+00,.2531E+00,.3269E+00,.3514E+00,.3570E+00,.3706E+00,.3728E+00,.3066E+00,&
4978  .2507E+00,.2986E+00,.2834E+00,.2571E+00,.3321E+00,.3570E+00,.3629E+00,.3762E+00,.3784E+00,.3120E+00,&
4979  .2555E+00,.3041E+00,.2885E+00,.2611E+00,.3372E+00,.3626E+00,.3687E+00,.3819E+00,.3840E+00,.3174E+00,&
4980  .2603E+00,.3095E+00,.2936E+00,.2652E+00,.3423E+00,.3683E+00,.3745E+00,.3876E+00,.3896E+00,.3228E+00,&
4981  .2651E+00,.3150E+00,.2987E+00,.2692E+00,.3474E+00,.3739E+00,.3804E+00,.3933E+00,.3952E+00,.3282E+00,&
4982  .2692E+00,.3197E+00,.3030E+00,.2727E+00,.3518E+00,.3787E+00,.3855E+00,.3982E+00,.4000E+00,.3328E+00,&
4983  .2734E+00,.3244E+00,.3073E+00,.2762E+00,.3562E+00,.3836E+00,.3907E+00,.4031E+00,.4048E+00,.3375E+00,&
4984  .2775E+00,.3291E+00,.3117E+00,.2797E+00,.3606E+00,.3884E+00,.3958E+00,.4081E+00,.4097E+00,.3421E+00,&
4985  .2817E+00,.3338E+00,.3160E+00,.2831E+00,.3650E+00,.3933E+00,.4009E+00,.4130E+00,.4145E+00,.3467E+00,&
4986  .2858E+00,.3385E+00,.3204E+00,.2866E+00,.3693E+00,.3981E+00,.4061E+00,.4179E+00,.4193E+00,.3513E+00,&
4987  .2902E+00,.3434E+00,.3248E+00,.2902E+00,.3739E+00,.4031E+00,.4114E+00,.4230E+00,.4238E+00,.3561E+00,&
4988  .2945E+00,.3483E+00,.3293E+00,.2939E+00,.3784E+00,.4081E+00,.4168E+00,.4281E+00,.4283E+00,.3608E+00,&
4989  .2988E+00,.3531E+00,.3338E+00,.2975E+00,.3830E+00,.4131E+00,.4222E+00,.4332E+00,.4328E+00,.3656E+00,&
4990  .3031E+00,.3580E+00,.3383E+00,.3012E+00,.3875E+00,.4181E+00,.4275E+00,.4383E+00,.4373E+00,.3704E+00,&
4991  .3075E+00,.3628E+00,.3428E+00,.3048E+00,.3921E+00,.4231E+00,.4329E+00,.4434E+00,.4418E+00,.3751E+00,&
4992  .3120E+00,.3679E+00,.3475E+00,.3086E+00,.3968E+00,.4283E+00,.4382E+00,.4485E+00,.4467E+00,.3801E+00,&
4993  .3165E+00,.3729E+00,.3521E+00,.3124E+00,.4016E+00,.4334E+00,.4434E+00,.4536E+00,.4516E+00,.3850E+00,&
4994  .3210E+00,.3780E+00,.3567E+00,.3162E+00,.4063E+00,.4385E+00,.4487E+00,.4587E+00,.4564E+00,.3899E+00,&
4995  .3255E+00,.3830E+00,.3614E+00,.3200E+00,.4111E+00,.4437E+00,.4539E+00,.4638E+00,.4613E+00,.3948E+00,&
4996  .3301E+00,.3880E+00,.3660E+00,.3238E+00,.4158E+00,.4488E+00,.4592E+00,.4689E+00,.4662E+00,.3997E+00,&
4997  .3348E+00,.3932E+00,.3708E+00,.3278E+00,.4208E+00,.4542E+00,.4647E+00,.4742E+00,.4715E+00,.4048E+00,&
4998  .3395E+00,.3985E+00,.3756E+00,.3318E+00,.4257E+00,.4595E+00,.4703E+00,.4794E+00,.4769E+00,.4099E+00,&
4999  .3442E+00,.4037E+00,.3804E+00,.3358E+00,.4307E+00,.4649E+00,.4758E+00,.4847E+00,.4822E+00,.4149E+00,&
5000  .3489E+00,.4089E+00,.3852E+00,.3397E+00,.4356E+00,.4702E+00,.4813E+00,.4899E+00,.4876E+00,.4200E+00,&
5001  .3536E+00,.4141E+00,.3900E+00,.3437E+00,.4405E+00,.4756E+00,.4869E+00,.4952E+00,.4929E+00,.4251E+00,&
5002  .3609E+00,.4221E+00,.3974E+00,.3499E+00,.4482E+00,.4838E+00,.4956E+00,.5034E+00,.5002E+00,.4329E+00,&
5003  .3683E+00,.4302E+00,.4047E+00,.3561E+00,.4558E+00,.4921E+00,.5043E+00,.5116E+00,.5075E+00,.4407E+00,&
5004  .3756E+00,.4382E+00,.4121E+00,.3623E+00,.4635E+00,.5004E+00,.5130E+00,.5198E+00,.5148E+00,.4485E+00,&
5005  .3830E+00,.4463E+00,.4195E+00,.3685E+00,.4711E+00,.5086E+00,.5217E+00,.5280E+00,.5221E+00,.4563E+00,&
5006  .3903E+00,.4543E+00,.4269E+00,.3747E+00,.4787E+00,.5169E+00,.5304E+00,.5362E+00,.5294E+00,.4641E+00,&
5007  .4018E+00,.4668E+00,.4382E+00,.3844E+00,.4907E+00,.5296E+00,.5433E+00,.5485E+00,.5414E+00,.4762E+00,&
5008  .4132E+00,.4792E+00,.4496E+00,.3941E+00,.5026E+00,.5423E+00,.5562E+00,.5608E+00,.5534E+00,.4882E+00,&
5009  .4247E+00,.4916E+00,.4610E+00,.4038E+00,.5145E+00,.5550E+00,.5690E+00,.5730E+00,.5654E+00,.5002E+00,&
5010  .4362E+00,.5041E+00,.4723E+00,.4135E+00,.5264E+00,.5677E+00,.5819E+00,.5853E+00,.5774E+00,.5123E+00,&
5011  .4476E+00,.5165E+00,.4837E+00,.4232E+00,.5383E+00,.5804E+00,.5947E+00,.5976E+00,.5894E+00,.5243E+00,&
5012  .4603E+00,.5301E+00,.4961E+00,.4339E+00,.5514E+00,.5943E+00,.6091E+00,.6111E+00,.6012E+00,.5374E+00,&
5013  .4796E+00,.5508E+00,.5149E+00,.4503E+00,.5713E+00,.6154E+00,.6312E+00,.6316E+00,.6205E+00,.5573E+00,&
5014  .4993E+00,.5719E+00,.5341E+00,.4670E+00,.5916E+00,.6369E+00,.6532E+00,.6526E+00,.6387E+00,.5776E+00,&
5015  .5195E+00,.5934E+00,.5537E+00,.4841E+00,.6123E+00,.6587E+00,.6748E+00,.6735E+00,.6575E+00,.5984E+00,&
5016  .5436E+00,.6188E+00,.5769E+00,.5045E+00,.6370E+00,.6846E+00,.7005E+00,.6975E+00,.6822E+00,.6228E+00,&
5017  .5683E+00,.6449E+00,.6006E+00,.5254E+00,.6623E+00,.7111E+00,.7273E+00,.7229E+00,.7073E+00,.6478E+00,&
5018  .5936E+00,.6714E+00,.6247E+00,.5468E+00,.6882E+00,.7381E+00,.7550E+00,.7487E+00,.7309E+00,.6732E+00,&
5019  .6213E+00,.7004E+00,.6510E+00,.5703E+00,.7163E+00,.7675E+00,.7851E+00,.7767E+00,.7555E+00,.7010E+00,&
5020  .6535E+00,.7340E+00,.6815E+00,.5976E+00,.7490E+00,.8013E+00,.8183E+00,.8090E+00,.7846E+00,.7332E+00,&
5021  .6925E+00,.7745E+00,.7182E+00,.6307E+00,.7885E+00,.8422E+00,.8585E+00,.8463E+00,.8223E+00,.7719E+00,&
5022  .7409E+00,.8244E+00,.7634E+00,.6718E+00,.8374E+00,.8925E+00,.9092E+00,.8942E+00,.8675E+00,.8195E+00,&
5023  .7951E+00,.8801E+00,.8139E+00,.7178E+00,.8917E+00,.9484E+00,.9654E+00,.9471E+00,.9159E+00,.8725E+00,&
5024  .8780E+00,.9646E+00,.8904E+00,.7883E+00,.9746E+00,.1033E+01,.1048E+01,.1025E+01,.9917E+00,.9530E+00,&
5025  .9790E+00,.1067E+01,.9831E+00,.8742E+00,.1075E+01,.1135E+01,.1150E+01,.1121E+01,.1080E+01,.1050E+01,&
5026  .1111E+01,.1199E+01,.1102E+01,.9862E+00,.1205E+01,.1265E+01,.1276E+01,.1241E+01,.1198E+01,.1175E+01,&
5027  .1314E+01,.1401E+01,.1286E+01,.1160E+01,.1404E+01,.1464E+01,.1471E+01,.1426E+01,.1373E+01,.1367E+01,&
5028  .1600E+01,.1682E+01,.1542E+01,.1404E+01,.1679E+01,.1738E+01,.1738E+01,.1681E+01,.1614E+01,.1634E+01,&
5029  .2137E+01,.2204E+01,.2019E+01,.1866E+01,.2190E+01,.2241E+01,.2229E+01,.2151E+01,.2071E+01,.2130E+01,&
5030  .3477E+01,.3490E+01,.3204E+01,.3029E+01,.3436E+01,.3461E+01,.3423E+01,.3306E+01,.3196E+01,.3354E+01/
5031  data (((Bex_lw(ai,k,nh),ai= 7, 7),k=1,nwl_lw),nh=0,99)/ &
5032  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5033  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5034  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5035  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5036  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5037  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5038  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5039  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5040  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5041  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5042  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5043  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5044  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5045  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5046  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5047  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5048  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5049  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5050  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5051  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5052  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5053  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5054  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5055  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5056  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5057  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5058  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5059  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5060  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5061  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5062  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5063  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5064  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5065  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5066  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5067  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5068  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5069  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5070  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5071  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5072  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5073  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5074  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5075  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5076  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5077  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5078  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5079  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5080  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5081  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5082  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5083  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5084  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5085  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5086  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5087  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5088  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5089  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5090  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5091  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5092  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5093  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5094  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5095  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5096  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5097  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5098  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5099  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5100  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5101  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5102  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5103  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5104  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5105  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5106  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5107  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5108  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5109  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5110  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5111  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5112  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5113  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5114  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5115  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5116  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5117  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5118  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5119  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5120  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5121  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5122  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5123  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5124  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5125  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5126  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5127  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5128  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5129  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5130  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01,&
5131  .8683E-02,.1551E-01,.1820E-01,.2197E-01,.2804E-01,.3277E-01,.1600E-01,.1249E-01,.1821E-01,.1971E-01/
5132  data (((Bex_lw(ai,k,nh),ai= 8, 8),k=1,nwl_lw),nh=0,99)/ &
5133  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5134  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5135  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5136  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5137  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5138  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5139  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5140  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5141  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5142  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5143  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5144  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5145  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5146  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5147  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5148  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5149  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5150  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5151  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5152  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5153  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5154  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5155  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5156  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5157  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5158  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5159  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5160  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5161  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5162  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5163  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5164  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5165  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5166  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5167  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5168  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5169  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5170  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5171  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5172  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5173  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5174  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5175  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5176  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5177  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5178  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5179  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5180  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5181  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5182  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5183  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5184  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5185  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5186  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5187  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5188  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5189  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5190  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5191  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5192  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5193  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5194  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5195  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5196  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5197  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5198  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5199  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5200  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5201  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5202  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5203  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5204  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5205  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5206  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5207  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5208  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5209  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5210  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5211  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5212  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5213  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5214  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5215  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5216  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5217  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5218  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5219  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5220  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5221  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5222  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5223  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5224  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5225  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5226  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5227  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5228  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5229  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5230  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5231  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01,&
5232  .8847E-02,.1629E-01,.1937E-01,.2635E-01,.4616E-01,.3551E-01,.1831E-01,.2085E-01,.5223E-01,.2029E-01/
5233  data (((Bex_lw(ai,k,nh),ai= 9, 9),k=1,nwl_lw),nh=0,99)/ &
5234  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5235  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5236  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5237  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5238  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5239  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5240  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5241  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5242  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5243  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5244  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5245  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5246  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5247  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5248  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5249  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5250  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5251  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5252  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5253  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5254  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5255  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5256  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5257  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5258  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5259  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5260  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5261  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5262  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5263  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5264  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5265  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5266  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5267  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5268  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5269  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5270  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5271  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5272  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5273  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5274  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5275  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5276  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5277  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5278  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5279  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5280  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5281  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5282  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5283  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5284  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5285  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5286  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5287  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5288  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5289  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5290  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5291  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5292  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5293  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5294  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5295  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5296  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5297  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5298  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5299  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5300  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5301  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5302  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5303  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5304  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5305  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5306  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5307  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5308  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5309  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5310  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5311  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5312  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5313  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5314  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5315  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5316  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5317  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5318  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5319  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5320  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5321  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5322  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5323  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5324  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5325  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5326  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5327  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5328  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5329  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5330  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5331  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5332  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01,&
5333  .9779E-02,.2069E-01,.2495E-01,.4592E-01,.1183E+00,.4591E-01,.2685E-01,.5005E-01,.1435E+00,.2304E-01/
5334  data (((Bex_lw(ai,k,nh),ai=10,10),k=1,nwl_lw),nh=0,99)/ &
5335  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5336  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5337  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5338  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5339  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5340  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5341  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5342  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5343  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5344  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5345  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5346  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5347  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5348  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5349  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5350  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5351  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5352  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5353  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5354  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5355  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5356  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5357  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5358  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5359  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5360  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5361  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5362  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5363  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5364  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5365  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5366  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5367  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5368  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5369  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5370  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5371  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5372  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5373  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5374  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5375  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5376  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5377  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5378  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5379  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5380  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5381  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5382  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5383  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5384  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5385  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5386  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5387  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5388  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5389  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5390  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5391  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5392  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5393  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5394  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5395  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5396  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5397  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5398  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5399  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5400  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5401  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5402  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5403  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5404  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5405  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5406  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5407  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5408  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5409  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5410  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5411  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5412  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5413  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5414  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5415  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5416  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5417  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5418  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5419  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5420  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5421  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5422  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5423  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5424  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5425  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5426  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5427  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5428  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5429  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5430  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5431  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5432  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5433  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01,&
5434  .1381E-01,.3649E-01,.4082E-01,.9216E-01,.2424E+00,.6645E-01,.4494E-01,.1051E+00,.2604E+00,.3155E-01/
5435  data (((Bex_lw(ai,k,nh),ai=11,11),k=1,nwl_lw),nh=0,99)/ &
5436  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5437  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5438  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5439  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5440  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5441  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5442  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5443  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5444  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5445  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5446  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5447  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5448  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5449  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5450  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5451  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5452  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5453  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5454  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5455  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5456  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5457  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5458  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5459  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5460  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5461  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5462  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5463  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5464  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5465  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5466  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5467  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5468  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5469  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5470  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5471  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5472  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5473  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5474  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5475  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5476  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5477  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5478  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5479  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5480  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5481  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5482  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5483  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5484  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5485  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5486  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5487  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5488  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5489  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5490  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5491  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5492  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5493  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5494  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5495  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5496  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5497  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5498  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5499  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5500  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5501  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5502  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5503  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5504  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5505  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5506  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5507  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5508  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5509  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5510  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5511  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5512  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5513  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5514  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5515  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5516  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5517  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5518  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5519  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5520  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5521  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5522  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5523  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5524  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5525  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5526  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5527  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5528  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5529  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5530  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5531  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5532  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5533  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5534  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01,&
5535  .2548E-01,.6926E-01,.6668E-01,.1474E+00,.3136E+00,.8431E-01,.6692E-01,.1596E+00,.3098E+00,.4753E-01/
5536  data (((Bex_lw(ai,k,nh),ai=12,12),k=1,nwl_lw),nh=0,99)/ &
5537  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5538  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5539  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5540  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5541  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5542  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5543  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5544  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5545  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5546  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5547  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5548  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5549  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5550  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5551  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5552  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5553  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5554  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5555  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5556  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5557  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5558  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5559  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5560  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5561  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5562  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5563  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5564  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5565  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5566  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5567  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5568  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5569  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5570  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5571  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5572  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5573  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5574  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5575  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5576  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5577  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5578  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5579  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5580  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5581  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5582  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5583  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5584  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5585  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5586  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5587  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5588  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5589  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5590  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5591  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5592  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5593  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5594  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5595  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5596  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5597  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5598  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5599  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5600  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5601  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5602  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5603  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5604  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5605  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5606  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5607  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5608  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5609  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5610  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5611  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5612  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5613  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5614  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5615  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5616  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5617  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5618  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5619  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5620  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5621  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5622  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5623  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5624  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5625  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5626  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5627  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5628  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5629  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5630  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5631  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5632  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5633  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5634  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5635  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01,&
5636  .5039E-01,.1121E+00,.9657E-01,.1828E+00,.2895E+00,.9190E-01,.8718E-01,.1880E+00,.2788E+00,.7151E-01/
5637  data (((Bex_lw(ai,k,nh),ai=13,13),k=1,nwl_lw),nh=0,99)/ &
5638  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5639  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5640  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5641  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5642  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5643  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5644  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5645  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5646  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5647  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5648  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5649  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5650  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5651  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5652  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5653  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5654  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5655  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5656  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5657  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5658  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5659  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5660  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5661  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5662  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5663  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5664  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5665  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5666  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5667  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5668  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5669  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5670  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5671  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5672  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5673  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5674  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5675  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5676  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5677  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5678  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5679  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5680  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5681  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5682  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5683  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5684  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5685  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5686  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5687  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5688  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5689  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5690  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5691  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5692  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5693  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5694  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5695  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5696  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5697  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5698  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5699  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5700  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5701  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5702  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5703  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5704  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5705  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5706  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5707  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5708  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5709  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5710  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5711  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5712  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5713  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5714  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5715  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5716  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5717  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5718  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5719  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5720  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5721  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5722  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5723  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5724  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5725  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5726  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5727  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5728  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5729  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5730  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5731  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5732  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5733  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5734  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5735  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5736  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01,&
5737  .8052E-01,.1282E+00,.1071E+00,.1571E+00,.1802E+00,.7780E-01,.8968E-01,.1550E+00,.1732E+00,.8845E-01/
5738  data (((Bex_lw(ai,k,nh),ai=14,14),k=1,nwl_lw),nh=0,99)/ &
5739  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5740  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5741  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5742  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5743  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5744  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5745  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5746  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5747  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5748  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5749  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5750  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5751  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5752  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5753  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5754  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5755  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5756  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5757  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5758  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5759  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5760  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5761  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5762  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5763  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5764  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5765  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5766  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5767  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5768  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5769  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5770  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5771  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5772  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5773  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5774  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5775  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5776  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5777  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5778  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5779  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5780  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5781  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5782  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5783  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5784  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5785  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5786  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5787  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5788  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5789  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5790  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5791  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5792  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5793  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5794  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5795  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5796  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5797  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5798  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5799  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5800  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5801  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5802  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5803  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5804  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5805  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5806  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5807  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5808  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5809  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5810  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5811  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5812  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5813  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5814  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5815  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5816  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5817  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5818  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5819  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5820  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5821  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5822  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5823  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5824  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5825  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5826  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5827  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5828  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5829  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5830  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5831  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5832  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5833  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5834  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5835  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5836  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5837  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01,&
5838  .8101E-01,.9702E-01,.8537E-01,.9934E-01,.9658E-01,.5640E-01,.7138E-01,.9553E-01,.9179E-01,.7815E-01/
5839  data (((w0_lw(ai,k,nh),ai= 1, 1),k=1,nwl_lw),nh=0,99)/ &
5840  .1325E-03,.1713E-02,.1149E-02,.1635E-02,.2001E-02,.1756E-02,.1147E-02,.4354E-02,.1745E-01,.1744E-02,&
5841  .1309E-03,.1522E-02,.1084E-02,.1627E-02,.2007E-02,.1761E-02,.1167E-02,.4478E-02,.1816E-01,.1573E-02,&
5842  .1292E-03,.1332E-02,.1018E-02,.1618E-02,.2013E-02,.1767E-02,.1188E-02,.4603E-02,.1887E-01,.1402E-02,&
5843  .1275E-03,.1141E-02,.9531E-03,.1610E-02,.2019E-02,.1772E-02,.1208E-02,.4728E-02,.1958E-01,.1231E-02,&
5844  .1258E-03,.9507E-03,.8878E-03,.1602E-02,.2025E-02,.1778E-02,.1228E-02,.4852E-02,.2029E-01,.1060E-02,&
5845  .1242E-03,.7601E-03,.8225E-03,.1594E-02,.2031E-02,.1784E-02,.1248E-02,.4977E-02,.2100E-01,.8890E-03,&
5846  .1232E-03,.7190E-03,.8014E-03,.1589E-02,.2039E-02,.1793E-02,.1275E-02,.5120E-02,.2184E-01,.8469E-03,&
5847  .1223E-03,.6779E-03,.7803E-03,.1584E-02,.2048E-02,.1802E-02,.1301E-02,.5263E-02,.2267E-01,.8049E-03,&
5848  .1214E-03,.6367E-03,.7592E-03,.1578E-02,.2057E-02,.1811E-02,.1327E-02,.5405E-02,.2351E-01,.7628E-03,&
5849  .1204E-03,.5956E-03,.7381E-03,.1573E-02,.2066E-02,.1820E-02,.1354E-02,.5548E-02,.2434E-01,.7207E-03,&
5850  .1195E-03,.5545E-03,.7170E-03,.1568E-02,.2075E-02,.1829E-02,.1380E-02,.5691E-02,.2518E-01,.6787E-03,&
5851  .1191E-03,.5381E-03,.7072E-03,.1567E-02,.2087E-02,.1842E-02,.1413E-02,.5851E-02,.2613E-01,.6622E-03,&
5852  .1187E-03,.5217E-03,.6973E-03,.1565E-02,.2099E-02,.1855E-02,.1445E-02,.6012E-02,.2708E-01,.6458E-03,&
5853  .1184E-03,.5053E-03,.6874E-03,.1563E-02,.2111E-02,.1867E-02,.1478E-02,.6172E-02,.2803E-01,.6294E-03,&
5854  .1180E-03,.4889E-03,.6776E-03,.1561E-02,.2123E-02,.1880E-02,.1511E-02,.6332E-02,.2898E-01,.6130E-03,&
5855  .1176E-03,.4726E-03,.6677E-03,.1560E-02,.2135E-02,.1893E-02,.1544E-02,.6493E-02,.2993E-01,.5966E-03,&
5856  .1175E-03,.4638E-03,.6620E-03,.1559E-02,.2149E-02,.1908E-02,.1583E-02,.6676E-02,.3104E-01,.5887E-03,&
5857  .1175E-03,.4551E-03,.6564E-03,.1558E-02,.2162E-02,.1924E-02,.1623E-02,.6860E-02,.3216E-01,.5807E-03,&
5858  .1174E-03,.4464E-03,.6507E-03,.1558E-02,.2176E-02,.1940E-02,.1663E-02,.7044E-02,.3327E-01,.5727E-03,&
5859  .1173E-03,.4377E-03,.6450E-03,.1557E-02,.2190E-02,.1955E-02,.1703E-02,.7227E-02,.3439E-01,.5647E-03,&
5860  .1172E-03,.4290E-03,.6394E-03,.1556E-02,.2204E-02,.1971E-02,.1743E-02,.7411E-02,.3550E-01,.5567E-03,&
5861  .1174E-03,.4246E-03,.6367E-03,.1557E-02,.2220E-02,.1989E-02,.1791E-02,.7618E-02,.3678E-01,.5535E-03,&
5862  .1176E-03,.4201E-03,.6341E-03,.1558E-02,.2237E-02,.2008E-02,.1839E-02,.7824E-02,.3805E-01,.5502E-03,&
5863  .1177E-03,.4156E-03,.6315E-03,.1559E-02,.2253E-02,.2027E-02,.1886E-02,.8031E-02,.3932E-01,.5469E-03,&
5864  .1179E-03,.4111E-03,.6288E-03,.1561E-02,.2270E-02,.2045E-02,.1934E-02,.8238E-02,.4060E-01,.5437E-03,&
5865  .1181E-03,.4067E-03,.6262E-03,.1562E-02,.2286E-02,.2064E-02,.1982E-02,.8445E-02,.4187E-01,.5404E-03,&
5866  .1185E-03,.4046E-03,.6257E-03,.1564E-02,.2305E-02,.2087E-02,.2038E-02,.8676E-02,.4331E-01,.5399E-03,&
5867  .1190E-03,.4026E-03,.6252E-03,.1567E-02,.2324E-02,.2109E-02,.2095E-02,.8908E-02,.4475E-01,.5394E-03,&
5868  .1194E-03,.4005E-03,.6246E-03,.1570E-02,.2343E-02,.2131E-02,.2151E-02,.9139E-02,.4619E-01,.5389E-03,&
5869  .1198E-03,.3985E-03,.6241E-03,.1572E-02,.2362E-02,.2153E-02,.2207E-02,.9371E-02,.4763E-01,.5384E-03,&
5870  .1202E-03,.3964E-03,.6235E-03,.1575E-02,.2381E-02,.2176E-02,.2263E-02,.9603E-02,.4907E-01,.5379E-03,&
5871  .1208E-03,.3960E-03,.6246E-03,.1579E-02,.2402E-02,.2202E-02,.2329E-02,.9859E-02,.5069E-01,.5392E-03,&
5872  .1214E-03,.3955E-03,.6256E-03,.1583E-02,.2424E-02,.2228E-02,.2394E-02,.1012E-01,.5231E-01,.5406E-03,&
5873  .1220E-03,.3950E-03,.6267E-03,.1587E-02,.2445E-02,.2254E-02,.2459E-02,.1037E-01,.5392E-01,.5419E-03,&
5874  .1226E-03,.3945E-03,.6277E-03,.1591E-02,.2467E-02,.2280E-02,.2525E-02,.1063E-01,.5554E-01,.5432E-03,&
5875  .1233E-03,.3940E-03,.6287E-03,.1595E-02,.2488E-02,.2306E-02,.2590E-02,.1089E-01,.5716E-01,.5446E-03,&
5876  .1241E-03,.3948E-03,.6312E-03,.1601E-02,.2513E-02,.2336E-02,.2664E-02,.1117E-01,.5892E-01,.5473E-03,&
5877  .1248E-03,.3956E-03,.6337E-03,.1607E-02,.2537E-02,.2366E-02,.2737E-02,.1145E-01,.6068E-01,.5501E-03,&
5878  .1256E-03,.3964E-03,.6362E-03,.1613E-02,.2562E-02,.2396E-02,.2811E-02,.1173E-01,.6244E-01,.5529E-03,&
5879  .1264E-03,.3971E-03,.6387E-03,.1619E-02,.2586E-02,.2425E-02,.2884E-02,.1201E-01,.6420E-01,.5557E-03,&
5880  .1272E-03,.3979E-03,.6412E-03,.1625E-02,.2611E-02,.2455E-02,.2958E-02,.1229E-01,.6596E-01,.5585E-03,&
5881  .1281E-03,.3994E-03,.6445E-03,.1631E-02,.2637E-02,.2489E-02,.3043E-02,.1260E-01,.6794E-01,.5622E-03,&
5882  .1291E-03,.4008E-03,.6478E-03,.1638E-02,.2664E-02,.2523E-02,.3128E-02,.1292E-01,.6992E-01,.5658E-03,&
5883  .1300E-03,.4022E-03,.6511E-03,.1644E-02,.2691E-02,.2557E-02,.3213E-02,.1323E-01,.7190E-01,.5694E-03,&
5884  .1309E-03,.4037E-03,.6544E-03,.1651E-02,.2718E-02,.2591E-02,.3298E-02,.1354E-01,.7388E-01,.5731E-03,&
5885  .1318E-03,.4051E-03,.6577E-03,.1657E-02,.2745E-02,.2625E-02,.3384E-02,.1385E-01,.7586E-01,.5767E-03,&
5886  .1329E-03,.4072E-03,.6619E-03,.1665E-02,.2774E-02,.2663E-02,.3480E-02,.1420E-01,.7804E-01,.5812E-03,&
5887  .1339E-03,.4094E-03,.6661E-03,.1672E-02,.2804E-02,.2701E-02,.3576E-02,.1454E-01,.8021E-01,.5857E-03,&
5888  .1350E-03,.4115E-03,.6703E-03,.1680E-02,.2833E-02,.2739E-02,.3672E-02,.1489E-01,.8238E-01,.5902E-03,&
5889  .1360E-03,.4136E-03,.6745E-03,.1688E-02,.2863E-02,.2778E-02,.3768E-02,.1523E-01,.8455E-01,.5947E-03,&
5890  .1371E-03,.4157E-03,.6787E-03,.1695E-02,.2893E-02,.2816E-02,.3864E-02,.1558E-01,.8672E-01,.5992E-03,&
5891  .1383E-03,.4186E-03,.6839E-03,.1705E-02,.2925E-02,.2858E-02,.3968E-02,.1594E-01,.8898E-01,.6046E-03,&
5892  .1395E-03,.4214E-03,.6892E-03,.1715E-02,.2958E-02,.2901E-02,.4072E-02,.1630E-01,.9124E-01,.6100E-03,&
5893  .1407E-03,.4243E-03,.6944E-03,.1724E-02,.2991E-02,.2943E-02,.4176E-02,.1667E-01,.9350E-01,.6154E-03,&
5894  .1420E-03,.4271E-03,.6997E-03,.1734E-02,.3024E-02,.2986E-02,.4280E-02,.1703E-01,.9576E-01,.6208E-03,&
5895  .1432E-03,.4300E-03,.7050E-03,.1744E-02,.3056E-02,.3028E-02,.4383E-02,.1739E-01,.9802E-01,.6262E-03,&
5896  .1445E-03,.4333E-03,.7110E-03,.1754E-02,.3092E-02,.3075E-02,.4496E-02,.1778E-01,.1004E+00,.6322E-03,&
5897  .1458E-03,.4367E-03,.7170E-03,.1765E-02,.3128E-02,.3121E-02,.4609E-02,.1817E-01,.1028E+00,.6383E-03,&
5898  .1472E-03,.4401E-03,.7230E-03,.1776E-02,.3163E-02,.3168E-02,.4722E-02,.1855E-01,.1051E+00,.6443E-03,&
5899  .1485E-03,.4435E-03,.7290E-03,.1787E-02,.3199E-02,.3214E-02,.4834E-02,.1894E-01,.1075E+00,.6504E-03,&
5900  .1498E-03,.4468E-03,.7351E-03,.1798E-02,.3234E-02,.3261E-02,.4947E-02,.1933E-01,.1099E+00,.6564E-03,&
5901  .1513E-03,.4505E-03,.7416E-03,.1809E-02,.3273E-02,.3313E-02,.5074E-02,.1975E-01,.1125E+00,.6630E-03,&
5902  .1527E-03,.4542E-03,.7481E-03,.1821E-02,.3311E-02,.3365E-02,.5201E-02,.2018E-01,.1151E+00,.6695E-03,&
5903  .1541E-03,.4579E-03,.7546E-03,.1832E-02,.3349E-02,.3416E-02,.5328E-02,.2060E-01,.1177E+00,.6760E-03,&
5904  .1556E-03,.4616E-03,.7612E-03,.1844E-02,.3388E-02,.3468E-02,.5454E-02,.2103E-01,.1203E+00,.6826E-03,&
5905  .1570E-03,.4653E-03,.7677E-03,.1855E-02,.3426E-02,.3520E-02,.5581E-02,.2145E-01,.1229E+00,.6891E-03,&
5906  .1585E-03,.4694E-03,.7748E-03,.1867E-02,.3467E-02,.3577E-02,.5720E-02,.2191E-01,.1256E+00,.6962E-03,&
5907  .1601E-03,.4734E-03,.7819E-03,.1880E-02,.3509E-02,.3634E-02,.5859E-02,.2237E-01,.1284E+00,.7032E-03,&
5908  .1616E-03,.4775E-03,.7890E-03,.1892E-02,.3550E-02,.3691E-02,.5998E-02,.2283E-01,.1311E+00,.7103E-03,&
5909  .1631E-03,.4816E-03,.7961E-03,.1904E-02,.3591E-02,.3748E-02,.6137E-02,.2329E-01,.1339E+00,.7173E-03,&
5910  .1647E-03,.4856E-03,.8033E-03,.1916E-02,.3633E-02,.3804E-02,.6276E-02,.2374E-01,.1366E+00,.7244E-03,&
5911  .1661E-03,.4893E-03,.8100E-03,.1924E-02,.3679E-02,.3880E-02,.6482E-02,.2439E-01,.1406E+00,.7314E-03,&
5912  .1676E-03,.4929E-03,.8167E-03,.1932E-02,.3725E-02,.3955E-02,.6689E-02,.2503E-01,.1446E+00,.7385E-03,&
5913  .1690E-03,.4966E-03,.8234E-03,.1939E-02,.3772E-02,.4030E-02,.6895E-02,.2568E-01,.1486E+00,.7455E-03,&
5914  .1705E-03,.5003E-03,.8301E-03,.1947E-02,.3818E-02,.4106E-02,.7102E-02,.2632E-01,.1527E+00,.7526E-03,&
5915  .1719E-03,.5039E-03,.8368E-03,.1955E-02,.3864E-02,.4181E-02,.7308E-02,.2696E-01,.1567E+00,.7596E-03,&
5916  .1735E-03,.5083E-03,.8446E-03,.1964E-02,.3917E-02,.4267E-02,.7537E-02,.2766E-01,.1609E+00,.7676E-03,&
5917  .1752E-03,.5126E-03,.8524E-03,.1974E-02,.3969E-02,.4354E-02,.7765E-02,.2836E-01,.1651E+00,.7755E-03,&
5918  .1768E-03,.5170E-03,.8602E-03,.1984E-02,.4022E-02,.4440E-02,.7994E-02,.2906E-01,.1694E+00,.7835E-03,&
5919  .1785E-03,.5214E-03,.8680E-03,.1993E-02,.4074E-02,.4526E-02,.8222E-02,.2976E-01,.1736E+00,.7914E-03,&
5920  .1801E-03,.5257E-03,.8757E-03,.2003E-02,.4127E-02,.4613E-02,.8451E-02,.3045E-01,.1779E+00,.7994E-03,&
5921  .1818E-03,.5303E-03,.8840E-03,.2013E-02,.4184E-02,.4710E-02,.8710E-02,.3123E-01,.1825E+00,.8078E-03,&
5922  .1836E-03,.5350E-03,.8925E-03,.2023E-02,.4242E-02,.4811E-02,.8976E-02,.3202E-01,.1873E+00,.8164E-03,&
5923  .1854E-03,.5399E-03,.9012E-03,.2034E-02,.4302E-02,.4914E-02,.9245E-02,.3282E-01,.1920E+00,.8251E-03,&
5924  .1871E-03,.5444E-03,.9096E-03,.2039E-02,.4371E-02,.5046E-02,.9608E-02,.3387E-01,.1984E+00,.8340E-03,&
5925  .1889E-03,.5492E-03,.9185E-03,.2045E-02,.4442E-02,.5183E-02,.9980E-02,.3494E-01,.2049E+00,.8431E-03,&
5926  .1907E-03,.5542E-03,.9276E-03,.2053E-02,.4516E-02,.5325E-02,.1036E-01,.3603E-01,.2114E+00,.8525E-03,&
5927  .1926E-03,.5591E-03,.9369E-03,.2056E-02,.4601E-02,.5502E-02,.1084E-01,.3738E-01,.2196E+00,.8624E-03,&
5928  .1945E-03,.5644E-03,.9469E-03,.2062E-02,.4690E-02,.5685E-02,.1133E-01,.3874E-01,.2278E+00,.8726E-03,&
5929  .1966E-03,.5699E-03,.9572E-03,.2064E-02,.4792E-02,.5909E-02,.1192E-01,.4039E-01,.2376E+00,.8836E-03,&
5930  .1987E-03,.5757E-03,.9685E-03,.2066E-02,.4912E-02,.6177E-02,.1263E-01,.4230E-01,.2490E+00,.8954E-03,&
5931  .2010E-03,.5820E-03,.9804E-03,.2070E-02,.5037E-02,.6457E-02,.1334E-01,.4423E-01,.2604E+00,.9077E-03,&
5932  .2035E-03,.5890E-03,.9939E-03,.2072E-02,.5194E-02,.6825E-02,.1427E-01,.4669E-01,.2747E+00,.9217E-03,&
5933  .2062E-03,.5966E-03,.1008E-02,.2077E-02,.5359E-02,.7209E-02,.1521E-01,.4917E-01,.2888E+00,.9363E-03,&
5934  .2093E-03,.6053E-03,.1025E-02,.2083E-02,.5560E-02,.7692E-02,.1635E-01,.5215E-01,.3055E+00,.9529E-03,&
5935  .2129E-03,.6157E-03,.1045E-02,.2089E-02,.5831E-02,.8365E-02,.1789E-01,.5609E-01,.3271E+00,.9730E-03,&
5936  .2171E-03,.6277E-03,.1068E-02,.2101E-02,.6145E-02,.9153E-02,.1962E-01,.6045E-01,.3500E+00,.9955E-03,&
5937  .2223E-03,.6429E-03,.1096E-02,.2118E-02,.6564E-02,.1023E-01,.2186E-01,.6598E-01,.3780E+00,.1023E-02,&
5938  .2297E-03,.6647E-03,.1137E-02,.2149E-02,.7207E-02,.1193E-01,.2518E-01,.7402E-01,.4161E+00,.1063E-02,&
5939  .2423E-03,.7019E-03,.1206E-02,.2220E-02,.8325E-02,.1498E-01,.3063E-01,.8678E-01,.4703E+00,.1128E-02/
5940  data (((w0_lw(ai,k,nh),ai= 2, 2),k=1,nwl_lw),nh=0,99)/ &
5941  .1078E-04,.3249E-04,.9802E-04,.2051E-03,.3114E-03,.4109E-03,.5443E-03,.1016E-02,.3002E-02,.6508E-04,&
5942  .1083E-04,.3265E-04,.9852E-04,.2062E-03,.3130E-03,.4130E-03,.5471E-03,.1021E-02,.3018E-02,.6541E-04,&
5943  .1089E-04,.3282E-04,.9902E-04,.2072E-03,.3146E-03,.4151E-03,.5499E-03,.1026E-02,.3034E-02,.6574E-04,&
5944  .1094E-04,.3299E-04,.9951E-04,.2083E-03,.3162E-03,.4172E-03,.5527E-03,.1032E-02,.3049E-02,.6608E-04,&
5945  .1099E-04,.3315E-04,.1000E-03,.2093E-03,.3178E-03,.4193E-03,.5555E-03,.1037E-02,.3065E-02,.6641E-04,&
5946  .1105E-04,.3332E-04,.1005E-03,.2104E-03,.3194E-03,.4215E-03,.5583E-03,.1042E-02,.3080E-02,.6674E-04,&
5947  .1110E-04,.3347E-04,.1010E-03,.2114E-03,.3209E-03,.4235E-03,.5609E-03,.1047E-02,.3095E-02,.6705E-04,&
5948  .1115E-04,.3363E-04,.1015E-03,.2124E-03,.3224E-03,.4254E-03,.5636E-03,.1052E-02,.3110E-02,.6736E-04,&
5949  .1120E-04,.3378E-04,.1019E-03,.2133E-03,.3239E-03,.4274E-03,.5663E-03,.1057E-02,.3124E-02,.6767E-04,&
5950  .1126E-04,.3394E-04,.1024E-03,.2143E-03,.3254E-03,.4294E-03,.5689E-03,.1062E-02,.3139E-02,.6799E-04,&
5951  .1131E-04,.3409E-04,.1029E-03,.2153E-03,.3269E-03,.4314E-03,.5716E-03,.1067E-02,.3154E-02,.6830E-04,&
5952  .1136E-04,.3424E-04,.1033E-03,.2162E-03,.3283E-03,.4333E-03,.5740E-03,.1071E-02,.3168E-02,.6859E-04,&
5953  .1140E-04,.3439E-04,.1038E-03,.2172E-03,.3298E-03,.4352E-03,.5765E-03,.1076E-02,.3181E-02,.6888E-04,&
5954  .1145E-04,.3453E-04,.1042E-03,.2181E-03,.3312E-03,.4370E-03,.5790E-03,.1081E-02,.3195E-02,.6918E-04,&
5955  .1150E-04,.3468E-04,.1046E-03,.2190E-03,.3326E-03,.4389E-03,.5815E-03,.1085E-02,.3209E-02,.6947E-04,&
5956  .1155E-04,.3482E-04,.1051E-03,.2199E-03,.3340E-03,.4408E-03,.5839E-03,.1090E-02,.3222E-02,.6977E-04,&
5957  .1159E-04,.3496E-04,.1055E-03,.2208E-03,.3353E-03,.4425E-03,.5863E-03,.1094E-02,.3235E-02,.7004E-04,&
5958  .1164E-04,.3510E-04,.1059E-03,.2217E-03,.3367E-03,.4443E-03,.5886E-03,.1099E-02,.3248E-02,.7032E-04,&
5959  .1168E-04,.3524E-04,.1063E-03,.2226E-03,.3380E-03,.4461E-03,.5910E-03,.1103E-02,.3261E-02,.7059E-04,&
5960  .1173E-04,.3537E-04,.1067E-03,.2235E-03,.3393E-03,.4478E-03,.5933E-03,.1108E-02,.3274E-02,.7087E-04,&
5961  .1178E-04,.3551E-04,.1072E-03,.2243E-03,.3407E-03,.4496E-03,.5956E-03,.1112E-02,.3287E-02,.7114E-04,&
5962  .1182E-04,.3564E-04,.1075E-03,.2252E-03,.3419E-03,.4512E-03,.5978E-03,.1116E-02,.3299E-02,.7140E-04,&
5963  .1186E-04,.3577E-04,.1079E-03,.2260E-03,.3432E-03,.4529E-03,.6000E-03,.1120E-02,.3311E-02,.7166E-04,&
5964  .1190E-04,.3590E-04,.1083E-03,.2268E-03,.3444E-03,.4545E-03,.6022E-03,.1124E-02,.3323E-02,.7191E-04,&
5965  .1195E-04,.3603E-04,.1087E-03,.2276E-03,.3456E-03,.4562E-03,.6044E-03,.1129E-02,.3335E-02,.7217E-04,&
5966  .1199E-04,.3615E-04,.1091E-03,.2284E-03,.3469E-03,.4578E-03,.6066E-03,.1133E-02,.3347E-02,.7243E-04,&
5967  .1203E-04,.3627E-04,.1095E-03,.2292E-03,.3481E-03,.4594E-03,.6087E-03,.1137E-02,.3358E-02,.7267E-04,&
5968  .1207E-04,.3639E-04,.1098E-03,.2300E-03,.3492E-03,.4610E-03,.6108E-03,.1140E-02,.3370E-02,.7292E-04,&
5969  .1211E-04,.3651E-04,.1102E-03,.2307E-03,.3504E-03,.4625E-03,.6128E-03,.1144E-02,.3381E-02,.7316E-04,&
5970  .1215E-04,.3663E-04,.1106E-03,.2315E-03,.3516E-03,.4641E-03,.6149E-03,.1148E-02,.3392E-02,.7340E-04,&
5971  .1219E-04,.3675E-04,.1109E-03,.2323E-03,.3528E-03,.4656E-03,.6170E-03,.1152E-02,.3404E-02,.7365E-04,&
5972  .1223E-04,.3687E-04,.1113E-03,.2330E-03,.3539E-03,.4671E-03,.6189E-03,.1156E-02,.3414E-02,.7387E-04,&
5973  .1226E-04,.3698E-04,.1116E-03,.2337E-03,.3550E-03,.4686E-03,.6208E-03,.1159E-02,.3425E-02,.7410E-04,&
5974  .1230E-04,.3709E-04,.1120E-03,.2345E-03,.3561E-03,.4700E-03,.6228E-03,.1163E-02,.3436E-02,.7433E-04,&
5975  .1234E-04,.3721E-04,.1123E-03,.2352E-03,.3572E-03,.4715E-03,.6247E-03,.1167E-02,.3446E-02,.7455E-04,&
5976  .1237E-04,.3732E-04,.1127E-03,.2359E-03,.3583E-03,.4729E-03,.6266E-03,.1170E-02,.3457E-02,.7478E-04,&
5977  .1241E-04,.3743E-04,.1130E-03,.2366E-03,.3593E-03,.4743E-03,.6285E-03,.1174E-02,.3467E-02,.7499E-04,&
5978  .1244E-04,.3753E-04,.1133E-03,.2373E-03,.3604E-03,.4757E-03,.6303E-03,.1177E-02,.3477E-02,.7521E-04,&
5979  .1248E-04,.3764E-04,.1136E-03,.2379E-03,.3614E-03,.4770E-03,.6321E-03,.1181E-02,.3487E-02,.7542E-04,&
5980  .1251E-04,.3775E-04,.1139E-03,.2386E-03,.3624E-03,.4784E-03,.6339E-03,.1184E-02,.3497E-02,.7563E-04,&
5981  .1255E-04,.3785E-04,.1142E-03,.2393E-03,.3635E-03,.4798E-03,.6357E-03,.1187E-02,.3507E-02,.7585E-04,&
5982  .1258E-04,.3795E-04,.1146E-03,.2399E-03,.3644E-03,.4811E-03,.6375E-03,.1191E-02,.3516E-02,.7605E-04,&
5983  .1262E-04,.3805E-04,.1149E-03,.2406E-03,.3654E-03,.4823E-03,.6392E-03,.1194E-02,.3525E-02,.7625E-04,&
5984  .1265E-04,.3815E-04,.1152E-03,.2412E-03,.3664E-03,.4836E-03,.6409E-03,.1197E-02,.3534E-02,.7645E-04,&
5985  .1268E-04,.3825E-04,.1155E-03,.2418E-03,.3674E-03,.4849E-03,.6426E-03,.1200E-02,.3544E-02,.7665E-04,&
5986  .1272E-04,.3835E-04,.1158E-03,.2425E-03,.3683E-03,.4862E-03,.6444E-03,.1203E-02,.3553E-02,.7685E-04,&
5987  .1275E-04,.3845E-04,.1161E-03,.2431E-03,.3693E-03,.4874E-03,.6460E-03,.1207E-02,.3562E-02,.7704E-04,&
5988  .1278E-04,.3854E-04,.1163E-03,.2437E-03,.3702E-03,.4886E-03,.6476E-03,.1210E-02,.3570E-02,.7723E-04,&
5989  .1281E-04,.3863E-04,.1166E-03,.2443E-03,.3711E-03,.4898E-03,.6492E-03,.1213E-02,.3579E-02,.7741E-04,&
5990  .1284E-04,.3873E-04,.1169E-03,.2449E-03,.3720E-03,.4911E-03,.6508E-03,.1216E-02,.3588E-02,.7760E-04,&
5991  .1287E-04,.3882E-04,.1172E-03,.2454E-03,.3729E-03,.4923E-03,.6524E-03,.1219E-02,.3596E-02,.7779E-04,&
5992  .1290E-04,.3891E-04,.1175E-03,.2460E-03,.3738E-03,.4934E-03,.6539E-03,.1222E-02,.3604E-02,.7797E-04,&
5993  .1293E-04,.3900E-04,.1177E-03,.2466E-03,.3746E-03,.4946E-03,.6554E-03,.1224E-02,.3613E-02,.7814E-04,&
5994  .1296E-04,.3908E-04,.1180E-03,.2471E-03,.3755E-03,.4957E-03,.6569E-03,.1227E-02,.3621E-02,.7832E-04,&
5995  .1299E-04,.3917E-04,.1183E-03,.2477E-03,.3763E-03,.4968E-03,.6584E-03,.1230E-02,.3629E-02,.7850E-04,&
5996  .1302E-04,.3926E-04,.1185E-03,.2483E-03,.3772E-03,.4980E-03,.6600E-03,.1233E-02,.3637E-02,.7867E-04,&
5997  .1304E-04,.3933E-04,.1186E-03,.2485E-03,.3778E-03,.4990E-03,.6615E-03,.1236E-02,.3649E-02,.7878E-04,&
5998  .1307E-04,.3941E-04,.1187E-03,.2487E-03,.3785E-03,.5000E-03,.6631E-03,.1239E-02,.3662E-02,.7888E-04,&
5999  .1309E-04,.3948E-04,.1188E-03,.2489E-03,.3791E-03,.5010E-03,.6647E-03,.1243E-02,.3674E-02,.7898E-04,&
6000  .1312E-04,.3956E-04,.1188E-03,.2491E-03,.3797E-03,.5021E-03,.6663E-03,.1246E-02,.3687E-02,.7909E-04,&
6001  .1314E-04,.3963E-04,.1189E-03,.2493E-03,.3804E-03,.5031E-03,.6679E-03,.1249E-02,.3699E-02,.7919E-04,&
6002  .1317E-04,.3971E-04,.1191E-03,.2498E-03,.3811E-03,.5041E-03,.6692E-03,.1252E-02,.3707E-02,.7935E-04,&
6003  .1319E-04,.3979E-04,.1194E-03,.2503E-03,.3819E-03,.5051E-03,.6706E-03,.1254E-02,.3714E-02,.7950E-04,&
6004  .1322E-04,.3987E-04,.1196E-03,.2508E-03,.3827E-03,.5061E-03,.6719E-03,.1257E-02,.3721E-02,.7966E-04,&
6005  .1325E-04,.3995E-04,.1199E-03,.2513E-03,.3834E-03,.5072E-03,.6733E-03,.1260E-02,.3728E-02,.7982E-04,&
6006  .1327E-04,.4003E-04,.1201E-03,.2518E-03,.3842E-03,.5082E-03,.6746E-03,.1262E-02,.3735E-02,.7997E-04,&
6007  .1330E-04,.4009E-04,.1199E-03,.2514E-03,.3846E-03,.5092E-03,.6767E-03,.1267E-02,.3760E-02,.7997E-04,&
6008  .1332E-04,.4016E-04,.1196E-03,.2510E-03,.3849E-03,.5103E-03,.6788E-03,.1272E-02,.3784E-02,.7996E-04,&
6009  .1335E-04,.4023E-04,.1193E-03,.2506E-03,.3853E-03,.5113E-03,.6809E-03,.1276E-02,.3808E-02,.7996E-04,&
6010  .1337E-04,.4029E-04,.1191E-03,.2502E-03,.3857E-03,.5124E-03,.6830E-03,.1281E-02,.3832E-02,.7995E-04,&
6011  .1340E-04,.4036E-04,.1188E-03,.2498E-03,.3860E-03,.5134E-03,.6851E-03,.1286E-02,.3856E-02,.7995E-04,&
6012  .1345E-04,.4049E-04,.1181E-03,.2484E-03,.3866E-03,.5158E-03,.6902E-03,.1298E-02,.3922E-02,.7985E-04,&
6013  .1350E-04,.4062E-04,.1173E-03,.2470E-03,.3872E-03,.5182E-03,.6953E-03,.1310E-02,.3989E-02,.7976E-04,&
6014  .1355E-04,.4075E-04,.1165E-03,.2457E-03,.3878E-03,.5206E-03,.7004E-03,.1322E-02,.4055E-02,.7967E-04,&
6015  .1360E-04,.4088E-04,.1158E-03,.2443E-03,.3884E-03,.5229E-03,.7055E-03,.1334E-02,.4121E-02,.7957E-04,&
6016  .1365E-04,.4102E-04,.1150E-03,.2429E-03,.3890E-03,.5253E-03,.7106E-03,.1346E-02,.4188E-02,.7948E-04,&
6017  .1375E-04,.4130E-04,.1145E-03,.2420E-03,.3910E-03,.5302E-03,.7199E-03,.1366E-02,.4297E-02,.7962E-04,&
6018  .1386E-04,.4158E-04,.1139E-03,.2410E-03,.3930E-03,.5351E-03,.7292E-03,.1387E-02,.4407E-02,.7976E-04,&
6019  .1396E-04,.4186E-04,.1134E-03,.2400E-03,.3951E-03,.5400E-03,.7384E-03,.1407E-02,.4516E-02,.7990E-04,&
6020  .1406E-04,.4214E-04,.1129E-03,.2390E-03,.3971E-03,.5449E-03,.7477E-03,.1428E-02,.4626E-02,.8004E-04,&
6021  .1417E-04,.4242E-04,.1123E-03,.2380E-03,.3991E-03,.5498E-03,.7569E-03,.1448E-02,.4735E-02,.8018E-04,&
6022  .1435E-04,.4293E-04,.1118E-03,.2370E-03,.4032E-03,.5588E-03,.7733E-03,.1484E-02,.4928E-02,.8058E-04,&
6023  .1450E-04,.4332E-04,.1116E-03,.2367E-03,.4065E-03,.5658E-03,.7857E-03,.1511E-02,.5069E-02,.8096E-04,&
6024  .1471E-04,.4392E-04,.1114E-03,.2362E-03,.4116E-03,.5763E-03,.8047E-03,.1552E-02,.5288E-02,.8155E-04,&
6025  .1487E-04,.4437E-04,.1115E-03,.2362E-03,.4156E-03,.5843E-03,.8188E-03,.1582E-02,.5447E-02,.8205E-04,&
6026  .1512E-04,.4505E-04,.1115E-03,.2362E-03,.4215E-03,.5965E-03,.8403E-03,.1628E-02,.5695E-02,.8281E-04,&
6027  .1537E-04,.4577E-04,.1117E-03,.2363E-03,.4281E-03,.6096E-03,.8632E-03,.1677E-02,.5961E-02,.8366E-04,&
6028  .1556E-04,.4632E-04,.1120E-03,.2368E-03,.4331E-03,.6193E-03,.8803E-03,.1713E-02,.6152E-02,.8435E-04,&
6029  .1585E-04,.4712E-04,.1124E-03,.2373E-03,.4406E-03,.6340E-03,.9057E-03,.1768E-02,.6449E-02,.8535E-04,&
6030  .1606E-04,.4771E-04,.1129E-03,.2380E-03,.4462E-03,.6448E-03,.9246E-03,.1808E-02,.6664E-02,.8614E-04,&
6031  .1637E-04,.4859E-04,.1135E-03,.2389E-03,.4546E-03,.6611E-03,.9529E-03,.1868E-02,.6994E-02,.8729E-04,&
6032  .1669E-04,.4950E-04,.1142E-03,.2400E-03,.4634E-03,.6783E-03,.9830E-03,.1932E-02,.7347E-02,.8853E-04,&
6033  .1703E-04,.5046E-04,.1151E-03,.2412E-03,.4728E-03,.6965E-03,.1015E-02,.1999E-02,.7721E-02,.8985E-04,&
6034  .1738E-04,.5146E-04,.1161E-03,.2427E-03,.4828E-03,.7157E-03,.1048E-02,.2070E-02,.8118E-02,.9125E-04,&
6035  .1785E-04,.5281E-04,.1174E-03,.2447E-03,.4964E-03,.7422E-03,.1094E-02,.2168E-02,.8679E-02,.9315E-04,&
6036  .1835E-04,.5422E-04,.1190E-03,.2470E-03,.5109E-03,.7704E-03,.1143E-02,.2273E-02,.9281E-02,.9517E-04,&
6037  .1898E-04,.5604E-04,.1211E-03,.2500E-03,.5300E-03,.8076E-03,.1208E-02,.2412E-02,.1009E-01,.9782E-04,&
6038  .1990E-04,.5868E-04,.1242E-03,.2547E-03,.5583E-03,.8632E-03,.1307E-02,.2622E-02,.1134E-01,.1017E-03,&
6039  .2102E-04,.6187E-04,.1283E-03,.2608E-03,.5936E-03,.9326E-03,.1429E-02,.2886E-02,.1295E-01,.1064E-03,&
6040  .2396E-04,.7035E-04,.1400E-03,.2783E-03,.6926E-03,.1131E-02,.1783E-02,.3655E-02,.1784E-01,.1193E-03/
6041  data (((w0_lw(ai,k,nh),ai= 3, 3),k=1,nwl_lw),nh=0,99)/ &
6042  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6043  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6044  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6045  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6046  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6047  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6048  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6049  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6050  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6051  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6052  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6053  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6054  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6055  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6056  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6057  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6058  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6059  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6060  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6061  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6062  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6063  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6064  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6065  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6066  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6067  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6068  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6069  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6070  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6071  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6072  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6073  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6074  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6075  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6076  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6077  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6078  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6079  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6080  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6081  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6082  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6083  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6084  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6085  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6086  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6087  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6088  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6089  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6090  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6091  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6092  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6093  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6094  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6095  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6096  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6097  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6098  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6099  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6100  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6101  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6102  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6103  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6104  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6105  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6106  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6107  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6108  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6109  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6110  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6111  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6112  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6113  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6114  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6115  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6116  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6117  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6118  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6119  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6120  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6121  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6122  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6123  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6124  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6125  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6126  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6127  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6128  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6129  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6130  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6131  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6132  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6133  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6134  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6135  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6136  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6137  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6138  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6139  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6140  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6141  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03/
6142  data (((w0_lw(ai,k,nh),ai= 4, 4),k=1,nwl_lw),nh=0,99)/ &
6143  .3446E-04,.2170E-03,.7401E-03,.3198E-02,.3693E-02,.3257E-02,.1315E-02,.1798E-01,.1881E+00,.4705E-03,&
6144  .3481E-04,.2162E-03,.7142E-03,.3142E-02,.3712E-02,.3279E-02,.1349E-02,.1804E-01,.1893E+00,.4652E-03,&
6145  .3517E-04,.2153E-03,.6883E-03,.3086E-02,.3731E-02,.3300E-02,.1382E-02,.1809E-01,.1905E+00,.4599E-03,&
6146  .3552E-04,.2145E-03,.6624E-03,.3031E-02,.3749E-02,.3322E-02,.1416E-02,.1814E-01,.1917E+00,.4546E-03,&
6147  .3587E-04,.2136E-03,.6365E-03,.2975E-02,.3768E-02,.3343E-02,.1450E-02,.1819E-01,.1929E+00,.4493E-03,&
6148  .3623E-04,.2128E-03,.6106E-03,.2919E-02,.3787E-02,.3365E-02,.1484E-02,.1825E-01,.1941E+00,.4440E-03,&
6149  .3660E-04,.2123E-03,.5955E-03,.2880E-02,.3806E-02,.3388E-02,.1521E-02,.1836E-01,.1954E+00,.4402E-03,&
6150  .3697E-04,.2119E-03,.5803E-03,.2841E-02,.3825E-02,.3411E-02,.1558E-02,.1847E-01,.1968E+00,.4365E-03,&
6151  .3734E-04,.2114E-03,.5652E-03,.2801E-02,.3844E-02,.3433E-02,.1595E-02,.1858E-01,.1982E+00,.4328E-03,&
6152  .3772E-04,.2110E-03,.5501E-03,.2762E-02,.3863E-02,.3456E-02,.1632E-02,.1869E-01,.1995E+00,.4290E-03,&
6153  .3809E-04,.2105E-03,.5350E-03,.2722E-02,.3882E-02,.3479E-02,.1669E-02,.1880E-01,.2009E+00,.4253E-03,&
6154  .3848E-04,.2104E-03,.5254E-03,.2693E-02,.3902E-02,.3503E-02,.1709E-02,.1894E-01,.2024E+00,.4227E-03,&
6155  .3887E-04,.2103E-03,.5158E-03,.2663E-02,.3922E-02,.3527E-02,.1750E-02,.1909E-01,.2039E+00,.4202E-03,&
6156  .3927E-04,.2101E-03,.5061E-03,.2634E-02,.3941E-02,.3551E-02,.1790E-02,.1924E-01,.2054E+00,.4176E-03,&
6157  .3966E-04,.2100E-03,.4965E-03,.2605E-02,.3961E-02,.3575E-02,.1831E-02,.1938E-01,.2068E+00,.4150E-03,&
6158  .4005E-04,.2098E-03,.4869E-03,.2575E-02,.3981E-02,.3599E-02,.1871E-02,.1953E-01,.2083E+00,.4124E-03,&
6159  .4046E-04,.2099E-03,.4805E-03,.2553E-02,.4001E-02,.3624E-02,.1915E-02,.1970E-01,.2099E+00,.4107E-03,&
6160  .4087E-04,.2101E-03,.4741E-03,.2530E-02,.4021E-02,.3650E-02,.1960E-02,.1987E-01,.2114E+00,.4090E-03,&
6161  .4129E-04,.2102E-03,.4677E-03,.2507E-02,.4041E-02,.3675E-02,.2004E-02,.2004E-01,.2130E+00,.4073E-03,&
6162  .4170E-04,.2103E-03,.4613E-03,.2484E-02,.4061E-02,.3701E-02,.2048E-02,.2022E-01,.2146E+00,.4056E-03,&
6163  .4211E-04,.2104E-03,.4549E-03,.2462E-02,.4082E-02,.3726E-02,.2092E-02,.2039E-01,.2161E+00,.4039E-03,&
6164  .4254E-04,.2107E-03,.4506E-03,.2444E-02,.4102E-02,.3753E-02,.2140E-02,.2058E-01,.2177E+00,.4028E-03,&
6165  .4298E-04,.2111E-03,.4463E-03,.2426E-02,.4123E-02,.3780E-02,.2188E-02,.2077E-01,.2194E+00,.4018E-03,&
6166  .4341E-04,.2114E-03,.4420E-03,.2408E-02,.4144E-02,.3807E-02,.2235E-02,.2096E-01,.2210E+00,.4008E-03,&
6167  .4384E-04,.2117E-03,.4377E-03,.2390E-02,.4165E-02,.3834E-02,.2283E-02,.2116E-01,.2226E+00,.3998E-03,&
6168  .4428E-04,.2120E-03,.4334E-03,.2373E-02,.4186E-02,.3860E-02,.2331E-02,.2135E-01,.2242E+00,.3988E-03,&
6169  .4473E-04,.2126E-03,.4305E-03,.2358E-02,.4207E-02,.3889E-02,.2383E-02,.2156E-01,.2259E+00,.3983E-03,&
6170  .4519E-04,.2131E-03,.4276E-03,.2344E-02,.4228E-02,.3917E-02,.2435E-02,.2177E-01,.2276E+00,.3978E-03,&
6171  .4564E-04,.2136E-03,.4248E-03,.2330E-02,.4250E-02,.3946E-02,.2487E-02,.2198E-01,.2292E+00,.3974E-03,&
6172  .4610E-04,.2141E-03,.4219E-03,.2316E-02,.4271E-02,.3974E-02,.2538E-02,.2219E-01,.2309E+00,.3969E-03,&
6173  .4655E-04,.2146E-03,.4190E-03,.2302E-02,.4293E-02,.4003E-02,.2590E-02,.2240E-01,.2326E+00,.3964E-03,&
6174  .4703E-04,.2153E-03,.4172E-03,.2290E-02,.4315E-02,.4033E-02,.2646E-02,.2262E-01,.2343E+00,.3964E-03,&
6175  .4751E-04,.2160E-03,.4154E-03,.2279E-02,.4337E-02,.4063E-02,.2702E-02,.2284E-01,.2360E+00,.3964E-03,&
6176  .4798E-04,.2167E-03,.4136E-03,.2268E-02,.4359E-02,.4093E-02,.2758E-02,.2307E-01,.2377E+00,.3964E-03,&
6177  .4846E-04,.2173E-03,.4118E-03,.2256E-02,.4381E-02,.4123E-02,.2813E-02,.2329E-01,.2394E+00,.3964E-03,&
6178  .4894E-04,.2180E-03,.4100E-03,.2245E-02,.4404E-02,.4153E-02,.2869E-02,.2352E-01,.2411E+00,.3964E-03,&
6179  .4943E-04,.2189E-03,.4090E-03,.2236E-02,.4426E-02,.4185E-02,.2929E-02,.2375E-01,.2428E+00,.3968E-03,&
6180  .4993E-04,.2197E-03,.4081E-03,.2227E-02,.4449E-02,.4217E-02,.2989E-02,.2399E-01,.2446E+00,.3972E-03,&
6181  .5043E-04,.2205E-03,.4071E-03,.2217E-02,.4472E-02,.4249E-02,.3049E-02,.2423E-01,.2463E+00,.3976E-03,&
6182  .5093E-04,.2214E-03,.4061E-03,.2208E-02,.4495E-02,.4280E-02,.3109E-02,.2447E-01,.2481E+00,.3980E-03,&
6183  .5143E-04,.2222E-03,.4051E-03,.2199E-02,.4518E-02,.4312E-02,.3169E-02,.2471E-01,.2498E+00,.3984E-03,&
6184  .5196E-04,.2232E-03,.4048E-03,.2192E-02,.4542E-02,.4346E-02,.3233E-02,.2496E-01,.2516E+00,.3991E-03,&
6185  .5248E-04,.2241E-03,.4045E-03,.2185E-02,.4565E-02,.4379E-02,.3297E-02,.2521E-01,.2533E+00,.3999E-03,&
6186  .5300E-04,.2251E-03,.4041E-03,.2178E-02,.4589E-02,.4413E-02,.3362E-02,.2546E-01,.2551E+00,.4006E-03,&
6187  .5353E-04,.2261E-03,.4038E-03,.2170E-02,.4613E-02,.4447E-02,.3426E-02,.2571E-01,.2568E+00,.4014E-03,&
6188  .5405E-04,.2271E-03,.4035E-03,.2163E-02,.4636E-02,.4480E-02,.3490E-02,.2596E-01,.2586E+00,.4021E-03,&
6189  .5460E-04,.2282E-03,.4037E-03,.2158E-02,.4661E-02,.4516E-02,.3559E-02,.2623E-01,.2604E+00,.4032E-03,&
6190  .5514E-04,.2293E-03,.4039E-03,.2152E-02,.4685E-02,.4551E-02,.3627E-02,.2649E-01,.2622E+00,.4043E-03,&
6191  .5569E-04,.2304E-03,.4041E-03,.2146E-02,.4709E-02,.4587E-02,.3696E-02,.2675E-01,.2639E+00,.4053E-03,&
6192  .5623E-04,.2315E-03,.4043E-03,.2141E-02,.4734E-02,.4622E-02,.3765E-02,.2702E-01,.2657E+00,.4064E-03,&
6193  .5678E-04,.2326E-03,.4046E-03,.2135E-02,.4758E-02,.4658E-02,.3833E-02,.2728E-01,.2675E+00,.4075E-03,&
6194  .5735E-04,.2336E-03,.4046E-03,.2126E-02,.4779E-02,.4693E-02,.3913E-02,.2756E-01,.2693E+00,.4083E-03,&
6195  .5792E-04,.2346E-03,.4047E-03,.2117E-02,.4800E-02,.4729E-02,.3993E-02,.2784E-01,.2711E+00,.4091E-03,&
6196  .5849E-04,.2356E-03,.4047E-03,.2108E-02,.4821E-02,.4765E-02,.4074E-02,.2812E-01,.2729E+00,.4099E-03,&
6197  .5906E-04,.2366E-03,.4048E-03,.2099E-02,.4842E-02,.4800E-02,.4154E-02,.2840E-01,.2747E+00,.4107E-03,&
6198  .5963E-04,.2377E-03,.4048E-03,.2090E-02,.4863E-02,.4836E-02,.4234E-02,.2868E-01,.2765E+00,.4115E-03,&
6199  .6023E-04,.2388E-03,.4055E-03,.2083E-02,.4885E-02,.4875E-02,.4319E-02,.2897E-01,.2784E+00,.4128E-03,&
6200  .6084E-04,.2400E-03,.4061E-03,.2076E-02,.4907E-02,.4913E-02,.4405E-02,.2927E-01,.2802E+00,.4140E-03,&
6201  .6144E-04,.2412E-03,.4068E-03,.2069E-02,.4929E-02,.4951E-02,.4490E-02,.2956E-01,.2821E+00,.4152E-03,&
6202  .6204E-04,.2424E-03,.4074E-03,.2062E-02,.4952E-02,.4990E-02,.4576E-02,.2985E-01,.2839E+00,.4164E-03,&
6203  .6264E-04,.2435E-03,.4080E-03,.2055E-02,.4974E-02,.5028E-02,.4662E-02,.3015E-01,.2857E+00,.4176E-03,&
6204  .6326E-04,.2450E-03,.4096E-03,.2053E-02,.5001E-02,.5071E-02,.4745E-02,.3045E-01,.2876E+00,.4196E-03,&
6205  .6389E-04,.2465E-03,.4112E-03,.2052E-02,.5028E-02,.5113E-02,.4828E-02,.3075E-01,.2894E+00,.4215E-03,&
6206  .6452E-04,.2480E-03,.4127E-03,.2051E-02,.5056E-02,.5155E-02,.4911E-02,.3105E-01,.2912E+00,.4235E-03,&
6207  .6514E-04,.2495E-03,.4143E-03,.2049E-02,.5083E-02,.5197E-02,.4994E-02,.3135E-01,.2930E+00,.4254E-03,&
6208  .6577E-04,.2510E-03,.4159E-03,.2048E-02,.5111E-02,.5239E-02,.5077E-02,.3165E-01,.2948E+00,.4274E-03,&
6209  .6643E-04,.2525E-03,.4174E-03,.2044E-02,.5135E-02,.5283E-02,.5174E-02,.3197E-01,.2967E+00,.4292E-03,&
6210  .6709E-04,.2539E-03,.4189E-03,.2040E-02,.5160E-02,.5326E-02,.5270E-02,.3229E-01,.2985E+00,.4310E-03,&
6211  .6775E-04,.2554E-03,.4203E-03,.2035E-02,.5185E-02,.5370E-02,.5366E-02,.3262E-01,.3004E+00,.4328E-03,&
6212  .6841E-04,.2569E-03,.4218E-03,.2031E-02,.5210E-02,.5414E-02,.5463E-02,.3294E-01,.3023E+00,.4347E-03,&
6213  .6907E-04,.2583E-03,.4233E-03,.2027E-02,.5234E-02,.5457E-02,.5559E-02,.3326E-01,.3041E+00,.4365E-03,&
6214  .6980E-04,.2596E-03,.4244E-03,.2015E-02,.5250E-02,.5503E-02,.5687E-02,.3362E-01,.3061E+00,.4378E-03,&
6215  .7053E-04,.2609E-03,.4255E-03,.2002E-02,.5266E-02,.5549E-02,.5815E-02,.3399E-01,.3082E+00,.4391E-03,&
6216  .7126E-04,.2622E-03,.4265E-03,.1990E-02,.5283E-02,.5595E-02,.5943E-02,.3435E-01,.3102E+00,.4404E-03,&
6217  .7199E-04,.2635E-03,.4276E-03,.1977E-02,.5299E-02,.5641E-02,.6072E-02,.3472E-01,.3122E+00,.4418E-03,&
6218  .7272E-04,.2647E-03,.4287E-03,.1965E-02,.5315E-02,.5687E-02,.6200E-02,.3508E-01,.3142E+00,.4431E-03,&
6219  .7355E-04,.2661E-03,.4300E-03,.1948E-02,.5326E-02,.5740E-02,.6364E-02,.3550E-01,.3164E+00,.4445E-03,&
6220  .7438E-04,.2675E-03,.4314E-03,.1931E-02,.5337E-02,.5793E-02,.6528E-02,.3593E-01,.3187E+00,.4458E-03,&
6221  .7521E-04,.2688E-03,.4327E-03,.1914E-02,.5348E-02,.5846E-02,.6693E-02,.3635E-01,.3209E+00,.4472E-03,&
6222  .7604E-04,.2702E-03,.4340E-03,.1897E-02,.5359E-02,.5898E-02,.6857E-02,.3677E-01,.3231E+00,.4486E-03,&
6223  .7687E-04,.2715E-03,.4354E-03,.1880E-02,.5370E-02,.5951E-02,.7021E-02,.3719E-01,.3254E+00,.4499E-03,&
6224  .7777E-04,.2730E-03,.4369E-03,.1859E-02,.5377E-02,.6011E-02,.7221E-02,.3767E-01,.3278E+00,.4514E-03,&
6225  .7872E-04,.2745E-03,.4388E-03,.1840E-02,.5386E-02,.6073E-02,.7419E-02,.3815E-01,.3303E+00,.4531E-03,&
6226  .7968E-04,.2762E-03,.4410E-03,.1822E-02,.5396E-02,.6138E-02,.7626E-02,.3864E-01,.3327E+00,.4550E-03,&
6227  .8068E-04,.2780E-03,.4435E-03,.1805E-02,.5407E-02,.6205E-02,.7830E-02,.3914E-01,.3352E+00,.4572E-03,&
6228  .8178E-04,.2797E-03,.4458E-03,.1780E-02,.5410E-02,.6281E-02,.8088E-02,.3971E-01,.3380E+00,.4591E-03,&
6229  .8291E-04,.2816E-03,.4486E-03,.1757E-02,.5415E-02,.6359E-02,.8348E-02,.4030E-01,.3409E+00,.4614E-03,&
6230  .8419E-04,.2836E-03,.4516E-03,.1728E-02,.5414E-02,.6450E-02,.8656E-02,.4096E-01,.3440E+00,.4636E-03,&
6231  .8548E-04,.2858E-03,.4552E-03,.1702E-02,.5417E-02,.6545E-02,.8972E-02,.4163E-01,.3472E+00,.4664E-03,&
6232  .8695E-04,.2883E-03,.4593E-03,.1672E-02,.5416E-02,.6653E-02,.9337E-02,.4239E-01,.3507E+00,.4695E-03,&
6233  .8844E-04,.2910E-03,.4640E-03,.1646E-02,.5419E-02,.6770E-02,.9703E-02,.4317E-01,.3543E+00,.4731E-03,&
6234  .9012E-04,.2940E-03,.4694E-03,.1617E-02,.5422E-02,.6902E-02,.1012E-01,.4403E-01,.3582E+00,.4773E-03,&
6235  .9195E-04,.2975E-03,.4758E-03,.1587E-02,.5426E-02,.7053E-02,.1060E-01,.4498E-01,.3624E+00,.4822E-03,&
6236  .9415E-04,.3017E-03,.4838E-03,.1553E-02,.5429E-02,.7238E-02,.1116E-01,.4611E-01,.3673E+00,.4882E-03,&
6237  .9652E-04,.3065E-03,.4931E-03,.1523E-02,.5439E-02,.7449E-02,.1178E-01,.4731E-01,.3725E+00,.4954E-03,&
6238  .9959E-04,.3128E-03,.5056E-03,.1486E-02,.5453E-02,.7729E-02,.1257E-01,.4885E-01,.3790E+00,.5049E-03,&
6239  .1033E-03,.3210E-03,.5217E-03,.1451E-02,.5481E-02,.8087E-02,.1354E-01,.5074E-01,.3866E+00,.5176E-03,&
6240  .1076E-03,.3308E-03,.5412E-03,.1424E-02,.5533E-02,.8509E-02,.1462E-01,.5284E-01,.3949E+00,.5331E-03,&
6241  .1141E-03,.3463E-03,.5719E-03,.1398E-02,.5634E-02,.9179E-02,.1622E-01,.5596E-01,.4068E+00,.5581E-03,&
6242  .1239E-03,.3710E-03,.6199E-03,.1390E-02,.5842E-02,.1022E-01,.1853E-01,.6051E-01,.4234E+00,.5982E-03/
6243  data (((w0_lw(ai,k,nh),ai= 5, 5),k=1,nwl_lw),nh=0,99)/ &
6244  .4211E-01,.1689E+00,.4530E+00,.7769E+00,.8276E+00,.7723E+00,.8409E+00,.9260E+00,.9872E+00,.3073E+00,&
6245  .4250E-01,.1642E+00,.4101E+00,.7363E+00,.8168E+00,.7672E+00,.8331E+00,.9147E+00,.9851E+00,.2904E+00,&
6246  .4289E-01,.1595E+00,.3671E+00,.6958E+00,.8060E+00,.7620E+00,.8254E+00,.9033E+00,.9829E+00,.2736E+00,&
6247  .4328E-01,.1548E+00,.3242E+00,.6553E+00,.7953E+00,.7569E+00,.8176E+00,.8920E+00,.9808E+00,.2568E+00,&
6248  .4367E-01,.1501E+00,.2813E+00,.6148E+00,.7845E+00,.7518E+00,.8098E+00,.8806E+00,.9787E+00,.2399E+00,&
6249  .4406E-01,.1454E+00,.2383E+00,.5743E+00,.7738E+00,.7466E+00,.8021E+00,.8693E+00,.9766E+00,.2231E+00,&
6250  .4453E-01,.1429E+00,.2255E+00,.5525E+00,.7649E+00,.7424E+00,.7966E+00,.8614E+00,.9749E+00,.2153E+00,&
6251  .4500E-01,.1405E+00,.2127E+00,.5308E+00,.7560E+00,.7382E+00,.7910E+00,.8535E+00,.9732E+00,.2075E+00,&
6252  .4546E-01,.1381E+00,.1999E+00,.5090E+00,.7470E+00,.7340E+00,.7855E+00,.8456E+00,.9715E+00,.1997E+00,&
6253  .4593E-01,.1357E+00,.1870E+00,.4873E+00,.7381E+00,.7298E+00,.7800E+00,.8377E+00,.9698E+00,.1919E+00,&
6254  .4640E-01,.1333E+00,.1742E+00,.4655E+00,.7292E+00,.7256E+00,.7745E+00,.8298E+00,.9682E+00,.1842E+00,&
6255  .4693E-01,.1320E+00,.1685E+00,.4516E+00,.7218E+00,.7221E+00,.7704E+00,.8240E+00,.9668E+00,.1800E+00,&
6256  .4747E-01,.1308E+00,.1628E+00,.4377E+00,.7144E+00,.7187E+00,.7664E+00,.8183E+00,.9655E+00,.1758E+00,&
6257  .4801E-01,.1295E+00,.1571E+00,.4238E+00,.7070E+00,.7152E+00,.7624E+00,.8126E+00,.9641E+00,.1716E+00,&
6258  .4854E-01,.1283E+00,.1514E+00,.4099E+00,.6996E+00,.7118E+00,.7584E+00,.8068E+00,.9627E+00,.1674E+00,&
6259  .4908E-01,.1270E+00,.1457E+00,.3960E+00,.6922E+00,.7083E+00,.7544E+00,.8011E+00,.9614E+00,.1632E+00,&
6260  .4967E-01,.1264E+00,.1428E+00,.3866E+00,.6861E+00,.7056E+00,.7515E+00,.7969E+00,.9603E+00,.1609E+00,&
6261  .5025E-01,.1259E+00,.1400E+00,.3773E+00,.6801E+00,.7028E+00,.7486E+00,.7927E+00,.9592E+00,.1586E+00,&
6262  .5084E-01,.1253E+00,.1371E+00,.3679E+00,.6741E+00,.7001E+00,.7457E+00,.7885E+00,.9581E+00,.1562E+00,&
6263  .5142E-01,.1247E+00,.1343E+00,.3585E+00,.6681E+00,.6973E+00,.7429E+00,.7843E+00,.9570E+00,.1539E+00,&
6264  .5201E-01,.1241E+00,.1314E+00,.3491E+00,.6621E+00,.6946E+00,.7400E+00,.7801E+00,.9560E+00,.1516E+00,&
6265  .5264E-01,.1240E+00,.1299E+00,.3425E+00,.6571E+00,.6924E+00,.7379E+00,.7770E+00,.9551E+00,.1502E+00,&
6266  .5328E-01,.1238E+00,.1284E+00,.3358E+00,.6522E+00,.6902E+00,.7359E+00,.7739E+00,.9542E+00,.1489E+00,&
6267  .5391E-01,.1237E+00,.1270E+00,.3291E+00,.6473E+00,.6880E+00,.7338E+00,.7708E+00,.9533E+00,.1476E+00,&
6268  .5455E-01,.1235E+00,.1255E+00,.3224E+00,.6424E+00,.6858E+00,.7317E+00,.7677E+00,.9524E+00,.1463E+00,&
6269  .5518E-01,.1234E+00,.1240E+00,.3157E+00,.6374E+00,.6836E+00,.7297E+00,.7645E+00,.9516E+00,.1450E+00,&
6270  .5585E-01,.1235E+00,.1233E+00,.3109E+00,.6335E+00,.6819E+00,.7282E+00,.7622E+00,.9508E+00,.1443E+00,&
6271  .5652E-01,.1236E+00,.1226E+00,.3061E+00,.6295E+00,.6802E+00,.7268E+00,.7599E+00,.9501E+00,.1436E+00,&
6272  .5718E-01,.1238E+00,.1219E+00,.3013E+00,.6255E+00,.6785E+00,.7254E+00,.7576E+00,.9494E+00,.1429E+00,&
6273  .5785E-01,.1239E+00,.1212E+00,.2964E+00,.6216E+00,.6768E+00,.7240E+00,.7552E+00,.9487E+00,.1422E+00,&
6274  .5852E-01,.1240E+00,.1204E+00,.2916E+00,.6176E+00,.6751E+00,.7225E+00,.7529E+00,.9480E+00,.1415E+00,&
6275  .5923E-01,.1244E+00,.1202E+00,.2880E+00,.6144E+00,.6738E+00,.7216E+00,.7512E+00,.9474E+00,.1413E+00,&
6276  .5993E-01,.1247E+00,.1200E+00,.2845E+00,.6112E+00,.6724E+00,.7206E+00,.7494E+00,.9468E+00,.1410E+00,&
6277  .6064E-01,.1250E+00,.1197E+00,.2809E+00,.6080E+00,.6711E+00,.7196E+00,.7477E+00,.9462E+00,.1407E+00,&
6278  .6134E-01,.1253E+00,.1195E+00,.2773E+00,.6048E+00,.6698E+00,.7186E+00,.7459E+00,.9456E+00,.1405E+00,&
6279  .6205E-01,.1257E+00,.1192E+00,.2738E+00,.6016E+00,.6685E+00,.7176E+00,.7442E+00,.9450E+00,.1402E+00,&
6280  .6277E-01,.1261E+00,.1193E+00,.2711E+00,.5990E+00,.6675E+00,.7170E+00,.7429E+00,.9445E+00,.1402E+00,&
6281  .6350E-01,.1266E+00,.1193E+00,.2685E+00,.5965E+00,.6666E+00,.7164E+00,.7416E+00,.9440E+00,.1402E+00,&
6282  .6423E-01,.1270E+00,.1193E+00,.2658E+00,.5939E+00,.6656E+00,.7158E+00,.7403E+00,.9435E+00,.1402E+00,&
6283  .6495E-01,.1275E+00,.1194E+00,.2632E+00,.5914E+00,.6646E+00,.7152E+00,.7390E+00,.9431E+00,.1402E+00,&
6284  .6568E-01,.1279E+00,.1194E+00,.2606E+00,.5889E+00,.6637E+00,.7145E+00,.7377E+00,.9426E+00,.1403E+00,&
6285  .6643E-01,.1285E+00,.1197E+00,.2586E+00,.5868E+00,.6630E+00,.7142E+00,.7367E+00,.9422E+00,.1405E+00,&
6286  .6719E-01,.1291E+00,.1199E+00,.2566E+00,.5848E+00,.6623E+00,.7138E+00,.7358E+00,.9418E+00,.1407E+00,&
6287  .6794E-01,.1297E+00,.1202E+00,.2546E+00,.5828E+00,.6616E+00,.7135E+00,.7348E+00,.9413E+00,.1409E+00,&
6288  .6869E-01,.1302E+00,.1204E+00,.2527E+00,.5808E+00,.6608E+00,.7131E+00,.7338E+00,.9409E+00,.1411E+00,&
6289  .6945E-01,.1308E+00,.1207E+00,.2507E+00,.5787E+00,.6601E+00,.7127E+00,.7329E+00,.9405E+00,.1413E+00,&
6290  .7022E-01,.1314E+00,.1211E+00,.2492E+00,.5772E+00,.6597E+00,.7126E+00,.7322E+00,.9402E+00,.1416E+00,&
6291  .7098E-01,.1321E+00,.1214E+00,.2478E+00,.5756E+00,.6592E+00,.7124E+00,.7314E+00,.9399E+00,.1420E+00,&
6292  .7175E-01,.1327E+00,.1218E+00,.2463E+00,.5740E+00,.6587E+00,.7123E+00,.7307E+00,.9395E+00,.1423E+00,&
6293  .7252E-01,.1333E+00,.1222E+00,.2449E+00,.5724E+00,.6583E+00,.7121E+00,.7300E+00,.9392E+00,.1426E+00,&
6294  .7328E-01,.1340E+00,.1226E+00,.2434E+00,.5709E+00,.6578E+00,.7120E+00,.7293E+00,.9388E+00,.1430E+00,&
6295  .7394E-01,.1345E+00,.1230E+00,.2425E+00,.5698E+00,.6576E+00,.7119E+00,.7289E+00,.9386E+00,.1434E+00,&
6296  .7459E-01,.1351E+00,.1234E+00,.2416E+00,.5688E+00,.6573E+00,.7119E+00,.7284E+00,.9384E+00,.1437E+00,&
6297  .7525E-01,.1357E+00,.1238E+00,.2407E+00,.5678E+00,.6571E+00,.7119E+00,.7280E+00,.9381E+00,.1441E+00,&
6298  .7590E-01,.1362E+00,.1242E+00,.2398E+00,.5668E+00,.6568E+00,.7119E+00,.7276E+00,.9379E+00,.1445E+00,&
6299  .7655E-01,.1368E+00,.1245E+00,.2389E+00,.5657E+00,.6566E+00,.7119E+00,.7272E+00,.9376E+00,.1448E+00,&
6300  .7721E-01,.1374E+00,.1250E+00,.2382E+00,.5649E+00,.6564E+00,.7119E+00,.7268E+00,.9374E+00,.1452E+00,&
6301  .7787E-01,.1380E+00,.1254E+00,.2375E+00,.5641E+00,.6563E+00,.7120E+00,.7265E+00,.9372E+00,.1456E+00,&
6302  .7852E-01,.1386E+00,.1258E+00,.2368E+00,.5633E+00,.6562E+00,.7121E+00,.7262E+00,.9370E+00,.1460E+00,&
6303  .7918E-01,.1392E+00,.1263E+00,.2361E+00,.5625E+00,.6560E+00,.7122E+00,.7259E+00,.9368E+00,.1464E+00,&
6304  .7983E-01,.1398E+00,.1267E+00,.2354E+00,.5617E+00,.6559E+00,.7122E+00,.7256E+00,.9366E+00,.1468E+00,&
6305  .8050E-01,.1404E+00,.1272E+00,.2349E+00,.5611E+00,.6558E+00,.7124E+00,.7253E+00,.9364E+00,.1473E+00,&
6306  .8116E-01,.1411E+00,.1276E+00,.2344E+00,.5604E+00,.6558E+00,.7125E+00,.7251E+00,.9362E+00,.1477E+00,&
6307  .8183E-01,.1417E+00,.1281E+00,.2339E+00,.5598E+00,.6558E+00,.7126E+00,.7248E+00,.9360E+00,.1482E+00,&
6308  .8249E-01,.1423E+00,.1286E+00,.2334E+00,.5592E+00,.6557E+00,.7128E+00,.7246E+00,.9358E+00,.1486E+00,&
6309  .8316E-01,.1429E+00,.1290E+00,.2329E+00,.5585E+00,.6557E+00,.7129E+00,.7244E+00,.9357E+00,.1491E+00,&
6310  .8383E-01,.1435E+00,.1296E+00,.2325E+00,.5581E+00,.6557E+00,.7131E+00,.7242E+00,.9355E+00,.1496E+00,&
6311  .8450E-01,.1442E+00,.1301E+00,.2322E+00,.5576E+00,.6557E+00,.7133E+00,.7240E+00,.9353E+00,.1501E+00,&
6312  .8517E-01,.1448E+00,.1306E+00,.2318E+00,.5571E+00,.6557E+00,.7135E+00,.7239E+00,.9352E+00,.1506E+00,&
6313  .8584E-01,.1455E+00,.1311E+00,.2314E+00,.5566E+00,.6558E+00,.7136E+00,.7237E+00,.9350E+00,.1511E+00,&
6314  .8651E-01,.1461E+00,.1316E+00,.2311E+00,.5562E+00,.6558E+00,.7138E+00,.7235E+00,.9348E+00,.1516E+00,&
6315  .8761E-01,.1472E+00,.1324E+00,.2307E+00,.5557E+00,.6560E+00,.7142E+00,.7234E+00,.9346E+00,.1524E+00,&
6316  .8870E-01,.1482E+00,.1332E+00,.2304E+00,.5552E+00,.6562E+00,.7146E+00,.7233E+00,.9344E+00,.1532E+00,&
6317  .8980E-01,.1493E+00,.1341E+00,.2301E+00,.5547E+00,.6563E+00,.7150E+00,.7232E+00,.9341E+00,.1541E+00,&
6318  .9089E-01,.1503E+00,.1349E+00,.2297E+00,.5542E+00,.6565E+00,.7154E+00,.7231E+00,.9339E+00,.1549E+00,&
6319  .9198E-01,.1514E+00,.1358E+00,.2294E+00,.5538E+00,.6567E+00,.7157E+00,.7229E+00,.9337E+00,.1557E+00,&
6320  .9334E-01,.1527E+00,.1369E+00,.2293E+00,.5535E+00,.6571E+00,.7163E+00,.7229E+00,.9334E+00,.1568E+00,&
6321  .9470E-01,.1541E+00,.1380E+00,.2292E+00,.5533E+00,.6575E+00,.7169E+00,.7229E+00,.9332E+00,.1579E+00,&
6322  .9606E-01,.1554E+00,.1390E+00,.2292E+00,.5531E+00,.6579E+00,.7174E+00,.7229E+00,.9330E+00,.1590E+00,&
6323  .9741E-01,.1568E+00,.1401E+00,.2291E+00,.5529E+00,.6583E+00,.7180E+00,.7229E+00,.9327E+00,.1600E+00,&
6324  .9877E-01,.1581E+00,.1412E+00,.2290E+00,.5526E+00,.6587E+00,.7185E+00,.7228E+00,.9325E+00,.1611E+00,&
6325  .1004E+00,.1597E+00,.1426E+00,.2291E+00,.5526E+00,.6593E+00,.7193E+00,.7229E+00,.9322E+00,.1625E+00,&
6326  .1027E+00,.1619E+00,.1444E+00,.2294E+00,.5527E+00,.6601E+00,.7203E+00,.7231E+00,.9319E+00,.1643E+00,&
6327  .1046E+00,.1639E+00,.1460E+00,.2297E+00,.5529E+00,.6609E+00,.7212E+00,.7233E+00,.9316E+00,.1660E+00,&
6328  .1066E+00,.1658E+00,.1476E+00,.2301E+00,.5532E+00,.6617E+00,.7221E+00,.7235E+00,.9313E+00,.1676E+00,&
6329  .1095E+00,.1686E+00,.1500E+00,.2308E+00,.5538E+00,.6630E+00,.7235E+00,.7238E+00,.9309E+00,.1700E+00,&
6330  .1118E+00,.1709E+00,.1519E+00,.2316E+00,.5543E+00,.6641E+00,.7246E+00,.7241E+00,.9306E+00,.1719E+00,&
6331  .1147E+00,.1738E+00,.1543E+00,.2326E+00,.5552E+00,.6655E+00,.7259E+00,.7246E+00,.9303E+00,.1743E+00,&
6332  .1175E+00,.1766E+00,.1567E+00,.2337E+00,.5562E+00,.6669E+00,.7273E+00,.7251E+00,.9299E+00,.1767E+00,&
6333  .1208E+00,.1798E+00,.1594E+00,.2350E+00,.5575E+00,.6685E+00,.7289E+00,.7256E+00,.9295E+00,.1795E+00,&
6334  .1249E+00,.1839E+00,.1628E+00,.2369E+00,.5593E+00,.6707E+00,.7308E+00,.7264E+00,.9291E+00,.1830E+00,&
6335  .1290E+00,.1879E+00,.1662E+00,.2390E+00,.5613E+00,.6728E+00,.7328E+00,.7272E+00,.9287E+00,.1865E+00,&
6336  .1346E+00,.1933E+00,.1708E+00,.2420E+00,.5642E+00,.6758E+00,.7354E+00,.7284E+00,.9280E+00,.1912E+00,&
6337  .1405E+00,.1990E+00,.1756E+00,.2454E+00,.5675E+00,.6790E+00,.7380E+00,.7296E+00,.9274E+00,.1961E+00,&
6338  .1481E+00,.2063E+00,.1818E+00,.2501E+00,.5720E+00,.6831E+00,.7414E+00,.7311E+00,.9265E+00,.2025E+00,&
6339  .1578E+00,.2156E+00,.1898E+00,.2565E+00,.5781E+00,.6883E+00,.7454E+00,.7331E+00,.9255E+00,.2106E+00,&
6340  .1690E+00,.2261E+00,.1988E+00,.2641E+00,.5853E+00,.6941E+00,.7496E+00,.7352E+00,.9242E+00,.2198E+00,&
6341  .1868E+00,.2426E+00,.2131E+00,.2771E+00,.5969E+00,.7028E+00,.7557E+00,.7383E+00,.9218E+00,.2345E+00,&
6342  .2092E+00,.2629E+00,.2311E+00,.2941E+00,.6113E+00,.7127E+00,.7621E+00,.7413E+00,.9183E+00,.2527E+00,&
6343  .2497E+00,.2985E+00,.2634E+00,.3260E+00,.6351E+00,.7271E+00,.7697E+00,.7440E+00,.9103E+00,.2851E+00/
6344  data (((w0_lw(ai,k,nh),ai= 6, 6),k=1,nwl_lw),nh=0,99)/ &
6345  .3712E+00,.5599E+00,.7804E+00,.9078E+00,.8815E+00,.8358E+00,.9067E+00,.9278E+00,.9736E+00,.6545E+00,&
6346  .3711E+00,.5523E+00,.7479E+00,.8880E+00,.8761E+00,.8331E+00,.9016E+00,.9184E+00,.9693E+00,.6377E+00,&
6347  .3710E+00,.5448E+00,.7154E+00,.8682E+00,.8707E+00,.8305E+00,.8964E+00,.9089E+00,.9651E+00,.6209E+00,&
6348  .3708E+00,.5372E+00,.6829E+00,.8484E+00,.8654E+00,.8279E+00,.8912E+00,.8994E+00,.9608E+00,.6040E+00,&
6349  .3707E+00,.5296E+00,.6504E+00,.8286E+00,.8600E+00,.8253E+00,.8860E+00,.8900E+00,.9566E+00,.5872E+00,&
6350  .3706E+00,.5221E+00,.6180E+00,.8088E+00,.8546E+00,.8226E+00,.8809E+00,.8805E+00,.9523E+00,.5704E+00,&
6351  .3707E+00,.5170E+00,.6009E+00,.7953E+00,.8501E+00,.8204E+00,.8765E+00,.8739E+00,.9491E+00,.5603E+00,&
6352  .3708E+00,.5119E+00,.5838E+00,.7818E+00,.8457E+00,.8182E+00,.8722E+00,.8674E+00,.9458E+00,.5502E+00,&
6353  .3709E+00,.5068E+00,.5668E+00,.7682E+00,.8412E+00,.8160E+00,.8679E+00,.8608E+00,.9425E+00,.5401E+00,&
6354  .3711E+00,.5017E+00,.5497E+00,.7547E+00,.8367E+00,.8138E+00,.8636E+00,.8542E+00,.9392E+00,.5300E+00,&
6355  .3712E+00,.4966E+00,.5327E+00,.7412E+00,.8323E+00,.8116E+00,.8593E+00,.8477E+00,.9359E+00,.5199E+00,&
6356  .3715E+00,.4931E+00,.5227E+00,.7312E+00,.8285E+00,.8094E+00,.8559E+00,.8428E+00,.9331E+00,.5134E+00,&
6357  .3719E+00,.4895E+00,.5127E+00,.7213E+00,.8248E+00,.8072E+00,.8525E+00,.8379E+00,.9303E+00,.5070E+00,&
6358  .3722E+00,.4860E+00,.5027E+00,.7113E+00,.8210E+00,.8049E+00,.8492E+00,.8330E+00,.9274E+00,.5005E+00,&
6359  .3725E+00,.4825E+00,.4928E+00,.7013E+00,.8173E+00,.8027E+00,.8458E+00,.8281E+00,.9246E+00,.4940E+00,&
6360  .3729E+00,.4789E+00,.4828E+00,.6913E+00,.8136E+00,.8005E+00,.8424E+00,.8232E+00,.9218E+00,.4875E+00,&
6361  .3733E+00,.4764E+00,.4767E+00,.6836E+00,.8103E+00,.7988E+00,.8395E+00,.8193E+00,.9194E+00,.4832E+00,&
6362  .3738E+00,.4739E+00,.4705E+00,.6759E+00,.8071E+00,.7971E+00,.8365E+00,.8154E+00,.9171E+00,.4789E+00,&
6363  .3742E+00,.4715E+00,.4644E+00,.6682E+00,.8038E+00,.7954E+00,.8335E+00,.8115E+00,.9148E+00,.4746E+00,&
6364  .3747E+00,.4690E+00,.4583E+00,.6605E+00,.8006E+00,.7937E+00,.8305E+00,.8076E+00,.9125E+00,.4703E+00,&
6365  .3751E+00,.4665E+00,.4522E+00,.6528E+00,.7973E+00,.7920E+00,.8275E+00,.8037E+00,.9102E+00,.4660E+00,&
6366  .3757E+00,.4647E+00,.4483E+00,.6468E+00,.7945E+00,.7903E+00,.8251E+00,.8006E+00,.9082E+00,.4631E+00,&
6367  .3762E+00,.4630E+00,.4445E+00,.6407E+00,.7917E+00,.7886E+00,.8228E+00,.7975E+00,.9061E+00,.4602E+00,&
6368  .3767E+00,.4612E+00,.4407E+00,.6347E+00,.7889E+00,.7869E+00,.8204E+00,.7944E+00,.9040E+00,.4573E+00,&
6369  .3773E+00,.4595E+00,.4368E+00,.6286E+00,.7861E+00,.7851E+00,.8180E+00,.7913E+00,.9020E+00,.4544E+00,&
6370  .3778E+00,.4577E+00,.4330E+00,.6226E+00,.7833E+00,.7834E+00,.8156E+00,.7882E+00,.8999E+00,.4515E+00,&
6371  .3784E+00,.4565E+00,.4306E+00,.6177E+00,.7808E+00,.7819E+00,.8134E+00,.7855E+00,.8981E+00,.4496E+00,&
6372  .3790E+00,.4552E+00,.4281E+00,.6129E+00,.7784E+00,.7804E+00,.8112E+00,.7828E+00,.8963E+00,.4476E+00,&
6373  .3796E+00,.4540E+00,.4257E+00,.6081E+00,.7759E+00,.7789E+00,.8089E+00,.7802E+00,.8945E+00,.4456E+00,&
6374  .3802E+00,.4528E+00,.4233E+00,.6033E+00,.7734E+00,.7774E+00,.8067E+00,.7775E+00,.8927E+00,.4437E+00,&
6375  .3808E+00,.4515E+00,.4209E+00,.5985E+00,.7710E+00,.7759E+00,.8045E+00,.7748E+00,.8909E+00,.4417E+00,&
6376  .3815E+00,.4507E+00,.4194E+00,.5946E+00,.7688E+00,.7745E+00,.8027E+00,.7726E+00,.8892E+00,.4404E+00,&
6377  .3821E+00,.4498E+00,.4179E+00,.5907E+00,.7666E+00,.7732E+00,.8008E+00,.7705E+00,.8876E+00,.4390E+00,&
6378  .3827E+00,.4489E+00,.4163E+00,.5868E+00,.7644E+00,.7719E+00,.7990E+00,.7683E+00,.8860E+00,.4377E+00,&
6379  .3834E+00,.4481E+00,.4148E+00,.5829E+00,.7622E+00,.7705E+00,.7972E+00,.7661E+00,.8844E+00,.4364E+00,&
6380  .3840E+00,.4472E+00,.4133E+00,.5790E+00,.7600E+00,.7692E+00,.7953E+00,.7639E+00,.8828E+00,.4351E+00,&
6381  .3847E+00,.4466E+00,.4124E+00,.5759E+00,.7581E+00,.7679E+00,.7936E+00,.7619E+00,.8812E+00,.4342E+00,&
6382  .3853E+00,.4460E+00,.4115E+00,.5728E+00,.7561E+00,.7666E+00,.7919E+00,.7599E+00,.8796E+00,.4333E+00,&
6383  .3859E+00,.4454E+00,.4106E+00,.5696E+00,.7542E+00,.7653E+00,.7901E+00,.7579E+00,.8781E+00,.4324E+00,&
6384  .3866E+00,.4448E+00,.4097E+00,.5665E+00,.7523E+00,.7640E+00,.7884E+00,.7559E+00,.8765E+00,.4316E+00,&
6385  .3872E+00,.4443E+00,.4088E+00,.5634E+00,.7504E+00,.7627E+00,.7867E+00,.7539E+00,.8750E+00,.4307E+00,&
6386  .3879E+00,.4439E+00,.4083E+00,.5608E+00,.7487E+00,.7616E+00,.7851E+00,.7523E+00,.8736E+00,.4301E+00,&
6387  .3885E+00,.4435E+00,.4078E+00,.5583E+00,.7469E+00,.7605E+00,.7836E+00,.7506E+00,.8723E+00,.4296E+00,&
6388  .3892E+00,.4431E+00,.4073E+00,.5557E+00,.7452E+00,.7593E+00,.7820E+00,.7489E+00,.8709E+00,.4290E+00,&
6389  .3899E+00,.4427E+00,.4068E+00,.5532E+00,.7435E+00,.7582E+00,.7805E+00,.7473E+00,.8696E+00,.4284E+00,&
6390  .3905E+00,.4424E+00,.4063E+00,.5506E+00,.7418E+00,.7571E+00,.7790E+00,.7456E+00,.8683E+00,.4279E+00,&
6391  .3912E+00,.4421E+00,.4060E+00,.5485E+00,.7402E+00,.7560E+00,.7776E+00,.7441E+00,.8669E+00,.4275E+00,&
6392  .3918E+00,.4419E+00,.4058E+00,.5464E+00,.7387E+00,.7549E+00,.7763E+00,.7426E+00,.8655E+00,.4272E+00,&
6393  .3925E+00,.4416E+00,.4056E+00,.5443E+00,.7371E+00,.7538E+00,.7749E+00,.7411E+00,.8642E+00,.4269E+00,&
6394  .3931E+00,.4414E+00,.4054E+00,.5422E+00,.7355E+00,.7527E+00,.7736E+00,.7396E+00,.8628E+00,.4266E+00,&
6395  .3938E+00,.4411E+00,.4051E+00,.5402E+00,.7340E+00,.7516E+00,.7722E+00,.7380E+00,.8614E+00,.4262E+00,&
6396  .3943E+00,.4410E+00,.4051E+00,.5387E+00,.7329E+00,.7508E+00,.7711E+00,.7369E+00,.8605E+00,.4261E+00,&
6397  .3948E+00,.4409E+00,.4051E+00,.5373E+00,.7317E+00,.7500E+00,.7700E+00,.7357E+00,.8596E+00,.4260E+00,&
6398  .3953E+00,.4408E+00,.4050E+00,.5359E+00,.7306E+00,.7491E+00,.7689E+00,.7345E+00,.8587E+00,.4258E+00,&
6399  .3958E+00,.4407E+00,.4050E+00,.5345E+00,.7294E+00,.7483E+00,.7678E+00,.7333E+00,.8578E+00,.4257E+00,&
6400  .3963E+00,.4406E+00,.4050E+00,.5331E+00,.7283E+00,.7475E+00,.7667E+00,.7321E+00,.8568E+00,.4255E+00,&
6401  .3968E+00,.4406E+00,.4050E+00,.5319E+00,.7273E+00,.7467E+00,.7657E+00,.7311E+00,.8559E+00,.4255E+00,&
6402  .3974E+00,.4405E+00,.4051E+00,.5307E+00,.7262E+00,.7459E+00,.7647E+00,.7301E+00,.8549E+00,.4254E+00,&
6403  .3979E+00,.4405E+00,.4052E+00,.5295E+00,.7251E+00,.7451E+00,.7638E+00,.7291E+00,.8539E+00,.4254E+00,&
6404  .3984E+00,.4404E+00,.4052E+00,.5283E+00,.7241E+00,.7444E+00,.7628E+00,.7281E+00,.8529E+00,.4253E+00,&
6405  .3989E+00,.4404E+00,.4053E+00,.5271E+00,.7230E+00,.7436E+00,.7618E+00,.7271E+00,.8519E+00,.4253E+00,&
6406  .3994E+00,.4404E+00,.4054E+00,.5260E+00,.7220E+00,.7428E+00,.7609E+00,.7261E+00,.8509E+00,.4253E+00,&
6407  .3999E+00,.4404E+00,.4056E+00,.5250E+00,.7211E+00,.7421E+00,.7600E+00,.7252E+00,.8500E+00,.4253E+00,&
6408  .4004E+00,.4404E+00,.4057E+00,.5240E+00,.7201E+00,.7414E+00,.7591E+00,.7242E+00,.8490E+00,.4254E+00,&
6409  .4009E+00,.4404E+00,.4058E+00,.5229E+00,.7191E+00,.7406E+00,.7582E+00,.7232E+00,.8480E+00,.4254E+00,&
6410  .4014E+00,.4404E+00,.4060E+00,.5219E+00,.7181E+00,.7399E+00,.7573E+00,.7223E+00,.8471E+00,.4254E+00,&
6411  .4019E+00,.4405E+00,.4062E+00,.5210E+00,.7172E+00,.7392E+00,.7564E+00,.7213E+00,.8462E+00,.4255E+00,&
6412  .4024E+00,.4405E+00,.4063E+00,.5202E+00,.7163E+00,.7384E+00,.7554E+00,.7203E+00,.8454E+00,.4256E+00,&
6413  .4028E+00,.4406E+00,.4065E+00,.5193E+00,.7154E+00,.7377E+00,.7545E+00,.7193E+00,.8445E+00,.4256E+00,&
6414  .4033E+00,.4406E+00,.4067E+00,.5185E+00,.7145E+00,.7370E+00,.7535E+00,.7183E+00,.8437E+00,.4257E+00,&
6415  .4038E+00,.4406E+00,.4069E+00,.5176E+00,.7136E+00,.7363E+00,.7525E+00,.7173E+00,.8428E+00,.4258E+00,&
6416  .4045E+00,.4408E+00,.4072E+00,.5165E+00,.7124E+00,.7352E+00,.7513E+00,.7161E+00,.8416E+00,.4259E+00,&
6417  .4052E+00,.4409E+00,.4076E+00,.5155E+00,.7112E+00,.7342E+00,.7500E+00,.7149E+00,.8403E+00,.4261E+00,&
6418  .4059E+00,.4410E+00,.4079E+00,.5144E+00,.7099E+00,.7332E+00,.7488E+00,.7137E+00,.8391E+00,.4263E+00,&
6419  .4066E+00,.4411E+00,.4083E+00,.5134E+00,.7087E+00,.7322E+00,.7475E+00,.7124E+00,.8379E+00,.4265E+00,&
6420  .4073E+00,.4412E+00,.4086E+00,.5123E+00,.7075E+00,.7312E+00,.7463E+00,.7112E+00,.8367E+00,.4266E+00,&
6421  .4083E+00,.4415E+00,.4092E+00,.5112E+00,.7059E+00,.7298E+00,.7445E+00,.7095E+00,.8350E+00,.4270E+00,&
6422  .4092E+00,.4417E+00,.4098E+00,.5100E+00,.7043E+00,.7285E+00,.7428E+00,.7077E+00,.8332E+00,.4274E+00,&
6423  .4102E+00,.4420E+00,.4104E+00,.5088E+00,.7027E+00,.7271E+00,.7411E+00,.7060E+00,.8315E+00,.4277E+00,&
6424  .4111E+00,.4422E+00,.4110E+00,.5077E+00,.7011E+00,.7257E+00,.7394E+00,.7042E+00,.8298E+00,.4281E+00,&
6425  .4121E+00,.4424E+00,.4116E+00,.5065E+00,.6995E+00,.7243E+00,.7377E+00,.7025E+00,.8281E+00,.4285E+00,&
6426  .4131E+00,.4428E+00,.4123E+00,.5055E+00,.6979E+00,.7229E+00,.7359E+00,.7009E+00,.8266E+00,.4289E+00,&
6427  .4145E+00,.4433E+00,.4134E+00,.5042E+00,.6957E+00,.7209E+00,.7334E+00,.6986E+00,.8237E+00,.4296E+00,&
6428  .4159E+00,.4438E+00,.4144E+00,.5030E+00,.6936E+00,.7189E+00,.7310E+00,.6962E+00,.8213E+00,.4304E+00,&
6429  .4173E+00,.4443E+00,.4155E+00,.5020E+00,.6915E+00,.7169E+00,.7288E+00,.6940E+00,.8188E+00,.4311E+00,&
6430  .4188E+00,.4449E+00,.4168E+00,.5009E+00,.6891E+00,.7146E+00,.7258E+00,.6914E+00,.8159E+00,.4320E+00,&
6431  .4203E+00,.4456E+00,.4180E+00,.4999E+00,.6868E+00,.7124E+00,.7230E+00,.6885E+00,.8134E+00,.4329E+00,&
6432  .4217E+00,.4462E+00,.4193E+00,.4991E+00,.6847E+00,.7102E+00,.7203E+00,.6862E+00,.8106E+00,.4339E+00,&
6433  .4232E+00,.4469E+00,.4206E+00,.4984E+00,.6825E+00,.7080E+00,.7176E+00,.6837E+00,.8080E+00,.4349E+00,&
6434  .4249E+00,.4477E+00,.4222E+00,.4977E+00,.6800E+00,.7055E+00,.7148E+00,.6810E+00,.8048E+00,.4360E+00,&
6435  .4268E+00,.4487E+00,.4239E+00,.4970E+00,.6772E+00,.7025E+00,.7110E+00,.6777E+00,.8012E+00,.4374E+00,&
6436  .4290E+00,.4498E+00,.4260E+00,.4964E+00,.6740E+00,.6991E+00,.7068E+00,.6738E+00,.7973E+00,.4390E+00,&
6437  .4312E+00,.4511E+00,.4283E+00,.4959E+00,.6708E+00,.6955E+00,.7026E+00,.6700E+00,.7928E+00,.4407E+00,&
6438  .4342E+00,.4528E+00,.4314E+00,.4955E+00,.6662E+00,.6903E+00,.6962E+00,.6646E+00,.7866E+00,.4432E+00,&
6439  .4375E+00,.4548E+00,.4349E+00,.4954E+00,.6613E+00,.6845E+00,.6895E+00,.6588E+00,.7800E+00,.4460E+00,&
6440  .4411E+00,.4572E+00,.4390E+00,.4955E+00,.6556E+00,.6778E+00,.6813E+00,.6518E+00,.7724E+00,.4493E+00,&
6441  .4458E+00,.4604E+00,.4444E+00,.4960E+00,.6479E+00,.6685E+00,.6707E+00,.6432E+00,.7615E+00,.4538E+00,&
6442  .4508E+00,.4640E+00,.4506E+00,.4970E+00,.6388E+00,.6572E+00,.6580E+00,.6330E+00,.7496E+00,.4590E+00,&
6443  .4576E+00,.4694E+00,.4595E+00,.4987E+00,.6249E+00,.6401E+00,.6388E+00,.6181E+00,.7317E+00,.4667E+00,&
6444  .4676E+00,.4782E+00,.4737E+00,.5013E+00,.6004E+00,.6105E+00,.6078E+00,.5954E+00,.7018E+00,.4792E+00/
6445  data (((w0_lw(ai,k,nh),ai= 7, 7),k=1,nwl_lw),nh=0,99)/ &
6446  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6447  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6448  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6449  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6450  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6451  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6452  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6453  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6454  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6455  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6456  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6457  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6458  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6459  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6460  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6461  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6462  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6463  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6464  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6465  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6466  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6467  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6468  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6469  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6470  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6471  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6472  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6473  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6474  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6475  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6476  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6477  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6478  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6479  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6480  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6481  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6482  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6483  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6484  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6485  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6486  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6487  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6488  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6489  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6490  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6491  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6492  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6493  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6494  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6495  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6496  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6497  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6498  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6499  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6500  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6501  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6502  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6503  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6504  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6505  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6506  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6507  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6508  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6509  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6510  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6511  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6512  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6513  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6514  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6515  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6516  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6517  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6518  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6519  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6520  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6521  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6522  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6523  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6524  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6525  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6526  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6527  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6528  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6529  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6530  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6531  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6532  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6533  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6534  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6535  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6536  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6537  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6538  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6539  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6540  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6541  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6542  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6543  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6544  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02,&
6545  .2197E-02,.6746E-02,.1180E-01,.4600E-01,.1326E+00,.1585E-01,.3566E-01,.2440E+00,.8000E+00,.4246E-02/
6546  data (((w0_lw(ai,k,nh),ai= 8, 8),k=1,nwl_lw),nh=0,99)/ &
6547  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6548  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6549  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6550  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6551  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6552  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6553  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6554  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6555  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6556  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6557  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6558  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6559  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6560  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6561  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6562  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6563  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6564  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6565  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6566  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6567  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6568  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6569  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6570  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6571  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6572  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6573  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6574  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6575  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6576  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6577  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6578  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6579  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6580  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6581  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6582  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6583  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6584  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6585  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6586  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6587  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6588  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6589  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6590  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6591  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6592  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6593  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6594  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6595  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6596  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6597  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6598  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6599  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6600  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6601  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6602  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6603  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6604  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6605  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6606  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6607  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6608  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6609  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6610  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6611  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6612  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6613  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6614  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6615  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6616  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6617  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6618  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6619  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6620  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6621  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6622  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6623  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6624  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6625  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6626  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6627  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6628  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6629  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6630  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6631  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6632  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6633  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6634  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6635  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6636  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6637  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6638  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6639  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6640  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6641  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6642  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6643  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6644  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6645  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01,&
6646  .1124E-01,.3363E-01,.5143E-01,.1676E+00,.3616E+00,.5619E-01,.1188E+00,.5075E+00,.9197E+00,.2001E-01/
6647  data (((w0_lw(ai,k,nh),ai= 9, 9),k=1,nwl_lw),nh=0,99)/ &
6648  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6649  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6650  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6651  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6652  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6653  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6654  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6655  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6656  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6657  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6658  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6659  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6660  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6661  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6662  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6663  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6664  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6665  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6666  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6667  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6668  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6669  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6670  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6671  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6672  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6673  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6674  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6675  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6676  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6677  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6678  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6679  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6680  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6681  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6682  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6683  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6684  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6685  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6686  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6687  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6688  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6689  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6690  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6691  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6692  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6693  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6694  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6695  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6696  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6697  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6698  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6699  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6700  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6701  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6702  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6703  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6704  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6705  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6706  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6707  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6708  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6709  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6710  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6711  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6712  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6713  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6714  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6715  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6716  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6717  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6718  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6719  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6720  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6721  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6722  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6723  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6724  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6725  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6726  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6727  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6728  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6729  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6730  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6731  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6732  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6733  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6734  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6735  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6736  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6737  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6738  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6739  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6740  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6741  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6742  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6743  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6744  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6745  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6746  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01,&
6747  .6895E-01,.1656E+00,.1932E+00,.4259E+00,.5864E+00,.1452E+00,.3025E+00,.7524E+00,.9651E+00,.9678E-01/
6748  data (((w0_lw(ai,k,nh),ai=10,10),k=1,nwl_lw),nh=0,99)/ &
6749  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6750  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6751  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6752  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6753  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6754  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6755  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6756  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6757  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6758  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6759  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6760  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6761  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6762  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6763  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6764  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6765  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6766  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6767  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6768  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6769  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6770  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6771  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6772  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6773  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6774  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6775  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6776  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6777  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6778  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6779  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6780  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6781  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6782  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6783  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6784  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6785  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6786  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6787  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6788  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6789  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6790  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6791  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6792  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6793  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6794  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6795  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6796  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6797  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6798  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6799  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6800  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6801  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6802  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6803  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6804  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6805  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6806  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6807  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6808  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6809  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6810  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6811  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6812  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6813  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6814  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6815  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6816  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6817  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6818  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6819  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6820  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6821  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6822  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6823  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6824  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6825  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6826  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6827  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6828  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6829  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6830  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6831  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6832  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6833  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6834  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6835  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6836  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6837  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6838  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6839  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6840  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6841  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6842  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6843  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6844  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6845  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6846  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6847  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00,&
6848  .2483E+00,.3891E+00,.3981E+00,.6198E+00,.6636E+00,.2352E+00,.4878E+00,.8585E+00,.9770E+00,.2650E+00/
6849  data (((w0_lw(ai,k,nh),ai=11,11),k=1,nwl_lw),nh=0,99)/ &
6850  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6851  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6852  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6853  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6854  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6855  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6856  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6857  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6858  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6859  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6860  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6861  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6862  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6863  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6864  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6865  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6866  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6867  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6868  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6869  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6870  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6871  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6872  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6873  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6874  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6875  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6876  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6877  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6878  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6879  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6880  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6881  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6882  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6883  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6884  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6885  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6886  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6887  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6888  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6889  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6890  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6891  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6892  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6893  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6894  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6895  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6896  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6897  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6898  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6899  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6900  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6901  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6902  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6903  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6904  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6905  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6906  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6907  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6908  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6909  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6910  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6911  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6912  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6913  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6914  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6915  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6916  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6917  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6918  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6919  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6920  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6921  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6922  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6923  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6924  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6925  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6926  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6927  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6928  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6929  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6930  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6931  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6932  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6933  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6934  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6935  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6936  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6937  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6938  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6939  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6940  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6941  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6942  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6943  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6944  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6945  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6946  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6947  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6948  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00,&
6949  .4797E+00,.5432E+00,.5688E+00,.7105E+00,.6756E+00,.3210E+00,.6267E+00,.8988E+00,.9792E+00,.4551E+00/
6950  data (((w0_lw(ai,k,nh),ai=12,12),k=1,nwl_lw),nh=0,99)/ &
6951  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6952  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6953  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6954  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6955  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6956  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6957  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6958  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6959  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6960  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6961  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6962  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6963  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6964  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6965  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6966  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6967  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6968  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6969  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6970  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6971  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6972  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6973  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6974  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6975  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6976  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6977  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6978  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6979  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6980  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6981  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6982  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6983  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6984  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6985  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6986  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6987  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6988  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6989  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6990  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6991  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6992  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6993  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6994  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6995  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6996  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6997  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6998  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
6999  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7000  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7001  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7002  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7003  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7004  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7005  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7006  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7007  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7008  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7009  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7010  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7011  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7012  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7013  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7014  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7015  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7016  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7017  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7018  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7019  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7020  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7021  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7022  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7023  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7024  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7025  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7026  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7027  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7028  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7029  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7030  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7031  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7032  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7033  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7034  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7035  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7036  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7037  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7038  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7039  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7040  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7041  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7042  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7043  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7044  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7045  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7046  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7047  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7048  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7049  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00,&
7050  .6075E+00,.6016E+00,.6631E+00,.7363E+00,.6573E+00,.3976E+00,.7115E+00,.9084E+00,.9753E+00,.5818E+00/
7051  data (((w0_lw(ai,k,nh),ai=13,13),k=1,nwl_lw),nh=0,99)/ &
7052  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7053  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7054  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7055  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7056  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7057  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7058  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7059  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7060  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7061  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7062  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7063  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7064  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7065  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7066  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7067  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7068  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7069  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7070  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7071  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7072  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7073  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7074  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7075  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7076  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7077  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7078  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7079  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7080  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7081  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7082  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7083  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7084  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7085  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7086  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7087  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7088  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7089  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7090  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7091  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7092  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7093  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7094  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7095  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7096  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7097  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7098  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7099  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7100  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7101  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7102  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7103  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7104  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7105  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7106  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7107  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7108  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7109  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7110  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7111  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7112  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7113  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7114  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7115  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7116  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7117  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7118  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7119  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7120  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7121  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7122  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7123  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7124  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7125  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7126  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7127  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7128  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7129  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7130  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7131  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7132  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7133  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7134  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7135  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7136  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7137  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7138  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7139  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7140  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7141  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7142  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7143  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7144  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7145  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7146  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7147  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7148  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7149  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7150  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00,&
7151  .6516E+00,.6090E+00,.7009E+00,.7181E+00,.6159E+00,.4675E+00,.7582E+00,.8931E+00,.9612E+00,.6491E+00/
7152  data (((w0_lw(ai,k,nh),ai=14,14),k=1,nwl_lw),nh=0,99)/ &
7153  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7154  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7155  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7156  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7157  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7158  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7159  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7160  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7161  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7162  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7163  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7164  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7165  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7166  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7167  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7168  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7169  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7170  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7171  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7172  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7173  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7174  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7175  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7176  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7177  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7178  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7179  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7180  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7181  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7182  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7183  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7184  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7185  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7186  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7187  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7188  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7189  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7190  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7191  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7192  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7193  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7194  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7195  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7196  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7197  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7198  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7199  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7200  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7201  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7202  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7203  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7204  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7205  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7206  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7207  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7208  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7209  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7210  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7211  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7212  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7213  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7214  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7215  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7216  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7217  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7218  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7219  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7220  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7221  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7222  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7223  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7224  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7225  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7226  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7227  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7228  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7229  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7230  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7231  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7232  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7233  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7234  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7235  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7236  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7237  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7238  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7239  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7240  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7241  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7242  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7243  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7244  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7245  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7246  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7247  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7248  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7249  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7250  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7251  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00,&
7252  .6415E+00,.5860E+00,.6866E+00,.6671E+00,.5811E+00,.5067E+00,.7567E+00,.8505E+00,.9340E+00,.6543E+00/
7253  data (((g_lw(ai,k,nh),ai= 1, 1),k=1,nwl_lw),nh=0,99)/ &
7254  .4974E-03,.1097E-02,.2259E-02,.4134E-02,.5324E-02,.5525E-02,.6496E-02,.1171E-01,.2654E-01,.1705E-02,&
7255  .5026E-03,.1108E-02,.2281E-02,.4167E-02,.5384E-02,.5621E-02,.6616E-02,.1188E-01,.2695E-01,.1724E-02,&
7256  .5078E-03,.1120E-02,.2303E-02,.4201E-02,.5445E-02,.5717E-02,.6735E-02,.1205E-01,.2735E-01,.1743E-02,&
7257  .5129E-03,.1131E-02,.2326E-02,.4234E-02,.5505E-02,.5813E-02,.6854E-02,.1223E-01,.2775E-01,.1761E-02,&
7258  .5181E-03,.1142E-02,.2348E-02,.4268E-02,.5566E-02,.5909E-02,.6974E-02,.1240E-01,.2815E-01,.1780E-02,&
7259  .5233E-03,.1154E-02,.2371E-02,.4302E-02,.5626E-02,.6006E-02,.7093E-02,.1257E-01,.2856E-01,.1799E-02,&
7260  .5288E-03,.1166E-02,.2395E-02,.4339E-02,.5689E-02,.6102E-02,.7215E-02,.1275E-01,.2897E-01,.1818E-02,&
7261  .5343E-03,.1178E-02,.2419E-02,.4376E-02,.5753E-02,.6199E-02,.7336E-02,.1293E-01,.2939E-01,.1838E-02,&
7262  .5398E-03,.1190E-02,.2443E-02,.4414E-02,.5816E-02,.6296E-02,.7458E-02,.1311E-01,.2980E-01,.1858E-02,&
7263  .5453E-03,.1202E-02,.2467E-02,.4451E-02,.5880E-02,.6393E-02,.7580E-02,.1329E-01,.3022E-01,.1878E-02,&
7264  .5508E-03,.1214E-02,.2492E-02,.4489E-02,.5943E-02,.6490E-02,.7701E-02,.1347E-01,.3064E-01,.1898E-02,&
7265  .5567E-03,.1227E-02,.2517E-02,.4530E-02,.6010E-02,.6587E-02,.7825E-02,.1366E-01,.3106E-01,.1919E-02,&
7266  .5626E-03,.1240E-02,.2543E-02,.4571E-02,.6077E-02,.6685E-02,.7948E-02,.1384E-01,.3149E-01,.1940E-02,&
7267  .5685E-03,.1253E-02,.2569E-02,.4612E-02,.6143E-02,.6783E-02,.8072E-02,.1403E-01,.3192E-01,.1961E-02,&
7268  .5743E-03,.1266E-02,.2595E-02,.4653E-02,.6210E-02,.6881E-02,.8195E-02,.1422E-01,.3235E-01,.1982E-02,&
7269  .5802E-03,.1279E-02,.2621E-02,.4695E-02,.6277E-02,.6978E-02,.8319E-02,.1440E-01,.3278E-01,.2003E-02,&
7270  .5863E-03,.1292E-02,.2648E-02,.4738E-02,.6346E-02,.7078E-02,.8446E-02,.1459E-01,.3323E-01,.2025E-02,&
7271  .5925E-03,.1306E-02,.2675E-02,.4782E-02,.6415E-02,.7178E-02,.8573E-02,.1479E-01,.3367E-01,.2047E-02,&
7272  .5986E-03,.1319E-02,.2703E-02,.4826E-02,.6484E-02,.7278E-02,.8700E-02,.1498E-01,.3412E-01,.2068E-02,&
7273  .6048E-03,.1333E-02,.2730E-02,.4869E-02,.6554E-02,.7377E-02,.8827E-02,.1517E-01,.3456E-01,.2090E-02,&
7274  .6109E-03,.1346E-02,.2757E-02,.4913E-02,.6623E-02,.7477E-02,.8954E-02,.1536E-01,.3501E-01,.2112E-02,&
7275  .6174E-03,.1360E-02,.2786E-02,.4960E-02,.6695E-02,.7579E-02,.9084E-02,.1556E-01,.3546E-01,.2135E-02,&
7276  .6238E-03,.1374E-02,.2814E-02,.5006E-02,.6767E-02,.7681E-02,.9215E-02,.1576E-01,.3592E-01,.2158E-02,&
7277  .6303E-03,.1388E-02,.2843E-02,.5053E-02,.6839E-02,.7783E-02,.9345E-02,.1596E-01,.3638E-01,.2181E-02,&
7278  .6367E-03,.1402E-02,.2871E-02,.5099E-02,.6911E-02,.7885E-02,.9475E-02,.1616E-01,.3684E-01,.2204E-02,&
7279  .6432E-03,.1417E-02,.2900E-02,.5146E-02,.6983E-02,.7986E-02,.9606E-02,.1636E-01,.3730E-01,.2227E-02,&
7280  .6499E-03,.1431E-02,.2930E-02,.5195E-02,.7058E-02,.8090E-02,.9739E-02,.1656E-01,.3777E-01,.2251E-02,&
7281  .6566E-03,.1446E-02,.2960E-02,.5244E-02,.7133E-02,.8194E-02,.9873E-02,.1677E-01,.3824E-01,.2275E-02,&
7282  .6633E-03,.1461E-02,.2990E-02,.5294E-02,.7208E-02,.8298E-02,.1001E-01,.1698E-01,.3872E-01,.2299E-02,&
7283  .6701E-03,.1475E-02,.3020E-02,.5343E-02,.7283E-02,.8402E-02,.1014E-01,.1718E-01,.3919E-01,.2323E-02,&
7284  .6768E-03,.1490E-02,.3050E-02,.5392E-02,.7358E-02,.8506E-02,.1027E-01,.1739E-01,.3966E-01,.2346E-02,&
7285  .6838E-03,.1505E-02,.3081E-02,.5444E-02,.7436E-02,.8613E-02,.1041E-01,.1760E-01,.4015E-01,.2371E-02,&
7286  .6908E-03,.1521E-02,.3112E-02,.5496E-02,.7514E-02,.8719E-02,.1055E-01,.1781E-01,.4064E-01,.2396E-02,&
7287  .6978E-03,.1536E-02,.3143E-02,.5547E-02,.7592E-02,.8826E-02,.1068E-01,.1802E-01,.4113E-01,.2421E-02,&
7288  .7049E-03,.1551E-02,.3175E-02,.5599E-02,.7669E-02,.8932E-02,.1082E-01,.1823E-01,.4161E-01,.2446E-02,&
7289  .7119E-03,.1567E-02,.3206E-02,.5651E-02,.7747E-02,.9038E-02,.1096E-01,.1844E-01,.4210E-01,.2471E-02,&
7290  .7192E-03,.1583E-02,.3239E-02,.5705E-02,.7828E-02,.9147E-02,.1110E-01,.1866E-01,.4260E-01,.2497E-02,&
7291  .7265E-03,.1599E-02,.3271E-02,.5760E-02,.7908E-02,.9256E-02,.1124E-01,.1888E-01,.4310E-01,.2522E-02,&
7292  .7338E-03,.1615E-02,.3304E-02,.5814E-02,.7989E-02,.9364E-02,.1137E-01,.1910E-01,.4360E-01,.2548E-02,&
7293  .7411E-03,.1631E-02,.3336E-02,.5868E-02,.8070E-02,.9473E-02,.1151E-01,.1931E-01,.4410E-01,.2574E-02,&
7294  .7484E-03,.1647E-02,.3369E-02,.5923E-02,.8151E-02,.9581E-02,.1165E-01,.1953E-01,.4460E-01,.2600E-02,&
7295  .7559E-03,.1663E-02,.3403E-02,.5979E-02,.8234E-02,.9693E-02,.1180E-01,.1976E-01,.4512E-01,.2627E-02,&
7296  .7635E-03,.1680E-02,.3436E-02,.6036E-02,.8317E-02,.9804E-02,.1194E-01,.1998E-01,.4564E-01,.2653E-02,&
7297  .7710E-03,.1696E-02,.3470E-02,.6092E-02,.8400E-02,.9916E-02,.1208E-01,.2021E-01,.4615E-01,.2680E-02,&
7298  .7786E-03,.1713E-02,.3504E-02,.6149E-02,.8484E-02,.1003E-01,.1223E-01,.2043E-01,.4667E-01,.2707E-02,&
7299  .7861E-03,.1729E-02,.3538E-02,.6205E-02,.8567E-02,.1014E-01,.1237E-01,.2065E-01,.4718E-01,.2734E-02,&
7300  .7940E-03,.1746E-02,.3573E-02,.6264E-02,.8653E-02,.1025E-01,.1252E-01,.2088E-01,.4771E-01,.2761E-02,&
7301  .8018E-03,.1763E-02,.3608E-02,.6322E-02,.8739E-02,.1037E-01,.1267E-01,.2111E-01,.4824E-01,.2789E-02,&
7302  .8096E-03,.1780E-02,.3643E-02,.6381E-02,.8825E-02,.1048E-01,.1281E-01,.2135E-01,.4878E-01,.2816E-02,&
7303  .8175E-03,.1797E-02,.3678E-02,.6440E-02,.8911E-02,.1060E-01,.1296E-01,.2158E-01,.4931E-01,.2844E-02,&
7304  .8253E-03,.1814E-02,.3712E-02,.6498E-02,.8997E-02,.1071E-01,.1311E-01,.2181E-01,.4984E-01,.2871E-02,&
7305  .8334E-03,.1832E-02,.3749E-02,.6559E-02,.9086E-02,.1083E-01,.1326E-01,.2204E-01,.5038E-01,.2900E-02,&
7306  .8414E-03,.1850E-02,.3785E-02,.6621E-02,.9174E-02,.1094E-01,.1341E-01,.2228E-01,.5092E-01,.2929E-02,&
7307  .8495E-03,.1867E-02,.3821E-02,.6682E-02,.9263E-02,.1106E-01,.1356E-01,.2252E-01,.5146E-01,.2957E-02,&
7308  .8576E-03,.1885E-02,.3858E-02,.6743E-02,.9352E-02,.1118E-01,.1370E-01,.2275E-01,.5200E-01,.2986E-02,&
7309  .8656E-03,.1903E-02,.3894E-02,.6805E-02,.9441E-02,.1129E-01,.1385E-01,.2299E-01,.5255E-01,.3014E-02,&
7310  .8740E-03,.1921E-02,.3931E-02,.6868E-02,.9533E-02,.1141E-01,.1401E-01,.2323E-01,.5310E-01,.3044E-02,&
7311  .8823E-03,.1939E-02,.3969E-02,.6931E-02,.9624E-02,.1153E-01,.1416E-01,.2347E-01,.5366E-01,.3073E-02,&
7312  .8907E-03,.1957E-02,.4006E-02,.6995E-02,.9715E-02,.1165E-01,.1431E-01,.2371E-01,.5421E-01,.3102E-02,&
7313  .8990E-03,.1976E-02,.4044E-02,.7058E-02,.9807E-02,.1177E-01,.1447E-01,.2395E-01,.5476E-01,.3132E-02,&
7314  .9073E-03,.1994E-02,.4081E-02,.7121E-02,.9898E-02,.1189E-01,.1462E-01,.2419E-01,.5532E-01,.3161E-02,&
7315  .9159E-03,.2013E-02,.4119E-02,.7186E-02,.9992E-02,.1201E-01,.1478E-01,.2444E-01,.5589E-01,.3191E-02,&
7316  .9245E-03,.2031E-02,.4158E-02,.7252E-02,.1009E-01,.1213E-01,.1493E-01,.2469E-01,.5646E-01,.3221E-02,&
7317  .9331E-03,.2050E-02,.4196E-02,.7317E-02,.1018E-01,.1226E-01,.1509E-01,.2494E-01,.5703E-01,.3252E-02,&
7318  .9417E-03,.2069E-02,.4235E-02,.7382E-02,.1027E-01,.1238E-01,.1525E-01,.2519E-01,.5760E-01,.3282E-02,&
7319  .9503E-03,.2087E-02,.4273E-02,.7447E-02,.1037E-01,.1250E-01,.1541E-01,.2544E-01,.5817E-01,.3312E-02,&
7320  .9592E-03,.2107E-02,.4313E-02,.7514E-02,.1046E-01,.1263E-01,.1557E-01,.2569E-01,.5876E-01,.3343E-02,&
7321  .9680E-03,.2126E-02,.4352E-02,.7581E-02,.1056E-01,.1275E-01,.1573E-01,.2595E-01,.5934E-01,.3374E-02,&
7322  .9768E-03,.2145E-02,.4392E-02,.7648E-02,.1066E-01,.1288E-01,.1589E-01,.2620E-01,.5993E-01,.3405E-02,&
7323  .9856E-03,.2165E-02,.4431E-02,.7715E-02,.1075E-01,.1300E-01,.1605E-01,.2646E-01,.6051E-01,.3436E-02,&
7324  .9944E-03,.2184E-02,.4471E-02,.7783E-02,.1085E-01,.1313E-01,.1621E-01,.2671E-01,.6110E-01,.3467E-02,&
7325  .1004E-02,.2204E-02,.4512E-02,.7851E-02,.1095E-01,.1326E-01,.1638E-01,.2698E-01,.6173E-01,.3500E-02,&
7326  .1013E-02,.2223E-02,.4552E-02,.7919E-02,.1105E-01,.1339E-01,.1656E-01,.2726E-01,.6236E-01,.3532E-02,&
7327  .1022E-02,.2243E-02,.4593E-02,.7987E-02,.1115E-01,.1353E-01,.1673E-01,.2753E-01,.6299E-01,.3564E-02,&
7328  .1031E-02,.2263E-02,.4634E-02,.8056E-02,.1125E-01,.1366E-01,.1691E-01,.2780E-01,.6362E-01,.3596E-02,&
7329  .1040E-02,.2283E-02,.4674E-02,.8124E-02,.1135E-01,.1380E-01,.1708E-01,.2808E-01,.6424E-01,.3628E-02,&
7330  .1049E-02,.2303E-02,.4717E-02,.8195E-02,.1145E-01,.1393E-01,.1726E-01,.2836E-01,.6489E-01,.3661E-02,&
7331  .1059E-02,.2324E-02,.4759E-02,.8266E-02,.1155E-01,.1407E-01,.1744E-01,.2864E-01,.6553E-01,.3695E-02,&
7332  .1068E-02,.2344E-02,.4801E-02,.8337E-02,.1166E-01,.1421E-01,.1762E-01,.2892E-01,.6618E-01,.3728E-02,&
7333  .1077E-02,.2365E-02,.4843E-02,.8407E-02,.1176E-01,.1434E-01,.1780E-01,.2920E-01,.6682E-01,.3761E-02,&
7334  .1087E-02,.2385E-02,.4885E-02,.8478E-02,.1186E-01,.1448E-01,.1798E-01,.2948E-01,.6746E-01,.3794E-02,&
7335  .1096E-02,.2406E-02,.4928E-02,.8551E-02,.1197E-01,.1462E-01,.1816E-01,.2976E-01,.6813E-01,.3828E-02,&
7336  .1106E-02,.2427E-02,.4972E-02,.8624E-02,.1207E-01,.1476E-01,.1835E-01,.3005E-01,.6879E-01,.3863E-02,&
7337  .1116E-02,.2448E-02,.5016E-02,.8697E-02,.1218E-01,.1490E-01,.1853E-01,.3034E-01,.6946E-01,.3897E-02,&
7338  .1126E-02,.2470E-02,.5060E-02,.8772E-02,.1229E-01,.1505E-01,.1873E-01,.3065E-01,.7017E-01,.3932E-02,&
7339  .1136E-02,.2492E-02,.5105E-02,.8847E-02,.1240E-01,.1520E-01,.1893E-01,.3096E-01,.7088E-01,.3968E-02,&
7340  .1146E-02,.2513E-02,.5151E-02,.8923E-02,.1251E-01,.1535E-01,.1913E-01,.3127E-01,.7160E-01,.4004E-02,&
7341  .1156E-02,.2536E-02,.5198E-02,.9001E-02,.1263E-01,.1551E-01,.1934E-01,.3160E-01,.7236E-01,.4041E-02,&
7342  .1167E-02,.2559E-02,.5245E-02,.9079E-02,.1274E-01,.1567E-01,.1956E-01,.3193E-01,.7312E-01,.4078E-02,&
7343  .1178E-02,.2582E-02,.5294E-02,.9159E-02,.1286E-01,.1584E-01,.1978E-01,.3227E-01,.7393E-01,.4118E-02,&
7344  .1189E-02,.2607E-02,.5344E-02,.9242E-02,.1298E-01,.1601E-01,.2002E-01,.3264E-01,.7476E-01,.4158E-02,&
7345  .1201E-02,.2631E-02,.5395E-02,.9327E-02,.1311E-01,.1619E-01,.2026E-01,.3300E-01,.7560E-01,.4198E-02,&
7346  .1212E-02,.2657E-02,.5449E-02,.9415E-02,.1324E-01,.1637E-01,.2052E-01,.3339E-01,.7651E-01,.4241E-02,&
7347  .1225E-02,.2683E-02,.5504E-02,.9507E-02,.1337E-01,.1656E-01,.2078E-01,.3379E-01,.7742E-01,.4285E-02,&
7348  .1237E-02,.2711E-02,.5563E-02,.9602E-02,.1351E-01,.1676E-01,.2105E-01,.3421E-01,.7840E-01,.4331E-02,&
7349  .1252E-02,.2742E-02,.5627E-02,.9706E-02,.1367E-01,.1699E-01,.2136E-01,.3468E-01,.7950E-01,.4383E-02,&
7350  .1267E-02,.2775E-02,.5695E-02,.9819E-02,.1383E-01,.1722E-01,.2169E-01,.3517E-01,.8063E-01,.4437E-02,&
7351  .1284E-02,.2811E-02,.5771E-02,.9945E-02,.1402E-01,.1748E-01,.2205E-01,.3573E-01,.8192E-01,.4498E-02,&
7352  .1305E-02,.2856E-02,.5866E-02,.1010E-01,.1425E-01,.1780E-01,.2250E-01,.3641E-01,.8352E-01,.4573E-02,&
7353  .1335E-02,.2921E-02,.6002E-02,.1033E-01,.1458E-01,.1826E-01,.2312E-01,.3738E-01,.8575E-01,.4680E-02/
7354  data (((g_lw(ai,k,nh),ai= 2, 2),k=1,nwl_lw),nh=0,99)/ &
7355  .3489E-03,.7384E-03,.1593E-02,.2679E-02,.3583E-02,.4361E-02,.5349E-02,.8297E-02,.1781E-01,.1209E-02,&
7356  .3523E-03,.7457E-03,.1609E-02,.2705E-02,.3619E-02,.4404E-02,.5402E-02,.8380E-02,.1799E-01,.1221E-02,&
7357  .3558E-03,.7529E-03,.1625E-02,.2732E-02,.3654E-02,.4447E-02,.5455E-02,.8462E-02,.1817E-01,.1233E-02,&
7358  .3592E-03,.7602E-03,.1640E-02,.2758E-02,.3690E-02,.4490E-02,.5508E-02,.8544E-02,.1835E-01,.1245E-02,&
7359  .3627E-03,.7675E-03,.1656E-02,.2785E-02,.3725E-02,.4533E-02,.5561E-02,.8627E-02,.1852E-01,.1257E-02,&
7360  .3661E-03,.7747E-03,.1672E-02,.2811E-02,.3761E-02,.4576E-02,.5614E-02,.8709E-02,.1870E-01,.1269E-02,&
7361  .3695E-03,.7820E-03,.1687E-02,.2837E-02,.3796E-02,.4619E-02,.5666E-02,.8791E-02,.1888E-01,.1281E-02,&
7362  .3730E-03,.7892E-03,.1703E-02,.2864E-02,.3831E-02,.4662E-02,.5719E-02,.8873E-02,.1906E-01,.1293E-02,&
7363  .3764E-03,.7965E-03,.1719E-02,.2890E-02,.3866E-02,.4705E-02,.5772E-02,.8954E-02,.1923E-01,.1305E-02,&
7364  .3798E-03,.8037E-03,.1734E-02,.2916E-02,.3901E-02,.4748E-02,.5824E-02,.9036E-02,.1941E-01,.1317E-02,&
7365  .3832E-03,.8110E-03,.1750E-02,.2943E-02,.3937E-02,.4791E-02,.5877E-02,.9118E-02,.1959E-01,.1328E-02,&
7366  .3866E-03,.8182E-03,.1766E-02,.2969E-02,.3972E-02,.4834E-02,.5930E-02,.9199E-02,.1976E-01,.1340E-02,&
7367  .3900E-03,.8254E-03,.1781E-02,.2995E-02,.4007E-02,.4876E-02,.5982E-02,.9281E-02,.1994E-01,.1352E-02,&
7368  .3934E-03,.8326E-03,.1797E-02,.3021E-02,.4042E-02,.4919E-02,.6034E-02,.9362E-02,.2011E-01,.1364E-02,&
7369  .3968E-03,.8398E-03,.1812E-02,.3048E-02,.4077E-02,.4962E-02,.6087E-02,.9444E-02,.2029E-01,.1376E-02,&
7370  .4002E-03,.8469E-03,.1828E-02,.3074E-02,.4112E-02,.5004E-02,.6139E-02,.9526E-02,.2047E-01,.1387E-02,&
7371  .4036E-03,.8541E-03,.1843E-02,.3100E-02,.4147E-02,.5047E-02,.6191E-02,.9607E-02,.2064E-01,.1399E-02,&
7372  .4070E-03,.8613E-03,.1859E-02,.3126E-02,.4182E-02,.5090E-02,.6243E-02,.9688E-02,.2082E-01,.1411E-02,&
7373  .4103E-03,.8684E-03,.1874E-02,.3152E-02,.4216E-02,.5132E-02,.6296E-02,.9769E-02,.2099E-01,.1423E-02,&
7374  .4137E-03,.8756E-03,.1890E-02,.3177E-02,.4251E-02,.5175E-02,.6348E-02,.9851E-02,.2117E-01,.1434E-02,&
7375  .4171E-03,.8828E-03,.1905E-02,.3203E-02,.4286E-02,.5217E-02,.6400E-02,.9932E-02,.2134E-01,.1446E-02,&
7376  .4205E-03,.8898E-03,.1920E-02,.3229E-02,.4321E-02,.5259E-02,.6452E-02,.1001E-01,.2152E-01,.1458E-02,&
7377  .4238E-03,.8969E-03,.1936E-02,.3255E-02,.4355E-02,.5301E-02,.6503E-02,.1009E-01,.2169E-01,.1469E-02,&
7378  .4271E-03,.9039E-03,.1951E-02,.3281E-02,.4390E-02,.5343E-02,.6555E-02,.1017E-01,.2187E-01,.1481E-02,&
7379  .4305E-03,.9110E-03,.1966E-02,.3307E-02,.4424E-02,.5385E-02,.6607E-02,.1025E-01,.2204E-01,.1492E-02,&
7380  .4338E-03,.9181E-03,.1981E-02,.3333E-02,.4459E-02,.5427E-02,.6658E-02,.1034E-01,.2221E-01,.1504E-02,&
7381  .4372E-03,.9251E-03,.1997E-02,.3358E-02,.4493E-02,.5469E-02,.6710E-02,.1042E-01,.2239E-01,.1516E-02,&
7382  .4405E-03,.9321E-03,.2012E-02,.3384E-02,.4527E-02,.5511E-02,.6761E-02,.1050E-01,.2256E-01,.1527E-02,&
7383  .4438E-03,.9391E-03,.2027E-02,.3409E-02,.4562E-02,.5553E-02,.6812E-02,.1058E-01,.2273E-01,.1539E-02,&
7384  .4471E-03,.9461E-03,.2042E-02,.3435E-02,.4596E-02,.5595E-02,.6864E-02,.1066E-01,.2290E-01,.1550E-02,&
7385  .4504E-03,.9531E-03,.2057E-02,.3461E-02,.4630E-02,.5636E-02,.6915E-02,.1074E-01,.2308E-01,.1562E-02,&
7386  .4537E-03,.9601E-03,.2072E-02,.3486E-02,.4664E-02,.5678E-02,.6966E-02,.1081E-01,.2325E-01,.1573E-02,&
7387  .4570E-03,.9671E-03,.2087E-02,.3511E-02,.4698E-02,.5719E-02,.7017E-02,.1089E-01,.2342E-01,.1584E-02,&
7388  .4603E-03,.9741E-03,.2103E-02,.3537E-02,.4732E-02,.5761E-02,.7067E-02,.1097E-01,.2359E-01,.1596E-02,&
7389  .4636E-03,.9811E-03,.2118E-02,.3562E-02,.4766E-02,.5802E-02,.7118E-02,.1105E-01,.2376E-01,.1607E-02,&
7390  .4669E-03,.9881E-03,.2133E-02,.3588E-02,.4800E-02,.5844E-02,.7169E-02,.1113E-01,.2393E-01,.1619E-02,&
7391  .4701E-03,.9950E-03,.2148E-02,.3613E-02,.4834E-02,.5885E-02,.7220E-02,.1121E-01,.2410E-01,.1630E-02,&
7392  .4734E-03,.1002E-02,.2162E-02,.3638E-02,.4867E-02,.5926E-02,.7270E-02,.1129E-01,.2427E-01,.1641E-02,&
7393  .4766E-03,.1009E-02,.2177E-02,.3663E-02,.4901E-02,.5967E-02,.7320E-02,.1137E-01,.2444E-01,.1653E-02,&
7394  .4799E-03,.1016E-02,.2192E-02,.3688E-02,.4935E-02,.6008E-02,.7371E-02,.1145E-01,.2461E-01,.1664E-02,&
7395  .4831E-03,.1022E-02,.2207E-02,.3713E-02,.4968E-02,.6049E-02,.7421E-02,.1152E-01,.2478E-01,.1675E-02,&
7396  .4863E-03,.1029E-02,.2222E-02,.3738E-02,.5002E-02,.6089E-02,.7471E-02,.1160E-01,.2495E-01,.1686E-02,&
7397  .4896E-03,.1036E-02,.2237E-02,.3762E-02,.5035E-02,.6129E-02,.7521E-02,.1168E-01,.2512E-01,.1698E-02,&
7398  .4928E-03,.1043E-02,.2251E-02,.3787E-02,.5068E-02,.6170E-02,.7570E-02,.1176E-01,.2528E-01,.1709E-02,&
7399  .4960E-03,.1050E-02,.2266E-02,.3812E-02,.5101E-02,.6210E-02,.7620E-02,.1183E-01,.2545E-01,.1720E-02,&
7400  .4992E-03,.1057E-02,.2281E-02,.3837E-02,.5134E-02,.6251E-02,.7670E-02,.1191E-01,.2562E-01,.1731E-02,&
7401  .5023E-03,.1063E-02,.2295E-02,.3861E-02,.5167E-02,.6291E-02,.7719E-02,.1199E-01,.2578E-01,.1742E-02,&
7402  .5055E-03,.1070E-02,.2310E-02,.3886E-02,.5200E-02,.6331E-02,.7769E-02,.1206E-01,.2595E-01,.1753E-02,&
7403  .5087E-03,.1077E-02,.2324E-02,.3911E-02,.5233E-02,.6371E-02,.7818E-02,.1214E-01,.2611E-01,.1764E-02,&
7404  .5119E-03,.1083E-02,.2339E-02,.3935E-02,.5266E-02,.6411E-02,.7867E-02,.1222E-01,.2628E-01,.1775E-02,&
7405  .5151E-03,.1090E-02,.2353E-02,.3960E-02,.5299E-02,.6452E-02,.7916E-02,.1230E-01,.2645E-01,.1786E-02,&
7406  .5182E-03,.1097E-02,.2368E-02,.3984E-02,.5331E-02,.6491E-02,.7965E-02,.1237E-01,.2661E-01,.1797E-02,&
7407  .5213E-03,.1103E-02,.2382E-02,.4008E-02,.5364E-02,.6531E-02,.8014E-02,.1245E-01,.2677E-01,.1808E-02,&
7408  .5244E-03,.1110E-02,.2396E-02,.4032E-02,.5396E-02,.6570E-02,.8062E-02,.1252E-01,.2694E-01,.1819E-02,&
7409  .5276E-03,.1117E-02,.2411E-02,.4056E-02,.5429E-02,.6610E-02,.8111E-02,.1260E-01,.2710E-01,.1830E-02,&
7410  .5307E-03,.1123E-02,.2425E-02,.4080E-02,.5461E-02,.6649E-02,.8160E-02,.1268E-01,.2726E-01,.1841E-02,&
7411  .5334E-03,.1129E-02,.2437E-02,.4101E-02,.5491E-02,.6686E-02,.8207E-02,.1275E-01,.2744E-01,.1850E-02,&
7412  .5360E-03,.1135E-02,.2448E-02,.4121E-02,.5520E-02,.6723E-02,.8254E-02,.1283E-01,.2761E-01,.1859E-02,&
7413  .5387E-03,.1141E-02,.2460E-02,.4141E-02,.5549E-02,.6760E-02,.8301E-02,.1290E-01,.2778E-01,.1868E-02,&
7414  .5413E-03,.1146E-02,.2471E-02,.4161E-02,.5578E-02,.6797E-02,.8348E-02,.1298E-01,.2796E-01,.1877E-02,&
7415  .5440E-03,.1152E-02,.2483E-02,.4181E-02,.5608E-02,.6834E-02,.8395E-02,.1306E-01,.2813E-01,.1886E-02,&
7416  .5470E-03,.1159E-02,.2497E-02,.4205E-02,.5639E-02,.6873E-02,.8443E-02,.1313E-01,.2829E-01,.1897E-02,&
7417  .5501E-03,.1165E-02,.2511E-02,.4229E-02,.5671E-02,.6912E-02,.8491E-02,.1321E-01,.2845E-01,.1907E-02,&
7418  .5531E-03,.1172E-02,.2525E-02,.4252E-02,.5703E-02,.6951E-02,.8538E-02,.1328E-01,.2861E-01,.1918E-02,&
7419  .5562E-03,.1178E-02,.2539E-02,.4276E-02,.5735E-02,.6989E-02,.8586E-02,.1335E-01,.2877E-01,.1929E-02,&
7420  .5592E-03,.1184E-02,.2553E-02,.4300E-02,.5766E-02,.7028E-02,.8634E-02,.1343E-01,.2893E-01,.1939E-02,&
7421  .5612E-03,.1189E-02,.2560E-02,.4313E-02,.5791E-02,.7062E-02,.8681E-02,.1351E-01,.2914E-01,.1946E-02,&
7422  .5631E-03,.1193E-02,.2567E-02,.4327E-02,.5816E-02,.7096E-02,.8727E-02,.1359E-01,.2934E-01,.1952E-02,&
7423  .5650E-03,.1198E-02,.2574E-02,.4341E-02,.5841E-02,.7130E-02,.8774E-02,.1367E-01,.2954E-01,.1959E-02,&
7424  .5669E-03,.1202E-02,.2581E-02,.4354E-02,.5865E-02,.7164E-02,.8821E-02,.1375E-01,.2975E-01,.1965E-02,&
7425  .5689E-03,.1207E-02,.2588E-02,.4368E-02,.5890E-02,.7198E-02,.8867E-02,.1383E-01,.2995E-01,.1972E-02,&
7426  .5700E-03,.1210E-02,.2590E-02,.4375E-02,.5913E-02,.7235E-02,.8923E-02,.1393E-01,.3025E-01,.1975E-02,&
7427  .5712E-03,.1214E-02,.2591E-02,.4382E-02,.5936E-02,.7272E-02,.8980E-02,.1403E-01,.3054E-01,.1979E-02,&
7428  .5724E-03,.1217E-02,.2593E-02,.4389E-02,.5960E-02,.7310E-02,.9036E-02,.1414E-01,.3084E-01,.1983E-02,&
7429  .5736E-03,.1221E-02,.2595E-02,.4396E-02,.5983E-02,.7347E-02,.9092E-02,.1424E-01,.3113E-01,.1987E-02,&
7430  .5748E-03,.1224E-02,.2597E-02,.4403E-02,.6006E-02,.7384E-02,.9149E-02,.1435E-01,.3143E-01,.1990E-02,&
7431  .5772E-03,.1231E-02,.2605E-02,.4420E-02,.6042E-02,.7436E-02,.9224E-02,.1448E-01,.3179E-01,.1999E-02,&
7432  .5796E-03,.1237E-02,.2613E-02,.4437E-02,.6078E-02,.7488E-02,.9300E-02,.1461E-01,.3215E-01,.2007E-02,&
7433  .5821E-03,.1243E-02,.2621E-02,.4454E-02,.6113E-02,.7540E-02,.9375E-02,.1474E-01,.3251E-01,.2016E-02,&
7434  .5845E-03,.1250E-02,.2629E-02,.4471E-02,.6149E-02,.7592E-02,.9451E-02,.1488E-01,.3287E-01,.2024E-02,&
7435  .5869E-03,.1256E-02,.2637E-02,.4488E-02,.6185E-02,.7644E-02,.9526E-02,.1501E-01,.3322E-01,.2032E-02,&
7436  .5903E-03,.1265E-02,.2649E-02,.4513E-02,.6234E-02,.7715E-02,.9626E-02,.1519E-01,.3370E-01,.2045E-02,&
7437  .5940E-03,.1273E-02,.2664E-02,.4540E-02,.6281E-02,.7779E-02,.9715E-02,.1534E-01,.3409E-01,.2058E-02,&
7438  .5983E-03,.1284E-02,.2681E-02,.4572E-02,.6337E-02,.7858E-02,.9824E-02,.1553E-01,.3458E-01,.2073E-02,&
7439  .6025E-03,.1294E-02,.2698E-02,.4604E-02,.6389E-02,.7927E-02,.9917E-02,.1569E-01,.3498E-01,.2088E-02,&
7440  .6074E-03,.1306E-02,.2719E-02,.4641E-02,.6452E-02,.8012E-02,.1003E-01,.1589E-01,.3548E-01,.2106E-02,&
7441  .6128E-03,.1318E-02,.2741E-02,.4682E-02,.6518E-02,.8102E-02,.1016E-01,.1610E-01,.3599E-01,.2125E-02,&
7442  .6176E-03,.1330E-02,.2762E-02,.4719E-02,.6576E-02,.8177E-02,.1026E-01,.1626E-01,.3641E-01,.2142E-02,&
7443  .6235E-03,.1343E-02,.2787E-02,.4765E-02,.6646E-02,.8272E-02,.1038E-01,.1648E-01,.3693E-01,.2163E-02,&
7444  .6287E-03,.1355E-02,.2810E-02,.4805E-02,.6707E-02,.8351E-02,.1049E-01,.1665E-01,.3735E-01,.2182E-02,&
7445  .6351E-03,.1370E-02,.2838E-02,.4854E-02,.6782E-02,.8450E-02,.1062E-01,.1687E-01,.3789E-01,.2204E-02,&
7446  .6417E-03,.1385E-02,.2866E-02,.4904E-02,.6860E-02,.8552E-02,.1075E-01,.1709E-01,.3843E-01,.2228E-02,&
7447  .6484E-03,.1401E-02,.2896E-02,.4957E-02,.6939E-02,.8655E-02,.1089E-01,.1732E-01,.3898E-01,.2252E-02,&
7448  .6555E-03,.1416E-02,.2928E-02,.5011E-02,.7021E-02,.8761E-02,.1103E-01,.1755E-01,.3954E-01,.2277E-02,&
7449  .6639E-03,.1436E-02,.2965E-02,.5077E-02,.7119E-02,.8888E-02,.1120E-01,.1783E-01,.4020E-01,.2307E-02,&
7450  .6725E-03,.1456E-02,.3004E-02,.5144E-02,.7219E-02,.9019E-02,.1137E-01,.1812E-01,.4088E-01,.2338E-02,&
7451  .6828E-03,.1479E-02,.3049E-02,.5224E-02,.7337E-02,.9171E-02,.1157E-01,.1845E-01,.4168E-01,.2375E-02,&
7452  .6960E-03,.1509E-02,.3108E-02,.5327E-02,.7489E-02,.9367E-02,.1183E-01,.1888E-01,.4270E-01,.2422E-02,&
7453  .7109E-03,.1542E-02,.3176E-02,.5444E-02,.7660E-02,.9588E-02,.1212E-01,.1936E-01,.4383E-01,.2476E-02,&
7454  .7427E-03,.1615E-02,.3320E-02,.5694E-02,.8024E-02,.1006E-01,.1272E-01,.2037E-01,.4624E-01,.2591E-02/
7455  data (((g_lw(ai,k,nh),ai= 3, 3),k=1,nwl_lw),nh=0,99)/ &
7456  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7457  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7458  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7459  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7460  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7461  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7462  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7463  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7464  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7465  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7466  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7467  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7468  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7469  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7470  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7471  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7472  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7473  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7474  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7475  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7476  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7477  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7478  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7479  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7480  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7481  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7482  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7483  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7484  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7485  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7486  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7487  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7488  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7489  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7490  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7491  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7492  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7493  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7494  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7495  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7496  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7497  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7498  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7499  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7500  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7501  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7502  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7503  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7504  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7505  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7506  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7507  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7508  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7509  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7510  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7511  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7512  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7513  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7514  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7515  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7516  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7517  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7518  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7519  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7520  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7521  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7522  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7523  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7524  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7525  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7526  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7527  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7528  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7529  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7530  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7531  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7532  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7533  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7534  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7535  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7536  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7537  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7538  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7539  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7540  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7541  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7542  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7543  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7544  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7545  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7546  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7547  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7548  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7549  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7550  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7551  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7552  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7553  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7554  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7555  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02/
7556  data (((g_lw(ai,k,nh),ai= 4, 4),k=1,nwl_lw),nh=0,99)/ &
7557  .4115E-03,.9877E-03,.1945E-02,.3501E-02,.5463E-02,.6679E-02,.5981E-02,.1042E-01,.2355E-01,.1645E-02,&
7558  .4165E-03,.9984E-03,.1967E-02,.3538E-02,.5512E-02,.6739E-02,.6069E-02,.1056E-01,.2387E-01,.1662E-02,&
7559  .4214E-03,.1009E-02,.1989E-02,.3574E-02,.5561E-02,.6799E-02,.6157E-02,.1070E-01,.2419E-01,.1679E-02,&
7560  .4264E-03,.1020E-02,.2011E-02,.3611E-02,.5611E-02,.6859E-02,.6245E-02,.1085E-01,.2452E-01,.1696E-02,&
7561  .4313E-03,.1030E-02,.2034E-02,.3648E-02,.5660E-02,.6920E-02,.6333E-02,.1099E-01,.2484E-01,.1713E-02,&
7562  .4363E-03,.1041E-02,.2056E-02,.3684E-02,.5709E-02,.6980E-02,.6420E-02,.1113E-01,.2517E-01,.1730E-02,&
7563  .4414E-03,.1052E-02,.2079E-02,.3722E-02,.5761E-02,.7043E-02,.6511E-02,.1128E-01,.2550E-01,.1747E-02,&
7564  .4466E-03,.1063E-02,.2102E-02,.3760E-02,.5812E-02,.7106E-02,.6602E-02,.1142E-01,.2584E-01,.1765E-02,&
7565  .4517E-03,.1074E-02,.2125E-02,.3798E-02,.5863E-02,.7169E-02,.6693E-02,.1157E-01,.2617E-01,.1783E-02,&
7566  .4569E-03,.1085E-02,.2148E-02,.3836E-02,.5915E-02,.7232E-02,.6784E-02,.1172E-01,.2651E-01,.1800E-02,&
7567  .4620E-03,.1096E-02,.2171E-02,.3874E-02,.5966E-02,.7295E-02,.6875E-02,.1186E-01,.2685E-01,.1818E-02,&
7568  .4673E-03,.1107E-02,.2194E-02,.3914E-02,.6020E-02,.7361E-02,.6969E-02,.1201E-01,.2719E-01,.1836E-02,&
7569  .4726E-03,.1119E-02,.2218E-02,.3953E-02,.6073E-02,.7427E-02,.7063E-02,.1216E-01,.2754E-01,.1854E-02,&
7570  .4779E-03,.1130E-02,.2242E-02,.3992E-02,.6127E-02,.7493E-02,.7157E-02,.1232E-01,.2788E-01,.1872E-02,&
7571  .4832E-03,.1142E-02,.2266E-02,.4032E-02,.6180E-02,.7558E-02,.7251E-02,.1247E-01,.2823E-01,.1890E-02,&
7572  .4885E-03,.1153E-02,.2289E-02,.4071E-02,.6234E-02,.7624E-02,.7345E-02,.1262E-01,.2857E-01,.1909E-02,&
7573  .4940E-03,.1165E-02,.2314E-02,.4112E-02,.6289E-02,.7693E-02,.7442E-02,.1277E-01,.2893E-01,.1927E-02,&
7574  .4995E-03,.1177E-02,.2338E-02,.4153E-02,.6345E-02,.7762E-02,.7539E-02,.1293E-01,.2929E-01,.1946E-02,&
7575  .5049E-03,.1188E-02,.2363E-02,.4194E-02,.6401E-02,.7830E-02,.7636E-02,.1309E-01,.2965E-01,.1965E-02,&
7576  .5104E-03,.1200E-02,.2387E-02,.4235E-02,.6456E-02,.7899E-02,.7733E-02,.1324E-01,.3000E-01,.1984E-02,&
7577  .5159E-03,.1212E-02,.2412E-02,.4275E-02,.6512E-02,.7968E-02,.7830E-02,.1340E-01,.3036E-01,.2002E-02,&
7578  .5215E-03,.1224E-02,.2437E-02,.4318E-02,.6569E-02,.8039E-02,.7930E-02,.1356E-01,.3073E-01,.2022E-02,&
7579  .5272E-03,.1236E-02,.2462E-02,.4360E-02,.6627E-02,.8110E-02,.8030E-02,.1372E-01,.3109E-01,.2041E-02,&
7580  .5328E-03,.1248E-02,.2488E-02,.4402E-02,.6685E-02,.8182E-02,.8130E-02,.1388E-01,.3146E-01,.2060E-02,&
7581  .5385E-03,.1261E-02,.2513E-02,.4444E-02,.6742E-02,.8253E-02,.8230E-02,.1404E-01,.3183E-01,.2080E-02,&
7582  .5441E-03,.1273E-02,.2538E-02,.4486E-02,.6800E-02,.8324E-02,.8330E-02,.1420E-01,.3219E-01,.2099E-02,&
7583  .5499E-03,.1285E-02,.2564E-02,.4530E-02,.6860E-02,.8399E-02,.8434E-02,.1437E-01,.3257E-01,.2119E-02,&
7584  .5558E-03,.1298E-02,.2590E-02,.4574E-02,.6920E-02,.8473E-02,.8537E-02,.1453E-01,.3295E-01,.2139E-02,&
7585  .5616E-03,.1310E-02,.2616E-02,.4617E-02,.6979E-02,.8547E-02,.8640E-02,.1470E-01,.3333E-01,.2159E-02,&
7586  .5674E-03,.1323E-02,.2642E-02,.4661E-02,.7039E-02,.8622E-02,.8743E-02,.1486E-01,.3371E-01,.2179E-02,&
7587  .5732E-03,.1335E-02,.2668E-02,.4704E-02,.7099E-02,.8696E-02,.8847E-02,.1503E-01,.3409E-01,.2199E-02,&
7588  .5792E-03,.1348E-02,.2695E-02,.4749E-02,.7161E-02,.8772E-02,.8952E-02,.1520E-01,.3447E-01,.2219E-02,&
7589  .5852E-03,.1361E-02,.2721E-02,.4794E-02,.7222E-02,.8849E-02,.9058E-02,.1537E-01,.3486E-01,.2240E-02,&
7590  .5912E-03,.1374E-02,.2748E-02,.4839E-02,.7284E-02,.8925E-02,.9163E-02,.1554E-01,.3525E-01,.2261E-02,&
7591  .5971E-03,.1387E-02,.2775E-02,.4884E-02,.7346E-02,.9001E-02,.9269E-02,.1570E-01,.3564E-01,.2281E-02,&
7592  .6031E-03,.1400E-02,.2801E-02,.4929E-02,.7408E-02,.9078E-02,.9374E-02,.1587E-01,.3603E-01,.2302E-02,&
7593  .6093E-03,.1413E-02,.2829E-02,.4975E-02,.7471E-02,.9158E-02,.9483E-02,.1605E-01,.3643E-01,.2323E-02,&
7594  .6154E-03,.1427E-02,.2857E-02,.5022E-02,.7535E-02,.9237E-02,.9593E-02,.1622E-01,.3683E-01,.2344E-02,&
7595  .6216E-03,.1440E-02,.2884E-02,.5068E-02,.7599E-02,.9317E-02,.9702E-02,.1640E-01,.3723E-01,.2365E-02,&
7596  .6278E-03,.1453E-02,.2912E-02,.5114E-02,.7663E-02,.9397E-02,.9811E-02,.1658E-01,.3763E-01,.2387E-02,&
7597  .6339E-03,.1467E-02,.2939E-02,.5161E-02,.7726E-02,.9477E-02,.9920E-02,.1675E-01,.3802E-01,.2408E-02,&
7598  .6403E-03,.1480E-02,.2968E-02,.5209E-02,.7792E-02,.9559E-02,.1003E-01,.1693E-01,.3844E-01,.2430E-02,&
7599  .6466E-03,.1494E-02,.2996E-02,.5256E-02,.7858E-02,.9641E-02,.1014E-01,.1711E-01,.3885E-01,.2451E-02,&
7600  .6529E-03,.1507E-02,.3024E-02,.5304E-02,.7924E-02,.9723E-02,.1026E-01,.1729E-01,.3926E-01,.2473E-02,&
7601  .6593E-03,.1521E-02,.3053E-02,.5352E-02,.7989E-02,.9805E-02,.1037E-01,.1747E-01,.3967E-01,.2495E-02,&
7602  .6656E-03,.1535E-02,.3081E-02,.5400E-02,.8055E-02,.9887E-02,.1048E-01,.1765E-01,.4008E-01,.2517E-02,&
7603  .6721E-03,.1549E-02,.3110E-02,.5449E-02,.8123E-02,.9971E-02,.1059E-01,.1783E-01,.4050E-01,.2539E-02,&
7604  .6786E-03,.1563E-02,.3139E-02,.5498E-02,.8191E-02,.1006E-01,.1071E-01,.1802E-01,.4092E-01,.2562E-02,&
7605  .6851E-03,.1577E-02,.3168E-02,.5547E-02,.8259E-02,.1014E-01,.1082E-01,.1820E-01,.4133E-01,.2584E-02,&
7606  .6916E-03,.1591E-02,.3197E-02,.5596E-02,.8327E-02,.1023E-01,.1094E-01,.1838E-01,.4175E-01,.2607E-02,&
7607  .6981E-03,.1605E-02,.3226E-02,.5645E-02,.8394E-02,.1031E-01,.1105E-01,.1857E-01,.4217E-01,.2629E-02,&
7608  .7048E-03,.1619E-02,.3256E-02,.5695E-02,.8462E-02,.1040E-01,.1117E-01,.1876E-01,.4261E-01,.2652E-02,&
7609  .7114E-03,.1634E-02,.3286E-02,.5744E-02,.8530E-02,.1048E-01,.1129E-01,.1895E-01,.4305E-01,.2674E-02,&
7610  .7181E-03,.1648E-02,.3315E-02,.5794E-02,.8597E-02,.1056E-01,.1141E-01,.1914E-01,.4349E-01,.2697E-02,&
7611  .7248E-03,.1662E-02,.3345E-02,.5844E-02,.8665E-02,.1065E-01,.1153E-01,.1933E-01,.4392E-01,.2719E-02,&
7612  .7314E-03,.1676E-02,.3374E-02,.5894E-02,.8732E-02,.1073E-01,.1165E-01,.1952E-01,.4436E-01,.2742E-02,&
7613  .7383E-03,.1691E-02,.3405E-02,.5945E-02,.8803E-02,.1082E-01,.1178E-01,.1972E-01,.4481E-01,.2765E-02,&
7614  .7452E-03,.1706E-02,.3435E-02,.5996E-02,.8873E-02,.1091E-01,.1190E-01,.1991E-01,.4526E-01,.2789E-02,&
7615  .7520E-03,.1720E-02,.3466E-02,.6047E-02,.8944E-02,.1100E-01,.1202E-01,.2011E-01,.4571E-01,.2812E-02,&
7616  .7589E-03,.1735E-02,.3496E-02,.6099E-02,.9014E-02,.1109E-01,.1215E-01,.2031E-01,.4615E-01,.2835E-02,&
7617  .7657E-03,.1750E-02,.3527E-02,.6150E-02,.9085E-02,.1117E-01,.1227E-01,.2050E-01,.4660E-01,.2858E-02,&
7618  .7728E-03,.1765E-02,.3558E-02,.6203E-02,.9159E-02,.1127E-01,.1239E-01,.2070E-01,.4705E-01,.2883E-02,&
7619  .7799E-03,.1780E-02,.3590E-02,.6257E-02,.9233E-02,.1136E-01,.1252E-01,.2090E-01,.4751E-01,.2907E-02,&
7620  .7870E-03,.1795E-02,.3621E-02,.6310E-02,.9307E-02,.1145E-01,.1264E-01,.2110E-01,.4796E-01,.2931E-02,&
7621  .7940E-03,.1810E-02,.3652E-02,.6364E-02,.9381E-02,.1155E-01,.1277E-01,.2129E-01,.4841E-01,.2956E-02,&
7622  .8011E-03,.1825E-02,.3684E-02,.6417E-02,.9455E-02,.1164E-01,.1289E-01,.2149E-01,.4886E-01,.2980E-02,&
7623  .8083E-03,.1841E-02,.3716E-02,.6471E-02,.9529E-02,.1173E-01,.1302E-01,.2170E-01,.4933E-01,.3005E-02,&
7624  .8155E-03,.1857E-02,.3748E-02,.6526E-02,.9604E-02,.1183E-01,.1315E-01,.2190E-01,.4981E-01,.3029E-02,&
7625  .8227E-03,.1872E-02,.3780E-02,.6580E-02,.9678E-02,.1192E-01,.1328E-01,.2211E-01,.5028E-01,.3054E-02,&
7626  .8299E-03,.1888E-02,.3812E-02,.6634E-02,.9753E-02,.1202E-01,.1341E-01,.2232E-01,.5075E-01,.3078E-02,&
7627  .8371E-03,.1903E-02,.3845E-02,.6688E-02,.9828E-02,.1211E-01,.1354E-01,.2252E-01,.5122E-01,.3103E-02,&
7628  .8446E-03,.1919E-02,.3878E-02,.6744E-02,.9900E-02,.1220E-01,.1368E-01,.2274E-01,.5172E-01,.3128E-02,&
7629  .8521E-03,.1935E-02,.3910E-02,.6799E-02,.9973E-02,.1229E-01,.1382E-01,.2296E-01,.5222E-01,.3152E-02,&
7630  .8596E-03,.1950E-02,.3943E-02,.6854E-02,.1005E-01,.1239E-01,.1396E-01,.2318E-01,.5273E-01,.3177E-02,&
7631  .8671E-03,.1966E-02,.3976E-02,.6909E-02,.1012E-01,.1248E-01,.1410E-01,.2340E-01,.5323E-01,.3202E-02,&
7632  .8746E-03,.1982E-02,.4009E-02,.6964E-02,.1019E-01,.1257E-01,.1423E-01,.2362E-01,.5373E-01,.3226E-02,&
7633  .8825E-03,.1998E-02,.4043E-02,.7021E-02,.1027E-01,.1267E-01,.1439E-01,.2385E-01,.5427E-01,.3251E-02,&
7634  .8903E-03,.2014E-02,.4077E-02,.7077E-02,.1034E-01,.1277E-01,.1454E-01,.2408E-01,.5481E-01,.3277E-02,&
7635  .8982E-03,.2030E-02,.4112E-02,.7134E-02,.1042E-01,.1286E-01,.1469E-01,.2432E-01,.5534E-01,.3302E-02,&
7636  .9061E-03,.2046E-02,.4146E-02,.7191E-02,.1049E-01,.1296E-01,.1484E-01,.2455E-01,.5588E-01,.3327E-02,&
7637  .9140E-03,.2063E-02,.4180E-02,.7248E-02,.1056E-01,.1305E-01,.1499E-01,.2479E-01,.5642E-01,.3352E-02,&
7638  .9219E-03,.2079E-02,.4215E-02,.7306E-02,.1064E-01,.1315E-01,.1515E-01,.2503E-01,.5699E-01,.3378E-02,&
7639  .9303E-03,.2096E-02,.4251E-02,.7365E-02,.1072E-01,.1325E-01,.1531E-01,.2528E-01,.5756E-01,.3404E-02,&
7640  .9387E-03,.2113E-02,.4287E-02,.7425E-02,.1079E-01,.1335E-01,.1548E-01,.2553E-01,.5813E-01,.3430E-02,&
7641  .9471E-03,.2130E-02,.4323E-02,.7485E-02,.1087E-01,.1345E-01,.1563E-01,.2578E-01,.5871E-01,.3457E-02,&
7642  .9557E-03,.2147E-02,.4360E-02,.7546E-02,.1095E-01,.1355E-01,.1581E-01,.2604E-01,.5932E-01,.3484E-02,&
7643  .9644E-03,.2165E-02,.4398E-02,.7609E-02,.1103E-01,.1366E-01,.1599E-01,.2631E-01,.5994E-01,.3511E-02,&
7644  .9735E-03,.2183E-02,.4437E-02,.7673E-02,.1111E-01,.1376E-01,.1618E-01,.2659E-01,.6060E-01,.3538E-02,&
7645  .9828E-03,.2201E-02,.4477E-02,.7738E-02,.1119E-01,.1387E-01,.1636E-01,.2688E-01,.6126E-01,.3567E-02,&
7646  .9926E-03,.2220E-02,.4518E-02,.7805E-02,.1127E-01,.1398E-01,.1656E-01,.2718E-01,.6196E-01,.3595E-02,&
7647  .1002E-02,.2240E-02,.4559E-02,.7874E-02,.1136E-01,.1409E-01,.1676E-01,.2749E-01,.6266E-01,.3625E-02,&
7648  .1013E-02,.2260E-02,.4603E-02,.7945E-02,.1145E-01,.1421E-01,.1697E-01,.2780E-01,.6340E-01,.3655E-02,&
7649  .1023E-02,.2280E-02,.4647E-02,.8019E-02,.1154E-01,.1434E-01,.1719E-01,.2814E-01,.6417E-01,.3687E-02,&
7650  .1035E-02,.2303E-02,.4696E-02,.8099E-02,.1164E-01,.1447E-01,.1744E-01,.2850E-01,.6502E-01,.3721E-02,&
7651  .1047E-02,.2326E-02,.4746E-02,.8182E-02,.1173E-01,.1461E-01,.1769E-01,.2887E-01,.6589E-01,.3756E-02,&
7652  .1060E-02,.2352E-02,.4802E-02,.8275E-02,.1185E-01,.1476E-01,.1797E-01,.2930E-01,.6689E-01,.3794E-02,&
7653  .1075E-02,.2380E-02,.4865E-02,.8379E-02,.1198E-01,.1494E-01,.1829E-01,.2978E-01,.6800E-01,.3838E-02,&
7654  .1091E-02,.2412E-02,.4933E-02,.8492E-02,.1212E-01,.1513E-01,.1863E-01,.3028E-01,.6919E-01,.3886E-02,&
7655  .1112E-02,.2452E-02,.5021E-02,.8639E-02,.1230E-01,.1538E-01,.1907E-01,.3094E-01,.7072E-01,.3947E-02,&
7656  .1139E-02,.2506E-02,.5137E-02,.8835E-02,.1255E-01,.1572E-01,.1963E-01,.3179E-01,.7270E-01,.4030E-02/
7657  data (((g_lw(ai,k,nh),ai= 5, 5),k=1,nwl_lw),nh=0,99)/ &
7658  .1481E+00,.2519E+00,.3517E+00,.4244E+00,.4530E+00,.4774E+00,.5189E+00,.5612E+00,.6172E+00,.3172E+00,&
7659  .1497E+00,.2526E+00,.3520E+00,.4269E+00,.4564E+00,.4808E+00,.5221E+00,.5645E+00,.6203E+00,.3173E+00,&
7660  .1513E+00,.2533E+00,.3523E+00,.4293E+00,.4598E+00,.4842E+00,.5252E+00,.5678E+00,.6234E+00,.3175E+00,&
7661  .1529E+00,.2541E+00,.3526E+00,.4317E+00,.4632E+00,.4877E+00,.5283E+00,.5711E+00,.6265E+00,.3176E+00,&
7662  .1545E+00,.2548E+00,.3529E+00,.4342E+00,.4666E+00,.4911E+00,.5315E+00,.5744E+00,.6296E+00,.3177E+00,&
7663  .1561E+00,.2556E+00,.3532E+00,.4366E+00,.4700E+00,.4946E+00,.5346E+00,.5777E+00,.6326E+00,.3178E+00,&
7664  .1577E+00,.2565E+00,.3537E+00,.4389E+00,.4732E+00,.4978E+00,.5375E+00,.5807E+00,.6354E+00,.3182E+00,&
7665  .1593E+00,.2574E+00,.3542E+00,.4412E+00,.4763E+00,.5010E+00,.5404E+00,.5836E+00,.6381E+00,.3186E+00,&
7666  .1609E+00,.2583E+00,.3547E+00,.4435E+00,.4795E+00,.5042E+00,.5433E+00,.5866E+00,.6408E+00,.3190E+00,&
7667  .1625E+00,.2593E+00,.3552E+00,.4458E+00,.4827E+00,.5074E+00,.5462E+00,.5895E+00,.6436E+00,.3194E+00,&
7668  .1641E+00,.2602E+00,.3557E+00,.4481E+00,.4859E+00,.5106E+00,.5491E+00,.5925E+00,.6463E+00,.3198E+00,&
7669  .1657E+00,.2613E+00,.3564E+00,.4503E+00,.4889E+00,.5136E+00,.5519E+00,.5952E+00,.6487E+00,.3205E+00,&
7670  .1673E+00,.2623E+00,.3572E+00,.4525E+00,.4919E+00,.5166E+00,.5546E+00,.5979E+00,.6512E+00,.3211E+00,&
7671  .1689E+00,.2634E+00,.3579E+00,.4547E+00,.4949E+00,.5197E+00,.5574E+00,.6006E+00,.6536E+00,.3218E+00,&
7672  .1705E+00,.2645E+00,.3586E+00,.4570E+00,.4979E+00,.5227E+00,.5601E+00,.6033E+00,.6560E+00,.3225E+00,&
7673  .1721E+00,.2656E+00,.3594E+00,.4592E+00,.5010E+00,.5257E+00,.5628E+00,.6060E+00,.6585E+00,.3231E+00,&
7674  .1737E+00,.2667E+00,.3603E+00,.4613E+00,.5038E+00,.5285E+00,.5654E+00,.6085E+00,.6606E+00,.3240E+00,&
7675  .1752E+00,.2679E+00,.3613E+00,.4635E+00,.5066E+00,.5314E+00,.5679E+00,.6109E+00,.6628E+00,.3248E+00,&
7676  .1768E+00,.2690E+00,.3622E+00,.4657E+00,.5095E+00,.5342E+00,.5705E+00,.6134E+00,.6649E+00,.3256E+00,&
7677  .1784E+00,.2702E+00,.3631E+00,.4678E+00,.5123E+00,.5370E+00,.5730E+00,.6159E+00,.6670E+00,.3265E+00,&
7678  .1800E+00,.2714E+00,.3641E+00,.4700E+00,.5151E+00,.5398E+00,.5756E+00,.6184E+00,.6692E+00,.3273E+00,&
7679  .1815E+00,.2726E+00,.3652E+00,.4722E+00,.5178E+00,.5425E+00,.5780E+00,.6207E+00,.6712E+00,.3283E+00,&
7680  .1831E+00,.2739E+00,.3662E+00,.4743E+00,.5205E+00,.5452E+00,.5804E+00,.6230E+00,.6731E+00,.3293E+00,&
7681  .1846E+00,.2751E+00,.3673E+00,.4764E+00,.5232E+00,.5479E+00,.5828E+00,.6253E+00,.6751E+00,.3303E+00,&
7682  .1862E+00,.2763E+00,.3684E+00,.4786E+00,.5259E+00,.5506E+00,.5853E+00,.6276E+00,.6770E+00,.3313E+00,&
7683  .1877E+00,.2776E+00,.3695E+00,.4807E+00,.5286E+00,.5533E+00,.5877E+00,.6299E+00,.6790E+00,.3323E+00,&
7684  .1893E+00,.2789E+00,.3707E+00,.4828E+00,.5312E+00,.5558E+00,.5899E+00,.6320E+00,.6807E+00,.3334E+00,&
7685  .1908E+00,.2801E+00,.3719E+00,.4849E+00,.5338E+00,.5583E+00,.5922E+00,.6341E+00,.6825E+00,.3345E+00,&
7686  .1923E+00,.2814E+00,.3731E+00,.4870E+00,.5363E+00,.5608E+00,.5944E+00,.6362E+00,.6842E+00,.3356E+00,&
7687  .1939E+00,.2827E+00,.3743E+00,.4891E+00,.5389E+00,.5633E+00,.5967E+00,.6383E+00,.6860E+00,.3367E+00,&
7688  .1954E+00,.2840E+00,.3755E+00,.4912E+00,.5414E+00,.5659E+00,.5990E+00,.6405E+00,.6877E+00,.3378E+00,&
7689  .1969E+00,.2853E+00,.3767E+00,.4933E+00,.5439E+00,.5682E+00,.6011E+00,.6425E+00,.6893E+00,.3389E+00,&
7690  .1984E+00,.2866E+00,.3780E+00,.4953E+00,.5463E+00,.5706E+00,.6032E+00,.6445E+00,.6909E+00,.3401E+00,&
7691  .1999E+00,.2879E+00,.3793E+00,.4974E+00,.5487E+00,.5730E+00,.6054E+00,.6464E+00,.6925E+00,.3413E+00,&
7692  .2014E+00,.2892E+00,.3806E+00,.4995E+00,.5512E+00,.5754E+00,.6075E+00,.6484E+00,.6941E+00,.3425E+00,&
7693  .2029E+00,.2905E+00,.3819E+00,.5015E+00,.5536E+00,.5778E+00,.6096E+00,.6504E+00,.6957E+00,.3436E+00,&
7694  .2044E+00,.2918E+00,.3832E+00,.5035E+00,.5559E+00,.5800E+00,.6116E+00,.6523E+00,.6971E+00,.3449E+00,&
7695  .2058E+00,.2931E+00,.3845E+00,.5055E+00,.5582E+00,.5823E+00,.6136E+00,.6541E+00,.6986E+00,.3461E+00,&
7696  .2073E+00,.2945E+00,.3858E+00,.5075E+00,.5605E+00,.5845E+00,.6156E+00,.6559E+00,.7000E+00,.3473E+00,&
7697  .2088E+00,.2958E+00,.3871E+00,.5095E+00,.5628E+00,.5868E+00,.6176E+00,.6578E+00,.7014E+00,.3485E+00,&
7698  .2103E+00,.2971E+00,.3884E+00,.5115E+00,.5652E+00,.5890E+00,.6196E+00,.6596E+00,.7028E+00,.3497E+00,&
7699  .2117E+00,.2984E+00,.3898E+00,.5135E+00,.5674E+00,.5912E+00,.6215E+00,.6614E+00,.7042E+00,.3510E+00,&
7700  .2132E+00,.2998E+00,.3912E+00,.5155E+00,.5696E+00,.5933E+00,.6234E+00,.6631E+00,.7055E+00,.3523E+00,&
7701  .2146E+00,.3011E+00,.3925E+00,.5174E+00,.5718E+00,.5954E+00,.6253E+00,.6648E+00,.7069E+00,.3535E+00,&
7702  .2161E+00,.3024E+00,.3939E+00,.5194E+00,.5740E+00,.5976E+00,.6272E+00,.6666E+00,.7082E+00,.3548E+00,&
7703  .2175E+00,.3038E+00,.3953E+00,.5214E+00,.5763E+00,.5997E+00,.6291E+00,.6683E+00,.7095E+00,.3561E+00,&
7704  .2189E+00,.3051E+00,.3967E+00,.5233E+00,.5783E+00,.6017E+00,.6309E+00,.6699E+00,.7107E+00,.3573E+00,&
7705  .2204E+00,.3064E+00,.3980E+00,.5252E+00,.5804E+00,.6038E+00,.6327E+00,.6715E+00,.7119E+00,.3586E+00,&
7706  .2218E+00,.3077E+00,.3994E+00,.5271E+00,.5825E+00,.6058E+00,.6345E+00,.6731E+00,.7131E+00,.3599E+00,&
7707  .2232E+00,.3091E+00,.4008E+00,.5290E+00,.5846E+00,.6078E+00,.6363E+00,.6748E+00,.7143E+00,.3612E+00,&
7708  .2246E+00,.3104E+00,.4022E+00,.5310E+00,.5867E+00,.6098E+00,.6381E+00,.6764E+00,.7155E+00,.3624E+00,&
7709  .2257E+00,.3115E+00,.4033E+00,.5325E+00,.5884E+00,.6114E+00,.6395E+00,.6776E+00,.7164E+00,.3635E+00,&
7710  .2269E+00,.3126E+00,.4045E+00,.5341E+00,.5900E+00,.6130E+00,.6409E+00,.6789E+00,.7173E+00,.3646E+00,&
7711  .2281E+00,.3137E+00,.4056E+00,.5356E+00,.5917E+00,.6146E+00,.6423E+00,.6802E+00,.7182E+00,.3656E+00,&
7712  .2292E+00,.3148E+00,.4068E+00,.5372E+00,.5934E+00,.6162E+00,.6437E+00,.6815E+00,.7191E+00,.3667E+00,&
7713  .2304E+00,.3159E+00,.4079E+00,.5387E+00,.5951E+00,.6178E+00,.6451E+00,.6827E+00,.7201E+00,.3678E+00,&
7714  .2315E+00,.3169E+00,.4091E+00,.5403E+00,.5967E+00,.6193E+00,.6464E+00,.6839E+00,.7210E+00,.3689E+00,&
7715  .2327E+00,.3180E+00,.4102E+00,.5418E+00,.5983E+00,.6208E+00,.6478E+00,.6851E+00,.7219E+00,.3699E+00,&
7716  .2338E+00,.3191E+00,.4114E+00,.5433E+00,.5999E+00,.6223E+00,.6491E+00,.6864E+00,.7228E+00,.3710E+00,&
7717  .2349E+00,.3202E+00,.4126E+00,.5448E+00,.6015E+00,.6239E+00,.6505E+00,.6876E+00,.7237E+00,.3721E+00,&
7718  .2361E+00,.3213E+00,.4137E+00,.5463E+00,.6031E+00,.6254E+00,.6518E+00,.6888E+00,.7246E+00,.3732E+00,&
7719  .2372E+00,.3224E+00,.4149E+00,.5478E+00,.6046E+00,.6268E+00,.6531E+00,.6899E+00,.7253E+00,.3742E+00,&
7720  .2383E+00,.3235E+00,.4160E+00,.5493E+00,.6062E+00,.6283E+00,.6544E+00,.6911E+00,.7261E+00,.3753E+00,&
7721  .2394E+00,.3245E+00,.4172E+00,.5508E+00,.6077E+00,.6297E+00,.6557E+00,.6922E+00,.7269E+00,.3764E+00,&
7722  .2405E+00,.3256E+00,.4183E+00,.5522E+00,.6092E+00,.6312E+00,.6569E+00,.6933E+00,.7277E+00,.3775E+00,&
7723  .2416E+00,.3267E+00,.4195E+00,.5537E+00,.6108E+00,.6326E+00,.6582E+00,.6945E+00,.7284E+00,.3785E+00,&
7724  .2427E+00,.3277E+00,.4206E+00,.5552E+00,.6123E+00,.6340E+00,.6594E+00,.6956E+00,.7292E+00,.3796E+00,&
7725  .2438E+00,.3288E+00,.4217E+00,.5566E+00,.6137E+00,.6354E+00,.6607E+00,.6967E+00,.7299E+00,.3807E+00,&
7726  .2449E+00,.3299E+00,.4229E+00,.5581E+00,.6152E+00,.6368E+00,.6619E+00,.6977E+00,.7307E+00,.3817E+00,&
7727  .2460E+00,.3309E+00,.4240E+00,.5595E+00,.6167E+00,.6382E+00,.6631E+00,.6988E+00,.7314E+00,.3828E+00,&
7728  .2471E+00,.3320E+00,.4252E+00,.5609E+00,.6182E+00,.6396E+00,.6643E+00,.6999E+00,.7322E+00,.3839E+00,&
7729  .2488E+00,.3337E+00,.4270E+00,.5632E+00,.6205E+00,.6417E+00,.6662E+00,.7016E+00,.7333E+00,.3856E+00,&
7730  .2506E+00,.3354E+00,.4289E+00,.5655E+00,.6228E+00,.6439E+00,.6681E+00,.7032E+00,.7345E+00,.3873E+00,&
7731  .2523E+00,.3371E+00,.4307E+00,.5677E+00,.6250E+00,.6460E+00,.6700E+00,.7049E+00,.7356E+00,.3890E+00,&
7732  .2540E+00,.3388E+00,.4325E+00,.5700E+00,.6273E+00,.6481E+00,.6718E+00,.7066E+00,.7368E+00,.3908E+00,&
7733  .2558E+00,.3405E+00,.4343E+00,.5722E+00,.6296E+00,.6503E+00,.6737E+00,.7082E+00,.7379E+00,.3925E+00,&
7734  .2578E+00,.3426E+00,.4366E+00,.5749E+00,.6322E+00,.6527E+00,.6759E+00,.7101E+00,.7392E+00,.3946E+00,&
7735  .2599E+00,.3446E+00,.4388E+00,.5776E+00,.6349E+00,.6551E+00,.6780E+00,.7120E+00,.7404E+00,.3967E+00,&
7736  .2620E+00,.3467E+00,.4411E+00,.5803E+00,.6375E+00,.6576E+00,.6801E+00,.7139E+00,.7416E+00,.3988E+00,&
7737  .2640E+00,.3487E+00,.4433E+00,.5829E+00,.6401E+00,.6600E+00,.6823E+00,.7157E+00,.7429E+00,.4008E+00,&
7738  .2661E+00,.3508E+00,.4455E+00,.5856E+00,.6428E+00,.6625E+00,.6844E+00,.7176E+00,.7441E+00,.4029E+00,&
7739  .2686E+00,.3532E+00,.4482E+00,.5887E+00,.6458E+00,.6653E+00,.6869E+00,.7198E+00,.7456E+00,.4054E+00,&
7740  .2719E+00,.3566E+00,.4518E+00,.5930E+00,.6499E+00,.6691E+00,.6902E+00,.7226E+00,.7474E+00,.4088E+00,&
7741  .2748E+00,.3594E+00,.4549E+00,.5966E+00,.6534E+00,.6723E+00,.6930E+00,.7250E+00,.7488E+00,.4118E+00,&
7742  .2776E+00,.3622E+00,.4580E+00,.6001E+00,.6568E+00,.6754E+00,.6956E+00,.7274E+00,.7502E+00,.4147E+00,&
7743  .2817E+00,.3664E+00,.4626E+00,.6053E+00,.6617E+00,.6799E+00,.6996E+00,.7308E+00,.7524E+00,.4190E+00,&
7744  .2850E+00,.3696E+00,.4661E+00,.6093E+00,.6655E+00,.6833E+00,.7026E+00,.7334E+00,.7542E+00,.4223E+00,&
7745  .2890E+00,.3737E+00,.4706E+00,.6143E+00,.6702E+00,.6876E+00,.7063E+00,.7366E+00,.7562E+00,.4266E+00,&
7746  .2930E+00,.3778E+00,.4750E+00,.6192E+00,.6748E+00,.6917E+00,.7099E+00,.7397E+00,.7578E+00,.4308E+00,&
7747  .2974E+00,.3822E+00,.4798E+00,.6246E+00,.6797E+00,.6962E+00,.7137E+00,.7430E+00,.7597E+00,.4353E+00,&
7748  .3030E+00,.3879E+00,.4860E+00,.6313E+00,.6858E+00,.7017E+00,.7185E+00,.7471E+00,.7624E+00,.4412E+00,&
7749  .3085E+00,.3934E+00,.4921E+00,.6378E+00,.6918E+00,.7070E+00,.7231E+00,.7511E+00,.7647E+00,.4470E+00,&
7750  .3159E+00,.4009E+00,.5003E+00,.6465E+00,.6995E+00,.7140E+00,.7291E+00,.7562E+00,.7673E+00,.4548E+00,&
7751  .3235E+00,.4086E+00,.5088E+00,.6553E+00,.7073E+00,.7210E+00,.7351E+00,.7613E+00,.7706E+00,.4629E+00,&
7752  .3332E+00,.4185E+00,.5195E+00,.6663E+00,.7169E+00,.7295E+00,.7424E+00,.7674E+00,.7734E+00,.4732E+00,&
7753  .3455E+00,.4310E+00,.5330E+00,.6799E+00,.7286E+00,.7398E+00,.7513E+00,.7749E+00,.7778E+00,.4862E+00,&
7754  .3593E+00,.4449E+00,.5481E+00,.6947E+00,.7410E+00,.7507E+00,.7606E+00,.7828E+00,.7820E+00,.5008E+00,&
7755  .3811E+00,.4669E+00,.5716E+00,.7169E+00,.7593E+00,.7666E+00,.7742E+00,.7941E+00,.7874E+00,.5236E+00,&
7756  .4082E+00,.4942E+00,.6004E+00,.7430E+00,.7800E+00,.7845E+00,.7893E+00,.8066E+00,.7923E+00,.5520E+00,&
7757  .4573E+00,.5429E+00,.6504E+00,.7853E+00,.8124E+00,.8121E+00,.8126E+00,.8257E+00,.8006E+00,.6021E+00/
7758  data (((g_lw(ai,k,nh),ai= 6, 6),k=1,nwl_lw),nh=0,99)/ &
7759  .4938E+00,.6006E+00,.7052E+00,.7149E+00,.6782E+00,.7073E+00,.7647E+00,.7410E+00,.7147E+00,.6475E+00,&
7760  .4978E+00,.6046E+00,.7123E+00,.7238E+00,.6855E+00,.7127E+00,.7685E+00,.7465E+00,.7177E+00,.6538E+00,&
7761  .5019E+00,.6086E+00,.7194E+00,.7328E+00,.6927E+00,.7182E+00,.7723E+00,.7519E+00,.7207E+00,.6601E+00,&
7762  .5059E+00,.6127E+00,.7265E+00,.7418E+00,.7000E+00,.7236E+00,.7761E+00,.7573E+00,.7238E+00,.6664E+00,&
7763  .5099E+00,.6167E+00,.7336E+00,.7507E+00,.7073E+00,.7290E+00,.7799E+00,.7627E+00,.7268E+00,.6728E+00,&
7764  .5140E+00,.6207E+00,.7407E+00,.7597E+00,.7146E+00,.7344E+00,.7837E+00,.7681E+00,.7298E+00,.6791E+00,&
7765  .5176E+00,.6239E+00,.7446E+00,.7658E+00,.7204E+00,.7389E+00,.7862E+00,.7717E+00,.7333E+00,.6832E+00,&
7766  .5212E+00,.6271E+00,.7485E+00,.7720E+00,.7263E+00,.7433E+00,.7887E+00,.7752E+00,.7367E+00,.6874E+00,&
7767  .5248E+00,.6303E+00,.7524E+00,.7782E+00,.7321E+00,.7477E+00,.7912E+00,.7788E+00,.7402E+00,.6916E+00,&
7768  .5285E+00,.6336E+00,.7563E+00,.7843E+00,.7380E+00,.7522E+00,.7937E+00,.7824E+00,.7436E+00,.6957E+00,&
7769  .5321E+00,.6368E+00,.7602E+00,.7905E+00,.7438E+00,.7566E+00,.7962E+00,.7859E+00,.7471E+00,.6999E+00,&
7770  .5354E+00,.6395E+00,.7628E+00,.7950E+00,.7486E+00,.7602E+00,.7987E+00,.7890E+00,.7487E+00,.7030E+00,&
7771  .5387E+00,.6422E+00,.7654E+00,.7995E+00,.7534E+00,.7638E+00,.8011E+00,.7921E+00,.7502E+00,.7061E+00,&
7772  .5420E+00,.6450E+00,.7680E+00,.8040E+00,.7582E+00,.7674E+00,.8035E+00,.7952E+00,.7518E+00,.7092E+00,&
7773  .5453E+00,.6477E+00,.7706E+00,.8085E+00,.7630E+00,.7710E+00,.8059E+00,.7982E+00,.7534E+00,.7123E+00,&
7774  .5486E+00,.6504E+00,.7732E+00,.8131E+00,.7677E+00,.7747E+00,.8083E+00,.8013E+00,.7549E+00,.7154E+00,&
7775  .5516E+00,.6528E+00,.7752E+00,.8165E+00,.7716E+00,.7778E+00,.8100E+00,.8035E+00,.7574E+00,.7178E+00,&
7776  .5546E+00,.6552E+00,.7772E+00,.8199E+00,.7755E+00,.7810E+00,.8117E+00,.8057E+00,.7599E+00,.7203E+00,&
7777  .5576E+00,.6576E+00,.7791E+00,.8233E+00,.7794E+00,.7842E+00,.8134E+00,.8078E+00,.7625E+00,.7228E+00,&
7778  .5606E+00,.6600E+00,.7811E+00,.8267E+00,.7833E+00,.7874E+00,.8151E+00,.8100E+00,.7650E+00,.7252E+00,&
7779  .5636E+00,.6624E+00,.7830E+00,.8301E+00,.7871E+00,.7906E+00,.8168E+00,.8122E+00,.7675E+00,.7277E+00,&
7780  .5663E+00,.6645E+00,.7846E+00,.8328E+00,.7904E+00,.7931E+00,.8184E+00,.8142E+00,.7685E+00,.7298E+00,&
7781  .5691E+00,.6667E+00,.7862E+00,.8355E+00,.7936E+00,.7955E+00,.8201E+00,.8162E+00,.7696E+00,.7319E+00,&
7782  .5718E+00,.6688E+00,.7878E+00,.8383E+00,.7969E+00,.7980E+00,.8218E+00,.8182E+00,.7707E+00,.7339E+00,&
7783  .5746E+00,.6709E+00,.7894E+00,.8410E+00,.8002E+00,.8004E+00,.8235E+00,.8202E+00,.7718E+00,.7360E+00,&
7784  .5773E+00,.6731E+00,.7910E+00,.8437E+00,.8034E+00,.8029E+00,.8251E+00,.8222E+00,.7728E+00,.7381E+00,&
7785  .5798E+00,.6750E+00,.7924E+00,.8459E+00,.8061E+00,.8052E+00,.8263E+00,.8237E+00,.7744E+00,.7399E+00,&
7786  .5823E+00,.6770E+00,.7938E+00,.8481E+00,.8088E+00,.8074E+00,.8275E+00,.8251E+00,.7760E+00,.7417E+00,&
7787  .5849E+00,.6789E+00,.7952E+00,.8503E+00,.8115E+00,.8097E+00,.8287E+00,.8266E+00,.7776E+00,.7435E+00,&
7788  .5874E+00,.6809E+00,.7965E+00,.8525E+00,.8142E+00,.8120E+00,.8298E+00,.8280E+00,.7792E+00,.7453E+00,&
7789  .5899E+00,.6828E+00,.7979E+00,.8547E+00,.8169E+00,.8142E+00,.8310E+00,.8295E+00,.7808E+00,.7471E+00,&
7790  .5922E+00,.6846E+00,.7991E+00,.8565E+00,.8192E+00,.8161E+00,.8323E+00,.8309E+00,.7821E+00,.7487E+00,&
7791  .5946E+00,.6864E+00,.8003E+00,.8583E+00,.8214E+00,.8179E+00,.8335E+00,.8323E+00,.7834E+00,.7503E+00,&
7792  .5969E+00,.6882E+00,.8016E+00,.8601E+00,.8237E+00,.8197E+00,.8348E+00,.8337E+00,.7847E+00,.7519E+00,&
7793  .5992E+00,.6900E+00,.8028E+00,.8619E+00,.8260E+00,.8216E+00,.8361E+00,.8351E+00,.7860E+00,.7535E+00,&
7794  .6016E+00,.6917E+00,.8040E+00,.8638E+00,.8282E+00,.8234E+00,.8373E+00,.8365E+00,.7874E+00,.7551E+00,&
7795  .6037E+00,.6934E+00,.8051E+00,.8653E+00,.8302E+00,.8250E+00,.8382E+00,.8376E+00,.7880E+00,.7566E+00,&
7796  .6059E+00,.6951E+00,.8062E+00,.8668E+00,.8322E+00,.8266E+00,.8390E+00,.8386E+00,.7887E+00,.7580E+00,&
7797  .6080E+00,.6967E+00,.8073E+00,.8684E+00,.8341E+00,.8282E+00,.8399E+00,.8397E+00,.7893E+00,.7595E+00,&
7798  .6102E+00,.6984E+00,.8084E+00,.8699E+00,.8361E+00,.8298E+00,.8407E+00,.8407E+00,.7900E+00,.7609E+00,&
7799  .6124E+00,.7001E+00,.8095E+00,.8714E+00,.8381E+00,.8314E+00,.8416E+00,.8418E+00,.7906E+00,.7624E+00,&
7800  .6144E+00,.7016E+00,.8105E+00,.8728E+00,.8397E+00,.8328E+00,.8425E+00,.8428E+00,.7919E+00,.7637E+00,&
7801  .6164E+00,.7031E+00,.8116E+00,.8741E+00,.8414E+00,.8342E+00,.8435E+00,.8438E+00,.7932E+00,.7651E+00,&
7802  .6184E+00,.7047E+00,.8126E+00,.8754E+00,.8430E+00,.8357E+00,.8444E+00,.8448E+00,.7945E+00,.7664E+00,&
7803  .6204E+00,.7062E+00,.8136E+00,.8767E+00,.8447E+00,.8371E+00,.8453E+00,.8458E+00,.7958E+00,.7677E+00,&
7804  .6224E+00,.7078E+00,.8146E+00,.8780E+00,.8463E+00,.8385E+00,.8463E+00,.8468E+00,.7971E+00,.7691E+00,&
7805  .6243E+00,.7092E+00,.8156E+00,.8792E+00,.8478E+00,.8397E+00,.8470E+00,.8477E+00,.7975E+00,.7703E+00,&
7806  .6262E+00,.7107E+00,.8165E+00,.8803E+00,.8492E+00,.8409E+00,.8477E+00,.8486E+00,.7978E+00,.7715E+00,&
7807  .6280E+00,.7121E+00,.8174E+00,.8815E+00,.8507E+00,.8421E+00,.8484E+00,.8495E+00,.7982E+00,.7727E+00,&
7808  .6299E+00,.7136E+00,.8184E+00,.8826E+00,.8521E+00,.8433E+00,.8492E+00,.8504E+00,.7985E+00,.7740E+00,&
7809  .6318E+00,.7150E+00,.8193E+00,.8838E+00,.8536E+00,.8444E+00,.8499E+00,.8513E+00,.7989E+00,.7752E+00,&
7810  .6332E+00,.7161E+00,.8201E+00,.8846E+00,.8546E+00,.8453E+00,.8504E+00,.8519E+00,.7998E+00,.7761E+00,&
7811  .6346E+00,.7172E+00,.8208E+00,.8854E+00,.8557E+00,.8462E+00,.8509E+00,.8524E+00,.8007E+00,.7771E+00,&
7812  .6361E+00,.7184E+00,.8215E+00,.8863E+00,.8568E+00,.8471E+00,.8515E+00,.8530E+00,.8015E+00,.7780E+00,&
7813  .6375E+00,.7195E+00,.8222E+00,.8871E+00,.8578E+00,.8480E+00,.8520E+00,.8535E+00,.8024E+00,.7790E+00,&
7814  .6390E+00,.7206E+00,.8230E+00,.8879E+00,.8589E+00,.8489E+00,.8525E+00,.8540E+00,.8033E+00,.7799E+00,&
7815  .6403E+00,.7217E+00,.8237E+00,.8887E+00,.8598E+00,.8497E+00,.8531E+00,.8546E+00,.8040E+00,.7808E+00,&
7816  .6417E+00,.7227E+00,.8244E+00,.8894E+00,.8607E+00,.8505E+00,.8536E+00,.8552E+00,.8048E+00,.7817E+00,&
7817  .6431E+00,.7238E+00,.8251E+00,.8902E+00,.8617E+00,.8513E+00,.8542E+00,.8558E+00,.8055E+00,.7826E+00,&
7818  .6444E+00,.7248E+00,.8258E+00,.8910E+00,.8626E+00,.8521E+00,.8548E+00,.8564E+00,.8062E+00,.7835E+00,&
7819  .6458E+00,.7259E+00,.8265E+00,.8917E+00,.8635E+00,.8529E+00,.8553E+00,.8570E+00,.8070E+00,.7844E+00,&
7820  .6471E+00,.7269E+00,.8271E+00,.8924E+00,.8644E+00,.8536E+00,.8558E+00,.8576E+00,.8071E+00,.7853E+00,&
7821  .6484E+00,.7279E+00,.8278E+00,.8931E+00,.8652E+00,.8544E+00,.8563E+00,.8582E+00,.8073E+00,.7861E+00,&
7822  .6497E+00,.7289E+00,.8284E+00,.8938E+00,.8661E+00,.8551E+00,.8568E+00,.8587E+00,.8075E+00,.7870E+00,&
7823  .6510E+00,.7299E+00,.8291E+00,.8945E+00,.8669E+00,.8558E+00,.8572E+00,.8593E+00,.8076E+00,.7878E+00,&
7824  .6523E+00,.7310E+00,.8298E+00,.8951E+00,.8678E+00,.8565E+00,.8577E+00,.8599E+00,.8078E+00,.7887E+00,&
7825  .6535E+00,.7319E+00,.8304E+00,.8958E+00,.8685E+00,.8571E+00,.8581E+00,.8603E+00,.8083E+00,.7895E+00,&
7826  .6548E+00,.7329E+00,.8310E+00,.8964E+00,.8693E+00,.8578E+00,.8584E+00,.8607E+00,.8088E+00,.7903E+00,&
7827  .6560E+00,.7338E+00,.8316E+00,.8970E+00,.8701E+00,.8585E+00,.8588E+00,.8611E+00,.8094E+00,.7911E+00,&
7828  .6572E+00,.7348E+00,.8323E+00,.8977E+00,.8709E+00,.8591E+00,.8592E+00,.8615E+00,.8099E+00,.7919E+00,&
7829  .6585E+00,.7358E+00,.8329E+00,.8983E+00,.8717E+00,.8598E+00,.8595E+00,.8619E+00,.8104E+00,.7927E+00,&
7830  .6602E+00,.7371E+00,.8338E+00,.8992E+00,.8727E+00,.8607E+00,.8602E+00,.8626E+00,.8114E+00,.7938E+00,&
7831  .6620E+00,.7385E+00,.8347E+00,.9000E+00,.8737E+00,.8616E+00,.8608E+00,.8633E+00,.8125E+00,.7949E+00,&
7832  .6637E+00,.7399E+00,.8356E+00,.9008E+00,.8747E+00,.8625E+00,.8615E+00,.8639E+00,.8135E+00,.7961E+00,&
7833  .6654E+00,.7412E+00,.8364E+00,.9017E+00,.8757E+00,.8633E+00,.8621E+00,.8646E+00,.8145E+00,.7972E+00,&
7834  .6672E+00,.7426E+00,.8373E+00,.9025E+00,.8768E+00,.8642E+00,.8628E+00,.8653E+00,.8155E+00,.7983E+00,&
7835  .6695E+00,.7444E+00,.8385E+00,.9036E+00,.8780E+00,.8653E+00,.8635E+00,.8661E+00,.8161E+00,.7998E+00,&
7836  .6719E+00,.7463E+00,.8397E+00,.9047E+00,.8793E+00,.8664E+00,.8642E+00,.8669E+00,.8167E+00,.8014E+00,&
7837  .6742E+00,.7481E+00,.8409E+00,.9058E+00,.8806E+00,.8675E+00,.8648E+00,.8677E+00,.8173E+00,.8029E+00,&
7838  .6765E+00,.7500E+00,.8421E+00,.9068E+00,.8819E+00,.8686E+00,.8655E+00,.8685E+00,.8179E+00,.8044E+00,&
7839  .6789E+00,.7518E+00,.8433E+00,.9079E+00,.8831E+00,.8697E+00,.8662E+00,.8693E+00,.8186E+00,.8059E+00,&
7840  .6812E+00,.7537E+00,.8445E+00,.9090E+00,.8843E+00,.8708E+00,.8670E+00,.8701E+00,.8204E+00,.8075E+00,&
7841  .6846E+00,.7563E+00,.8463E+00,.9104E+00,.8861E+00,.8723E+00,.8682E+00,.8715E+00,.8223E+00,.8096E+00,&
7842  .6879E+00,.7590E+00,.8480E+00,.9119E+00,.8877E+00,.8738E+00,.8694E+00,.8725E+00,.8232E+00,.8118E+00,&
7843  .6912E+00,.7615E+00,.8496E+00,.9132E+00,.8892E+00,.8750E+00,.8704E+00,.8738E+00,.8243E+00,.8139E+00,&
7844  .6948E+00,.7644E+00,.8515E+00,.9147E+00,.8910E+00,.8765E+00,.8712E+00,.8751E+00,.8246E+00,.8162E+00,&
7845  .6983E+00,.7672E+00,.8533E+00,.9162E+00,.8926E+00,.8780E+00,.8721E+00,.8759E+00,.8265E+00,.8185E+00,&
7846  .7018E+00,.7700E+00,.8551E+00,.9176E+00,.8941E+00,.8794E+00,.8733E+00,.8771E+00,.8285E+00,.8207E+00,&
7847  .7053E+00,.7728E+00,.8569E+00,.9189E+00,.8957E+00,.8808E+00,.8745E+00,.8783E+00,.8305E+00,.8230E+00,&
7848  .7092E+00,.7759E+00,.8589E+00,.9205E+00,.8973E+00,.8822E+00,.8757E+00,.8797E+00,.8317E+00,.8255E+00,&
7849  .7137E+00,.7794E+00,.8612E+00,.9222E+00,.8992E+00,.8839E+00,.8767E+00,.8812E+00,.8326E+00,.8283E+00,&
7850  .7188E+00,.7835E+00,.8638E+00,.9241E+00,.9012E+00,.8857E+00,.8781E+00,.8827E+00,.8354E+00,.8316E+00,&
7851  .7240E+00,.7877E+00,.8665E+00,.9260E+00,.9033E+00,.8876E+00,.8800E+00,.8843E+00,.8378E+00,.8349E+00,&
7852  .7313E+00,.7934E+00,.8701E+00,.9286E+00,.9059E+00,.8900E+00,.8817E+00,.8867E+00,.8401E+00,.8394E+00,&
7853  .7391E+00,.7997E+00,.8740E+00,.9313E+00,.9088E+00,.8927E+00,.8843E+00,.8893E+00,.8446E+00,.8443E+00,&
7854  .7480E+00,.8067E+00,.8784E+00,.9342E+00,.9118E+00,.8955E+00,.8866E+00,.8921E+00,.8478E+00,.8498E+00,&
7855  .7596E+00,.8157E+00,.8841E+00,.9379E+00,.9155E+00,.8992E+00,.8902E+00,.8964E+00,.8530E+00,.8568E+00,&
7856  .7726E+00,.8259E+00,.8903E+00,.9418E+00,.9195E+00,.9032E+00,.8945E+00,.9009E+00,.8600E+00,.8645E+00,&
7857  .7910E+00,.8400E+00,.8986E+00,.9471E+00,.9250E+00,.9091E+00,.9007E+00,.9076E+00,.8704E+00,.8749E+00,&
7858  .8196E+00,.8613E+00,.9108E+00,.9546E+00,.9335E+00,.9192E+00,.9128E+00,.9197E+00,.8867E+00,.8901E+00/
7859  data (((g_lw(ai,k,nh),ai= 7, 7),k=1,nwl_lw),nh=0,99)/ &
7860  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7861  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7862  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7863  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7864  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7865  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7866  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7867  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7868  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7869  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7870  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7871  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7872  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7873  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7874  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7875  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7876  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7877  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7878  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7879  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7880  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7881  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7882  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7883  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7884  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7885  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7886  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7887  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7888  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7889  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7890  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7891  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7892  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7893  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7894  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7895  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7896  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7897  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7898  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7899  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7900  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7901  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7902  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7903  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7904  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7905  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7906  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7907  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7908  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7909  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7910  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7911  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7912  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7913  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7914  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7915  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7916  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7917  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7918  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7919  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7920  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7921  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7922  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7923  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7924  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7925  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7926  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7927  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7928  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7929  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7930  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7931  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7932  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7933  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7934  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7935  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7936  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7937  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7938  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7939  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7940  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7941  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7942  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7943  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7944  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7945  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7946  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7947  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7948  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7949  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7950  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7951  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7952  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7953  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7954  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7955  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7956  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7957  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7958  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01,&
7959  .1764E-01,.4051E-01,.4930E-01,.8817E-01,.1561E+00,.8955E-01,.1028E+00,.1524E+00,.2399E+00,.3638E-01/
7960  data (((g_lw(ai,k,nh),ai= 8, 8),k=1,nwl_lw),nh=0,99)/ &
7961  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7962  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7963  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7964  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7965  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7966  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7967  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7968  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7969  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7970  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7971  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7972  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7973  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7974  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7975  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7976  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7977  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7978  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7979  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7980  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7981  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7982  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7983  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7984  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7985  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7986  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7987  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7988  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7989  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7990  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7991  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7992  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7993  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7994  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7995  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7996  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7997  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7998  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
7999  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8000  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8001  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8002  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8003  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8004  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8005  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8006  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8007  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8008  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8009  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8010  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8011  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8012  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8013  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8014  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8015  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8016  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8017  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8018  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8019  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8020  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8021  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8022  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8023  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8024  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8025  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8026  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8027  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8028  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8029  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8030  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8031  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8032  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8033  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8034  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8035  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8036  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8037  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8038  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8039  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8040  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8041  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8042  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8043  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8044  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8045  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8046  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8047  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8048  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8049  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8050  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8051  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8052  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8053  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8054  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8055  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8056  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8057  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8058  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8059  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01,&
8060  .4977E-01,.9713E-01,.1083E+00,.1703E+00,.2366E+00,.1724E+00,.1964E+00,.2661E+00,.3673E+00,.8486E-01/
8061  data (((g_lw(ai,k,nh),ai= 9, 9),k=1,nwl_lw),nh=0,99)/ &
8062  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8063  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8064  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8065  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8066  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8067  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8068  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8069  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8070  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8071  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8072  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8073  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8074  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8075  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8076  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8077  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8078  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8079  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8080  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8081  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8082  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8083  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8084  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8085  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8086  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8087  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8088  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8089  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8090  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8091  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8092  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8093  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8094  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8095  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8096  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8097  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8098  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8099  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8100  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8101  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8102  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8103  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8104  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8105  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8106  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8107  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8108  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8109  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8110  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8111  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8112  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8113  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8114  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8115  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8116  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8117  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8118  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8119  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8120  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8121  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8122  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8123  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8124  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8125  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8126  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8127  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8128  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8129  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8130  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8131  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8132  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8133  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8134  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8135  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8136  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8137  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8138  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8139  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8140  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8141  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8142  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8143  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8144  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8145  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8146  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8147  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8148  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8149  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8150  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8151  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8152  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8153  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8154  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8155  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8156  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8157  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8158  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8159  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8160  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00,&
8161  .1276E+00,.1922E+00,.2158E+00,.2880E+00,.3066E+00,.3104E+00,.3506E+00,.4227E+00,.5097E+00,.1828E+00/
8162  data (((g_lw(ai,k,nh),ai=10,10),k=1,nwl_lw),nh=0,99)/ &
8163  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8164  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8165  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8166  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8167  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8168  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8169  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8170  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8171  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8172  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8173  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8174  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8175  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8176  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8177  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8178  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8179  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8180  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8181  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8182  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8183  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8184  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8185  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8186  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8187  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8188  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8189  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8190  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8191  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8192  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8193  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8194  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8195  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8196  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8197  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8198  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8199  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8200  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8201  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8202  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8203  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8204  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8205  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8206  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8207  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8208  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8209  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8210  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8211  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8212  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8213  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8214  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8215  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8216  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8217  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8218  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8219  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8220  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8221  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8222  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8223  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8224  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8225  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8226  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8227  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8228  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8229  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8230  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8231  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8232  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8233  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8234  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8235  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8236  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8237  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8238  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8239  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8240  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8241  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8242  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8243  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8244  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8245  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8246  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8247  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8248  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8249  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8250  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8251  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8252  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8253  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8254  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8255  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8256  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8257  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8258  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8259  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8260  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8261  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00,&
8262  .2216E+00,.2753E+00,.3362E+00,.3917E+00,.3482E+00,.4622E+00,.5122E+00,.5561E+00,.6083E+00,.3031E+00/
8263  data (((g_lw(ai,k,nh),ai=11,11),k=1,nwl_lw),nh=0,99)/ &
8264  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8265  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8266  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8267  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8268  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8269  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8270  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8271  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8272  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8273  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8274  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8275  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8276  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8277  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8278  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8279  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8280  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8281  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8282  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8283  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8284  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8285  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8286  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8287  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8288  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8289  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8290  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8291  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8292  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8293  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8294  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8295  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8296  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8297  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8298  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8299  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8300  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8301  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8302  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8303  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8304  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8305  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8306  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8307  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8308  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8309  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8310  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8311  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8312  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8313  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8314  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8315  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8316  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8317  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8318  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8319  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8320  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8321  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8322  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8323  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8324  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8325  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8326  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8327  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8328  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8329  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8330  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8331  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8332  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8333  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8334  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8335  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8336  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8337  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8338  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8339  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8340  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8341  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8342  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8343  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8344  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8345  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8346  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8347  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8348  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8349  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8350  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8351  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8352  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8353  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8354  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8355  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8356  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8357  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8358  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8359  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8360  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8361  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8362  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00,&
8363  .3038E+00,.3371E+00,.4529E+00,.4747E+00,.3811E+00,.6079E+00,.6554E+00,.6541E+00,.6672E+00,.4285E+00/
8364  data (((g_lw(ai,k,nh),ai=12,12),k=1,nwl_lw),nh=0,99)/ &
8365  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8366  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8367  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8368  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8369  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8370  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8371  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8372  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8373  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8374  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8375  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8376  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8377  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8378  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8379  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8380  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8381  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8382  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8383  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8384  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8385  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8386  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8387  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8388  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8389  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8390  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8391  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8392  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8393  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8394  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8395  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8396  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8397  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8398  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8399  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8400  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8401  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8402  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8403  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8404  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8405  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8406  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8407  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8408  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8409  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8410  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8411  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8412  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8413  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8414  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8415  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8416  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8417  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8418  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8419  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8420  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8421  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8422  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8423  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8424  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8425  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8426  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8427  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8428  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8429  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8430  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8431  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8432  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8433  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8434  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8435  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8436  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8437  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8438  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8439  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8440  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8441  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8442  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8443  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8444  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8445  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8446  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8447  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8448  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8449  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8450  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8451  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8452  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8453  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8454  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8455  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8456  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8457  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8458  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8459  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8460  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8461  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8462  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8463  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00,&
8464  .3628E+00,.3826E+00,.5498E+00,.5366E+00,.4239E+00,.7224E+00,.7580E+00,.7138E+00,.6936E+00,.5385E+00/
8465  data (((g_lw(ai,k,nh),ai=13,13),k=1,nwl_lw),nh=0,99)/ &
8466  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8467  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8468  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8469  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8470  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8471  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8472  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8473  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8474  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8475  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8476  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8477  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8478  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8479  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8480  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8481  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8482  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8483  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8484  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8485  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8486  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8487  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8488  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8489  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8490  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8491  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8492  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8493  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8494  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8495  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8496  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8497  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8498  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8499  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8500  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8501  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8502  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8503  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8504  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8505  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8506  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8507  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8508  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8509  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8510  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8511  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8512  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8513  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8514  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8515  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8516  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8517  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8518  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8519  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8520  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8521  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8522  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8523  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8524  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8525  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8526  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8527  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8528  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8529  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8530  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8531  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8532  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8533  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8534  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8535  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8536  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8537  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8538  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8539  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8540  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8541  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8542  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8543  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8544  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8545  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8546  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8547  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8548  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8549  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8550  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8551  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8552  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8553  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8554  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8555  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8556  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8557  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8558  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8559  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8560  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8561  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8562  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8563  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8564  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00,&
8565  .4133E+00,.4348E+00,.6366E+00,.5964E+00,.5163E+00,.8142E+00,.8304E+00,.7488E+00,.7046E+00,.6401E+00/
8566  data (((g_lw(ai,k,nh),ai=14,14),k=1,nwl_lw),nh=0,99)/ &
8567  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8568  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8569  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8570  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8571  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8572  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8573  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8574  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8575  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8576  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8577  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8578  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8579  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8580  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8581  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8582  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8583  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8584  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8585  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8586  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8587  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8588  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8589  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8590  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8591  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8592  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8593  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8594  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8595  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8596  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8597  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8598  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8599  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8600  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8601  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8602  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8603  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8604  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8605  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8606  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8607  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8608  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8609  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8610  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8611  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8612  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8613  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8614  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8615  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8616  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8617  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8618  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8619  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8620  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8621  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8622  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8623  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8624  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8625  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8626  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8627  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8628  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8629  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8630  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8631  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8632  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8633  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8634  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8635  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8636  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8637  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8638  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8639  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8640  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8641  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8642  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8643  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8644  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8645  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8646  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8647  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8648  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8649  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8650  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8651  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8652  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8653  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8654  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8655  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8656  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8657  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8658  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8659  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8660  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8661  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8662  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8663  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8664  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8665  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00,&
8666  .4592E+00,.5048E+00,.6980E+00,.6575E+00,.6399E+00,.8711E+00,.8660E+00,.7663E+00,.7222E+00,.7096E+00/
8667
8668  contains
8669
8670 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
8671 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
8672
8673  subroutine init_opac
8674  implicit none
8675 !------------------------------------------------------------------------
8676 ! Comments: Initialize OPAC aerosol microphysics parameters.
8677 !
8678 ! History;
8679 ! 10/2010  Toshi Matsui ; Initial.
8680 !
8681 ! Reference
8682 ! M. Hess, P. Koepke, and I. Schult (1998): Optical Properties of Aerosols and clouds:
8683 !    The software package OPAC, Bull. Am. Met. Soc., 79, 831-844.
8684 !------------------------------------------------------------------------
8685
8686 !
8687 ! Microphysical properties of aerosol components in dry state. Parameters are linked to
8688 !  OPAC log-normal PSD function.
8689 !
8690  std%inso = 2.51e0 ; r_mode%inso = 0.471e0 ; r_min%inso = 0.005e0 ; r_max%inso = 20.0e0 ; rho%inso = 2.0e0
8691  std%waso = 2.24e0 ; r_mode%waso = 0.0212e0; r_min%waso = 0.005e0 ; r_max%waso = 20.0e0 ; rho%waso = 1.8e0
8692  std%soot = 2.00e0 ; r_mode%soot = 0.0118e0; r_min%soot = 0.005e0 ; r_max%soot = 20.0e0 ; rho%soot = 1.0e0
8693  std%ssam = 2.03e0 ; r_mode%ssam = 0.209e0 ; r_min%ssam = 0.005e0 ; r_max%ssam = 20.0e0 ; rho%ssam = 2.2e0
8694  std%sscm = 2.03e0 ; r_mode%sscm = 1.750e0 ; r_min%sscm = 0.005e0 ; r_max%sscm = 60.0e0 ; rho%sscm = 2.2e0
8695  std%minm = 1.95e0 ; r_mode%minm = 0.070e0 ; r_min%minm = 0.005e0 ; r_max%minm = 20.0e0 ; rho%minm = 2.6e0
8696  std%miam = 2.00e0 ; r_mode%miam = 0.390e0 ; r_min%miam = 0.005e0 ; r_max%miam = 20.0e0 ; rho%miam = 2.6e0
8697  std%micm = 2.15e0 ; r_mode%micm = 1.900e0 ; r_min%micm = 0.005e0 ; r_max%micm = 60.0e0 ; rho%micm = 2.6e0
8698  std%mitr = 2.20e0 ; r_mode%mitr = 0.500e0 ; r_min%mitr = 0.020e0 ; r_max%mitr =  5.0e0 ; rho%mitr = 2.6e0
8699  std%suso = 2.03e0 ; r_mode%suso = 0.0695e0; r_min%suso = 0.005e0 ; r_max%suso = 20.0e0 ; rho%suso = 1.7e0
8700
8701  end subroutine init_opac
8702
8703 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
8704 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
8705
8706  subroutine mass2ccn(t_air,s,aero,ccn_out)
8707  implicit none
8708 !------------------------------------------------------------------------
8709 ! Comments: Convert GOCART aerosol mass concentrations into CCN number conc
8710 !  as a function of temperature and super saturation rate following Kohler equation.
8711 !
8712 !  - LUT approach -
8713 !  LUT approach is much faster than actual resolution of Kohler routine.
8714 !  Accuracy of LUT approach is generally within 3% (and mean accuracy is 0.41% in C3VP exp).
8715 !  Accuracy is defined as
8716 !  Accuracy[%] = abs(CCN_lut-CCN_nonlut)/CCN_non_lut * 100
8717 !
8718 ! Note that tgmx = 14 : aerosol type (see below), and aero must be in the following order.
8719 !  #
8720 !  1 = SO4      ! sulfur and its precure
8721 !  2 = BC1+BC2  ! black carbon (soot)
8722 !  3 = OC1      ! non hygroscopic OC
8723 !  4 = OC2      ! hygroscopic OC
8724 !  5 = SS1      ! sea-salt accumulation mode
8725 !  6 = SS2+SS3+SS4 !sea-salt coarse mode
8726 !  7 = DU1      ! dust mode 1
8727 !  8 = DU1      ! dust mode 2
8728 !  9 = DU1      ! dust mode 3
8729 ! 10 = DU1      ! dust mode 4
8730 ! 11 = DU2      ! dust mode 5
8731 ! 12 = DU3      ! dust mode 6
8732 ! 13 = DU4      ! dust mode 7
8733 ! 14 = DU5      ! dust mode 8
8734 !
8735 ! History;
8736 ! 02/2007  Toshi Matsui ; Initial.
8737 !------------------------------------------------------------------------
8738  real,intent(in) :: t_air !air temperature [K]
8739  real,intent(in) :: s     !super saturation rate [%]
8740  real,intent(in) :: aero(tgmx) !aerosol mass conc [g/m3]
8741  real,intent(out) :: ccn_out  ! CCN concentration [#/cm3]
8742
8743  integer :: im !looping
8744  real :: ccn   !accmulating CCN conc [#/cm3]
8745  real :: lut_ccn_interp(tgmx) ! interpolated LUT value
8746
8747
8748  ccn_out = 0.e0
8749
8750 !
8751 ! If no super saturation....
8752 !
8753  if( s <= 0.e0 ) then
8754      ccn_out = 0.e0  !total number conc of CCN [#/cm3]
8755      return
8756  endif
8757
8758
8759  ccn = 0.e0      !initialize
8760
8761 !
8762 ! interpolate LUT for a given air temperature and super saturation
8763 !
8764  call interp( t_air, s, lut_ccn_interp )
8765
8766 !
8767 ! convert aerosol mass mixing ratio into CCN conc
8768 !
8769  do im = 1, tgmx
8770
8771     ccn = ccn + aero(im)*lut_ccn_interp(im)  ! CCN conc [#/cm3]
8772
8773  enddo
8774
8775 !
8776 ! CCN conc ranges from 100 ~ 10000 per cubic centimeter
8777 !
8778  ccn_out = min(10000.e0, max(100.e0, ccn) )  !total number conc of CCN [#/cm3]
8779
8780  end subroutine mass2ccn
8781
8782 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
8783 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
8784
8785  subroutine interp(t_air,s_rate,lut_ccn_interp)
8786  implicit none
8787
8788 !------------------------------------------------------------------------
8789 ! Comments: Interpolate CCN LUT for a given temperature and super saturation
8790 !           rate.
8791 !
8792 ! History;
8793 ! 02/2007  Toshi Matsui ; Initial.
8794 !------------------------------------------------------------------------
8795
8796  real,intent(in) :: t_air  !air temperature [K]
8797  real,intent(in) :: s_rate !super saturation rate [%]
8798
8799  real,intent(out) :: lut_ccn_interp(1:tgmx)  !interpolated CCN LUT for a given temperature and super sat rate.
8800
8801  real :: t, s  !temperature and super saturation rate
8802  integer :: it, is  !looping indice
8803  real :: wgt1_t, wgt2_t ! weight for interpolation
8804  real :: wgt1_s, wgt2_s ! weight for interpolation!
8805
8806
8807  t = t_air   !temperature [K]
8808  if( t_air < pts_t(1)       ) t = pts_t(1)
8809  if( t_air > pts_t(mxpts_t) ) t = pts_t(mxpts_t)
8810
8811  s = s_rate  !super saturation rate [%]
8812  if( s_rate < pts_s(1)      ) s = pts_s(1)
8813  if( s_rate > pts_s(mxpts_s)) s = pts_s(mxpts_s)
8814
8815
8816  it_loop: do it = 1, mxpts_t-1
8817     if( t >= pts_t(it) .and. t <= pts_t(it+1) ) then
8818       wgt1_t = (pts_t(it+1) - t) / ( pts_t(it+1) - pts_t(it) )
8819       wgt2_t = 1.e0-wgt1_t
8820
8821       do is = 1, mxpts_s-1
8822          if( s >= pts_s(is) .and. s <= pts_s(is+1) ) then
8823              wgt1_s = (pts_s(is+1) - s) / ( pts_s(is+1) - pts_s(is) )
8824              wgt2_s = 1.e0-wgt1_s
8825
8826              !
8827              ! interpolation of 4 point
8828              !
8829              lut_ccn_interp(1:tgmx) =  &
8830                ( lut_ccn(it,is  ,1:tgmx)*wgt1_t + lut_ccn(it+1,is  ,1:tgmx)*wgt2_t ) * wgt1_s &
8831              + ( lut_ccn(it,is+1,1:tgmx)*wgt1_t + lut_ccn(it+1,is+1,1:tgmx)*wgt2_t ) * wgt2_s
8832
8833              exit it_loop
8834
8835          endif
8836       enddo
8837
8838     endif
8839  enddo it_loop
8840
8841  end subroutine interp
8842
8843 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
8844 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
8845
8846  subroutine mass2icn(p_air,t_air,aero,icn_out,ii,jj,kk)
8847 #ifndef NO_IEEE_MODULE
8848  use, intrinsic :: ieee_arithmetic
8849 #endif
8850  implicit none
8851 !------------------------------------------------------------------------
8852 ! Comments: Convert GOCART aerosol mass concentrations into IN number conc
8853 !           as a function of aimbient temperature following DeMott's empirical
8854 !           formulae [DeMott et al. 2010].
8855 !
8856 ! Note that tgmx = 14 : aerosol type (see below), and aero must be in the following order.
8857 !  #
8858 !  1 = SO4      ! sulfur and its precure
8859 !  2 = BC1+BC2  ! black carbon (soot)
8860 !  3 = OC1      ! non hygroscopic OC
8861 !  4 = OC2      ! hygroscopic OC
8862 !  5 = SS1      ! sea-salt accumulation mode
8863 !  6 = SS2+SS3+SS4 !sea-salt coarse mode
8864 !  7 = DU1      ! dust mode 1
8865 !  8 = DU1      ! dust mode 2
8866 !  9 = DU1      ! dust mode 3
8867 ! 10 = DU1      ! dust mode 4
8868 ! 11 = DU2      ! dust mode 5
8869 ! 12 = DU3      ! dust mode 6
8870 ! 13 = DU4      ! dust mode 7
8871 ! 14 = DU5      ! dust mode 8
8872 !
8873 ! History;
8874 ! 02/2007  Toshi Matsui@NASA GSFC ; Initial.
8875 !
8876 ! Citations
8877 ! DeMott, P. J., Coauthors 2010: Predicting global atmospheric ice nuclei distributions and
8878 !     their impacts on climate. Proc. Natl. Acad. Sci. USA, 107:11217-11222.
8879 !
8880 !------------------------------------------------------------------------
8881  real,intent(in) :: p_air !air pressure [hPa]
8882  real,intent(in) :: t_air !air temperature [K]
8883  real,intent(in) :: aero(tgmx) !aerosol mass conc [g/m3]
8884  real,intent(out) :: icn_out  ! IN concentration [#/L]
8885
8886  integer :: is !loop
8887  integer, intent(in) :: ii, jj, kk
8888  real :: n_025_tot ! total number conc of aerosol radius > 0.25 micron [#/cm3]
8889  real :: n_025_std  ! aerosol (r>0.25micron) conc in starndard atmosphere [#/scm3]
8890  real :: icn_std    ! ice nuclei conc in starndard atmosphere [#/scm3]
8891  real :: t_fact    !temperature factor
8892  real :: icn_estimate ! estimated IN concentration [#/L]
8893  integer :: result
8894 ! coefficient of empirical formulae in DeMott 2010
8895  real,parameter :: a = 0.0000594e0
8896  real,parameter :: b = 3.33e0
8897  real,parameter :: c = 0.0264e0
8898  real,parameter :: d = 0.0033
8899
8900  real,parameter :: p_std = 1013.e0  !standard pressure [hPa]
8901  real,parameter :: t_std = 273.16e0 !standard temperature [K]
8902
8903  icn_out = 0.e0
8904
8905  if( maxval( lut_in_025 ) == 0.e0 ) stop 'MSG mass2icn: you have not initialize lut_in_025 yet. Stop program'
8906
8907 !
8908 ! Essentially integrate non-hygroscopic aerosols
8909 !
8910  n_025_tot = 0.e0
8911
8912  do is = 1, tgmx
8913     n_025_tot = n_025_tot + lut_in_025(is)*aero(is)  ! accumulating aerosol conc [#/cm3]
8914  enddo
8915
8916 !
8917 ! now convert everything into standard cm-3 (T=273k, P=1013mb).
8918 !
8919  n_025_std = n_025_tot * p_std*t_air/(p_air*t_std)  ! [scm-3]
8920
8921 !
8922 ! empirical formulae in DeMott 2010 based on starndard atmosphere.
8923 !
8924  t_fact = max(0.e0, 273.16e0 - t_air )   ! air temprature in deg celcius [degC]
8925
8926  icn_std =  a * (t_fact**b) * (n_025_std**( c*t_fact + d ))  ! total number conc of IN [#/std L]
8927
8928 !
8929 ! convert standard atmos value back to the actual model atmos condition.
8930 !
8931  icn_estimate = icn_std * (p_air*t_std) / (p_std*t_air)  ! [#/std L] --> [#/L]
8932
8933 #ifndef NO_IEEE_MODULE
8934          if( ieee_is_nan( icn_estimate ) ) then
8935             print*, 'NAN in mass2icn, i,j,k, icn_estimate = ', ii, jj, kk, icn_estimate
8936             print*, 'icn_std, t_std, p_std, p_air, t_air =', icn_std, t_std, p_std, p_air, t_air
8937             print*, 'aero = ', aero
8938          endif
8939          if( .NOT. ieee_is_finite( icn_estimate ) ) then
8940             print*, 'INF in mass2icn, i,j,k, icn_estimate = ', ii, jj, kk, icn_estimate
8941             print*, 'icn_std, t_std, p_std, p_air, t_air =', icn_std, t_std, p_std, p_air, t_air
8942             print*, 'aero = ', aero
8943          endif
8944 #endif
8945
8946 !
8947 ! IN conc ranges from 100 ~ 1000000 per litter based on DeMott et al. 2010 PNAS.
8948 !
8949 ! icn_out = min(1.e6, max(1.e2 ,  icn_estimate) )  ! [#/L]
8950  icn_out = min(1.e3, max(0.01e0 ,  icn_estimate) )  ! [#/L]
8951
8952  end subroutine mass2icn
8953
8954 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
8955 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
8956
8957  subroutine makelut_ccn_icn
8958  implicit none
8959 !------------------------------------------------------------------------
8960 ! Comments: Create CCN and IN candidate look-up table as a function of super saturation rate
8961 !  and ambient temperature.
8962 !
8963 ! History;
8964 ! 10/2010  Toshi Matsui ; Initial.
8965 !
8966 ! Reference
8967 !------------------------------------------------------------------------
8968  real,parameter :: q_in= 1.e0 !mass mixing ratio [g/m3]
8969  real :: n_ccn     ! CCN concentration [#/cm3]
8970  real :: frac_ccn  ! mass fraction of CCN for CN [-]
8971  real :: n_gccn    ! GCCN concentration [#/cm3]
8972  real :: frac_gccn ! mass fraction of GCCN for CN [-]
8973  real :: n_025     ! IN candidate concentration [#/cm3]
8974  real :: frac_025  ! mass fraction of IN candidate for CN [-]
8975
8976  real :: t_air     ! air temprature [K]
8977  real :: vant_fac  ! van't Hoff factor [-]
8978  real :: mol_wgt   ! molecular weight of the chemical compnent of CN
8979  real :: s         ! super saturation rate
8980  integer :: is, it ! for looping
8981
8982  print *,' inside makelut_ccn_icn '
8983
8984  if(master) print*,'MSG: makelut_ccn_icn: making LUT of CCN and IN'
8985
8986  call init_opac
8987
8988 !
8989 ! hygroscopic species for Cloud Condensation Nuclei (CCN)
8990 !
8991  lut_in_025 = 0.e0  !initialize zero [#/cm3]
8992
8993  lut_ccn = 0.e0       ! initialize
8994
8995  TEMP_LOOP: do it = 1, mxpts_t
8996     t_air = pts_t(it) ! temprature [K]
8997
8998  SAT_LOOP : do is = 1, mxpts_s
8999     s = pts_s(is)     ! super saturation rate  [%]
9000
9001     ! Sulfate
9002     vant_fac = 3.e0  ; mol_wgt = 132.13e0   ! (NH4)2SO4
9003     call ccn_estimate( q_in,  s, t_air, vant_fac, mol_wgt, std%suso, r_mode%suso, r_min%suso, &
9004 !                       r_max%suso, rho%suso , lut_ccn(it,is,1), frac_ccn, n_gccn, frac_gccn,n_025,frac_025)
9005                         r_max%suso, rho%suso , lut_ccn(it,is,1), frac_ccn, n_gccn, frac_gccn,lut_in_025(1),frac_025)
9006
9007     ! hydrophilic organic carbon (chemistry is treated as sulfate)
9008     ! water soluble
9009     vant_fac = 3.e0  ; mol_wgt = 132.13e0   ! (NH4)2SO4
9010     call ccn_estimate( q_in,  s, t_air, vant_fac, mol_wgt, std%waso, r_mode%waso, r_min%waso, &
9011 !                       r_max%waso, rho%waso , lut_ccn(it,is,4) , frac_ccn, n_gccn, frac_gccn,n_025,frac_025)
9012                        r_max%waso, rho%waso , lut_ccn(it,is,4) , frac_ccn, n_gccn, frac_gccn,lut_in_025(4),frac_025)
9013     ! Seasalt accumulation mode
9014     vant_fac = 2.e0  ; mol_wgt = 58.44e0   ! NaCL
9015     call ccn_estimate( q_in,  s, t_air, vant_fac, mol_wgt, std%ssam, r_mode%ssam, r_min%ssam, &
9016 !                       r_max%ssam, rho%ssam , lut_ccn(it,is,5), frac_ccn, n_gccn, frac_gccn,n_025,frac_025)
9017                        r_max%ssam, rho%ssam , lut_ccn(it,is,5), frac_ccn, n_gccn, frac_gccn,lut_in_025(5),frac_025)
9018
9019     ! Seasalt coarse mode
9020     vant_fac = 2.e0  ; mol_wgt = 58.44e0   ! NaCL
9021     call ccn_estimate( q_in,  s, t_air, vant_fac, mol_wgt, std%sscm, r_mode%sscm, r_min%sscm, &
9022 !                       r_max%sscm, rho%sscm , lut_ccn(it,is,6), frac_ccn, n_gccn, frac_gccn,n_025,frac_025)
9023                        r_max%sscm, rho%sscm , lut_ccn(it,is,6), frac_ccn, n_gccn, frac_gccn,lut_in_025(6),frac_025)
9024
9025
9026  enddo SAT_LOOP
9027
9028  enddo TEMP_LOOP
9029
9030 !
9031 ! Non-hygroscopic species for IN
9032 !
9033 !    lut_in_025 = 0.e0  !initialize zero [#/cm3]
9034
9035     ! soot
9036     vant_fac = 3.e0  ; mol_wgt = 132.13e0   ! (NH4)2SO4  --> fake
9037     call ccn_estimate( q_in,  s, t_air, vant_fac, mol_wgt, std%soot, r_mode%soot, r_min%soot, &
9038                        r_max%soot, rho%soot , n_ccn, frac_ccn, n_gccn, frac_gccn,lut_in_025(2),frac_025)
9039
9040     ! insoluble organic carbon
9041     vant_fac = 3.e0  ; mol_wgt = 132.13e0   ! (NH4)2SO4  --> fake
9042     call ccn_estimate( q_in,  s, t_air, vant_fac, mol_wgt, std%inso, r_mode%inso, r_min%inso, &
9043                        r_max%inso, rho%inso , n_ccn, frac_ccn, n_gccn, frac_gccn,lut_in_025(3),frac_025)
9044
9045     ! dust mode 1
9046     vant_fac = 3.e0  ; mol_wgt = 132.13e0   ! (NH4)2SO4  --> fake
9047     call ccn_estimate( q_in,  s, t_air, vant_fac, mol_wgt, std%minm, 0.0421, r_min%minm, &
9048                        r_max%minm, rho%minm , n_ccn, frac_ccn, n_gccn, frac_gccn,lut_in_025(7),frac_025)
9049
9050     ! dust mode 2
9051     vant_fac = 3.e0  ; mol_wgt = 132.13e0   ! (NH4)2SO4  --> fake
9052     call ccn_estimate( q_in,  s, t_air, vant_fac, mol_wgt, std%minm, 0.0722, r_min%minm, &
9053                        r_max%minm, rho%minm , n_ccn, frac_ccn, n_gccn, frac_gccn,lut_in_025(8),frac_025)
9054
9055     ! dust mode 3
9056     vant_fac = 3.e0  ; mol_wgt = 132.13e0   ! (NH4)2SO4  --> fake
9057     call ccn_estimate( q_in,  s, t_air, vant_fac, mol_wgt, std%minm, 0.1354, r_min%minm, &
9058                        r_max%minm, rho%minm , n_ccn, frac_ccn, n_gccn, frac_gccn, lut_in_025(9),frac_025)
9059
9060     ! dust mode 4
9061     vant_fac = 3.e0  ; mol_wgt = 132.13e0   ! (NH4)2SO4  --> fake
9062     call ccn_estimate( q_in,  s, t_air, vant_fac, mol_wgt, std%miam, 0.2407, r_min%miam, &
9063                        r_max%miam, rho%miam , n_ccn, frac_ccn, n_gccn, frac_gccn,lut_in_025(10),frac_025)
9064
9065     ! dust mode 5
9066     vant_fac = 3.e0  ; mol_wgt = 132.13e0   ! (NH4)2SO4  --> fake
9067     call ccn_estimate( q_in,  s, t_air, vant_fac, mol_wgt, std%miam, 0.4212, r_min%miam, &
9068                        r_max%miam, rho%miam , n_ccn, frac_ccn, n_gccn, frac_gccn,lut_in_025(11),frac_025)
9069
9070     ! dust mode 6
9071     vant_fac = 3.e0  ; mol_wgt = 132.13e0   ! (NH4)2SO4  --> fake
9072     call ccn_estimate( q_in,  s, t_air, vant_fac, mol_wgt, std%miam, 0.7220, r_min%miam, &
9073                        r_max%miam, rho%miam , n_ccn, frac_ccn, n_gccn, frac_gccn,lut_in_025(12),frac_025)
9074
9075     ! dust mode 7
9076     vant_fac = 3.e0  ; mol_wgt = 132.13e0   ! (NH4)2SO4  --> fake
9077     call ccn_estimate( q_in,  s, t_air, vant_fac, mol_wgt, std%micm, 1.354, r_min%micm, &
9078                        r_max%micm, rho%micm , n_ccn, frac_ccn, n_gccn, frac_gccn,lut_in_025(13),frac_025)
9079
9080     ! dust mode 8
9081     vant_fac = 3.e0  ; mol_wgt = 132.13e0   ! (NH4)2SO4  --> fake
9082     call ccn_estimate( q_in,  s, t_air, vant_fac, mol_wgt, std%micm, 2.407, r_min%micm, &
9083                        r_max%micm, rho%micm , n_ccn, frac_ccn, n_gccn, frac_gccn,lut_in_025(14),frac_025)
9084
9085  print *,' done makelut_ccn_icn '
9086
9087  end subroutine makelut_ccn_icn
9088
9089 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9090 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9091
9092  subroutine ccn_estimate( q , s, t_air, vant_fac, mol_wgt, std, r_mode, &
9093                           r_min, r_max, rho , n_ccn_out, frac_ccn , n_gccn_out, frac_gccn, &
9094                           n_025_out, frac_025)
9095  implicit none
9096 !------------------------------------------------------------------------
9097 ! Comments: For given chemical composition, aerosol total mass, size distributions,
9098 ! this routine estimate total number concentrations of 1) CCN, 2) Giant CCN, and
9099 ! 3) IN-candidate aerosol (D>0.5micron), and correponding mass fractions.
9100 !
9101 ! Caution for GCCN user. If you want to use GCCN and CCN simultaneously (e.g., RAMS microphysics)
9102 ! CCN conc must be corrected in this way.
9103 !   CCN (fine mode) = n_ccn_out - n_gccn_out
9104 !
9105 ! History;
9106 ! 10/2010  Toshi Matsui ; Initial.
9107 !
9108 ! Reference
9109 !  Stull, R. (2000), Meteorology for Scientists and Engineer, 502 pp.,
9110 !     Brooks/ Cole Thomson Learning, Pacific Grove, Calif.
9111 !------------------------------------------------------------------------
9112  real,intent(in) :: q       ! aerosol mass mixing ratio [g/m3]
9113  real,intent(in) :: s       ! super saturation rate [%]
9114  real,intent(in) :: t_air   ! air temprature [K]
9115  real,intent(in) :: vant_fac! van't Hoff factor [-]
9116  real,intent(in) :: mol_wgt ! molecular weight of the chemical compnent of CN
9117  real,intent(in) :: std     ! standard deviation []
9118  real,intent(in) :: r_mode  ! mode radius [micron]
9119  real,intent(in) :: r_min   ! minmum radius [micron]
9120  real,intent(in) :: r_max   ! maximum radius [micron]
9121  real,intent(in) :: rho     ! density [g/cm3]
9122
9123  real,intent(out) :: n_ccn_out ! CCN concentration [#/cm3]
9124  real,intent(out) :: frac_ccn  ! mass fraction of CCN for CN [-]
9125  real,intent(out) :: n_gccn_out! GCCN concentration [#/cm3]
9126  real,intent(out) :: frac_gccn ! mass fraction of GCCN for CN [-]
9127  real,intent(out) :: n_025_out ! IN candidate concentration [#/cm3]
9128  real,intent(out) :: frac_025  ! mass fraction of IN candidate for CN [-]
9129
9130  integer :: bin_max = 1000   !maximum of size bin
9131  integer :: i    ! loop index
9132  real :: log_dr  ! log-scale size bin width
9133  real :: dr      ! bin width [micron]
9134  real :: r       ! radius [micron]
9135  real :: cum_pd  ! cumulative pd
9136  real :: pd      ! probability density
9137  real :: r15,r25 ! log-interplolated size bin boundary
9138  real :: n_bin   ! number conc per size bin [#/m3]
9139  real :: n_ccn   ! CCN conc [#/m3]
9140  real :: n_gccn  ! GCCN conc [#/m3]
9141  real :: n_025   ! IN candidate conc [#/m3]
9142  real :: q_bin   ! mass per size bin [g/m3]
9143  real :: q_ccn   ! CCN mass [g/m3]
9144  real :: q_gccn  ! GCCN mass [g/m3]
9145  real :: q_025   ! IN candidate mass [g/m3]
9146  real :: r_cm    ! particle radius in cm
9147  real :: s_crit  ! critical super saturation [%]
9148  real,parameter :: r_gccn = 2.e0 ! giant CCN radius threshold [micron]
9149  real,parameter :: r_in = 0.25e0 ! IN candidate radius threshold [micron] following [DeMott et al. 2010]
9150  real :: q_unit
9151  real :: n_tot
9152
9153 !
9154 ! Convert aerosol mass mixing ratio to number mixing ratio.
9155 ! This is because log-normal PSD is designed for Ntot.
9156 !
9157  call convert_mass2number( q , std, r_mode, r_min, r_max, rho , n_tot )
9158
9159 ! Initilize
9160  cum_pd = 0.e0
9161  n_ccn  = 0.e0 ; q_ccn  = 0.e0
9162  n_gccn = 0.e0 ; q_gccn = 0.e0
9163  n_025 = 0.e0  ; q_025  = 0.e0
9164
9165 !
9166 ! set up bin size
9167 !
9168  log_dr = log10(r_max/r_min) / real(bin_max)  ! logaritm of bin size
9169
9170  r = r_min   !initial particle radius [micron]
9171
9172 !
9173 ! PSD integration
9174 !
9175  do while ( r < r_max )
9176
9177    r = r * ( 10.e0 ** log_dr ) ! particle dry radius [ micron ]
9178
9179    r15 = r / (10.e0**(0.5e0*log_dr) )
9180    r25 = r * (10.e0**(0.5e0*log_dr) )
9181    dr = r25-r15    ! bin width [micron]
9182
9183    call opac_log_normal_pdf(r,std,r_mode,pd)  ! compute probability density per width
9184
9185    n_bin = n_tot * pd * dr  ! number per size bin [#/m3]
9186    r_cm = r * 1.e-4         ! radius [cm]
9187    q_unit = ( 4.e0/3.e0 * pi_const * r_cm*r_cm*r_cm * rho ) !mass per patcile [g]
9188    q_bin = n_bin * q_unit ! mass per size bin [g/m3]
9189
9190    !
9191    ! Estimate critical super saturation rate
9192    !
9193    s_crit = sqrt( 1.278e-15 * mol_wgt / (vant_fac * q_unit * t_air*t_air*t_air ) ) * 100.e0 !Stull eq(8.5)
9194
9195
9196    if(s > s_crit) then
9197          n_ccn = n_ccn + n_bin        ! total number conc of CCN [#/m3]
9198          q_ccn = q_ccn + q_bin        ! total q of CCN [g/m3]
9199    endif
9200
9201    if(s > s_crit .and. r > r_gccn) then
9202          n_gccn = n_gccn + n_bin        ! total number conc of GCCN [#/m3]
9203          q_gccn = q_gccn + q_bin        ! total q of GCCN [g/m3]
9204    endif
9205
9206    if(r > r_in) then
9207          n_025 = n_025 + n_bin        ! total number conc of IN candidate [#/m3]
9208          q_025 = q_025 + q_bin        ! total q of IN candidate [g/m3]
9209    endif
9210
9211
9212    cum_pd = cum_pd + pd * dr  ! cumulative probability density for sanity check [-]
9213
9214  enddo
9215
9216
9217 !
9218 ! CCN output
9219 !
9220  n_ccn_out = n_ccn * 1.e-6  ! Cloud Condensation Nuclei concentrations [#/cm3]
9221  frac_ccn = q_ccn / q       ! mass fraction of CCN for CN [-]
9222
9223 !
9224 ! GCCN output
9225 !
9226  n_gccn_out = n_gccn * 1.e-6  ! Giant Cloud Condensation Nuclei concentrations [#/cm3]
9227  frac_gccn = q_gccn / q       ! mass fraction of GCCN for CN [-]
9228
9229 !
9230 ! IN candidate output
9231 !
9232  n_025_out = n_025 * 1.e-6  ! Aerosol (equivalent to Naer,0.5) concentrations [#/cm3]
9233  frac_025  = q_025 / q       ! mass fraction of GCCN for CN [-]
9234
9235  end subroutine ccn_estimate
9236
9237 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9238 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9239
9240  subroutine convert_mass2number( q_in, std, r_mode, r_min, r_max, rho , n_tot )
9241  implicit none
9242
9243 !------------------------------------------------------------------------
9244 ! Comments: convert aerosol mass mixing ratio to total number concentration
9245 ! following OPAC's log-normal size distribution.
9246 !
9247 ! History;
9248 ! 10/2010  Toshi Matsui ; Initial.
9249 !
9250 ! Reference
9251 !------------------------------------------------------------------------
9252  real,intent(out) :: n_tot      ! aerosol total number mixing ratio [#/m3]
9253  real,intent(in) :: q_in       ! aerosol mass mixing ratio [g/m3]
9254  real,intent(in) :: std     ! standard deviation []
9255  real,intent(in) :: r_mode  ! mode radius [micron]
9256  real,intent(in) :: r_min   ! minmum radius [micron]
9257  real,intent(in) :: r_max   ! maximum radius [micron]
9258  real,intent(in) :: rho     ! density [g/cm3]
9259
9260  integer :: bin_max = 1000
9261  integer :: i    ! loop index
9262  real :: log_dr  ! log-scale size bin width
9263  real :: dr      ! bin width [micron]
9264  real :: r       ! radius [micron]
9265  real :: cum_pd  ! cumulative pd
9266  real :: pd      ! probability density
9267  real :: r15,r25 ! log-interplolated size bin boundary
9268  real :: n_bin   ! number conc per size bin [#/m3]
9269  real :: q_bin   ! mass per size bin [g/m3]
9270  real :: r_cm    ! particle radius in cm
9271  real :: q_unit  !mass per unit particle [g]
9272  real :: q_integrate
9273
9274  real :: n_samp = 1.e5 ! [#/m3]
9275
9276  cum_pd = 0.e0
9277  q_integrate = 0.e0
9278
9279  log_dr = log10(r_max/r_min) / real(bin_max)  ! logaritm of bin size
9280
9281  r = r_min   !initial particle radius [micron]
9282
9283  do while ( r < r_max )
9284
9285    r = r * ( 10.e0 ** log_dr ) ! particle dry radius [ micron ]
9286
9287    r15 = r / (10.e0**(0.5e0*log_dr) )
9288    r25 = r * (10.e0**(0.5e0*log_dr) )
9289    dr = r25-r15    ! bin width [micron]
9290
9291    call opac_log_normal_pdf(r,std,r_mode,pd)  ! compute probability density per width
9292
9293    n_bin = n_samp * pd * dr  ! number conc per size bin [#/m3]
9294
9295    r_cm = r * 1.e-4     ! radius [cm]
9296
9297    q_unit = ( 4.e0/3.e0 * pi_const * r_cm*r_cm*r_cm * rho ) !mass per patcile [g]
9298
9299    q_bin = n_bin * q_unit ! number conc per size bin [g/m3]
9300
9301    cum_pd = cum_pd + pd * dr  ! cumulative probability density for sanity check [-]
9302
9303    q_integrate = q_integrate + q_bin ![g/m3]
9304
9305  enddo
9306
9307  n_tot = q_in * (n_samp / q_integrate)   !total number concentration [#/m3]
9308
9309  end subroutine convert_mass2number
9310
9311 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9312 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9313
9314  subroutine opac_log_normal_pdf( r, std, r_mode, pd )
9315  implicit none
9316 !------------------------------------------------------------------------
9317 ! Comments: Function of unique OPAC-defined log-normal size distribution.
9318 !
9319 ! History;
9320 ! 10/2010  Toshi Matsui ; Initial.
9321 !
9322 ! Reference
9323 ! M. Hess, P. Koepke, and I. Schult (1998): Optical Properties of Aerosols and clouds:
9324 !    The software package OPAC, Bull. Am. Met. Soc., 79, 831-844.
9325 !------------------------------------------------------------------------
9326  real,intent(in) :: r       ! particle radius [micron]
9327  real,intent(in) :: std     ! standard deviation []
9328  real,intent(in) :: r_mode  ! mode radius [micron]
9329  real,intent(out) :: pd     ! probability density
9330  real :: a, b
9331
9332  a = 1.e0 / ( sqrt(2.e0*pi_const) * r * log10(std) * log(10.e0) )
9333
9334  b =  ( log10(r/r_mode) / log10(std) )**2
9335
9336  pd = a * exp( - 0.5e0 * b )
9337
9338  end subroutine opac_log_normal_pdf
9339
9340 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9341 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9342
9343  subroutine read_mie_sw
9344  implicit none
9345
9346 !------------------------------------------------------------------------
9347 ! Read aerosol mie table & assinge optical properties.
9348 ! Assinged values are saved for global variables at the top of module_gocart_offline.
9349 !
9350 ! History;
9351 ! 02/2007  Toshi Matsui ; Initial.
9352 !------------------------------------------------------------------------
9353
9354 !--------------local variables-----------------------------
9355  integer,parameter :: nmt = 6    !# of mie tables
9356  integer,parameter :: nrh  = 36  !# of column (RH) for mie table
9357  real :: mBex(nmt,nwl,nrh)  ! Mass extinction coefficient [m2/g]
9358  real :: nBex(tgmx,nwl,nrh) ! reasigned Mass extinction coefficient [m2/g]
9359  real :: mw0(nmt,nwl,nrh)   ! single scattering albedo [-]
9360  real :: nw0(tgmx,nwl,nrh)  ! reasigned single scattering albedo [-]
9361  real :: mg(nmt,nwl,nrh)    ! asymetry factor [-]
9362  real :: ng(tgmx,nwl,nrh)   ! reasigned asymetry factor [-]
9363  real :: mRHr(nmt,nrh)      ! relative humidity [-]
9364  real :: nRHr(tgmx,nrh)     ! reasigned relative humidity [-]
9365  real :: w1, w2             !weight for pressure interpolation
9366  real :: wl(nwl)            ! wavelengh interval for SW radiation [um]
9367
9368 !
9369 ! Mie table loop
9370 ! 1- "suso" :sulfate and its precursors
9371 ! 2- "waso" : water soluble organic carbon
9372 ! 3- "soot" : black carbon
9373 ! 4- "ssam" : sea salt (accumulation,fine mode)
9374 ! 5- "sscm" : sea salt (coarse mode)
9375 ! 6- "dust" : dust
9376 !
9377       print*,'MSG  read_mie_sw; read mie tables'
9378
9379       do t = 1, nmt  !# of mie tables
9380          at=mie_tbl(t)
9381          nrs = nrh
9382         if(at == "dust") nrs = 8
9383         open(1,file='mie.'//at//'.clirad',status='old')
9384         read(1,*)aa
9385         read(1,'(6x,36f10.2)')(mRHr(t,k),k=1,nrs)
9386         read(1,'(/)')
9387         read(1,'(a39)') aa
9388         do k = 1,nwl
9389          read(1,'(f6.3,36e10.3)')wl(k),(mBex(t,k,n),n=1,nrs)
9390         end do
9391         read(1,'(a39)') aa
9392         do k = 1,nwl
9393          read(1,'(6x,36e10.3)')(mw0(t,k,n),n=1,nrs)
9394         end do
9395         read(1,'(a39)') aa
9396         do k = 1,nwl
9397          read(1,'(6x,36e10.3)')(mg(t,k,n),n=1,nrs)
9398         end do
9399         close(1)
9400       enddo
9401 !
9402 ! Reasign the mie table for the following order
9403 !
9404
9405 !  1 = SO4      !sulfur and its precure
9406        ai = 1
9407        nRHr(ai,:)   = mRHr(1,:)
9408        nBex(ai,:,:) = mBex(1,:,:)
9409        nw0(ai,:,:)  = mw0(1,:,:)
9410        ng(ai,:,:)   = mg(1,:,:)
9411 !  2 = BC1+BC2  !black carbon (soot)
9412        ai = 2
9413        nRHr(ai,:)   = mRHr(3,:)
9414        nBex(ai,:,:) = mBex(3,:,:)
9415        nw0(ai,:,:)  = mw0(3,:,:)
9416        ng(ai,:,:)   = mg(3,:,:)
9417 !  3 = OC1      !non hygroscopic OC
9418        ai = 3
9419        nRHr(ai,:)   = mRHr(2,:)
9420        do k = 1,nwl ; do n = 1,nrh
9421          nBex(ai,k,n) = mBex(2,k,1)
9422          nw0(ai,k,n)  = mw0(2,k,1)
9423          ng(ai,k,n)   = mg(2,k,1)
9424        enddo ; enddo
9425 !  4 = OC2      !hygroscopic OC
9426        ai = 4
9427        nRHr(ai,:)   = mRHr(2,:)
9428        nBex(ai,:,:) = mBex(2,:,:)
9429        nw0(ai,:,:)  = mw0(2,:,:)
9430        ng(ai,:,:)   = mg(2,:,:)
9431 !  5 = SS1      !sea-salt accumulation mode
9432        ai = 5
9433        nRHr(ai,:)   = mRHr(4,:)
9434        nBex(ai,:,:) = mBex(4,:,:)
9435        nw0(ai,:,:)  = mw0(4,:,:)
9436        ng(ai,:,:)   = mg(4,:,:)
9437 !  6 = SS2+SS3+SS4 !sea-salt coarse mode
9438        ai = 6
9439        nRHr(ai,:)   = mRHr(5,:)
9440        nBex(ai,:,:) = mBex(5,:,:)
9441        nw0(ai,:,:)  = mw0(5,:,:)
9442        ng(ai,:,:)   = mg(5,:,:)
9443 !  7 = DU1      ! dust mode 1
9444 !  8 = DU1      ! dust mode 2
9445 !  9 = DU1      ! dust mode 3
9446 ! 10 = DU1      ! dust mode 4
9447 ! 11 = DU2      ! dust mode 5
9448 ! 12 = DU3      ! dust mode 6
9449 ! 13 = DU4      ! dust mode 7
9450 ! 14 = DU5      ! dust mode 8
9451        do ai = 7 , 14
9452        nRHr(ai,:)   = mRHr(1,:)
9453        do k = 1,nwl ; do n = 1,nrh
9454          nBex(ai,k,n) = mBex(6,k,ai-6)
9455          nw0(ai,k,n)  = mw0(6,k,ai-6)
9456          ng(ai,k,n)   = mg(6,k,ai-6)
9457        enddo ; enddo
9458        enddo
9459 !
9460 ! Further interporate the Mie Table for RH every 1%
9461 ! This reduce CPU time in searching do loop in aero_opt
9462 !
9463
9464 !for RH 0 ~ 79%
9465        do ai = 1, tgmx ; do k = 1,nwl ; do nh = 0, 79
9466        do n = 1, 16
9467          if(nh == nint(nRHr(ai,n)*100.) ) then
9468           Bex_temp(ai,k,nh) = nBex(ai,k,n)
9469           w0_temp(ai,k,nh)  = nw0(ai,k,n)
9470           g_temp(ai,k,nh)   = ng(ai,k,n)
9471           exit
9472         elseif( nh > nint(nRHr(ai,n)*100.) .and. &
9473                 nh < nint(nRHr(ai,n+1)*100.)    ) then
9474           w2 = ( real(nh)/100. - nRHr(ai,n) ) / &
9475                (nRHr(ai,n+1)-nRHr(ai,n) )
9476           w1 = max(min( 1.-w2,1. ),0.)
9477           Bex_temp(ai,k,nh) = w1*nBex(ai,k,n)+w2*nBex(ai,k,n+1)
9478           w0_temp(ai,k,nh)  = w1*nw0(ai,k,n)+w2*nw0(ai,k,n+1)
9479           g_temp(ai,k,nh)   = w1*ng(ai,k,n)+w2*ng(ai,k,n+1)
9480           exit
9481          endif
9482        enddo
9483        enddo ; enddo ; enddo
9484
9485 !for RH 80~99%
9486        do ai = 1, tgmx ; do k = 1,nwl ; do nh = 80, nrmx
9487           Bex_temp(ai,k,nh) = nBex(ai,k,nh-63)
9488           w0_temp(ai,k,nh)  = nw0(ai,k,nh-63)
9489           g_temp(ai,k,nh)   = ng(ai,k,nh-63)
9490        enddo ; enddo ; enddo
9491
9492 !       Bex(1:tgmx,1:nwl,0:nrmx) = Bex_temp(1:tgmx,1:nwl,0:nrmx)
9493 !       w0(1:tgmx,1:nwl,0:nrmx) = w0_temp(1:tgmx,1:nwl,0:nrmx)
9494 !       g(1:tgmx,1:nwl,0:nrmx) = g_temp(1:tgmx,1:nwl,0:nrmx)
9495
9496         end subroutine read_mie_sw
9497
9498 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9499 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9500
9501   subroutine write_mie_sw
9502   implicit none
9503 !------------------------------------------------------------------------
9504 ! write out aerosol mie table & assinge optical properties.
9505 ! Assinged values are saved for global variables at the top of module_gocart_offline.
9506 !
9507 ! History;
9508 ! 02/2007  Toshi Matsui ; Initial.
9509 !------------------------------------------------------------------------
9510
9511   open(1,file='mie_table.f90',status='replace')
9512 !
9513 ! Bex
9514 !
9515   do ai = 1, tgmx !aerosol type
9516        write(1,20) ai,ai!,nh,nh
9517      do nh = 0, 99
9518        if(nh==nrmx) then
9519          write(1,11) ( Bex_temp(ai,k,nh) , k =1,nwl )
9520        else
9521          write(1,10) ( Bex_temp(ai,k,nh) , k =1,nwl )
9522        endif
9523      enddo !nh
9524   enddo !ai
9525
9526 !
9527 ! single scattering albedo
9528 !
9529   do ai = 1, tgmx !aerosol type
9530        write(1,21) ai,ai!,nh,nh
9531      do nh = 0, 99
9532        if(nh==nrmx) then
9533          write(1,11) ( w0_temp(ai,k,nh) , k =1,nwl )
9534        else
9535          write(1,10) ( w0_temp(ai,k,nh) , k =1,nwl )
9536        endif
9537      enddo !nh
9538   enddo !ai
9539
9540 !
9541 ! asymetry factor
9542 !
9543   do ai = 1, tgmx !aerosol type
9544        write(1,22) ai,ai!,nh,nh
9545
9546      do nh = 0, 99
9547        if(nh==nrmx) then
9548          write(1,11) ( g_temp(ai,k,nh) , k =1,nwl )
9549        else
9550          write(1,10) ( g_temp(ai,k,nh) , k =1,nwl )
9551        endif
9552      enddo !nh
9553   enddo !ai
9554
9555
9556  20 format(1x,"data (((Bex(ai,k,nh),ai=",i2,",",i2,"),k=1,11),nh=0,99)/ &")
9557  21 format(1x,"data (((w0(ai,k,nh),ai=",i2,",",i2,"),k=1,11),nh=0,99)/ &")
9558  22 format(1x,"data (((g(ai,k,nh),ai=",i2,",",i2,"),k=1,11),nh=0,99)/ &")
9559
9560  10 format(1x,e9.4,",",e9.4,",",e9.4,",",e9.4,",",e9.4,",",e9.4,  &
9561                     ",",e9.4,",",e9.4,",",e9.4,",",e9.4,",",e9.4,",&")
9562  11 format(1x,e9.4,",",e9.4,",",e9.4,",",e9.4,",",e9.4,",",e9.4,  &
9563                     ",",e9.4,",",e9.4,",",e9.4,",",e9.4,",",e9.4,"/")
9564
9565   close(1)
9566
9567   end subroutine write_mie_sw
9568
9569 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9570 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9571
9572   subroutine read_mie_lw
9573   implicit none
9574
9575 !------------------------------------------------------------------------
9576 ! Read aerosol mie table (LW) & assinge optical properties.
9577 ! Assinged values are saved for global variables at the top of module_gocart_offline.
9578 !
9579 ! History;
9580 ! 02/2007  Toshi Matsui ; Initial.
9581 !------------------------------------------------------------------------
9582
9583 !--------------local variables-----------------------------
9584   integer :: iwn,iwn1,iwn2,iwnb !wavenumber index
9585   integer,parameter :: nb = 61 ! # of wave band for mie table
9586   integer,parameter :: nmt = 6     ! # of mie tables
9587   integer,parameter :: nrh  = 36   ! # of column (RH) for mie table
9588   real :: wlb(nb)           ! band wavelength
9589   real :: mBex(nmt,nb,nrh)  ! Mass extinction coefficient [m2/g]
9590   real :: nBex(tgmx,nb,nrh) ! reasigned Mass extinction coefficient [m2/g]
9591   real :: mw0(nmt,nb,nrh)   ! single scattering albedo [-]
9592   real :: nw0(tgmx,nb,nrh)  ! reasigned single scattering albedo [-]
9593   real :: mg(nmt,nb,nrh)    ! asymetry factor [-]
9594   real :: ng(tgmx,nb,nrh)   ! reasigned asymetry factor [-]
9595   real :: mRHr(nmt,nrh)         ! relative humidity [-]
9596   real :: nRHr(tgmx,nrh)        ! reasigned relative humidity [-]
9597   real :: w1, w2                ! weight for pressure interpolation
9598
9599   real :: Bext(tgmx,nb,0:nrmx)   ! temporary Mass extinction coefficient [m2/g]
9600   real :: w0t(tgmx,nb,0:nrmx)    ! temporary single scattering albedo [-]
9601   real :: gt(tgmx,nb,0:nrmx)     ! temporary asymetry factor [-]
9602   real :: Bex_wn(tgmx,250:4000,0:nrmx)  !temp Bex array for wavenumber
9603   real :: w0_wn(tgmx,250:4000,0:nrmx)   !temp w0 array for wavenumber
9604   real :: g_wn(tgmx,250:4000,0:nrmx)    !temp g array for wavenumber
9605
9606 !--------------mie table loop----------------------------------
9607 ! 1- "suso" : sulfate and its precursors
9608 ! 2- "waso" : water soluble organic carbon
9609 ! 3- "soot" : black carbon
9610 ! 4- "ssam" : sea salt (accumulation,fine mode)
9611 ! 5- "sscm" : sea salt (coarse mode)
9612 ! 6- "dust" : dust
9613
9614       print*,'MSG  read_mie_lw; read mie tables for longwave band'
9615
9616       do t = 1, nmt  !# of mie tables
9617          at=mie_tbl(t)
9618          nrs = nrh
9619         if(at == "dust") nrs = 8
9620         open(1,file='mie.'//at//'.out',status='old')
9621         read(1,*)aa
9622         read(1,'(6x,36f10.2)')(mRHr(t,k),k=1,nrs)
9623         read(1,'(/)')
9624         read(1,'(a39)') aa
9625         do k = 1,nb
9626          read(1,'(f6.3,36e10.3)')wlb(k),(mBex(t,k,n),n=1,nrs)
9627         end do
9628         read(1,'(a39)') aa
9629         do k = 1,nb
9630          read(1,'(6x,36e10.3)')(mw0(t,k,n),n=1,nrs)
9631         end do
9632         read(1,'(a39)') aa
9633         do k = 1,nb
9634          read(1,'(6x,36e10.3)')(mg(t,k,n),n=1,nrs)
9635         end do
9636         close(1)
9637       enddo
9638
9639 !------------Reasign the mie table for the following order
9640 !  1 = SO4      !sulfur and its precure
9641        ai = 1
9642        nRHr(ai,:)   = mRHr(1,:)
9643        nBex(ai,:,:) = mBex(1,:,:)
9644        nw0(ai,:,:)  = mw0(1,:,:)
9645        ng(ai,:,:)   = mg(1,:,:)
9646 !  2 = BC1+BC2  !black carbon (soot)
9647        ai = 2
9648        nRHr(ai,:)   = mRHr(3,:)
9649        nBex(ai,:,:) = mBex(3,:,:)
9650        nw0(ai,:,:)  = mw0(3,:,:)
9651        ng(ai,:,:)   = mg(3,:,:)
9652 !  3 = OC1      !non hygroscopic OC
9653        ai = 3
9654        nRHr(ai,:)   = mRHr(2,:)
9655        do k = 1,nb ; do n = 1,nrh
9656          nBex(ai,k,n) = mBex(2,k,1)
9657          nw0(ai,k,n)  = mw0(2,k,1)
9658          ng(ai,k,n)   = mg(2,k,1)
9659        enddo ; enddo
9660 !  4 = OC2      !hygroscopic OC
9661        ai = 4
9662        nRHr(ai,:)   = mRHr(2,:)
9663        nBex(ai,:,:) = mBex(2,:,:)
9664        nw0(ai,:,:)  = mw0(2,:,:)
9665        ng(ai,:,:)   = mg(2,:,:)
9666 !  5 = SS1      !sea-salt accumulation mode
9667        ai = 5
9668        nRHr(ai,:)   = mRHr(4,:)
9669        nBex(ai,:,:) = mBex(4,:,:)
9670        nw0(ai,:,:)  = mw0(4,:,:)
9671        ng(ai,:,:)   = mg(4,:,:)
9672 !  6 = SS2+SS3+SS4 !sea-salt coarse mode
9673        ai = 6
9674        nRHr(ai,:)   = mRHr(5,:)
9675        nBex(ai,:,:) = mBex(5,:,:)
9676        nw0(ai,:,:)  = mw0(5,:,:)
9677        ng(ai,:,:)   = mg(5,:,:)
9678
9679 !  7 = DU1      ! dust mode 1
9680 !  8 = DU1      ! dust mode 2
9681 !  9 = DU1      ! dust mode 3
9682 ! 10 = DU1      ! dust mode 4
9683 ! 11 = DU2      ! dust mode 5
9684 ! 12 = DU3      ! dust mode 6
9685 ! 13 = DU4      ! dust mode 7
9686 ! 14 = DU5      ! dust mode 8
9687        do ai = 7 , 14
9688        nRHr(ai,:)   = mRHr(1,:)
9689        do k = 1,nb ; do n = 1,nrh
9690          nBex(ai,k,n) = mBex(6,k,ai-6)
9691          nw0(ai,k,n)  = mw0(6,k,ai-6)
9692          ng(ai,k,n)   = mg(6,k,ai-6)
9693        enddo ; enddo
9694        enddo
9695
9696 !
9697 !-----Further interporate the Mie Table for RH every 1%
9698 ! for RH 0 ~ 79%
9699        do ai = 1, tgmx ; do k = 1,nb ; do nh = 0, 79
9700        do n = 1, 16
9701          if(nh == nint(nRHr(ai,n)*100.) ) then
9702           Bext(ai,k,nh) = nBex(ai,k,n)
9703           w0t(ai,k,nh)  = nw0(ai,k,n)
9704           gt(ai,k,nh)   = ng(ai,k,n)
9705           exit
9706         elseif( nh > nint(nRHr(ai,n)*100.) .and. &
9707                 nh < nint(nRHr(ai,n+1)*100.)    ) then
9708           w2 = ( real(nh)/100. - nRHr(ai,n) ) / &
9709                (nRHr(ai,n+1)-nRHr(ai,n) )
9710           w1 = max(min( 1.-w2,1. ),0.)
9711           Bext(ai,k,nh) = w1*nBex(ai,k,n)+w2*nBex(ai,k,n+1)
9712           w0t(ai,k,nh)  = w1*nw0(ai,k,n)+w2*nw0(ai,k,n+1)
9713           gt(ai,k,nh)   = w1*ng(ai,k,n)+w2*ng(ai,k,n+1)
9714           exit
9715          endif
9716        enddo
9717        enddo ; enddo ; enddo
9718
9719 !for RH 80~99%
9720        do ai = 1, tgmx ; do k = 1,nb ; do nh = 80, nrmx
9721           Bext(ai,k,nh) = nBex(ai,k,nh-63)
9722           w0t(ai,k,nh)  = nw0(ai,k,nh-63)
9723           gt(ai,k,nh)   = ng(ai,k,nh-63)
9724        enddo ; enddo ; enddo
9725
9726
9727 !
9728 ! reasinge Bex w0 g for 250~4000  wavenumber ranges
9729 !
9730
9731   do k = nb,20,-1
9732      iwn1 = nint(1./(wlb(k)/10000.))
9733      iwn2 = nint(1./(wlb(k-1)/10000.))
9734      iwnb = iwn2 - iwn1
9735
9736      Bex_wn(:,iwn1,:) = Bext(:,k,:)
9737      Bex_wn(:,iwn2,:) = Bext(:,k-1,:)
9738      w0_wn(:,iwn1,:)  = w0t(:,k,:)
9739      w0_wn(:,iwn2,:)  = w0t(:,k-1,:)
9740      g_wn(:,iwn1,:)   = gt(:,k,:)
9741      g_wn(:,iwn2,:)   = gt(:,k-1,:)
9742
9743      do iwn = iwn1+1, iwn2-1
9744         w2 = (real(iwn)-real(iwn1)) / real(iwnb)
9745         w1 = max(min( 1.-w2,1. ),0.)
9746         Bex_wn(:,iwn,:) = w1*Bext(:,k,:) + w2*Bext(:,k-1,:)
9747         w0_wn(:,iwn,:) = w1*w0t(:,k,:) + w2*w0t(:,k-1,:)
9748         g_wn(:,iwn,:) = w1*gt(:,k,:) + w2*gt(:,k-1,:)
9749      enddo
9750
9751   enddo
9752
9753
9754 !
9755 ! average the broadband IR optical proerpties (1~9 band)
9756 !
9757  do iwn = 1, nwl_lw-1
9758
9759     iwn1 = waven(iwn)
9760     iwn2 = waven(iwn+1)
9761     iwnb = iwn2 - iwn1 + 1
9762
9763
9764     do ai = 1, tgmx ; do nh = 0, nrmx
9765         Bex_lw_temp(ai, iwn, nh) =  sum( Bex_wn(ai, iwn1:iwn2, nh)) / real(iwnb)
9766         w0_lw_temp(ai, iwn, nh)  =  sum( w0_wn(ai, iwn1:iwn2, nh)) / real(iwnb)
9767         g_lw_temp(ai, iwn, nh)   =  sum( g_wn(ai, iwn1:iwn2, nh)) / real(iwnb)
9768     enddo ; enddo
9769
9770  enddo
9771 !
9772 ! for 10th band
9773 !
9774     do ai = 1, tgmx ; do nh = 0, nrmx
9775         Bex_lw_temp(ai, 10, nh) =  sum( Bex_wn(ai, 540:620, nh)) / 81.
9776         w0_lw_temp(ai, 10, nh)  =  sum( w0_wn(ai, 540:620, nh)) / 81.
9777         g_lw_temp(ai, 10, nh)   =  sum( g_wn(ai, 540:620, nh)) / 81.
9778     enddo ; enddo
9779
9780
9781 !       Bex_lw(1:tgmx,1:nwl_lw,0:nrmx) = Bex_lw_temp(1:tgmx,1:nwl_lw,0:nrmx)
9782 !       w0_lw(1:tgmx,1:nwl_lw,0:nrmx) = w0_lw_temp(1:tgmx,1:nwl_lw,0:nrmx)
9783 !       g_lw(1:tgmx,1:nwl_lw,0:nrmx) = g_lw_temp(1:tgmx,1:nwl_lw,0:nrmx)
9784
9785
9786   end subroutine read_mie_lw
9787
9788 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9789 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9790
9791   subroutine write_mie_lw
9792   implicit none
9793 !------------------------------------------------------------------------
9794 ! write out aerosol mie table & assinge optical properties.
9795 ! Assinged values are saved for global variables at the top of module_gocart_offline.
9796 !
9797 ! History;
9798 ! 02/2007  Toshi Matsui ; Initial.
9799 !------------------------------------------------------------------------
9800
9801   open(1,file='mie_lw_table.f90',status='replace')
9802 !
9803 ! Bex
9804 !
9805   do ai = 1, tgmx !aerosol type
9806        write(1,20) ai,ai!,nh,nh
9807      do nh = 0, 99
9808        if(nh==nrmx) then
9809          write(1,11) ( Bex_lw_temp(ai,k,nh) , k =1,nwl_lw )
9810        else
9811          write(1,10) ( Bex_lw_temp(ai,k,nh) , k =1,nwl_lw )
9812        endif
9813      enddo !nh
9814   enddo !ai
9815
9816 !
9817 ! single scattering albedo
9818 !
9819   do ai = 1, tgmx !aerosol type
9820        write(1,21) ai,ai!,nh,nh
9821      do nh = 0, 99
9822        if(nh==nrmx) then
9823          write(1,11) ( w0_lw_temp(ai,k,nh) , k =1,nwl_lw )
9824        else
9825          write(1,10) ( w0_lw_temp(ai,k,nh) , k =1,nwl_lw )
9826        endif
9827      enddo !nh
9828   enddo !ai
9829
9830 !
9831 ! asymetry factor
9832 !
9833   do ai = 1, tgmx !aerosol type
9834        write(1,22) ai,ai!,nh,nh
9835
9836      do nh = 0, 99
9837        if(nh==nrmx) then
9838          write(1,11) ( g_lw_temp(ai,k,nh) , k =1,nwl_lw )
9839        else
9840          write(1,10) ( g_lw_temp(ai,k,nh) , k =1,nwl_lw )
9841        endif
9842      enddo !nh
9843   enddo !ai
9844
9845
9846  20 format(1x,"data (((Bex_lw(ai,k,nh),ai=",i2,",",i2,"),k=1,nwl_lw),nh=0,99)/ &")
9847  21 format(1x,"data (((w0_lw(ai,k,nh),ai=",i2,",",i2,"),k=1,nwl_lw),nh=0,99)/ &")
9848  22 format(1x,"data (((g_lw(ai,k,nh),ai=",i2,",",i2,"),k=1,nwl_lw),nh=0,99)/ &")
9849
9850  10 format(1x,e9.4,",",e9.4,",",e9.4,",",e9.4,",",e9.4,",",e9.4,  &
9851                     ",",e9.4,",",e9.4,",",e9.4,",",e9.4,",&")
9852  11 format(1x,e9.4,",",e9.4,",",e9.4,",",e9.4,",",e9.4,",",e9.4,  &
9853                     ",",e9.4,",",e9.4,",",e9.4,",",e9.4,"/")
9854
9855   close(1)
9856
9857
9858   end subroutine write_mie_lw
9859
9860 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9861 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9862
9863   subroutine aero_opt(sw_or_lw,np,nband, pr,ta,sh,dz,aero,tau,ssa,asy)
9864   implicit none
9865 !------------------------------------------------------------------------
9866 ! Subroutine aero_opt compute the optical properties from the model input.
9867 ! All the dimension here is model (GCE or WRF) dimension. Not GOCART dimension.
9868 ! Note that tgmx = 14 : aerosol type (see below), and aero must be in the following order.
9869 !  #
9870 !  1 = SO4      ! sulfur and its precure
9871 !  2 = BC1+BC2  ! black carbon (soot)
9872 !  3 = OC1      ! non hygroscopic OC
9873 !  4 = OC2      ! hygroscopic OC
9874 !  5 = SS1      ! sea-salt accumulation mode
9875 !  6 = SS2+SS3+SS4 !sea-salt coarse mode
9876 !  7 = DU1      ! dust mode 1
9877 !  8 = DU1      ! dust mode 2
9878 !  9 = DU1      ! dust mode 3
9879 ! 10 = DU1      ! dust mode 4
9880 ! 11 = DU2      ! dust mode 5
9881 ! 12 = DU3      ! dust mode 6
9882 ! 13 = DU4      ! dust mode 7
9883 ! 14 = DU5      ! dust mode 8
9884 !
9885 ! History;
9886 ! 02/2007  Toshi Matsui ; Initial.
9887 !------------------------------------------------------------------------
9888
9889 !-----IO variables
9890  character(len=2), intent(in) :: sw_or_lw   ! character index that determines sw or lw radiation
9891  integer, intent(in) :: np            !model verical array size
9892  integer, intent(in) :: nband         !# of radiation bands
9893  real, intent(in)    :: aero(np,tgmx) !aerosol mass conc [g/m3]
9894  real, intent(in)    :: pr(np)        !pressure [mb]
9895  real, intent(in)    :: ta(np)        !temperature [K]
9896  real, intent(in)    :: sh(np)        !specific humidity [g/g]
9897  real, intent(in)    :: dz(np)        !layer thickness [m]
9898  real, intent(out)   :: tau(np,nband)      !total aerosol optical depth
9899  real, intent(out)   :: ssa(np,nband)      !total aerosol single scattering albedo
9900  real, intent(out)   :: asy(np,nband)      !total aerosol asymetry factor
9901
9902 !-----Local variables
9903  integer :: rhi         !RH index
9904  real :: es            !saturated vapor pressure [kPa]
9905  real :: q             !vapor mixing pressure [kPa]
9906  real :: e             !vapor pressure [kPa]
9907  real :: rh(np)      !relative humidity [-]
9908  real :: ext           !mass extinction coef [m2/g]
9909  real :: tau_typ(tgmx) !optical depth for each aerosol type [-]
9910  real :: ssa_typ(tgmx) !single scattering albedo for each aerosol type [-]
9911  real :: asy_typ(tgmx) !asymetery factor for each aerosol type [-]
9912  real :: w1, w2        !weight for pressure interpolation
9913
9914 !
9915 ! compute relative humidity
9916 !
9917  do k = 1, np
9918     es = 0.611 * exp( 5423.*( 1./273.15 - 1./ta(k) ) )  !over flat water
9919     q = sh(k)/(1.-sh(k))                                !mixing ratio
9920     e = (q / (q+0.622)) * pr(k) * 0.1                   !vapor pressure [mb] -> [kPa]
9921     rh(k) = min( max(1e-5, e/es) , 0.99)                !relative humidity (set upper limit 99%)
9922  enddo
9923
9924 !
9925 ! Compute total aerosol tau, ssa, & asy
9926 ! Algorithm: Total optical properties is computed as
9927 ! TAU = (tau1 + tau2 + tau3 +.... )
9928 ! SSA = (tau1*w1 + tau2*w2 + tau3*w2 + .... ) / TAU
9929 ! ASY = (tau1*w1*g1 + tau2*w2*g1 + tau3*w2*g1 + .... ) / (TAU*SSA)
9930 !
9931  do k = 1, np !vertical loop
9932
9933     rhi = int(rh(k)*100.)  !RH index
9934     w2 = (rh(k) - real(rhi)/100.) / 0.01  !weight
9935     w1 = max(min( 1.-w2,1. ),0.) !weight
9936
9937     do n = 1,nband  !wavelengh loop
9938
9939        tau_typ = 0. ; ssa_typ = 0. ; asy_typ = 0.  !initialization
9940
9941        rad_select: select case(sw_or_lw)
9942        case ('sw')  !shortwave radiation
9943             do t = 1,tgmx !aerosol type loop
9944                if(rhi == 99) then
9945                   ext        = Bex(t,n,rhi)
9946                   tau_typ(t) = ext * aero(k,t) * dz(k)
9947                   ssa_typ(t) = w0(t,n,rhi)
9948                   if(t>=7) ssa_typ(t) = w0(t,n,rhi) - 0.03  !toshii 3%down for dust 1-8 modes
9949                   asy_typ(t) = g(t,n,rhi)
9950                else
9951                   ext        = w1*Bex(t,n,rhi) + w2*Bex(t,n,rhi+1)
9952                   tau_typ(t) = ext * aero(k,t) * dz(k)
9953                   ssa_typ(t) = w1*w0(t,n,rhi) + w2*w0(t,n,rhi+1)
9954                   if(t>=7) ssa_typ(t) = w1*w0(t,n,rhi) + w2*w0(t,n,rhi+1) - 0.03  !toshii 3%down for dust 1-8 modes
9955                   asy_typ(t) = w1*g(t,n,rhi) + w2*g(t,n,rhi+1)
9956                endif
9957
9958              enddo !t
9959         case ('lw')  !longwave radiation
9960              do t = 1,tgmx !aerosol type loop
9961                 if(rhi == 99) then
9962                   ext        = Bex_lw(t,n,rhi)
9963                   tau_typ(t) = ext * aero(k,t) * dz(k)
9964                   ssa_typ(t) = w0_lw(t,n,rhi)
9965                   asy_typ(t) = g_lw(t,n,rhi)
9966                 else
9967                   ext        = w1*Bex_lw(t,n,rhi) + w2*Bex_lw(t,n,rhi+1)
9968                   tau_typ(t) = ext * aero(k,t) * dz(k)
9969                   ssa_typ(t) = w1*w0_lw(t,n,rhi) + w2*w0_lw(t,n,rhi+1)
9970                   asy_typ(t) = w1*g_lw(t,n,rhi) + w2*g_lw(t,n,rhi+1)
9971                 endif
9972              enddo !t
9973          case default
9974               stop 'MSG aero_opt: the option does not exist: sw_or_lw '
9975          end select rad_select
9976
9977          ! compute total optical depth single scatterling albedo, asymetry parameters
9978          tau(k,n) = sum( tau_typ(1:tgmx) )
9979          ssa(k,n) = sum( tau_typ(1:tgmx)*ssa_typ(1:tgmx) ) / max(tau(k,n),1e-08)
9980          asy(k,n) = sum( tau_typ(1:tgmx)*ssa_typ(1:tgmx)*asy_typ(1:tgmx) ) &
9981                        /  max(tau(k,n)*ssa(k,n),1e-08)
9982
9983       enddo !n
9984
9985   enddo ! vertical loop
9986
9987  end subroutine aero_opt
9988
9989 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9990 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
9991
9992  end module module_gocart_coupling
9993 #else
9994  module module_gocart_coupling
9995  contains
9996  subroutine dummy
9997  end subroutine dummy
9998  end module module_gocart_coupling
9999
10000 #endif
10001
10002 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD
10003 !GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD GODDARD